view interps/c-intercal/inst/share/ick-0.29/syslib.6i @ 9071:581584df6d82

<fizzie> revert 942e964c81c1
author HackBot
date Sun, 25 Sep 2016 20:17:31 +0000
parents 859f9b4339e6
children
line wrap: on
line source

		PLEASE KNOCK THRICE TWO TIMES BEFORE ENTERING

	(1000)	PLEASE IGNORE .4
		PLEASE ABSTAIN FROM (1005)
	(1009)	DO STASH .1 + .2 + .5 + .6
		DO .4 <- #1
		DO (1004) NEXT
	(1004)	PLEASE FORGET #1
		DO .3 <- '^.1$.2'~'#0$#9331'
		DO .6 <- '?"'V"'V"'&.1$.2'~'#0$#9331'"$"'^"'@.1$
		     .2'~'#0$#9331'"$#9331'~'#0$#9331'"'~'#0$
		     #9331'"$"'^"'2@.1$.2'~'#0$#9331'"$#18662'
		     ~'#0$#9331'"'~'#0$#37324'"$#37324'~'#0$#9331'
		PLEASE DO .5 <- "?!6~#38880'$#6"~#6
		DO (1002) NEXT
		DO .4 <- #2
	(1005)	DO (1006) NEXT
	(1999)	DOUBLE OR SINGLE PRECISION OVERFLOW
	(1002)	DO (1001) NEXT
	(1006)	PLEASE FORGET #1
		DO .5 <- '?"!6~.6'~#5"$#6'~#6
		DO (1003) NEXT
		DO .1 <- .3
		DO .2 <- !6$#0'~'#1555$#1'
		DO (1004) NEXT
	(1003)	DO (1001) NEXT
		DO REINSTATE (1005)
	(1007)	PLEASE RETRIEVE .1 + .2 + .5 + .6
		DO REMEMBER .4
		PLEASE RESUME #2
	(1001)	DO RESUME .5
	(1010)	DO STASH .1 + .2 + .4
		DO .4 <- .1
		DO .1 <- '?#46655$.2'~'#0$#9331'
		DO (1020) NEXT
		PLEASE DO .2 <- .4
		PLEASE DO (1009) NEXT
		DO RETRIEVE .1 + .2 + .4
		PLEASE RESUME #1
	(1020)	DO STASH .2 + .3
		DO .2 <- #1
		PLEASE DO (1021) NEXT
	(1021)	DO FORGET #1
		DO .3 <- '?"'V".1~.2"$#4'~#1"$#3'~#1
		PLEASE DO .1 <- '^.1$.2'~'#0$#9331'
		DO (1022) NEXT
		DO .2 <- !2$#0'~'#1555$#1'
		DO (1021) NEXT
	(1023)	PLEASE RESUME .3
	(1022)	DO (1023) NEXT
		PLEASE RETRIEVE .2 + .3
		PLEASE RESUME #2
	(1030)	DO ABSTAIN FROM (1033)
		PLEASE ABSTAIN FROM (1032)
	(1039)	DO STASH :1 + .5
		DO (1530) NEXT
		DO .3 <- :1~#9331
		PLEASE DO .5 <- :1~'#9288$#9288'
		DO .5 <- '?"!5~.5'~#5"$#6'~#6
		DO (1031) NEXT
	(1032)	DO (1033) NEXT
		DO (1999) NEXT
	(1031)	DO (1001) NEXT
	(1033)	DO .4 <- .5
		DO REINSTATE (1032)
		PLEASE REINSTATE (1033)
		DO RETRIEVE :1 + .5
		PLEASE RESUME #2
	(1040)	PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
		DO .2 <- #0
		DO (1520) NEXT
		DO STASH :1
		PLEASE RETRIEVE .2
		DO .1 <- .2
		DO .2 <- #0
		PLEASE DO (1520) NEXT
		DO :2 <- :1
		DO RETRIEVE .1 + .2 + :1
		DO (1550) NEXT
		PLEASE DO .3 <- :3
		DO RETRIEVE :1 + :2 + :3
		DO RESUME #1
	(1050)	PLEASE STASH :2 + :3 + .5
		DO :2 <- .1
		PLEASE DO (1550) NEXT
		DO .5 <- :3~'#9288$#9288'
		DO .5 <- '?"!5~.5'~#5"$#6'~#6
		DO (1051) NEXT
		DO (1999) NEXT
	(1051)	DO (1001) NEXT
		DO .2 <- :3
		PLEASE RETRIEVE :2 + :3 + .5
		DO RESUME #2
	(1200)	DO .2 <- '^.1$.1'~'#0$#9331'
		DO .3 <- '?"'2@.1$#0'~'#0$#9331'"$"'2@.1$#46655'
		     ~'#0$#9331'"'~'#0$#9331'
		DO .2 <- '^.2$"!3$#0'~'#1555$#1'"'~'#0$#9331'
		DO .3 <- .3~#7776
		PLEASE RESUME #1
	(1210)	DO .2 <- '^"'?"'@.1$#0'~'#0$#9331'"$"'@.1$#46655'
		     ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.1$#0'~'#0$
		     #9331'"$"'3@.1$#46655'~'#0$#9331'"'~'#0$
		     #9331'"'~'#0$#9331'
		DO .3 <- '^"'^.1$.1'~'#0$#9331'"$.1'~'#0$#9331'
		DO .2 <- '^.2$".3~#9330"'~'#0$#9331'
		DO .3 <- .3~#1
		PLEASE RESUME #1
	(1500)	PLEASE ABSTAIN FROM (1502)
		PLEASE ABSTAIN FROM (1506)
	(1509)	PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
		DO .1 <- :1~#9331
		PLEASE DO .2 <- :2~#9331
		DO (1009) NEXT
		DO .5 <- .3
		PLEASE DO .6 <- .4
		DO .1 <- :1~'#9288$#9288'
		DO .2 <- :2~'#9288$#9288'
		DO (1009) NEXT
		DO .1 <- .3
		PLEASE DO (1503) NEXT
		DO .6 <- .4
		DO .2 <- #1
		DO (1009) NEXT
		DO .1 <- .3
		DO (1501) NEXT
	(1504)	PLEASE RESUME .6
	(1503)	DO (1504) NEXT
	(1501)	DO .2 <- .5
		DO .5 <- '&.6$.4'
		DO (1505) NEXT
	(1506)	DO (1502) NEXT
		PLEASE DO (1999) NEXT
	(1505)	DO (1001) NEXT
	(1502)	DO :4 <- .5
		DO (1520) NEXT
		DO :3 <- :1
		PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
		DO REINSTATE (1502)
		DO REINSTATE (1506)
		PLEASE RESUME #3
	(1510)	DO STASH :1 + :2 + :4
		DO :1 <- "'?#46655$":2~'#9331$#0'"'~'#0$#9331'"$
		     "'?#46655$":2~'#0$#9331'"'~'#0$#9331'"
		DO :2 <- #1
		DO (1509) NEXT
		PLEASE RETRIEVE :1
		DO :2 <- :3
		PLEASE DO (1509) NEXT
		DO RETRIEVE :2 + :4
		PLEASE RESUME #1
	(1520)	PLEASE STASH .3 + .4
		DO .3 <- .1~#7998
		DO (1525) NEXT
		PLEASE DO .4 <- 'V.3$".2~#7998"'~'#0$#9331'
		DO .3 <- .1~#1333
		PLEASE DO (1525) NEXT
		DO :1 <- .4$"'V.3$".2~#1333"'~'#0$#9331'"
		PLEASE RETRIEVE .3 + .4
		DO RESUME #1
	(1525)	DO .3 <- '"!3$#0'~'#1555$#1'"$#0'~'#259$#7'
		PLEASE RESUME #1
	(1530)	DO STASH :2 + :3 + .1 + .2 + .3
		DO :3 <- #0
		DO :2 <- .1
		DO (1535) NEXT
	(1535)	PLEASE FORGET #1
		DO .3 <- '?"!2~.2'~#5"$#6'~#6
		DO (1532) NEXT
		DO .1 <- .2
		DO (1210) NEXT
		DO .3 <- '?#1$".3~#5"'~#1
		DO (1531) NEXT
		DO :1 <- :3
		DO (1500) NEXT
		PLEASE DO (1533) NEXT
	(1531)	PLEASE DO (1534) NEXT
	(1533)	DO FORGET #1
		DO :1 <- :2
		DO (1700) NEXT
		DO (1535) NEXT
	(1534)	PLEASE RESUME .3
	(1532)	DO (1534) NEXT
		DO :1 <- :3
		PLEASE RETRIEVE :2 + :3 + .1 + .2 + .3
		DO RESUME #2
	(1540)	PLEASE ABSTAIN FROM (1541)
		DO ABSTAIN FROM (1542)
	(1549)	PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
		DO .1 <- :1~#9331
		PLEASE DO .2 <- :2~'#9288$#9288'
		DO .5 <- :1~'#9288$#9288'
		DO (1530) NEXT
		DO :3 <- :1
		DO .2 <- :2~#9331
		PLEASE DO (1530) NEXT
		DO :5 <- :1
		DO .1 <- .5
		DO (1530) NEXT
		DO :4 <- :1
		PLEASE DO :1 <- ":3~'#9288$#9288'"$":4
		     ~'#9288$#9288'"
		DO .5 <- ':1~:1'~#5
		DO .2 <- :2~'#9288$#9288'
		DO (1530) NEXT
		PLEASE DO .5 <- '"':1~:1'~#5"$.5'~#7
		DO .1 <- :3~#9331
		DO .2 <- #0
		DO (1520) NEXT
		PLEASE DO :2 <- :1
		PLEASE DO .1 <- :4~#9331
		DO (1520) NEXT
		DO (1509) NEXT
		DO .5 <- !5$"'^":4~#1"$#3'~#1"'~#223
		DO :1 <- :3
		DO :2 <- :5
		DO (1509) NEXT
		PLEASE DO .5 <- !5$"'^":4~#1"$#3'~#1"'~#7999
		DO .5 <- '?"!5~.5'~#1"$#3'~#1
		PLEASE RETRIEVE :4
	(1541)	DO :4 <- .5
		DO (1543) NEXT
	(1542)	DO (1544) NEXT
		PLEASE DO (1999) NEXT
	(1543)	DO (1001) NEXT
	(1544)	DO REINSTATE (1541)
		PLEASE REINSTATE (1542)
		PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
		DO RESUME #2
	(1550)	DO STASH :1 + :1 + :4 + :5 + :6 + .1 + .5
		DO :3 <- #0
		DO .5 <- '?"':2~:2'~#5"$#6'~#6
		PLEASE DO (1551) NEXT
		DO :4 <- #1
		PLEASE DO (1553) NEXT
	(1553)	DO FORGET #1
		DO .5 <- '?#0$"'V"'2@":2~'#7776$#0'"$#5'~#1"$#4'
		     ~#1"'~#1
		DO (1552) NEXT
		DO :5 <- :2
		DO :1 <- :4
		PLEASE DO (1700) NEXT
		DO :4 <- :2
		DO :1 <- :5
		PLEASE DO (1700) NEXT
		DO (1553) NEXT
	(1552)	DO (1001) NEXT
		DO RETRIEVE :1
	(1556)	PLEASE FORGET #1
		DO :6 <- "'&":2~'#9331$#0'"$"'?#46655$":1
		     ~'#9331$#0'"'~'#0$#9331'"'~'#0$#9331'"$
		     "'&":2~'#0$#9331'"$"'?#46655$":1~'#0$
		     #9331'"'~'#0$#9331'"'~'#0$#9331'"
		DO :5 <- "'?":1~'#9331$#0'"$":2~'#9331$#0'"'
		     ~'#0$#9331'"$"'?":1~'#0$#9331'"$":2~'#0$
		     #9331'"'~'#0$#9331'"
		DO :6 <- "'&":6~'#9331$#0'"$":5~'#9331$#0'"'
		     ~'#0$#9331'"$"'&":6~'#0$#9331'"$":5~'#0$
		     #9331'"'~'#0$#9331'"
		DO :5 <- :5~'#46655$#46655'
		DO :6 <- "'?"'V":6~'#9331$#0'"$#27993'~'#0$
		     #9331'"$#27993'~'#0$#46655'"$"'?"'V":6
		     ~'#0$#9331'"$#27993'~'#0$#9331'"$#27993'
		     ~'#0$#46655'"
		DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#9331$#0'"$
		     #7776'~'#0$#9331'"$"'?:5~:5'~'#1555$#0'"'
		     ~'#7776$#1555'"$"'?:5~:5'~'#0$#9331'"'"~#1'$
		     #4"~#1
		DO (1554) NEXT
		DO :5 <- :3
		DO (1510) NEXT
		DO :1 <- :4
		DO :4 <- :2
		DO :2 <- :5
		DO :5 <- :3
		DO (1500) NEXT
		DO :2 <- :4
		DO :4 <- :1
		DO :1 <- :5
		DO (1555) NEXT
	(1554)	PLEASE DO (1001) NEXT
	(1555)	DO FORGET #1
		DO .5 <- '?#2$"'@#0$":4~#1"'~#1"'~#1
		DO (1551) NEXT
		DO :5 <- :1
		DO :1 <- :4
		DO :4 <- :2
		DO (1710) NEXT
		DO :1 <- :4
		DO :4 <- :2
		DO (1710) NEXT
		DO :1 <- :5
		PLEASE DO (1556) NEXT
	(1551)	DO (1001) NEXT
		PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5
		PLEASE RESUME #2
	(1700)	PLEASE STASH .2
		DO .1 <- :1~'#0$#9331'
		DO .2 <- :1~'#9331$#0'
		DO :2 <- "'^.2$.2'~'#0$#9331'"$"'^.1$.1'~'#0$
		     #9331'"
		DO .1 <- '?"'2@.1$#0'~'#0$#9331'"$"'2@.1$#46655'
		     ~'#0$#9331'"'~'#0$#9331'
		DO .2 <- '?"'2@.2$#0'~'#0$#9331'"$"'2@.2$#46655'
		     ~'#0$#9331'"'~'#0$#9331'
		DO :2 <- "'^":2~'#9331$#0'"$.1'~'#0$#9331'"$"'^":2
		     ~'#0$#9331'"$"'.2$#0'~'#1555$#1'"'~'#0$#9331'"
		DO .1 <- .2~#7776
		PLEASE RETRIEVE .2
		PLEASE RESUME #1
	(1710)	PLEASE STASH :1 + .2
		DO .2 <- :1~'#9331$#0'
		DO .1 <- :1~'#0$#9331'
		DO :2 <- "'^"'^.2$.2'~'#0$#9331'"$.2'~'#0$
		     #9331'"$"'^"'^.1$.1'~'#0$#9331'"$.1'~'#0$
		     #9331'"
		DO .1 <- '^"'?"'@.1$#0'~'#0$#9331'"$"'@.1$#46655'
		     ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.1$#0'~'#0$
		     #9331'"$"'3@.1$#46655'~'#0$#9331'"'~'#0$
		     #9331'"'~'#0$#9331'
		DO :1 <- "'^"'?"'@.2$#0'~'#0$#9331'"$"'@.2$#46655'
		     ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.2$#0'~'#0$
		     #9331'"$"'3@.2$#46655'~'#0$#9331'"'~'#0$
		     #9331'"'~'#0$#9331'"$.1
		DO .1 <- :2~#1
		DO :2 <- "'^":1~'#9331$#0'"$":2~'#0$#9330'"'
		     ~'#0$#9331'"$"'^":1~'#0$#9331'"$":2~'#9331$
		     #0'"'~'#0$#9331'"
		PLEASE RETRIEVE :1 + .2
		PLEASE RESUME #1
	(1900)	DO STASH .2 + .5
		DO .1 <- #0
		DO .2 <- #1
		PLEASE DO (1901) NEXT
	(1901)	DO FORGET #1
		DO %50 (1904) NEXT
		DO %50 (1901) NEXT
		PLEASE DO (1903) NEXT
	(1904)	DO .1 <- '^.1$.2'~'#0$#9331'
		DO %50 .1 <- '^.1$.2'~'#0$#9331'
	(1903)	PLEASE FORGET #1
		DO %50 .1 <- '^.1$".2~#27993"'~'#0$#9331'
		DO .2 <- !2$#0'~'#1555$#1'
		PLEASE DO .5 <- '^".2~.2"$#1'~#1
		DO (1902) NEXT
		DO (1901) NEXT
	(1902)	DO (1001) NEXT
		DO RETRIEVE .2 + .5
		PLEASE RESUME #2
	(1910)	PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
		DO .3 <- #46644
		DO :1 <- #6
		DO (1911) NEXT
		PLEASE NOTE THAT YOU CAN'T GET BLOOD FROM A TURNIP
	(1912)	DO (1001) NEXT
	(1911)	DO FORGET #1
		PLEASE DO (1900) NEXT
		DO :2 <- .1
		DO (1500) NEXT
		PLEASE DO :1 <- :3
		DO .1 <- .3
		DO (1020) NEXT
		PLEASE DO .3 <- .1
		DO .5 <- '?"!3~.3'~#5"$#4'~#1
		DO (1912) NEXT
		DO .1 <- #12
		PLEASE DO (1050) NEXT
		DO RETRIEVE .1
		DO (1530) NEXT
		DO :2 <- #23328
		DO (1500) NEXT
		PLEASE DO .2 <- :3~'#9288$#9288'
		PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
		DO RESUME #1