image of READY prompt

Wang2200.org

Listing of file='IDS2PU11' on disk='vmedia/701-2715B.wvd.zip'

# Sector 646, program filename = 'IDS2PU11'
1000 REM - "IDS2PU11" - CLEAR TC COMMON VARIABLES AND LOAD MENU
1010 COM CLEAR C1
   : IF F6$(20)="X"THEN R3$()=STR(R3$(),10)
   : IF F6$(20)="Z"THEN R3$()=STR(R3$(),19)
   : F6$(20)=" "
   : IF F6$(53)="N"AND F6$(21)="C"THEN 1040
   : R3$()=STR(R3$(),10)
   : P=2
   : IF F6$(53)="Y"AND STR(R3$(),,4)<>"IDS2"THEN P=4
   : MAT REDIM E3$(249)8
   : F6$(14)="Y"
1020 IF F6$(17)<>HEX(60)THEN 1030
   : F0$="IDS2SUB1IDS2SUB2IDS2SUB3IDS2SUB4IDS2SUB5IDS2SUB6IDS2LOCL"
   : LOAD T#2,<7>F0$0,999BEG 1030
1030 LOAD T#P,R3$(1)1000,
1040 F6$(21)=" "
   : STR(R3$(),,9)=STR(R3$(),10)
   : COM CLEAR E1$()
   : H=2
   : E=21
   : G=500
   : E$="IDS2P001IDS2P004"
   : IF F6$(17)<>HEX(60)THEN LOAD T#2,<2>E$1000,
   : COM CLEAR E()
   : LOAD T#2,"IDEAS2"
1050 DEFFN'127"Q$=";HEX(22);"IDS2PU11";HEX(22);":SCRATCHTQ$:SAVET()Q$1000,:LIS
     TSHEX(03)D1000,";HEX(0D)
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PU11"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"