home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FMW.LZH / FM_SETUP.PRG < prev    next >
Encoding:
Text File  |  1993-02-03  |  970 b   |  45 lines
  1. FUNCTION FM_SETUP
  2. clear all
  3. public __first, foxdir, fmdir, oldpath, homeresourse, m.talkstat, ;
  4.        issuedate, homedir, fm_base
  5. private editname
  6.  
  7.       ON KEY LABEL ALT-F2 DO D:\FOX2\SPY_CAM with "SWAP", "ALT-F2", ;
  8.                "HELP", SYS(12), SYS(23), SYS(24), SYS(1001),  ;
  9.                SYS(1016), PROGRAM(), LINENO(), ALIAS(), RECNO(), ;
  10.                ORDER()
  11.  
  12.  
  13.  
  14.  
  15. *ON ERROR DO errorhandler WITH MESSAGE(),LINENO()
  16. IF SET("TALK") = "ON"
  17.     SET TALK OFF
  18.     m.talkstat = "ON"
  19. ELSE
  20.     m.talkstat = "OFF"
  21. ENDIF
  22. set echo off
  23.  
  24. __first = .T.
  25. * get dbf locator file
  26. * SEE IF LOCATOR FILE EXISTS AND GET IT
  27. homedir = fm_locat()
  28.  
  29. * below incorporated in fm_locat()
  30. * IF IT DOESN'T LOOK BELOW FOX
  31. *if empty(homedir)
  32.  
  33. *  homedir = sys(2004)
  34. *  homedir = homedir+"FM"
  35.  
  36. *endif
  37. * SEE IF  HOMEDIR IS IN THE FOXPRO PATH STATEMENT
  38.  
  39. *=pathchec(homedir)
  40. if fm_setup.popup
  41. * activate the menu of foxmasters
  42.   KEYBOARD "{ALT+M}"
  43. endif
  44. RETURN
  45.