home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / lib / numio.i < prev    next >
Text File  |  1996-06-20  |  5KB  |  227 lines
  1.     PLEASE USE THE AUTHORIZED CHANNELS
  2.  
  3. (3000)    DO STASH .2 + .3
  4.     DO .1 <- ,3000SUB#1
  5.     PLEASE WRITE IN ,3000
  6.     DO .2 <- ,3000SUB#1
  7.     DO (1000) NEXT
  8.     DO .1 <- .3~#255
  9.     DO ,3000SUB#1 <- .1
  10.     DO RETRIEVE .2 + .3
  11.     PLEASE RESUME #1
  12.  
  13. (3001)    DO STASH .1 + .3
  14.     DO .1 <- ,3001SUB#1
  15.     DO (1010) NEXT
  16.     DO ,3001SUB#1 <- .3~#255
  17.     PLEASE READ OUT ,3001
  18.     DO ,3001SUB#1 <- .2
  19.     DO .1 <- .2
  20.     DO RETRIEVE .1 + .3
  21.     PLEASE RESUME #1
  22.  
  23. (3089)    PLEASE ABSTAIN FROM (3087)
  24. (3080)    PLEASE STASH .2 + .3 + .4
  25.     DO .3 <- #0
  26.     DO (3081) NEXT
  27. (3087)    DO (3088) NEXT
  28.     PLEASE REINSTATE (3087)
  29.     DO .4 <- '?.1$#10'~'#0$#65535'
  30.     DO .4 <- .4~.4
  31.     DO (3085) NEXT
  32. (3998)    DOES "ENTER A NUMBER" MEAN SOMETHING DIFFERENT WHERE YOU COME FROM?
  33. (3085)    DO (3086) NEXT
  34. (3088)    PLEASE FORGET #1
  35.     DO .1 <- .3
  36.     PLEASE RETRIEVE .2 + .3 + .4
  37.     PLEASE RESUME #1
  38. (3086)    PLEASE RESUME '?.V4$#1'~#3
  39. (3081)    DO COME FROM (3082)
  40.     DO (3000) NEXT
  41.     DO .4 <- '?".1~#240"$#3'~#85
  42.     DO .4 <- '".4~.4"~#1'$'&".1~#8"$".V1~#2"'
  43.     DO (3086) NEXT
  44.     DO .4 <- .3~#57344
  45.     DO .4 <- .4~.4
  46.     DO (3083) NEXT
  47.     DO (1999) NEXT
  48. (3083)    DO (3086) NEXT
  49.     PLEASE FORGET #1
  50.     DO .4 <- .1
  51.     DO .2 <- !3$#0'~'#32767$#1'
  52.     DO .1 <- !2$#0'~'#16383$#3'
  53.     DO (1000) NEXT
  54.     DO .1 <- .3
  55.     DO .2 <- .4~#15
  56. (3082)    DO (1000) NEXT
  57.  
  58. (3090)    PLEASE ABSTAIN FROM (3097)
  59. (3099)    PLEASE STASH .1 + .2 + .3 + .4
  60.     DO .2 <- #256
  61.     PLEASE STASH .2
  62.     DO (3091) NEXT
  63.     DO (3095) NEXT
  64.     DO .2 <- #80
  65. (3097)    DO (3001) NEXT
  66.     PLEASE REINSTATE (3097)
  67.     PLEASE RETRIEVE .1 + .2 + .3 + .4
  68.     PLEASE RESUME #1
  69. (3098)    PLEASE RESUME '?"!1~.1'~#1"$#2'~#3
  70. (3091)    DO COME FROM (3092)
  71.     DO .2 <- #10
  72.     DO (2030) NEXT
  73.     DO .2 <- .4
  74.     PLEASE STASH .2
  75.     DO .1 <- .3
  76. (3092)    DO (3098) NEXT
  77.  
  78. (3095)    DO COME FROM (3094)
  79.     PLEASE RETRIEVE .2
  80.     DO (3093) NEXT
  81.     DO .2 <- .2$#3
  82.     DO .2 <- !2~#15'$!2~#240'
  83.     DO .2 <- !2~#15'$!2~#240'
  84. (3094)    DO (3001) NEXT
  85. (3093)    PLEASE RESUME '?".2~#256"$#1'~#3
  86.  
  87. (3189)    PLEASE ABSTAIN FROM (3187)
  88. (3180)    PLEASE STASH :2 + :3 + .1 + .4
  89.     DO :3 <- #0
  90.     PLEASE STASH :4
  91.     DO (3181) NEXT
  92.     PLEASE RETRIEVE :4
  93. (3187)    DO (3188) NEXT
  94.     PLEASE REINSTATE (3187)
  95.     DO .4 <- '?.1$#10'~'#0$#65535'
  96.     DO .4 <- .4~.4
  97.     DO (3185) NEXT
  98.     DO (3998) NEXT
  99. (3185)    DO (3186) NEXT
  100. (3188)    PLEASE FORGET #1
  101.     DO :1 <- :3
  102.     PLEASE RETRIEVE :2 + :3 + .1 + .4
  103.     PLEASE RESUME #1
  104. (3186)    PLEASE RESUME '?.V4$#1'~#3
  105. (3181)    DO COME FROM (3182)
  106.     DO (3000) NEXT
  107.     DO .4 <- '?".1~#240"$#3'~#85
  108.     DO .4 <- '".4~.4"~#1'$'&".1~#8"$".V1~#2"'
  109.     DO (3186) NEXT
  110.     DO .4 <- :3~'#49152$#32768'
  111.     DO .4 <- .4~.4
  112.     DO (3183) NEXT
  113.     DO (1999) NEXT
  114. (3183)    DO (3186) NEXT
  115.     PLEASE FORGET #1
  116.     DO :2 <- ':3~"#0$#65535"'$'"':3~"#32767$#0"'$#0"~"#32767$#1"'
  117.     DO :1 <- ':2~"#32767$#1"'$'"':2~"#0$#32767"'$#0"~"#32767$#1"'
  118.     DO (1500) NEXT
  119.     DO :1 <- :3
  120.     DO :2 <- .1~#15
  121. (3182)    DO (1500) NEXT
  122.  
  123. (3190)    PLEASE ABSTAIN FROM (3197)
  124. (3199)    PLEASE STASH :1 + :2 + :3 + .2 + .4
  125.     DO :2 <- #10
  126.     DO .2 <- #256
  127.     PLEASE STASH .2
  128.     DO (3191) NEXT
  129.     DO (3095) NEXT
  130.     DO .2 <- #80
  131. (3197)    DO (3001) NEXT
  132.     PLEASE REINSTATE (3197)
  133.     PLEASE RETRIEVE :1 + :2 + :3 + .2 + .4
  134.     PLEASE RESUME #1
  135. (3198)    PLEASE RESUME '?"':1~:1'~#1"$#2'~#3
  136. (3191)    DO COME FROM (3192)
  137.     DO (2530) NEXT
  138.     DO .2 <- :4
  139.     PLEASE STASH .2
  140.     DO :1 <- :3
  141. (3192)    DO (3198) NEXT
  142.  
  143. (3990)    DO ,3000 <- #1
  144.     DO ,3000SUB#1 <- #0
  145.     DO ,3001 <- #1
  146.     DO ,3001SUB#1 <- #0
  147.     PLEASE RESUME #1
  148.  
  149.  
  150. (2030)    DO STASH .1 + .5
  151.     DO .3 <- #0
  152.     DO .5 <- '?"!2~.2'~#1"$#1'~#3
  153.     PLEASE DO (2031) NEXT
  154.     DO .4 <- #1
  155.     PLEASE DO (2033) NEXT
  156. (2033)    DO FORGET #1
  157.     DO .5 <- '?".2~#32768"$#2'~#3
  158.     DO (2032) NEXT
  159.     DO .2 <- !2$#0'~'#32767$#1'
  160.     PLEASE DO .4 <- !4$#0'~'#32767$#1'
  161.     DO (2033) NEXT
  162. (2032)    DO (1001) NEXT
  163. (2036)    PLEASE FORGET #1
  164.         DO .5 <- '?.1$.2'~'#0$#65535'
  165.         DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
  166.                  ".5~.5"'~#1"$#2'~#3
  167.     DO (2034) NEXT
  168.     DO .5 <- .3
  169.     DO (1010) NEXT
  170.     PLEASE DO .1 <- .3
  171.         DO .3 <- 'V.4$.5'~'#0$#65535'
  172.     DO (2035) NEXT
  173. (2034)    PLEASE DO (1001) NEXT
  174. (2035)    DO FORGET #1
  175.     DO .5 <- "?'.4~#1'$#2"~#3
  176.     DO (2031) NEXT
  177.     DO .2 <- .2~#65534
  178.     DO .4 <- .4~#65534
  179.     PLEASE DO (2036) NEXT
  180. (2031)    DO (1001) NEXT
  181.     PLEASE DO .4 <- .1
  182.     PLEASE RETRIEVE .1 + .5
  183.     PLEASE RESUME #2
  184.  
  185. (2530)    DO STASH :1 + :5 + .5
  186.     DO :3 <- #0
  187.     DO .5 <- '?"':2~:2'~#1"$#1'~#3
  188.     PLEASE DO (2531) NEXT
  189.     DO :4 <- #1
  190.     PLEASE DO (2533) NEXT
  191. (2533)    DO FORGET #1
  192.     DO .5 <- '?":2~'#32768$#0'"$#2'~#3
  193.     DO (2532) NEXT
  194.     DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
  195.        0'~'#32767$#1'"
  196.     PLEASE DO :4 <- ":4~'#0$#65535'"$"'":4~'#32767
  197.          $#0'"$#0'~'#32767$#1'"
  198.     DO (2533) NEXT
  199. (2532)    DO (1001) NEXT
  200. (2536)    PLEASE FORGET #1
  201.     DO :5 <- "'?":1~'#65535$#0'"$":2~'#65535$#0'"'
  202.          ~'#0$#65535'"$"'?":1~'#0$#65535'"$":2~'#0$
  203.          #65535'"'~'#0$#65535'"
  204.     DO .5 <- '?"'&"':2~:5'~'"'?"'?":5~:5"~"#65535$
  205.          #65535"'~'#65535$#0'"$#32768'~'#0$#65535'"
  206.          $"'?":5~:5"~"#65535$#65535"'~'#0$#65535'"'
  207.          "$"':5~:5'~#1"'~#1"$#2'~#3
  208.     DO (2534) NEXT
  209.     DO :5 <- :3
  210.     DO (1510) NEXT
  211.     PLEASE DO :1 <- :3
  212.     DO :3 <- "'V":4~'#65535$#0'"$":5~'#65535$#0'"'
  213.          ~'#0$#65535'"$"'V":4~'#0$#65535'"$":5~'#0$
  214.          #65535'"'~'#0$#65535'"
  215.     DO (2535) NEXT
  216. (2534)    PLEASE DO (1001) NEXT
  217. (2535)    DO FORGET #1
  218.     DO .5 <- "?':4~#1'$#2"~#3
  219.     DO (2531) NEXT
  220.     DO :2 <- ":2~'#0$#65534'"$":2~'#65535$#0'"
  221.     DO :4 <- ":4~'#0$#65534'"$":4~'#65535$#0'"
  222.     PLEASE DO (2536) NEXT
  223. (2531)    DO (1001) NEXT
  224.     DO :4 <- :1
  225.     PLEASE RETRIEVE :1 + :5 + .5
  226.     PLEASE RESUME #2
  227.