SYNTAX        VHA_INIT()

PURPOSE       Initializes (N)GEN.LIB

ARGUMENTS     NONE

RETURNS       NIL

              msg_reg    = 1
              msg_col    = 1
              msg_border = iif(iscolor(),0,6)
              box_border = iif(iscolor(),3,6)
              beep_on    = .T.
              logon_id   = ''
              logon_aut  = 99
              formfeed   = chr(12)

              VHA_COLOR()

              setcolor(cl_normal)

              readinsert(.F.)
              readexit  (.F.)
              setcancel (.F.)

              century on
              epoch 1900
              date italian  (NGEN.LIB)
              date american (GEN.LIB)
              confirm on
              softseek off
              deleted on
              scoreboard off
              cursor off