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