image of READY prompt

Wang2200.org

Listing of file='IDS2PS44' on disk='vmedia/701-2724B.wvd.zip'

# Sector 602, program filename = 'IDS2PS44'
1000 REM "IDS2PS44" - Release 2.1 - PASS/FAIL DOCUMENTATION FOR FN TRAP & HELP
      SCREEN
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : IF F1$<>"HELPSCRN"THEN 1100
   : IF F2$=" "THEN E$=" disable help screen"
   : IF F2$<>" "THEN E$=" enable help screen "&F2$
   : GOTO 2500
1100 E$=" set function key traps for"
   : E8$=STR(F1$,,8)&F2$
   : FOR I=1TO 15STEP 2
   : F9$=STR(E8$,I)
   : IF VER(F9$,"##")<2THEN 2000
   : IF F9$="31"THEN F5$="CANCEL"
   : ELSE IF F9$="33"THEN F5$="EDIT"
   : ELSE F5$=F9$
   : E$=E$&" "&F5$&","
2000 NEXT I
   : IF STR(E$,LEN(E$))=","THEN STR(E$,LEN(E$))=" "
2500 GOSUB '48(0,E$,0)
   : AND (STR(E0$(),5,1),DF)
   : GOSUB '49(0)
   : IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1
   : ELSE F4=F4+1
   : LOAD T#2,"IDS2PS30"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS44"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"