[SIN-COS] SAMPLE

5 R=10:C=1
10 CLS 3:FOR I=0 TO 79
20 CIRCLE (540,380),R,C
30 ROLL 8,8
40 NEXT I
50 R=R+2:IF R>22 THEN R=10:C=1:GOTO 110
60 C=C+1:IF C>7 THEN C=1
70 GOTO 10
110 CLS 3:FOR I=0 TO 79
120 CIRCLE (100,20),R,C
130 ROLL -8,-8
140 NEXT I
150 R=R+2:IF R>22 THEN R=10:C=1:GOTO 10
160 C=C+1:IF C>7 THEN C=1
170 GOTO 110

ROLLを使い、20、30で下方に書いた円を左上方向に、
120、130で上方に書いた円を右下方にスクロールしています。