home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / lib / plus.i < prev    next >
Text File  |  1994-10-23  |  354b  |  17 lines
  1. (2000)    PLEASE DO STASH .1 + .2 + .3
  2.     DO .2 <- #1
  3.     DO (2001) NEXT
  4. (2001)    PLEASE FORGET #1
  5.     DO .3 <- "?!1~#1'$#1"~#3
  6.     DO (2002) NEXT
  7.     PLEASE DO .2 <- !2$#1'~'#65535$#1'
  8.     DO .1 <- .1~#65534
  9.     DO (2001) NEXT
  10. (2002)    PLEASE DO (2003) NEXT
  11.     DO RETRIEVE .1
  12.     DO .3 <- .1
  13.     PLEASE DO .1 <- '?.2$.3'~'#0$#65535'
  14.     DO RETRIEVE .2 + .3
  15.     DO RESUME #2
  16. (2003)    DO RESUME .3
  17.