home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / pow.i < prev    next >
Text File  |  1996-06-09  |  1KB  |  51 lines
  1.     PLEASE WRITE IN .2
  2.     DO .1 <- #0
  3.     PLEASE COME FROM (1)
  4.     DO (2040) NEXT
  5.     DO NOT (2049) NEXT
  6.         DO READ OUT :1
  7.         DO NOT READ OUT .4
  8. (1)    DO (1020) NEXT
  9.     PLEASE GIVE UP
  10.     
  11.  
  12. (2040)  PLEASE STASH .4
  13.     DO ABSTAIN FROM (2047)
  14. (2049)  DO STASH .1 + .2 + :2 + :3 + :4 + :5 + :6
  15.     PLEASE DO .4 <- #1
  16.     DO :5 <- .1
  17.     DO :6 <- #1
  18.     DO (2044) NEXT
  19. (2047)    DO (2048) NEXT
  20.     DO .1 <- .4
  21.     DO (2046) NEXT
  22.     DO (1999) NEXT
  23. (2046)  DO (2042) NEXT
  24.     PLEASE REINSTATE (2047)
  25.     PLEASE RETRIEVE .4
  26. (2048)    DO :1 <- :6
  27.     DO RETRIEVE .1 + .2 + :2 + :3 + :4 + :5 + :6
  28.     PLEASE RESUME #2
  29. (2044)  DO (2045) NEXT
  30. (2045)    PLEASE FORGET #1
  31.     DO .1 <- "?!2~#1'$#1"~#3
  32.     DO (2041) NEXT
  33.     PLEASE DO :1 <- :6
  34.     PLEASE DO :2 <- :5
  35.     DO (1549) NEXT
  36.     DO :6 <- :3
  37.     DO .4 <- '?"'V.4$":4~#3"'~#4"$#1'~#3
  38.     DO (2043) NEXT
  39. (2042)  PLEASE RESUME .1
  40. (2041)  DO (2042) NEXT
  41. (2043)    PLEASE FORGET #1
  42.     DO .2 <- .2~#65534
  43.     DO .1 <- '?"!2~.2'~#1"$#2'~#3
  44.     DO (2042) NEXT
  45.     PLEASE DO :1 <- :5
  46.     PLEASE DO :2 <- :5
  47.     DO (1549) NEXT
  48.     DO :5 <- :3
  49.     DO .4 <- '?"'V.4$":4~#3"'~#4"$#1'~#3
  50.     DO (2045) NEXT
  51.