Hi Greg.

10-Aug-03 16:28:00, Greg Easthom wrote to Jasen Betts


 GE>> ''' Now print that line one line lower on the screen LOCATE L +
 GE>> 1, 1: PRINT Oneline;

 JB>> that is the same as

 JB>> locate L+1,1 for char = 1 to 80 print chr$(screen(l,char); next
 JB>> char

 JB>> which is simpler

 GE> Yeah, but originally I tried having the thing use only screen 0,
 GE> with the lines advancing down one-by-one like a "wave". I was
 GE> going to overlay the Message onto one of the lines before printing
 GE> it, but after thinking about it for a whole 2 seconds, I couldn't
 GE> figure out how to get just the middle of the line highlighted
 GE> *and* keep the Message from moving down with the lines. Once I
 GE> went with screen-switching to keep the Message in the same place,
 GE> I didn't bother altering the original scrolling method.

 JB>> and may even be faster.

 GE> Yep. I took out the delay loop and put in a counter. 14.6 seconds
 GE> for 100 line-by-lines, 13.7 for char-by-char. Probably because I
 GE> have 80 read/writes and a print vs. just 80 read/prints.

 GE> Just shows there's more than 1 way (or 20) to get the job done.

 GE> PS: Don't make me learn about Peek/Poke... I'll have it down to
 GE> .003 seconds for 1000 lines!  :)

I haven't got QB only Qbasic I did the down-scroll in machine code :)
even faster...

 -=> Bye <=-

---
(3:640/1042)