996
|
1 PLEASE NOTE that this program checks the routine 1910 and calculates
|
|
2 its standard deviation; the output values should quickly converge to
|
|
3 around #10000 if that routine correctly follows the manual.
|
|
4 DO :3 <- #0
|
|
5 PLEASE DO .6 <- #0
|
|
6 DO COME FROM (20)
|
|
7 DO .1 <- #1200
|
|
8 DO (1910) NEXT
|
|
9 DO .1 <- #600
|
|
10 (5) DO (1010) NEXT
|
|
11 DO .1 <- .2
|
|
12 DO .2 <- #600
|
|
13 DO (1010) NEXT
|
|
14 DO COME FROM '.3~#2048'$#3
|
|
15 DO .1 <- .3
|
|
16 PLEASE DO .2 <- .3
|
|
17 DO (1530) NEXT
|
|
18 DO :2 <- :3
|
|
19 DO (1500) NEXT
|
|
20 DO .1 <- .6
|
|
21 PLEASE DO (1020) NEXT
|
|
22 DO .6 <- .1
|
|
23 DO :1 <- :3
|
|
24 DO :2 <- .1
|
|
25 PLEASE DO (1550) NEXT
|
|
26 DO READ OUT :3
|
|
27 DO :3 <- :1
|
|
28 (20) PLEASE DO NOTHING
|