* DATE 08/26/84 16:12 * main command program of database IF moveit REST from move additive FIND &linker IF # = 0 ERAS @ 10,10 SAY "Unable to locate - hit any key to return to building database." SET CONSOLE OFF WAIT SET CONSOLE ON STOR $(linker,1,2) TO linker SAVE TO move STOR 3 TO BOX STOR t TO moveit RETU ENDI # = 0 RELE linker STOR t TO keepitup STOR f TO moveit ENDI * set up screen STOR t TO first * set up the loop DO WHIL t * if first time this trip IF first ERAS STOR 'ackward, elete/Recall, dit, orward, elp,' TO prompt1 STOR '

rint, earch, bilding records or uit to main menu' TO prompt2 STOR 'Main Tenant Database Menu' TO mode * show the current record @ 0,26 SAY mode @ 1, 0 SAY " -------------------------------------------------" @ 1,50 SAY "----------------------------" @ 3, 2 SAY "Tenant:" @ 3,53 SAY "Code:" @ 4, 4 SAY "Unit:" @ 4,26 SAY "Building:" @ 5, 1 SAY "Contact:" @ 5,52 SAY "Phone:" @ 6,09 SAY "Alternate mailing address: " @ 7, 1 SAY "Address:" @ 8, 4 SAY "City:" @ 10, 4 SAY "Type:" @ 10,19 SAY "Addl Percentage:" @ 10,48 SAY "1st Lease:" @ 11,04 SAY "Base:" @ 11,47 SAY "Expiration:" @ 12, 0 SAY "Security:" @ 12,30 SAY "Bank:" @ 12,48 SAY "Late Date:" @ 13, 4 SAY "Rent:" @ 13,25 SAY "Late Chgs:" @ 13,48 SAY "Addl Rent:" @ 14, 3 SAY "G & E:" @ 14,24 SAY "Other Chgs:" @ 14,47 SAY "Total Rent:" @ 15, 0 SAY "Rent Due:" @ 15,22 SAY "Last Payment:" @ 15,49 SAY "Amt Paid:" @ 16,00 SAY "Total Yr:" @ 16,30 SAY "Flag:" @ 16,52 SAY "Total:" @ 18, 3 SAY "Notes:" @ 18,51 SAY "Update:" @ 19, 0 SAY " -------------------------------------------------" @ 19,50 SAY "-----------------------------" @ 20, 7 SAY prompt1 @ 21, 7 SAY prompt2 ENDI first STOR f TO first STOR '?' TO command * find out if the current record is marked for deletion IF * STOR 'Deleted' TO deleted ELSE STOR ' ' TO deleted ENDI * STOR trent TO trentx IF ttype = 'P' IF (trentpc*(trentpcr/100)/12)>trent STOR (trentpc*(trentpcr/100)/12) TO trentx ENDI (trentpc) ENDI ttype = 'P' IF ttype = 'O' STOR ((trentpc*(trentpcr/100)/12)+trent) TO trentx ENDI ttype = 'O' STOR (trentx + tlatec + taddl + trente + trentm) TO trentxx * show the current record, and find out what to do next @ 0, 0 SAY deleted @ 3,10 SAY tenant @ 3,59 SAY bcode @ 4,10 SAY tunit @ 4,36 SAY baddr @ 5,10 SAY tcontac @ 5,59 SAY tphone @ 6,36 SAY alt @ 7,10 SAY altad @ 8,10 SAY altcty @ 10,10 SAY ttype @ 10,36 SAY trentpc USING '99.9999' @ 10,59 SAY texpir @ 11,10 SAY trentpcr USING '$999,999,999' @ 11,59 SAY tfirst @ 12,10 SAY tsec USING '$99,999.99' @ 12,36 SAY tsecb @ 12,59 SAY tlate @ 13,10 SAY trent USING '$99,999.99' @ 13,36 SAY tlatec USING '$99,999.99' @ 13,59 SAY taddl USING '$99,999.99' @ 14,10 SAY trente USING '$99,999.99' @ 14,36 SAY trentm USING '$99,999.99' @ 14,59 SAY trentxx USING '$99,999.99' @ 15,10 SAY trentd USING '$99,999.99' @ 15,36 SAY trentpd PICTURE '99/99/99' @ 15,59 SAY trentp USING '$99,999.99' @ 16,10 SAY trenty USING '$99,999.99' @ 16,36 SAY tflag @ 16,59 SAY trentt USING '$99,999.99' @ 18,10 SAY tnotes @ 18,61 SAY tupdate @ 22,41 SAY "WHAT NEXT ?" @ 22,60 GET command PICTURE '!' READ * perform selected function DO CASE CASE (command = 'B' .OR. command = ',' ) * move backwards one record SKIP -1 CASE command = 'D' * switch the current record from deleted to recalled IF * RECA ELSE DELE ENDI * CASE command = 'E' SET console OFF RECA STOR # TO rec:number SET INDEX TO IF rec:number=0 GO 1 ELSE GO rec:number ENDI rec:number=0 SET console ON RELE rec:number DO EDIT.tnt CASE (command = 'F' .OR. command = '.' ) * move forward one record SKIP CASE (command = 'H' .OR. command = '?' ) * display a screen full of instructions STOR t TO first ERAS TEXT M A I N T E N A N T M E N U H E L P F I L E Welcome to the SIG/M PROPERTY MANAGER main tenant data base file. I am here to help you and you can call me anytime by just entering a ? mark at any place where this program asks for a command. When you go back to the screen you will see two lines - on top of the first line it says 'Main Tenant Database Menu' - thus, the program always tells you where you are! Between the two lines we have the information you or someone else entered into the computer. This information tells you all about a particular tenant. If you press any key I will tell you more. ENDT SET CONSOLE OFF WAIT SET CONSOLE ON ERAS TEXT This is a multiple data base - by that I mean - you can have one screen of information about the building and another screen of information about any of the tenants in that building. To find the information about the building the tenant resides in, hit 'U' for bilding records. The information on screen in clear, so let's look below the line. This shows what you can do. To look at the next record - hit 'F' (or a period). To go back one record - hit 'B' (or a comma). To delete a record hit 'D' and a sign will appear at the upper right corner. To remove the delete - hit 'D' again. Don't worry - you cannot accidentally delete a record just by hitting 'D'. You must run another program on the Maintenance Menu (purge) to delete. To find a file - hit 'S' for search. To edit an entry hit 'E' (although you usually would search for a file - and Edit from the search menu.) To add more tenants, however, you must go back to the building data base and hit 'A' for Add. The Add option allows you to enter new buildings and tenants or just new tenants. Please hit any key to continue ENDT SET CONSOLE OFF WAIT SET CONSOLE ON ERAS TEXT The Type of tenancy can be either 'R' for regular, 'P' for per- centage rent (in which the higher of the percentage or base becomes the base or 'O' for overage, where an overage rent is added to the base rent. To use different methods of calculation, the code in the files ending in 'TNT' should be changed. ------------------------------------------------------------------------- WHATEVER YOU DO - NEVER SHUT OFF THE MACHINE OR REMOVE A DISK UNTIL YOU FIRST RETURN TO THE MAIN MENU AND THEN QUIT TO THE OPERATING SYSTEM. If you ever get a SYNTAX error that just hitting ENTER does not correct, hit the ESCAPE key and type Quit. Then try all over again. EVERY SO OFTEN YOU WILL FIND YOU WANT TO USE THE ESCAPE KEY AND WHEN YOU TRY TO TYPE 'QUIT' NOTHING HAPPENS. AT A FEW POINTS IN THIS PROGRAN SCREEN ACCESS HAS BEEN ELIMINATED. THEREFORE, TYPE 'QUIT' EVEN THOUGH IT DOES NOT APPEAR ON THE SCREEN - AND UNLESS THE MACHINE IS LOCKED UP - YOU WILL EXIT TO THE OPERATING SYSTEM. ------------------------------------------------------------------------- Please hit any key to get back to the data base ENDT SET CONSOLE OFF WAIT SET CONSOLE ON ERAS CASE command = 'P' DO PRINT.tnt CASE command = 'Q' STOR t TO keepitup STOR 0 TO box RETU CASE command = 'U' STOR $(bcode,1,2) TO linker SAVE to move STOR 3 TO box STOR t TO keepitup RETU CASE command = 'S' SAVE TO move STOR f TO moveit STOR 6 TO box STOR t TO keepitup RETU ENDC * loop back again ENDD WHILE t