900 GRAPHICS 24:SETCOLOR 2,0,15:SETCOLOR 1,0,0:POKE 703,4:POKE 559,0:SETCOLOR 4,0,8
910 COLOR 1:DEG
920 FOR I=0 TO 45 STEP 0.5
930 X=SIN(I):Y=COS(I)
950 PLOT 80*(2-X),80*(1-Y)
960 PLOT 80*(2+X),80*(1-Y)
970 PLOT 80*(2-X),80*(1+Y)
980 PLOT 80*(2+X),80*(1+Y)
990 PLOT 80*(2-Y),80*(1-X)
1000 PLOT 80*(2+Y),80*(1-X)
1010 PLOT 80*(2-Y),80*(1+X)
1020 PLOT 80*(2+Y),80*(1+X)
1050 NEXT I
1100 FOR I=0 TO 300 STEP 20:PLOT I,0:DRAWTO I,159:NEXT I
1110 FOR I=0 TO 20 STEP 2:PLOT 60+I,40:DRAWTO 60+I,60:PLOT 240,40+I:DRAWTO 260,40+I:NEXT I
1111 COLOR 1:POKE 765,1:PLOT 240,120:POSITION 240,100:XIO 18,#6,0,0,"S:":COLOR 0:FOR I=4 TO 7:PLOT 240+I,100+I
1112 DRAWTO 240+I,120-I:DRAWTO 260-I,120-I:DRAWTO 260-I,100+I:DRAWTO 240+I,100+I:NEXT I
1113 COLOR 1:FOR I=4 TO 7:PLOT 260+I,100+I
1114 DRAWTO 260+I,120-I:DRAWTO 280-I,120-I:DRAWTO 280-I,100+I:DRAWTO 260+I,100+I:NEXT I
1115 FOR I=0 TO 16 STEP 4:PLOT 260,40+I:DRAWTO 280,40+I:PLOT 260,41+I:DRAWTO 280,41+I:NEXT I
1116 FOR I=0 TO 18 STEP 3:PLOT 40+I,80:DRAWTO 42+I,100:NEXT I
1117 FOR I=0 TO 18 STEP 3:PLOT 60,80+I:DRAWTO 80,82+I:NEXT I
1118 COLOR 1:POKE 765,1:PLOT 60,120:POSITION 80,100:XIO 18,#6,0,0,"S:"
1119 COLOR 1:POKE 765,1:PLOT 40,100:POSITION 60,120:XIO 18,#6,0,0,"S:"
1120 FOR I=0 TO 16 STEP 4:PLOT 40+I,40:DRAWTO 40+I,60:PLOT 41+I,40:DRAWTO 41+I,60:NEXT I
1125 FOR I=0 TO 20 STEP 2:PLOT 60+I,60:DRAWTO 80,80-I:PLOT 60,60+I:DRAWTO 80-I,80:NEXT I
1127 FOR I=0 TO 20 STEP 4:PLOT 40+I,60:DRAWTO 60,80-I:PLOT 40,60+I:DRAWTO 60-I,80:NEXT I
1130 FOR I=0 TO 140 STEP 20:PLOT 0,I:DRAWTO 319,I:NEXT I
1135 FOR I=20 TO 0 STEP -1:COLOR I+1:PLOT 240,60:DRAWTO 260,80-I:NEXT I
1136 FOR I=0 TO 20:COLOR I+1:PLOT 240,60:DRAWTO 260-I,80:NEXT I
1137 FOR I=0 TO 20:COLOR I+1:PLOT 280,60:DRAWTO 280-I,100:NEXT I
1138 FOR I=0 TO 40:COLOR I+1:PLOT 280,60:DRAWTO 260,100-I:NEXT I
1139 FOR I=0 TO 360 STEP 5:COLOR I-2*INT(I/2):PLOT 250,90:DRAWTO 250+10*COS(I),90+10*SIN(I):NEXT I
1140 COLOR 1:POKE 765,1:PLOT 100,40:POSITION 100,60:XIO 18,#6,0,0,"S:"
1141 COLOR 0:PLOT 102,49:DRAWTO 118,51
1142 COLOR 1:POKE 765,1:PLOT 200,40:POSITION 200,60:XIO 18,#6,0,0,"S:"
1143 COLOR 0:PLOT 202,50:DRAWTO 218,50:PLOT 210,42:DRAWTO 210,58
1144 COLOR 1:POKE 765,1:PLOT 100,100:POSITION 100,120:XIO 18,#6,0,0,"S:"
1145 COLOR 0:PLOT 103,105:DRAWTO 103,115:PLOT 117,105:DRAWTO 117,115
1146 COLOR 1:PLOT 203,105:DRAWTO 203,115:PLOT 217,105:DRAWTO 217,115
1150 REM
1160 POKE 87,9:FOR N=0 TO 79:COLOR INT(N/5):PLOT N,160:DRAWTO N,175:NEXT N
1170 POKE 87,10:FOR X=0 TO 79:COLOR INT(X/10)+1:PLOT X,176:DRAWTO X,191:NEXT X
1200 RESTORE 1230
1210 DL=PEEK(560)+256*PEEK(561)
1220 FOR N=14 TO 94 STEP 10:POKE DL+N,143:NEXT N
1222 FOR N=106 TO 166 STEP 10:POKE DL+N,143:NEXT N
1223 POKE DL+182,143
1225 FOR N=1536 TO 1594:READ A:POKE N,A:NEXT N
1230 DATA 72,173,59,6,201,16,16,23,141,10,212,10,10,10,10,109,200,2,141,26,208,238,59,6,173,59,6
1232 DATA 201,17,48,22,169,0,141,10,212,141,26,208,169,64,141,27,208,173,59,6,201,16,48,2,169,0,141,59,6,104,64,0
1240 POKE 1595,1:POKE 512,0:POKE 513,6:POKE 54286,192:POKE 559,34
(
geocities.com/hollywood/2645) (
geocities.com/hollywood)