home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / pi.i < prev    next >
Text File  |  1994-10-23  |  3KB  |  138 lines
  1.     PLEASE WRITE IN .10
  2.     DO .1 <- .10~#65534
  3.     DO (1020) NEXT
  4.     DO .10 <- !1$.10'~'#32767$#1'
  5.     DO .1 <- .10
  6.     DO .2 <- #10
  7.     PLEASE DO (1030) NEXT
  8.     DO .1 <- .3
  9.     DO .2 <- #3
  10.     DO (1040) NEXT
  11.     DO .9 <- .3
  12.  
  13.     DO ,1 <- .9
  14.     DO .1 <- .9
  15.     PLEASE COME FROM (13)
  16.     DO ,1 SUB .1 <- #2
  17.     DO (11) NEXT
  18. (12)    DO (2010) NEXT
  19. (13)    PLEASE FORGET #2
  20. (11)    DO (12) NEXT
  21.  
  22.     DO .15 <- #0
  23.     DO .16 <- #0
  24.     DO (100) NEXT
  25.     DO .1 <- .10
  26.     DO (2000) NEXT
  27.     PLEASE COME FROM (23)
  28.     DO .10 <- .1
  29.     DO (100) NEXT
  30.     PLEASE READ OUT .17
  31.     DO .1 <- .10
  32.     DO (21) NEXT
  33. (22)    DO (2010) NEXT
  34. (23)    PLEASE FORGET #2
  35. (21)    DO (22) NEXT
  36.     PLEASE FORGET #2
  37.     PLEASE GIVE UP
  38.  
  39. (100)    DO .14 <- #0
  40.     DO .12 <- .9
  41.     PLEASE COME FROM (103)
  42.     DO .1 <- .14
  43.     DO .2 <- .12
  44.     DO (1030) NEXT
  45.     DO .14 <- .3
  46.     DO .1 <- ,1 SUB .12
  47.     DO .2 <- #10
  48.     DO (1030) NEXT
  49.     DO .1 <- .3
  50.     DO .2 <- .14
  51.     DO (1000) NEXT
  52.     DO .1 <- !12$#0'~'#32767$#1'
  53.     DO (2000) NEXT
  54.     DO .2 <- .1
  55.     DO .1 <- .3
  56.     DO (2030) NEXT
  57.     DO .14 <- .3
  58.     DO ,1 SUB .12 <- .4
  59.     DO .1 <- .12
  60.     DO (101) NEXT
  61. (102)    DO (2010) NEXT
  62.     DO .12 <- .1
  63. (103)    PLEASE FORGET #2
  64. (101)    DO (102) NEXT
  65.     DO .17 <- .16
  66.     DO .1 <- .14
  67.     DO .2 <- #10
  68.     DO (2030) NEXT
  69.     DO .1 <- .15
  70.     DO .2 <- .3
  71.     DO (1000) NEXT
  72.     DO .16 <- .3
  73.     DO .15 <- .4
  74.     DO .5 <- '?.16$#10'~#85
  75.     DO .5 <- "?!5~.5'$#2"~#3
  76.     DO (104) NEXT
  77.     DO .16 <- #0
  78.     DO .1 <- .17
  79.     DO (1020) NEXT
  80.     DO .17 <- .1
  81.     PLEASE RESUME #2
  82. (104)   DO (1001) NEXT
  83.     PLEASE RESUME #3
  84.  
  85.  
  86. (2010)  PLEASE ABSTAIN FROM (2004)
  87. (2000)  PLEASE STASH .2
  88.         DO .2 <- #1
  89.         DO (2001) NEXT
  90. (2001)  PLEASE FORGET #1
  91.         DO .1 <- '?.1$.2'~'#0$#65535'
  92.         DO (2002) NEXT
  93.         DO .2 <- !2$#0'~'#32767$#1'
  94.         DO (2001) NEXT
  95. (2003)  PLEASE RESUME "?!1~.2'$#1"~#3
  96. (2002)  DO (2003) NEXT
  97.         PLEASE RETRIEVE .2
  98. (2004)    PLEASE RESUME #2
  99.     PLEASE DO REINSTATE (2004)
  100.     PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
  101. (2020)  PLEASE STASH .2 + .3
  102.     DO (1021) NEXT
  103. (2030)    DO STASH .1 + .5
  104.     DO .3 <- #0
  105.     DO .5 <- '?"!2~.2'~#1"$#1'~#3
  106.     PLEASE DO (2031) NEXT
  107.     DO .4 <- #1
  108.     PLEASE DO (2033) NEXT
  109. (2033)    DO FORGET #1
  110.     DO .5 <- '?".2~#32768"$#2'~#3
  111.     DO (2032) NEXT
  112.     DO .2 <- !2$#0'~'#32767$#1'
  113.     PLEASE DO .4 <- !4$#0'~'#32767$#1'
  114.     DO (2033) NEXT
  115. (2032)    DO (1001) NEXT
  116. (2036)    PLEASE FORGET #1
  117.         DO .5 <- '?.1$.2'~'#0$#65535'
  118.         DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
  119.                  ".5~.5"'~#1"$#2'~#3
  120.     DO (2034) NEXT
  121.     DO .5 <- .3
  122.     DO (1010) NEXT
  123.     PLEASE DO .1 <- .3
  124.         DO .3 <- 'V.4$.5'~'#0$#65535'
  125.     DO (2035) NEXT
  126. (2034)    PLEASE DO (1001) NEXT
  127. (2035)    DO FORGET #1
  128.     DO .5 <- "?'.4~#1'$#2"~#3
  129.     DO (2031) NEXT
  130.     DO .2 <- .2~#65534
  131.     DO .4 <- .4~#65534
  132.     PLEASE DO (2036) NEXT
  133. (2031)    DO (1001) NEXT
  134.     PLEASE DO .4 <- .1
  135.     PLEASE RETRIEVE .1 + .5
  136.     PLEASE RESUME #2
  137.         PLEASE NOTE THAT YOU DON'T HAVE TO APPEND STANDARD LIBRARY HERE
  138.