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

JB> that is the same as

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

JB> which is simpler

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

JB> and may even be faster.

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

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

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

  * SLMR 2.1a *

--- Maximus 3.01