Listing of file='BDIAG5' on disk='vmedia/732-0050A.wvd.zip'
# Sector 1169, 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"