image of READY prompt

Wang2200.org

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 "