home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / iogerunds.i < prev    next >
Text File  |  1994-09-22  |  553b  |  21 lines
  1.         DO .1 <- #123
  2.         DO ABSTAIN FROM WRITING IN
  3.         DO COME FROM (123)
  4. (100)   DO WRITE IN .1
  5.         PLEASE .2 <- #1
  6.         DO %50 .2 <- !2$#0'
  7.         PLEASE DO (42) NEXT
  8.         DO ABSTAIN FROM READING OUT
  9.         PLEASE COME FROM (69)
  10.         DO READ OUT .1
  11.         DO REINSTATE READING OUT
  12. (123)   PLEASE REINSTATE (100)
  13. (42)    DO (43) NEXT
  14.         DO FORGET #1
  15.         DO (105) NEXT
  16.         PLEASE GIVE UP
  17. (105)   DO (106) NEXT
  18. (69)    DON'T GIVE UP
  19. (106)   PLEASE DO RESUME "'?"!1~.1'~#1"$#1'~#1"$'".1~.1"~#1'
  20. (43)    DO RESUME .2
  21.