Mercurial > repo
view interps/c-intercal/pit/tests/testonce.i @ 2251:7e956a2cb1df
<oerjan> sed -i \'s/344/343/\' bin/colorize
author | HackBot |
---|---|
date | Mon, 25 Feb 2013 22:40:21 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
PLEASE COME FROM (30) ONCE PLEASE COME FROM (20) ONCE PLEASE COME FROM (10) ONCE DO .1 <- #1 (1) DO .1 <- #2 ONCE (10) DO READ OUT .1 (20) DO NOTHING (30) DO REINSTATE (1) PLEASE COME FROM (40) ONCE PLEASE COME FROM (50) ONCE PLEASE COME FROM (60) ONCE DO .1 <- #1 (2) DO NOT .1 <- #2 ONCE (40) DO READ OUT .1 (50) DO NOTHING (60) DO ABSTAIN FROM (2) DO COME FROM (70) ONCE DO COME FROM (80) ONCE DO COME FROM (90) ONCE DO .1 <- #1 (3) DO .1 <- #2 AGAIN (70) DO READ OUT .1 (80) DO ABSTAIN FROM (3) ONCE (90) DO NOTHING DO COME FROM (100) ONCE DO COME FROM (110) ONCE DO COME FROM (120) ONCE DO .1 <- #1 (4) DO NOT .1 <- #2 AGAIN (100) DO READ OUT .1 (110) DO REINSTATE (4) ONCE (120) DO NOTHING PLEASE GIVE UP