15 lines
380 B
Text
15 lines
380 B
Text
0 REM BASIC 3.5,7.0
|
|
10 COLOR 0,1:COLOR 1,2:COLOR 4,1
|
|
20 GRAPHIC 1,1
|
|
30 X=100:Y=100:XR=98:YR=74:GOSUB 100
|
|
40 X=260:Y=150:XR=48:YR=36:GOSUB 100
|
|
50 GETKEY K$
|
|
60 END
|
|
100 CIRCLE 1,X,Y,XR,YR
|
|
110 CIRCLE 1,X,Y-YR/2,XR/2,YR/2,0,180
|
|
120 CIRCLE 1,X,Y+YR/2,XR/2,YR/2,180,360
|
|
130 CIRCLE 1,X,Y-YR/2,XR/8,YR/8
|
|
140 CIRCLE 1,X,Y+YR/2,XR/8,YR/8
|
|
150 PAINT 1,X,Y+YR/2
|
|
160 PAINT 1,X-XR/2,Y
|
|
170 RETURN
|