Mercurial > repo

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<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

	DO COME FROM (80)
	PLEASE %50 REINSTATE (10)
        DO .1 <- #1
(10)    DO NOT %99 .1 <- #2
        DO .1 <- #3
	PLEASE COME FROM (10)
        DO READ OUT .1
        DO .1 <- #1
(20)    DO %50 .1 <- #2
        DO .1 <- #3
(30)	PLEASE %50 COME FROM (20)
	DO LOSE
	PLEASE %90 COME FROM (30)
(40)	PLEASE ABSTAIN FROM (50)
        DO READ OUT .1
(50)	PLEASE COME FROM (40)
(60)	DO (70) NEXT
        DO GIVE UP
(70)	DO READ OUT #65535
	DO RESUME #1
	DO WIN
(80)	DO COME FROM (60)