Xref: utzoo comp.lang.pascal:2342 comp.sys.ibm.pc:34988
Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!cs.utexas.edu!uunet!zephyr.ens.tek.com!tektronix!reed!reeder
From: reeder@reed.UUCP (Doug Reeder)
Newsgroups: comp.lang.pascal,comp.sys.ibm.pc
Subject: Re: independant incrementation in pascal
Message-ID: <13328@reed.UUCP>
Date: 19 Sep 89 21:56:30 GMT
References: <11787@boulder.Colorado.EDU>
Reply-To: reeder@reed.UUCP (Doug Reeder)
Distribution: usa
Organization: Reed College, Portland OR
Lines: 18

try:

xoffset := dice(5);
yoffset := dice(5);
width := dice(5);
height := dice(5);

if xoffset + width > 5 then width := 5 - xoffset;
if yoffset + height > 5 then height := 5 - yoffset;

x := basex + xoffset;
y := basey + yoffset;

-- 
Doug Reeder                         USENET: ...!tektronix!reed!reeder
Institute of Knowledge, Jinx        BITNET: reeder@reed.BITNET
"A blaster can point two ways."  from ARPA: tektronix!reed!reeder@berkeley.EDU
       -Salvor Hardin               Box 722 Reed College,Portland,OR 97202