Mp3 Player Demo

by Jeff

Note: open.exe can be found in the archive of this newsletter

    Nomainwin

    q$=chr$(34)
    nowPath$=DefaultDir$ 

    WindowWidth = 200
    WindowHeight = 180
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)
    menu #main, "&File","&Open",[open],_
                "E&xit",[quit]
    menu #main, "Edit"

    open "Mp3" for window as #main
    print #main, "trapclose [quit]"
    wait

    [open]
    run "open.exe"
    wait



    [quit]
    close #main
    wait