15 lines
384 B
Text
15 lines
384 B
Text
0 REM C64 WITH SIMONS' BASIC
|
|
10 COLOUR 0,0
|
|
20 HIRES 1,0
|
|
30 X=100:Y=100:XR=98:YR=74:GOSUB 100
|
|
40 X=260:Y=150:XR=48:YR=36:GOSUB 100
|
|
50 GET K$:IF K$="" THEN 50
|
|
60 END
|
|
100 CIRCLE X,Y,XR,YR,1
|
|
110 ARC X,Y+YR/2,180,360,1,XR/2,YR/2+1,1
|
|
120 ARC X,Y-YR/2,0,180,1,XR/2,YR/2+1,1
|
|
130 CIRCLE X,Y-YR/2,XR/8,YR/8,1
|
|
140 CIRCLE X,Y+YR/2,XR/8,YR/8,1
|
|
150 PAINT X,Y+YR/2,1
|
|
160 PAINT X-XR/2,Y,1
|
|
170 RETURN
|