Mercurial > repo
annotate interps/c-intercal/pit/icat.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 PLEASE DO ,1 <- #1 |
2 DO .4 <- #0 | |
3 DO .5 <- #0 | |
4 DO COME FROM (30) | |
5 DO WRITE IN ,1 | |
6 DO .1 <- ,1SUB#1 | |
7 DO (10) NEXT | |
8 PLEASE GIVE UP | |
9 (20) PLEASE RESUME '?.1$#256'~'#256$#256' | |
10 (10) DO (20) NEXT | |
11 DO FORGET #1 | |
12 PLEASE DO .2 <- .4 | |
13 DO (1000) NEXT | |
14 DO .4 <- .3~#255 | |
15 PLEASE DO .3 <- !3~#15'$!3~#240' | |
16 DO .3 <- !3~#15'$!3~#240' | |
17 DO .2 <- !3~#15'$!3~#240' | |
18 PLEASE DO .1 <- .5 | |
19 DO (1010) NEXT | |
20 DO .5 <- .2 | |
21 DO ,1SUB#1 <- .3 | |
22 (30) PLEASE READ OUT ,1 | |
23 |