home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / propmgr2.zip / INIT.ACG < prev    next >
Text File  |  1986-09-03  |  3KB  |  117 lines
  1. * DATE 08/27/84  12:34
  2. * initialization program
  3. ERAS
  4. TEXT
  5.   ***************************************************************************  
  6.    This is a first time initialization program. It sets the defaults for all  
  7.    operations. However, you can change any of the defaults on the building or  
  8.    accounting maintenance menus.                                               
  9.   *************************************************************************** 
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26. ENDT
  27. IF .NOT. file ("MAIL.DAT")
  28.  STOR 'A' TO dr
  29.  STOR 'Y' TO bells
  30.  STOR 'I' TO bright
  31.  STOR 'Y' TO escap
  32.  STOR 'N' TO I
  33.  STOR 'N' TO C
  34.  STOR 'N' TO pass
  35.  STOR '        ' TO passp
  36. ELSE
  37.  REST from mail.dat
  38. ENDI .NOT. file
  39. @ 08,00 SAY "On what drive will you store the data files ?"
  40. @ 08,50 GET dr PICTURE '!'
  41. READ
  42. @ 09,00 SAY'Do you wish to use signal beep ? '
  43. @ 09,38 GET bells PICTURE '!'
  44. READ
  45. DO WHIL @(bells,'YN')=0
  46.  @ 09,38 GET bells PICTURE '!'
  47.  READ
  48. ENDD WHILE @(bells)
  49. @ 11,00 SAY "You can have bright and dim intensity at <A>ll points in the program"
  50. @ 12,00 SAY "or just on the <I>nput screens. Answer 'A' or 'I' "
  51. @ 12,50 GET bright PICTURE '!'
  52. READ
  53. DO WHIL @(bright,'AI')=0
  54.  @ 12,50 GET bright PICTURE '!'
  55.  READ
  56. ENDD WHILE @(bright)
  57. @ 14,00 SAY "If you leave the escape key on it is possible to break out of the program"
  58. @ 15,00 SAY "at any time. Some people prefer to not allow this. Shall we leave it on ?"
  59. @ 15,75 GET escap PICTURE '!'
  60. READ
  61. DO WHIL @(escap,'YN')=0
  62.  @ 15,75 GET escap PICTURE '!'
  63.  READ
  64. ENDD WHILE @(escap)
  65. @ 17,00 SAY "Are you using an IBM PC or compatable with a clock board ?"
  66. @ 17,70 GET I picture '!'
  67. READ
  68. @ 18,00 SAY "Are you using a Compupro Systems Support Board with clock ?"
  69. @ 18,70 GET C PICTURE '!'
  70. READ
  71. @ 20,00 SAY "Do you want password protection ? "
  72. @ 20,45 GET pass PICTURE '!'
  73. READ
  74. DO WHIL @(pass,'YN')=0
  75.  @ 20,45 GET pass PICTURE '!'
  76.  READ
  77. ENDD WHILE @(pass)
  78. IF pass = 'Y'
  79.  @ 21,00 SAY "What is the password ?"
  80.  @ 21,45 GET passp
  81.  READ
  82.  DO WHIL passp = ' '
  83.   @ 21,45 GET passp
  84.   READ
  85.  ENDD WHILE passp
  86. ENDI pass = 'Y'
  87. STOR 'Y' TO goagain
  88. @ 22,30 SAY "IS THE ABOVE CORRECT ? "
  89. @ 22,55 GET goagain PICTURE '!'
  90. READ
  91. IF goagain = 'N'
  92.  @ 22,00
  93.  @ 08,50 GET dr PICTURE '!'
  94.  @ 09,38 GET bells PICTURE '!'
  95.  @ 12,50 GET bright PICTURE '!'
  96.  @ 15,75 GET escap PICTURE '!'
  97.  @ 17,70 GET I picture '!'
  98.  @ 18,70 GET C PICTURE '!'
  99.  @ 20,45 GET pass PICTURE '!'
  100.  READ
  101.  IF pass = 'Y'
  102.   @ 21,00 SAY "What is the password ?"
  103.   @ 21,45 GET passp
  104.   READ
  105.   DO WHIL passp = ' '
  106.    @ 21,45 GET passp
  107.    READ
  108.   ENDD WHILE passp
  109.  ENDI pass = 'Y'
  110.  READ
  111. ENDI goagain
  112. RELE goagain
  113. CLEA GETS
  114. SAVE TO mail.dat
  115. RELE bright, dr, escap, bells, pass, passp, I, C
  116. RETU
  117.