'===========================================================================
' Subject: SPACE MUSIC (TWILIGHTZONE)         Date: 10-01-92 (15:40)       
'  Author: Mark H. Butler                     Code: QB, QBasic, PDS        
'  Origin: SPACE,MUSIC,TWILIGHTZONE         Packet: SOUND.ABC
'===========================================================================
DEFINT A-Z
DECLARE SUB PhotonTorpedoe ()
DECLARE SUB SpaceMusic ()
DECLARE SUB TwiLightZoNe ()

SUB PhotonTorpedoe
    DIM A$(1 TO 25), Di$(1 TO 6)
    PLAY "mfl64t255"
    Pl$ = "cc#dd#eff#gg#aa#b"
    FOR i = 1 TO 6
        Di$(i) = "o" + RTRIM$(STR$(i))
    NEXT
    FOR i = 1 TO 6
        FOR T = 1 TO 2
            PLAY Di$(i)
            PLAY Pl$
        NEXT T
    NEXT i
END SUB

SUB SpaceMusic
    FOR Rounds = 1 TO 2
        FOR w = 800 TO 500 STEP -100
            FOR x = 700 TO 400 STEP -100
                FOR y = 600 TO 300 STEP -100
                    FOR z = 400 TO 200 STEP -100
                        SOUND w, .3: SOUND x, .3
                        SOUND y, .3: SOUND z, .3
                    NEXT z
                NEXT y
            NEXT x
        NEXT w
    NEXT Rounds
END SUB

SUB TwiLightZoNe
    Count = 0
    FOR Snd = 500 TO 100 STEP -200
        SOUND Snd, 4
    NEXT Snd
    FOR Bloops = 1 TO 42
        Snnd = (RND * 2400)
        IF Snnd < 37 OR Snnd > 3700 THEN Snnd = 250
        Snd = (RND * 66) + 37
        IF Count = 6 THEN SOUND Snnd, 3: Count = 0
        SOUND Snd, 4
        Count = Count + 1
    NEXT Bloops
    FOR Snd = 100 TO 500 STEP 200
        SOUND Snd, 4
    NEXT Snd
    FOR x = 1 TO 3
        FOR y = 1 TO 3
            SOUND 1050, .13: SOUND 1350, 3.5
            SOUND 1150, .13: SOUND 1450, 3.5
            SOUND 1050, .13: SOUND 1350, 3.5
            SOUND 850, .13: SOUND 1150, 3.5
        NEXT y
        FOR z = 1 TO 5
            Svd = (RND * 550) + 37
            SOUND Svd, 1.7
        NEXT z
    NEXT x
    FOR i = 1 TO 5
        Svd = (RND * 550) + 37
        SOUND Svd, 1.7
    NEXT i
    FOR Snd = 175 TO 37 STEP -10
        SOUND Snd, 1
    NEXT Snd
    SOUND 37, 10
END SUB