Listing of file='BDIAG30 ' on disk='vmedia/mvp-diag-3.5.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"