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