Listing of file='BDIAG0' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2956, program filename = 'BDIAG0' 0040 COM P : P=P+1 0050 COM E(50) 0070 I=1 : J=0 0080 IF E(I)<>0THEN J=J+1 : I=I+1 : IF I<=30THEN 80 0081 IF G6=0THEN 85 : IF P=1THEN 85 : SELECT PRINT 215 : PRINT J;" ERRORS ON PASS # ";P-1 : SELECT PRINT 005 0085 IF J=0THEN PRINT HEX(03) 0090 PRINT AT(0,10);"*** TESTING BASIC-2 ***";AT(0,50);"PASS#";P : PRINT 0100 LOAD DC T"BDIAG1"