image of READY prompt

Wang2200.org

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

# Sector sector 1005, program filename = 'BDIAG2  '
0000 IF X=0THEN 20
   : GOTO 100
   : E=1
0001 E=1
0020 PRINT AT(2,00);"GOTO........... <-- TESTING",
0025 X,Y,Z,E,I=0
0030 X=SPACE
   : GOSUB 100
   : Z=SPACE
   : IF X<>ZTHEN E=1
   : GOTO 8000
0100 IF Z=1THEN RETURN
   : GOTO 102
0101 E=1
0102 I=I+1
   : IF I=5THEN 110
   : GOTO 102
   : E=1
0103 E=1
0108 GOTO 112
0109 E=1
0110 GOTO 108
   : E=1
0111 E=1
0112 GOTO 2227
   : E=1
0113 E=1
2226 E=1
2227 GOTO 9999
   : E=1
2228 E=1
8000 IF E<>0THEN E(2)=E(2)+1
9000 PRINT AT(2,16,16);
   : IF E(2)=0THEN PRINT "OK"
   : ELSE PRINT E(2);"ERRORS"
9010 LOAD DC T"BDIAG3"
9999 Z=1
   : GOTO 0