16 lines
411 B
Text
16 lines
411 B
Text
0 REM VIC-20 WITH SUPEREXPANDER
|
|
10 GRAPHIC 2
|
|
20 COLOR 0,1,1,1
|
|
30 X=312:Y=500:XR=310:YR=464:GOSUB 100
|
|
40 X=812:Y=750:XR=186:YR=248:GOSUB 100
|
|
50 GET K$:IF K$="" THEN 50
|
|
60 GRAPHIC 0
|
|
70 END
|
|
100 CIRCLE 1,X,Y,XR,YR
|
|
110 CIRCLE 1,X,Y-YR/2,XR/2,YR/2,75,25
|
|
120 CIRCLE 1,X,Y+YR/2,XR/2,YR/2,25,75
|
|
130 CIRCLE 1,X,Y-YR/2,XR/8+1,YR/8+1
|
|
140 CIRCLE 1,X,Y+YR/2,XR/8-1,YR/8-1
|
|
150 PAINT 1,X,Y+YR/2
|
|
160 PAINT 1,X-XR/2,Y
|
|
170 RETURN
|