1 DECLARE SUB sihik (x!, y!)
\r
4 ' Press F2 to see submodules list
\r
5 ' Vajuta F2 at n
\84ha sub moodulite listi
\r
6 ' nazmi F2 xtobe uvidjet sub spisok sub modulei
\r
15 CIRCLE (x, y), 10, 15
\r
16 CIRCLE (x, y), 20, 15
\r
17 CIRCLE (x, y), 30, 15
\r
19 LINE (x, y - 50)-(x, y + 50), 15
\r
20 LINE (x - 50, y)-(x + 50, y), 15
\r