home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / random.doc < prev    next >
Text File  |  1994-04-25  |  480b  |  24 lines
  1.     DO (1900) NEXT
  2.     DO READ OUT .1
  3.     PLEASE GIVE UP
  4. (1900)    DO STASH .2 + .3
  5.     DO .3 <- #65535
  6.     DO (1903) NEXT
  7. (1903)    PLEASE FORGET #1
  8.     DO .2 <- #0
  9.     PLEASE %50 IGNORE .2
  10.     DO .2 <- #1
  11.     PLEASE REMEMBER .2
  12.     DO .1 <- !1$.2'~"#65535$#1"
  13.     DO .3 <- .3~#65534
  14.     DO (1902) NEXT
  15.     DO (1903) NEXT
  16. (1902)    DO (1904) NEXT
  17.     DO RETRIEVE .2 + .3
  18.     DO FORGET #1
  19.     PLEASE RESUME #1
  20. (1904)    PLEASE RESUME '?"!3~.3'~#1"$#1'~#3
  21.  
  22. Random.i: Store a random number between 0 and 65535 in .1
  23.     (blojo@ocf.berkeley.edu)
  24.