Listing of file='IDS2PPX0' on disk='vmedia/701-2725B.wvd.zip'
# Sector 218, program filename = 'IDS2PPX0' 1000 REM "IDS2PPX0" 1001 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" 1002 F6$(53)="Y" : IF E$<>"\CC\CF\C1\C4\D3\D5\C2\D3"THEN 1020 : O=26 : IF F3$<>" "AND F3$<>R4$OR R8$<F6$THEN 1016 : IF F7$=" "THEN 1006 : GOSUB '32("IDS2sP01") 1004 GOSUB '34(1) : IF E$=F7$THEN 1006 : GOSUB '38(27," ") : GOTO 1004 1006 F6$(54)=F6$(17)AND HEX(03) : V=VAL(F6$(54)) : X=514 : E$="IDS2SUB7" : ON UGOTO ,1010,1012,1020,1038 : ON VGOTO 1020,,1020 : GOTO 1014 1010 IF V>1THEN 1020 : STR(E$,8)="8" : X=458 : GOTO 1014 1012 IF V=3THEN 1020 : IF SPACE<1362THEN U=1 : ELSE E$=E$&"IDS2SUB8" 1014 O=25 : F6$(54)=F6$(54)OR BIN(U) : IF SPACE>XTHEN LOAD T#2,<LEN(E$)/8>E$1002,1016BEG 1000 1016 GOSUB '38(O,E8$) : GOSUB '40(R3$(1)) 1020 GOSUB '32(E9$(1)) : GOTO 1032 1032 F=MIN(F+1,F0) : F6$(14)="Y" 1038 F6$(52)="N" : H=1 : GOSUB '34(F) : E3$=" " : IF F6$(52)="N"AND F<=F0THEN 1025 : GOTO 1032