Readers Feedback

---

The Editors and Readers of COMPUTE!

If you have any questions, comments, or suggestions you would like to see addressed in this column, write to "Readers' Feedback," COMPUTE!, P.O. Box 5406, Greensboro, NC 27403. Due to the volume of mail we receive, we regret that we cannot provide personal answers to technical questions.

 

Scrolling Atari Messages
I am an Atari 1200XL owner. I would like to know how to move a message like 1=LOAD 2=LOCK 3=UNLOCK across the screen.

The following BASIC program scrolls any message up to 100 characters across the top of the screen. The variable MESS$ in line 20 contains the message to be printed. You can reposition the scrolling message to any line on the screen by changing the POSITION statement in line 30.

KK 5 DIM MESS$ (100),TEMP$(20
     0):L=1
EC 10 PRINT "{CLEAR}":POKE 8
      2,0:POKE 752,1
JO 20 MESS$="TYPE LETTER TO
      RUN, OR 1=LOAD 2=LOCK
      3=UNLOCK 4=EXIT... ":N
      =LEN(MESS$)
FE 25 TEMP$(1,N)=MESS$:TEMP$
      (N+1,2*N)=MESS$
DB 30 POSITION 0,0:PRINT TEM
      P$(L,L+39)
AM 40 L=L+1:IF L>2*N-40 THEN
      L=1
ED 50 FOR TD=1 TO 50:NEXT TD
      :GOTO 30