view interps/c-intercal/pit/lib/syslib.4i @ 12320:9c7eb9899d95 draft

<fizzie> le/rn karma//All living beings have actions (karma) as their own, their inheritance, their congenital cause, their kinsman, their refuge. It is karma that differentiates beings into low and high states.
author HackEso <hackeso@esolangs.org>
date Fri, 06 Mar 2020 23:08:37 +0000
parents 859f9b4339e6
children
line wrap: on
line source

		PLEASE KNOCK TWICE 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$#21845'
		DO .6 <- '?"'V"'&.1$.2'~'#0$#21845'"$"'^"'@.1$
		      .2'~'#0$#21845'"$#21845'~'#0$#43690'"'
		      ~'#0$#21845'"$#43690'~'#0$#21845'
		PLEASE DO .5 <- '?".6~#49152"$#4'~#4
		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'~#3"$#4'~#4
		DO (1003) NEXT
		DO .1 <- .3
		DO .2 <- !6$#0'~'#5461$#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 <- '?#65535$.2'~'#0$#21845'
		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"$#2'~#1"$#1'~#1
		PLEASE DO .1 <- '^.1$.2'~'#0$#21845'
		DO (1022) NEXT
		DO .2 <- !2$#0'~'#5461$#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~#21845
		PLEASE DO .5 <- :1~'#21760$#21760'
		DO .5 <- '?"!5~.5'~#3"$#4'~#4
		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~'#21760$#21760'
		DO .5 <- '?"!5~.5'~#3"$#4'~#4
		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$#21845'
		DO .3 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'
		     ~'#0$#21845'"'~'#0$#21845'
		DO .2 <- '^.2$"!3$#0'~'#5461$#1'"'~'#0$#21845'
		DO .3 <- .3~#16384
		PLEASE RESUME #1
	(1210)	DO .2 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'
		     ~'#0$#21845'"'~'#0$#21845'
		DO .3 <- '^.1$.1'~'#0$#21845'
		DO .2 <- '^.2$".3~#21844"'~'#0$#21845'
		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~#21845
		PLEASE DO .2 <- :2~#21845
		DO (1009) NEXT
		DO .5 <- .3
		PLEASE DO .6 <- .4
		DO .1 <- :1~'#21760$#21760'
		DO .2 <- :2~'#21760$#21760'
		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 <- "'?#65535$":2~'#21845$#0'"'~'#0$#21845'"$
		     "'?#65535$":2~'#0$#21845'"'~'#0$#21845'"
		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~#17476
		DO (1525) NEXT
		PLEASE DO .4 <- 'V.3$".2~#17476"'~'#0$#21845'
		DO .3 <- .1~#4369
		PLEASE DO (1525) NEXT
		DO :1 <- .4$"'V.3$".2~#4369"'~'#0$#21845'"
		PLEASE RETRIEVE .3 + .4
		DO RESUME #1
	(1525)	DO .3 <- '"'"!3$#0'~'#5461$#1'"$#0'~'#5461$#1'"$
		     #0'~'#1365$#5'
		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'~#3"$#4'~#4
		DO (1532) NEXT
		DO .1 <- .2
		DO (1210) NEXT
		DO .3 <- 'V.3$#1'~#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~#21845
		PLEASE DO .2 <- :2~'#21760$#21760'
		DO .5 <- :1~'#21760$#21760'
		DO (1530) NEXT
		DO :3 <- :1
		DO .2 <- :2~#21845
		PLEASE DO (1530) NEXT
		DO :5 <- :1
		DO .1 <- .5
		DO (1530) NEXT
		DO :4 <- :1
		PLEASE DO :1 <- ":3~'#21760$#21760'"$":4
		     ~'#21760$#21760'"
		DO .5 <- ':1~:1'~#3
		DO .2 <- :2~'#21760$#21760'
		DO (1530) NEXT
		PLEASE DO .5 <- '"':1~:1'~#3"$.5'~#5
		DO .1 <- :3~#21845
		DO .2 <- #0
		DO (1520) NEXT
		PLEASE DO :2 <- :1
		PLEASE DO .1 <- :4~#21845
		DO (1520) NEXT
		DO (1509) NEXT
		DO .5 <- !5$"'^":4~#1"$#1'~#1"'~#69
		DO :1 <- :3
		DO :2 <- :5
		DO (1509) NEXT
		PLEASE DO .5 <- !5$"'^":4~#1"$#1'~#1"'~#1093
		DO .5 <- '?"!5~.5'~#1"$#1'~#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'~#3"$#4'~#4
		PLEASE DO (1551) NEXT
		DO :4 <- #1
		PLEASE DO (1553) NEXT
	(1553)	DO FORGET #1
		DO .5 <- '?#0$"'V"'@":2~'#16384$#0'"$#3'~#1"$#2'
		     ~#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~'#21845$#0'"$"'?#65535$":1
		     ~'#21845$#0'"'~'#0$#21845'"'~'#0$#21845'"$
		     "'&":2~'#0$#21845'"$"'?#65535$":1~'#0$
		     #21845'"'~'#0$#21845'"'~'#0$#21845'"
		DO :6 <- "'?"'V":6~'#21845$#0'"$#21845'~'#0$
		     #21845'"$#21845'~'#0$#65535'"$"'?"'V":6
		     ~'#0$#21845'"$#21845'~'#0$#21845'"$#21845'
		     ~'#0$#65535'"
		DO :5 <- "'?":1~'#21845$#0'"$":2~'#21845$#0'"'
		     ~'#0$#65535'"$"'?":1~'#0$#21845'"$":2~'#0$
		     #21845'"'~'#0$#65535'"
		DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#21845$#0'"$
		     #16384'~'#0$#21845'"$"'?:5~:5'~'#5461$#0'"'
		     ~'#16384$#5461'"$"'?:5~:5'~'#0$#21845'"'"
		     ~#1'$#2"~#1
		DO (1554) NEXT
		DO :5 <- :3
		DO (1510) NEXT
		PLEASE DO :1 <- :3
		DO :3 <- "'^":4~'#21845$#0'"$":5~'#21845$#0'"'
		     ~'#0$#21845'"$"'^":4~'#0$#21845'"$":5~'#0$
		     #21845'"'~'#0$#21845'"
		DO (1555) NEXT
	(1554)	PLEASE DO (1001) NEXT
	(1555)	DO FORGET #1
		DO .5 <- 'V":4~#1"$"'?#2$":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$#21845'
		DO .2 <- :1~'#21845$#0'
		DO :2 <- "'^.2$.2'~'#0$#21845'"$"'^.1$.1'~'#0$
		     #21845'"
		DO .1 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'
		     ~'#0$#21845'"'~'#0$#21845'
		DO .2 <- '?"'@.2$#0'~'#0$#21845'"$"'@.2$#65535'
		     ~'#0$#21845'"'~'#0$#21845'
		DO :2 <- "'^":2~'#21845$#0'"$.1'~'#0$#21845'"$
		     "'^":2~'#0$#21845'"$"'.2$#0'~'#5461$#1'"'
		     ~'#0$#21845'"
		DO .1 <- .2~#16384
		PLEASE RETRIEVE .2
		PLEASE RESUME #1
	(1710)	PLEASE STASH :1 + .2
		DO .1 <- :1~'#0$#21845'
		DO .2 <- :1~'#21845$#0'
		DO :2 <- "'^.2$.2'~'#0$#21845'"$"'^.1$.1'~'#0$
		     #21845'"
		DO :1 <- "'?"'@.2$#0'~'#0$#21845'"$"'@.2$#65535'
		     ~'#0$#21845'"'~'#0$#21845'"$"'?"'@.1$#0'
		     ~'#0$#21845'"$"'@.1$#65535'~'#0$#21845'"'
		     ~'#0$#21845'"
		DO .1 <- :2~#1
		DO :2 <- "'^":1~'#21845$#0'"$":2~'#0$#21844'"'
		     ~'#0$#21845'"$"'^":1~'#0$#21845'"$":2
		     ~'#21845$#0'"'~'#0$#21845'"
		PLEASE RETRIEVE :1 + .2
		PLEASE RESUME #1
	(1900)	DO STASH .2 + .5
		DO .1 <- #0
		DO .2 <- #1
		PLEASE DO (1901) NEXT
	(1901)	PLEASE FORGET #1
		DO %50 .1 <- 'V.1$.2'~'#0$#21845'
		DO %50 .1 <- '^.1$".2~#43690"'~'#0$#21845'
		DO .2 <- !2$#0'~'#5461$#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 <- #65524
		DO :1 <- #6
		DO (1911) NEXT
		PLEASE NOTE THAT YOU CAN'T GET ANYWHERE FROM HERE
	(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'~#3"$#2'~#1
		DO (1912) NEXT
		DO .1 <- #12
		PLEASE DO (1050) NEXT
		DO RETRIEVE .1
		DO (1530) NEXT
		DO :2 <- #32768
		DO (1500) NEXT
		PLEASE DO .2 <- :3~'#21760$#21760'
		PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
		DO RESUME #1