SCREEN _NEWIMAGE(800, 160, 0)

MSG$ = "Howdy Doodie !" 
PRINT MSG$
FOR J = 0 TO LEN(MSG$)
LOCATE 2 + J, 1
FOR K = 0 TO 8*LEN(MSG$)
IF POINT(K,J) = 0 THEN PRINT " "; ELSE PRINT "*";
NEXT K
PRINT
NEXT J
locate 1,1 : PRINT SPACE$(70)

this_way = -1

DoScrollIteration:

thiskey$ = inkey$
if thiskey$ <> "" then this_way = - this_way : _KEYCLEAR 
scroll this_way, 0, TRUE
_delay 0.01
GOTO DoScrollIteration