home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 2
/
crawlyvol2.bin
/
apps
/
text_ed
/
emacs
/
trand.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-06-07
|
469b
|
25 lines
set %try 0
set %sum 0
insert-string "Rolls: "
*nextry
set %roll &rnd 100
!if &greater $curcol 70
newline
insert-string " "
!endif
set %sum &add %sum %roll
insert-string &cat %roll " "
update-screen
set %try &add %try 1
!if &less %try 300
!goto nextry
!endif
newline
newline
insert-string &cat &cat "Sum of rolls: " %sum "~n"
insert-string &cat &cat "Average roll: " &div %sum 300 "~n"
update-screen
unmark-buffer