home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / CODER.PRG < prev    next >
Encoding:
Text File  |  1993-01-31  |  708 b   |  18 lines
  1. *****************************************************************
  2. *     * 09/92               CODER.PRG                           *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates the use of RAND() function     *
  8. *     *                                                         *
  9. *****************************************************************
  10. FOR z=1 TO 10
  11.    j=0
  12.    =RAND(3344)
  13.    FOR i=1 TO 1000
  14.       j=j+RAND()
  15.    ENDFOR
  16.    ? j
  17. ENDFOR
  18.