home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Demos / Other / KG Demo Installer / Examples.sit / Macro Source / Random# < prev    next >
Encoding:
Text File  |  1993-04-14  |  226 b   |  29 lines  |  [TEXT/QKPT]
  1. alpha     "Random Number Series"
  2. ran#
  3. RCL 02
  4.  *
  5. RCL 00
  6.  +
  7. STOv 000
  8. STOP
  9. ;
  10. entry
  11. 0e+00
  12. STO 00
  13. alpha     "Lower Limit"
  14. STOa 0
  15. ;
  16. 1
  17. STO 01
  18. alpha     "Upper Limit"
  19. STOa 1
  20. ;
  21. alpha     "Random#:"
  22. inpt 2
  23. ;
  24. RCL 01
  25. RCL 00
  26.  -
  27. STO 02
  28. end
  29.