CTDEMO.PAS, by Markus Saukkonen 1991. TДtД lДhdekoodia saa levittДД
   vapaasti, mutta vain CT_VOICE.PAS:n mukana.
   CTDEMO on yksinkertainen esimerkki CT_VOICE-unitin kДytФstД Sound
   Blasterin ohjaamiseen. Ohjelma lukee .VOC-tiedostoja ja soittaa ne.
   Latausosa on hieman monimutkainen, koska .VOC-tiedostossa voi olla
   rajoittamaton mДДrД erimittaisia datablokkeja (CTDEMO ei ymmДrrД eri
   blokkityyppejД, se vain soittaa ne kertaalleen lДpi). Tiedot luetaan
   levyltД vuorotellen kahteen puskuriin, tyylinД "toiseen ladataan -
   toista soitetaan".

   procedure getversion(var major, minor: byte);
   procedure setioaddress(address: word);
   procedure setinterrupt(int: word);
   function initializedriver:byte;
   procedure speaker(status: byte);
   procedure setstatusaddress(address: pointer);
   procedure playsample(address: pointer);
   procedure inputsample(address: pointer; speed: word; length: longint);
   procedure stopvoice;
   procedure uninstalldriver;
   function pausevoice: byte;
   function continuevoice: byte;
   function breakloop(when: word): byte;
   procedure setuserfunction(address: pointer);