home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 25 / nopv25.iso / 040A / INTERCAL.ZIP / lib / lib2.i < prev    next >
Encoding:
Text File  |  1996-06-17  |  1.2 KB  |  52 lines
  1. (2010)  PLEASE ABSTAIN FROM (2004)
  2. (2000)  PLEASE STASH .2
  3.         DO .2 <- #1
  4.         DO (2001) NEXT
  5. (2001)  DO FORGET #1
  6.         DO .1 <- '?.1$.2'~'#0$#65535'
  7.         DO (2002) NEXT
  8.         DO .2 <- !2$#0'~'#32767$#1'
  9.         DO (2001) NEXT
  10. (2003)  PLEASE RESUME "?!1~.2'$#1"~#3
  11. (2002)  DO (2003) NEXT
  12.         PLEASE RETRIEVE .2
  13. (2004)    PLEASE RESUME #2
  14.     DO REINSTATE (2004)
  15.     PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
  16. (2020)  PLEASE STASH .2 + .3
  17.     DO (1021) NEXT
  18. (2030)    DO STASH .1 + .5
  19.     DO .3 <- #0
  20.     DO .5 <- '?"!2~.2'~#1"$#1'~#3
  21.     PLEASE DO (2031) NEXT
  22.     DO .4 <- #1
  23.     PLEASE DO (2033) NEXT
  24. (2033)    DO FORGET #1
  25.     DO .5 <- '?".2~#32768"$#2'~#3
  26.     DO (2032) NEXT
  27.     DO .2 <- !2$#0'~'#32767$#1'
  28.     PLEASE DO .4 <- !4$#0'~'#32767$#1'
  29.     DO (2033) NEXT
  30. (2032)    DO (1001) NEXT
  31. (2036)    DO FORGET #1
  32.         DO .5 <- '?.1$.2'~'#0$#65535'
  33.         DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
  34.                  ".5~.5"'~#1"$#2'~#3
  35.     DO (2034) NEXT
  36.     DO .5 <- .3
  37.     DO (1010) NEXT
  38.     PLEASE DO .1 <- .3
  39.         DO .3 <- 'V.4$.5'~'#0$#65535'
  40.     DO (2035) NEXT
  41. (2034)    PLEASE DO (1001) NEXT
  42. (2035)    DO FORGET #1
  43.     DO .5 <- "?'.4~#1'$#2"~#3
  44.     DO (2031) NEXT
  45.     DO .2 <- .2~#65534
  46.     DO .4 <- .4~#65534
  47.     PLEASE DO (2036) NEXT
  48. (2031)    DO (1001) NEXT
  49.     PLEASE DO .4 <- .1
  50.     DO RETRIEVE .1 + .5
  51.     PLEASE RESUME #2
  52.