Mercurial > repo

diff interps/c-intercal/pit/random.i @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/c-intercal/pit/random.i	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,20 @@
+	DO (1900) NEXT
+	DO READ OUT .1
+	PLEASE GIVE UP
+(1900)	DO STASH .2 + .3
+	DO .3 <- #65535
+	DO (1903) NEXT
+(1903)	PLEASE FORGET #1
+	DO .2 <- #0
+	PLEASE %50 IGNORE .2
+	DO .2 <- #1
+	PLEASE REMEMBER .2
+	DO .1 <- !1$.2'~"#65535$#1"
+	DO .3 <- .3~#65534
+	DO (1902) NEXT
+	DO (1903) NEXT
+(1902)	DO (1904) NEXT
+	DO RETRIEVE .2 + .3
+	DO FORGET #1
+	PLEASE RESUME #1
+(1904)	PLEASE RESUME '?"!3~.3'~#1"$#1'~#3