10 .AHL'S SIMPLE BENCHMARK
15 NT=0;A=0;R=0;S=0;CLEAR
20 FOR N = 1 TO 100; A=N
30 FOR I = 1 TO 10
40 GOSUB 400; R = R + RND(2)-1
50 NEXT I
60 FOR I = 1 TO 10
70 A = A * A; R = R + RND(2)-1
80 NEXT I
90 S = S + A; NEXT N
100 PRINT ABS(1010-S÷5)
110 PRINT ABS(1000-R)
120 STOP
400 X=A÷2
410 FOR T = 1 TO 10; IF X=0 X=1
420 Y=A÷X;IF X=Y GOTO 440
430 X=(X+Y)÷2;NEXT T
440 A=X
450 RETURN
