home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
cbin
/
bach.prg
next >
Wrap
Text File
|
1987-06-21
|
3KB
|
122 lines
* bach.prg
* tests beeps.bin
* AS 6-20-87
* HEY! This provides an audio benchmark for speed of FoxBase+ vs. dBase III!
* check out beep.bin, beep.c (beep.c has a machine-independent delay)
set procedure to bach
set talk off
a = 440
bflat = 467
b = 494
c = 523
csharp = 559
d = 587
e = 659
f = 705
fsharp = 746
g = 784
load \cbin\beep
do beeper with a*2,10
do beeper with g,10
do beeper with a*2,120
do beeper with 1,30
do beeper with g,8
do beeper with f,8
do beeper with e,8
do beeper with d,8
do beeper with csharp,100
do beeper with d,150
do beeper with 1,90
do beeper with a,10
do beeper with g/2,10
do beeper with a,120
do beeper with 1,30
do beeper with e/2,40
do beeper with 1,2
do beeper with f/2,40
do beeper with 1,2
do beeper with csharp/2,40
do beeper with 1,2
do beeper with d/2,150
do beeper with 1,2
do beeper with 1,90
do beeper with a/2,10
do beeper with g/4,10
do beeper with a/2,120
do beeper with 1,30
do beeper with g/4,8
do beeper with f/4,8
do beeper with e/4,8
do beeper with d/4,8
do beeper with csharp/4,100
do beeper with d/4,150
do flutter with d/4,d/8,80
do flutter with d/4,csharp/4,20
do flutter with d/4,e/4,20
do flutter with d/4,g/4,20
do flutter with d/4,bflat/2,20
do flutter with d/4,csharp/2,20
do flutter with d/4,e/2,20
do flutter with d/4,g/2,20
do flutter with d/4,bflat,20
do flutter with d/4,csharp,20
do flutter with d/4,e,20
do flutter with d/4,g,23
do flutter with d/4,bflat*2,25
do flutter with d/4,csharp*2,30
do flutter with g,d*2,60
do flutter with e,d*2,70
do flutter with fsharp,d*2,120
do beeper with a*2,4
do beeper with fsharp,4
do beeper with a*2,4
do beeper with fsharp,4
do beeper with d,4
do beeper with fsharp,4
do beeper with d,4
do beeper with a,4
do beeper with d,4
do beeper with a,4
do beeper with fsharp/2,4
do beeper with a,4
do beeper with fsharp/2,4
do beeper with d/2,4
do beeper with fsharp/2,4
do beeper with d/2,4
do beeper with a/2,4
do beeper with d/2,4
do beeper with a/2,4
do beeper with fsharp/4,4
do beeper with a/2,4
do beeper with fsharp/4,4
do beeper with d/4,4
do beeper with fsharp/4,4
do beeper with d/4,4
do beeper with a/2,4
do beeper with d/4,175
set procedure to
proc flutter
param item1, item2, item3
x = 0
do while x < item3
* 4, not 5, for slow dBase bias
call beep with str(item1) + " 4"
call beep with str(item2) + " 4"
x = x + 10
enddo
return
proc beeper
param freq, dur
* subtract 1 from dur for slow dBase bias
call beep with str(freq) + " " + str(dur - 1)
return