Mercurial > repo
diff interps/c-intercal/pit/lib/syslib.4i @ 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/lib/syslib.4i Sun Dec 09 19:30:08 2012 +0000 @@ -0,0 +1,354 @@ + 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