DECLARE SUB sihik (x!, y!)
SCREEN 13

' Press F2 to see submodules list
' Vajuta F2 at n„ha sub moodulite listi
' nazmi F2 xtobe uvidjet sub spisok sub modulei


sihik 100, 100
sihik 200, 50
sihik 180, 150

SUB sihik (x, y)

CIRCLE (x, y), 10, 15
CIRCLE (x, y), 20, 15
CIRCLE (x, y), 30, 15

LINE (x, y - 50)-(x, y + 50), 15
LINE (x - 50, y)-(x + 50, y), 15

END SUB