Code: Select all
3 LET Y=Y+X
4 IF NOT Y OR Y>PI+PI THEN LET X=-X
5 PRINT AT Y,NOT PI;S$;A$( TO CODE "4");S$
6 LET A$=A$(VAL "2" TO )+A$(SGN PI)
7 GOTO PI
9998 SAVE "1K"
9999 GOTO SGN PI
Code: Select all
LET A$="MERRY CHRISTMAS TO ALL WWW.SINCLAIRZXWORLD.COM FREQUENTERS :-) "
You will also need the S$ variable to clear the scrolly text above and below as it moves. Again, using direct mode, type:
Code: Select all
LET S$=" "
Code: Select all
LET Y=SGN PI
LET X=Y
Regards,
Shaun.