>>M_cap = "Log Management System" >>_screen.caption = "" >>a = is_run32(M_cap) >>if a > 0 >> _screen.WindowState=1 >> =messagebox("LOG Management System is already running on this computer. Please use the running copy.",16,m_cap) >> quit >>endif >>_screen.closable = .f. && Turn of the close button and force File/Quit logic >>_screen.WindowState = 2 && Startup at full screen >>_screen.Caption = M_cap >>release M_cap >>set talk on >>set console off >>SET DELETED ON >>public laMills, laGrades, laSpecies, m_curmill, pcCompany, pcLocation, pcHcomPort >>* set default to c:\vfplogs >>if not used('system') >> use system in 0 >>endif >>pcCompany = system.coname >>pcLocation = system.locname >>m_curmill = system.mill >>pcHcomPort = system.hcomport >>use >> >>dimension laMills(40), laSpecies(50), laGrades(50) >>set century on >>do main.mpr >> >>define window x from 0,0 to 200,340 fill file backgrnd.jpg &&c0238.jpg && >>* define window x from 0,0 to 70,140 fill file backgrnd.jpg &&c0238.jpg && >>activate window x >>zoom window x max >>if file ("startmsg.txt") >> run /n notepad startmsg.txt >> do form startmsg >>endif >> >>do form login >>* on key label f9 do testbell >>on key label f9 do ringbell >>if trim(m_secure) = 'Login Failed' >> quit >>else >> read events >>endif >> >>>>
>>set bell to "error.wav" >>set bell on >>?? chr(7) >>set bell to >>set bell off >> >>>>
>* Instead of >?? CHR(7) >* try >WAIT CHR(7) NOWAIT >Thanks for the thoughts. I tried both with no success.