image of READY prompt

Wang2200.org

Listing of file='BDIAG30' on disk='vmedia/732-0050A.wvd.zip'

# Sector 830, program filename = 'BDIAG30'
0010 REM BDIAG30 7/02/76 -- TESTING ERROR,ERR
0020 PRINT AT(15,32);"ERROR,ERR...... <-- TESTING";
0080 S=SPACE
0100 READ X
   : ERRORIF ERR=70THEN 110
0105 GOTO 8990
0110 IF ERR<>0THEN 8990
   : PACK(#)A$FROM12
   : ERRORIF ERR=71THEN 120
0115 GOTO 8990
0120 IF ERR<>0THEN 8990
   : ERRORGOTO 8990
   : GOTO 8990
0130 SELECT ERROR>60
   : X=1/0
   : ERRORIF ERR<>62THEN 8990
   : IF ERR<>0THEN 8990
   : GOTO 140
0135 GOTO 8990
0140 Y=1
   : X=1/0
   : ERRORY=Y+1
   : X=1/0
   : ERRORY=Y+1
   : Y=Y+1
   : ERRORY=Y+1
0145 IF Y<>4THEN 8990
0150 ERRORGOTO 8990
   : ERRORSTOP
   : ERRORPRINT "ERROR"
   : ERRORGOSUB 8990
   : ERRORLET X=1
   : ERRORFOR I=1TO 2
   : ERRORRETURN
   : ERRORNEXT I
   : ERRORREAD X
   : GOTO 8990
0160 X=1/0
   : ERRORX=1/0
   : ERRORX=1/0
   : ERRORREAD X
   : ERRORREM
   : IF ERR<>70THEN 8990
   : GOTO 170
0165 GOTO 8990
0170 REM
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(30)=E(30)+1
9000 PRINT AT(15,48,16);
   : IF E(30)=0THEN PRINT "OK";
   : ELSE PRINT E(30);"ERRORS"
9010 LOAD DC T"BDIAGEND"