'*************************************************************************************************************
'          Code to display the Sample Notice Window

song$ = "c:\windows\media\themic~1.wav"
songName$ = "The Microsoft Sound" 
sysSpeed = 2500

    WindowWidth = 357
    WindowHeight = 111
    UpperLeftX = 40
    UpperLeftY = 40

Statictext  #sample.sampleText, "StaticText 1", 10, 10, 325, 20
Graphicbox  #sample.gbox, 10, 40, 320, 30

Open "Notice" For Dialog As #sample

    Print #sample, "trapclose [quit]"
    Print #sample, "font ms_sans_serif 10"
    b$ = "Currently sampling song: " + songName$
    Print #sample.sampleText, b$ 


    'Now the window is displayed - Show progress on progressbar
    'Oh and play the song too...

    PlayWave song$, loop

    Print #sample.gbox, "backcolor blue"
    Print #sample.gbox, "color blue"

    t = (80 * sysSpeed) / 30

    For x = 1 to 65
       locx = x*5
       Print #sample.gbox, "up"
       Print #sample.gbox, "goto 0 0"
       Print #sample.gbox, "down"
       Print #sample.gbox, "boxfilled ";locx;" 30"
       For y = 1 to t
           Scan
       Next y
    Next x

   'Now close the sample window - stop the wav and reclaim drawing memory
   Print #sample.gbox, "discard"

 
[sample.quit]
    PlayWave ""
    Notice "That's all folks!"
    Close #sample


End