graphics/3D/KHK Intellektika 2004 demo/KHKDEMO6.BAS

   1 SCREEN 13\r
   2 \r
   3 LOCATE 1, 1\r
   4 PRINT "Tulege meile \93ppima!!"\r
   5 \r
   6 FOR x = 0 TO 160\r
   7   FOR y = 0 TO 32\r
   8     c = POINT(x, y)\r
   9     x1 = x * 2\r
  10     y1 = y * 2 + 90\r
  11     LINE (x1, y1)-(x1 + 1, y1 + 1), c, BF\r
  12   NEXT y\r
  13 NEXT x\r
  14 \r
  15 LOCATE 1, 1\r
  16 PRINT "                     "\r
  17 \r
  18 FOR x = 0 TO 320\r
  19   CIRCLE (x, 130), 10, 9\r
  20   SOUND 0, .1\r
  21 NEXT x\r
  22 \r
  23 FOR y = 0 TO 70\r
  24   SOUND 0, .1\r
  25   LINE (160 - 70 + y, y)-(160 + 70 - y, y), 9\r
  26 NEXT y\r
  27 \r
  28 FOR a = 1 TO 50\r
  29   SOUND 0, 1\r
  30 NEXT a\r
  31 \r
  32 CHAIN "khkdemo.bas"\r
  33 \r