image of READY prompt

Wang2200.org

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

# Sector 867, program filename = 'IDS2CRXX'
1000 REM 'IDS2CRXX'--REPORT CONVERSION--RE-ENTRY FROM IDS2PR12 ETC.
1020 MAT REDIM E0$(249)1,E4$(16)16
   : SELECT #3<D9$(3)>
   : LOAD T#2,"IDS2PCMN"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2CRXX"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"