Mercurial > repo

comparison interps/c-intercal/pit/tests/testlib2.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
2 DO (10) NEXT
3
4 (10) PLEASE FORGET #1
5 DO WRITE IN .1
6 DO (2000) NEXT
7 DO READ OUT .1
8 DO GIVE UP
9
10 (20) PLEASE FORGET #1
11 DO WRITE IN .1
12 DO (22) NEXT
13 (21) DO (2010) NEXT
14 DO READ OUT .1
15 (22) PLEASE FORGET #1
16 DO (21) NEXT
17 DO READ OUT .1
18 DO GIVE UP
19
20 (30) PLEASE FORGET #1
21 DO WRITE IN .1
22 DO WRITE IN .2
23 DO (2020) NEXT
24 DO READ OUT .1
25 DO GIVE UP
26
27
28
29 (2010) PLEASE ABSTAIN FROM (2004)
30 (2000) DO STASH .2
31 DO .2 <- #1
32 DO (2001) NEXT
33 (2001) PLEASE FORGET #1
34 DO .1 <- '?.1$.2'~'#0$#65535'
35 DO (2002) NEXT
36 DO .2 <- !2$#0'~'#32767$#1'
37 DO (2001) NEXT
38 (2003) PLEASE RESUME "?!1~.2'$#1"~#3
39 (2002) DO (2003) NEXT
40 PLEASE RETRIEVE .2
41 (2004) PLEASE RESUME #2
42 PLEASE DO REINSTATE (2004)
43 PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
44
45 (2020) PLEASE STASH .2 + .3
46 DO (1021) NEXT
47
48
49
50 (1020) DO STASH .2 + .3
51 DO .2 <- #1
52 PLEASE DO (1021) NEXT
53 (1021) DO FORGET #1
54 DO .3 <- "?!1~.2'$#1"~#3
55 PLEASE DO .1 <- '?.1$.2'~'#0$#65535'
56 DO (1022) NEXT
57 DO .2 <- !2$#0'~'#32767$#1'
58 DO (1021) NEXT
59 (1023) PLEASE RESUME .3
60 (1022) DO (1023) NEXT
61 PLEASE RETRIEVE .2 + .3
62 PLEASE RESUME #2