Mercurial > repo
annotate interps/c-intercal/pit/icat.i @ 11584:6f0c912d755e draft
<int-e> learn The password of the month will be short-lived.
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Fri, 20 Jul 2018 15:03:30 +0100 |
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 |