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

<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/tests/testcreate.i	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,13 @@
+	DO .3 <- #5
+	DO .4 <- #6
+	DO CREATE (5) SWITCH .1 WITH .2
+	DO SWITCH .3 WITH .4
+	DO READ OUT .3
+	DO READ OUT .4
+	PLEASE GIVE UP
+(5)	PLEASE STASH :1
+	DO :1 <- :1601
+	DO :1601 <- :1602
+	DO :1602 <- :1
+	DO RETRIEVE :1
+	PLEASE RESUME #1