Listing of file='BDIAG15' on disk='vmedia/732-0050A.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 "