home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol198 / add.bld < prev    next >
Encoding:
Text File  |  1985-02-10  |  2.4 KB  |  93 lines
  1. * DATE 06/23/84  19:01
  2. * add.bld
  3. STOR 'A' TO choice
  4. ERAS
  5. TEXT
  6.  
  7.     Welcome to the 'ADD' Menu.  We can now add new buildings to the
  8.     data file - or add new tenants to existing buildings already in
  9.     the data base.                                               
  10.                                                                        
  11.     Note that when you add a building, you will be given the option
  12.     of adding the tenants or the units at the same time.
  13.  
  14.           <A> add a new building                                    
  15.           <B> add tenants to a building already in the data base
  16.           <C> return to main menu without adding
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28. ENDT
  29. @ 13,10 SAY 'How shall we proceed ? '
  30. @ 13,42 GET choice picture '!'
  31. READ
  32. DO WHIL @(choice, 'ABC') = 0
  33.  @ 13,42 GET choice PICTURE '!'
  34.  READ
  35.  CLEA GETS
  36. ENDD while @(choice
  37. DO CASE
  38. CASE choice = 'A'
  39.  DO add1.bld
  40.  STOR t TO first
  41. CASE choice = 'B'
  42.  STOR '99' TO findit
  43.  @ 13,00
  44.  @ 13,10 SAY 'What is the code number of the building (99 to quit) ? '
  45.  @ 13,65 GET findit PICTURE '99'
  46.  READ
  47.  IF findit = '99'
  48.   STOR t TO first
  49.   RETU
  50.  ENDI
  51.  FIND &findit
  52.  DO WHIL # = 0
  53.   STOR '  ' TO findit
  54.   @ 13,65 GET findit PICTURE '99'
  55.   READ
  56.   IF findit = '  '
  57.    STOR t TO first
  58.    RETU
  59.   ENDI
  60.   FIND &findit
  61.  ENDD
  62.  DO add2.bld
  63. CASE choice = '?'
  64.  ERAS
  65. TEXT
  66.  
  67.  
  68.                   A D D   M E N U   H E L P   S C R E E N
  69.  
  70.  
  71.       The options are rather simple.  In a normal case you would add a 
  72.       building and at the same time add all of the units. (Add them even
  73.       if vacant - just leave the tenant name blank - so that it will 
  74.       appear on the vacancy list).
  75.  
  76.       When a unit becomes vacant - we suggest you not delete the record
  77.       - but that you delete the name of the tenant. Note, however, the
  78.       automatic rent posting program will post the rental to the unit - 
  79.       so you will have to make an offsetting journal entry for vacancy 
  80.       losses.  Most people do that anyway.
  81.  
  82.       However, if you want to add a tenant who was never in the data base
  83.       you have that option on this menu.
  84.  
  85.  
  86.                           Press any key to continue 
  87.  
  88. ENDT
  89. CASE choice = 'C'
  90.  RELE ALL
  91.  STOR t TO first
  92. ENDC
  93.