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.