1 HSCROL=54276
2 VSCROL=54277
10 GRAPHICS 0:LIST 
20 DLIST=PEEK(560)+256*PEEK(561)
30 POKE DLIST+10,50:REM Enable both scrolls
40 POKE DLIST+11,50:REM Do it for two mode lines
50 FOR Y=0 TO 7
60 POKE VSCROL,Y:REM Vertical scroll
70 GOSUB 200:REM Delay
80 NEXT Y
90 FOR X=0 TO 3
100 POKE HSCROL,X:REM Horizontal scroll
110 GOSUB 200:REM Delay
120 NEXT X
130 GOTO 40
200 FOR J=1 TO 200
210 NEXT J:RETURN