On Monday, September 12, 2005, at 09:41  AM, AlStaff@... wrote:

> See if this works a little better for you:
>
> window 1,"Test",(0,0)-(1000,300)
<snip>

Here's a slightly more efficient way (I think) to use CLS LINE:

window 1,"Test",(0,0)-(1000,300)
text _geneva, 16,,_srcCopy // Use _srcCopy to overwrite existing text

dim as integer a,b,c,d
dim as str255 se

on timer (2) gosub "number"

do
handleevents
until 0

"number"
se = ""
for a = 1 to 10// 10 sentences
do
for d = 1 to rnd(12)// words up to 12 chr long
select d
case = 1
se = se + chr$(64 + rnd(26))
case else
se = se + chr$(96 + rnd(26))
end select
next
se = se + chr$(32)
until se[0] > 50//make sentence > 50 chr
print @(1, a - 1) se;//Print the sentence
CLS LINE //Clear rest of line
se = ""
next

b = rnd(7)
print : print 11^b;
CLS LINE

DIM myRect.8
SETRECT (myRect, 700, 20, 900, 220)
ERASERECT (varptr(myrect))

plot 700+rnd(200),20+rnd(200) to 700+rnd(200),20+rnd(200)

return

  e-e
  =J= a  y
   "


--
To unsubscribe, send ANY message to: futurebasic-unsubscribe@...