image of READY prompt

Wang2200.org

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

# Sector 632, program filename = 'IDS2PS49'
1000 REM "IDS2PS49" - Release 2.1 - PASS/FAIL DOCUMENTATION FOR MSG/BOX/FLD DI
     SPLAY
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : IF F1$<>"RINGBELL"THEN 1100
   : F0$=" sound audio alarm"
   : GOSUB '48(0,F0$,0)
   : GOTO 3000
1100 IF VER(F1$,"DISPERR#")<8AND VER(F1$,"DISPMSG#")<8THEN 1200
   : F0$=" display"
   : IF VER(F1$,"DISPERR#")=8THEN F0$=F0$&" error"
   : F0$=F0$&" message below"
   : IF VER(F2$,"########")<8THEN F2$="2401"
1150 F9$=STR(F2$,,2)
   : IF F9$<"10"THEN F9$=STR(F9$,2)
   : E8$=STR(F2$,3,2)
   : IF E8$<"10"THEN E8$=STR(E8$,2)
   : F0$=F0$&" @ row "&F9$&", column "&E8$
   : GOTO 2000
1200 IF F1$<>"PRINTBOX"AND F1$<>"ERASEBOX"THEN 1300
   : OR (F1$,20)
   : F0$=" "&STR(F1$,,5)&" "&STR(F1$,6)&" "&STR(F2$,5,2)&" deep, "&STR(F2$,7)&
     " wide"
   : GOTO 1150
1300 F0$=" display field "&F1$
   : GOTO 1150
2000 GOSUB '48(0,F0$,0)
   : AND (STR(E0$(),5,1),DF)
   : GOSUB '49(0)
   : F4=F4+1
   : IF VER(F1$,"DISPERR#")<8AND VER(F1$,"DISPMSG#")<8THEN 3010
   : F0$=STR(E$(),(VAL(STR(F1$,8))-49)*64+1466)
   : IF F1$="DISPERR0"THEN E$="( The last system error message )"
   : ELSE E$=HEX(22)&F0$&HEX(22)
   : GOSUB '48(4,E$,0)
3000 GOSUB '49(0)
   : F0$=" "
   : X=0
   : F4=F4+1
3010 LOAD T#2,"IDS2PS30"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS49"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"