Shareware Overload/ShartewareOverload.cdr/database/cbin.zip/BACH.PRG

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