Sinclair ZX Series - Page 8

10 FOR J=1 TO 10
20 FOR I=0 TO J*12
30 PLOT 32+J*2*SIN(I/(J*6)*PI), 22+J*2*COS(I/(J*6)*PI)
40 NEXT I
50 NEXT J
Program 3a
10 FOR I=-4 TO 4
20 FOR J=0 TO 120
30 PLOT 32+20*SIN(J/(60*PI), 22+20*COS(J/60*PI+ I/4*PI)
40 NEXT J
NEXT I
Program 4
1000 DIM A$(704)
1010 FOR I=0 TO 21
1020 FOR J=1 TO 32
1030 LET A$=(J+32*I) = CHR$ PEEK(PEEK 16396+256*PEEK 16397+J+33*I)
1040 NEXT J
1050 NEXT I
Program 5
10 REM "SKETCHPAD"
20 LET X=32
30 LET Y=22
40 GOSUB 500
50 UNPLOT X,Y
60 PLOT X,Y