image of READY prompt

Wang2200.org

Listing of file='BDIAG15' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 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 "