annotate interps/c-intercal/pit/random.i @ 6235:a0990f170be1
<tswett> learn No means hi.
author |
HackBot |
date |
Sun, 22 Nov 2015 15:57:19 +0000 |
parents |
859f9b4339e6 |
children |
|
rev |
line source |
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
|