home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / icat.i < prev    next >
Text File  |  1996-06-17  |  437b  |  24 lines

  1.     PLEASE DO ,1 <- #1
  2.     DO .4 <- #0
  3.     DO .5 <- #0
  4.     DO COME FROM (30)
  5.     DO WRITE IN ,1
  6.     DO .1 <- ,1SUB#1
  7.     DO (10) NEXT
  8.     PLEASE GIVE UP
  9. (20)    PLEASE RESUME '?.1$#256'~'#256$#256'
  10. (10)    DO (20) NEXT
  11.     DO FORGET #1
  12.     PLEASE DO .2 <- .4
  13.     DO (1000) NEXT
  14.     DO .4 <- .3~#255
  15.     PLEASE DO .3 <- !3~#15'$!3~#240'
  16.     DO .3 <- !3~#15'$!3~#240'
  17.     DO .2 <- !3~#15'$!3~#240'
  18.     PLEASE DO .1 <- .5
  19.     DO (1010) NEXT
  20.     DO .5 <- .2
  21.     DO ,1SUB#1 <- .3
  22. (30)    PLEASE READ OUT ,1
  23.  
  24.