image of READY prompt

Wang2200.org

Listing of file='IDS2PI02' on disk='vmedia/701-2717B.wvd.zip'

# Sector 649, program filename = 'IDS2PI02'
1000 REM "IDS2PI02" - "START" PROGRAM LOAD MODULE FOR EDIT & DOCUMENT
1001 E9=1E99
   : E9=1E99
   : LOAD T#4,E9$(3)1000,1018
1020 IF VAL(E6$)<2THEN LOAD T#2,"IDS2PI03"1000,
   : LOAD T#2,"IDS2PI07"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PI02"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"