home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 25 / nopv25.iso / 040A / INTERCAL.ZIP / lib / syslib-orig.i < prev    next >
Encoding:
Text File  |  1994-09-22  |  7.0 KB  |  291 lines
  1.         PLEASE KNOCK BEFORE ENTERING
  2.  
  3.     (1000)    PLEASE IGNORE .4
  4.         PLEASE ABSTAIN FROM (1005)
  5.     (1009)    DO STASH .1 + .2 + .5 + .6
  6.         DO .4 <- #1
  7.         DO (1004) NEXT
  8.     (1004)    PLEASE FORGET #1
  9.         DO .3 <- '?.1$.2'~'#0$#65535'
  10.         DO .6 <- '&.1$.2'~'#0$#65535'
  11.         PLEASE DO .5 <- "?!6~#32768'$#1"~#3
  12.         DO (1002) NEXT
  13.         DO .4 <- #2
  14.     (1005)    DO (1006) NEXT
  15.     (1999)    DOUBLE OR SINGLE PRECISION OVERFLOW
  16.     (1002)    DO (1001) NEXT
  17.     (1006)    PLEASE FORGET #1
  18.         DO .5 <- '?"!6~.6'~#1"$#1'~#3
  19.         DO (1003) NEXT
  20.         DO .1 <- .3
  21.         DO .2 <- !6$#0'~'#32767$#1'
  22.         DO (1004) NEXT
  23.     (1003)    DO (1001) NEXT
  24.         DO REINSTATE (1005)
  25.     (1007)    PLEASE RETRIEVE .1 + .2 + .5 + .6
  26.         DO REMEMBER .4
  27.         PLEASE RESUME #2
  28.     (1001)    DO RESUME .5
  29.     (1010)    DO STASH .1 + .2 + .4
  30.         DO .4 <- .1
  31.         DO .1 <- '?.2$#65535'~'#0$#65535'
  32.         DO (1020) NEXT
  33.         PLEASE DO .2 <- .4
  34.         PLEASE DO (1009) NEXT
  35.         DO RETRIEVE .1 + .2 + .4
  36.         PLEASE RESUME #1
  37.     (1020)    DO STASH .2 + .3
  38.         DO .2 <- #1
  39.         PLEASE DO (1021) NEXT
  40.     (1021)    DO FORGET #1
  41.         DO .3 <- "?!1~.2'$#1"~#3
  42.         PLEASE DO .1 <- '?.1$.2'~'#0$#65535'
  43.         DO (1022) NEXT
  44.         DO .2 <- !2$#0'~'#32767$#1'
  45.         DO (1021) NEXT
  46.     (1023)    PLEASE RESUME .3
  47.     (1022)    DO (1023) NEXT
  48.         PLEASE RETRIEVE .2 + .3
  49.         PLEASE RESUME #2
  50.     (1030)    DO ABSTAIN FROM (1033)
  51.         PLEASE ABSTAIN FROM (1032)
  52.     (1039)    DO STASH :1 + .5
  53.         DO (1530) NEXT
  54.         DO .3 <- :1~#65535
  55.         PLEASE DO .5 <- :1~'#65280$#65280'
  56.         DO .5 <- '?"!5~.5'~#1"$#1'~#3
  57.         DO (1031) NEXT
  58.     (1032)    DO (1033) NEXT
  59.         DO (1999) NEXT
  60.     (1031)    DO (1001) NEXT
  61.     (1033)    DO .4 <- .5
  62.         DO REINSTATE (1032)
  63.         PLEASE REINSTATE (1033)
  64.         DO RETRIEVE :1 + .5
  65.         PLEASE RESUME #2
  66.     (1040)    PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
  67.         DO .2 <- #0
  68.         DO (1520) NEXT
  69.         DO STASH :1
  70.         PLEASE RETRIEVE .2
  71.         DO .1 <- .2
  72.         DO .2 <- #0
  73.         PLEASE DO (1520) NEXT
  74.         DO :2 <- :1
  75.         DO RETRIEVE .1 + .2 + :1
  76.         DO (1550) NEXT
  77.         PLEASE DO .3 <- :3
  78.         DO RETRIEVE :1 + :2 + :3
  79.         DO RESUME #1
  80.     (1050)    PLEASE STASH :2 + :3 + .5
  81.         DO :2 <- .1
  82.         PLEASE DO (1550) NEXT
  83.         DO .5 <- :3~'#65280$#65280'
  84.         DO .5 <- '?"!5~.5'~#1"$#1'~#3
  85.         DO (1051) NEXT
  86.         DO (1999) NEXT
  87.     (1051)    DO (1001) NEXT
  88.         DO .2 <- :3
  89.         PLEASE RETRIEVE :2 + :3 + .5
  90.         DO RESUME #2
  91.     (1500)    PLEASE ABSTAIN FROM (1502)
  92.         PLEASE ABSTAIN FROM (1506)
  93.     (1509)    PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
  94.         DO .1 <- :1~#65535
  95.         PLEASE DO .2 <- :2~#65535
  96.         DO (1009) NEXT
  97.         DO .5 <- .3
  98.         PLEASE DO .6 <- .4
  99.         DO .1 <- :1~'#65280$#65280'
  100.         DO .2 <- :2~'#65280$#65280'
  101.         DO (1009) NEXT
  102.         DO .1 <- .3
  103.         PLEASE DO (1503) NEXT
  104.         DO .6 <- .4
  105.         DO .2 <- #1
  106.         DO (1009) NEXT
  107.         DO .1 <- .3
  108.         DO (1501) NEXT
  109.     (1504)    PLEASE RESUME .6
  110.     (1503)    DO (1504) NEXT
  111.     (1501)    DO .2 <- .5
  112.         DO .5 <- '?"'&.6$.4'~#1"$#2'~#3
  113.         DO (1505) NEXT
  114.     (1506)    DO (1502) NEXT
  115.         PLEASE DO (1999) NEXT
  116.     (1505)    DO (1001) NEXT
  117.     (1502)    DO :4 <- .5
  118.         DO (1520) NEXT
  119.         DO :3 <- :1
  120.         PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
  121.         DO REINSTATE (1502)
  122.         DO REINSTATE (1506)
  123.         PLEASE RESUME #3
  124.     (1510)    DO STASH :1 + :2 + :4
  125.         DO :1 <- "'?":2~'#65535$#0'"$#65535'~'#0$#6553
  126.         5'"$"'?":2~'#0$#65535'"$#65535'~'#0$#65535
  127.         '"
  128.         DO :2 <- #1
  129.         DO (1509) NEXT
  130.         PLEASE RETRIEVE :1
  131.         DO :2 <- :3
  132.         PLEASE DO (1509) NEXT
  133.         DO RETRIEVE :2 + :4
  134.         PLEASE RESUME #1
  135.     (1520)    PLEASE STASH .3 + .4
  136.         DO .3 <- .1~#43690
  137.         DO (1525) NEXT
  138.         PLEASE DO .4 <- 'V.3$".2~#43690"'~'#0$#65535'
  139.         DO .3 <- .1~#21845
  140.         PLEASE DO (1525) NEXT
  141.         DO :1 <- .4$"'V.3$".2~#21845"'~'#0$#65535'"
  142.         PLEASE RETRIEVE .3 + .4
  143.         DO RESUME #1
  144.     (1525)    DO .3 <- '"'"'"!3$#0'~'#32767$#1'"$#0'~'#32767
  145.         $#1'"$#0'~'#16383$#3'"$#0'~'#4095$#15'
  146.         PLEASE RESUME #1
  147.     (1530)    DO STASH :2 + :3 + .3 + .5
  148.         DO :1 <- #0
  149.         DO :2 <- .2
  150.         DO .3 <- #1
  151.         DO (1535) NEXT
  152.     (1535)    PLEASE FORGET #1
  153.         DO .5 <- "?!1~.3'$#1"~#3
  154.         DO (1531) NEXT
  155.         DO (1500) NEXT
  156.         DO :1 <- :3
  157.         PLEASE DO (1533) NEXT
  158.     (1531)    PLEASE DO (1001) NEXT
  159.     (1533)    DO FORGET #1
  160.         DO .3 <- !3$#0'~'#32767$#1'
  161.         DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
  162.         0'~'#32767$#1'"
  163.         PLEASE DO .5 <- "?!3~.3'$#1"~#3
  164.         DO (1532) NEXT
  165.         DO (1535) NEXT
  166.     (1532)    DO (1001) NEXT
  167.         PLEASE RETRIEVE :2 + :3 + .3 + .5
  168.         DO RESUME #2
  169.     (1540)    PLEASE ABSTAIN FROM (1541)
  170.         DO ABSTAIN FROM (1542)
  171.     (1549)    PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
  172.         DO .1 <- :1~#65535
  173.         PLEASE DO .2 <- :2~'#65280$#65280'
  174.         DO .5 <- :1~'#65280$#65280'
  175.         DO (1530) NEXT
  176.         DO :3 <- :1
  177.         DO .2 <- :2~#65535
  178.         PLEASE DO (1530) NEXT
  179.         DO :5 <- :1
  180.         DO .1 <- .5
  181.         DO (1530) NEXT
  182.         DO :4 <- :1
  183.         PLEASE DO :1 <- ":3~'#65280$#65280'"$":5~'#652
  184.         80$#65280'"
  185.         DO .5 <- ':1~:1'~#1
  186.         DO .2 <- :2~'#65280$#65280'
  187.         DO (1530) NEXT
  188.         PLEASE DO .5 <- '"':1~:1'~#1"$.5'~#3
  189.         DO .1 <- :3~#65535
  190.         DO .2 <- #0
  191.         DO (1520) NEXT
  192.         PLEASE DO :2 <- :1
  193.         PLEASE DO .1 <- :4~#65535
  194.         DO (1520) NEXT
  195.         DO (1509) NEXT
  196.         DO .5 <- !5$":4~#3"'~#15
  197.         DO :1 <- :3
  198.         DO :2 <- :5
  199.         DO (1509) NEXT
  200.         PLEASE DO .5 <- !5$":4~#3"'~#63
  201.         DO .5 <- '?"!5~.5'~#1"$#1'~#3
  202.         PLEASE RETRIEVE :4
  203.     (1541)    DO :4 <- .5
  204.         DO (1543) NEXT
  205.     (1542)    DO (1544) NEXT
  206.         PLEASE DO (1999) NEXT
  207.     (1543)    DO (1001) NEXT
  208.     (1544)    DO REINSTATE (1541)
  209.         PLEASE REINSTATE (1542)
  210.         PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
  211.         DO RESUME #2
  212.     (1550)    DO STASH :1 + :4 + :5 + .5
  213.         DO :3 <- #0
  214.         DO .5 <- '?"':2~:2'~#1"$#1'~#3
  215.         PLEASE DO (1551) NEXT
  216.         DO :4 <- #1
  217.         PLEASE DO (1553) NEXT
  218.     (1553)    DO FORGET #1
  219.         DO .5 <- '?":2~'#32768$#0'"$#2'~#3
  220.         DO (1552) NEXT
  221.         DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
  222.            0'~'#32767$#1'"
  223.         PLEASE DO :4 <- ":4~'#0$#65535'"$"'":4~'#32767
  224.              $#0'"$#0'~'#32767$#1'"
  225.         DO (1553) NEXT
  226.     (1552)    DO (1001) NEXT
  227.     (1556)    PLEASE FORGET #1
  228.         DO :5 <- "'?":1~'#65535$#0'"$":2~'#65535$#0'"'
  229.              ~'#0$#65535'"$"'?":1~'#0$#65535'"$":2~'#0$
  230.              #65535'"'~'#0$#65535'"
  231.         DO .5 <- '?"'&"':2~:5'~'"'?"'?":5~:5"~"#65535~
  232.              #65535"'~'#65535$#0'"$#32768'~'#0$#65535'"
  233.              $"'?":5~:5"~"#65535$#65535"'~'#0$#65535'"'
  234.              "$"':5~:5'~#1"'~#1"$#2'~#3
  235.         DO (1554) NEXT
  236.         DO :5 <- :3
  237.         DO (1510) NEXT
  238.         PLEASE DO :1 <- :3
  239.         DO :3 <- "'V":4~'#65535$#0'"$":5~'#65535$#0'"'
  240.              ~'#0$#65535'"$"'V":4~'#0$#65535'"$":5~'#0$
  241.              #65535'"'~'#0$#65535'"
  242.         DO (1555) NEXT
  243.     (1554)    PLEASE DO (1001) NEXT
  244.     (1555)    DO FORGET #1
  245.         DO .5 <- "?':4~#1'$#2"~#3
  246.         DO (1551) NEXT
  247.         DO :2 <- ":2~'#0$#65534'"$":2~'#65535$#0'"
  248.         DO :4 <- ":4~'#0$#65534'"$":4~'#65535$#0'"
  249.         PLEASE DO (1556) NEXT
  250.     (1551)    DO (1001) NEXT
  251.         PLEASE RETRIEVE :1 + :4 + :5 + .5
  252.         PLEASE RESUME #2
  253.     (1900)    DO STASH .2 + .3 + .5
  254.         DO .1 <- #0
  255.         DO .2 <- #1
  256.         PLEASE DO (1901) NEXT
  257.     (1901)    DO FORGET #1
  258.         DO %50 .1 <- 'V.1$.2'~'#0$#65535'
  259.         DO .2 <- !2$#0'~'#32767$#1'
  260.         PLEASE DO .5 <- "?!2~.2'$#1"~#3
  261.         DO (1902) NEXT
  262.         DO (1901) NEXT
  263.     (1902)    DO (1001) NEXT
  264.         DO RETRIEVE .2 + .3 + .5
  265.         PLEASE RESUME #2
  266.     (1910)    PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
  267.         DO .3 <- #65524
  268.         DO :1 <- #6
  269.         DO (1911) NEXT
  270.         PLEASE NOTE THAT YOU CAN'T GET THERE FROM HERE
  271.     (1912)    DO (1001) NEXT
  272.     (1911)    DO FORGET #1
  273.         PLEASE DO (1900) NEXT
  274.         DO :2 <- .1
  275.         DO (1500) NEXT
  276.         PLEASE DO :1 <- :3
  277.         DO .1 <- .3
  278.         DO (1020) NEXT
  279.         PLEASE DO .3 <- .1
  280.         DO .5 <- '?"!3~.3'~#1"$#2'~#3
  281.         DO (1912) NEXT
  282.         DO .1 <- #12
  283.         PLEASE DO (1050) NEXT
  284.         DO RETRIEVE .1
  285.         DO (1530) NEXT
  286.         DO :2 <- #32768
  287.         DO (1500) NEXT
  288.         PLEASE DO .2 <- :3~'#65280$#65280'
  289.         PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
  290.         DO RESUME #1
  291.