home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbsales.zip / DBSALES.LBR / GASETUP.PRO < prev    next >
Text File  |  1986-01-14  |  3KB  |  99 lines
  1. *
  2. * GASETUP.PRO - set defaults and passwords
  3. *
  4. CLEAR
  5.  
  6. text
  7.  
  8. (C)COPYRIGHT GLENN ABELSON/SALES, P.O. BOX 1031, ROCKVILLE CTR. ì
  9. NY 11571   516-766-7782
  10. Contributions are welcome...Contributors get update information.
  11. $20 or more gets free updates if and when.
  12.  
  13. This  is  a  'freeware' program.  Copy it, give it out. JUST
  14. DO NOT ALTER SOURCE CODE.
  15.  
  16. This is also a commercial - for any of you that need MORE than
  17. I've offered here, or any DOS, PRESENTATION, or DATABASE
  18. PROGRAMMING.
  19. ENDTEXT
  20. WAIT
  21. CLEAR
  22. TEXT
  23. SET UP DEFAULTS AND PASSWORDS (You may not want to keep this file ì
  24. with your main program files --- the name of this file is ì
  25. GASETUP.PRO).
  26.  
  27. Multiple User names are allowed.  Only one Password is accepted.
  28.  
  29. endtext
  30. RESTORE FROM GAMEM.PRO
  31. SET CONSOLE OFF
  32. *
  33. * storing string that make up gampass -- password memvar
  34. *
  35. STORE 'ok' to passa
  36. STORE 'magic' to passb
  37. SET CONSOLE ON
  38. ACCEPT 'User name (up to 20 spaces) -- required  ' TO mname
  39. ACCEPT 'New password - 8 characters - only 1.... ' TO pass  
  40. SET CONSOLE OFF
  41. STORE '&passa&pass&passb' to gampass
  42. SET CONSOLE ON
  43. ?'All files with the extension  .PRO go on default drive'
  44. ACCEPT '                     Default drive and colon: ' to gasysa
  45. ?'All files with .DBF .DBT .FMT or .NDX go on work drive'
  46. ACCEPT 'Drive and colon: for DATABASE AND INDEX files ' to gasysb
  47. ?'COMMAND.COM must be in boot drive for DOS access to work.'
  48. ACCEPT 'Drive and colon: from where dBASE is BOOTED   ' to gaboot
  49. ACCEPT 'Default boot color use format xx/xx,xx/xx,xx  ' to ì
  50. gamcolor
  51. CLEAR
  52. TEXT
  53. There are four DATA fields in your prospecting database.
  54. These are for your information searches.
  55.  
  56. You may reserve DATA1 for income, DATA2 for product, DATA3 best
  57. time to call, etc.
  58.  
  59. What you may do here is give each of the four data fields 
  60. anything up to a 15 letter name (including spaces) that better 
  61. identifies the information for you.
  62.  
  63. From the program, the name you indicate here will be used.
  64. If you work on the database from outside the program, you must ì
  65. refer to the fields by there actual names - DATA1 through DATA4.
  66.  
  67. ENDTEXT
  68. ACCEPT 'What to call DATA1...' to gadata1
  69. ACCEPT 'What to call DATA2...' to gadata2
  70. ACCEPT 'What to call DATA3...' to gadata3
  71. ACCEPT 'What to call DATA$...' to gadata4
  72. *
  73. * ALL INFORMATION IS ACCEPTED ABOVE.  If user has correct ì
  74. * password, new data is enter
  75. *
  76. SET DEFAULT TO &gasysa
  77. ?'UPDATING DRIVE AND PASSWORD INFORMATION'
  78. SET SAFETY OFF
  79. SAVE ALL LIKE ga* to GAMEM.PRO
  80. SET SAFETY ON
  81. ?' UPDATING USER NAME INFORMATION '
  82. USE GALOG.PRO
  83. APPEND BLANK
  84. REPLACE USER WITH mname
  85. CLOSE DATABASE
  86. RELEASE ALL
  87. ?' 1. EXIT'
  88. ?' 2. PROGRAM '
  89. WAIT TO WHERE
  90.  DO CASE WHERE
  91.     CASE WHERE = '1'
  92.          CANCEL
  93.     CASE WHERE = '2'
  94.          CLEAR
  95.          DO GAMAIN.PRO
  96.     OTHERWISE
  97.          QUIT
  98. ENDCASE
  99. ENDDO