rnd.snd.bas.txt

The following text is the QBasic script for the introduction and randomized theme of rnd.snd.bas.
Subsequent development of the theme was accomplished in MIDI format in TurboTrax performed electronically on a Yamaha CBX-T3 synthesizer.




   ' rnd.snd.bas (file name)

    FOR x = 37 TO 1000 STEP 20         '34.35 second random theme
    SOUND (x), (1)                     '5.84 second glissando in
    NEXT x                             '3 segments (c. 1.94 sec. each)

    FOR x = 1030 TO 2000 STEP 30
    SOUND (x), (1)
    NEXT x
   
    FOR x = 2060 TO 3000 STEP 60
    SOUND (x), (1)
    NEXT x
   
    FOR F = 1 TO 140         ' RANDOMIZED THEME: 140=c. 28.46 seconds
       RANDOMIZE 101         ' Seed (change for different effects)
       SOUND ((RND * 3000) + 37), ((RND * 5) + 1)
    NEXT F                   '37-32767=F(frequency) 18.2=1 sec. duration
    SOUND (200), (20)        'durations from 1 to 5/18.2 seconds

audit "rnd.snd.bas.wma"