SCREEN 13

LOCATE 1, 1
PRINT "Tulege meile “ppima!!"

FOR x = 0 TO 160
  FOR y = 0 TO 32
    c = POINT(x, y)
    x1 = x * 2
    y1 = y * 2 + 90
    LINE (x1, y1)-(x1 + 1, y1 + 1), c, BF
  NEXT y
NEXT x

LOCATE 1, 1
PRINT "                     "

FOR x = 0 TO 320
  CIRCLE (x, 130), 10, 9
  SOUND 0, .1
NEXT x

FOR y = 0 TO 70
  SOUND 0, .1
  LINE (160 - 70 + y, y)-(160 + 70 - y, y), 9
NEXT y

FOR a = 1 TO 50
  SOUND 0, 1
NEXT a

CHAIN "khkdemo.bas"