CLOSE ALL CLEAR _Screen.visible = .F. m_prom_dir = ADDBS(SYS(5) + SYS(2003)) m_upid = 'master' SET PATH TO "..\WizBmps" USE AppointmentTypeSets IN 0 USE MB_User IN 0 SELECT AppointmentTypeSets DO FORM AppointmentTypes2 READ EVENTS CLOSE ALL CLEAR ALL RELEASE ALL CLEAR EVENTS QUIT