image of READY prompt

Wang2200.org

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

# Sector 701, program filename = 'BDIAG19'
0020 PRINT AT(04,32);"EXPRESSIONS.... <-- TESTING",
0080 S=SPACE
0100 IF 1+5*3/4^2<>1.9375THEN 8990
   : IF -2*3<>-6THEN 8990
   : IF -3^2<>-9THEN 8990
   : IF (-3)^2<>9THEN 8990
   : IF 9/3*5<>15THEN 8990
   : IF -10*2-3<>-23THEN 8990
0110 IF ((((1+5)*3)/4)^2)<>20.25THEN 8990
0120 IF -(((((((((((((((((((((((((((((((((((((((((((3)))))))))))))))))))))))))
     ))))))))))))))))))/2<>-1.5THEN 8990
0125 SELECT R
0130 IF ABS(SIN(#PI/2)-1)>.0000000001THEN 8990
0140 IF ABS(COS(#PI)+1)>.0000000001THEN 8990
0150 IF ABS(TAN(#PI/4)-1)>.0000000001THEN 8990
0160 IF ABS(ARCSIN(1)-#PI/2)>.0000000001THEN 8990
0170 IF ABS(ARCCOS(-1)-#PI)>.0000000001THEN 8990
0180 IF ABS(ARCTAN(1)-#PI/4)>.0000000001THEN 8990
0190 IF ABS(ATN(1)-#PI/4)>.0000000001THEN 8990
0200 IF RND(0)+RND(1)<>RND(0)+RND(1)THEN 8990
0210 IF INT(5.9)<>5THEN 8990
   : IF INT(-5.2)<>-6THEN 8990
0220 IF SGN(0)<>0THEN 8990
   : IF SGN(2)<>1THEN 8990
   : IF SGN(-2)<>-1THEN 8990
0230 IF ABS(LOG(2.718281828459)-1)>.0000000001THEN 8990
0240 IF ABS(EXP(1)-2.718281828459)>.0000000001THEN 8990
0250 IF ABS(LGT(1000)-3)>.0000000001THEN 8990
0260 IF ABS(SQR(64)-8)>.0000000001THEN 8990
0270 IF ABS(-.23)<>.23THEN 8990
0280 IF FIX(5.8)<>5THEN 8990
   : IF FIX(-5.2)<>-5THEN 8990
0290 IF MOD(8,3)<>2THEN 8990
0300 IF ROUND((1.236,2)<>1.24THEN 8990
0310 IF MAX(1,3,5,2,4)<>5THEN 8990
0320 IF MIN(5,4,1,6,7,2)<>1THEN 8990
0330 A$="123.45A"
   : IF NUM(A$)<>6THEN 8990
0340 IF POS(A$=".")<>4THEN 8990
0350 IF LEN(A$)<>7THEN 8990
0360 IF VER(A$,"###.###")<>6THEN 8990
0370 SELECT ERROR>60
   : X=1E-50*1E-60
   : IF ERR<>60THEN 8990
0380 IF SPACE<300THEN 8990
0390 IF SPACEK<8THEN 8990
0400 IF VAL("A")<>65THEN 8990
0410 IF FN1(2)<>8THEN 8990
   : DEFFN1(X)=X^3
0420 IF ABS(SQR(EXP(ARCSIN(ARCTAN(LOG(#PI)))))-1.6663579865)>.00001THEN 8990
8970 GOTO 9000
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(19)=E(19)+1
9000 PRINT AT(04,48,16);
   : IF E(19)=0THEN PRINT "OK";
   : ELSE PRINT E(19);"ERRORS"
9010 LOAD DC T"BDIAG20 "