ACT apricot - Page 289

CONTROL DEVlCE
cOM=6
Set the default printer type:
DA T = 0 - Parallel
DAT = 1- Serial
f. Sound Generator
This option allows the programmer to vary the volume of
the sound generator
DEV-56
COM-O, lor2
DAT-O to 15
COM = 0:
RET gives the status (0 = sound generator working, -1 =
sound generator not working)._
COM = 1:
DA T gives the new volume level for the key click. DA T
can be from
0 (maximum volume) to 15 (minimum volume).
If DAT is out of range (ideally -1) then the current volume
level of the feedback click is returned in RET:
Program example
10 rem - program to increase the key click volume
20 def seg=&h60:io=0:ret%=0
30 dev%=56 'device number
40 com%=l 'command number 1
50'dat%=1 'highest level
60 call io(dev%,com%,dat%,ret%) 'do change