home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / primes.i < prev    next >
Text File  |  1994-04-25  |  2KB  |  87 lines
  1.     DO READ OUT #2
  2.     DO .10 <- #1
  3.     PLEASE COME FROM (23)
  4.     DO .11 <- !10$#1'~'#32767$#1'
  5.     DO .12 <- #1
  6.     PLEASE COME FROM (16)
  7.     DO .13 <- !12$#1'~'#32767$#1'
  8.     DO .1 <- .11
  9.     DO .2 <- .13
  10.     DO (2030) NEXT
  11.     DO (11) NEXT
  12. (15)    DO (13) NEXT
  13. (13)    DO .3 <- "?!4~.4'$#2"~#3
  14.     DO (14) NEXT
  15.     PLEASE FORGET #1
  16.     DO .1 <- .12
  17.     DO (1020) NEXT
  18. (16)    DO .12 <- .1
  19. (12)    DO .3 <- '?.2$.3'~'#0$#65535'
  20.     DO .3 <- '?"'&"!2~.3'~'"?'?.3~.3'$#32768"~"#0$#65535"'"$
  21.                  ".3~.3"'~#1"$#2'~#3
  22. (14)    PLEASE RESUME .3
  23. (11)    DO (12) NEXT
  24.     DO FORGET #1
  25.     PLEASE READ OUT .11
  26.     DO COME FROM (15)
  27.     DO .1 <- .10
  28.     DO (1020) NEXT
  29.     DO .10 <- .1
  30. (23)    DO (21) NEXT
  31. (22)    PLEASE RESUME "?!10~#32768'$#2"~#3
  32. (21)    DO (22) NEXT
  33.     DO FORGET #1
  34.     PLEASE GIVE UP
  35.  
  36. (2010)  PLEASE ABSTAIN FROM (2004)
  37. (2000)  PLEASE STASH .2
  38.         DO .2 <- #1
  39.         DO (2001) NEXT
  40. (2001)  PLEASE FORGET #1
  41.         DO .1 <- '?.1$.2'~'#0$#65535'
  42.         DO (2002) NEXT
  43.         DO .2 <- !2$#0'~'#32767$#1'
  44.         DO (2001) NEXT
  45. (2003)  PLEASE RESUME "?!1~.2'$#1"~#3
  46. (2002)  DO (2003) NEXT
  47.         PLEASE RETRIEVE .2
  48. (2004)    PLEASE RESUME #2
  49.     PLEASE DO REINSTATE (2004)
  50.     PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
  51. (2020)  PLEASE STASH .2 + .3
  52.     DO (1021) NEXT
  53. (2030)    DO STASH .1 + .5
  54.     DO .3 <- #0
  55.     DO .5 <- '?"!2~.2'~#1"$#1'~#3
  56.     PLEASE DO (2031) NEXT
  57.     DO .4 <- #1
  58.     PLEASE DO (2033) NEXT
  59. (2033)    DO FORGET #1
  60.     DO .5 <- '?".2~#32768"$#2'~#3
  61.     DO (2032) NEXT
  62.     DO .2 <- !2$#0'~'#32767$#1'
  63.     PLEASE DO .4 <- !4$#0'~'#32767$#1'
  64.     DO (2033) NEXT
  65. (2032)    DO (1001) NEXT
  66. (2036)    PLEASE FORGET #1
  67.         DO .5 <- '?.1$.2'~'#0$#65535'
  68.         DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
  69.                  ".5~.5"'~#1"$#2'~#3
  70.     DO (2034) NEXT
  71.     DO .5 <- .3
  72.     DO (1010) NEXT
  73.     PLEASE DO .1 <- .3
  74.         DO .3 <- 'V.4$.5'~'#0$#65535'
  75.     DO (2035) NEXT
  76. (2034)    PLEASE DO (1001) NEXT
  77. (2035)    DO FORGET #1
  78.     DO .5 <- "?'.4~#1'$#2"~#3
  79.     DO (2031) NEXT
  80.     DO .2 <- .2~#65534
  81.     DO .4 <- .4~#65534
  82.     PLEASE DO (2036) NEXT
  83. (2031)    DO (1001) NEXT
  84.     PLEASE DO .4 <- .1
  85.     PLEASE RETRIEVE .1 + .5
  86.     PLEASE RESUME #2
  87.