Listing of file='BDIAG21' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 821, program filename = 'BDIAG21' 0020 PRINT AT(06,32);"ON GOTO,GOSUB.. <-- TESTING", 0080 S=SPACE 0090 X=0 : FOR I=0TO 14 : ON IGOSUB 101,102,103,104,105,106,107,108,109,110,111,112,113 : NEXT I : IF X<>.1111111111111THEN 8990 : GOTO 120 0101 IF I<1OR I>=2THEN 8990 : X=X+.1 : RETURN 0102 IF I<2OR I>=3THEN 8990 : X=X+.01 : RETURN 0103 IF I<3OR I>=4THEN 8990 : X=X+.001 : RETURN 0104 IF I<4OR I>=5THEN 8990 : X=X+.0001 : RETURN 0105 IF I<5OR I>=6THEN 8990 : X=X+.00001 : RETURN 0106 IF I<6OR I>=7THEN 8990 : X=X+.000001 : RETURN 0107 IF I<7OR I>=8THEN 8990 : X=X+.0000001 : RETURN 0108 IF I<8OR I>=9THEN 8990 : X=X+.00000001 : RETURN 0109 IF I<9OR I>=10THEN 8990 : X=X+.000000001 : RETURN 0110 IF I<10OR I>=11THEN 8990 : X=X+.0000000001 : RETURN 0111 IF I<11OR I>=12THEN 8990 : X=X+.00000000001 : RETURN 0112 IF I<12OR I>=13THEN 8990 : X=X+.000000000001 : RETURN 0113 IF I<13OR I>=14THEN 8990 : X=X+.0000000000001 : RETURN 0120 X=0 : FOR I=-3TO 5 : ON IGOSUB 101,102,103,104,105 : NEXT I : IF X<>.11111THEN 8990 0130 X=0 : FOR I=0TO 8STEP .2 : ON IGOSUB 101,102,103,104,105,106,107 : NEXT I : IF X<>.5555555THEN 8990 0140 X=0 : FOR I=0TO 6 : ON IGOSUB ,,,,105 : NEXT I : IF X<>.00001THEN 8990 0160 X=0 : FOR I=0TO 14 : A$=BIN(I) : ON A$GOSUB 101,102,103,104,105,106,107,108,109,110,111,112,113 : NEXT I : IF X<>.1111111111111THEN 8990 0170 X=0 : FOR I=0TO 14STEP .5 : ON IGOSUB 101,,103,,,106,,,,110,,112 : NEXT I : IF X<>.202002000202THEN 8990 0300 J=1 : FOR I=0TO 10 : X=0 : ON IGOTO 391,392,393,394,395,396,397,398,399 : IF I>=1AND I<=9THEN 8990 0310 NEXT I 0320 J=2 : FOR I=0TO 10 : X=0 : STR(A$,2)=BIN(I) : ON STR(A$,2)GOTO 391,392,393,394,395,396,397,398,399 : IF I>=1AND I<=9THEN 8990 0330 NEXT I 0340 J=3 : FOR I=0TO 10 : X=0 : ON IGOTO 391,,393,,,396,397,,399 : IF I=1OR I=3OR I=6OR I=7OR I=9THEN 8990 0350 NEXT I : GOTO 8980 0391 X=X+1 0392 X=X+1 0393 X=X+1 0394 X=X+1 0395 X=X+1 0396 X=X+1 0397 X=X+1 0398 X=X+1 0399 X=X+1 0400 IF I<>10-XTHEN 8990 : IF J=1THEN 310 : IF J=2THEN 330 : GOTO 350 8980 I=SPACE : IF I=STHEN 9000 8990 E(21)=E(21)+1 9000 PRINT AT(06,48,16); : IF E(21)=0THEN PRINT "OK"; : ELSE PRINT E(21);"ERRORS" 9010 LOAD DC T"BDIAG22 "