>_screen.Visible=.f. > >**********Set Program Defaults*************** >SET DELETED on >SET TALK OFF >SET ESCAPE on >SET MULTILOCKS ON >SET DEFAULT TO 'C:\TechnicalHanger' >*SET PATH TO C:\TechnicalHanger\forms;pics;progs;tables;reports;U:\QuestPDM\Data >SET PATH TO U:\QuestPDM\TechnicalHanger\forms;pics;progs;tables;reports;U:\QuestPDM\Data >SET SAFETY OFF >SET PROCEDURE TO procs >SET EXCLUSIVE OFF > >**********Open Tables*************** >=opendbf("article","artikey") >=opendbf("modacad","mainkey") >=opendbf("fabsum","labref") >=opendbf("stylesum","mainkey") >=opendbf("testsum","labref") >=opendbf("fabusers","userid") >=opendbf("thattach","keydept") >=opendbf("specific","artikey") >=opendbf("thstandard","types") >=opendbf("cmscomp","artikey") >=opendbf("articolr","articolr") > >DO FORM welcome > >READ events > >RETURN >>