1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
10 REM 640x350 16 colors
20 SCREEN 9
30 REM FLAG WIDTH
40 LET W=300
50 LET H=W*2/3
60 LET X=(640-W)/2
70 LET Y=(350-H)/2
80 LINE (X,Y)-(X+W,Y+H),4,BF
90 LINE (X,Y)-(X+W/2, Y+H/2),1,BF
100 LET CX=X+W/4
110 LET CY=Y+H/4
120 LET CR=(W/2)/8
130 LET BR=CR/15
140 LET PI=3.14159265
150 FOR I=0 TO 359 STEP 30
160 LINE (CX, CY)-(CX+CR*SIN((15+I)*PI/180),CY+CR*COS((15+I)*PI/180)),15
170 LINE (CX, CY)-(CX+CR*SIN((360-15+I)*PI/180),CY+CR*COS((360-15+I)*PI/180)),15
180 LINE (CX+CR*2*SIN(I*PI/180), CY+CR*2*COS(I*PI/180))-(CX+CR*SIN((15+I)*PI/180),CY+CR*COS((15+I)*PI/180)),15
190 LINE (CX+CR*2*SIN(I*PI/180), CY+CR*2*COS(I*PI/180))-(CX+CR*SIN((360-15+I)*PI/180),CY+CR*COS((360-15+I)*PI/180)),15
200 PAINT (CX+CR*SIN(I*PI/180), CY+CR*COS(I*PI/180)), 15, 15
210 NEXT I
220 CIRCLE (CX,CY),CR+BR,1,,,1
230 PAINT (CX,CY), 1, 1
240 CIRCLE (CX,CY),CR,15,,,1
250 PAINT (CX,CY), 15, 15
260 LET T=TIMER
270 LET T1=TIMER
280 IF T1 < T THEN GOTO 300
290 IF T1-T < 5 THEN GOTO 270
300 SYSTEM
|
