new

10 print "non-comprehensive test cpu core"
20 print "mc-10 and alice"
90 c=0
100 read a,b
110 if str$(exp(a)) <> str$(b) then r=110:c=c+1:gosub 8000

120 restore:read a,b
130 if str$(exp(a)) <> str$(b) then r=110:c=c+1:gosub 8000
140 read a,b:a=cos(tan(exp(sqr(a))))
150 if str$(a) <> str$(b) then r=150:c=c+1:gosub 8000
160 a=sin(log(sqr(int(3.8+2.4-0.05/2))))
170 b=.78075907
180 if str$(a) <> str$(b) then r=180:c=c+1:gosub 8000
190 a=sgn(-32767):b=-1
200 if str$(a) <> str$(b) then r=200:c=c+1:gosub 8000
210 a=sgn(32767):b=1
220 if str$(a) <> str$(b) then r=220:c=c+1:gosub 8000
230 a=sgn(100 - 100):b=0
240 if str$(a) <> str$(b) then r=240:c=c+1:gosub 8000
250 a=abs(-1000)+abs(int(2.0 * 16.678/2))+int(sqr(8^2) + 0.0001)
260 b=1024
270 if str$(a) <> str$(b) then r=270:c=c+1:gosub 8000
280 a=(((32767-63) and 255) or 1):b=1+128+64
290 if str$(a) <> str$(b) then r=290:c=c+1:gosub 8000
300 a$="abc":d$="a":e$="b":b$=d$+e$+"c"
310 if a$ <> b$ then r=310:c=c+1:gosub 8000
320 a=999:a$="9"+"9"+str$(3*3):b=val(a$)
330 if str$(a) <> str$(b) then r=330:c=c+1:gosub 8000
340 dim k(10):k(1)= 1/2
350 for j=1 to 33 step 1/2
360 k(1) = k(1) + 1/2
370 if str$(k(1)) <> str$(j) then r=370:c=c+1:gosub 8000
380 next j


7900 if c=0 then print "no errors":end
7910 print c;" errors found":end
7999 end
8000 print "bad in line";r:return
9000 data 1,2.71828183
9010 data 2,.106194526
