Mercurial > repo
comparison interps/c-intercal/pit/random.doc @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
| author | HackBot |
|---|---|
| date | Sun, 09 Dec 2012 19:30:08 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 995:6883f5911eb7 | 996:859f9b4339e6 |
|---|---|
| 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) |