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"