15 lines
429 B
Text
15 lines
429 B
Text
0 REM COMMANDER X-16
|
|
10 SCREEN 128
|
|
20 RECT 0,0,319,239,0
|
|
30 X=100:Y=120:XR=98:YR=98:GOSUB 100
|
|
40 X=260:Y=180:XR=48:YR=48:GOSUB 100
|
|
50 GET K$: IF K$="" THEN 50
|
|
60 END
|
|
100 OVAL X-XR,Y-YR,X+XR,Y+YR,1
|
|
110 RECT X,Y-YR,X+YR,Y+YR,0
|
|
120 OVAL X-XR/2,Y-YR,X+XR/2,Y,1
|
|
130 OVAL X-XR/2,Y,X+XR/2,Y+YR,0
|
|
140 RING X-XR,Y-YR,X+XR,Y+YR,1
|
|
150 OVAL X-XR/8,Y-YR/2-YR/8,X+XR/8,Y-YR/2+YR/8,0
|
|
160 OVAL X-XR/8,Y+YR/2-YR/8,X+XR/8,Y+YR/2+YR/8,1
|
|
170 RETURN
|