Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!spool.mu.edu!uunet!mcsun!cernvax!myb
From: myb@cernvax.cern.ch (michel bornand)
Newsgroups: comp.sys.apple2
Subject: What's wrong with this Pascal program?
Keywords: Pascal
Message-ID: <5395@cernvax.cern.ch>
Date: 24 May 91 06:39:45 GMT
Article-I.D.: cernvax.5395
Distribution: all
Organization: CERN, Geneva, Switzerland
Lines: 42

Hi everybody. Here is a simple Pascal program for Apple IIGS with should
produce a sound at 16kHz. It does not work. What's wrong with it?
What did I miss?

Pascal testsound;

uses types,sound;

var gparms:SoundParamBlock;
    oneangle:array[1..16]of byte;

begin
     oneangle[1]:=$40;
     oneangle[2]:=$50;
     oneangle[3]:=$60;
     oneangle[4]:=$70;
     oneangle[5]:=$80;
     oneangle[6]:=$90;
     oneangle[7]:=$A0;
     oneangle[8]:=$B0;
     oneangle[9]:=$C0;
     oneangle[10]:=$B0;
     oneangle[11]:=$A0;
     oneangle[12]:=$90;
     oneangle[13]:=$80;
     oneangle[14]:=$70;
     oneangle[15]:=$60;
     oneangle[16]:=$50;
     gparms.waveStart:=@oneangle[1];
     gparms.waveSize:=16;
     gparms.fredOffset:=311;
     gparms.DOCBuffer:=1;
     gparms.bufferSize:=$0800;
     gparms.nextWave:=@gparms;
     gparms.volSetting:=255;
     FFStartSound($0A01,@gparms);

end.

Thank you for all suggestions.

myb@cernvm.cern.ch