Listing of file='IDS2SUB5' on disk='vmedia/701-2715B.wvd.zip'
# Sector 822, program filename = 'IDS2SUB5' 0902 DEFFN'41(F5$,E$,J) : GOSUB 521 : X=0 0905 DEFFN'79 : K=FN2(10) : O=22 : IF STR(E1$(K),52,1)>R8$THEN 442 : IF X=0THEN GOSUB '51(E$) : ON X+1GOSUB 635 : ON Q+1GOTO 693 : P=C : GOSUB 556 : IF J<=0OR Q<0THEN 927 : GOSUB 768 : FOR V=KTO M : GOSUB 489 : GOSUB 596 : IF T>0THEN F1$(V)=STR(E4$(),,FN1(24))&F3$ : NEXT V 0927 S=Q : IF STR(E1$(V),54,1)>R8$THEN GOSUB 952 : Q=S : IF ABS(J)>=1THEN STR(E$(),ABS(J),FN2(13))=F$() : GOTO 693