image of READY prompt

Wang2200.org

Listing of file='IDS2PC03' on disk='vmedia/701-2725B.wvd.zip'

# Sector 599, program filename = 'IDS2PC03'
1000 REM 'IDS2PC03' - CONVERSION MODULE - LOADED BY PF12, LOADS PF11 FOR EACH
      ALT, THEN LOADS PF14
1010 MAT REDIM F$(6)83
   : DATA LOAD DC OPEN T#5,C7$
   : DATA LOAD DC #5,F$()
   : P7=P7+1
   : IF P7>16OR STR(F$(),8*P7+267,8)=" "THEN 1030
   : E9$(1)=STR(F$(),8*P7+267,8)
   : LOAD T#2,"IDS2PF11"1000,
1030 E3$()=" "
   : E3$(1)=STR(F$(),82,8)
   : STR(E3$(),9,128)=STR(F$(),275,128)
   : E$="Y"
   : R3$(1)="IDS2PC04"
   : LOAD T#2,"IDS2PF14"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PC03"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"