0 REM MOVING MESSAGE PROGRAM FOR THE ATARI›1 PRINT "}":REM CLEAR SCREEN BEFORE GOING ON›2 REM Dimension strings›10 DIM X$(1000),B$(1),W$(20),P$(20),Y$(20),Z$(20)›15 W$="* * * * * * * * * * ":REM ^^    BORDER›16 Y$=W$›19 REM Clear strings and set B$=blank for clearing the remainder of X$›20 X$="":B$=" "›24 REM Input your text here›25 ? :? "Enter your message";:INPUT X$›29 REM CLEAR THE REST OF X$ IF SHORTER THAN SCREEN WIDTH(19)›30 IF LEN(X$)<20 THEN FOR C=1 TO 20-LEN(X$):X$(LEN(X$)+1)=B$:NEXT C:X$(LEN(X$)+1)=B$›35 DIM A$(LEN(X$)),C$(LEN(X$)):A$=X$›39 REM GOTO GRAPHICS MODE 2+16 AND PRINT STRINGS›40 GRAPHICS 18›44 TRAP 46›45 REM Move borders of stars›46 POSITION 0,3:? #6;Y$(1):P$=W$(2):P$(LEN(P$)+1)=W$:W$=P$›47 POSITION 0,7:? #6;Y$(1):Z$=Y$(2):Z$(LEN(Z$)+1)=Y$:Y$=Z$›49 REM Move message string and     check location 764 to see if a key    was struck›50 POSITION 0,5:? #6;A$(1,20):C$=A$(2):C$(LEN(C$)+1)=A$:A$=C$:K=PEEK(764)›54 REM Pause to increasa readability,set color randomly, and reset attract   flag›55 FOR TI=1 TO 50:NEXT TI:POKE 77,0:SETCOLOR INT(RND(0)*4),INT(RND(0)*15),8:IF K=255 THEN 46›