tutorial/group3/02.bas

   1 DECLARE SUB box (x1!, y1!, x2!, y2!, c!)\r
   2 \r
   3 ' Press F2 to see submodules\r
   4 ' Nazmi F2 xtob uvidet SUB moduli\r
   5 ' Vajuta F2 et n\84ha SUB mooduleid\r
   6 \r
   7 \r
   8 SCREEN 13\r
   9 \r
  10 box 10, 10, 100, 100, 15\r
  11 \r
  12 box 30, 80, 300, 120, 11\r
  13 \r
  14 box 140, 20, 180, 180, 10\r
  15 \r
  16 SUB box (x1, y1, x2, y2, c)\r
  17 \r
  18 FOR y = y1 TO y2\r
  19   FOR x = x1 TO x2\r
  20     PSET (x, y), c\r
  21   NEXT x\r
  22 NEXT y\r
  23 \r
  24 END SUB\r
  25 \r