Mercurial > repo
view interps/c-intercal/pit/tests/testonce.i @ 9070:77f510ad2f14
<evilipse> ` chmod 777 / -R
author | HackBot |
---|---|
date | Sun, 25 Sep 2016 20:07:36 +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