image of READY prompt

Wang2200.org

Listing of file='BDIAG0 ' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 690, 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"