Mercurial > repo
comparison interps/c-intercal/pit/tests/testonce.i @ 996:859f9b4339e6
<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 COME FROM (30) ONCE | |
2 PLEASE COME FROM (20) ONCE | |
3 PLEASE COME FROM (10) ONCE | |
4 DO .1 <- #1 | |
5 (1) DO .1 <- #2 ONCE | |
6 (10) DO READ OUT .1 | |
7 (20) DO NOTHING | |
8 (30) DO REINSTATE (1) | |
9 | |
10 PLEASE COME FROM (40) ONCE | |
11 PLEASE COME FROM (50) ONCE | |
12 PLEASE COME FROM (60) ONCE | |
13 DO .1 <- #1 | |
14 (2) DO NOT .1 <- #2 ONCE | |
15 (40) DO READ OUT .1 | |
16 (50) DO NOTHING | |
17 (60) DO ABSTAIN FROM (2) | |
18 | |
19 DO COME FROM (70) ONCE | |
20 DO COME FROM (80) ONCE | |
21 DO COME FROM (90) ONCE | |
22 DO .1 <- #1 | |
23 (3) DO .1 <- #2 AGAIN | |
24 (70) DO READ OUT .1 | |
25 (80) DO ABSTAIN FROM (3) ONCE | |
26 (90) DO NOTHING | |
27 | |
28 DO COME FROM (100) ONCE | |
29 DO COME FROM (110) ONCE | |
30 DO COME FROM (120) ONCE | |
31 DO .1 <- #1 | |
32 (4) DO NOT .1 <- #2 AGAIN | |
33 (100) DO READ OUT .1 | |
34 (110) DO REINSTATE (4) ONCE | |
35 (120) DO NOTHING | |
36 | |
37 PLEASE GIVE UP |