Listing of file='IDS2SUB4' on disk='vmedia/701-2715B.wvd.zip'
# Sector 815, program filename = 'IDS2SUB4' 0764 X=0 : GOSUB 732 : STR(E3$(),C-1,E)=HEX(FF)&F$() 0782 DEFFN'42(F5$,J) : GOSUB 521 : V,K=FN2(10) : GOSUB 489 : O=20 : M=POS(STR(E1$(V),53)>R8$) : ON MGOTO 442 : IF J<1OR M<>2THEN 797 : F$()=" " : IF F1$(V)=" "THEN 795 : GOSUB '59(V,J,F1$(V),0) : P=C : GOSUB 556 0795 X=1 : GOSUB 952 0797 IF J>0THEN F$()=STR(E$(),J,FN2(13)) : GOSUB 768 : V=K : IF MOD(T,4)>1THEN F5$,F3$=STR(F1$(K),FNP(0)) : J=0 : IF F1$(K)<>" "THEN J=1 : O=21 : V=K : IF F$()<>" "THEN 810 : IF J=0THEN 442 : J=3 0810 GOSUB 489 : IF T=0THEN 835 : GOSUB 596 : IF V=KAND J=1AND STR(E4$(),,FN1(24))=STR(F1$(V),,FN1(24))THEN J=2 : STR(E4$(),FNP(0))=F5$ : IF T>1AND T<>4THEN 830 : GOSUB 529 : STR(E4$(),FNP(0))=HEX(FF)&F$() : IF J>1THEN GOSUB 636 : X=2 : IF J<3THEN GOSUB 635 : IF Q=0THEN 693 : ON JGOSUB 636 : GOTO 848 0830 IF J>0AND E4$()<>F1$(V)OR J=3THEN GOSUB 636 : X=SGN(POS(HEX(0205)=STR(E1$(V),12)))+1 : IF J<3AND E4$()<>F1$(V)OR J=0THEN GOSUB 635 : IF Q=0THEN 853 : IF V=KTHEN F5$=F3$ : ELSE F3$=F5$ 0835 V=V+1 : IF V<=MTHEN 810 : V=K : GOSUB 489 : GOSUB 529 : GOSUB 764 : V=K : IF MOD(J,2)=0THEN 848 : F$()=" " : GOSUB 529 : F3$=STR(F1$(V),FNP(0)) : IF F3$<>F5$THEN GOSUB 764 0848 FOR V=KTO M : F1$(V)=" " : NEXT V : GOTO 693 0853 M=V : FOR V=MTO KSTEP -1 : GOSUB 489 : IF T=0THEN 862 : GOSUB 596 : STR(E4$(),FNP(0))=F5$ : X=1 : IF J>0AND E4$()<>F1$(V)THEN GOSUB 637 : X=3 : IF V<MAND E4$()<>F1$(V)THEN GOSUB 635 0862 NEXT V : H=0 : GOTO 693