home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / random2.i < prev    next >
Text File  |  1996-06-09  |  442b  |  18 lines
  1. (1900)  DO STASH .2 + .3
  2.         DO .3 <- #65535
  3.         DO (1903) NEXT
  4. (1903)  PLEASE FORGET #1
  5.         DO .2 <- #0
  6.         PLEASE %50 IGNORE .2
  7.         DO .2 <- #1
  8.         PLEASE REMEMBER .2
  9.         DO .1 <- !1$.2'~"#65535$#1"
  10.         DO .3 <- .3~#65534
  11.         DO (1902) NEXT
  12.         DO (1903) NEXT
  13. (1902)  DO (1904) NEXT
  14.         DO RETRIEVE .2 + .3
  15.         DO FORGET #1
  16.         PLEASE RESUME #1
  17. (1904)  PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
  18.