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