home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / lib / 1910.doc next >
Text File  |  1994-10-23  |  998b  |  35 lines
  1. From ucbvax!bloom-beacon!eru!luth!sunic!lth.se!newsuser Thu May 17 19:51:02 PDT 1990
  2.  
  3. Sorry, but I couldn't find the (1910)-routine so I wrote one, which
  4. will do it's job, IF the (1900)-routine is as the manual says ( you know
  5. it isn't ). At least I hope it works because the manual is not very clear
  6. about this routine.
  7.  
  8.  
  9. (1910) PLEASE STASH .3 + :3 + :1 + :2
  10.        DO :1 <- #32768
  11.        PLEASE .2 <- #1
  12.        PLEASE (1911) NEXT
  13. (1911) DO FORGET #1
  14.        DO STASH .1
  15.        DO (1900) NEXT
  16.        PLEASE :2 <- .1
  17.        DO RETRIEVE .1
  18.        DO (1500) NEXT
  19.        PLEASE DO :1 <- :3
  20.        DO (1010) NEXT
  21.        PLEASE .1 <- .3
  22.        DO (1912) NEXT
  23.        DO (1911) NEXT
  24. (1912) PLEASE (1913) NEXT
  25.        DO .2 <- :1~'#65280$#65280'
  26.        PLEASE RETRIEVE :2 + .3 + :1 + :3
  27.        DO RESUME #2
  28. (1914) PLEASE RESUME #1$"'.1~.1'~#1"
  29. (1913) PLEASE (1914) NEXT
  30. -- 
  31. ----------
  32. Hans Olsson   Email: f88ho@efd.lth.se   
  33.               Snail: K[MN[RSV[GEN 8:118 
  34.                      222 45 Lund Sweden
  35.