home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / tools / ncomm3.0 / scripts / random.script < prev    next >
Encoding:
Text File  |  1978-05-22  |  417 b   |  15 lines
  1. ;NComm script that demonstrates the $RAND variable
  2.  
  3. set $range = "15"    ;Generate a random number between 0 and 15
  4.                         ;Actual result will be placed in the $newrand variable
  5.  
  6. main:
  7.     gosub rand
  8.     message "Your lucky number is: "$newrand"\n"
  9.     end
  10.  
  11. rand:    ;To generate a new random number, gosub to this routine
  12.     set $newrange = $range+"1"#
  13.         set $newrand = $rand*$newrange/"65536"#
  14.         return
  15.