996
|
1 DO (1900) NEXT
|
|
2 DO READ OUT .1
|
|
3 PLEASE GIVE UP
|
|
4 (1900) DO STASH .2 + .3
|
|
5 DO .3 <- #65535
|
|
6 DO (1903) NEXT
|
|
7 (1903) PLEASE FORGET #1
|
|
8 DO .2 <- #0
|
|
9 PLEASE %50 IGNORE .2
|
|
10 DO .2 <- #1
|
|
11 PLEASE REMEMBER .2
|
|
12 DO .1 <- !1$.2'~"#65535$#1"
|
|
13 DO .3 <- .3~#65534
|
|
14 DO (1902) NEXT
|
|
15 DO (1903) NEXT
|
|
16 (1902) DO (1904) NEXT
|
|
17 DO RETRIEVE .2 + .3
|
|
18 DO FORGET #1
|
|
19 PLEASE RESUME #1
|
|
20 (1904) PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
|
|
21
|
|
22 Random.i: Store a random number between 0 and 65535 in .1
|
|
23 (blojo@ocf.berkeley.edu)
|