Listing of file='BDIAG2' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 3148, 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