Mercurial > repo

view interps/c-intercal/pit/iching1.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 .2 <- #32
	PLEASE COME FROM (10)
	DO .1 <- #0
	DO (1020) NEXT
	DO (1020) NEXT
	PLEASE DO %50 (1020) NEXT
	DO (1020) NEXT
	DO (1020) NEXT
	PLEASE DO %50 (1020) NEXT
	DO (1020) NEXT
	DO (1020) NEXT
	PLEASE DO %50 (1020) NEXT
	DO READ OUT .1
	DO (30) NEXT
(10)	DO .2 <- .2~#62
(20)	DO RESUME "?.2$#2"~#3
(30)	DO (20) NEXT
	PLEASE FORGET #1
	PLEASE GIVE UP