WBStartup
MaxLen path$=200
NameFromLock_ GetProgramDir_(),&path$,200
path$=Peek$(&path$)
Request "Info",path$,"OK"
End