image of READY prompt

Wang2200.org

Listing of file='BDIAG5' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 3279, program filename = 'BDIAG5'
0020 PRINT AT(5,00);"FOR,NEXT....... <-- TESTING",
0080 S=SPACE
0100 X=0
   : FOR I=0TO 0
   : X=X+1
   : NEXT I
   : IF X<>1THEN 8990
0110 X=0
   : FOR I9=1TO 5STEP -1
   : X=X+1
   : NEXT I9
   : IF X<>1THEN 8990
0120 X=0
   : FOR I8=5TO 1
   : X=X+1
   : NEXT I8
   : IF X<>1THEN 8990
0130 X=0
   : FOR I=1TO 5STEP 0
   : X=X+1
   : NEXT I
   : IF X<>1THEN 8990
0140 X=0
   : FOR I=1TO 2
   : FOR I1=1TO 3
   : FOR I2=1TO 5
   : FOR I3=1TO 7
   : FOR I4=1TO 2
   : A$=HEX(3AFDFF3A0D)
   : X=X+1
   : NEXT I4
   : NEXT I3,I2,I1
   : NEXT I
   : IF X<>420THEN 8990
0150 X=0
   : GOTO 160
0155 NEXT I
   : IF X<>15THEN 8990
   : GOTO 200
0158 NEXT J
   : GOTO 155
0160 FOR I=3TO 1STEP -1
   : FOR J=.001TO .005STEP .001
0170 X=X+1
   : GOTO 158
0200 READ N
   : FOR I=1TO N
   : READ I1,I2,I3
0210 X=0
   : FOR I4=I1TO I2STEP I3
   : X=X+1
   : NEXT I4
   : IF X<>5THEN 8990
   : NEXT I
0220 DATA 9,1,5,1,1,5.999999999999,1,.9999999999999,5,1
0230 DATA -2,2,1,-1.99999999999,3,1,3,-1,-1,-.002,.002,.001
0240 DATA .002,-.002,-.001,1E90,5E90,1E90
0300 FOR I=1TO 1
   : X=0
0310 FOR J=1TO 2
   : X=X+1
   : IF X<58THEN 310
0320 NEXT I
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(5)=E(5)+1
9000 PRINT AT(5,16,16);
   : IF E(5)=0THEN PRINT "OK"
   : ELSE PRINT E(5);"ERRORS"
9010 LOAD DC T"BDIAG6"