home *** CD-ROM | disk | FTP | other *** search
/ mail.altrad.com / 2015.02.mail.altrad.com.tar / mail.altrad.com / TEST / COMMERC_72_53OLD / db / DB.PRG < prev    next >
Text File  |  2014-04-02  |  833b  |  38 lines
  1. * Programme: CONFIG.PRG
  2. * Auteur...: R M ALCOCK
  3. * Date.....: 7:32:24  1/18/1993
  4. * Copyright: (c) 1992, R M ALCOCK, Tous droits réservés
  5. * Notes....:
  6. *
  7. *
  8. LOCAL A_Str := { ;
  9.         "SET CONFIRM     ON" ,;
  10.         "SET DATE        FRENCH",;
  11.         "SET DELETED     ON",;
  12.         "SET EXACT       ON",;
  13.         "SET EXCLUSIVE   OFF",;
  14.         "SET FIXED       OFF",;
  15.         "SET SCOREBOARD  ON",;
  16.         "SET HELP        OFF" }
  17. *
  18. LOCAL The_Disk := DISKNAME()
  19. LOCAL The_Dir  := CURDIR()
  20. LOCAL CrLf := CHR(13)+CHR(10)
  21.  
  22. H = FCREATE ( "J:\DB\CONFIG.PRG", 0)
  23.  
  24. FOR i = 1 TO LEN(A_Str)
  25.    FWRITE (H, A_Str[i] )
  26.    FWRITE (H, CrLf)
  27. NEXT i
  28.  
  29. FWRITE (H, "SET DEFAULT TO " + The_Disk )
  30. FWRITE (H, CrLf)
  31. FWRITE (H, "SET PATH TO \" + The_Dir )
  32. FWRITE (H, CrLf)
  33. FCLOSE (H)
  34.  
  35. SWPRUNCMD ("DBASE.EXE",,"J:\DB",,)
  36.  
  37.  
  38.