home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 197_01 / trand.cmd < prev   
OS/2 REXX Batch file  |  1979-12-31  |  512b  |  24 lines
  1.     set %try 0
  2.     set %sum 0
  3.     insert-string "Rolls: "
  4. *nextry
  5.     set %roll &rnd 100
  6.     !if &greater $curcol 70
  7.         newline
  8.         insert-string "       "
  9.     !endif
  10.     set %sum &add %sum %roll
  11.     insert-string &cat %roll " "
  12.     update-screen
  13.     set %try &add %try 1
  14.     !if &less %try 300
  15.         !goto nextry
  16.     !endif
  17.  
  18.     newline
  19.     newline
  20.     insert-string &cat &cat "Sum of rolls: " %sum "~n"
  21.     insert-string &cat &cat "Average roll: " &div %sum 300 "~n"
  22.     update-screen
  23.     unmark-buffer
  24.