image of READY prompt

Wang2200.org

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

# Sector 274, program filename = 'IDS2PB00'
1000 REM "IDS2PB00" - Batch generator - set up to load PR00
1010 E$="\C0\C2\C1\D4\C3\C8\A1\C0"
   : IF VAL(E6$)<>4OR R3$(1)="IDS2MB02"THEN LOAD T#2,"IDS2PR00"1000,
   : LOAD T#2,"IDS2PS13"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PB00"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"