Message #223

[guest]

Code:

REM
DEFLNG A-Z

CHDIR "c:\windows\media\" 'xp files reside here or put file in qb64 main folder
mid1& = _SNDOPEN("hi_hat.mid", "vol")
_SNDVOL mid1&, 0.7

SCREEN 12

DO
  _LIMIT 100
  x1 = INT(RND * 600) + 20
  y1 = INT(RND * 400) + 20
  r = INT(RND * 10) + 1
  tint = INT(RND * 15) + 1
  PSET (x1, y1), tint
  CIRCLE (x1, y1), r, tint
  IF NOT _SNDPLAYING(mid1&) THEN
    _SNDPLAY mid1&
  END IF
  IF _KEYDOWN(27) THEN
    EXIT DO
  END IF
  _DISPLAY
LOOP
_SNDSTOP mid1&
_SNDCLOSE mid1&
SLEEP
SYSTEM