view interps/c-intercal/pit/tests/testonce.i @ 12518:2d8fe55c6e65 draft default tip

<int-e> learn The password of the month is release incident pilot.
author HackEso <hackeso@esolangs.org>
date Sun, 03 Nov 2024 00:31:02 +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