home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / employee / main.cl_ / main.cl
Encoding:
Text File  |  1994-08-18  |  486 b   |  26 lines
  1. // MAIN.PRG
  2. // Employee Information main routine module
  3. // November, 1993
  4.  
  5. #include "sys.ch"
  6.  
  7. FUNCTION Main()
  8.    LOCAL OldRow, OldCursor, OldColor, OldScreen
  9.  
  10.    OldCursor := SetCursor(SC_NONE)
  11.    OldRow    := Row()
  12.    OldColor  := SetColor()
  13.    OldScreen := SCREENSAVE(0, 0, 24, 79)
  14.  
  15.    Sys_Init()
  16.    Init_IO('EMPLOYEE')
  17.    Menu()
  18.  
  19.    Win_Close(OldScreen)
  20.    SetColor(OldColor)
  21.    DevPos(OldRow, 1)
  22.    ? Chr(13) + Chr(10)
  23.    SetCursor(OldCursor)
  24.    RETURN 0
  25. 
  26.