home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / propmgr2.zip / MAIN.TNT < prev    next >
Text File  |  1986-09-03  |  8KB  |  265 lines

  1. * DATE 08/26/84  16:12
  2. * main command program of database
  3. IF moveit
  4.  REST from move additive
  5.  FIND &linker
  6.  IF # = 0
  7.   ERAS
  8.   @ 10,10 SAY "Unable to locate - hit any key to return to building database."
  9.   SET CONSOLE OFF
  10.   WAIT
  11.   SET CONSOLE ON
  12.   STOR $(linker,1,2) TO linker
  13.   SAVE TO move
  14.   STOR 3 TO BOX
  15.   STOR t TO moveit
  16.   RETU
  17.  ENDI # = 0
  18.  RELE linker
  19.  STOR t TO keepitup
  20.  STOR f TO moveit
  21. ENDI
  22. * set up screen
  23. STOR t TO first
  24. * set up the loop
  25. DO WHIL t
  26. * if first time this trip
  27.  IF first
  28.   ERAS
  29.   STOR '<B>ackward, <D>elete/Recall, <E>dit, <F>orward, <H>elp,' TO prompt1
  30.   STOR '<P>rint, <S>earch, b<U>ilding records or <Q>uit to main menu' TO prompt2
  31.   STOR 'Main Tenant Database Menu' TO mode
  32. * show the current record
  33.   @ 0,26 SAY mode
  34.   @ 1, 0 SAY " -------------------------------------------------"
  35.   @ 1,50 SAY "----------------------------"
  36.   @ 3, 2 SAY "Tenant:"
  37.   @ 3,53 SAY "Code:"
  38.   @ 4, 4 SAY "Unit:"
  39.   @ 4,26 SAY "Building:"
  40.   @ 5, 1 SAY "Contact:"
  41.   @ 5,52 SAY "Phone:"
  42.   @ 6,09 SAY "Alternate mailing address: "
  43.   @ 7, 1 SAY "Address:"
  44.   @ 8, 4 SAY "City:"
  45.   @ 10, 4 SAY "Type:"
  46.   @ 10,19 SAY "Addl Percentage:"
  47.   @ 10,48 SAY "1st Lease:"
  48.   @ 11,04 SAY "Base:"
  49.   @ 11,47 SAY "Expiration:"
  50.   @ 12, 0 SAY "Security:"
  51.   @ 12,30 SAY "Bank:"
  52.   @ 12,48 SAY "Late Date:"
  53.   @ 13, 4 SAY "Rent:"
  54.   @ 13,25 SAY "Late Chgs:"
  55.   @ 13,48 SAY "Addl Rent:"
  56.   @ 14, 3 SAY "G & E:"
  57.   @ 14,24 SAY "Other Chgs:"
  58.   @ 14,47 SAY "Total Rent:"
  59.   @ 15, 0 SAY "Rent Due:"
  60.   @ 15,22 SAY "Last Payment:"
  61.   @ 15,49 SAY "Amt Paid:"
  62.   @ 16,00 SAY "Total Yr:"
  63.   @ 16,30 SAY "Flag:"
  64.   @ 16,52 SAY "Total:"
  65.   @ 18, 3 SAY "Notes:"
  66.   @ 18,51 SAY "Update:"
  67.   @ 19, 0 SAY " -------------------------------------------------"
  68.   @ 19,50 SAY "-----------------------------"
  69.   @ 20, 7 SAY prompt1
  70.   @ 21, 7 SAY prompt2
  71.  ENDI first
  72.  STOR f TO first
  73.  STOR '?' TO command
  74. * find out if the current record is marked for deletion
  75.  IF *
  76.   STOR 'Deleted' TO deleted
  77.  ELSE
  78.   STOR '       ' TO deleted
  79.  ENDI *
  80.  STOR trent TO trentx
  81.  IF ttype = 'P'
  82.   IF (trentpc*(trentpcr/100)/12)>trent
  83.    STOR (trentpc*(trentpcr/100)/12) TO trentx
  84.   ENDI (trentpc)
  85.  ENDI ttype = 'P'
  86.  IF ttype = 'O'
  87.   STOR ((trentpc*(trentpcr/100)/12)+trent) TO trentx
  88.  ENDI ttype = 'O'
  89.  STOR (trentx + tlatec + taddl + trente + trentm) TO trentxx
  90. * show the current record, and find out what to do next
  91.  @ 0, 0 SAY deleted
  92.  @ 3,10 SAY tenant
  93.  @ 3,59 SAY bcode
  94.  @ 4,10 SAY tunit
  95.  @ 4,36 SAY baddr
  96.  @ 5,10 SAY tcontac
  97.  @ 5,59 SAY tphone
  98.  @ 6,36 SAY alt
  99.  @ 7,10 SAY altad
  100.  @ 8,10 SAY altcty
  101.  @ 10,10 SAY ttype
  102.  @ 10,36 SAY trentpc USING '99.9999'
  103.  @ 10,59 SAY texpir
  104.  @ 11,10 SAY trentpcr USING '$999,999,999'
  105.  @ 11,59 SAY tfirst
  106.  @ 12,10 SAY tsec USING '$99,999.99'
  107.  @ 12,36 SAY tsecb
  108.  @ 12,59 SAY tlate
  109.  @ 13,10 SAY trent USING '$99,999.99'
  110.  @ 13,36 SAY tlatec USING '$99,999.99'
  111.  @ 13,59 SAY taddl USING '$99,999.99'
  112.  @ 14,10 SAY trente USING '$99,999.99'
  113.  @ 14,36 SAY trentm USING '$99,999.99'
  114.  @ 14,59 SAY trentxx USING '$99,999.99'
  115.  @ 15,10 SAY trentd USING '$99,999.99'
  116.  @ 15,36 SAY trentpd PICTURE '99/99/99'
  117.  @ 15,59 SAY trentp USING '$99,999.99'
  118.  @ 16,10 SAY trenty USING '$99,999.99'
  119.  @ 16,36 SAY tflag
  120.  @ 16,59 SAY trentt USING '$99,999.99'
  121.  @ 18,10 SAY tnotes
  122.  @ 18,61 SAY tupdate
  123.  @ 22,41 SAY "WHAT NEXT ?"
  124.  @ 22,60 GET command PICTURE '!'
  125.  READ
  126. * perform selected function
  127.  DO CASE
  128.  CASE (command = 'B' .OR. command = ',' )
  129. * move backwards one record
  130.   SKIP -1
  131.  CASE command = 'D'
  132. * switch the current record from deleted to recalled
  133.   IF *
  134.    RECA
  135.   ELSE
  136.    DELE
  137.   ENDI *
  138.  CASE command = 'E'
  139.   SET console OFF
  140.   RECA
  141.   STOR # TO rec:number
  142.   SET INDEX TO
  143.   IF rec:number=0
  144.    GO 1
  145.   ELSE
  146.    GO rec:number
  147.   ENDI rec:number=0
  148.   SET console ON
  149.   RELE rec:number
  150.   DO EDIT.tnt
  151.  CASE (command = 'F' .OR. command = '.' )
  152. * move forward one record
  153.   SKIP
  154.  CASE (command = 'H' .OR. command = '?' )
  155. * display a screen full of instructions
  156.   STOR t TO first
  157.   ERAS
  158. TEXT
  159.  
  160.  
  161.  
  162.            M A I N   T E N A N T   M E N U   H E L P   F I L E
  163.  
  164.     Welcome to the  SIG/M PROPERTY MANAGER main tenant data base file.
  165.     I am here to help you and you can call me anytime by just entering
  166.     a ? mark at any place where this program asks for a command.
  167.  
  168.     When you go back to the screen you will see two lines -  on top of     
  169.     the first line it says   'Main Tenant Database Menu' - thus,   the
  170.     program always tells you where you are!
  171.  
  172.     Between the two lines  we have the information you or someone else
  173.     entered into the computer.  This information tells you all about a  
  174.     particular tenant.
  175.  
  176.  
  177.  
  178.                If you press any key I will tell you more.
  179.  
  180.  
  181. ENDT
  182.   SET CONSOLE OFF
  183.   WAIT
  184.   SET CONSOLE ON
  185.   ERAS
  186. TEXT
  187.  
  188.    This is a multiple data base - by that I mean - you can have one screen of
  189. information about the building and another screen of information about any of 
  190. the tenants in that building.  To find the information about the building the
  191. tenant resides in, hit 'U' for b<U>ilding records.                           
  192.  
  193. The information on screen in clear, so let's look below the line.  This shows
  194. what you can do.  To look at the next record -  hit 'F' (or a period).  To go
  195. back one record - hit 'B' (or a comma). To delete a record hit 'D' and a sign
  196. will appear at the upper right corner.  To remove the delete - hit 'D' again.
  197. Don't worry  -   you cannot accidentally delete a record just by hitting 'D'.  
  198. You must run another program on the Maintenance Menu (purge) to delete.
  199.  
  200. To find a file - hit 'S' for search.  To edit an entry hit 'E'  (although you
  201. usually would search for a file - and Edit from the search menu.) To add more
  202. tenants, however, you must go back to the building data base and hit 'A'  for
  203. Add. The Add option allows you to enter new buildings and tenants or just new
  204. tenants.                                                                   
  205.  
  206.                       Please hit any key to continue         
  207.  
  208.  
  209.  
  210. ENDT
  211.   SET CONSOLE OFF
  212.   WAIT
  213.   SET CONSOLE ON
  214.   ERAS
  215. TEXT
  216.  
  217.        The Type of tenancy can be either 'R' for regular, 'P' for per-
  218.    centage rent (in which the higher of the percentage or base becomes the  
  219.    base or 'O' for overage, where an overage rent is added to the base rent.
  220.    To use different methods of calculation, the code in the files ending in
  221.    'TNT' should be changed.                        
  222.                                                                          
  223.    -------------------------------------------------------------------------
  224.    WHATEVER YOU DO  -  NEVER SHUT OFF THE MACHINE OR REMOVE A DISK UNTIL YOU 
  225.    FIRST RETURN TO THE MAIN MENU AND THEN QUIT TO THE OPERATING SYSTEM.     
  226.  
  227.    If you ever get a SYNTAX error that just hitting ENTER does not correct, 
  228.    hit the ESCAPE key and type Quit. Then try all over again.
  229.  
  230.    EVERY SO OFTEN YOU WILL FIND YOU WANT TO USE THE ESCAPE KEY AND WHEN YOU
  231.    TRY TO TYPE 'QUIT' NOTHING HAPPENS. AT A FEW POINTS IN THIS PROGRAN SCREEN
  232.    ACCESS HAS BEEN ELIMINATED. THEREFORE, TYPE 'QUIT' EVEN THOUGH IT DOES NOT
  233.    APPEAR ON THE SCREEN - AND UNLESS THE MACHINE IS LOCKED UP - YOU WILL EXIT
  234.    TO THE OPERATING SYSTEM.
  235.    -------------------------------------------------------------------------
  236.  
  237.              Please hit any key to get back to the data base
  238.  
  239. ENDT
  240.   SET CONSOLE OFF
  241.   WAIT
  242.   SET CONSOLE ON
  243.   ERAS
  244.  CASE command = 'P'
  245.   DO PRINT.tnt
  246.  CASE command = 'Q'
  247.   STOR t TO keepitup
  248.   STOR 0 TO box
  249.   RETU
  250.  CASE command = 'U'
  251.   STOR $(bcode,1,2) TO linker
  252.   SAVE to move
  253.   STOR 3 TO box
  254.   STOR t TO keepitup
  255.   RETU
  256.  CASE command = 'S'
  257.   SAVE TO move
  258.   STOR f TO moveit
  259.   STOR 6 TO box
  260.   STOR t TO keepitup
  261.   RETU
  262.  ENDC
  263. * loop back again
  264. ENDD WHILE t
  265.