CQBS- эмулятор QBasic функций типа beep, play, sound

все помнят в старом QBasic, гнустное устройство спикер, сколько игрушек было написано под это пищащее устройство. вот для тех, кто не шарится по английскому форуму FreeBasic, представляю эмулятор звуков старого QBasic.
http://www.freebasic.net/forum/viewtopic.php?p=108016
сам скачал, но не проверял. но а теперь кратко о функциях в библиотеке.

CQBS_initialize (byval Amplitude as short)
инициализирует библиотеку а по енглишу это выглятит так:
It initializes CQBS's internal thread
amplitude- громкость звука

' CQBS_finish
завершаем работу с библиотекой:
It finishes CQBS's internal thread

BELL
стантартный BEEP, тоже самое что
print chr(7)

SOUND Frequency, Duration
стандартный QBasic sound, от 37 до 32767 герц. Frequency- частота, Duration- длина.

PLAY commandstring
commandstring- строка содержащая команды. вот так оно работает:
play "cdeg>cdeg"
есть поддержка Foreground/Background.

новенькое, по английски:
' CQBS_SFX_Input (byval Amplitude as short ,_
' byval frequency as ushort,_
' byval Duration as single,_
' byval Rest_Duration as single) as ubyte
'
' It loads a sound into a playing queue.
'
' CQBS_SFX_Clear
'
' It cleans playing queue, all sound loaded by CQBS_SFX_Input is cleaned.
'
' CQBS_SFX_Play
'
' It plays all sound loaded on playing queue. Playing is on background for the
' last 255 sounds (maybe more). This function cleans playing queue when is back
' (even if sounds are on background).
'

подробную документацию можно скачать тоже от туда:
http://www.freebasic.net/forum/viewtopic.php?p=108016

ооо! наконец я посмотрел эту штуку. отличная вещь! играет прямо на звуковуху. как хорошо слышать спикерный звук на колонках, особенно частоты ниже 100 герц. а вот для самых ленивых, я выложил cqbs с исходниками
http://www.filehoster.ru/files/bp0492
рекомендую порыться в исходниках, если хотите научиться работать с multithread. кстати, при компиляции с этой штукой, в командной строке, надо обязательно указывать ключ -mt - потключить multithread библиотеки.