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"