Mercurial > repo

comparison interps/c-intercal/pit/icat.i @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<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 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