tutorial/group3/07.bas

   1 DECLARE SUB sihik (x!, y!)\r
   2 SCREEN 13\r
   3 \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
   7 \r
   8 \r
   9 sihik 100, 100\r
  10 sihik 200, 50\r
  11 sihik 180, 150\r
  12 \r
  13 SUB sihik (x, y)\r
  14 \r
  15 CIRCLE (x, y), 10, 15\r
  16 CIRCLE (x, y), 20, 15\r
  17 CIRCLE (x, y), 30, 15\r
  18 \r
  19 LINE (x, y - 50)-(x, y + 50), 15\r
  20 LINE (x - 50, y)-(x + 50, y), 15\r
  21 \r
  22 END SUB\r
  23 \r