PARAMETERS cBdd


SET TALK off
SET STATUS BAR OFF
SET SYSMENU off
SET DELETED on
SET CONFIRM OFF
SET NOTIFY off
SET SAFETY off
SET CENTURY ON
SET DATE TO DMY
SET FIXED OFF
SET DECIMALS TO 5
SET ESCAPE On


SET PATH TO proj,form,prg,class

_screen.Caption     = 'Ghost - Server '
_screen.BorderStyle = 2
_screen.ControlBox  = .T.
_screen.MaxButton   = .F.
_screen.Closable    = .T.
_screen.WindowState = 0
_screen.Show
_screen.AutoCenter  = .T.
_screen.Icon        = 'glib.ICO'
_screen.Width       = 800
_screen.height      = 500


DO gs_class.prg WITH cBdd

DO FORM gs_main

READ events

o.closeDB()
_screen.MaxButton = .T.
_screen.WindowState = 2
ON ERROR

