image of READY prompt

Wang2200.org

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