CASH
FILE INFORMATION
FILENAME(S): CASH
FILE TYPE(S): PRG
FILE SIZE: 21.1K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
e6cc81be0a8c5a54204794df2a9ba082052a1b5012dbd4502ffe6b0011614dd7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC01 | CASH | PRG | Treasure Chest - Spook | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 01 00 8B 51 B2 30 A7 51 B2 51 AA 31 |.......Q.0.Q.Q.1|
00000010: 3A 93 22 43 4F 44 45 22 2C 38 2C 31 00 3E 08 03 |:."CODE",8,1.>..|
00000020: 00 8F 20 54 48 49 53 20 49 53 20 54 48 45 20 43 |.. THIS IS THE C|
00000030: 41 53 48 20 43 4F 4E 54 52 4F 4C 4C 45 52 00 5E |ASH CONTROLLER.^|
00000040: 08 04 00 8F 20 50 52 4F 47 52 41 4D 20 46 4F 52 |.... PROGRAM FOR|
00000050: 20 54 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 00 75 | THE COMMODORE.u|
00000060: 08 05 00 8F 20 36 34 20 48 4F 4D 45 20 43 4F 4D |.... 64 HOME COM|
00000070: 50 55 54 45 52 00 7B 08 06 00 8F 00 A3 08 07 00 |PUTER.{.........|
00000080: 8F 20 43 4F 4E 56 45 52 54 45 44 20 42 59 20 52 |. CONVERTED BY R|
00000090: 2E 41 2E 20 43 4F 4F 50 45 52 20 46 45 42 20 31 |.A. COOPER FEB 1|
000000A0: 39 38 34 00 C2 08 08 00 8F 20 4F 52 49 47 49 4F |984...... ORIGIO|
000000B0: 4E 41 4C 20 42 59 20 52 2E 20 53 48 45 50 48 45 |NAL BY R. SHEPHE|
000000C0: 52 44 00 E0 08 09 00 97 38 30 38 2C 32 32 35 3A |RD......808,225:|
000000D0: 97 37 36 38 2C 31 35 3A 97 37 36 39 2C 31 39 32 |.768,15:.769,192|
000000E0: 00 15 09 0A 00 8F 20 43 4F 50 59 52 49 47 48 54 |...... COPYRIGHT|
000000F0: 20 D2 49 43 48 41 52 44 20 D3 48 45 50 48 45 52 | .ICHARD .HEPHER|
00000100: 44 20 D3 4F 46 54 57 41 52 45 20 4C 54 44 2E 20 |D .OFTWARE LTD. |
00000110: 31 39 38 34 2E 00 20 09 0B 00 99 C7 28 38 29 3B |1984.. .....(8);|
00000120: 00 40 09 14 00 8F 20 54 48 45 53 45 20 41 52 45 |.@.... THESE ARE|
00000130: 20 54 48 45 20 41 52 52 41 59 53 20 55 53 45 44 | THE ARRAYS USED|
00000140: 00 69 09 19 00 86 42 44 24 28 31 36 29 2C 42 44 |.i....BD$(16),BD|
00000150: 28 31 36 29 2C 54 42 28 31 36 29 2C 4D 24 28 31 |(16),TB(16),M$(1|
00000160: 32 29 2C 4D 4F 28 31 32 29 00 81 09 1A 00 86 54 |2),MO(12)......T|
00000170: 52 24 28 34 30 30 29 2C 54 52 28 34 30 30 2C 32 |R$(400),TR(400,2|
00000180: 29 00 97 09 64 00 42 52 B2 35 33 32 38 30 3A 42 |)...d.BR.53280:B|
00000190: 4B B2 35 33 32 38 31 00 C3 09 65 00 4C 43 24 B2 |K.53281...e.LC$.|
000001A0: C7 28 31 34 29 3A 54 42 24 B2 C7 28 31 36 29 3A |.(14):TB$..(16):|
000001B0: 4C 46 24 B2 C7 28 31 30 29 3A 43 52 24 B2 C7 28 |LF$..(10):CR$..(|
000001C0: 31 33 29 00 0F 0A 66 00 4D 24 28 31 29 B2 22 CA |13)...f.M$(1).".|
000001D0: 41 4E 22 3A 4D 24 28 32 29 B2 22 C6 45 42 22 3A |AN":M$(2).".EB":|
000001E0: 4D 24 28 33 29 B2 22 CD 41 52 22 3A 4D 24 28 34 |M$(3).".AR":M$(4|
000001F0: 29 B2 22 C1 50 52 22 3A 4D 24 28 35 29 B2 22 CD |).".PR":M$(5).".|
00000200: 41 59 22 3A 4D 24 28 36 29 B2 22 CA 55 4E 22 00 |AY":M$(6).".UN".|
00000210: 5E 0A 67 00 4D 24 28 37 29 B2 22 CA 55 4C 22 3A |^.g.M$(7).".UL":|
00000220: 4D 24 28 38 29 B2 22 C1 55 47 22 3A 4D 24 28 39 |M$(8).".UG":M$(9|
00000230: 29 B2 22 D3 45 50 22 3A 4D 24 28 31 30 29 B2 22 |).".EP":M$(10)."|
00000240: CF 43 54 22 3A 4D 24 28 31 31 29 B2 22 CE 4F 56 |.CT":M$(11).".OV|
00000250: 22 3A 4D 24 28 31 32 29 B2 22 C4 45 43 22 00 AA |":M$(12).".EC"..|
00000260: 0A 68 00 4D 4F 28 31 29 B2 33 31 3A 4D 4F 28 32 |.h.MO(1).31:MO(2|
00000270: 29 B2 32 38 3A 4D 4F 28 33 29 B2 33 31 3A 4D 4F |).28:MO(3).31:MO|
00000280: 28 34 29 B2 33 30 3A 4D 4F 28 35 29 B2 33 31 3A |(4).30:MO(5).31:|
00000290: 4D 4F 28 36 29 B2 33 30 3A 4D 4F 28 37 29 B2 33 |MO(6).30:MO(7).3|
000002A0: 31 3A 4D 4F 28 38 29 B2 33 31 00 D5 0A 69 00 4D |1:MO(8).31...i.M|
000002B0: 4F 28 39 29 B2 33 30 3A 4D 4F 28 31 30 29 B2 33 |O(9).30:MO(10).3|
000002C0: 31 3A 4D 4F 28 31 31 29 B2 33 30 3A 4D 4F 28 31 |1:MO(11).30:MO(1|
000002D0: 32 29 B2 33 31 00 DE 0A 6D 00 89 32 30 30 00 ED |2).31...m..200..|
000002E0: 0A 6E 00 8D 31 36 30 30 3A 89 32 30 30 00 F3 0A |.n..1600:.200...|
000002F0: C8 00 8F 00 11 0B C9 00 8F 20 48 45 52 45 20 49 |......... HERE I|
00000300: 53 20 54 48 45 20 4D 41 53 54 45 52 20 4D 45 4E |S THE MASTER MEN|
00000310: 55 00 17 0B CA 00 8F 00 2C 0B CD 00 97 42 52 2C |U.......,....BR,|
00000320: 30 3A 97 42 4B 2C 32 3A 99 4C 43 24 00 4E 0B D2 |0:.BK,2:.LC$.N..|
00000330: 00 99 22 93 22 3A 99 22 13 05 11 20 20 20 20 20 |..".":."... |
00000340: 20 20 CD 41 53 54 45 52 20 CD 45 4E 55 22 00 67 | .ASTER .ENU".g|
00000350: 0B D7 00 99 22 11 20 20 31 20 20 C2 55 44 47 45 |....". 1 .UDGE|
00000360: 54 20 CD 45 4E 55 22 00 86 0B DC 00 99 22 11 20 |T .ENU"......". |
00000370: 20 32 20 20 C2 41 4E 4B 20 C1 43 43 4F 55 4E 54 | 2 .ANK .CCOUNT|
00000380: 20 CD 45 4E 55 22 00 AC 0B E1 00 99 22 11 20 20 | .ENU"......". |
00000390: 33 20 20 CD 4F 52 54 47 41 47 45 2F CC 4F 41 4E |3 .ORTGAGE/.OAN|
000003A0: 20 C3 41 4C 43 55 4C 41 54 4F 52 22 00 D0 0B EB | .ALCULATOR"....|
000003B0: 00 99 22 11 20 20 34 20 20 D3 41 56 45 20 C4 41 |..". 4 .AVE .A|
000003C0: 54 41 20 54 4F 20 D4 41 50 45 2F C4 49 53 43 22 |TA TO .APE/.ISC"|
000003D0: 00 EA 0B F0 00 99 22 11 20 20 35 20 20 C5 4E 54 |......". 5 .NT|
000003E0: 52 59 20 D3 45 41 52 43 48 22 00 F4 0B F5 00 41 |RY .EARCH".....A|
000003F0: 24 B2 22 22 00 17 0C FA 00 8D 31 33 30 30 3A 85 |$.""......1300:.|
00000400: 22 C5 4E 54 45 52 20 D9 4F 55 52 20 CF 50 54 49 |".NTER .OUR .PTI|
00000410: 4F 4E 20 22 3B 41 24 00 26 0C FF 00 8B 41 24 B2 |ON ";A$.&....A$.|
00000420: 22 22 A7 32 34 35 00 3C 0C 01 01 8B 41 24 B2 22 |"".245.<....A$."|
00000430: 4C 4A 48 35 39 30 58 22 A7 39 30 30 00 51 0C 02 |LJH590X".900.Q..|
00000440: 01 8B 41 24 B2 22 52 41 4E 44 41 4C 22 A7 39 35 |..A$."RANDAL".95|
00000450: 30 00 71 0C 04 01 8B C5 28 41 24 29 B1 35 B0 C5 |0.q.....(A$).5..|
00000460: 28 41 24 29 B3 31 A7 8D 31 34 30 30 3A 89 32 34 |(A$).1..1400:.24|
00000470: 35 00 90 0C 0E 01 91 C5 28 41 24 29 89 33 30 30 |5.......(A$).300|
00000480: 2C 34 30 30 2C 35 30 30 2C 37 30 30 2C 38 30 30 |,400,500,700,800|
00000490: 00 96 0C 2C 01 8F 00 A8 0C 2D 01 8F 20 42 55 44 |...,.....-.. BUD|
000004A0: 47 45 54 20 4D 45 4E 55 00 B2 0C 31 01 97 42 4B |GET MENU...1..BK|
000004B0: 2C 36 00 D6 0C 36 01 99 22 93 22 3A 99 22 13 05 |,6...6..".":."..|
000004C0: 11 20 20 20 20 20 20 C2 55 44 47 45 54 20 CF 50 |. .UDGET .P|
000004D0: 54 49 4F 4E 53 22 00 F6 0C 3B 01 99 22 11 11 20 |TIONS"...;..".. |
000004E0: 20 31 20 20 C5 4E 54 45 52 20 4E 45 57 20 42 55 | 1 .NTER NEW BU|
000004F0: 44 47 45 54 53 22 00 12 0D 40 01 99 22 11 20 20 |DGETS"...@..". |
00000500: 32 20 20 D5 50 44 41 54 45 20 C2 55 44 47 45 54 |2 .PDATE .UDGET|
00000510: 53 22 00 3B 0D 45 01 99 22 11 20 20 33 20 20 D0 |S".;.E..". 3 .|
00000520: 52 49 4E 54 20 C2 55 44 47 45 54 53 20 41 4E 44 |RINT .UDGETS AND|
00000530: 20 D6 41 52 49 41 4E 43 45 53 22 00 60 0D 4A 01 | .ARIANCES".`.J.|
00000540: 99 22 11 20 20 34 20 20 C2 52 45 41 4B 44 4F 57 |.". 4 .REAKDOW|
00000550: 4E 20 C2 55 44 47 45 54 20 C1 43 54 55 41 4C 22 |N .UDGET .CTUAL"|
00000560: 00 83 0D 54 01 99 22 11 20 20 35 20 20 C4 45 4C |...T..". 5 .EL|
00000570: 45 54 45 20 C2 55 44 47 45 54 20 C4 45 54 41 49 |ETE .UDGET .ETAI|
00000580: 4C 53 22 00 A6 0D 59 01 99 22 11 20 20 36 20 20 |LS"...Y..". 6 |
00000590: D0 52 49 4E 54 20 42 55 44 47 45 54 20 48 45 41 |.RINT BUDGET HEA|
000005A0: 44 49 4E 47 53 22 00 CA 0D 5E 01 99 22 11 20 20 |DINGS"...^..". |
000005B0: 20 20 20 D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 | .RESS ...... |
000005C0: 54 4F 20 46 49 4E 49 53 48 22 00 F3 0D 63 01 41 |TO FINISH"...c.A|
000005D0: 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 C5 4E 54 |$."":.1300:.".NT|
000005E0: 45 52 20 D9 4F 55 52 20 CF 50 54 49 4F 4E 20 22 |ER .OUR .PTION "|
000005F0: 3B 41 24 00 02 0E 65 01 8B 41 24 B2 22 22 A7 32 |;A$...e..A$."".2|
00000600: 30 30 00 22 0E 68 01 8B C5 28 41 24 29 B3 31 B0 |00.".h...(A$).1.|
00000610: C5 28 41 24 29 B1 36 A7 8D 31 34 30 30 3A 89 33 |.(A$).6..1400:.3|
00000620: 35 35 00 4B 0E 6D 01 91 C5 28 41 24 29 89 34 30 |55.K.m...(A$).40|
00000630: 30 30 2C 34 31 30 30 2C 34 32 30 30 2C 34 33 30 |00,4100,4200,430|
00000640: 30 2C 34 35 30 30 2C 34 38 30 30 00 51 0E 90 01 |0,4500,4800.Q...|
00000650: 8F 00 6C 0E 91 01 8F 20 42 41 4E 4B 20 41 43 43 |..l.... BANK ACC|
00000660: 4F 55 4E 54 20 4F 50 54 49 4F 4E 53 00 72 0E 92 |OUNT OPTIONS.r..|
00000670: 01 8F 00 7C 0E 95 01 97 42 4B 2C 38 00 A6 0E 9A |...|....BK,8....|
00000680: 01 99 22 93 22 3A 99 22 13 90 11 20 20 20 20 20 |..".":."... |
00000690: 20 C2 41 4E 4B 20 C1 43 43 4F 55 4E 54 20 CF 50 | .ANK .CCOUNT .P|
000006A0: 54 49 4F 4E 53 22 00 C7 0E 9F 01 99 22 11 11 20 |TIONS"......".. |
000006B0: 20 31 20 20 C5 4E 54 45 52 20 D4 52 41 4E 53 41 | 1 .NTER .RANSA|
000006C0: 43 54 49 4F 4E 53 22 00 E6 0E A4 01 99 22 11 20 |CTIONS"......". |
000006D0: 20 32 20 20 D3 54 41 54 45 4D 45 4E 54 20 D2 45 | 2 .TATEMENT .E|
000006E0: 51 55 45 53 54 22 00 0B 0F A9 01 99 22 11 20 20 |QUEST"......". |
000006F0: 33 20 20 C3 4C 45 41 52 20 D4 52 41 4E 53 41 43 |3 .LEAR .RANSAC|
00000700: 54 49 4F 4E 20 C6 49 4C 45 53 22 00 2C 0F B8 01 |TION .ILES".,...|
00000710: 99 22 11 20 20 34 20 20 D3 45 54 20 CF 50 45 4E |.". 4 .ET .PEN|
00000720: 49 4E 47 20 C2 41 4C 41 4E 43 45 22 00 4F 0F BD |ING .ALANCE".O..|
00000730: 01 99 22 11 20 20 35 20 20 C5 4E 54 45 52 20 D3 |..". 5 .NTER .|
00000740: 54 41 4E 44 49 4E 47 20 CF 52 44 45 52 53 22 00 |TANDING .RDERS".|
00000750: 77 0F C2 01 99 22 11 20 20 36 20 20 C4 45 4C 45 |w....". 6 .ELE|
00000760: 54 45 2F C3 48 41 4E 47 45 20 D4 52 41 4E 53 41 |TE/.HANGE .RANSA|
00000770: 43 54 49 4F 4E 53 22 00 9B 0F C7 01 99 22 11 20 |CTIONS"......". |
00000780: 20 20 20 20 D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE | .RESS ......|
00000790: 20 54 4F 20 46 49 4E 49 53 48 22 00 C4 0F CC 01 | TO FINISH".....|
000007A0: 41 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 C5 4E |A$."":.1300:.".N|
000007B0: 54 45 52 20 D9 4F 55 52 20 CF 50 54 49 4F 4E 20 |TER .OUR .PTION |
000007C0: 22 3B 41 24 00 D3 0F CE 01 8B 41 24 B2 22 22 A7 |";A$......A$."".|
000007D0: 32 30 30 00 F3 0F D1 01 8B C5 28 41 24 29 B3 31 |200.......(A$).1|
000007E0: B0 C5 28 41 24 29 B1 39 A7 8D 31 34 30 30 3A 89 |..(A$).9..1400:.|
000007F0: 34 36 30 00 1F 10 DB 01 91 C5 28 41 24 29 89 35 |460.......(A$).5|
00000800: 31 30 30 2C 35 35 30 30 2C 35 38 30 30 2C 35 30 |100,5500,5800,50|
00000810: 30 30 2C 35 39 30 30 2C 34 38 30 2C 32 30 30 00 |00,5900,480,200.|
00000820: 4C 10 E0 01 4B 24 B2 22 22 3A 8D 31 33 35 30 3A |L...K$."":.1350:|
00000830: 85 22 C4 45 4C 45 54 45 20 4F 52 20 43 48 41 4E |.".ELETE OR CHAN|
00000840: 47 45 28 44 2F 43 29 20 22 3B 4B 24 00 5B 10 E2 |GE(D/C) ";K$.[..|
00000850: 01 8B 4B 24 B2 22 22 A7 34 30 30 00 6C 10 E4 01 |..K$."".400.l...|
00000860: 8B 4B 24 B2 22 44 22 A7 36 32 30 30 00 7D 10 E6 |.K$."D".6200.}..|
00000870: 01 8B 4B 24 B2 22 43 22 A7 36 35 30 30 00 86 10 |..K$."C".6500...|
00000880: EA 01 89 34 38 30 00 B1 10 EF 01 8D 31 33 35 30 |...480......1350|
00000890: 3A 99 22 91 D4 52 41 4E 53 41 43 54 49 4F 4E 20 |:."..RANSACTION |
000008A0: 46 49 4C 45 53 20 45 4D 50 54 59 22 3A 89 34 36 |FILES EMPTY":.46|
000008B0: 30 00 B7 10 F4 01 8F 00 D6 10 F5 01 8F 20 4D 4F |0............ MO|
000008C0: 52 54 47 41 47 45 2F 4C 4F 41 4E 20 43 41 4C 43 |RTGAGE/LOAN CALC|
000008D0: 55 4C 41 54 4F 52 00 DC 10 F6 01 8F 00 F3 10 F9 |ULATOR..........|
000008E0: 01 97 42 4B 2C 31 34 3A 99 4C 43 24 3A 45 52 24 |..BK,14:.LC$:ER$|
000008F0: B2 22 22 00 18 11 FE 01 99 22 93 1F 20 20 20 CD |.""......".. .|
00000900: 4F 52 54 47 41 47 45 2F CC 4F 41 4E 20 C3 41 4C |ORTGAGE/.OAN .AL|
00000910: 43 55 4C 41 54 4F 52 22 00 45 11 03 02 99 22 11 |CULATOR".E....".|
00000920: D4 48 45 52 45 20 41 52 45 20 46 4F 55 52 20 45 |.HERE ARE FOUR E|
00000930: 4C 45 4D 45 4E 54 53 20 54 4F 20 41 4E 59 20 4C |LEMENTS TO ANY L|
00000940: 4F 41 4E 2E 22 00 6F 11 08 02 99 22 D4 48 45 53 |OAN.".o....".HES|
00000950: 45 20 41 52 45 2C 20 41 4D 4F 55 4E 54 20 42 4F |E ARE, AMOUNT BO|
00000960: 52 52 4F 57 45 44 2C 52 41 54 45 20 4F 46 22 00 |RROWED,RATE OF".|
00000970: 9B 11 0D 02 99 22 49 4E 54 45 52 45 53 54 2C 50 |....."INTEREST,P|
00000980: 45 52 49 4F 44 20 4F 46 20 54 49 4D 45 2C 20 41 |ERIOD OF TIME, A|
00000990: 4E 44 20 4D 4F 4E 54 48 4C 59 22 00 AD 11 12 02 |ND MONTHLY".....|
000009A0: 99 22 52 45 50 41 59 4D 45 4E 54 2E 22 00 D8 11 |."REPAYMENT."...|
000009B0: 17 02 99 22 C2 59 20 45 4E 54 45 52 49 4E 47 20 |...".Y ENTERING |
000009C0: 41 4E 59 20 54 48 52 45 45 20 4F 46 20 54 48 45 |ANY THREE OF THE|
000009D0: 53 45 20 54 48 45 20 22 00 06 12 1C 02 99 22 46 |SE THE "......"F|
000009E0: 4F 55 52 54 48 20 57 49 4C 4C 20 42 45 20 43 41 |OURTH WILL BE CA|
000009F0: 4C 43 55 4C 41 54 45 44 2E 20 D4 48 45 20 55 4E |LCULATED. .HE UN|
00000A00: 4B 4E 4F 57 4E 22 00 35 12 21 02 99 22 46 41 43 |KNOWN".5.!.."FAC|
00000A10: 54 4F 52 20 49 53 20 45 4E 54 45 52 45 44 20 42 |TOR IS ENTERED B|
00000A20: 59 20 50 52 45 53 53 49 4E 47 20 D2 C5 D4 D5 D2 |Y PRESSING .....|
00000A30: CE 20 4F 4E 22 00 45 12 26 02 99 22 49 54 53 20 |. ON".E.&.."ITS |
00000A40: 4F 57 4E 2E 22 00 77 12 2B 02 8D 31 33 30 30 3A |OWN.".w.+..1300:|
00000A50: 99 22 D0 52 45 53 53 20 41 20 CB 45 59 20 54 4F |.".RESS A .EY TO|
00000A60: 20 C3 4F 4E 54 49 4E 55 45 22 3B 3A 8D 32 30 35 | .ONTINUE";:.205|
00000A70: 30 3A 89 37 30 30 30 00 7D 12 BC 02 8F 00 A4 12 |0:.7000.}.......|
00000A80: BD 02 8F 20 53 41 56 45 20 54 48 45 20 44 41 54 |... SAVE THE DAT|
00000A90: 41 20 54 4F 20 50 45 52 4D 41 4E 45 4E 54 20 53 |A TO PERMANENT S|
00000AA0: 54 4F 52 45 00 AA 12 BE 02 8F 00 B4 12 C1 02 89 |TORE............|
00000AB0: 33 30 30 30 00 BA 12 20 03 8F 00 D0 12 21 03 8F |3000... .....!..|
00000AC0: 20 53 45 41 52 43 48 20 54 48 45 20 44 41 54 41 | SEARCH THE DATA|
00000AD0: 00 D6 12 22 03 8F 00 E0 12 25 03 97 42 4B 2C 38 |...".....%..BK,8|
00000AE0: 00 12 13 2A 03 99 22 93 22 3A 99 22 13 05 11 11 |...*..".":."....|
00000AF0: 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 |........ |
00000B00: 20 D3 45 41 52 43 48 20 C6 4F 52 20 C5 4E 54 52 | .EARCH .OR .NTR|
00000B10: 59 22 00 1C 13 34 03 89 38 30 30 30 00 25 13 84 |Y"...4..8000.%..|
00000B20: 03 99 22 93 22 00 2F 13 89 03 8D 33 30 35 30 00 |.."."./....3050.|
00000B30: 3D 13 8E 03 8B 44 56 B2 38 A7 39 33 30 00 53 13 |=....DV.8.930.S.|
00000B40: 93 03 9E 34 39 31 35 32 2C 22 43 41 53 48 22 2C |...49152,"CASH",|
00000B50: 31 2C 31 00 59 13 98 03 8A 00 72 13 A2 03 9E 34 |1,1.Y.....r....4|
00000B60: 39 31 35 32 2C 22 40 30 3A 43 41 53 48 22 2C 38 |9152,"@0:CASH",8|
00000B70: 2C 31 00 78 13 A7 03 8A 00 97 13 B6 03 97 38 30 |,1.x..........80|
00000B80: 38 2C 32 33 37 3A 97 37 36 38 2C 31 33 39 3A 97 |8,237:.768,139:.|
00000B90: 37 36 39 2C 32 32 37 00 9D 13 C0 03 80 00 A3 13 |769,227.........|
00000BA0: E8 03 8F 00 B8 13 E9 03 8F 20 49 4E 50 55 54 20 |......... INPUT |
00000BB0: 54 48 45 20 44 41 54 45 00 BE 13 EA 03 8F 00 CC |THE DATE........|
00000BC0: 13 FC 03 44 24 B2 22 22 3A 85 44 24 00 E0 13 06 |...D$."":.D$....|
00000BD0: 04 50 B2 31 3A 44 B2 30 3A 4D B2 30 3A 59 B2 30 |.P.1:D.0:M.0:Y.0|
00000BE0: 00 EA 13 10 04 8D 31 31 35 30 00 FB 13 15 04 8B |......1150......|
00000BF0: 43 48 24 B2 22 22 A7 31 31 33 30 00 1D 14 1A 04 |CH$."".1130.....|
00000C00: 8B 43 48 24 B2 22 2F 22 B0 43 48 24 B2 22 2E 22 |.CH$."/".CH$."."|
00000C10: B0 43 48 24 B2 22 2C 22 A7 31 30 36 32 00 3B 14 |.CH$.",".1062.;.|
00000C20: 1C 04 8B C6 28 43 48 24 29 B3 34 38 B0 C6 28 43 |....(CH$).48..(C|
00000C30: 48 24 29 B1 35 37 A7 31 31 33 30 00 5A 14 1F 04 |H$).57.1130.Z...|
00000C40: 44 B2 28 44 AC 31 30 29 AA C5 28 43 48 24 29 3A |D.(D.10)..(CH$):|
00000C50: 8B 44 B1 33 31 A7 31 31 33 30 00 64 14 24 04 89 |.D.31.1130.d.$..|
00000C60: 31 30 34 30 00 73 14 26 04 8B 44 B3 B2 30 A7 31 |1040.s.&..D..0.1|
00000C70: 31 33 30 00 7D 14 29 04 8D 31 31 35 30 00 8E 14 |130.}.)..1150...|
00000C80: 2A 04 8B 43 48 24 B2 22 22 A7 31 31 33 30 00 B0 |*..CH$."".1130..|
00000C90: 14 2E 04 8B 43 48 24 B2 22 2F 22 B0 43 48 24 B2 |....CH$."/".CH$.|
00000CA0: 22 2E 22 B0 43 48 24 B2 22 2C 22 A7 31 30 37 38 |".".CH$.",".1078|
00000CB0: 00 CE 14 30 04 8B C6 28 43 48 24 29 B3 34 38 B0 |...0...(CH$).48.|
00000CC0: C6 28 43 48 24 29 B1 35 37 A7 31 31 33 30 00 ED |.(CH$).57.1130..|
00000CD0: 14 33 04 4D B2 28 4D AC 31 30 29 AA C5 28 43 48 |.3.M.(M.10)..(CH|
00000CE0: 24 29 3A 8B 4D B1 31 32 A7 31 31 33 30 00 F7 14 |$):.M.12.1130...|
00000CF0: 35 04 89 31 30 36 35 00 06 15 36 04 8B 4D B3 B2 |5..1065...6..M..|
00000D00: 30 A7 31 31 33 30 00 10 15 38 04 8D 31 31 35 30 |0.1130...8..1150|
00000D10: 00 39 15 3D 04 8B 43 48 24 B2 22 2F 22 B0 43 48 |.9.=..CH$."/".CH|
00000D20: 24 B2 22 2E 22 B0 43 48 24 B2 22 2C 22 B0 43 48 |$.".".CH$.",".CH|
00000D30: 24 B2 22 22 A7 31 31 30 30 00 57 15 3F 04 8B C6 |$."".1100.W.?...|
00000D40: 28 43 48 24 29 B3 34 38 B0 C6 28 43 48 24 29 B1 |(CH$).48..(CH$).|
00000D50: 35 37 A7 31 31 33 30 00 76 15 42 04 59 B2 28 59 |57.1130.v.B.Y.(Y|
00000D60: AC 31 30 29 AA C5 28 43 48 24 29 3A 8B 59 B1 39 |.10)..(CH$):.Y.9|
00000D70: 39 A7 31 31 33 30 00 8A 15 44 04 8B 50 B2 C3 28 |9.1130...D..P..(|
00000D80: 44 24 29 AA 31 A7 31 31 30 30 00 94 15 47 04 89 |D$).1.1100...G..|
00000D90: 31 30 38 30 00 A3 15 4C 04 8B 59 B3 B2 30 A7 31 |1080...L..Y..0.1|
00000DA0: 31 33 30 00 C1 15 4E 04 8B 44 B2 32 39 AF 4D B2 |130...N..D.29.M.|
00000DB0: 32 AF 59 AD 34 B2 B5 28 59 AD 34 29 A7 31 31 31 |2.Y.4..(Y.4).111|
00000DC0: 30 00 D3 15 51 04 8B 44 B1 4D 4F 28 4D 29 A7 31 |0...Q..D.MO(M).1|
00000DD0: 31 33 30 00 EE 15 56 04 44 54 B2 28 59 AC 31 30 |130...V.DT.(Y.10|
00000DE0: 30 30 30 29 AA 28 4D AC 31 30 30 29 AA 44 00 F4 |000).(M.100).D..|
00000DF0: 15 60 04 8E 00 FE 15 6A 04 44 B2 30 3A 8E 00 18 |.`.....j.D.0:...|
00000E00: 16 7E 04 43 48 24 B2 CA 28 44 24 2C 50 2C 31 29 |.~.CH$..(D$,P,1)|
00000E10: 3A 50 B2 50 AA 31 3A 8E 00 1E 16 B0 04 8F 00 35 |:P.P.1:........5|
00000E20: 16 B1 04 8F 20 45 58 54 52 41 43 54 20 54 48 45 |.... EXTRACT THE|
00000E30: 20 44 41 54 45 00 3B 16 B2 04 8F 00 4D 16 B5 04 | DATE.;.....M...|
00000E40: 59 B2 B5 28 44 54 AD 31 30 30 30 30 29 00 61 16 |Y..(DT.10000).a.|
00000E50: BA 04 52 45 B2 44 54 AB 28 59 AC 31 30 30 30 30 |..RE.DT.(Y.10000|
00000E60: 29 00 71 16 BF 04 4D B2 B5 28 52 45 AD 31 30 30 |).q...M..(RE.100|
00000E70: 29 00 82 16 C4 04 44 B2 52 45 AB 28 4D AC 31 30 |).....D.RE.(M.10|
00000E80: 30 29 00 88 16 C9 04 8E 00 8E 16 14 05 8F 00 B8 |0)..............|
00000E90: 16 15 05 8F 20 50 4F 53 49 54 49 4F 4E 20 54 4F |.... POSITION TO|
00000EA0: 20 49 4E 50 55 54 20 4C 49 4E 45 20 41 4E 44 20 | INPUT LINE AND |
00000EB0: 43 4C 45 41 52 20 49 54 00 BE 16 16 05 8F 00 C8 |CLEAR IT........|
00000EC0: 16 19 05 8D 31 33 33 30 00 FC 16 1E 05 99 22 20 |....1330......" |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EF0: 20 20 20 20 20 22 3A 99 22 91 22 3B 00 02 17 28 | ":.".";...(|
00000F00: 05 8E 00 25 17 32 05 99 22 13 11 11 11 11 11 11 |...%.2..".......|
00000F10: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000F20: 11 22 3B 3A 8E 00 2B 17 46 05 8F 00 49 17 47 05 |.";:..+.F...I.G.|
00000F30: 8F 20 43 4C 45 41 52 20 42 4F 54 54 4F 4D 20 46 |. CLEAR BOTTOM F|
00000F40: 49 56 45 20 4C 49 4E 45 53 00 4F 17 48 05 8F 00 |IVE LINES.O.H...|
00000F50: 63 17 50 05 9E 34 39 31 36 31 20 3A 8D 31 33 33 |c.P..49161 :.133|
00000F60: 30 3A 8E 00 69 17 78 05 8F 00 6F 17 79 05 8F 00 |0:..i.x...o.y...|
00000F70: 75 17 7A 05 8F 00 94 17 7D 05 8D 31 33 30 30 3A |u.z.....}..1300:|
00000F80: 99 22 91 C9 4E 56 41 4C 49 44 20 4F 50 54 49 4F |."..NVALID OPTIO|
00000F90: 4E 22 3A 8E 00 9A 17 DC 05 8F 00 B5 17 DD 05 8F |N":.............|
00000FA0: 20 47 45 54 20 59 45 53 20 4F 52 20 4E 4F 20 41 | GET YES OR NO A|
00000FB0: 4E 53 57 45 52 00 C5 17 E1 05 59 4E 24 B2 22 22 |NSWER.....YN$.""|
00000FC0: 3A 85 59 4E 24 00 D9 17 E6 05 8B 59 4E 24 B2 22 |:.YN$......YN$."|
00000FD0: 59 22 A7 59 4E B2 31 3A 8E 00 E5 17 F5 05 59 4E |Y".YN.1:......YN|
00000FE0: B2 AB 31 3A 8E 00 EB 17 40 06 8F 00 17 18 4A 06 |..1:....@.....J.|
00000FF0: 8D 31 33 30 30 3A 99 22 D0 52 45 53 53 20 41 20 |.1300:.".RESS A |
00001000: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"|
00001010: 3B 3A 8D 32 30 35 30 00 1D 18 54 06 8E 00 23 18 |;:.2050...T...#.|
00001020: CF 07 80 00 51 18 D0 07 99 22 13 11 11 11 11 11 |....Q...."......|
00001030: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001040: 11 11 11 22 3B 45 52 24 3A 45 52 24 B2 22 22 3A |...";ER$:ER$."":|
00001050: 8E 00 65 18 02 08 A1 43 24 3A 8B 43 24 B2 22 22 |..e....C$:.C$.""|
00001060: A7 32 30 35 30 00 6B 18 03 08 8E 00 71 18 34 08 |.2050.k.....q.4.|
00001070: 8F 00 90 18 35 08 8F 20 44 49 53 50 4C 41 59 20 |....5.. DISPLAY |
00001080: 54 48 45 20 42 55 44 47 45 54 20 41 52 52 41 59 |THE BUDGET ARRAY|
00001090: 00 96 18 36 08 8F 00 C5 18 39 08 99 22 13 22 3B |...6.....9..".";|
000010A0: 22 C3 4F 44 45 22 3B A3 38 29 3B 22 C2 55 44 47 |".ODE";.8);".UDG|
000010B0: 45 54 20 D4 49 54 4C 45 22 3B A3 32 38 29 3B 22 |ET .ITLE";.28);"|
000010C0: 5C 2E 50 11 22 00 CD 18 3E 08 43 B2 31 00 DF 18 |\.P."...>.C.1...|
000010D0: 48 08 8B 42 44 28 30 29 B2 30 A7 32 31 38 30 00 |H..BD(0).0.2180.|
000010E0: F7 18 52 08 99 43 3B A3 36 29 3B 42 44 24 28 43 |..R..C;.6);BD$(C|
000010F0: 29 3B A3 32 34 29 3B 00 0F 19 5C 08 54 4E B2 42 |);.24);...\.TN.B|
00001100: 44 28 43 29 3A 4E 4C B2 31 3A 8D 32 33 30 30 00 |D(C):NL.1:.2300.|
00001110: 28 19 75 08 8B 42 44 28 30 29 B2 43 A7 43 B2 43 |(.u..BD(0).C.C.C|
00001120: AA 31 3A 89 32 31 38 30 00 38 19 7A 08 43 B2 43 |.1:.2180.8.z.C.C|
00001130: AA 31 3A 89 32 31 33 30 00 44 19 84 08 8B 43 B2 |.1:.2130.D....C.|
00001140: 31 37 A7 8E 00 57 19 89 08 99 43 3A 43 B2 43 AA |17...W....C:C.C.|
00001150: 31 3A 89 32 31 38 30 00 5D 19 98 08 8F 00 7E 19 |1:.2180.].....~.|
00001160: 99 08 8F 20 53 45 41 52 43 48 20 54 48 45 20 42 |... SEARCH THE B|
00001170: 55 44 47 45 54 20 48 45 41 44 49 4E 47 53 00 84 |UDGET HEADINGS..|
00001180: 19 9A 08 8F 00 98 19 9D 08 8B 42 44 28 30 29 B2 |..........BD(0).|
00001190: 30 A7 42 43 B2 30 3A 8E 00 A8 19 A2 08 81 42 43 |0.BC.0:.......BC|
000011A0: B2 31 A4 42 44 28 30 29 00 BA 19 A7 08 8B 54 24 |.1.BD(0)......T$|
000011B0: B2 42 44 24 28 42 43 29 A7 8E 00 C9 19 AC 08 82 |.BD$(BC)........|
000011C0: 42 43 3A 42 43 B2 30 3A 8E 00 CF 19 FC 08 8F 00 |BC:BC.0:........|
000011D0: F1 19 FD 08 8F 20 50 4F 53 49 54 49 4F 4E 20 43 |..... POSITION C|
000011E0: 55 52 53 4F 52 20 46 4F 52 20 4E 55 4D 42 45 52 |URSOR FOR NUMBER|
000011F0: 53 00 06 1A FE 08 8F 20 41 4E 44 20 50 52 49 4E |S...... AND PRIN|
00001200: 54 20 54 48 45 4D 00 0C 1A FF 08 8F 00 16 1A 01 |T THEM..........|
00001210: 09 4E 55 B2 54 4E 00 31 1A 02 09 4D 49 B2 30 3A |.NU.TN.1...MI.0:|
00001220: 8B 4E 55 B3 30 A7 4E 55 B2 AB 4E 55 3A 4D 49 B2 |.NU.0.NU..NU:MI.|
00001230: 31 00 44 1A 10 09 8B 4E 55 B3 31 30 30 30 A7 99 |1.D....NU.1000..|
00001240: A6 31 29 3B 00 56 1A 1A 09 8B 4E 55 B3 31 30 30 |.1);.V....NU.100|
00001250: A7 99 A6 31 29 3B 00 67 1A 24 09 8B 4E 55 B3 31 |...1);.g.$..NU.1|
00001260: 30 A7 99 A6 31 29 3B 00 78 1A 38 09 8B 4D 49 B2 |0...1);.x.8..MI.|
00001270: 31 A7 4E 55 B2 AB 4E 55 00 82 1A 39 09 8D 32 34 |1.NU..NU...9..24|
00001280: 30 30 00 91 1A 3D 09 8B 4E 4C B2 31 A7 32 33 37 |00...=..NL.1.237|
00001290: 35 00 9D 1A 42 09 99 4E 55 24 3B 3A 8E 00 A8 1A |5...B..NU$;:....|
000012A0: 47 09 99 4E 55 24 3A 8E 00 AE 1A 60 09 8F 00 C8 |G..NU$:....`....|
000012B0: 1A 61 09 8F 20 50 52 49 4E 54 20 4E 55 4D 42 45 |.a.. PRINT NUMBE|
000012C0: 52 20 53 54 52 49 4E 47 00 CE 1A 62 09 8F 00 EC |R STRING...b....|
000012D0: 1A 65 09 4E 4E 24 B2 C4 28 4E 55 29 3A 4E 55 24 |.e.NN$..(NU):NU$|
000012E0: B2 22 22 AA C8 28 4E 4E 24 2C 31 29 00 FB 1A 6A |.""..(NN$,1)...j|
000012F0: 09 44 50 25 B2 30 3A 44 46 B2 30 00 0C 1B 6F 09 |.DP%.0:DF.0...o.|
00001300: 81 4E 53 B2 32 A4 C3 28 4E 4E 24 29 00 1F 1B 71 |.NS.2..(NN$)...q|
00001310: 09 4E 24 B2 CA 28 4E 4E 24 2C 4E 53 2C 31 29 00 |.N$..(NN$,NS,1).|
00001320: 2E 1B 74 09 4E 55 24 B2 4E 55 24 AA 4E 24 00 3F |..t.NU$.NU$.N$.?|
00001330: 1B 79 09 8B 4E 24 B2 22 2E 22 A7 44 46 B2 31 00 |.y..N$.".".DF.1.|
00001340: 5B 1B 7E 09 8B 44 46 B2 31 AF 4E 24 B3 B1 22 2E |[.~..DF.1.N$..".|
00001350: 22 A7 44 50 25 B2 44 50 25 AA 31 00 71 1B 83 09 |".DP%.DP%.1.q...|
00001360: 8B 44 46 B2 31 AF 44 50 25 B1 B2 32 A7 32 34 34 |.DF.1.DP%..2.244|
00001370: 35 00 79 1B 88 09 82 4E 53 00 92 1B 8D 09 8B 44 |5.y....NS......D|
00001380: 50 25 B2 30 A7 4E 55 24 B2 4E 55 24 AA 22 2E 30 |P%.0.NU$.NU$.".0|
00001390: 30 22 00 A9 1B 92 09 8B 44 50 25 B2 31 A7 4E 55 |0"......DP%.1.NU|
000013A0: 24 B2 4E 55 24 AA 22 30 22 00 AF 1B 97 09 8E 00 |$.NU$."0".......|
000013B0: B5 1B C4 09 8F 00 D7 1B C5 09 8F 20 53 45 41 52 |........... SEAR|
000013C0: 43 48 20 54 48 45 20 46 49 4C 45 53 20 42 59 20 |CH THE FILES BY |
000013D0: 44 45 54 41 49 4C 53 00 DD 1B C6 09 8F 00 F0 1B |DETAILS.........|
000013E0: CE 09 81 45 4E B2 54 54 A4 54 52 28 30 2C 30 29 |...EN.TT.TR(0,0)|
000013F0: 00 0F 1C D8 09 8B 54 52 24 28 45 4E 29 B2 44 4C |......TR$(EN).DL|
00001400: 24 AF 54 52 28 45 4E 2C 30 29 B3 B1 30 A7 8E 00 |$.TR(EN,0)..0...|
00001410: 1E 1C E2 09 82 45 4E 3A 45 4E B2 4F 3A 8E 00 24 |.....EN:EN.O:..$|
00001420: 1C 28 0A 8F 00 44 1C 29 0A 8F 20 50 41 43 4B 20 |.(...D.).. PACK |
00001430: 54 48 45 20 54 52 41 4E 53 41 43 54 49 4F 4E 20 |THE TRANSACTION |
00001440: 46 49 4C 45 00 4A 1C 2A 0A 8F 00 66 1C 2D 0A 8D |FILE.J.*...f.-..|
00001450: 31 33 30 30 3A 99 22 D0 41 43 4B 49 4E 47 20 46 |1300:.".ACKING F|
00001460: 49 4C 45 53 22 3B 00 78 1C 32 0A 81 50 50 B2 31 |ILES";.x.2..PP.1|
00001470: A4 54 52 28 30 2C 30 29 00 8D 1C 3C 0A 8B 54 52 |.TR(0,0)...<..TR|
00001480: 28 50 50 2C 30 29 B2 30 A7 32 36 34 30 00 97 1C |(PP,0).0.2640...|
00001490: 46 0A 82 50 50 3A 8E 00 A9 1C 50 0A 43 54 B2 50 |F..PP:....P.CT.P|
000014A0: 50 3A 43 46 B2 50 50 AA 31 00 C1 1C 5A 0A 8B 54 |P:CF.PP.1...Z..T|
000014B0: 52 28 43 46 2C 30 29 B2 30 A7 43 46 B2 43 46 AA |R(CF,0).0.CF.CF.|
000014C0: 31 00 E0 1C 5F 0A 8B 43 46 B1 54 52 28 30 2C 30 |1..._..CF.TR(0,0|
000014D0: 29 A7 54 52 28 30 2C 30 29 B2 43 54 AB 31 3A 8E |).TR(0,0).CT.1:.|
000014E0: 00 F5 1C 61 0A 8B 54 52 28 43 46 2C 30 29 B2 30 |...a..TR(CF,0).0|
000014F0: A7 32 36 35 30 00 3F 1D 64 0A 54 52 24 28 43 54 |.2650.?.d.TR$(CT|
00001500: 29 B2 54 52 24 28 43 46 29 3A 54 52 28 43 54 2C |).TR$(CF):TR(CT,|
00001510: 30 29 B2 54 52 28 43 46 2C 30 29 3A 54 52 28 43 |0).TR(CF,0):TR(C|
00001520: 54 2C 31 29 B2 54 52 28 43 46 2C 31 29 3A 54 52 |T,1).TR(CF,1):TR|
00001530: 28 43 54 2C 32 29 B2 54 52 28 43 46 2C 32 29 00 |(CT,2).TR(CF,2).|
00001540: 59 1D 69 0A 43 54 B2 43 54 AA 31 3A 43 46 B2 43 |Y.i.CT.CT.1:CF.C|
00001550: 46 AA 31 3A 89 32 36 35 30 00 5F 1D 8C 0A 8F 00 |F.1:.2650._.....|
00001560: 65 1D 8D 0A 8F 00 6B 1D 8E 0A 8F 00 83 1D 91 0A |e.....k.........|
00001570: 99 22 91 91 C9 4E 56 41 4C 49 44 20 41 4D 4F 55 |."...NVALID AMOU|
00001580: 4E 54 22 00 89 1D 96 0A 8E 00 8F 1D B8 0B 8F 00 |NT".............|
00001590: AC 1D B9 0B 8F 20 53 41 56 45 20 41 4E 44 20 4C |..... SAVE AND L|
000015A0: 4F 41 44 20 54 48 45 20 44 41 54 41 00 B2 1D BA |OAD THE DATA....|
000015B0: 0B 8F 00 BB 1D BD 0B 99 22 93 22 00 EF 1D C2 0B |........".".....|
000015C0: 4B 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 CC 4F |K$."":.1300:.".O|
000015D0: 41 44 20 4F 52 20 53 41 56 45 20 44 41 54 41 20 |AD OR SAVE DATA |
000015E0: 22 3B 4B 24 3A 8B 4B 24 B2 22 22 A7 32 30 30 00 |";K$:.K$."".200.|
000015F0: 00 1E CC 0B 8B 4B 24 B2 22 4C 22 A7 33 31 30 30 |.....K$."L".3100|
00001600: 00 11 1E D6 0B 8B 4B 24 B2 22 53 22 A7 33 35 30 |......K$."S".350|
00001610: 30 00 1B 1E DB 0B 89 33 30 31 30 00 48 1E EA 0B |0......3010.H...|
00001620: 4B 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 D5 53 |K$."":.1300:.".S|
00001630: 45 20 54 41 50 45 20 4F 52 20 44 49 53 43 28 54 |E TAPE OR DISC(T|
00001640: 2F 44 29 20 22 3B 4B 24 00 58 1E EF 0B 8B 4B 24 |/D) ";K$.X....K$|
00001650: B2 22 22 A7 33 30 30 30 00 6E 1E F4 0B 44 56 B2 |."".3000.n...DV.|
00001660: 31 3A 8B 4B 24 B2 22 44 22 A7 33 30 37 35 00 74 |1:.K$."D".3075.t|
00001670: 1E FE 0B 8E 00 97 1E 03 0C 97 32 35 31 20 2C 38 |..........251 ,8|
00001680: 3A 9E 34 39 31 36 34 3A 8B C2 28 32 35 31 29 B3 |:.49164:..(251).|
00001690: B1 30 A7 33 30 35 30 00 A2 1E 08 0C 44 56 B2 38 |.0.3050.....DV.8|
000016A0: 3A 8E 00 A8 1E 1C 0C 8F 00 C2 1E 1D 0C 8F 20 4C |:............. L|
000016B0: 4F 41 44 20 54 48 45 20 44 41 54 41 20 46 49 4C |OAD THE DATA FIL|
000016C0: 45 53 00 C8 1E 1E 0C 8F 00 D2 1E 21 0C 8D 33 30 |ES.........!..30|
000016D0: 35 30 00 FA 1E 26 0C 50 57 24 B2 22 22 3A 8D 31 |50...&.PW$."":.1|
000016E0: 33 30 30 3A 85 22 C5 4E 54 45 52 20 50 41 53 53 |300:.".NTER PASS|
000016F0: 57 4F 52 44 20 22 3B 50 57 24 00 09 1F 2B 0C 8B |WORD ";PW$...+..|
00001700: 44 56 B2 31 A7 33 32 35 30 00 22 1F 30 0C 9F 31 |DV.1.3250.".0..1|
00001710: 2C 38 2C 32 2C 22 30 3A 44 46 49 4C 45 2C 53 2C |,8,2,"0:DFILE,S,|
00001720: 52 22 00 2C 1F 35 0C 8D 33 37 30 30 00 37 1F 36 |R".,.5..3700.7.6|
00001730: 0C 84 31 2C 50 50 24 00 4A 1F 37 0C 8B 50 50 24 |..1,PP$.J.7..PP$|
00001740: B3 B1 50 57 24 A7 33 33 30 30 00 64 1F 3A 0C 84 |..PW$.3300.d.:..|
00001750: 31 2C 54 52 28 30 2C 30 29 3A 84 31 2C 54 52 28 |1,TR(0,0):.1,TR(|
00001760: 30 2C 31 29 00 78 1F 3F 0C 8B 54 52 28 30 2C 30 |0,1).x.?..TR(0,0|
00001770: 29 B2 30 A7 33 31 38 30 00 89 1F 44 0C 81 41 B2 |).0.3180...D..A.|
00001780: 30 A4 54 52 28 30 2C 30 29 00 A2 1F 4E 0C 81 42 |0.TR(0,0)...N..B|
00001790: B2 30 A4 32 3A 84 31 2C 54 52 28 41 2C 42 29 3A |.0.2:.1,TR(A,B):|
000017A0: 82 42 00 A9 1F 58 0C 82 41 00 C7 1F 62 0C 81 41 |.B...X..A...b..A|
000017B0: B2 31 A4 54 52 28 30 2C 30 29 3A 84 31 2C 54 52 |.1.TR(0,0):.1,TR|
000017C0: 24 28 41 29 3A 82 41 00 E2 1F 6C 0C 84 31 2C 42 |$(A):.A...l..1,B|
000017D0: 44 28 30 29 3A 8B 42 44 28 30 29 B2 30 A7 33 32 |D(0):.BD(0).0.32|
000017E0: 30 35 00 FD 1F 76 0C 81 41 B2 31 A4 42 44 28 30 |05...v..A.1.BD(0|
000017F0: 29 3A 84 31 2C 42 44 28 41 29 3A 82 41 00 18 20 |):.1,BD(A):.A.. |
00001800: 7B 0C 81 41 B2 31 A4 42 44 28 30 29 3A 84 31 2C |{..A.1.BD(0):.1,|
00001810: 54 42 28 41 29 3A 82 41 00 34 20 80 0C 81 41 B2 |TB(A):.A.4 ...A.|
00001820: 31 A4 42 44 28 30 29 3A 84 31 2C 42 44 24 28 41 |1.BD(0):.1,BD$(A|
00001830: 29 3A 82 41 00 3E 20 85 0C 84 31 2C 42 4C 00 4A |):.A.> ...1,BL.J|
00001840: 20 8A 0C A0 31 3A 89 32 30 30 00 63 20 B2 0C 9F | ...1:.200.c ...|
00001850: 31 2C 31 2C 30 2C 22 44 46 49 4C 45 22 3A 89 33 |1,1,0,"DFILE":.3|
00001860: 31 32 35 00 79 20 E4 0C 97 42 52 2C 30 3A 97 42 |125.y ...BR,0:.B|
00001870: 4B 2C 32 3A 99 22 93 05 22 00 A3 20 E9 0C 8D 31 |K,2:."..".. ...1|
00001880: 33 35 30 3A 99 22 91 D0 41 53 53 57 4F 52 44 20 |350:."..ASSWORD |
00001890: 49 4E 43 4F 52 52 45 43 54 22 3A A0 31 3A 89 33 |INCORRECT":.1:.3|
000018A0: 30 31 30 00 A9 20 AC 0D 8F 00 BD 20 AD 0D 8F 20 |010.. ..... ... |
000018B0: 53 41 56 45 20 54 48 45 20 44 41 54 41 00 C3 20 |SAVE THE DATA.. |
000018C0: AE 0D 8F 00 CD 20 B1 0D 8D 33 30 35 30 00 F5 20 |..... ...3050.. |
000018D0: B6 0D 50 57 24 B2 22 22 3A 8D 31 33 30 30 3A 85 |..PW$."":.1300:.|
000018E0: 22 C5 4E 54 45 52 20 50 41 53 53 57 4F 52 44 20 |".NTER PASSWORD |
000018F0: 22 3B 50 57 24 00 04 21 BB 0D 8B 44 56 B2 31 A7 |";PW$..!...DV.1.|
00001900: 33 36 35 30 00 1E 21 C0 0D 9F 31 2C 38 2C 32 2C |3650..!...1,8,2,|
00001910: 22 40 30 3A 44 46 49 4C 45 2C 53 2C 57 22 00 28 |"@0:DFILE,S,W".(|
00001920: 21 C5 0D 8D 33 37 30 30 00 33 21 C6 0D 98 31 2C |!...3700.3!...1,|
00001930: 50 57 24 00 4D 21 CA 0D 98 31 2C 54 52 28 30 2C |PW$.M!...1,TR(0,|
00001940: 30 29 3A 98 31 2C 54 52 28 30 2C 31 29 00 61 21 |0):.1,TR(0,1).a!|
00001950: CF 0D 8B 54 52 28 30 2C 30 29 B2 30 A7 33 35 38 |...TR(0,0).0.358|
00001960: 30 00 72 21 D4 0D 81 41 B2 30 A4 54 52 28 30 2C |0.r!...A.0.TR(0,|
00001970: 30 29 00 8B 21 DE 0D 81 42 B2 30 A4 32 3A 98 31 |0)..!...B.0.2:.1|
00001980: 2C 54 52 28 41 2C 42 29 3A 82 42 00 92 21 E8 0D |,TR(A,B):.B..!..|
00001990: 82 41 00 B4 21 F2 0D 81 41 B2 31 A4 54 52 28 30 |.A..!...A.1.TR(0|
000019A0: 2C 30 29 3A 98 31 2C 54 52 24 28 41 29 3B 43 52 |,0):.1,TR$(A);CR|
000019B0: 24 3A 82 41 00 CF 21 FC 0D 98 31 2C 42 44 28 30 |$:.A..!...1,BD(0|
000019C0: 29 3A 8B 42 44 28 30 29 B2 30 A7 33 36 30 35 00 |):.BD(0).0.3605.|
000019D0: EA 21 06 0E 81 41 B2 31 A4 42 44 28 30 29 3A 98 |.!...A.1.BD(0):.|
000019E0: 31 2C 42 44 28 41 29 3A 82 41 00 05 22 0B 0E 81 |1,BD(A):.A.."...|
000019F0: 41 B2 31 A4 42 44 28 30 29 3A 98 31 2C 54 42 28 |A.1.BD(0):.1,TB(|
00001A00: 41 29 3A 82 41 00 25 22 10 0E 81 41 B2 31 A4 42 |A):.A.%"...A.1.B|
00001A10: 44 28 30 29 3A 98 31 2C 42 44 24 28 41 29 3B 43 |D(0):.1,BD$(A);C|
00001A20: 52 24 3A 82 41 00 2F 22 15 0E 98 31 2C 42 4C 00 |R$:.A./"...1,BL.|
00001A30: 3B 22 1A 0E A0 31 3A 89 32 30 30 00 54 22 42 0E |;"...1:.200.T"B.|
00001A40: 9F 31 2C 31 2C 31 2C 22 44 46 49 4C 45 22 3A 89 |.1,1,1,"DFILE":.|
00001A50: 33 35 32 35 00 5A 22 74 0E 8F 00 60 22 75 0E 8F |3525.Z"t...`"u..|
00001A60: 00 66 22 76 0E 8F 00 7C 22 79 0E 97 42 52 2C 33 |.f"v...|"y..BR,3|
00001A70: 3A 97 42 4B 2C 33 3A 99 22 93 9F 22 00 82 22 7E |:.BK,3:."..".."~|
00001A80: 0E 8E 00 88 22 D8 0E 8F 00 8E 22 D9 0E 8F 00 94 |....".....".....|
00001A90: 22 DA 0E 8F 00 B4 22 DD 0E 8D 31 33 30 30 3A 99 |"....."...1300:.|
00001AA0: 22 C5 4E 54 45 52 20 D3 54 41 52 54 20 C4 41 54 |".NTER .TART .AT|
00001AB0: 45 20 22 3B 00 BE 22 E2 0E 8D 31 30 30 30 00 CC |E ";.."...1000..|
00001AC0: 22 E7 0E 8B 44 B2 30 A7 33 38 30 35 00 D8 22 EC |"...D.0.3805..".|
00001AD0: 0E 53 44 B2 44 54 3A 8E 00 DE 22 0A 0F 8F 00 E4 |.SD.DT:...".....|
00001AE0: 22 0B 0F 8F 00 EA 22 0C 0F 8F 00 0E 23 0F 0F 8D |".....".....#...|
00001AF0: 31 33 30 30 3A 99 22 C5 4E 54 45 52 20 C5 4E 44 |1300:.".NTER .ND|
00001B00: 20 C4 41 54 45 20 22 3B 3A 8D 31 30 30 30 00 1C | .ATE ";:.1000..|
00001B10: 23 14 0F 8B 44 B2 30 A7 33 38 35 35 00 28 23 19 |#...D.0.3855.(#.|
00001B20: 0F 45 44 B2 44 54 3A 8E 00 2E 23 A0 0F 8F 00 46 |.ED.DT:...#....F|
00001B30: 23 A1 0F 8F 20 45 4E 54 45 52 20 4E 45 57 20 42 |#... ENTER NEW B|
00001B40: 55 44 47 45 54 53 00 4C 23 A2 0F 8F 00 67 23 A5 |UDGETS.L#....g#.|
00001B50: 0F 99 22 93 22 3B 3A 8D 32 31 30 30 3A 4E 54 B2 |..".";:.2100:NT.|
00001B60: 42 44 28 30 29 AA 31 00 7A 23 A7 0F 8B 42 44 28 |BD(0).1.z#...BD(|
00001B70: 30 29 B2 31 36 A7 34 30 38 35 00 A2 23 AA 0F 54 |0).16.4085..#..T|
00001B80: 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 CE 45 57 |$."":.1300:.".EW|
00001B90: 20 C2 55 44 47 45 54 20 D4 49 54 4C 45 20 22 3B | .UDGET .ITLE ";|
00001BA0: 54 24 00 B1 23 AC 0F 8B 54 24 B2 22 22 A7 33 30 |T$..#...T$."".30|
00001BB0: 30 00 CB 23 AE 0F 8B C3 28 54 24 29 B1 31 36 A7 |0..#....(T$).16.|
00001BC0: 54 24 B2 C8 28 54 24 2C 31 36 29 00 E8 23 AF 0F |T$..(T$,16)..#..|
00001BD0: 8D 32 32 30 30 3A 8B 42 43 B3 B1 30 A7 8D 31 33 |.2200:.BC..0..13|
00001BE0: 30 30 3A 89 34 30 36 30 00 FA 23 B0 0F 8D 35 33 |00:.4060..#...53|
00001BF0: 30 30 3A 99 A3 36 29 3B 54 24 00 1E 24 B9 0F 8D |00:..6);T$..$...|
00001C00: 31 33 30 30 3A 54 41 24 B2 22 22 3A 85 22 CE 45 |1300:TA$."":.".E|
00001C10: 57 20 C1 4D 4F 55 4E 54 20 22 3B 54 41 24 00 51 |W .MOUNT ";TA$.Q|
00001C20: 24 BB 0F 54 41 B2 C5 28 54 41 24 29 3A 8B 54 41 |$..TA..(TA$):.TA|
00001C30: B1 39 39 39 39 2E 39 39 39 B0 54 41 B3 AB 39 39 |.9999.999.TA..99|
00001C40: 39 39 2E 39 39 A7 8D 32 37 30 30 3A 89 34 30 32 |99.99..2700:.402|
00001C50: 35 00 6E 24 BE 0F 8D 35 33 30 30 3A 99 A3 32 34 |5.n$...5300:..24|
00001C60: 29 3B 3A 54 4E B2 54 41 3A 8D 32 33 30 30 00 95 |);:TN.TA:.2300..|
00001C70: 24 C3 0F 8D 31 33 35 30 3A 99 22 C9 53 20 D4 48 |$...1350:.".S .H|
00001C80: 49 53 20 4F 2E 4B 2E 28 59 2F 4E 29 20 22 3B 3A |IS O.K.(Y/N) ";:|
00001C90: 8D 31 35 30 30 00 BB 24 C8 0F 8B 59 4E B3 30 A7 |.1500..$...YN.0.|
00001CA0: 8D 35 33 30 30 3A 8D 31 33 31 30 3A 8D 35 33 30 |.5300:.1310:.530|
00001CB0: 30 3A 99 4E 54 3A 89 34 30 31 30 00 F1 24 CD 0F |0:.NT:.4010..$..|
00001CC0: 4E 43 B2 42 44 28 30 29 AA 31 3A 42 44 24 28 4E |NC.BD(0).1:BD$(N|
00001CD0: 43 29 B2 54 24 3A 42 44 28 4E 43 29 B2 54 41 3A |C).T$:BD(NC).TA:|
00001CE0: 42 44 28 30 29 B2 4E 43 3A 54 42 28 4E 43 29 B2 |BD(0).NC:TB(NC).|
00001CF0: 30 00 03 25 D2 0F 4E 54 B2 4E 54 AA 31 3A 89 34 |0..%..NT.NT.1:.4|
00001D00: 30 30 37 00 2B 25 DC 0F 99 22 91 D4 48 41 54 20 |007.+%..."..HAT |
00001D10: D4 49 54 4C 45 20 C1 4C 52 45 41 44 59 20 C5 58 |.ITLE .LREADY .X|
00001D20: 49 53 54 53 22 3A 89 34 30 31 30 00 4C 25 F5 0F |ISTS":.4010.L%..|
00001D30: 8D 31 33 30 30 3A 99 22 91 C1 4C 4C 20 C3 4F 44 |.1300:."..LL .OD|
00001D40: 45 53 20 C1 53 53 49 47 4E 45 44 22 00 6B 25 FA |ES .SSIGNED".k%.|
00001D50: 0F 99 22 D0 52 45 53 53 20 41 20 CB 45 59 20 54 |..".RESS A .EY T|
00001D60: 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 7F 25 FF 0F |O .ONTINUE"..%..|
00001D70: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 30 39 35 00 |.K$:.K$."".4095.|
00001D80: 88 25 00 10 89 33 30 30 00 8E 25 04 10 8F 00 A7 |.%...300..%.....|
00001D90: 25 05 10 8F 20 55 50 44 41 54 45 20 54 48 45 20 |%... UPDATE THE |
00001DA0: 42 55 44 47 45 54 53 00 AD 25 06 10 8F 00 C5 25 |BUDGETS..%.....%|
00001DB0: 0E 10 99 22 93 22 3B 3A 8B 42 44 28 30 29 B2 30 |...".";:.BD(0).0|
00001DC0: A7 34 31 38 30 00 CF 25 13 10 8D 32 31 30 30 00 |.4180..%...2100.|
00001DD0: D9 25 18 10 8D 31 33 30 30 00 F7 25 1D 10 54 24 |.%...1300..%..T$|
00001DE0: B2 22 22 3A 85 22 C2 55 44 47 45 54 20 D4 49 54 |."":.".UDGET .IT|
00001DF0: 4C 45 20 22 3B 54 24 00 06 26 1F 10 8B 54 24 B2 |LE ";T$..&...T$.|
00001E00: 22 22 A7 33 30 30 00 10 26 22 10 8D 32 32 30 30 |"".300..&"..2200|
00001E10: 00 1F 26 27 10 8B 42 43 B2 30 A7 34 31 37 30 00 |..&'..BC.0.4170.|
00001E20: 46 26 36 10 8D 31 33 30 30 3A 85 22 CE 45 57 20 |F&6..1300:.".EW |
00001E30: C1 4D 4F 55 4E 54 20 22 3B 54 41 24 3A 4E 54 B2 |.MOUNT ";TA$:NT.|
00001E40: C5 28 54 41 24 29 00 72 26 38 10 8B 4E 54 B1 39 |.(TA$).r&8..NT.9|
00001E50: 39 39 39 39 2E 39 39 39 B0 4E 54 B3 AB 39 39 39 |9999.999.NT..999|
00001E60: 39 39 2E 39 39 39 A7 8D 32 37 30 30 3A 89 34 31 |99.999..2700:.41|
00001E70: 35 30 00 80 26 3B 10 42 44 28 42 43 29 B2 4E 54 |50..&;.BD(BC).NT|
00001E80: 00 97 26 40 10 4E 54 B2 42 43 3A 8D 35 33 30 30 |..&@.NT.BC:.5300|
00001E90: 3A 99 A3 32 34 29 3B 00 B7 26 42 10 54 4E B2 42 |:..24);..&B.TN.B|
00001EA0: 44 28 42 43 29 3A 8D 32 33 30 30 3A 8D 31 33 35 |D(BC):.2300:.135|
00001EB0: 30 3A 89 34 31 32 30 00 DD 26 4A 10 8D 31 33 30 |0:.4120..&J..130|
00001EC0: 30 3A 99 22 91 C8 45 41 44 49 4E 47 20 4E 4F 54 |0:."..EADING NOT|
00001ED0: 20 C6 4F 55 4E 44 22 3A 89 34 31 32 30 00 E7 26 | .OUND":.4120..&|
00001EE0: 4F 10 89 34 31 32 35 00 06 27 54 10 8D 31 33 30 |O..4125..'T..130|
00001EF0: 30 3A 99 22 91 CE 4F 20 42 55 44 47 45 54 53 20 |0:."..O BUDGETS |
00001F00: 45 58 49 53 54 22 00 26 27 59 10 99 22 D0 52 45 |EXIST".&'Y..".RE|
00001F10: 53 53 20 41 20 4B 45 59 20 54 4F 20 C3 4F 4E 54 |SS A KEY TO .ONT|
00001F20: 49 4E 55 45 22 3B 00 35 27 5E 10 8D 32 30 35 30 |INUE";.5'^..2050|
00001F30: 3A 89 33 30 30 00 3B 27 68 10 8F 00 5E 27 69 10 |:.300.;'h...^'i.|
00001F40: 8F 20 4F 55 54 50 55 54 20 42 55 44 47 45 54 53 |. OUTPUT BUDGETS|
00001F50: 20 41 4E 44 20 56 41 52 49 41 4E 43 45 53 00 64 | AND VARIANCES.d|
00001F60: 27 6A 10 8F 00 7B 27 6B 10 99 22 93 22 3A 8B 42 |'j...{'k..".":.B|
00001F70: 44 28 30 29 B2 30 A7 34 32 39 30 00 91 27 6D 10 |D(0).0.4290..'m.|
00001F80: 8D 39 30 30 30 3A 8B 50 52 B1 30 A7 8D 39 34 30 |.9000:.PR.0..940|
00001F90: 30 00 9B 27 70 10 8D 34 32 38 30 00 AB 27 72 10 |0..'p..4280..'r.|
00001FA0: 81 42 43 B2 31 A4 42 44 28 30 29 00 C4 27 81 10 |.BC.1.BD(0)..'..|
00001FB0: 99 42 44 24 28 42 43 29 3A 99 22 C3 4F 44 45 22 |.BD$(BC):.".ODE"|
00001FC0: 3B 42 43 3B 00 E4 27 86 10 99 A3 31 32 29 3B 3A |;BC;..'....12);:|
00001FD0: 54 4E B2 42 44 28 42 43 29 3A 4E 4C B2 30 3A 8D |TN.BD(BC):NL.0:.|
00001FE0: 32 33 30 30 00 14 28 8B 10 99 A3 32 31 29 3B 3A |2300..(....21);:|
00001FF0: 54 4E B2 B5 28 28 54 42 28 42 43 29 AC 31 30 30 |TN..((TB(BC).100|
00002000: 29 AA 2E 35 29 AD 31 30 30 3A 4E 4C B2 30 3A 8D |)..5).100:NL.0:.|
00002010: 32 33 30 30 00 53 28 90 10 99 A3 33 30 29 3B 3A |2300.S(....30);:|
00002020: 54 4E B2 B5 28 28 42 44 28 42 43 29 AC 31 30 30 |TN..((BD(BC).100|
00002030: 29 AB 28 54 42 28 42 43 29 AC 31 30 30 29 AA 2E |).(TB(BC).100)..|
00002040: 35 29 AD 31 30 30 3A 4E 4C B2 31 3A 8D 32 33 30 |5).100:NL.1:.230|
00002050: 30 3A 99 00 63 28 95 10 8B 50 52 B1 30 A7 8D 39 |0:..c(...PR.0..9|
00002060: 34 35 30 00 77 28 9A 10 4C B2 4C AA 31 3A 8B 4C |450.w(..L.L.1:.L|
00002070: B2 36 A7 34 32 37 30 00 7F 28 9F 10 82 42 43 00 |.6.4270..(...BC.|
00002080: 94 28 A4 10 8D 31 36 30 30 3A 8D 39 32 30 30 3A |.(...1600:.9200:|
00002090: 89 33 30 30 00 AA 28 AE 10 8D 31 36 30 30 3A 8D |.300..(...1600:.|
000020A0: 34 32 38 30 3A 89 34 32 35 35 00 E1 28 B8 10 99 |4280:.4255..(...|
000020B0: 22 93 22 3B A3 31 34 29 3B 22 C2 55 44 47 45 54 |".";.14);".UDGET|
000020C0: 22 3B A3 32 33 29 3B 22 C1 43 54 55 41 4C 22 3B |";.23);".CTUAL";|
000020D0: A3 33 32 29 3B 22 D6 41 52 49 41 4E 43 45 22 3A |.32);".ARIANCE":|
000020E0: 99 00 EB 28 BD 10 4C B2 31 3A 8E 00 13 29 C2 10 |...(..L.1:...)..|
000020F0: 8D 31 33 30 30 3A 99 22 91 CE 4F 20 42 55 44 47 |.1300:."..O BUDG|
00002100: 45 54 53 20 41 53 53 49 47 4E 45 44 22 3A 89 34 |ETS ASSIGNED":.4|
00002110: 32 36 30 00 19 29 CC 10 8F 00 2F 29 CD 10 8F 20 |260..)..../)... |
00002120: 42 55 44 47 45 54 20 41 4E 41 4C 59 53 49 53 00 |BUDGET ANALYSIS.|
00002130: 35 29 CE 10 8F 00 4C 29 D1 10 99 22 93 22 3A 8B |5)....L)...".":.|
00002140: 42 44 28 30 29 B2 30 A7 34 32 39 30 00 84 29 D6 |BD(0).0.4290..).|
00002150: 10 54 24 B2 22 22 3A 8D 31 33 30 30 3A 99 22 91 |.T$."":.1300:.".|
00002160: C5 4E 54 45 52 20 C2 55 44 47 45 54 20 D4 49 54 |.NTER .UDGET .IT|
00002170: 4C 45 20 46 4F 52 20 C1 4E 41 4C 59 53 49 53 22 |LE FOR .NALYSIS"|
00002180: 3A 85 54 24 00 93 29 D8 10 8B 54 24 B2 22 22 A7 |:.T$..)...T$."".|
00002190: 33 30 30 00 A8 29 D9 10 8D 32 32 30 30 3A 8B 42 |300..)...2200:.B|
000021A0: 43 B2 30 A7 34 33 39 30 00 BE 29 DA 10 8D 31 33 |C.0.4390..)...13|
000021B0: 35 30 3A 8D 33 38 30 30 3A 8D 33 38 35 30 00 CE |50:.3800:.3850..|
000021C0: 29 DD 10 8D 31 33 35 30 3A 8D 39 30 30 30 00 E9 |)...1350:.9000..|
000021D0: 29 E0 10 42 41 B2 30 3A 8D 34 33 38 30 3A 8B 50 |)..BA.0:.4380:.P|
000021E0: 52 B1 30 A7 8D 39 35 30 30 00 FB 29 EA 10 81 54 |R.0..9500..)...T|
000021F0: 54 B2 31 A4 54 52 28 30 2C 30 29 00 20 2A EF 10 |T.1.TR(0,0). *..|
00002200: 8B 54 52 28 54 54 2C 31 29 B2 42 43 B0 54 52 28 |.TR(TT,1).BC.TR(|
00002210: 54 54 2C 31 29 B2 42 43 AA 31 36 A7 34 33 34 30 |TT,1).BC.16.4340|
00002220: 00 2A 2A F0 10 89 34 33 36 35 00 40 2A F4 10 44 |.**...4365.@*..D|
00002230: 54 B2 54 52 28 54 54 2C 30 29 3A 8D 31 32 30 30 |T.TR(TT,0):.1200|
00002240: 00 58 2A F5 10 8B 44 54 B1 B2 53 44 AF 44 54 B3 |.X*...DT..SD.DT.|
00002250: B2 45 44 A7 34 33 34 35 00 62 2A F6 10 89 34 33 |.ED.4345.b*...43|
00002260: 36 35 00 88 2A F9 10 99 44 3B 22 9D 22 3B 4D 24 |65..*...D;".";M$|
00002270: 28 4D 29 3B 59 3B A3 31 30 29 3B 54 52 24 28 54 |(M);Y;.10);TR$(T|
00002280: 54 29 3B A3 32 31 29 3B 00 AB 2A FE 10 54 4E B2 |T);.21);..*..TN.|
00002290: AB 54 52 28 54 54 2C 32 29 3A 4E 4C B2 30 3A 8D |.TR(TT,2):NL.0:.|
000022A0: 32 33 30 30 3A 99 A3 33 30 29 3B 00 DF 2A 03 11 |2300:..30);..*..|
000022B0: 42 41 B2 B5 28 28 42 41 AC 31 30 30 29 AA 28 54 |BA..((BA.100).(T|
000022C0: 4E AC 31 30 30 29 AA 2E 35 29 AD 31 30 30 3A 54 |N.100)..5).100:T|
000022D0: 4E B2 42 41 3A 4E 4C B2 31 3A 8D 32 33 30 30 00 |N.BA:NL.1:.2300.|
000022E0: EF 2A 04 11 8B 50 52 B1 30 A7 8D 39 35 35 30 00 |.*...PR.0..9550.|
000022F0: 04 2B 08 11 4C B2 4C AA 31 3A 8B 4C B2 31 38 A7 |.+..L.L.1:.L.18.|
00002300: 34 33 37 35 00 0C 2B 0D 11 82 54 54 00 21 2B 12 |4375..+...TT.!+.|
00002310: 11 8D 31 36 30 30 3A 8D 39 32 30 30 3A 89 33 30 |..1600:.9200:.30|
00002320: 30 00 37 2B 17 11 8D 31 36 30 30 3A 8D 34 33 38 |0.7+...1600:.438|
00002330: 30 3A 89 34 33 36 35 00 56 2B 1C 11 99 22 93 22 |0:.4365.V+..."."|
00002340: 3B 42 44 24 28 42 43 29 3B 22 20 C1 4E 41 4C 59 |;BD$(BC);" .NALY|
00002350: 53 49 53 22 3A 99 00 8A 2B 1E 11 99 22 20 C4 41 |SIS":...+..." .A|
00002360: 54 45 22 3B A3 31 30 29 3B 22 C4 45 54 41 49 4C |TE";.10);".ETAIL|
00002370: 53 22 3B A3 32 35 29 3B 22 5C 2E 50 22 3B A3 33 |S";.25);"\.P";.3|
00002380: 32 29 3B 22 C2 41 4C 22 3A 99 00 94 2B 21 11 4C |2);".AL":...+!.L|
00002390: B2 31 3A 8E 00 BB 2B 26 11 8D 31 33 30 30 3A 99 |.1:...+&..1300:.|
000023A0: 22 91 91 C8 45 41 44 49 4E 47 20 4E 4F 54 20 C6 |"...EADING NOT .|
000023B0: 4F 55 4E 44 22 3A 89 34 33 31 30 00 C1 2B 94 11 |OUND":.4310..+..|
000023C0: 8F 00 DE 2B 95 11 8F 20 44 45 4C 45 54 45 20 42 |...+... DELETE B|
000023D0: 55 44 47 45 54 20 48 45 41 44 49 4E 47 53 00 E4 |UDGET HEADINGS..|
000023E0: 2B 96 11 8F 00 FC 2B 9E 11 99 22 93 22 3B 3A 8B |+.....+...".";:.|
000023F0: 42 44 28 30 29 B2 30 A7 34 32 39 30 00 06 2C A8 |BD(0).0.4290..,.|
00002400: 11 8D 32 31 30 30 00 2C 2C AD 11 54 24 B2 22 22 |..2100.,,..T$.""|
00002410: 3A 8D 31 33 30 30 3A 99 22 91 C8 45 41 44 49 4E |:.1300:."..EADIN|
00002420: 47 20 54 4F 20 C4 45 4C 45 54 45 22 00 4D 2C B2 |G TO .ELETE".M,.|
00002430: 11 85 22 28 54 59 50 45 20 27 41 4C 4C 27 20 54 |.."(TYPE 'ALL' T|
00002440: 4F 20 43 4C 45 41 52 29 20 22 3B 54 24 00 5C 2C |O CLEAR) ";T$.\,|
00002450: B7 11 8B 54 24 B2 22 22 A7 33 30 30 00 6F 2C BC |...T$."".300.o,.|
00002460: 11 8B 54 24 B2 22 41 4C 4C 22 A7 34 36 30 30 00 |..T$."ALL".4600.|
00002470: 84 2C C1 11 8D 32 32 30 30 3A 8B 42 43 B2 30 A7 |.,...2200:.BC.0.|
00002480: 34 35 38 30 00 B1 2C C6 11 8D 31 33 35 30 3A 99 |4580..,...1350:.|
00002490: 22 C4 45 4C 45 54 45 20 27 22 3B 42 44 24 28 42 |".ELETE '";BD$(B|
000024A0: 43 29 3B 22 27 20 28 59 2F 4E 29 22 3B 3A 85 43 |C);"' (Y/N)";:.C|
000024B0: 24 00 C3 2C D5 11 8B 43 24 B3 B1 22 59 22 A7 34 |$..,...C$.."Y".4|
000024C0: 35 32 35 00 CD 2C DA 11 89 34 36 35 30 00 F4 2C |525..,...4650..,|
000024D0: E4 11 8D 31 33 30 30 3A 99 22 91 91 C8 45 41 44 |...1300:."...EAD|
000024E0: 49 4E 47 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 89 |ING NOT FOUND":.|
000024F0: 34 35 32 35 00 FA 2C F8 11 8F 00 13 2D F9 11 8F |4525..,.....-...|
00002500: 20 43 4C 45 41 52 20 41 4C 4C 20 48 45 41 44 49 | CLEAR ALL HEADI|
00002510: 4E 47 53 00 19 2D FA 11 8F 00 23 2D FD 11 8D 31 |NGS..-....#-...1|
00002520: 33 35 30 00 53 2D 02 12 99 22 91 D9 4F 55 20 41 |350.S-..."..OU A|
00002530: 52 45 20 C1 42 4F 55 54 20 54 4F 20 C4 45 4C 45 |RE .BOUT TO .ELE|
00002540: 54 45 20 41 4C 4C 20 54 48 45 20 C2 55 44 47 45 |TE ALL THE .UDGE|
00002550: 54 53 22 00 74 2D 0C 12 99 22 C1 52 45 20 59 4F |TS".t-...".RE YO|
00002560: 55 20 D3 55 52 45 28 59 2F 4E 29 20 22 3B 3A 8D |U .URE(Y/N) ";:.|
00002570: 31 35 30 30 00 8A 2D 11 12 8B 59 4E B3 30 A7 8D |1500..-...YN.0..|
00002580: 31 33 35 30 3A 89 34 35 32 35 00 B1 2D 16 12 99 |1350:.4525..-...|
00002590: 22 93 22 3A 8D 31 33 35 30 3A 99 22 91 C1 4C 4C |".":.1350:."..LL|
000025A0: 20 42 55 44 47 45 54 53 20 43 4C 45 41 52 45 44 | BUDGETS CLEARED|
000025B0: 22 00 DB 2D 1B 12 81 42 43 B2 31 A4 42 44 28 30 |"..-...BC.1.BD(0|
000025C0: 29 3A 42 44 24 28 42 43 29 B2 22 22 3A 42 44 28 |):BD$(BC)."":BD(|
000025D0: 42 43 29 B2 30 3A 8D 34 37 30 30 00 EB 2D 20 12 |BC).0:.4700..- .|
000025E0: 82 42 43 3A 42 44 28 30 29 B2 30 00 15 2E 25 12 |.BC:BD(0).0...%.|
000025F0: 99 22 50 52 45 53 53 20 41 20 4B 45 59 20 54 4F |."PRESS A KEY TO|
00002600: 20 C3 4F 4E 54 49 4E 55 45 22 3A 8D 32 30 35 30 | .ONTINUE":.2050|
00002610: 3A 89 33 30 30 00 1B 2E 2A 12 8F 00 3D 2E 2B 12 |:.300...*...=.+.|
00002620: 8F 20 44 45 4C 45 54 45 20 54 48 45 20 48 45 41 |. DELETE THE HEA|
00002630: 44 49 4E 47 20 41 4E 44 20 53 4F 52 54 00 4D 2E |DING AND SORT.M.|
00002640: 2C 12 8F 20 54 48 45 20 41 52 52 41 59 00 53 2E |,.. THE ARRAY.S.|
00002650: 2D 12 8F 00 65 2E 2F 12 42 44 28 30 29 B2 42 44 |-...e./.BD(0).BD|
00002660: 28 30 29 AB 31 00 6F 2E 31 12 8D 34 37 30 30 00 |(0).1.o.1..4700.|
00002670: 87 2E 34 12 42 44 24 28 42 43 29 B2 22 22 3A 42 |..4.BD$(BC)."":B|
00002680: 44 28 42 43 29 B2 30 00 97 2E 39 12 8B 42 43 B2 |D(BC).0...9..BC.|
00002690: 31 36 A7 34 35 30 30 00 AE 2E 3E 12 8B 42 44 24 |16.4500...>..BD$|
000026A0: 28 42 43 AA 31 29 B2 22 22 A7 34 35 30 30 00 EC |(BC.1)."".4500..|
000026B0: 2E 43 12 42 44 24 28 42 43 29 B2 42 44 24 28 42 |.C.BD$(BC).BD$(B|
000026C0: 43 AA 31 29 3A 42 44 24 28 42 43 AA 31 29 B2 22 |C.1):BD$(BC.1)."|
000026D0: 22 3A 42 44 28 42 43 29 B2 42 44 28 42 43 AA 31 |":BD(BC).BD(BC.1|
000026E0: 29 3A 42 44 28 42 43 AA 31 29 B2 30 00 0B 2F 45 |):BD(BC.1).0../E|
000026F0: 12 54 42 28 42 43 29 B2 54 42 28 42 43 AA 31 29 |.TB(BC).TB(BC.1)|
00002700: 3A 54 42 28 42 43 AA 31 29 B2 30 00 23 2F 48 12 |:TB(BC.1).0.#/H.|
00002710: 42 43 B2 42 43 AA 31 3A 8D 34 37 35 30 3A 89 34 |BC.BC.1:.4750:.4|
00002720: 36 36 35 00 29 2F 5C 12 8F 00 4A 2F 5D 12 8F 20 |665.)/\...J/].. |
00002730: 53 45 54 20 42 55 44 47 45 54 20 43 4F 44 45 20 |SET BUDGET CODE |
00002740: 54 4F 20 5A 45 52 4F 20 49 4E 00 62 2F 5E 12 8F |TO ZERO IN.b/^..|
00002750: 20 54 52 41 4E 53 41 43 54 49 4F 4E 20 46 49 4C | TRANSACTION FIL|
00002760: 45 53 00 68 2F 5F 12 8F 00 79 2F 61 12 8B 54 52 |ES.h/_...y/a..TR|
00002770: 28 30 2C 30 29 B2 30 A7 8E 00 8B 2F 66 12 81 54 |(0,0).0..../f..T|
00002780: 54 B2 31 A4 54 52 28 30 2C 30 29 00 AD 2F 70 12 |T.1.TR(0,0)../p.|
00002790: 8B 42 43 B2 54 52 28 54 54 2C 31 29 A7 54 52 28 |.BC.TR(TT,1).TR(|
000027A0: 54 54 2C 31 29 B2 30 3A 89 34 37 34 30 00 CD 2F |TT,1).0:.4740../|
000027B0: 7A 12 8B 42 43 B2 54 52 28 54 54 2C 31 29 AB 31 |z..BC.TR(TT,1).1|
000027C0: 36 A7 54 52 28 54 54 2C 31 29 B2 31 36 00 D7 2F |6.TR(TT,1).16../|
000027D0: 84 12 82 54 54 3A 8E 00 DD 2F 8E 12 8F 00 FE 2F |...TT:.../...../|
000027E0: 8F 12 8F 20 43 48 41 4E 47 45 20 42 55 44 47 45 |... CHANGE BUDGE|
000027F0: 54 20 43 4F 44 45 53 20 49 4E 20 54 48 45 00 16 |T CODES IN THE..|
00002800: 30 90 12 8F 20 54 52 41 4E 53 41 43 54 49 4F 4E |0... TRANSACTION|
00002810: 20 46 49 4C 45 53 00 1C 30 91 12 8F 00 2D 30 93 | FILES..0....-0.|
00002820: 12 8B 54 52 28 30 2C 30 29 B2 30 A7 8E 00 3F 30 |..TR(0,0).0...?0|
00002830: 98 12 81 54 54 B2 31 A4 54 52 28 30 2C 30 29 00 |...TT.1.TR(0,0).|
00002840: 64 30 9D 12 8B 42 43 B2 54 52 28 54 54 2C 31 29 |d0...BC.TR(TT,1)|
00002850: A7 54 52 28 54 54 2C 31 29 B2 42 43 AB 31 3A 89 |.TR(TT,1).BC.1:.|
00002860: 34 37 34 30 00 8C 30 A2 12 8B 42 43 B2 54 52 28 |4740..0...BC.TR(|
00002870: 54 54 2C 31 29 AB 31 36 A7 54 52 28 54 54 2C 31 |TT,1).16.TR(TT,1|
00002880: 29 B2 54 52 28 54 54 2C 31 29 AB 31 00 96 30 A7 |).TR(TT,1).1..0.|
00002890: 12 82 54 54 3A 8E 00 9C 30 C0 12 8F 00 A6 30 C5 |..TT:...0.....0.|
000028A0: 12 8D 39 39 30 30 00 AF 30 CA 12 89 33 30 30 00 |..9900..0...300.|
000028B0: B5 30 88 13 8F 00 CF 30 89 13 8F 20 53 45 54 20 |.0.....0... SET |
000028C0: 4F 50 45 4E 49 4E 47 20 42 41 4C 41 4E 43 45 00 |OPENING BALANCE.|
000028D0: D5 30 8A 13 8F 00 DF 30 8B 13 99 22 93 22 3B 00 |.0.....0...".";.|
000028E0: 0C 31 8D 13 8D 31 33 30 30 3A 41 24 B2 22 22 3A |.1...1300:A$."":|
000028F0: 85 22 C5 4E 54 45 52 20 CF 50 45 4E 49 4E 47 20 |.".NTER .PENING |
00002900: C2 41 4C 41 4E 43 45 20 22 3B 41 24 00 19 31 92 |.ALANCE ";A$..1.|
00002910: 13 42 4C B2 C5 28 41 24 29 00 43 31 97 13 8B 42 |.BL..(A$).C1...B|
00002920: 4C B1 39 39 39 39 39 2E 39 39 B0 42 4C B3 AB 39 |L.99999.99.BL..9|
00002930: 39 39 39 39 2E 39 39 A7 8D 32 37 30 30 3A 89 35 |9999.99..2700:.5|
00002940: 30 30 35 00 69 31 9C 13 8D 31 33 35 30 3A 99 22 |005.i1...1350:."|
00002950: 91 CF 50 45 4E 49 4E 47 20 42 41 4C 41 4E 43 45 |..PENING BALANCE|
00002960: 20 49 53 20 5C 22 3B 42 4C 00 7D 31 A1 13 99 22 | IS \";BL.}1..."|
00002970: 4F 2E 4B 2E 20 22 3B 3A 8D 31 35 30 30 00 8C 31 |O.K. ";:.1500..1|
00002980: A6 13 8B 59 4E B3 30 A7 35 30 30 30 00 95 31 AB |...YN.0.5000..1.|
00002990: 13 89 34 30 30 00 9B 31 EC 13 8F 00 C4 31 ED 13 |..400..1.....1..|
000029A0: 8F 20 45 4E 54 45 52 20 41 20 54 52 41 4E 53 41 |. ENTER A TRANSA|
000029B0: 43 54 49 4F 4E 20 49 4E 54 4F 20 54 48 45 20 46 |CTION INTO THE F|
000029C0: 49 4C 45 53 00 CA 31 EE 13 8F 00 DA 31 EF 13 99 |ILES..1.....1...|
000029D0: 22 93 22 3B 3A 8D 39 30 30 30 00 0F 32 F1 13 99 |".";:.9000..2...|
000029E0: 22 13 20 20 C4 41 54 45 22 3B A3 31 31 29 3B 22 |". .ATE";.11);"|
000029F0: C4 45 54 41 49 4C 53 22 3B A3 32 33 29 3B 22 43 |.ETAILS";.23);"C|
00002A00: 4F 44 45 22 3B A3 33 32 29 3B 22 5C 2E 50 22 00 |ODE";.32);"\.P".|
00002A10: 1F 32 F2 13 8B 50 52 B1 30 A7 8D 39 33 30 30 00 |.2...PR.0..9300.|
00002A20: 2D 32 F6 13 4E 54 B2 31 3A 53 4F B2 30 00 37 32 |-2..NT.1:SO.0.72|
00002A30: 00 14 8D 31 33 30 30 00 59 32 0A 14 99 22 C4 41 |...1300.Y2...".A|
00002A40: 54 45 20 4F 46 20 D4 52 41 4E 53 41 43 54 49 4F |TE OF .RANSACTIO|
00002A50: 4E 22 3B 3A 8D 31 30 30 30 00 6B 32 0C 14 8B 44 |N";:.1000.k2...D|
00002A60: B2 30 AF 4E 54 B2 31 A7 34 30 30 00 79 32 0F 14 |.0.NT.1.400.y2..|
00002A70: 8B 44 B2 30 A7 35 31 32 30 00 98 32 14 14 8D 35 |.D.0.5120..2...5|
00002A80: 33 30 30 3A 8D 31 32 30 30 3A 99 44 3B 22 9D 22 |300:.1200:.D;"."|
00002A90: 3B 4D 24 28 4D 29 3B 59 00 B8 32 1E 14 8D 31 33 |;M$(M);Y..2...13|
00002AA0: 30 30 3A 44 4C 24 B2 22 22 3A 85 22 C4 45 54 41 |00:DL$."":.".ETA|
00002AB0: 49 4C 53 22 3B 44 4C 24 00 D1 32 23 14 8B 44 4C |ILS";DL$..2#..DL|
00002AC0: 24 B2 22 22 A7 44 4C 24 B2 22 2A 2A 2A 2A 2A 2A |$."".DL$."******|
00002AD0: 22 00 EE 32 2D 14 8B C3 28 44 4C 24 29 B1 31 30 |"..2-...(DL$).10|
00002AE0: A7 44 4C 24 B2 C8 28 44 4C 24 2C 31 30 29 00 02 |.DL$..(DL$,10)..|
00002AF0: 33 32 14 8D 35 33 30 30 3A 99 A3 31 31 29 3B 44 |32..5300:..11);D|
00002B00: 4C 24 00 28 33 3C 14 54 24 B2 22 22 3A 8D 31 33 |L$.(3<.T$."":.13|
00002B10: 30 30 3A 85 22 C2 55 44 47 45 54 20 48 45 41 44 |00:.".UDGET HEAD|
00002B20: 49 4E 47 20 22 3B 54 24 00 41 33 41 14 8D 32 32 |ING ";T$.A3A..22|
00002B30: 30 30 3A 8D 35 33 30 30 3A 99 A3 32 33 29 3B 42 |00:.5300:..23);B|
00002B40: 43 00 6A 33 46 14 8D 31 33 30 30 3A 54 41 24 B2 |C.j3F..1300:TA$.|
00002B50: 22 22 3A 85 22 C1 4D 4F 55 4E 54 22 3B 54 41 24 |"":.".MOUNT";TA$|
00002B60: 3A 54 41 B2 C5 28 54 41 24 29 00 95 33 47 14 8B |:TA..(TA$)..3G..|
00002B70: 54 41 B1 39 39 39 39 39 2E 39 39 B0 54 41 B3 AB |TA.99999.99.TA..|
00002B80: 39 39 39 39 39 2E 39 39 39 A7 8D 32 37 30 30 3A |99999.999..2700:|
00002B90: 89 35 31 39 30 00 9F 33 48 14 8D 35 33 30 30 00 |.5190..3H..5300.|
00002BA0: C2 33 49 14 99 A3 32 38 29 3B 3A 54 4E B2 54 41 |.3I...28);:TN.TA|
00002BB0: 3A 4E 4C B2 30 3A 8D 32 33 30 30 3A 99 A3 33 37 |:NL.0:.2300:..37|
00002BC0: 29 3B 00 FC 33 4A 14 54 41 B2 AB 54 41 3A 8B 44 |);..3J.TA..TA:.D|
00002BD0: 4C 24 B2 22 43 52 45 44 49 54 22 B0 44 4C 24 B2 |L$."CREDIT".DL$.|
00002BE0: 22 C3 52 45 44 49 54 22 B0 44 4C 24 B2 22 C3 D2 |".REDIT".DL$."..|
00002BF0: C5 C4 C9 D4 22 A7 54 41 B2 AB 54 41 00 0B 34 4C |....".TA..TA..4L|
00002C00: 14 8B 54 41 B3 30 A7 99 22 44 22 00 1B 34 4E 14 |..TA.0.."D"..4N.|
00002C10: 8B 54 41 B1 B2 30 A7 99 22 43 22 00 3E 34 50 14 |.TA..0.."C".>4P.|
00002C20: 8D 31 33 35 30 3A 99 22 C5 4E 54 52 59 20 4F 4B |.1350:.".NTRY OK|
00002C30: 28 59 2F 4E 29 20 22 3B 3A 8D 31 35 30 30 00 62 |(Y/N) ";:.1500.b|
00002C40: 34 55 14 8B 59 4E B3 30 A7 8D 35 33 30 30 3A 8D |4U..YN.0..5300:.|
00002C50: 31 33 31 30 3A 4E 54 B2 4E 54 AB 31 3A 89 35 32 |1310:NT.NT.1:.52|
00002C60: 32 30 00 82 34 5A 14 8D 31 33 30 30 3A 99 22 D0 |20..4Z..1300:.".|
00002C70: 4C 45 41 53 45 20 57 41 49 54 22 3B 3A 8D 35 33 |LEASE WAIT";:.53|
00002C80: 35 30 00 A3 34 64 14 8D 31 33 30 30 3A 99 22 52 |50..4d..1300:."R|
00002C90: 45 50 45 41 54 28 59 2F 4E 29 20 22 3B 3A 8D 31 |EPEAT(Y/N) ";:.1|
00002CA0: 35 30 30 00 B2 34 69 14 8B 59 4E B3 30 A7 35 32 |500..4i..YN.0.52|
00002CB0: 34 30 00 CC 34 6E 14 8B 4E 54 20 B2 20 31 37 A7 |40..4n..NT . 17.|
00002CC0: 9E 34 39 31 35 38 3A 89 35 31 32 30 00 DE 34 73 |.49158:.5120..4s|
00002CD0: 14 4E 54 B2 4E 54 AA 31 3A 89 35 31 32 30 00 EE |.NT.NT.1:.5120..|
00002CE0: 34 78 14 8B 50 52 B1 30 A7 8D 39 32 30 30 00 F7 |4x..PR.0..9200..|
00002CF0: 34 7D 14 89 34 30 30 00 FD 34 B4 14 8F 00 1C 35 |4}..400..4.....5|
00002D00: B5 14 8F 20 50 4F 53 49 54 49 4F 4E 20 54 4F 20 |... POSITION TO |
00002D10: 43 55 52 52 45 4E 54 20 4C 49 4E 45 00 22 35 B6 |CURRENT LINE."5.|
00002D20: 14 8F 00 2C 35 B9 14 99 22 13 22 3B 00 43 35 BE |...,5...".";.C5.|
00002D30: 14 81 4C B2 31 A4 4E 54 AA 31 3A 99 22 11 22 3B |..L.1.NT.1:.".";|
00002D40: 3A 82 4C 00 49 35 C3 14 8E 00 4F 35 E6 14 8F 00 |:.L.I5....O5....|
00002D50: 70 35 E7 14 8F 20 50 55 54 20 41 4E 20 45 4E 54 |p5... PUT AN ENT|
00002D60: 52 59 20 49 4E 54 4F 20 54 48 45 20 46 49 4C 45 |RY INTO THE FILE|
00002D70: 00 8A 35 E8 14 8F 20 49 4E 20 54 48 45 20 50 52 |..5... IN THE PR|
00002D80: 4F 50 45 52 20 4F 52 44 45 52 00 90 35 E9 14 8F |OPER ORDER..5...|
00002D90: 00 BB 35 EB 14 49 4E B2 54 52 28 30 2C 30 29 3A |..5..IN.TR(0,0):|
00002DA0: 8B 49 4E B2 30 A7 49 4E B2 31 3A 54 52 28 30 2C |.IN.0.IN.1:TR(0,|
00002DB0: 31 29 B2 44 54 3A 89 35 34 32 30 00 EA 35 F0 14 |1).DT:.5420..5..|
00002DC0: 8B 44 54 B1 B2 54 52 28 30 2C 31 29 A7 49 4E B2 |.DT..TR(0,1).IN.|
00002DD0: 54 52 28 30 2C 30 29 AA 31 3A 54 52 28 30 2C 31 |TR(0,0).1:TR(0,1|
00002DE0: 29 B2 44 54 3A 89 35 34 32 30 00 F7 35 FA 14 81 |).DT:.5420..5...|
00002DF0: 54 54 B2 31 A4 49 4E 00 0D 36 FF 14 8B 54 52 28 |TT.1.IN..6...TR(|
00002E00: 54 54 2C 30 29 B1 44 54 A7 35 33 39 30 00 15 36 |TT,0).DT.5390..6|
00002E10: 04 15 82 54 54 00 25 36 09 15 49 4E B2 54 54 3A |...TT.%6..IN.TT:|
00002E20: 89 35 34 32 30 00 2F 36 0E 15 49 4E B2 54 54 00 |.5420./6..IN.TT.|
00002E30: 44 36 13 15 81 54 B2 54 52 28 30 2C 30 29 A4 54 |D6...T.TR(0,0).T|
00002E40: 54 A9 AB 31 00 7E 36 18 15 54 52 28 54 AA 31 2C |T..1.~6..TR(T.1,|
00002E50: 30 29 B2 54 52 28 54 2C 30 29 3A 54 52 28 54 AA |0).TR(T,0):TR(T.|
00002E60: 31 2C 31 29 B2 54 52 28 54 2C 31 29 3A 54 52 28 |1,1).TR(T,1):TR(|
00002E70: 54 AA 31 2C 32 29 B2 54 52 28 54 2C 32 29 00 92 |T.1,2).TR(T,2)..|
00002E80: 36 1D 15 54 52 24 28 54 AA 31 29 B2 54 52 24 28 |6..TR$(T.1).TR$(|
00002E90: 54 29 00 99 36 22 15 82 54 00 D0 36 2C 15 54 52 |T)..6"..T..6,.TR|
00002EA0: 28 49 4E 2C 30 29 B2 44 54 3A 54 52 28 49 4E 2C |(IN,0).DT:TR(IN,|
00002EB0: 31 29 B2 42 43 AA 53 4F 3A 54 52 28 49 4E 2C 32 |1).BC.SO:TR(IN,2|
00002EC0: 29 B2 54 41 3A 54 52 24 28 49 4E 29 B2 44 4C 24 |).TA:TR$(IN).DL$|
00002ED0: 00 F2 36 31 15 54 52 24 28 49 4E 29 B2 44 4C 24 |..61.TR$(IN).DL$|
00002EE0: 3A 54 52 28 30 2C 30 29 B2 54 52 28 30 2C 30 29 |:TR(0,0).TR(0,0)|
00002EF0: AA 31 00 01 37 32 15 8B 42 43 B2 30 A7 35 34 34 |.1..72..BC.0.544|
00002F00: 30 00 19 37 3B 15 54 42 28 42 43 29 B2 54 42 28 |0..7;.TB(BC).TB(|
00002F10: 42 43 29 AA 28 AB 54 41 29 00 29 37 40 15 8B 50 |BC).(.TA).)7@..P|
00002F20: 52 B1 30 A7 8D 39 33 35 30 00 2F 37 4A 15 8E 00 |R.0..9350./7J...|
00002F30: 35 37 7C 15 8F 00 4E 37 7D 15 8F 20 4F 55 54 50 |57|...N7}.. OUTP|
00002F40: 55 54 20 41 20 53 54 41 54 45 4D 45 4E 54 00 54 |UT A STATEMENT.T|
00002F50: 37 7E 15 8F 00 67 37 81 15 8B 54 52 28 30 2C 30 |7~...g7...TR(0,0|
00002F60: 29 B2 30 A7 34 39 35 00 95 37 86 15 99 22 93 11 |).0.495..7..."..|
00002F70: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... |
00002F80: 20 20 20 20 D3 54 41 54 45 4D 45 4E 54 20 4F 55 | .TATEMENT OU|
00002F90: 54 50 55 54 22 00 9F 37 90 15 8D 33 38 30 30 00 |TPUT"..7...3800.|
00002FA0: A9 37 A4 15 8D 33 38 35 30 00 B3 37 B0 15 8D 39 |.7...3850..7...9|
00002FB0: 30 30 30 00 BC 37 B3 15 99 22 93 22 00 C2 37 B8 |000..7..."."..7.|
00002FC0: 15 8F 00 DF 37 B9 15 8F 20 57 4F 52 4B 20 4F 55 |....7... WORK OU|
00002FD0: 54 20 42 41 4C 41 4E 43 45 20 46 49 52 53 54 00 |T BALANCE FIRST.|
00002FE0: E5 37 BA 15 8F 00 0D 38 BB 15 42 42 B2 42 4C 3A |.7.....8..BB.BL:|
00002FF0: 8D 31 33 30 30 3A 99 22 C3 41 4C 43 55 4C 41 54 |.1300:.".ALCULAT|
00003000: 49 4E 47 20 42 41 4C 41 4E 43 45 22 3B 00 1F 38 |ING BALANCE";..8|
00003010: BD 15 81 54 54 B2 31 A4 54 52 28 30 2C 30 29 00 |...TT.1.TR(0,0).|
00003020: 36 38 C2 15 8B 54 52 28 54 54 2C 30 29 B1 B2 53 |68...TR(TT,0)..S|
00003030: 44 A7 35 35 39 30 00 49 38 C7 15 42 42 B2 42 42 |D.5590.I8..BB.BB|
00003040: AA 54 52 28 54 54 2C 32 29 00 51 38 CC 15 82 54 |.TR(TT,2).Q8...T|
00003050: 54 00 5A 38 D1 15 89 34 30 30 00 6F 38 D6 15 8B |T.Z8...400.o8...|
00003060: 50 52 B2 31 A7 8D 39 30 35 30 3A 46 4C B2 30 00 |PR.1..9050:FL.0.|
00003070: A2 38 E0 15 99 22 93 20 C4 41 54 45 22 3B A3 31 |.8...". .ATE";.1|
00003080: 30 29 3B 22 C4 45 54 41 49 4C 53 22 3B A3 32 35 |0);".ETAILS";.25|
00003090: 29 3B 22 5C 2E 50 22 3B A3 33 32 29 3B 22 C2 41 |);"\.P";.32);".A|
000030A0: 4C 22 00 B6 38 E5 15 8B 50 52 B2 30 B0 46 4C B1 |L"..8...PR.0.FL.|
000030B0: 30 A7 35 36 32 30 00 D7 38 EA 15 98 31 2C 22 C2 |0.5620..8...1,".|
000030C0: 41 4C 41 4E 43 45 20 C2 2F C6 D7 C4 22 3B 54 42 |ALANCE ./...";TB|
000030D0: 24 3B 22 33 30 22 3B 00 F8 38 EF 15 54 4E B2 42 |$;"30";..8..TN.B|
000030E0: 42 3A 4E 4C B2 30 3A 8D 39 31 30 30 3A 98 31 2C |B:NL.0:.9100:.1,|
000030F0: 4C 46 24 3A 46 4C B2 31 00 13 39 F4 15 99 22 C2 |LF$:FL.1..9...".|
00003100: 41 4C 41 4E 43 45 20 C2 2F C6 D7 C4 22 3B A3 33 |ALANCE ./...";.3|
00003110: 30 29 3B 00 28 39 FE 15 54 4E B2 42 42 3A 4E 4C |0);.(9..TN.BB:NL|
00003120: B2 31 3A 8D 32 33 30 30 00 2E 39 03 16 99 00 36 |.1:.2300..9....6|
00003130: 39 08 16 4C B2 31 00 4C 39 0D 16 8B 54 52 28 54 |9..L.1.L9...TR(T|
00003140: 54 2C 30 29 B1 45 44 A7 35 36 39 35 00 62 39 0F |T,0).ED.5695.b9.|
00003150: 16 44 54 B2 54 52 28 54 54 2C 30 29 3A 8D 31 32 |.DT.TR(TT,0):.12|
00003160: 30 30 00 88 39 12 16 99 44 3B 22 9D 22 3B 4D 24 |00..9...D;".";M$|
00003170: 28 4D 29 3B 59 3B A3 31 30 29 3B 54 52 24 28 54 |(M);Y;.10);TR$(T|
00003180: 54 29 3B A3 32 31 29 3B 00 AA 39 17 16 54 4E B2 |T);.21);..9..TN.|
00003190: 54 52 28 54 54 2C 32 29 3A 4E 4C B2 30 3A 8D 32 |TR(TT,2):NL.0:.2|
000031A0: 33 30 30 3A 99 A3 33 30 29 3B 00 E4 39 1C 16 42 |300:..30);..9..B|
000031B0: 42 B2 B5 28 28 42 42 AC 31 30 30 29 AA 28 54 52 |B..((BB.100).(TR|
000031C0: 28 54 54 2C 32 29 AC 31 30 30 29 AA 2E 35 29 AD |(TT,2).100)..5).|
000031D0: 31 30 30 3A 4E 4C B2 31 3A 54 4E B2 42 42 3A 8D |100:NL.1:TN.BB:.|
000031E0: 32 33 30 30 00 F4 39 1E 16 8B 50 52 B2 31 A7 8D |2300..9...PR.1..|
000031F0: 39 32 35 30 00 09 3A 21 16 8B 54 54 B2 54 52 28 |9250..:!..TT.TR(|
00003200: 30 2C 30 29 A7 35 36 39 35 00 21 3A 26 16 8B 4C |0,0).5695.!:&..L|
00003210: B2 31 37 A7 54 54 B2 54 54 AA 31 3A 89 35 36 39 |.17.TT.TT.1:.569|
00003220: 30 00 39 3A 2B 16 4C B2 4C AA 31 3A 54 54 B2 54 |0.9:+.L.L.1:TT.T|
00003230: 54 AA 31 3A 89 35 36 34 35 00 49 3A 3A 16 8D 31 |T.1:.5645.I::..1|
00003240: 36 30 30 3A 89 35 36 30 30 00 5E 3A 3F 16 8D 31 |600:.5600.^:?..1|
00003250: 36 30 30 3A 8D 39 32 30 30 3A 89 34 30 30 00 64 |600:.9200:.400.d|
00003260: 3A A8 16 8F 00 7A 3A A9 16 8F 20 43 4C 45 41 52 |:....z:... CLEAR|
00003270: 20 54 48 45 20 46 49 4C 45 53 00 80 3A AA 16 8F | THE FILES..:...|
00003280: 00 B7 3A AD 16 99 22 93 22 3A 8D 31 33 30 30 3A |..:...".":.1300:|
00003290: 99 22 C3 4C 45 41 52 20 54 52 41 4E 53 41 43 54 |.".LEAR TRANSACT|
000032A0: 49 4F 4E 20 46 49 4C 45 53 28 59 2F 4E 29 20 22 |ION FILES(Y/N) "|
000032B0: 3B 3A 8D 31 35 30 30 00 C5 3A B2 16 8B 59 4E B3 |;:.1500..:...YN.|
000032C0: 30 A7 34 30 30 00 CE 3A C6 16 42 4C B2 30 00 E6 |0.400..:..BL.0..|
000032D0: 3A D0 16 54 52 28 30 2C 30 29 B2 30 3A 54 52 28 |:..TR(0,0).0:TR(|
000032E0: 30 2C 31 29 B2 30 00 17 3B DA 16 8D 31 33 30 30 |0,1).0..;...1300|
000032F0: 3A 99 22 C3 4C 45 41 52 20 42 55 44 47 45 54 20 |:.".LEAR BUDGET |
00003300: 41 43 54 55 41 4C 20 46 49 47 55 52 45 53 20 22 |ACTUAL FIGURES "|
00003310: 3B 3A 8D 31 35 30 30 00 25 3B E4 16 8B 59 4E B3 |;:.1500.%;...YN.|
00003320: 30 A7 34 30 30 00 3F 3B EE 16 81 42 43 B2 31 A4 |0.400.?;...BC.1.|
00003330: 31 36 3A 54 42 28 42 43 29 B2 30 3A 82 42 43 00 |16:TB(BC).0:.BC.|
00003340: 48 3B F8 16 89 34 30 30 00 4E 3B 0C 17 8F 00 6A |H;...400.N;....j|
00003350: 3B 0D 17 8F 20 45 4E 54 45 52 20 53 54 41 4E 44 |;... ENTER STAND|
00003360: 49 4E 47 20 4F 52 44 45 52 53 00 70 3B 0E 17 8F |ING ORDERS.p;...|
00003370: 00 9C 3B 16 17 99 22 93 11 11 11 11 11 11 11 11 |..;...".........|
00003380: 11 11 20 20 20 20 20 C5 4E 54 45 52 20 D3 54 41 |.. .NTER .TA|
00003390: 4E 44 49 4E 47 20 CF 52 44 45 52 22 00 AC 3B 1B |NDING .RDER"..;.|
000033A0: 17 8D 39 30 30 30 3A 53 4F B2 31 36 00 DC 3B 20 |..9000:SO.16..; |
000033B0: 17 8D 31 33 30 30 3A 99 22 C5 4E 54 45 52 20 D3 |..1300:.".NTER .|
000033C0: 54 41 52 54 20 C4 41 54 45 20 22 3B 3A 8D 31 30 |TART .ATE ";:.10|
000033D0: 30 30 3A 8B 44 B2 30 A7 35 39 32 30 00 F1 3B 2A |00:.D.0.5920..;*|
000033E0: 17 99 22 93 11 11 20 31 20 CD 4F 4E 54 48 4C 59 |.."... 1 .ONTHLY|
000033F0: 22 00 06 3C 2F 17 99 22 11 20 32 20 D1 55 41 52 |"..</..". 2 .UAR|
00003400: 54 45 52 4C 59 22 00 1A 3C 34 17 99 22 11 20 33 |TERLY"..<4..". 3|
00003410: 20 C1 4E 4E 55 41 4C 4C 59 22 00 32 3C 39 17 99 | .NNUALLY".2<9..|
00003420: 22 11 20 34 20 CF 54 48 45 52 20 D0 45 52 49 4F |". 4 .THER .ERIO|
00003430: 44 22 00 49 3C 3E 17 8D 31 33 30 30 3A 85 22 D7 |D".I<>..1300:.".|
00003440: 48 49 43 48 20 22 3B 4B 24 00 55 3C 43 17 46 B2 |HICH ";K$.U<C.F.|
00003450: C5 28 4B 24 29 00 6F 3C 48 17 8B 46 B2 31 B0 46 |.(K$).o<H..F.1.F|
00003460: B2 32 B0 46 B2 33 B0 46 B2 34 A7 35 39 37 30 00 |.2.F.3.F.4.5970.|
00003470: 79 3C 4D 17 89 35 39 35 30 00 8E 3C 52 17 8B 46 |y<M..5950..<R..F|
00003480: B2 31 A7 50 59 B2 31 32 3A 89 35 39 38 30 00 A2 |.1.PY.12:.5980..|
00003490: 3C 53 17 8B 46 B2 32 A7 50 59 B2 34 3A 89 35 39 |<S..F.2.PY.4:.59|
000034A0: 38 30 00 B6 3C 54 17 8B 46 B2 33 A7 50 59 B2 31 |80..<T..F.3.PY.1|
000034B0: 3A 89 35 39 38 30 00 E0 3C 57 17 8D 31 33 30 30 |:.5980..<W..1300|
000034C0: 3A 85 22 C5 4E 54 45 52 20 CE 55 4D 42 45 52 20 |:.".NTER .UMBER |
000034D0: 4F 46 20 D0 41 59 4D 45 4E 54 53 20 22 3B 4B 24 |OF .AYMENTS ";K$|
000034E0: 00 F8 3C 58 17 50 59 B2 C5 28 4B 24 29 3A 8B 50 |..<X.PY..(K$):.P|
000034F0: 59 B2 30 A7 35 39 37 35 00 12 3D 5C 17 8B 50 59 |Y.0.5975..=\..PY|
00003500: AA 54 52 28 30 2C 30 29 B3 B2 34 30 30 A7 36 30 |.TR(0,0)..400.60|
00003510: 30 30 00 3B 3D 61 17 99 22 93 11 11 CE 4F 54 20 |00.;=a.."....OT |
00003520: C5 4E 4F 55 47 48 20 D2 4F 4F 4D 20 54 4F 20 C5 |.NOUGH .OOM TO .|
00003530: 4E 54 45 52 20 D4 48 45 53 45 22 00 55 3D 62 17 |NTER .HESE".U=b.|
00003540: 99 22 D4 52 41 4E 53 41 43 54 49 4F 4E 53 22 3A |.".RANSACTIONS":|
00003550: 8D 31 33 30 30 00 86 3D 63 17 99 22 D0 52 45 53 |.1300..=c..".RES|
00003560: 53 20 41 20 CB 45 59 20 54 4F 20 C3 4F 4E 54 49 |S A .EY TO .ONTI|
00003570: 4E 55 45 22 3B 3A 8D 32 30 35 30 3A 8D 39 32 30 |NUE";:.2050:.920|
00003580: 30 3A 89 34 30 30 00 AC 3D 70 17 99 22 93 22 3A |0:.400..=p..".":|
00003590: 8D 31 33 30 30 3A 44 4C 24 B2 22 22 3A 85 22 C4 |.1300:DL$."":.".|
000035A0: 45 54 41 49 4C 53 20 22 3B 44 4C 24 00 C5 3D 75 |ETAILS ";DL$..=u|
000035B0: 17 8B 44 4C 24 B2 22 22 A7 44 4C 24 B2 22 2A 2A |..DL$."".DL$."**|
000035C0: 2A 2A 2A 2A 22 00 E2 3D 7A 17 8B C3 28 44 4C 24 |****"..=z...(DL$|
000035D0: 29 B1 31 30 A7 44 4C 24 B2 C8 28 44 4C 24 2C 31 |).10.DL$..(DL$,1|
000035E0: 30 29 00 08 3E 84 17 8D 31 33 30 30 3A 85 22 C2 |0)..>...1300:.".|
000035F0: 55 44 47 45 54 20 C8 45 41 44 49 4E 47 20 22 3B |UDGET .EADING ";|
00003600: 54 24 3A 8D 32 32 30 30 00 18 3E 89 17 8B 42 43 |T$:.2200..>...BC|
00003610: B2 30 A7 54 24 B2 22 22 00 38 3E 8E 17 8D 31 33 |.0.T$."".8>...13|
00003620: 30 30 3A 54 41 24 B2 22 22 3A 85 22 C1 4D 4F 55 |00:TA$."":.".MOU|
00003630: 4E 54 20 22 3B 54 41 24 00 6C 3E 93 17 54 41 B2 |NT ";TA$.l>..TA.|
00003640: C5 28 54 41 24 29 3A 8B 54 41 B1 39 39 39 39 39 |.(TA$):.TA.99999|
00003650: 2E 39 39 B0 54 41 B3 AB 39 39 39 39 39 2E 39 39 |.99.TA..99999.99|
00003660: A7 8D 32 37 30 30 3A 89 36 30 33 30 00 97 3E 98 |..2700:.6030..>.|
00003670: 17 99 22 93 D3 54 41 52 54 20 C4 41 54 45 20 22 |.."..TART .ATE "|
00003680: 3B A3 32 30 29 3B 3A 8D 31 32 30 30 3A 99 44 3B |;.20);:.1200:.D;|
00003690: 4D 24 28 4D 29 3B 59 00 B6 3E 9D 17 99 22 CE 55 |M$(M);Y..>...".U|
000036A0: 4D 42 45 52 20 4F 46 20 50 41 59 4D 45 4E 54 53 |MBER OF PAYMENTS|
000036B0: 20 20 22 3B 50 59 00 CF 3E A2 17 99 22 C4 45 54 | ";PY..>...".ET|
000036C0: 41 49 4C 53 20 22 3B A3 32 31 29 3B 44 4C 24 00 |AILS ";.21);DL$.|
000036D0: EB 3E A7 17 99 22 C2 55 44 47 45 54 20 43 4F 44 |.>...".UDGET COD|
000036E0: 45 20 22 3B A3 32 30 29 3B 42 43 00 02 3F AC 17 |E ";.20);BC..?..|
000036F0: 99 22 C1 4D 4F 55 4E 54 20 22 3B A3 32 30 29 3B |.".MOUNT ";.20);|
00003700: 54 41 00 21 3F B1 17 8D 31 33 35 30 3A 99 22 4F |TA.!?...1350:."O|
00003710: 2E 4B 2E 28 59 2F 4E 29 20 22 3B 3A 8D 31 35 30 |.K.(Y/N) ";:.150|
00003720: 30 00 30 3F B6 17 8B 59 4E B3 30 A7 36 31 35 30 |0.0?...YN.0.6150|
00003730: 00 40 3F B8 17 99 22 93 22 3B 3A 8D 36 31 38 30 |.@?...".";:.6180|
00003740: 00 50 3F BB 17 44 4D B2 44 3A 54 41 B2 AB 54 41 |.P?..DM.D:TA..TA|
00003750: 00 6A 3F C0 17 8D 35 33 35 30 3A 8D 36 31 39 30 |.j?...5350:.6190|
00003760: 3A 8B 46 B2 33 A7 36 31 35 30 00 78 3F C5 17 81 |:.F.3.6150.x?...|
00003770: 53 B2 31 A4 50 59 AB 31 00 93 3F CA 17 91 46 89 |S.1.PY.1..?...F.|
00003780: 36 30 39 35 2C 36 31 31 30 2C 36 31 35 30 2C 36 |6095,6110,6150,6|
00003790: 30 39 35 00 AD 3F CF 17 4D B2 4D AA 31 3A 8B 4D |095..?..M.M.1:.M|
000037A0: B2 31 33 A7 4D B2 31 3A 59 B2 59 AA 31 00 C2 3F |.13.M.1:Y.Y.1..?|
000037B0: D4 17 8B 44 B1 4D 4F 28 4D 29 A7 44 B2 4D 4F 28 |...D.MO(M).D.MO(|
000037C0: 4D 29 00 E3 3F D9 17 8D 31 31 31 30 3A 8D 35 33 |M)..?...1110:.53|
000037D0: 35 30 3A 8D 36 31 39 30 3A 44 B2 44 4D 3A 89 36 |50:.6190:D.DM:.6|
000037E0: 31 32 30 00 00 40 DE 17 4D B2 4D AA 33 3A 8B 4D |120..@..M.M.3:.M|
000037F0: B1 31 32 A7 4D B2 4D AB 31 32 3A 59 B2 59 AA 31 |.12.M.M.12:Y.Y.1|
00003800: 00 0A 40 E3 17 89 36 31 30 30 00 11 40 E8 17 82 |..@...6100..@...|
00003810: 53 00 32 40 06 18 8D 31 33 30 30 3A 99 22 D2 45 |S.2@...1300:.".E|
00003820: 50 45 41 54 28 59 2F 4E 29 20 22 3B 3A 8D 31 35 |PEAT(Y/N) ";:.15|
00003830: 30 30 00 47 40 0B 18 8B 59 4E B1 30 A7 99 22 93 |00.G@...YN.0..".|
00003840: 22 3A 89 35 39 32 30 00 56 40 10 18 8D 39 32 30 |":.5920.V@...920|
00003850: 30 3A 89 34 30 30 00 8B 40 24 18 99 22 13 20 20 |0:.400..@$..". |
00003860: C4 41 54 45 22 3B A3 31 31 29 3B 22 C4 45 54 41 |.ATE";.11);".ETA|
00003870: 49 4C 53 22 3B A3 32 33 29 3B 22 43 4F 44 45 22 |ILS";.23);"CODE"|
00003880: 3B A3 33 32 29 3B 22 5C 2E 50 22 00 97 40 29 18 |;.32);"\.P"..@).|
00003890: 99 3A 4C B2 31 3A 8E 00 BD 40 2E 18 99 44 3B 4D |.:L.1:...@...D;M|
000038A0: 24 28 4D 29 3B 59 3B A3 31 31 29 3B 44 4C 24 3B |$(M);Y;.11);DL$;|
000038B0: A3 32 33 29 3B 42 43 3B A3 32 38 29 3B 00 D4 40 |.23);BC;.28);..@|
000038C0: 31 18 54 4E B2 54 41 3A 8B 54 4E B3 30 A7 54 4E |1.TN.TA:.TN.0.TN|
000038D0: B2 AB 54 4E 00 E3 40 32 18 4E 4C B2 30 3A 8D 32 |..TN..@2.NL.0:.2|
000038E0: 33 30 30 00 F3 40 33 18 8B 54 41 B3 30 A7 99 22 |300..@3..TA.0.."|
000038F0: 20 44 22 00 04 41 34 18 8B 54 41 B1 B2 30 A7 99 | D"..A4..TA..0..|
00003900: 22 20 43 22 00 10 41 35 18 8D 36 34 30 30 3A 8E |" C"..A5..6400:.|
00003910: 00 16 41 38 18 8F 00 3B 41 39 18 8F 20 44 45 4C |..A8...;A9.. DEL|
00003920: 45 54 45 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 |ETE TRANSACTIONS|
00003930: 20 46 52 4F 4D 20 46 49 4C 45 53 00 41 41 3A 18 | FROM FILES.AA:.|
00003940: 8F 00 54 41 3D 18 8B 54 52 28 30 2C 30 29 B2 30 |..TA=..TR(0,0).0|
00003950: A7 34 39 35 00 84 41 3F 18 99 22 93 11 11 11 11 |.495..A?..".....|
00003960: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00003970: C4 45 4C 45 54 45 20 54 52 41 4E 53 41 43 54 49 |.ELETE TRANSACTI|
00003980: 4F 4E 53 22 00 AB 41 42 18 44 4C 24 B2 22 22 3A |ONS"..AB.DL$."":|
00003990: 8D 31 33 30 30 3A 85 22 C5 4E 54 45 52 20 C4 45 |.1300:.".NTER .E|
000039A0: 54 41 49 4C 53 20 22 3B 44 4C 24 00 BB 41 47 18 |TAILS ";DL$..AG.|
000039B0: 8B 44 4C 24 B2 22 22 A7 34 30 30 00 E5 41 4C 18 |.DL$."".400..AL.|
000039C0: 8D 31 33 30 30 3A 99 22 C6 49 52 53 54 20 44 41 |.1300:.".IRST DA|
000039D0: 54 45 20 54 4F 20 44 45 4C 45 54 45 20 22 3B 3A |TE TO DELETE ";:|
000039E0: 8D 31 30 30 30 00 F3 41 56 18 8B 44 B2 30 A7 36 |.1000..AV..D.0.6|
000039F0: 32 32 30 00 FD 41 5B 18 53 44 B2 44 54 00 26 42 |220..A[.SD.DT.&B|
00003A00: 60 18 8D 31 33 30 30 3A 99 22 CC 41 53 54 20 44 |`..1300:.".AST D|
00003A10: 41 54 45 20 54 4F 20 44 45 4C 45 54 45 20 22 3B |ATE TO DELETE ";|
00003A20: 3A 8D 31 30 30 30 00 34 42 65 18 8B 44 B2 30 A7 |:.1000.4Be..D.0.|
00003A30: 36 32 34 30 00 3E 42 66 18 45 44 B2 44 54 00 72 |6240.>Bf.ED.DT.r|
00003A40: 42 6A 18 8D 31 33 30 30 3A 99 22 C1 52 45 20 54 |Bj..1300:.".RE T|
00003A50: 48 45 53 45 20 53 54 41 4E 44 49 4E 47 20 4F 52 |HESE STANDING OR|
00003A60: 44 45 52 53 28 59 2F 4E 29 20 22 3B 3A 8D 31 35 |DERS(Y/N) ";:.15|
00003A70: 30 30 00 87 42 6F 18 53 53 B2 30 3A 8B 59 4E B2 |00..Bo.SS.0:.YN.|
00003A80: 31 A7 53 53 B2 31 36 00 96 42 71 18 8D 36 34 35 |1.SS.16..Bq..645|
00003A90: 30 3A 99 22 93 22 00 BF 42 74 18 54 54 B2 31 3A |0:."."..Bt.TT.1:|
00003AA0: 8D 31 33 30 30 3A 99 22 D3 45 41 52 43 48 49 4E |.1300:.".EARCHIN|
00003AB0: 47 20 46 49 4C 45 53 22 3B 3A 8D 36 31 38 30 00 |G FILES";:.6180.|
00003AC0: D4 42 7E 18 8D 32 35 30 30 3A 8B 45 4E B2 30 A7 |.B~..2500:.EN.0.|
00003AD0: 36 33 32 30 00 F8 42 83 18 8B 54 52 28 45 4E 2C |6320..B...TR(EN,|
00003AE0: 30 29 B1 B2 53 44 AF 54 52 28 45 4E 2C 30 29 B3 |0)..SD.TR(EN,0).|
00003AF0: B2 45 44 A7 36 32 38 35 00 0E 43 85 18 8B 54 52 |.ED.6285..C...TR|
00003B00: 28 45 4E 2C 30 29 B1 45 44 A7 36 33 32 30 00 20 |(EN,0).ED.6320. |
00003B10: 43 88 18 54 54 B2 45 4E AA 31 3A 89 36 32 37 30 |C..TT.EN.1:.6270|
00003B20: 00 3B 43 8D 18 8B 54 52 28 45 4E 2C 31 29 B1 31 |.;C...TR(EN,1).1|
00003B30: 35 AF 53 53 B1 30 A7 36 33 30 30 00 56 43 92 18 |5.SS.0.6300.VC..|
00003B40: 8B 54 52 28 45 4E 2C 31 29 B3 31 36 AF 53 53 B2 |.TR(EN,1).16.SS.|
00003B50: 30 A7 36 33 30 30 00 60 43 97 18 89 36 32 38 30 |0.6300.`C...6280|
00003B60: 00 7B 43 9C 18 44 54 B2 54 52 28 45 4E 2C 30 29 |.{C..DT.TR(EN,0)|
00003B70: 3A 54 52 28 45 4E 2C 30 29 B2 30 00 B2 43 A1 18 |:TR(EN,0).0..C..|
00003B80: 8D 31 32 30 30 3A 44 4C 24 B2 54 52 24 28 45 4E |.1200:DL$.TR$(EN|
00003B90: 29 3A 42 43 B2 54 52 28 45 4E 2C 31 29 AB 53 53 |):BC.TR(EN,1).SS|
00003BA0: 3A 54 41 B2 54 52 28 45 4E 2C 32 29 3A 8D 36 31 |:TA.TR(EN,2):.61|
00003BB0: 39 30 00 C1 43 A2 18 8B 43 42 B2 30 A7 36 32 38 |90..C...CB.0.628|
00003BC0: 30 00 D0 43 A3 18 8B 42 43 B2 30 A7 36 32 38 30 |0..C...BC.0.6280|
00003BD0: 00 E5 43 A4 18 54 42 28 42 43 29 B2 54 42 28 42 |..C..TB(BC).TB(B|
00003BE0: 43 29 AA 54 41 00 EF 43 AF 18 89 36 32 38 30 00 |C).TA..C...6280.|
00003BF0: 04 44 B0 18 8D 32 36 30 30 3A 8D 31 36 30 30 3A |.D...2600:.1600:|
00003C00: 89 34 30 30 00 19 44 00 19 4C B2 4C AA 31 3A 8B |.400..D..L.L.1:.|
00003C10: 4C B2 31 37 A7 36 34 32 30 00 1F 44 0A 19 8E 00 |L.17.6420..D....|
00003C20: 29 44 14 19 8D 31 36 30 30 00 3A 44 1E 19 99 22 |)D...1600.:D..."|
00003C30: 93 22 3A 8D 36 31 38 30 3A 8E 00 40 44 32 19 8F |.":.6180:..@D2..|
00003C40: 00 76 44 37 19 8D 31 33 30 30 3A 99 22 C3 48 41 |.vD7..1300:.".HA|
00003C50: 4E 47 45 20 42 55 44 47 45 54 20 41 43 54 55 41 |NGE BUDGET ACTUA|
00003C60: 4C 20 46 49 47 55 52 45 53 28 59 2F 4E 29 22 3B |L FIGURES(Y/N)";|
00003C70: 3A 8D 31 35 30 30 00 87 44 3C 19 8B 59 4E B1 30 |:.1500..D<..YN.0|
00003C80: A7 43 42 B2 31 3A 8E 00 92 44 41 19 43 42 B2 30 |.CB.1:...DA.CB.0|
00003C90: 3A 8E 00 98 44 64 19 8F 00 B3 44 65 19 8F 20 43 |:...Dd....De.. C|
00003CA0: 48 41 4E 47 45 20 41 20 54 52 41 4E 53 41 43 54 |HANGE A TRANSACT|
00003CB0: 49 4F 4E 00 B9 44 66 19 8F 00 CC 44 69 19 8B 54 |ION..Df....Di..T|
00003CC0: 52 28 30 2C 30 29 B2 30 A7 34 39 35 00 FC 44 6B |R(0,0).0.495..Dk|
00003CD0: 19 99 22 93 11 11 11 11 11 11 11 11 11 11 20 20 |.."........... |
00003CE0: 20 20 20 20 20 20 20 20 C3 48 41 4E 47 45 20 54 | .HANGE T|
00003CF0: 52 41 4E 53 41 43 54 49 4F 4E 53 22 00 23 45 6E |RANSACTIONS".#En|
00003D00: 19 44 4C 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 |.DL$."":.1300:."|
00003D10: C5 4E 54 45 52 20 C4 45 54 41 49 4C 53 20 22 3B |.NTER .ETAILS ";|
00003D20: 44 4C 24 00 33 45 73 19 8B 44 4C 24 B2 22 22 A7 |DL$.3Es..DL$."".|
00003D30: 34 30 30 00 5D 45 78 19 8D 31 33 30 30 3A 99 22 |400.]Ex..1300:."|
00003D40: C6 49 52 53 54 20 44 41 54 45 20 54 4F 20 43 48 |.IRST DATE TO CH|
00003D50: 41 4E 47 45 20 22 3B 3A 8D 31 30 30 30 00 6B 45 |ANGE ";:.1000.kE|
00003D60: 82 19 8B 44 B2 30 A7 36 35 32 30 00 75 45 87 19 |...D.0.6520.uE..|
00003D70: 53 44 B2 44 54 00 9E 45 8C 19 8D 31 33 30 30 3A |SD.DT..E...1300:|
00003D80: 99 22 CC 41 53 54 20 44 41 54 45 20 54 4F 20 43 |.".AST DATE TO C|
00003D90: 48 41 4E 47 45 20 22 3B 3A 8D 31 30 30 30 00 AC |HANGE ";:.1000..|
00003DA0: 45 91 19 8B 44 B2 30 A7 36 35 34 30 00 B6 45 92 |E...D.0.6540..E.|
00003DB0: 19 45 44 B2 44 54 00 C0 45 95 19 89 36 36 35 30 |.ED.DT..E...6650|
00003DC0: 00 F4 45 96 19 8D 31 33 35 30 3A 99 22 C1 52 45 |..E...1350:.".RE|
00003DD0: 20 54 48 45 53 45 20 53 54 41 4E 44 49 4E 47 20 | THESE STANDING |
00003DE0: 4F 52 44 45 52 53 28 59 2F 4E 29 20 22 3B 3A 8D |ORDERS(Y/N) ";:.|
00003DF0: 31 35 30 30 00 09 46 9B 19 53 53 B2 30 3A 8B 59 |1500..F..SS.0:.Y|
00003E00: 4E B2 31 A7 53 53 B2 31 36 00 18 46 9D 19 8D 36 |N.1.SS.16..F...6|
00003E10: 34 35 30 3A 99 22 93 22 00 41 46 A0 19 54 54 B2 |450:.".".AF..TT.|
00003E20: 31 3A 8D 31 33 30 30 3A 99 22 D3 45 41 52 43 48 |1:.1300:.".EARCH|
00003E30: 49 4E 47 20 46 49 4C 45 53 22 3B 3A 8D 36 31 38 |ING FILES";:.618|
00003E40: 30 00 56 46 AA 19 8D 32 35 30 30 3A 8B 45 4E B2 |0.VF...2500:.EN.|
00003E50: 30 A7 36 36 32 30 00 7A 46 AF 19 8B 54 52 28 45 |0.6620.zF...TR(E|
00003E60: 4E 2C 30 29 B1 B2 53 44 AF 54 52 28 45 4E 2C 30 |N,0)..SD.TR(EN,0|
00003E70: 29 B3 B2 45 44 A7 36 35 38 35 00 90 46 B1 19 8B |)..ED.6585..F...|
00003E80: 54 52 28 45 4E 2C 30 29 B1 45 44 A7 36 36 32 30 |TR(EN,0).ED.6620|
00003E90: 00 A2 46 B4 19 54 54 B2 45 4E AA 31 3A 89 36 35 |..F..TT.EN.1:.65|
00003EA0: 37 30 00 BD 46 B9 19 8B 54 52 28 45 4E 2C 31 29 |70..F...TR(EN,1)|
00003EB0: B1 31 35 AF 53 53 B1 30 A7 36 36 30 30 00 D8 46 |.15.SS.0.6600..F|
00003EC0: BE 19 8B 54 52 28 45 4E 2C 31 29 B3 31 36 AF 53 |...TR(EN,1).16.S|
00003ED0: 53 B2 30 A7 36 36 30 30 00 E2 46 C3 19 89 36 35 |S.0.6600..F...65|
00003EE0: 38 30 00 FE 46 C8 19 4F 56 B2 54 52 28 45 4E 2C |80..F..OV.TR(EN,|
00003EF0: 32 29 3A 54 52 28 45 4E 2C 32 29 B2 54 41 00 35 |2):TR(EN,2).TA.5|
00003F00: 47 CD 19 44 54 B2 54 52 28 45 4E 2C 30 29 3A 8D |G..DT.TR(EN,0):.|
00003F10: 31 32 30 30 3A 44 4C 24 B2 54 52 24 28 45 4E 29 |1200:DL$.TR$(EN)|
00003F20: 3A 42 43 B2 54 52 28 45 4E 2C 31 29 AB 53 53 3A |:BC.TR(EN,1).SS:|
00003F30: 8D 36 31 39 30 00 3F 47 CE 19 89 36 37 30 30 00 |.6190.?G...6700.|
00003F40: 49 47 D2 19 89 36 35 38 30 00 58 47 DC 19 8D 31 |IG...6580.XG...1|
00003F50: 36 30 30 3A 89 34 30 30 00 8C 47 FA 19 54 41 24 |600:.400..G..TA$|
00003F60: B2 22 22 3A 8D 31 33 30 30 3A 85 22 C5 4E 54 45 |."":.1300:.".NTE|
00003F70: 52 20 4E 45 57 20 41 4D 4F 55 4E 54 20 22 3B 54 |R NEW AMOUNT ";T|
00003F80: 41 24 3A 54 41 B2 C5 28 54 41 24 29 00 B6 47 FC |A$:TA..(TA$)..G.|
00003F90: 19 8B 54 41 B1 39 39 39 39 39 2E 39 39 B0 54 41 |..TA.99999.99.TA|
00003FA0: B3 AB 39 39 39 39 39 2E 39 39 A7 8D 32 37 30 30 |..99999.99..2700|
00003FB0: 3A 89 36 36 35 30 00 C7 47 FF 19 54 41 B2 AB 54 |:.6650..G..TA..T|
00003FC0: 41 3A 89 36 35 35 30 00 D6 47 2C 1A 8B 43 42 B2 |A:.6550..G,..CB.|
00003FD0: 30 A7 36 35 38 30 00 E5 47 31 1A 8B 42 43 B2 30 |0.6580..G1..BC.0|
00003FE0: A7 36 35 38 30 00 09 48 36 1A 44 46 B2 4F 56 AB |.6580..H6.DF.OV.|
00003FF0: 54 41 3A 54 42 28 42 43 29 B2 54 42 28 42 43 29 |TA:TB(BC).TB(BC)|
00004000: AA 44 46 3A 89 36 35 38 30 00 0F 48 58 1B 8F 00 |.DF:.6580..HX...|
00004010: 31 48 59 1B 8F 20 54 48 49 53 20 49 53 20 54 48 |1HY.. THIS IS TH|
00004020: 45 20 4C 4F 41 4E 20 43 41 4C 43 55 4C 41 54 4F |E LOAN CALCULATO|
00004030: 52 00 37 48 5A 1B 8F 00 5A 48 62 1B 99 22 93 11 |R.7HZ...ZHb.."..|
00004040: 11 C1 4D 4F 55 4E 54 20 C2 4F 52 52 4F 57 45 44 |..MOUNT .ORROWED|
00004050: 22 3B A3 32 35 29 3B 22 5C 22 00 7C 48 67 1B 99 |";.25);"\".|Hg..|
00004060: 22 11 D2 41 54 45 20 4F 46 20 C9 4E 54 45 52 45 |"..ATE OF .NTERE|
00004070: 53 54 22 3B A3 32 35 29 3B 22 25 22 00 A0 48 6C |ST";.25);"%"..Hl|
00004080: 1B 99 22 11 D0 45 52 49 4F 44 20 4F 46 20 CC 4F |.."..ERIOD OF .O|
00004090: 41 4E 22 3B A3 32 35 29 3B 22 59 45 41 52 53 22 |AN";.25);"YEARS"|
000040A0: 00 C3 48 71 1B 99 22 11 CD 4F 4E 54 48 4C 59 20 |..Hq.."..ONTHLY |
000040B0: D2 45 50 41 59 4D 45 4E 54 22 3B A3 32 35 29 3B |.EPAYMENT";.25);|
000040C0: 22 5C 22 00 D1 48 76 1B 49 54 B2 30 3A 4E 54 B2 |"\"..Hv.IT.0:NT.|
000040D0: 31 00 F7 48 80 1B 8D 31 33 30 30 3A 54 24 B2 22 |1..H...1300:T$."|
000040E0: 22 3A 85 22 C1 4D 4F 55 4E 54 20 C2 4F 52 52 4F |":.".MOUNT .ORRO|
000040F0: 57 45 44 22 3B 54 24 00 15 49 85 1B 8B 54 24 B2 |WED";T$..I...T$.|
00004100: 22 22 A7 49 54 B2 49 54 AA 31 3A 43 41 B2 31 3A |"".IT.IT.1:CA.1:|
00004110: 89 37 30 36 30 00 2D 49 8A 1B 41 42 B2 C5 28 54 |.7060.-I..AB..(T|
00004120: 24 29 3A 8B 41 42 B2 30 A7 37 30 34 30 00 51 49 |$):.AB.0.7040.QI|
00004130: 8F 1B 8D 35 33 30 30 20 3A 99 A3 33 31 29 3B 3A |...5300 :..31);:|
00004140: 54 4E B2 41 42 3A 8D 32 33 30 30 3A 50 31 B2 41 |TN.AB:.2300:P1.A|
00004150: 42 00 5D 49 94 1B 4E 54 B2 4E 54 AA 32 00 85 49 |B.]I..NT.NT.2..I|
00004160: 99 1B 8D 31 33 30 30 3A 54 24 B2 22 22 3A 85 22 |...1300:T$."":."|
00004170: D2 41 54 45 20 4F 46 20 C9 4E 54 45 52 45 53 54 |.ATE OF .NTEREST|
00004180: 20 22 3B 54 24 00 A3 49 9E 1B 8B 54 24 B2 22 22 | ";T$..I...T$.""|
00004190: A7 49 54 B2 49 54 AA 31 3A 43 41 B2 32 3A 89 37 |.IT.IT.1:CA.2:.7|
000041A0: 30 38 35 00 C2 49 A3 1B 52 49 B2 C5 28 54 24 29 |085..I..RI..(T$)|
000041B0: 3A 8B 52 49 B3 30 B0 52 49 B1 31 30 30 A7 37 30 |:.RI.0.RI.100.70|
000041C0: 36 35 00 E6 49 A8 1B 8D 35 33 30 30 20 3A 99 A3 |65..I...5300 :..|
000041D0: 33 31 29 3B 3A 54 4E B2 52 49 3A 8D 32 33 30 30 |31);:TN.RI:.2300|
000041E0: 3A 50 32 B2 52 49 00 F2 49 AD 1B 4E 54 B2 4E 54 |:P2.RI..I..NT.NT|
000041F0: AA 32 00 18 4A B2 1B 8D 31 33 30 30 3A 54 24 B2 |.2..J...1300:T$.|
00004200: 22 22 3A 85 22 D0 45 52 49 4F 44 20 4F 46 20 CC |"":.".ERIOD OF .|
00004210: 4F 41 4E 20 22 3B 54 24 00 36 4A B7 1B 8B 54 24 |OAN ";T$.6J...T$|
00004220: B2 22 22 A7 49 54 B2 49 54 AA 31 3A 43 41 B2 33 |."".IT.IT.1:CA.3|
00004230: 3A 89 37 31 31 30 00 4F 4A BC 1B 50 4C B2 C5 28 |:.7110.OJ..PL..(|
00004240: 54 24 29 3A 8B 50 4C B3 B2 30 A7 37 30 39 30 00 |T$):.PL..0.7090.|
00004250: 73 4A C1 1B 8D 35 33 30 30 20 3A 99 A3 33 31 29 |sJ...5300 :..31)|
00004260: 3B 3A 54 4E B2 50 4C 3A 8D 32 33 30 30 3A 50 33 |;:TN.PL:.2300:P3|
00004270: B2 50 4C 00 7F 4A C6 1B 4E 54 B2 4E 54 AA 32 00 |.PL..J..NT.NT.2.|
00004280: A8 4A CB 1B 8D 31 33 30 30 3A 54 24 B2 22 22 3A |.J...1300:T$."":|
00004290: 85 22 CD 4F 4E 54 48 4C 59 20 D2 45 50 41 59 4D |.".ONTHLY .EPAYM|
000042A0: 45 4E 54 20 22 3B 54 24 00 C6 4A D0 1B 8B 54 24 |ENT ";T$..J...T$|
000042B0: B2 22 22 A7 49 54 B2 49 54 AA 31 3A 43 41 B2 34 |."".IT.IT.1:CA.4|
000042C0: 3A 89 37 31 34 30 00 D3 4A D5 1B 4D 52 B2 C5 28 |:.7140..J..MR..(|
000042D0: 54 24 29 00 F7 4A DA 1B 8D 35 33 30 30 20 3A 99 |T$)..J...5300 :.|
000042E0: A3 33 31 29 3B 3A 54 4E B2 4D 52 3A 8D 32 33 30 |.31);:TN.MR:.230|
000042F0: 30 3A 50 34 B2 4D 52 00 01 4B E4 1B 8D 31 33 30 |0:P4.MR..K...130|
00004300: 30 00 27 4B E9 1B 8B 49 54 B1 31 A7 99 22 91 D4 |0.'K...IT.1.."..|
00004310: 4F 4F 20 CD 41 4E 59 20 D5 4E 4B 4E 4F 57 4E 53 |OO .ANY .NKNOWNS|
00004320: 22 3A 89 37 33 38 30 00 50 4B EE 1B 8B 49 54 B2 |":.7380.PK...IT.|
00004330: 30 A7 99 22 91 CE 4F 54 48 49 4E 47 20 54 4F 20 |0.."..OTHING TO |
00004340: C3 41 4C 43 55 4C 41 54 45 22 3A 89 37 33 38 30 |.ALCULATE":.7380|
00004350: 00 7C 4B F3 1B 8D 31 33 30 30 3A 85 22 C2 41 4E |.|K...1300:.".AN|
00004360: 4B 20 CC 4F 41 4E 20 4F 52 20 CD 4F 52 54 47 41 |K .OAN OR .ORTGA|
00004370: 47 45 28 42 2F 4D 29 20 22 3B 4B 24 00 8D 4B F8 |GE(B/M) ";K$..K.|
00004380: 1B 8B 4B 24 B2 22 42 22 A7 37 31 38 30 00 9F 4B |..K$."B".7180..K|
00004390: FD 1B 8B 4B 24 B3 B1 22 4D 22 A7 37 31 35 35 00 |...K$.."M".7155.|
000043A0: B2 4B 02 1C 4D 52 B2 4D 52 AC 31 32 3A 89 37 31 |.K..MR.MR.12:.71|
000043B0: 39 30 00 D1 4B 0C 1C 41 42 B2 41 42 AC 31 32 3A |90..K..AB.AB.12:|
000043C0: 52 49 B2 52 49 AD 31 32 3A 50 4C B2 50 4C AC 31 |RI.RI.12:PL.PL.1|
000043D0: 32 00 ED 4B 16 1C 91 43 41 89 37 32 30 30 2C 37 |2..K...CA.7200,7|
000043E0: 32 35 30 2C 37 33 30 30 2C 37 33 35 30 00 02 4C |250,7300,7350..L|
000043F0: 20 1C 59 59 B2 28 31 AA 52 49 AD 31 30 30 29 AE | .YY.(1.RI.100).|
00004400: 50 4C 00 21 4C 25 1C 50 50 B2 28 4D 52 AC 28 59 |PL.!L%.PP.(MR.(Y|
00004410: 59 AB 31 29 29 AD 28 59 59 AC 52 49 AD 31 30 30 |Y.1)).(YY.RI.100|
00004420: 29 00 2E 4C 2A 1C 50 50 B2 B5 28 50 50 29 00 58 |)..L*.PP..(PP).X|
00004430: 4C 2F 1C 4E 54 20 B2 20 31 3A 8D 35 33 30 30 3A |L/.NT . 1:.5300:|
00004440: 99 A3 33 31 29 3B 3A 54 4E B2 50 50 3A 8D 32 33 |..31);:TN.PP:.23|
00004450: 30 30 3A 50 31 B2 50 50 00 62 4C 34 1C 89 37 33 |00:P1.PP.bL4..73|
00004460: 37 35 00 77 4C 52 1C 8B 4B 24 B2 22 42 22 A7 41 |75.wLR..K$."B".A|
00004470: 42 B2 41 42 AD 31 32 00 89 4C 57 1C 49 54 B2 28 |B.AB.12..LW.IT.(|
00004480: 50 4C AC 4D 52 29 AB 41 42 00 A0 4C 5C 1C 49 54 |PL.MR).AB..L\.IT|
00004490: B2 28 B5 28 49 54 AC 31 30 30 29 29 AD 31 30 30 |.(.(IT.100)).100|
000044A0: 00 D3 4C 61 1C 4E 54 B2 39 3A 8D 35 33 30 30 3A |..La.NT.9:.5300:|
000044B0: 99 22 D4 4F 54 41 4C 20 C9 4E 54 45 52 45 53 54 |.".OTAL .NTEREST|
000044C0: 20 D0 41 59 41 42 4C 45 22 3B A3 32 35 29 3B 22 | .AYABLE";.25);"|
000044D0: 5C 22 3B 00 F0 4C 62 1C 99 A3 33 31 29 3B 3A 54 |\";..Lb...31);:T|
000044E0: 4E B2 49 54 3A 8D 32 33 30 30 3A 50 35 B2 49 54 |N.IT:.2300:P5.IT|
000044F0: 00 05 4D 66 1C 8B 4B 24 B2 22 42 22 A7 50 4C B2 |..Mf..K$."B".PL.|
00004500: 50 4C AD 31 32 00 1D 4D 68 1C 52 49 B2 28 28 49 |PL.12..Mh.RI.((I|
00004510: 54 AD 50 4C 29 AD 41 42 29 AC 31 30 30 00 34 4D |T.PL).AB).100.4M|
00004520: 6B 1C 52 49 B2 28 B5 28 52 49 AC 31 30 30 29 29 |k.RI.(.(RI.100))|
00004530: AD 31 30 30 00 5C 4D 70 1C 4E 54 B2 33 3A 8D 35 |.100.\Mp.NT.3:.5|
00004540: 33 30 30 3A 99 A3 33 31 29 3B 3A 54 4E B2 52 49 |300:..31);:TN.RI|
00004550: 3A 8D 32 33 30 30 3A 50 32 B2 52 49 00 66 4D 75 |:.2300:P2.RI.fMu|
00004560: 1C 89 37 33 37 35 00 7B 4D 84 1C 8B 4B 24 B2 22 |..7375.{M...K$."|
00004570: 42 22 A7 41 42 B2 41 42 AD 31 32 00 8B 4D 8E 1C |B".AB.AB.12..M..|
00004580: 81 51 B2 31 A4 31 30 30 30 30 30 00 9C 4D 93 1C |.Q.1.100000..M..|
00004590: 4D 4D B2 41 42 AC 52 49 AD 31 30 30 00 AC 4D 98 |MM.AB.RI.100..M.|
000045A0: 1C 41 42 B2 41 42 AA 4D 4D AB 4D 52 00 BC 4D 9D |.AB.AB.MM.MR..M.|
000045B0: 1C 8B 41 42 B3 B2 30 A7 37 33 33 31 00 C3 4D A2 |..AB..0.7331..M.|
000045C0: 1C 82 51 00 EA 4D A3 1C 8B 4B 24 B2 22 C2 22 A7 |..Q..M...K$.".".|
000045D0: 20 4E 54 B2 35 3A 8D 35 33 30 30 3A 99 A3 32 35 | NT.5:.5300:..25|
000045E0: 29 3B 22 4D 4F 4E 54 48 53 22 00 13 4E A7 1C 4E |);"MONTHS"..N..N|
000045F0: 54 B2 35 3A 8D 35 33 30 30 3A 99 A3 33 31 29 3B |T.5:.5300:..31);|
00004600: 3A 54 4E B2 51 AB 31 3A 8D 32 33 30 30 3A 50 33 |:TN.Q.1:.2300:P3|
00004610: B2 54 4E 00 1D 4E AC 1C 89 37 33 37 35 00 32 4E |.TN..N...7375.2N|
00004620: B6 1C 4D 52 B2 28 31 AA 52 49 AD 31 30 30 29 AE |..MR.(1.RI.100).|
00004630: 50 4C 00 4F 4E BB 1C 59 59 B2 41 42 AC 4D 52 AC |PL.ON..YY.AB.MR.|
00004640: 52 49 AD 28 31 30 30 AC 28 4D 52 AB 31 29 29 00 |RI.(100.(MR.1)).|
00004650: 6F 4E C0 1C 59 59 B2 59 59 AD 31 32 3A 59 59 B2 |oN..YY.YY.12:YY.|
00004660: 28 B5 28 59 59 AC 31 30 30 29 29 AD 31 30 30 00 |(.(YY.100)).100.|
00004670: 97 4E C5 1C 4E 54 B2 37 3A 8D 35 33 30 30 3A 99 |.N..NT.7:.5300:.|
00004680: A3 33 31 29 3B 3A 54 4E B2 59 59 3A 8D 32 33 30 |.31);:TN.YY:.230|
00004690: 30 3A 50 34 B2 54 4E 00 A1 4E CF 1C 8D 39 36 30 |0:P4.TN..N...960|
000046A0: 30 00 B1 4E D4 1C 8D 31 36 30 30 3A 8D 39 32 30 |0..N...1600:.920|
000046B0: 30 00 CE 4E D9 1C 8D 31 33 30 30 3A 85 22 D2 45 |0..N...1300:.".E|
000046C0: 50 45 41 54 28 59 2F 4E 29 20 22 3B 4B 24 00 E0 |PEAT(Y/N) ";K$..|
000046D0: 4E DE 1C 8B 4B 24 B3 B1 22 59 22 A7 89 32 30 30 |N...K$.."Y"..200|
000046E0: 00 EA 4E E3 1C 89 37 30 30 30 00 F0 4E 40 1F 8F |..N...7000..N@..|
000046F0: 00 12 4F 41 1F 8F 20 53 45 41 52 43 48 20 46 4F |..OA.. SEARCH FO|
00004700: 52 20 44 45 54 41 49 4C 53 20 49 4E 20 46 49 4C |R DETAILS IN FIL|
00004710: 45 53 00 18 4F 42 1F 8F 00 50 4F 4A 1F 8D 31 33 |ES..OB...POJ..13|
00004720: 30 30 3A 4B 24 B2 22 22 3A 85 22 D3 45 41 52 43 |00:K$."":.".EARC|
00004730: 48 20 42 59 20 C4 45 54 41 49 4C 53 20 4F 52 20 |H BY .ETAILS OR |
00004740: C1 4D 4F 55 4E 54 28 44 2F 41 29 20 22 3B 4B 24 |.MOUNT(D/A) ";K$|
00004750: 00 61 4F 54 1F 8B 4B 24 B2 22 44 22 A7 38 31 30 |.aOT..K$."D".810|
00004760: 30 00 72 4F 59 1F 8B 4B 24 B2 22 41 22 A7 38 32 |0.rOY..K$."A".82|
00004770: 30 30 00 81 4F 5E 1F 8B 4B 24 B2 22 22 A7 32 30 |00..O^..K$."".20|
00004780: 30 00 8B 4F 63 1F 89 38 30 31 30 00 91 4F A4 1F |0..Oc..8010..O..|
00004790: 8F 00 AA 4F A5 1F 8F 20 53 45 41 52 43 48 20 46 |...O... SEARCH F|
000047A0: 4F 52 20 44 45 54 41 49 4C 53 00 B0 4F A6 1F 8F |OR DETAILS..O...|
000047B0: 00 D0 4F A9 1F 8D 31 33 30 30 3A 99 22 91 D3 45 |..O...1300:."..E|
000047C0: 41 52 43 48 20 42 59 20 C4 45 54 41 49 4C 53 22 |ARCH BY .ETAILS"|
000047D0: 00 F1 4F AE 1F 44 4C 24 B2 22 22 3A 85 22 C5 4E |..O..DL$."":.".N|
000047E0: 54 45 52 20 44 45 54 41 49 4C 53 20 22 3B 44 4C |TER DETAILS ";DL|
000047F0: 24 00 0E 50 B3 1F 8B C3 28 44 4C 24 29 B1 31 30 |$..P....(DL$).10|
00004800: A7 44 4C 24 B2 C8 28 44 4C 24 2C 31 30 29 00 1E |.DL$..(DL$,10)..|
00004810: 50 B8 1F 8B 44 4C 24 B2 22 22 A7 38 30 30 00 34 |P...DL$."".800.4|
00004820: 50 BD 1F 8D 39 30 30 30 3A 8B 50 52 B1 30 A7 8D |P...9000:.PR.0..|
00004830: 39 37 30 30 00 3E 50 C2 1F 8D 38 31 38 30 00 50 |9700.>P...8180.P|
00004840: 50 C7 1F 81 54 54 B2 31 A4 54 52 28 30 2C 30 29 |P...TT.1.TR(0,0)|
00004850: 00 66 50 CC 1F 8B 54 52 24 28 54 54 29 B2 44 4C |.fP...TR$(TT).DL|
00004860: 24 A7 38 31 35 30 00 74 50 D1 1F 82 54 54 3A 8D |$.8150.tP...TT:.|
00004870: 31 36 30 30 00 83 50 D2 1F 8D 39 32 30 30 3A 89 |1600..P...9200:.|
00004880: 38 30 30 00 8D 50 D6 1F 8D 38 33 30 30 00 A2 50 |800..P...8300..P|
00004890: E5 1F 4C B2 4C AA 31 3A 8B 4C B3 31 37 A7 38 31 |..L.L.1:.L.17.81|
000048A0: 34 35 00 DA 50 EA 1F 8D 31 33 30 30 3A 99 22 D0 |45..P...1300:.".|
000048B0: 52 45 53 53 20 41 20 4B 45 59 20 54 4F 20 C3 4F |RESS A KEY TO .O|
000048C0: 4E 54 49 4E 55 45 22 3B 3A 8D 32 30 35 30 3A 8D |NTINUE";:.2050:.|
000048D0: 38 31 38 30 3A 89 38 31 34 35 00 F1 50 F4 1F 99 |8180:.8145..P...|
000048E0: 22 93 D3 45 41 52 43 48 20 42 59 20 22 3B 44 4C |"..EARCH BY ";DL|
000048F0: 24 00 1A 51 F9 1F 99 22 20 C4 41 54 45 22 3B A3 |$..Q..." .ATE";.|
00004900: 31 30 29 3B 22 C4 45 54 41 49 4C 53 22 3B A3 32 |10);".ETAILS";.2|
00004910: 35 29 3B 22 5C 2E 50 22 3A 99 00 24 51 FE 1F 4C |5);"\.P":..$Q..L|
00004920: B2 31 3A 8E 00 2A 51 08 20 8F 00 41 51 09 20 8F |.1:..*Q. ..AQ. .|
00004930: 20 53 45 41 52 43 48 20 42 59 20 41 4D 4F 55 4E | SEARCH BY AMOUN|
00004940: 54 00 47 51 0A 20 8F 00 66 51 0D 20 8D 31 33 30 |T.GQ. ..fQ. .130|
00004950: 30 3A 99 22 91 D3 45 41 52 43 48 20 42 59 20 C1 |0:."..EARCH BY .|
00004960: 4D 4F 55 4E 54 22 00 86 51 0F 20 54 41 24 B2 22 |MOUNT"..Q. TA$."|
00004970: 22 3A 85 22 C5 4E 54 45 52 20 41 4D 4F 55 4E 54 |":.".NTER AMOUNT|
00004980: 20 22 3B 54 41 24 00 96 51 12 20 8B 54 41 24 B2 | ";TA$..Q. .TA$.|
00004990: 22 22 A7 38 30 30 00 A4 51 17 20 54 41 B2 C5 28 |"".800..Q. TA..(|
000049A0: 54 41 24 29 00 CE 51 19 20 8B 54 41 B1 39 39 39 |TA$)..Q. .TA.999|
000049B0: 39 39 2E 39 39 B0 54 41 B3 AB 39 39 39 39 39 2E |99.99.TA..99999.|
000049C0: 39 39 A7 8D 32 37 30 30 3A 89 38 32 30 35 00 06 |99..2700:.8205..|
000049D0: 52 1C 20 54 24 B2 22 22 3A 8D 31 33 35 30 3A 85 |R. T$."":.1350:.|
000049E0: 22 C4 45 42 49 54 20 4F 52 20 C3 52 45 44 49 54 |".EBIT OR .REDIT|
000049F0: 28 44 2F 43 29 20 22 3B 54 24 3A 8B 54 24 B2 22 |(D/C) ";T$:.T$."|
00004A00: 22 A7 38 32 32 30 00 1F 52 1E 20 8B 54 24 B2 22 |".8220..R. .T$."|
00004A10: 44 22 A7 54 41 B2 AB 54 41 3A 89 38 32 33 30 00 |D".TA..TA:.8230.|
00004A20: 30 52 21 20 8B 54 24 B2 22 43 22 A7 38 32 33 30 |0R! .T$."C".8230|
00004A30: 00 3A 52 23 20 89 38 32 32 30 00 50 52 26 20 8D |.:R# .8220.PR& .|
00004A40: 39 30 30 30 3A 8B 50 52 B1 30 A7 8D 39 38 30 30 |9000:.PR.0..9800|
00004A50: 00 5A 52 27 20 8D 38 32 38 30 00 6C 52 2B 20 81 |.ZR' .8280.lR+ .|
00004A60: 54 54 B2 31 A4 54 52 28 30 2C 30 29 00 82 52 30 |TT.1.TR(0,0)..R0|
00004A70: 20 8B 54 52 28 54 54 2C 32 29 B2 54 41 A7 38 32 | .TR(TT,2).TA.82|
00004A80: 35 30 00 90 52 35 20 82 54 54 3A 8D 31 36 30 30 |50..R5 .TT:.1600|
00004A90: 00 9F 52 36 20 8D 39 32 30 30 3A 89 38 30 30 00 |..R6 .9200:.800.|
00004AA0: A9 52 3A 20 8D 38 33 30 30 00 BE 52 49 20 4C B2 |.R: .8300..RI L.|
00004AB0: 4C AA 31 3A 8B 4C B3 31 37 A7 38 32 34 35 00 D4 |L.1:.L.17.8245..|
00004AC0: 52 4E 20 8D 31 36 30 30 3A 8D 38 32 38 30 3A 89 |RN .1600:.8280:.|
00004AD0: 38 32 34 35 00 EB 52 58 20 99 22 93 D3 45 41 52 |8245..RX ."..EAR|
00004AE0: 43 48 20 42 59 20 5C 22 3B 54 41 00 14 53 5D 20 |CH BY \";TA..S] |
00004AF0: 99 22 20 C4 41 54 45 22 3B A3 31 30 29 3B 22 C4 |." .ATE";.10);".|
00004B00: 45 54 41 49 4C 53 22 3B A3 32 35 29 3B 22 5C 2E |ETAILS";.25);"\.|
00004B10: 50 22 3A 99 00 1E 53 62 20 4C B2 31 3A 8E 00 24 |P":...Sb L.1:..$|
00004B20: 53 6C 20 8F 00 3A 53 76 20 44 54 B2 54 52 28 54 |Sl ..:Sv DT.TR(T|
00004B30: 54 2C 30 29 3A 8D 31 32 30 30 00 60 53 80 20 99 |T,0):.1200.`S. .|
00004B40: 44 3B 22 9D 22 3B 4D 24 28 4D 29 3B 59 3B A3 31 |D;".";M$(M);Y;.1|
00004B50: 30 29 3B 54 52 24 28 54 54 29 3B A3 32 31 29 3B |0);TR$(TT);.21);|
00004B60: 00 7B 53 8A 20 54 4E B2 54 52 28 54 54 2C 32 29 |.{S. TN.TR(TT,2)|
00004B70: 3A 4E 4C B2 31 3A 8D 32 33 30 30 00 8B 53 94 20 |:NL.1:.2300..S. |
00004B80: 8B 50 52 B1 30 A7 8D 39 37 35 30 00 91 53 9E 20 |.PR.0..9750..S. |
00004B90: 8E 00 97 53 28 23 8F 00 B3 53 29 23 8F 20 41 53 |...S(#...S)#. AS|
00004BA0: 4B 20 41 42 4F 55 54 20 54 48 45 20 50 52 49 4E |K ABOUT THE PRIN|
00004BB0: 54 45 52 00 B9 53 2A 23 8F 00 DF 53 2D 23 8D 31 |TER..S*#...S-#.1|
00004BC0: 33 30 30 3A 85 22 C3 4F 50 59 20 54 4F 20 D0 52 |300:.".OPY TO .R|
00004BD0: 49 4E 54 45 52 28 59 2F 4E 29 20 22 3B 4B 24 00 |INTER(Y/N) ";K$.|
00004BE0: F3 53 32 23 50 52 B2 30 3A 8B 4B 24 B3 B1 22 59 |.S2#PR.0:.K$.."Y|
00004BF0: 22 A7 8E 00 13 54 37 23 97 32 35 31 20 2C 34 3A |"....T7#.251 ,4:|
00004C00: 9E 34 39 31 36 34 3A 8B C2 28 32 35 31 29 B3 B1 |.49164:..(251)..|
00004C10: 30 A7 8E 00 25 54 3C 23 50 52 B2 31 3A 9F 31 2C |0...%T<#PR.1:.1,|
00004C20: 34 2C 37 3A 8E 00 2B 54 5A 23 8F 00 45 54 5F 23 |4,7:..+TZ#..ET_#|
00004C30: 98 31 2C 22 D3 54 41 54 45 4D 45 4E 54 20 46 52 |.1,".TATEMENT FR|
00004C40: 4F 4D 20 22 3B 00 6A 54 64 23 44 54 B2 53 44 3A |OM ";.jTd#DT.SD:|
00004C50: 8D 31 32 30 30 3A 98 31 2C 44 3B 4D 24 28 4D 29 |.1200:.1,D;M$(M)|
00004C60: 3B 59 3B 22 20 54 4F 20 22 3B 00 87 54 69 23 44 |;Y;" TO ";..Ti#D|
00004C70: 54 B2 45 44 3A 8D 31 32 30 30 3A 98 31 2C 44 3B |T.ED:.1200:.1,D;|
00004C80: 4D 24 28 4D 29 3B 59 00 92 54 6A 23 98 31 2C 4C |M$(M);Y..Tj#.1,L|
00004C90: 46 24 00 CD 54 6E 23 98 31 2C 22 20 C4 41 54 45 |F$..Tn#.1," .ATE|
00004CA0: 22 3B 54 42 24 3B 22 31 35 C4 45 54 41 49 4C 53 |";TB$;"15.ETAILS|
00004CB0: 22 3B 54 42 24 3B 22 33 35 5C 2E 50 22 3B 54 42 |";TB$;"35\.P";TB|
00004CC0: 24 3B 22 34 35 C2 41 4C 41 4E 43 45 22 00 D8 54 |$;"45.ALANCE"..T|
00004CD0: 73 23 98 31 2C 4C 46 24 00 DE 54 8B 23 8E 00 E4 |s#.1,LF$..T.#...|
00004CE0: 54 8C 23 8F 00 FE 54 8D 23 8F 20 50 4F 53 49 54 |T.#...T.#. POSIT|
00004CF0: 49 4F 4E 20 50 52 49 4E 54 20 48 45 41 44 00 08 |ION PRINT HEAD..|
00004D00: 55 8F 23 4E 55 B2 54 4E 00 23 55 96 23 4D 49 B2 |U.#NU.TN.#U.#MI.|
00004D10: 30 3A 8B 4E 55 B3 30 A7 4E 55 B2 AB 4E 55 3A 4D |0:.NU.0.NU..NU:M|
00004D20: 49 B2 31 00 38 55 A0 23 8B 4E 55 B3 31 30 30 30 |I.1.8U.#.NU.1000|
00004D30: A7 98 31 2C A6 31 29 3B 00 4C 55 AA 23 8B 4E 55 |..1,.1);.LU.#.NU|
00004D40: B3 31 30 30 A7 98 31 2C A6 31 29 3B 00 5F 55 B4 |.100..1,.1);._U.|
00004D50: 23 8B 4E 55 B3 31 30 A7 98 31 2C A6 31 29 3B 00 |#.NU.10..1,.1);.|
00004D60: 70 55 C8 23 8B 4D 49 B2 31 A7 4E 55 B2 AB 4E 55 |pU.#.MI.1.NU..NU|
00004D70: 00 7A 55 C9 23 8D 32 34 30 30 00 89 55 CD 23 8B |.zU.#.2400..U.#.|
00004D80: 4E 4C B2 31 A7 39 31 37 35 00 97 55 D2 23 98 31 |NL.1.9175..U.#.1|
00004D90: 2C 4E 55 24 3B 3A 8E 00 A4 55 D7 23 98 31 2C 4E |,NU$;:...U.#.1,N|
00004DA0: 55 24 3A 8E 00 AA 55 F0 23 8F 00 B6 55 F5 23 8B |U$:...U.#...U.#.|
00004DB0: 50 52 B2 30 A7 8E 00 C4 55 FA 23 A0 31 3A 50 52 |PR.0....U.#.1:PR|
00004DC0: B2 30 3A 8E 00 F0 55 22 24 98 31 2C 44 3B 4D 24 |.0:...U"$.1,D;M$|
00004DD0: 28 4D 29 3B 59 3B 54 42 24 3B 22 31 35 22 3B 54 |(M);Y;TB$;"15";T|
00004DE0: 52 24 28 54 54 29 3B 54 42 24 3B 22 33 31 22 3B |R$(TT);TB$;"31";|
00004DF0: 00 18 56 27 24 54 4E B2 54 52 28 54 54 2C 32 29 |..V'$TN.TR(TT,2)|
00004E00: 3A 4E 4C B2 30 3A 8D 39 31 30 30 3A 98 31 2C 54 |:NL.0:.9100:.1,T|
00004E10: 42 24 3B 22 34 35 22 3B 00 2D 56 2C 24 54 4E B2 |B$;"45";.-V,$TN.|
00004E20: 42 42 3A 4E 4C B2 31 3A 8D 39 31 30 30 00 33 56 |BB:NL.1:.9100.3V|
00004E30: 36 24 8E 00 39 56 54 24 8F 00 7C 56 59 24 98 31 |6$..9VT$..|VY$.1|
00004E40: 2C 22 20 20 C4 41 54 45 22 3B 54 42 24 3B 22 31 |," .ATE";TB$;"1|
00004E50: 35 C4 45 54 41 49 4C 53 22 3B 54 42 24 3B 22 33 |5.ETAILS";TB$;"3|
00004E60: 30 C2 55 44 47 45 54 20 C8 45 41 44 49 4E 47 22 |0.UDGET .EADING"|
00004E70: 3B 54 42 24 3B 22 35 35 5C 2E 50 22 00 87 56 5A |;TB$;"55\.P"..VZ|
00004E80: 24 98 31 2C 4C 46 24 00 8D 56 5E 24 8E 00 93 56 |$.1,LF$..V^$...V|
00004E90: 86 24 8F 00 C7 56 8B 24 98 31 2C 44 3B 4D 24 28 |.$...V.$.1,D;M$(|
00004EA0: 4D 29 3B 59 3B 54 42 24 3B 22 31 35 22 3B 44 4C |M);Y;TB$;"15";DL|
00004EB0: 24 3B 54 42 24 3B 22 33 30 22 3B 54 24 3B 54 42 |$;TB$;"30";T$;TB|
00004EC0: 24 3B 22 35 31 22 3B 00 DE 56 90 24 54 4E B2 54 |$;"51";..V.$TN.T|
00004ED0: 41 3A 8B 54 4E B3 30 A7 54 4E B2 AB 54 4E 00 ED |A:.TN.0.TN..TN..|
00004EE0: 56 95 24 4E 4C B2 30 3A 8D 39 31 30 30 00 01 57 |V.$NL.0:.9100..W|
00004EF0: 9A 24 8B 54 41 B3 30 A7 98 31 2C 22 20 20 20 44 |.$.TA.0..1," D|
00004F00: 22 00 16 57 9F 24 8B 54 41 B1 B2 30 A7 98 31 2C |"..W.$.TA..0..1,|
00004F10: 22 20 20 20 43 22 00 1C 57 A4 24 8E 00 22 57 B8 |" C"..W.$.."W.|
00004F20: 24 8F 00 5C 57 BD 24 98 31 2C 54 42 24 3B 22 32 |$..\W.$.1,TB$;"2|
00004F30: 32 C2 55 44 47 45 54 22 3B 54 42 24 3B 22 33 35 |2.UDGET";TB$;"35|
00004F40: C1 43 54 55 41 4C 22 3B 54 42 24 3B 22 35 30 D6 |.CTUAL";TB$;"50.|
00004F50: 41 52 49 41 4E 43 45 22 3B 4C 46 24 00 62 57 C2 |ARIANCE";LF$.bW.|
00004F60: 24 8E 00 68 57 EA 24 8F 00 85 57 EF 24 98 31 2C |$..hW.$...W.$.1,|
00004F70: 42 44 24 28 42 43 29 3A 98 31 2C 22 C3 4F 44 45 |BD$(BC):.1,".ODE|
00004F80: 22 3B 42 43 3B 00 AA 57 F4 24 98 31 2C 54 42 24 |";BC;..W.$.1,TB$|
00004F90: 22 32 30 22 3B 3A 54 4E B2 42 44 28 42 43 29 3A |"20";:TN.BD(BC):|
00004FA0: 4E 4C B2 30 3A 8D 39 31 30 30 00 DF 57 F9 24 98 |NL.0:.9100..W.$.|
00004FB0: 31 2C 54 42 24 22 33 33 22 3B 3A B5 28 28 54 4E |1,TB$"33";:.((TN|
00004FC0: B2 54 42 28 42 43 29 AC 31 30 30 29 AA 2E 35 29 |.TB(BC).100)..5)|
00004FD0: AD 31 30 30 3A 4E 4C B2 30 3A 8D 39 31 30 30 00 |.100:NL.0:.9100.|
00004FE0: 28 58 FE 24 98 31 2C 54 42 24 22 35 30 22 3B 3A |(X.$.1,TB$"50";:|
00004FF0: B5 28 28 54 4E B2 42 44 28 42 43 29 AC 31 30 30 |.((TN.BD(BC).100|
00005000: 29 AB 28 54 42 28 42 43 29 AC 31 30 30 29 AA 2E |).(TB(BC).100)..|
00005010: 35 29 AD 31 30 30 3A 4E 4C B2 31 3A 8D 39 31 30 |5).100:NL.1:.910|
00005020: 30 3A 98 31 2C 4C 46 24 00 2E 58 08 25 8E 00 34 |0:.1,LF$..X.%..4|
00005030: 58 1C 25 8F 00 56 58 21 25 98 31 2C 42 44 24 28 |X.%..VX!%.1,BD$(|
00005040: 42 43 29 3B 22 20 C1 4E 41 4C 59 53 49 53 22 3A |BC);" .NALYSIS":|
00005050: 98 31 2C 4C 46 24 00 60 58 26 25 8D 39 30 37 30 |.1,LF$.`X&%.9070|
00005060: 00 66 58 30 25 8E 00 6C 58 4E 25 8F 00 98 58 53 |.fX0%..lXN%...XS|
00005070: 25 98 31 2C 44 3B 4D 24 28 4D 29 3B 59 3B 54 42 |%.1,D;M$(M);Y;TB|
00005080: 24 3B 22 31 35 22 3B 54 52 24 28 54 54 29 3B 54 |$;"15";TR$(TT);T|
00005090: 42 24 3B 22 33 31 22 3B 00 C1 58 58 25 54 4E B2 |B$;"31";..XX%TN.|
000050A0: AB 54 52 28 54 54 2C 32 29 3A 4E 4C B2 30 3A 8D |.TR(TT,2):NL.0:.|
000050B0: 39 31 30 30 3A 98 31 2C 54 42 24 3B 22 34 35 22 |9100:.1,TB$;"45"|
000050C0: 3B 00 D6 58 5D 25 54 4E B2 42 41 3A 4E 4C B2 31 |;..X]%TN.BA:NL.1|
000050D0: 3A 8D 39 31 30 30 00 DC 58 62 25 8E 00 E2 58 80 |:.9100..Xb%...X.|
000050E0: 25 8F 00 EC 58 85 25 8D 39 30 30 30 00 F8 58 8A |%...X.%.9000..X.|
000050F0: 25 8B 50 52 B2 30 A7 8E 00 28 59 94 25 98 31 2C |%.PR.0...(Y.%.1,|
00005100: 22 C1 4D 4F 55 4E 54 20 C2 4F 52 52 4F 57 45 44 |".MOUNT .ORROWED|
00005110: 22 3B 54 42 24 3B 22 32 35 5C 22 3B 3A 54 4E B2 |";TB$;"25\";:TN.|
00005120: 50 31 3A 8D 39 36 38 30 00 59 59 9E 25 98 31 2C |P1:.9680.YY.%.1,|
00005130: 22 D2 41 54 45 20 4F 46 20 C9 4E 54 45 52 45 53 |".ATE OF .NTERES|
00005140: 54 22 3B 54 42 24 3B 22 32 35 25 22 3B 3A 54 4E |T";TB$;"25%";:TN|
00005150: B2 50 32 3A 8D 39 36 38 30 00 8C 59 A8 25 98 31 |.P2:.9680..Y.%.1|
00005160: 2C 22 D0 45 52 49 4F 44 20 4F 46 20 CC 4F 41 4E |,".ERIOD OF .OAN|
00005170: 22 3B 54 42 24 3B 22 32 35 59 45 41 52 53 22 3B |";TB$;"25YEARS";|
00005180: 3A 54 4E B2 50 33 3A 8D 39 36 38 30 00 C1 59 B2 |:TN.P3:.9680..Y.|
00005190: 25 98 31 2C 22 CD 4F 4E 54 48 4C 59 20 D2 45 50 |%.1,".ONTHLY .EP|
000051A0: 41 59 4D 45 4E 54 22 3B 54 42 24 3B 22 32 35 5C |AYMENT";TB$;"25\|
000051B0: 20 20 20 22 3B 3A 54 4E B2 50 34 3A 8D 39 36 38 | ";:TN.P4:.968|
000051C0: 30 00 D1 59 BC 25 8B 43 41 B3 B1 32 A7 39 36 39 |0..Y.%.CA..2.969|
000051D0: 39 00 FC 59 C1 25 98 31 2C 22 D4 4F 54 41 4C 20 |9..Y.%.1,".OTAL |
000051E0: C9 4E 54 45 52 45 53 54 20 D0 41 59 41 42 4C 45 |.NTEREST .AYABLE|
000051F0: 22 3B 54 42 24 3B 22 32 35 5C 22 3B 00 0C 5A C6 |";TB$;"25\";..Z.|
00005200: 25 54 4E B2 50 35 3A 8D 39 36 38 30 00 12 5A CB |%TN.P5:.9680..Z.|
00005210: 25 8E 00 2B 5A D0 25 98 31 2C 54 42 24 3B 22 33 |%..+Z.%.1,TB$;"3|
00005220: 30 22 3B 3A 8D 39 31 30 30 3A 8E 00 31 5A E3 25 |0";:.9100:..1Z.%|
00005230: 8E 00 37 5A E4 25 8F 00 62 5A E9 25 98 31 2C 22 |..7Z.%..bZ.%.1,"|
00005240: D3 45 41 52 43 48 20 42 59 20 22 3B C7 28 31 34 |.EARCH BY ";.(14|
00005250: 29 3B 44 4C 24 3B C7 28 31 35 29 3A 98 31 2C 4C |);DL$;.(15):.1,L|
00005260: 46 24 00 6E 5A EE 25 8D 39 33 30 30 3A 8E 00 8F |F$.nZ.%.9300:...|
00005270: 5A 16 26 42 43 B2 54 52 28 54 54 2C 31 29 3A 54 |Z.&BC.TR(TT,1):T|
00005280: 24 B2 42 44 24 28 42 43 29 3A 54 41 B2 54 4E 00 |$.BD$(BC):TA.TN.|
00005290: A3 5A 17 26 8B 42 43 B1 31 35 A7 42 43 B2 42 43 |.Z.&.BC.15.BC.BC|
000052A0: AB 31 36 00 AD 5A 18 26 8D 39 33 35 30 00 B3 5A |.16..Z.&.9350..Z|
000052B0: 1B 26 8E 00 C7 5A 1C 26 8B 42 43 B1 31 35 A7 42 |.&...Z.&.BC.15.B|
000052C0: 43 B2 42 43 AB 31 36 00 CD 5A 48 26 8F 00 FB 5A |C.BC.16..ZH&...Z|
000052D0: 4D 26 98 31 2C 22 D3 45 41 52 43 48 20 42 59 20 |M&.1,".EARCH BY |
000052E0: 22 3B C7 28 31 34 29 3B 22 5C 22 3B 54 41 3B C7 |";.(14);"\";TA;.|
000052F0: 28 31 35 29 3A 98 31 2C 4C 46 24 00 07 5B 52 26 |(15):.1,LF$..[R&|
00005300: 8D 39 33 30 30 3A 8E 00 28 5B 7A 26 42 43 B2 54 |.9300:..([z&BC.T|
00005310: 52 28 54 54 2C 31 29 3A 54 24 B2 42 44 24 28 42 |R(TT,1):T$.BD$(B|
00005320: 43 29 3A 54 41 B2 54 4E 00 3C 5B 7B 26 8B 42 43 |C):TA.TN.<[{&.BC|
00005330: B1 31 35 A7 42 43 B2 42 43 AB 31 36 00 46 5B 7C |.15.BC.BC.16.F[||
00005340: 26 8D 39 33 35 30 00 4C 5B 7F 26 8E 00 52 5B AC |&.9350.L[.&..R[.|
00005350: 26 8F 00 6F 5B AD 26 8F 20 50 52 49 4E 54 20 54 |&..o[.&. PRINT T|
00005360: 48 45 20 42 55 44 47 45 54 20 41 52 52 41 59 00 |HE BUDGET ARRAY.|
00005370: 75 5B AE 26 8F 00 95 5B AF 26 97 32 35 31 20 2C |u[.&...[.&.251 ,|
00005380: 34 3A 9E 34 39 31 36 34 3A 8B C2 28 32 35 31 29 |4:.49164:..(251)|
00005390: B3 B1 30 A7 8E 00 A0 5B B0 26 9F 31 2C 34 2C 37 |..0....[.&.1,4,7|
000053A0: 00 D5 5B B1 26 98 31 2C 22 C3 4F 44 45 22 3B 54 |..[.&.1,".ODE";T|
000053B0: 42 24 3B 22 30 38 C2 55 44 47 45 54 20 D4 49 54 |B$;"08.UDGET .IT|
000053C0: 4C 45 22 3B 54 42 24 22 32 38 5C 2E 50 22 3A 98 |LE";TB$"28\.P":.|
000053D0: 31 2C 4C 46 24 00 DD 5B B6 26 43 B2 31 00 EF 5B |1,LF$..[.&C.1..[|
000053E0: C0 26 8B 42 44 28 30 29 B2 30 A7 39 39 38 30 00 |.&.BD(0).0.9980.|
000053F0: 12 5C CA 26 98 31 2C 43 3B 54 42 24 3B 22 30 36 |.\.&.1,C;TB$;"06|
00005400: 22 3B 42 44 24 28 43 29 3B 54 42 24 3B 22 32 34 |";BD$(C);TB$;"24|
00005410: 22 3B 00 2A 5C D4 26 54 4E B2 42 44 28 43 29 3A |";.*\.&TN.BD(C):|
00005420: 4E 4C B2 31 3A 8D 39 31 30 30 00 43 5C ED 26 8B |NL.1:.9100.C\.&.|
00005430: 42 44 28 30 29 B2 43 A7 43 B2 43 AA 31 3A 89 39 |BD(0).C.C.C.1:.9|
00005440: 39 38 30 00 53 5C F2 26 43 B2 43 AA 31 3A 89 39 |980.S\.&C.C.1:.9|
00005450: 39 33 30 00 62 5C FC 26 8B 43 B2 31 37 A7 A0 31 |930.b\.&.C.17..1|
00005460: 3A 8E 00 77 5C 01 27 98 31 2C 43 3A 43 B2 43 AA |:..w\.'.1,C:C.C.|
00005470: 31 3A 89 39 39 38 30 00 00 00 00 |1:.9980.... |
.......Q.0.Q.Q.1:."CODE",8,1.>.... THIS
IS THE CASH CONTROLLER.^.... PROGRAM FOR
THE COMMODORE.U.... 64 HOME COMPUTER.{.
......... CONVERTED BY R.A. COOPER FEB 1
984.B.... ORIGIONAL BY R. SHEPHERD......
808,225:.768,15:.769,192...... COPYRIGHT
RICHARD SHEPHERD SOFTWARE LTD. 1984.. .
...G(8);.@.... THESE ARE THE ARRAYS USED
.I....BD$(16),BD(16),TB(16),M$(12),MO(12
)......TR$(400),TR(400,2)...D.BR.53280:B
K.53281.C.E.LC$.G(14):TB$.G(16):LF$.G(10
):CR$.G(13)...F.M$(1)."JAN":M$(2)."FEB":
M$(3)."MAR":M$(4)."APR":M$(5)."MAY":M$(6
)."JUN".^.G.M$(7)."JUL":M$(8)."AUG":M$(9
)."SEP":M$(10)."OCT":M$(11)."NOV":M$(12)
."DEC"...H.MO(1).31:MO(2).28:MO(3).31:MO
(4).30:MO(5).31:MO(6).30:MO(7).31:MO(8).
31.U.I.MO(9).30:MO(10).31:MO(11).30:MO(1
2).31...M..200...N..1600:.200...H.....I.
. HERE IS THE MASTER MENU...J...,.M..BR,
0:.BK,2:.LC$.N.R..".":."... MASTER
MENU".G.W..". 1 BUDGET MENU"......".
2 BANK ACCOUNT MENU"......". 3 MORTG
AGE/LOAN CALCULATOR".P....". 4 SAVE DA
TA TO TAPE/DISC"......". 5 ENTRY SEARC
H".....A$.""......1300:."ENTER YOUR OPTI
ON ";A$.&....A$."".245.<....A$."LJH590X"
.900.Q....A$."RANDAL".950.Q....E(A$).5.E
(A$).1..1400:.245......E(A$).300,400,500
,700,800...,.....-.. BUDGET MENU...1..BK
,6.V.6..".":."... BUDGET OPTIONS"..
.;..".. 1 ENTER NEW BUDGETS"...@..".
2 UPDATE BUDGETS".;.E..". 3 PRINT BUD
GETS AND VARIANCES".`.J..". 4 BREAKDOW
N BUDGET ACTUAL"...T..". 5 DELETE BUDG
ET DETAILS"...Y..". 6 PRINT BUDGET HEA
DINGS".J.^..". PRESS RETURN TO FINIS
H"...C.A$."":.1300:."ENTER YOUR OPTION "
;A$...E..A$."".200.".H..E(A$).1.E(A$).6.
.1400:.355.K.M..E(A$).4000,4100,4200,430
0,4500,4800.Q.....L.... BANK ACCOUNT OPT
IONS.R.....|....BK,8......".":."...
BANK ACCOUNT OPTIONS".G....".. 1 ENTE
R TRANSACTIONS"......". 2 STATEMENT RE
QUEST"......". 3 CLEAR TRANSACTION FIL
ES".,....". 4 SET OPENING BALANCE".O..
..". 5 ENTER STANDING ORDERS".W.B..".
6 DELETE/CHANGE TRANSACTIONS"...G..".
PRESS RETURN TO FINISH".D.L.A$."":.1
300:."ENTER YOUR OPTION ";A$.S.N..A$."".
200...Q..E(A$).1.E(A$).9..1400:.460.....
.E(A$).5100,5500,5800,5000,5900,480,200.
L...K$."":.1350:."DELETE OR CHANGE(D/C)
";K$.[....K$."".400.L....K$."D".6200.}..
..K$."C".6500......480......1350:.".TRAN
SACTION FILES EMPTY":.460.......V.... MO
RTGAGE/LOAN CALCULATOR............BK,14:
.LC$:ER$.""......".. MORTGAGE/LOAN CAL
CULATOR".E....".THERE ARE FOUR ELEMENTS
TO ANY LOAN.".O...."THESE ARE, AMOUNT BO
RROWED,RATE OF"......"INTEREST,PERIOD OF
TIME, AND MONTHLY"......"REPAYMENT.".X.
..."BY ENTERING ANY THREE OF THESE THE "
......"FOURTH WILL BE CALCULATED. THE UN
KNOWN".5.!.."FACTOR IS ENTERED BY PRESSI
NG RETURN ON".E.&.."ITS OWN.".W.+..1300:
."PRESS A KEY TO CONTINUE";:.2050:.7000.
}.......... SAVE THE DATA TO PERMANENT S
TORE.........A..3000... ...P.!.. SEARCH
THE DATA.V.".....%..BK,8...*..".":."....
........ SEARCH FOR ENTRY"...4..
8000.%...."."./....3050.=....DV.8.930.S.
...49152,"CASH",1,1.Y.....R....49152,"@0
:CASH",8,1.X..........808,237:.768,139:.
769,227.................. INPUT THE DATE
.......L...D$."":.D$.....P.1:D.0:M.0:Y.0
......1150......CH$."".1130......CH$."/"
.CH$.".".CH$.",".1062.;....F(CH$).48.F(C
H$).57.1130.Z...D.(D.10).E(CH$):.D.31.11
30.D.$..1040.S.&..D..0.1130.}.)..1150...
*..CH$."".1130......CH$."/".CH$.".".CH$.
",".1078.N.0..F(CH$).48.F(CH$).57.1130..
.3.M.(M.10).E(CH$):.M.12.1130...5..1065.
..6..M..0.1130...8..1150.9.=..CH$."/".CH
$.".".CH$.",".CH$."".1100.W.?..F(CH$).48
.F(CH$).57.1130.V.B.Y.(Y.10).E(CH$):.Y.9
9.1130...D..P.C(D$).1.1100...G..1080...L
..Y..0.1130.A.N..D.29.M.2.Y.4..(Y.4).111
0.S.Q..D.MO(M).1130...V.DT.(Y.10000).(M.
100).D...`.....J.D.0:....~.CH$.J(D$,P,1)
:P.P.1:........5.... EXTRACT THE DATE.;.
....M...Y..(DT.10000).A...RE.DT.(Y.10000
).Q...M..(RE.100)...D.D.RE.(M.100)...I..
............ POSITION TO INPUT LINE AND
CLEAR IT.......H....1330......"
":.".";...(
...%.2.."........................";:..+.
F...I.G.. CLEAR BOTTOM FIVE LINES.O.H...
C.P..49161 :.1330:..I.X...O.Y...U.Z.....
}..1300:.".INVALID OPTION":.............
GET YES OR NO ANSWER.E...YN$."":.YN$.Y.
...YN$."Y".YN.1:......YN..1:....@.....J.
.1300:."PRESS A KEY TO CONTINUE";:.2050.
..T...#.O...Q.P.."......................
...";ER$:ER$."":..E....C$:.C$."".2050.K.
....Q.4.....5.. DISPLAY THE BUDGET ARRAY
...6...E.9..".";"CODE";.8);"BUDGET TITLE
";.28);"\.P.".M.>.C.1...H..BD(0).0.2180.
..R..C;.6);BD$(C);.24);...\.TN.BD(C):NL.
1:.2300.(.U..BD(0).C.C.C.1:.2180.8.Z.C.C
.1:.2130.D....C.17...W....C:C.C.1:.2180.
].....~.... SEARCH THE BUDGET HEADINGS..
..........BD(0).0.BC.0:.......BC.1.BD(0)
......T$.BD$(BC)...I....BC:BC.0:..O.....
..... POSITION CURSOR FOR NUMBERS......
AND PRINT THEM...........NU.TN.1...MI.0:
.NU.0.NU..NU:MI.1.D....NU.1000...1);.V..
..NU.100...1);.G.$..NU.10...1);.X.8..MI.
1.NU..NU...9..2400...=..NL.1.2375...B..N
U$;:....G..NU$:....`...H.A.. PRINT NUMBE
R STRING.N.B.....E.NN$.D(NU):NU$."".H(NN
$,1)...J.DP%.0:DF.0...O..NS.2.C(NN$)...Q
.N$.J(NN$,NS,1)...T.NU$.NU$.N$.?.Y..N$."
.".DF.1.[.~..DF.1.N$..".".DP%.DP%.1.Q...
.DF.1.DP%..2.2445.Y....NS......DP%.0.NU$
.NU$.".00"......DP%.1.NU$.NU$."0".......
..D...W.E.. SEARCH THE FILES BY DETAILS.
..F.....N..EN.TT.TR(0,0)...X..TR$(EN).DL
$.TR(EN,0)..0........EN:EN.O:..$.(...D.)
.. PACK THE TRANSACTION FILE.J.*...F.-..
1300:."PACKING FILES";.X.2..PP.1.TR(0,0)
...<..TR(PP,0).0.2640...F..PP:....P.CT.P
P:CF.PP.1.A.Z..TR(CF,0).0.CF.CF.1..._..C
F.TR(0,0).TR(0,0).CT.1:....A..TR(CF,0).0
.2650.?.D.TR$(CT).TR$(CF):TR(CT,0).TR(CF
,0):TR(CT,1).TR(CF,1):TR(CT,2).TR(CF,2).
Y.I.CT.CT.1:CF.CF.1:.2650._.....E.....K.
........."..INVALID AMOUNT".............
..... SAVE AND LOAD THE DATA............
"."...B.K$."":.1300:."LOAD OR SAVE DATA
";K$:.K$."".200...L..K$."L".3100...V..K$
."S".3500......3010.H...K$."":.1300:."US
E TAPE OR DISC(T/D) ";K$.X....K$."".3000
.N...DV.1:.K$."D".3075.T..........251 ,8
:.49164:.B(251)..0.3050.....DV.8:.......
.B.... LOAD THE DATA FILES.H.....R.!..30
50...&.PW$."":.1300:."ENTER PASSWORD ";P
W$...+..DV.1.3250.".0..1,8,2,"0:DFILE,S,
R".,.5..3700.7.6..1,PP$.J.7..PP$..PW$.33
00.D.:..1,TR(0,0):.1,TR(0,1).X.?..TR(0,0
).0.3180...D..A.0.TR(0,0)...N..B.0.2:.1,
TR(A,B):.B...X..A.G.B..A.1.TR(0,0):.1,TR
$(A):.A...L..1,BD(0):.BD(0).0.3205...V..
A.1.BD(0):.1,BD(A):.A.. {..A.1.BD(0):.1,
TB(A):.A.4 ...A.1.BD(0):.1,BD$(A):.A.> .
..1,BL.J .. 1:.200.C ...1,1,0,"DFILE":.3
125.Y ...BR,0:.BK,2:."..".. ...1350:.".P
ASSWORD INCORRECT": 1:.3010.. ..... ...
SAVE THE DATA.C ....M ...3050.. ..PW$.""
:.1300:."ENTER PASSWORD ";PW$..!...DV.1.
3650..!...1,8,2,"@0:DFILE,S,W".(!E..3700
.3!F..1,PW$.M!J..1,TR(0,0):.1,TR(0,1).A!
O..TR(0,0).0.3580.R!T..A.0.TR(0,0)..!...
B.0.2:.1,TR(A,B):.B..!...A..!...A.1.TR(0
,0):.1,TR$(A);CR$:.A.O!...1,BD(0):.BD(0)
.0.3605..!...A.1.BD(0):.1,BD(A):.A.."...
A.1.BD(0):.1,TB(A):.A.%"...A.1.BD(0):.1,
BD$(A);CR$:.A./"...1,BL.;".. 1:.200.T"B.
.1,1,1,"DFILE":.3525.Z"T...`"U...F"V...|
"Y..BR,3:.BK,3:."..".."~...."X...."Y....
"Z...."...1300:."ENTER START DATE ";..".
..1000.L"...D.0.3805.X"..SD.DT:...".....
".....".....#...1300:."ENTER END DATE ";
:.1000..#...D.0.3855.(#..ED.DT:...# ...F
#... ENTER NEW BUDGETS.L#....G#...".";:.
2100:NT.BD(0).1.Z#...BD(0).16.4085..#..T
$."":.1300:."NEW BUDGET TITLE ";T$..#...
T$."".300.K#...C(T$).16.T$.H(T$,16)..#..
.2200:.BC..0..1300:.4060..#...5300:..6);
T$..$...1300:TA$."":."NEW AMOUNT ";TA$.Q
$..TA.E(TA$):.TA.9999.999.TA..9999.99..2
700:.4025.N$...5300:..24);:TN.TA:.2300..
$C..1350:."IS THIS O.K.(Y/N) ";:.1500..$
H..YN.0..5300:.1310:.5300:.NT:.4010..$M.
NC.BD(0).1:BD$(NC).T$:BD(NC).TA:BD(0).NC
:TB(NC).0..%R.NT.NT.1:.4007.+%...".THAT
TITLE ALREADY EXISTS":.4010.L%...1300:."
.ALL CODES ASSIGNED".K%..."PRESS A KEY T
O CONTINUE".%...K$:.K$."".4095..%...300
..%.....%... UPDATE THE BUDGETS..%....E%
...".";:.BD(0).0.4180.O%...2100.Y%...130
0..%..T$."":."BUDGET TITLE ";T$..&...T$.
"".300..&"..2200..&'..BC.0.4170.F&6..130
0:."NEW AMOUNT ";TA$:NT.E(TA$).R&8..NT.9
9999.999.NT..99999.999..2700:.4150..&;.B
D(BC).NT..&@.NT.BC:.5300:..24);..&B.TN.B
D(BC):.2300:.1350:.4120..&J..1300:.".HEA
DING NOT FOUND":.4120..&O..4125..'T..130
0:.".NO BUDGETS EXIST".&'Y.."PRESS A KEY
TO CONTINUE";.5'^..2050:.300.;'H...^'I.
. OUTPUT BUDGETS AND VARIANCES.D'J...{'K
..".":.BD(0).0.4290..'M..9000:.PR.0..940
0..'P..4280..'R..BC.1.BD(0).D'...BD$(BC)
:."CODE";BC;..'....12);:TN.BD(BC):NL.0:.
2300..(....21);:TN..((TB(BC).100)..5).10
0:NL.0:.2300.S(....30);:TN..((BD(BC).100
).(TB(BC).100)..5).100:NL.1:.2300:..C(..
.PR.0..9450.W(..L.L.1:.L.6.4270.(...BC.
.(...1600:.9200:.300..(...1600:.4280:.42
55..(...".";.14);"BUDGET";.23);"ACTUAL";
.32);"VARIANCE":...(..L.1:...)B..1300:."
.NO BUDGETS ASSIGNED":.4260..)L.../)M..
BUDGET ANALYSIS.5)N...L)Q..".":.BD(0).0.
4290..)V.T$."":.1300:.".ENTER BUDGET TIT
LE FOR ANALYSIS":.T$..)X..T$."".300..)Y.
.2200:.BC.0.4390..)Z..1350:.3800:.3850.N
)...1350:.9000..)..BA.0:.4380:.PR.0..950
0..)...TT.1.TR(0,0). *...TR(TT,1).BC.TR(
TT,1).BC.16.4340.**...4365.@*..DT.TR(TT,
0):.1200.X*...DT..SD.DT..ED.4345.B*...43
65..*...D;".";M$(M);Y;.10);TR$(TT);.21);
..*..TN..TR(TT,2):NL.0:.2300:..30);..*..
BA..((BA.100).(TN.100)..5).100:TN.BA:NL.
1:.2300..*...PR.0..9550..+..L.L.1:.L.18.
4375..+...TT.!+...1600:.9200:.300.7+...1
600:.4380:.4365.V+...".";BD$(BC);" ANALY
SIS":...+..." DATE";.10);"DETAILS";.25);
"\.P";.32);"BAL":...+!.L.1:...+&..1300:.
"..HEADING NOT FOUND":.4310.A+.....+...
DELETE BUDGET HEADINGS..+.....+...".";:.
BD(0).0.4290..,...2100.,,..T$."":.1300:.
".HEADING TO DELETE".M,..."(TYPE 'ALL' T
O CLEAR) ";T$.\,...T$."".300.O,...T$."AL
L".4600..,A..2200:.BC.0.4580..,F..1350:.
"DELETE '";BD$(BC);"' (Y/N)";:.C$.C,U..C
$.."Y".4525.M,Z..4650..,...1300:."..HEAD
ING NOT FOUND":.4525..,.....-... CLEAR A
LL HEADINGS..-....#-...1350.S-...".YOU A
RE ABOUT TO DELETE ALL THE BUDGETS".T-..
."ARE YOU SURE(Y/N) ";:.1500..-...YN.0..
1350:.4525..-...".":.1350:.".ALL BUDGETS
CLEARED"..-...BC.1.BD(0):BD$(BC)."":BD(
BC).0:.4700..- ..BC:BD(0).0...%.."PRESS
A KEY TO CONTINUE":.2050:.300...*...=.+.
. DELETE THE HEADING AND SORT.M.,.. THE
ARRAY.S.-...E./.BD(0).BD(0).1.O.1..4700.
..4.BD$(BC)."":BD(BC).0...9..BC.16.4500.
..>..BD$(BC.1)."".4500...C.BD$(BC).BD$(B
C.1):BD$(BC.1)."":BD(BC).BD(BC.1):BD(BC.
1).0../E.TB(BC).TB(BC.1):TB(BC.1).0.#/H.
BC.BC.1:.4750:.4665.)/\...J/].. SET BUDG
ET CODE TO ZERO IN.B/^.. TRANSACTION FIL
ES.H/_...Y/A..TR(0,0).0..../F..TT.1.TR(0
,0)../P..BC.TR(TT,1).TR(TT,1).0:.4740.M/
Z..BC.TR(TT,1).16.TR(TT,1).16.W/...TT:..
./...../... CHANGE BUDGET CODES IN THE..
0... TRANSACTION FILES..0....-0...TR(0,0
).0...?0...TT.1.TR(0,0).D0...BC.TR(TT,1)
.TR(TT,1).BC.1:.4740..0...BC.TR(TT,1).16
.TR(TT,1).TR(TT,1).1..0...TT:...0.....0E
..9900..0J..300..0....O0... SET OPENING
BALANCE.U0.....0...".";..1...1300:A$."":
."ENTER OPENING BALANCE ";A$..1..BL.E(A$
).C1...BL.99999.99.BL..99999.99..2700:.5
005.I1...1350:.".OPENING BALANCE IS \";B
L.}1..."O.K. ";:.1500..1...YN.0.5000..1.
..400..1....D1... ENTER A TRANSACTION IN
TO THE FILES.J1....Z1...".";:.9000..2...
". DATE";.11);"DETAILS";.23);"CODE";.32
);"\.P"..2...PR.0..9300.-2..NT.1:SO.0.72
...1300.Y2..."DATE OF TRANSACTION";:.100
0.K2...D.0.NT.1.400.Y2...D.0.5120..2...5
300:.1200:.D;".";M$(M);Y..2...1300:DL$."
":."DETAILS";DL$.Q2#..DL$."".DL$."******
"..2-..C(DL$).10.DL$.H(DL$,10)..32..5300
:..11);DL$.(3<.T$."":.1300:."BUDGET HEAD
ING ";T$.A3A..2200:.5300:..23);BC.J3F..1
300:TA$."":."AMOUNT";TA$:TA.E(TA$)..3G..
TA.99999.99.TA..99999.999..2700:.5190..3
H..5300.B3I...28);:TN.TA:NL.0:.2300:..37
);..3J.TA..TA:.DL$."CREDIT".DL$."CREDIT"
.DL$."CREDIT".TA..TA..4L..TA.0.."D"..4N.
.TA..0.."C".>4P..1350:."ENTRY OK(Y/N) ";
:.1500.B4U..YN.0..5300:.1310:NT.NT.1:.52
20..4Z..1300:."PLEASE WAIT";:.5350..4D..
1300:."REPEAT(Y/N) ";:.1500..4I..YN.0.52
40.L4N..NT . 17..49158:.5120..4S.NT.NT.1
:.5120..4X..PR.0..9200..4}..400..4.....5
... POSITION TO CURRENT LINE."5....,5...
".";.C5...L.1.NT.1:.".";:.L.I5C...O5....
P5... PUT AN ENTRY INTO THE FILE..5... I
N THE PROPER ORDER..5.....5..IN.TR(0,0):
.IN.0.IN.1:TR(0,1).DT:.5420..5...DT..TR(
0,1).IN.TR(0,0).1:TR(0,1).DT:.5420..5...
TT.1.IN..6...TR(TT,0).DT.5390..6...TT.%6
..IN.TT:.5420./6..IN.TT.D6...T.TR(0,0).T
T..1.~6..TR(T.1,0).TR(T,0):TR(T.1,1).TR(
T,1):TR(T.1,2).TR(T,2)..6..TR$(T.1).TR$(
T)..6"..T.P6,.TR(IN,0).DT:TR(IN,1).BC.SO
:TR(IN,2).TA:TR$(IN).DL$..61.TR$(IN).DL$
:TR(0,0).TR(0,0).1..72..BC.0.5440..7;.TB
(BC).TB(BC).(.TA).)7@..PR.0..9350./7J...
57|...N7}.. OUTPUT A STATEMENT.T7~...G7.
..TR(0,0).0.495..7..."............
STATEMENT OUTPUT"..7...3800..7...385
0..7...9000..7...".".B7.....7... WORK OU
T BALANCE FIRST..7.....8..BB.BL:.1300:."
CALCULATING BALANCE";..8...TT.1.TR(0,0).
68B..TR(TT,0)..SD.5590.I8G.BB.BB.TR(TT,2
).Q8L..TT.Z8Q..400.O8V..PR.1..9050:FL.0.
.8...". DATE";.10);"DETAILS";.25);"\.P";
.32);"BAL"..8...PR.0.FL.0.5620.W8...1,"B
ALANCE B/FWD";TB$;"30";..8..TN.BB:NL.0:.
9100:.1,LF$:FL.1..9..."BALANCE B/FWD";.3
0);.(9..TN.BB:NL.1:.2300..9....69..L.1.L
9...TR(TT,0).ED.5695.B9..DT.TR(TT,0):.12
00..9...D;".";M$(M);Y;.10);TR$(TT);.21);
..9..TN.TR(TT,2):NL.0:.2300:..30);..9..B
B..((BB.100).(TR(TT,2).100)..5).100:NL.1
:TN.BB:.2300..9...PR.1..9250..:!..TT.TR(
0,0).5695.!:&..L.17.TT.TT.1:.5690.9:+.L.
L.1:TT.TT.1:.5645.I::..1600:.5600.^:?..1
600:.9200:.400.D:....Z:... CLEAR THE FIL
ES..:.....:...".":.1300:."CLEAR TRANSACT
ION FILES(Y/N) ";:.1500.E:...YN.0.400.N:
F.BL.0..:P.TR(0,0).0:TR(0,1).0..;Z..1300
:."CLEAR BUDGET ACTUAL FIGURES ";:.1500.
%;...YN.0.400.?;...BC.1.16:TB(BC).0:.BC.
H;...400.N;....J;... ENTER STANDING ORDE
RS.P;.....;..."........... ENTER STA
NDING ORDER"..;...9000:SO.16..; ..1300:.
"ENTER START DATE ";:.1000:.D.0.5920..;*
.."... 1 MONTHLY"..</..". 2 QUARTERLY"..
<4..". 3 ANNUALLY".2<9..". 4 OTHER PERIO
D".I<>..1300:."WHICH ";K$.U<C.F.E(K$).O<
H..F.1.F.2.F.3.F.4.5970.Y<M..5950..<R..F
.1.PY.12:.5980..<S..F.2.PY.4:.5980..<T..
F.3.PY.1:.5980..<W..1300:."ENTER NUMBER
OF PAYMENTS ";K$..<X.PY.E(K$):.PY.0.5975
..=\..PY.TR(0,0)..400.6000.;=A.."...NOT
ENOUGH ROOM TO ENTER THESE".U=B.."TRANSA
CTIONS":.1300..=C.."PRESS A KEY TO CONTI
NUE";:.2050:.9200:.400..=P..".":.1300:DL
$."":."DETAILS ";DL$.E=U..DL$."".DL$."**
****"..=Z..C(DL$).10.DL$.H(DL$,10)..>...
1300:."BUDGET HEADING ";T$:.2200..>...BC
.0.T$."".8>...1300:TA$."":."AMOUNT ";TA$
.L>..TA.E(TA$):.TA.99999.99.TA..99999.99
..2700:.6030..>...".START DATE ";.20);:.
1200:.D;M$(M);Y..>..."NUMBER OF PAYMENTS
";PY.O>..."DETAILS ";.21);DL$..>..."BU
DGET CODE ";.20);BC..?..."AMOUNT ";.20);
TA.!?...1350:."O.K.(Y/N) ";:.1500.0?...Y
N.0.6150.@?...".";:.6180.P?..DM.D:TA..TA
.J?...5350:.6190:.F.3.6150.X?E..S.1.PY.1
..?J..F.6095,6110,6150,6095..?O.M.M.1:.M
.13.M.1:Y.Y.1.B?T..D.MO(M).D.MO(M)..?Y..
1110:.5350:.6190:D.DM:.6120..@..M.M.3:.M
.12.M.M.12:Y.Y.1..@...6100..@...S.2@...1
300:."REPEAT(Y/N) ";:.1500.G@...YN.0..".
":.5920.V@...9200:.400..@$..". DATE";.1
1);"DETAILS";.23);"CODE";.32);"\.P"..@).
.:L.1:...@...D;M$(M);Y;.11);DL$;.23);BC;
.28);.T@1.TN.TA:.TN.0.TN..TN..@2.NL.0:.2
300..@3..TA.0.." D"..A4..TA..0.." C"..A5
..6400:...A8...;A9.. DELETE TRANSACTIONS
FROM FILES.AA:...TA=..TR(0,0).0.495..A?
.."........... DELETE TRANSACTI
ONS"..AB.DL$."":.1300:."ENTER DETAILS ";
DL$..AG..DL$."".400..AL..1300:."FIRST DA
TE TO DELETE ";:.1000..AV..D.0.6220..A[.
SD.DT.&B`..1300:."LAST DATE TO DELETE ";
:.1000.4BE..D.0.6240.>BF.ED.DT.RBJ..1300
:."ARE THESE STANDING ORDERS(Y/N) ";:.15
00..BO.SS.0:.YN.1.SS.16..BQ..6450:."."..
BT.TT.1:.1300:."SEARCHING FILES";:.6180.
TB~..2500:.EN.0.6320..B...TR(EN,0)..SD.T
R(EN,0)..ED.6285..C...TR(EN,0).ED.6320.
C..TT.EN.1:.6270.;C...TR(EN,1).15.SS.0.6
300.VC...TR(EN,1).16.SS.0.6300.`C...6280
.{C..DT.TR(EN,0):TR(EN,0).0..C...1200:DL
$.TR$(EN):BC.TR(EN,1).SS:TA.TR(EN,2):.61
90.AC...CB.0.6280.PC...BC.0.6280..C..TB(
BC).TB(BC).TA..C...6280..D...2600:.1600:
.400..D..L.L.1:.L.17.6420..D....)D...160
0.:D...".":.6180:..@D2...VD7..1300:."CHA
NGE BUDGET ACTUAL FIGURES(Y/N)";:.1500..
D<..YN.0.CB.1:...DA.CB.0:...DD....DE.. C
HANGE A TRANSACTION..DF...LDI..TR(0,0).0
.495..DK.."........... CHANGE T
RANSACTIONS".#EN.DL$."":.1300:."ENTER DE
TAILS ";DL$.3ES..DL$."".400.]EX..1300:."
FIRST DATE TO CHANGE ";:.1000.KE...D.0.6
520.UE..SD.DT..E...1300:."LAST DATE TO C
HANGE ";:.1000..E...D.0.6540..E..ED.DT..
E...6650..E...1350:."ARE THESE STANDING
ORDERS(Y/N) ";:.1500..F..SS.0:.YN.1.SS.1
6..F...6450:.".".AF .TT.1:.1300:."SEARCH
ING FILES";:.6180.VF...2500:.EN.0.6620.Z
F...TR(EN,0)..SD.TR(EN,0)..ED.6585..F...
TR(EN,0).ED.6620..F..TT.EN.1:.6570..F...
TR(EN,1).15.SS.0.6600.XF...TR(EN,1).16.S
S.0.6600..FC..6580..FH.OV.TR(EN,2):TR(EN
,2).TA.5GM.DT.TR(EN,0):.1200:DL$.TR$(EN)
:BC.TR(EN,1).SS:.6190.?GN..6700.IGR..658
0.XG...1600:.400..G..TA$."":.1300:."ENTE
R NEW AMOUNT ";TA$:TA.E(TA$)..G...TA.999
99.99.TA..99999.99..2700:.6650.GG..TA..T
A:.6550.VG,..CB.0.6580..G1..BC.0.6580..H
6.DF.OV.TA:TB(BC).TB(BC).DF:.6580..HX...
1HY.. THIS IS THE LOAN CALCULATOR.7HZ...
ZHB.."...AMOUNT BORROWED";.25);"\".|HG..
".RATE OF INTEREST";.25);"%". HL..".PERI
OD OF LOAN";.25);"YEARS".CHQ..".MONTHLY
REPAYMENT";.25);"\".QHV.IT.0:NT.1..H...1
300:T$."":."AMOUNT BORROWED";T$..I...T$.
"".IT.IT.1:CA.1:.7060.-I..AB.E(T$):.AB.0
.7040.QI...5300 :..31);:TN.AB:.2300:P1.A
B.]I..NT.NT.2..I...1300:T$."":."RATE OF
INTEREST ";T$..I...T$."".IT.IT.1:CA.2:.7
085.BI..RI.E(T$):.RI.0.RI.100.7065..I...
5300 :..31);:TN.RI:.2300:P2.RI..I..NT.NT
.2..J...1300:T$."":."PERIOD OF LOAN ";T$
.6J...T$."".IT.IT.1:CA.3:.7110.OJ..PL.E(
T$):.PL..0.7090.SJA..5300 :..31);:TN.PL:
.2300:P3.PL.JF.NT.NT.2..JK..1300:T$."":
."MONTHLY REPAYMENT ";T$.FJP..T$."".IT.I
T.1:CA.4:.7140.SJU.MR.E(T$)..JZ..5300 :.
.31);:TN.MR:.2300:P4.MR..K...1300.'K...I
T.1..".TOO MANY UNKNOWNS":.7380.PK...IT.
0..".NOTHING TO CALCULATE":.7380.|K...13
00:."BANK LOAN OR MORTGAGE(B/M) ";K$..K.
..K$."B".7180..K...K$.."M".7155..K..MR.M
R.12:.7190.QK..AB.AB.12:RI.RI.12:PL.PL.1
2..K...CA.7200,7250,7300,7350..L .YY.(1.
RI.100).PL.!L%.PP.(MR.(YY.1)).(YY.RI.100
)..L*.PP..(PP).XL/.NT . 1:.5300:..31);:T
N.PP:.2300:P1.PP.BL4..7375.WLR..K$."B".A
B.AB.12..LW.IT.(PL.MR).AB. L\.IT.(.(IT.1
00)).100.SLA.NT.9:.5300:."TOTAL INTEREST
PAYABLE";.25);"\";..LB...31);:TN.IT:.23
00:P5.IT..MF..K$."B".PL.PL.12..MH.RI.((I
T.PL).AB).100.4MK.RI.(.(RI.100)).100.\MP
.NT.3:.5300:..31);:TN.RI:.2300:P2.RI.FMU
..7375.{M...K$."B".AB.AB.12..M...Q.1.100
000..M..MM.AB.RI.100..M..AB.AB.MM.MR..M.
..AB..0.7331.CM...Q..M...K$."B". NT.5:.5
300:..25);"MONTHS"..N..NT.5:.5300:..31);
:TN.Q.1:.2300:P3.TN..N...7375.2N..MR.(1.
RI.100).PL.ON..YY.AB.MR.RI.(100.(MR.1)).
ON..YY.YY.12:YY.(.(YY.100)).100..NE.NT.7
:.5300:..31);:TN.YY:.2300:P4.TN..NO..960
0..NT..1600:.9200.NNY..1300:."REPEAT(Y/N
) ";K$..N...K$.."Y"..200..N...7000..N@..
..OA.. SEARCH FOR DETAILS IN FILES..OB..
.POJ..1300:K$."":."SEARCH BY DETAILS OR
AMOUNT(D/A) ";K$.AOT..K$."D".8100.ROY..K
$."A".8200..O^..K$."".200..OC..8010..O..
...O... SEARCH FOR DETAILS..O....PO...13
00:.".SEARCH BY DETAILS"..O..DL$."":."EN
TER DETAILS ";DL$..P...C(DL$).10.DL$.H(D
L$,10)..P...DL$."".800.4P...9000:.PR.0..
9700.>PB..8180.PPG..TT.1.TR(0,0).FPL..TR
$(TT).DL$.8150.TPQ..TT:.1600..PR..9200:.
800..PV..8300..P..L.L.1:.L.17.8145.ZP...
1300:."PRESS A KEY TO CONTINUE";:.2050:.
8180:.8145..P...".SEARCH BY ";DL$..Q..."
DATE";.10);"DETAILS";.25);"\.P":..$Q..L
.1:..*Q. ..AQ. . SEARCH BY AMOUNT.GQ. ..
FQ. .1300:.".SEARCH BY AMOUNT"..Q. TA$."
":."ENTER AMOUNT ";TA$..Q. .TA$."".800..
Q. TA.E(TA$).NQ. .TA.99999.99.TA..99999.
99..2700:.8205..R. T$."":.1350:."DEBIT O
R CREDIT(D/C) ";T$:.T$."".8220..R. .T$."
D".TA..TA:.8230.0R! .T$."C".8230.:R# .82
20.PR& .9000:.PR.0..9800.ZR' .8280.LR+ .
TT.1.TR(0,0)..R0 .TR(TT,2).TA.8250..R5 .
TT:.1600..R6 .9200:.800..R: .8300..RI L.
L.1:.L.17.8245.TRN .1600:.8280:.8245..RX
.".SEARCH BY \";TA..S] ." DATE";.10);"D
ETAILS";.25);"\.P":...SB L.1:..$SL ..:SV
DT.TR(TT,0):.1200.`S. .D;".";M$(M);Y;.1
0);TR$(TT);.21);.{S. TN.TR(TT,2):NL.1:.2
300..S. .PR.0..9750..S. ...S(#...S)#. AS
K ABOUT THE PRINTER..S*#...S-#.1300:."CO
PY TO PRINTER(Y/N) ";K$..S2#PR.0:.K$.."Y
"....T7#.251 ,4:.49164:.B(251)..0...%T<#
PR.1:.1,4,7:..+TZ#..ET_#.1,"STATEMENT FR
OM ";.JTD#DT.SD:.1200:.1,D;M$(M);Y;" TO
";..TI#DT.ED:.1200:.1,D;M$(M);Y..TJ#.1,L
F$.MTN#.1," DATE";TB$;"15DETAILS";TB$;"3
5\.P";TB$;"45BALANCE".XTS#.1,LF$..T.#...
T.#...T.#. POSITION PRINT HEAD..U.#NU.TN
.#U.#MI.0:.NU.0.NU..NU:MI.1.8U #.NU.1000
..1,.1);.LU.#.NU.100..1,.1);._U.#.NU.10.
.1,.1);.PUH#.MI.1.NU..NU.ZUI#.2400..UM#.
NL.1.9175..UR#.1,NU$;:...UW#.1,NU$:...U.
#...U.#.PR.0...DU.# 1:PR.0:...U"$.1,D;M$
(M);Y;TB$;"15";TR$(TT);TB$;"31";..V'$TN.
TR(TT,2):NL.0:.9100:.1,TB$;"45";.-V,$TN.
BB:NL.1:.9100.3V6$..9VT$..|VY$.1," DATE
";TB$;"15DETAILS";TB$;"30BUDGET HEADING"
;TB$;"55\.P"..VZ$.1,LF$..V^$...V.$..GV.$
.1,D;M$(M);Y;TB$;"15";DL$;TB$;"30";T$;TB
$;"51";..V.$TN.TA:.TN.0.TN..TN..V.$NL.0:
.9100..W.$.TA.0..1," D"..W.$.TA..0..1,
" C"..W.$.."W.$..\W.$.1,TB$;"22BUDGET"
;TB$;"35ACTUAL";TB$;"50VARIANCE";LF$.BWB
$..HW.$...W.$.1,BD$(BC):.1,"CODE";BC;..W
.$.1,TB$"20";:TN.BD(BC):NL.0:.9100..W.$.
1,TB$"33";:.((TN.TB(BC).100)..5).100:NL.
0:.9100.(X.$.1,TB$"50";:.((TN.BD(BC).100
).(TB(BC).100)..5).100:NL.1:.9100:.1,LF$
..X.%..4X.%..VX!%.1,BD$(BC);" ANALYSIS":
.1,LF$.`X&%.9070.FX0%..LXN%...XS%.1,D;M$
(M);Y;TB$;"15";TR$(TT);TB$;"31";.AXX%TN.
.TR(TT,2):NL.0:.9100:.1,TB$;"45";.VX]%TN
.BA:NL.1:.9100..XB%...X.%...X.%.9000..X.
%.PR.0...(Y.%.1,"AMOUNT BORROWED";TB$;"2
5\";:TN.P1:.9680.YY.%.1,"RATE OF INTERES
T";TB$;"25%";:TN.P2:.9680..Y.%.1,"PERIOD
OF LOAN";TB$;"25YEARS";:TN.P3:.9680.AY.
%.1,"MONTHLY REPAYMENT";TB$;"25\ ";:TN
.P4:.9680.QY.%.CA..2.9699..YA%.1,"TOTAL
INTEREST PAYABLE";TB$;"25\";..ZF%TN.P5:.
9680..ZK%..+ZP%.1,TB$;"30";:.9100:..1Z.%
..7Z.%..BZ.%.1,"SEARCH BY ";G(14);DL$;G(
15):.1,LF$.NZ.%.9300:...Z.&BC.TR(TT,1):T
$.BD$(BC):TA.TN..Z.&.BC.15.BC.BC.16..Z.&
.9350..Z.&..GZ.&.BC.15.BC.BC.16.MZH&...Z
M&.1,"SEARCH BY ";G(14);"\";TA;G(15):.1,
LF$..[R&.9300:..([Z&BC.TR(TT,1):T$.BD$(B
C):TA.TN.<[{&.BC.15.BC.BC.16.F[|&.9350.L
[&..R[.&..O[.&. PRINT THE BUDGET ARRAY.
U[.&...[.&.251 ,4:.49164:.B(251)..0... [
.&.1,4,7.U[.&.1,"CODE";TB$;"08BUDGET TIT
LE";TB$"28\.P":.1,LF$..[.&C.1..[.&.BD(0)
.0.9980..\J&.1,C;TB$;"06";BD$(C);TB$;"24
";.*\T&TN.BD(C):NL.1:.9100.C\.&.BD(0).C.
C.C.1:.9980.S\.&C.C.1:.9930.B\.&.C.17. 1
:..W\.'.1,C:C.C.1:.9980....
> CLICK IMAGE PREVIEW FOR FULL MODAL