Listing of file='BDIAG15' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 113, program filename = 'BDIAG15'
0020 PRINT AT(15,00);"SELECT......... <-- TESTING",
0080 S=SPACE
0090 DIM X(1)
0110 SELECT D
: IF ABS(SIN(90)-1)>.00000001THEN 8990
0120 SELECT G
: IF ABS(SIN(100)-1)>.00000001THEN 8990
0130 SELECT R
: IF ABS(SIN(#PI/2)-1)>.00000001THEN 8990
0140 SELECT NOROUND(
: IF 2/3<>.6666666666666THEN 8990
0150 SELECT ROUND(
: IF 2/3<>.6666666666667THEN 8990
0200 FOR I=58TO 69
: ON I-57SELECT ERROR;ERROR>59;ERROR>60;ERROR>61;ERROR>62;ERROR>63;ERROR>64
;ERROR>65;ERROR>66;ERROR>67;ERROR>68;ERROR>69
0205 X=1E-60*1E-60
: ERRORIF 60<=IOR ERR<>60THEN 8990
0210 X=1E+60*1E+60
: ERRORIF 61<=IOR ERR<>61THEN 8990
0215 X=1/0
: ERRORIF 62<=IOR ERR<>62THEN 8990
0220 X=0/0
: ERRORIF 63<=IOR ERR<>63THEN 8990
0225 X=0^(-3)
: ERRORIF 64<=IOR ERR<>64THEN 8990
0230 X=(-3)^.5
: ERRORIF 65<=IOR ERR<>65THEN 8990
0235 X=SQR(-3)
: ERRORIF 66<=IOR ERR<>66THEN 8990
0240 X=LOG(0)
: ERRORIF 67<=IOR ERR<>67THEN 8990
0245 X=LOG(-1)
: ERRORIF 68<=IOR ERR<>68THEN 8990
0250 X=ARCSIN(2)
: ERRORIF 69<=IOR ERR<>69THEN 8990
0260 NEXT I
: SELECT ERROR>61
0310 SELECT P9,P8,P7,P6,P5,P4,P3,P2,P1,P0,P
0320 FOR I=1TO 255
: SELECT LINEI
: NEXT I
: SELECT LINE15
0330 FOR I=0TO 255
: SELECT CO /005(I)
: NEXT I
: SELECT CO 005(64)
0340 GOTO 410
0350 GOTO 8990
: SELECT CI 001,INPUT /A02,PRINT 123,LIST /ABC,PLOT 405,TAPE /10A,DISK 310,
PRINT 005(64),LIST /005(64)
0360 GOTO 8990
: SELECT #0001,#1ABC,#2/310,#3220,#4310,#5B10,#6FED,#7/FED,#821D,#9000,#10/
012,#11/345,#12/678,#13/9AB,#14/CDE,#15/FDC,#X/310,#X1/330,#X(1)/340
0410 FOR I=-3TO 5
: SELECT R
: ON ISELECT D ;G;R
: GOSUB 490
: NEXT I
0420 FOR I=0TO 4STEP .5
: SELECT R
: ON I*I+3SELECT ;;;D ;;;G;;;;;R
: GOSUB 490
: NEXT I
0480 GOTO 500
0490 X=ROUND((SIN(1),4)
: IF X=.8415AND I=3THEN RETURN
: IF X=.0175AND I=1THEN RETURN
: IF X=.0157AND I=2THEN RETURN
: IF X<>.8415OR I=2OR I=3THEN 8990
: RETURN
0492 X=ROUND((SIN(1),4)
: IF X=.8415AND I<>3THEN 8990
: IF X=.0175AND I<>1THEN 8990
: IF X=.0157AND I<>2THEN 8990
0500 FOR I=0TO 4
: SELECT R ,ERROR
: ON ISELECT D ,ERROR>60;G,ERROR>61;D ,G,ERROR>62,R
: ON IGOTO 520,540,560
0510 IF ROUND((SIN(1),4)<>.8415THEN 8990
: X=1E-60*1E-60
: ERRORGOTO 580
0515 GOTO 8990
0520 IF ROUND((SIN(1),4)<>.0175THEN 8990
: X=1E-60*1E-60
: ERRORGOTO 8990
0525 X=1E60*1E60
: ERRORGOTO 580
0530 GOTO 8990
0540 IF ROUND((SIN(1),4)<>.0157THEN 8990
: X=1E60*1E60
: ERRORGOTO 8990
0545 X=1/0
: ERRORGOTO 580
0550 GOTO 8990
0560 IF ROUND((SIN(1),4)<>.8415THEN 8990
: X=1/0
: ERRORGOTO 8990
0565 X=0/0
: ERRORGOTO 580
0570 GOTO 8990
0580 NEXT I
: SELECT ERROR>61,R
8980 I=SPACE
: IF I=STHEN 9000
8990 E(15)=E(15)+1
9000 PRINT AT(15,16,16);
: IF E(15)=0THEN PRINT "OK";
: ELSE PRINT E(15);"ERRORS"
9010 LOAD DC T"BDIAG16 "