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