CCAS
FILE INFORMATION
FILENAME(S): CCAS
FILE TYPE(S): PRG
FILE SIZE: 21K
FIRST SEEN: 2025-11-30 21:23:47
APPEARS ON: 1 disk(s)
FILE HASH
474e3af55ac17458158b0ac7e2ad4174003ad914c4c98ed49dfef1336ba93d43
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 153 1 | CCAS | PRG | DuncanTwain | 7 | 9 | 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 1C 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 77 1A 2E 09 8B 4E 55 B3 |0...1);.w....NU.|
00001270: 31 A7 99 A6 31 29 3B 00 88 1A 38 09 8B 4D 49 B2 |1...1);...8..MI.|
00001280: 31 A7 4E 55 B2 AB 4E 55 00 92 1A 39 09 8D 32 34 |1.NU..NU...9..24|
00001290: 30 30 00 A1 1A 3D 09 8B 4E 4C B2 31 A7 32 33 37 |00...=..NL.1.237|
000012A0: 35 00 AD 1A 42 09 99 4E 55 24 3B 3A 8E 00 B8 1A |5...B..NU$;:....|
000012B0: 47 09 99 4E 55 24 3A 8E 00 BE 1A 60 09 8F 00 D8 |G..NU$:....`....|
000012C0: 1A 61 09 8F 20 50 52 49 4E 54 20 4E 55 4D 42 45 |.a.. PRINT NUMBE|
000012D0: 52 20 53 54 52 49 4E 47 00 DE 1A 62 09 8F 00 FC |R STRING...b....|
000012E0: 1A 65 09 4E 4E 24 B2 C4 28 4E 55 29 3A 4E 55 24 |.e.NN$..(NU):NU$|
000012F0: B2 22 22 AA C8 28 4E 4E 24 2C 31 29 00 0B 1B 6A |.""..(NN$,1)...j|
00001300: 09 44 50 25 B2 30 3A 44 46 B2 30 00 1C 1B 6F 09 |.DP%.0:DF.0...o.|
00001310: 81 4E 53 B2 32 A4 C3 28 4E 4E 24 29 00 2F 1B 71 |.NS.2..(NN$)./.q|
00001320: 09 4E 24 B2 CA 28 4E 4E 24 2C 4E 53 2C 31 29 00 |.N$..(NN$,NS,1).|
00001330: 3E 1B 74 09 4E 55 24 B2 4E 55 24 AA 4E 24 00 4F |>.t.NU$.NU$.N$.O|
00001340: 1B 79 09 8B 4E 24 B2 22 2E 22 A7 44 46 B2 31 00 |.y..N$.".".DF.1.|
00001350: 6B 1B 7E 09 8B 44 46 B2 31 AF 4E 24 B3 B1 22 2E |k.~..DF.1.N$..".|
00001360: 22 A7 44 50 25 B2 44 50 25 AA 31 00 81 1B 83 09 |".DP%.DP%.1.....|
00001370: 8B 44 46 B2 31 AF 44 50 25 B1 B2 32 A7 32 34 34 |.DF.1.DP%..2.244|
00001380: 35 00 89 1B 88 09 82 4E 53 00 A2 1B 8D 09 8B 44 |5......NS......D|
00001390: 50 25 B2 30 A7 4E 55 24 B2 4E 55 24 AA 22 2E 30 |P%.0.NU$.NU$.".0|
000013A0: 30 22 00 B9 1B 92 09 8B 44 50 25 B2 31 A7 4E 55 |0"......DP%.1.NU|
000013B0: 24 B2 4E 55 24 AA 22 30 22 00 BF 1B 97 09 8E 00 |$.NU$."0".......|
000013C0: C5 1B C4 09 8F 00 E7 1B C5 09 8F 20 53 45 41 52 |........... SEAR|
000013D0: 43 48 20 54 48 45 20 46 49 4C 45 53 20 42 59 20 |CH THE FILES BY |
000013E0: 44 45 54 41 49 4C 53 00 ED 1B C6 09 8F 00 00 1C |DETAILS.........|
000013F0: CE 09 81 45 4E B2 54 54 A4 54 52 28 30 2C 30 29 |...EN.TT.TR(0,0)|
00001400: 00 1F 1C D8 09 8B 54 52 24 28 45 4E 29 B2 44 4C |......TR$(EN).DL|
00001410: 24 AF 54 52 28 45 4E 2C 30 29 B3 B1 30 A7 8E 00 |$.TR(EN,0)..0...|
00001420: 2E 1C E2 09 82 45 4E 3A 45 4E B2 4F 3A 8E 00 34 |.....EN:EN.O:..4|
00001430: 1C 28 0A 8F 00 54 1C 29 0A 8F 20 50 41 43 4B 20 |.(...T.).. PACK |
00001440: 54 48 45 20 54 52 41 4E 53 41 43 54 49 4F 4E 20 |THE TRANSACTION |
00001450: 46 49 4C 45 00 5A 1C 2A 0A 8F 00 76 1C 2D 0A 8D |FILE.Z.*...v.-..|
00001460: 31 33 30 30 3A 99 22 D0 41 43 4B 49 4E 47 20 46 |1300:.".ACKING F|
00001470: 49 4C 45 53 22 3B 00 88 1C 32 0A 81 50 50 B2 31 |ILES";...2..PP.1|
00001480: A4 54 52 28 30 2C 30 29 00 9D 1C 3C 0A 8B 54 52 |.TR(0,0)...<..TR|
00001490: 28 50 50 2C 30 29 B2 30 A7 32 36 34 30 00 A7 1C |(PP,0).0.2640...|
000014A0: 46 0A 82 50 50 3A 8E 00 B9 1C 50 0A 43 54 B2 50 |F..PP:....P.CT.P|
000014B0: 50 3A 43 46 B2 50 50 AA 31 00 D1 1C 5A 0A 8B 54 |P:CF.PP.1...Z..T|
000014C0: 52 28 43 46 2C 30 29 B2 30 A7 43 46 B2 43 46 AA |R(CF,0).0.CF.CF.|
000014D0: 31 00 F0 1C 5F 0A 8B 43 46 B1 54 52 28 30 2C 30 |1..._..CF.TR(0,0|
000014E0: 29 A7 54 52 28 30 2C 30 29 B2 43 54 AB 31 3A 8E |).TR(0,0).CT.1:.|
000014F0: 00 05 1D 61 0A 8B 54 52 28 43 46 2C 30 29 B2 30 |...a..TR(CF,0).0|
00001500: A7 32 36 35 30 00 4F 1D 64 0A 54 52 24 28 43 54 |.2650.O.d.TR$(CT|
00001510: 29 B2 54 52 24 28 43 46 29 3A 54 52 28 43 54 2C |).TR$(CF):TR(CT,|
00001520: 30 29 B2 54 52 28 43 46 2C 30 29 3A 54 52 28 43 |0).TR(CF,0):TR(C|
00001530: 54 2C 31 29 B2 54 52 28 43 46 2C 31 29 3A 54 52 |T,1).TR(CF,1):TR|
00001540: 28 43 54 2C 32 29 B2 54 52 28 43 46 2C 32 29 00 |(CT,2).TR(CF,2).|
00001550: 69 1D 69 0A 43 54 B2 43 54 AA 31 3A 43 46 B2 43 |i.i.CT.CT.1:CF.C|
00001560: 46 AA 31 3A 89 32 36 35 30 00 6F 1D 8C 0A 8F 00 |F.1:.2650.o.....|
00001570: 75 1D 8D 0A 8F 00 7B 1D 8E 0A 8F 00 93 1D 91 0A |u.....{.........|
00001580: 99 22 91 91 C9 4E 56 41 4C 49 44 20 41 4D 4F 55 |."...NVALID AMOU|
00001590: 4E 54 22 00 99 1D 96 0A 8E 00 9F 1D B8 0B 8F 00 |NT".............|
000015A0: BC 1D B9 0B 8F 20 53 41 56 45 20 41 4E 44 20 4C |..... SAVE AND L|
000015B0: 4F 41 44 20 54 48 45 20 44 41 54 41 00 C2 1D BA |OAD THE DATA....|
000015C0: 0B 8F 00 CB 1D BD 0B 99 22 93 22 00 FF 1D C2 0B |........".".....|
000015D0: 4B 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 CC 4F |K$."":.1300:.".O|
000015E0: 41 44 20 4F 52 20 53 41 56 45 20 44 41 54 41 20 |AD OR SAVE DATA |
000015F0: 22 3B 4B 24 3A 8B 4B 24 B2 22 22 A7 32 30 30 00 |";K$:.K$."".200.|
00001600: 10 1E CC 0B 8B 4B 24 B2 22 4C 22 A7 33 31 30 30 |.....K$."L".3100|
00001610: 00 21 1E D6 0B 8B 4B 24 B2 22 53 22 A7 33 35 30 |.!....K$."S".350|
00001620: 30 00 2B 1E DB 0B 89 33 30 31 30 00 58 1E EA 0B |0.+....3010.X...|
00001630: 4B 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 D5 53 |K$."":.1300:.".S|
00001640: 45 20 54 41 50 45 20 4F 52 20 44 49 53 43 28 54 |E TAPE OR DISC(T|
00001650: 2F 44 29 20 22 3B 4B 24 00 68 1E EF 0B 8B 4B 24 |/D) ";K$.h....K$|
00001660: B2 22 22 A7 33 30 30 30 00 7E 1E F4 0B 44 56 B2 |."".3000.~...DV.|
00001670: 31 3A 8B 4B 24 B2 22 44 22 A7 33 30 37 35 00 84 |1:.K$."D".3075..|
00001680: 1E FE 0B 8E 00 A7 1E 03 0C 97 32 35 31 20 2C 38 |..........251 ,8|
00001690: 3A 9E 34 39 31 36 34 3A 8B C2 28 32 35 31 29 B3 |:.49164:..(251).|
000016A0: B1 30 A7 33 30 35 30 00 B2 1E 08 0C 44 56 B2 38 |.0.3050.....DV.8|
000016B0: 3A 8E 00 B8 1E 1C 0C 8F 00 D2 1E 1D 0C 8F 20 4C |:............. L|
000016C0: 4F 41 44 20 54 48 45 20 44 41 54 41 20 46 49 4C |OAD THE DATA FIL|
000016D0: 45 53 00 D8 1E 1E 0C 8F 00 E2 1E 21 0C 8D 33 30 |ES.........!..30|
000016E0: 35 30 00 0A 1F 26 0C 50 57 24 B2 22 22 3A 8D 31 |50...&.PW$."":.1|
000016F0: 33 30 30 3A 85 22 C5 4E 54 45 52 20 50 41 53 53 |300:.".NTER PASS|
00001700: 57 4F 52 44 20 22 3B 50 57 24 00 19 1F 2B 0C 8B |WORD ";PW$...+..|
00001710: 44 56 B2 31 A7 33 32 35 30 00 32 1F 30 0C 9F 31 |DV.1.3250.2.0..1|
00001720: 2C 38 2C 32 2C 22 30 3A 44 46 49 4C 45 2C 53 2C |,8,2,"0:DFILE,S,|
00001730: 52 22 00 3C 1F 35 0C 8D 33 37 30 30 00 47 1F 36 |R".<.5..3700.G.6|
00001740: 0C 84 31 2C 50 50 24 00 5A 1F 37 0C 8B 50 50 24 |..1,PP$.Z.7..PP$|
00001750: B3 B1 50 57 24 A7 33 33 30 30 00 74 1F 3A 0C 84 |..PW$.3300.t.:..|
00001760: 31 2C 54 52 28 30 2C 30 29 3A 84 31 2C 54 52 28 |1,TR(0,0):.1,TR(|
00001770: 30 2C 31 29 00 88 1F 3F 0C 8B 54 52 28 30 2C 30 |0,1)...?..TR(0,0|
00001780: 29 B2 30 A7 33 31 38 30 00 99 1F 44 0C 81 41 B2 |).0.3180...D..A.|
00001790: 30 A4 54 52 28 30 2C 30 29 00 B2 1F 4E 0C 81 42 |0.TR(0,0)...N..B|
000017A0: B2 30 A4 32 3A 84 31 2C 54 52 28 41 2C 42 29 3A |.0.2:.1,TR(A,B):|
000017B0: 82 42 00 B9 1F 58 0C 82 41 00 D7 1F 62 0C 81 41 |.B...X..A...b..A|
000017C0: B2 31 A4 54 52 28 30 2C 30 29 3A 84 31 2C 54 52 |.1.TR(0,0):.1,TR|
000017D0: 24 28 41 29 3A 82 41 00 F2 1F 6C 0C 84 31 2C 42 |$(A):.A...l..1,B|
000017E0: 44 28 30 29 3A 8B 42 44 28 30 29 B2 30 A7 33 32 |D(0):.BD(0).0.32|
000017F0: 30 35 00 0D 20 76 0C 81 41 B2 31 A4 42 44 28 30 |05.. v..A.1.BD(0|
00001800: 29 3A 84 31 2C 42 44 28 41 29 3A 82 41 00 28 20 |):.1,BD(A):.A.( |
00001810: 7B 0C 81 41 B2 31 A4 42 44 28 30 29 3A 84 31 2C |{..A.1.BD(0):.1,|
00001820: 54 42 28 41 29 3A 82 41 00 44 20 80 0C 81 41 B2 |TB(A):.A.D ...A.|
00001830: 31 A4 42 44 28 30 29 3A 84 31 2C 42 44 24 28 41 |1.BD(0):.1,BD$(A|
00001840: 29 3A 82 41 00 4E 20 85 0C 84 31 2C 42 4C 00 5A |):.A.N ...1,BL.Z|
00001850: 20 8A 0C A0 31 3A 89 32 30 30 00 73 20 B2 0C 9F | ...1:.200.s ...|
00001860: 31 2C 31 2C 30 2C 22 44 46 49 4C 45 22 3A 89 33 |1,1,0,"DFILE":.3|
00001870: 31 32 35 00 89 20 E4 0C 97 42 52 2C 30 3A 97 42 |125.. ...BR,0:.B|
00001880: 4B 2C 32 3A 99 22 93 05 22 00 B3 20 E9 0C 8D 31 |K,2:."..".. ...1|
00001890: 33 35 30 3A 99 22 91 D0 41 53 53 57 4F 52 44 20 |350:."..ASSWORD |
000018A0: 49 4E 43 4F 52 52 45 43 54 22 3A A0 31 3A 89 33 |INCORRECT":.1:.3|
000018B0: 30 31 30 00 B9 20 AC 0D 8F 00 CD 20 AD 0D 8F 20 |010.. ..... ... |
000018C0: 53 41 56 45 20 54 48 45 20 44 41 54 41 00 D3 20 |SAVE THE DATA.. |
000018D0: AE 0D 8F 00 DD 20 B1 0D 8D 33 30 35 30 00 05 21 |..... ...3050..!|
000018E0: B6 0D 50 57 24 B2 22 22 3A 8D 31 33 30 30 3A 85 |..PW$."":.1300:.|
000018F0: 22 C5 4E 54 45 52 20 50 41 53 53 57 4F 52 44 20 |".NTER PASSWORD |
00001900: 22 3B 50 57 24 00 14 21 BB 0D 8B 44 56 B2 31 A7 |";PW$..!...DV.1.|
00001910: 33 36 35 30 00 2E 21 C0 0D 9F 31 2C 38 2C 32 2C |3650..!...1,8,2,|
00001920: 22 40 30 3A 44 46 49 4C 45 2C 53 2C 57 22 00 38 |"@0:DFILE,S,W".8|
00001930: 21 C5 0D 8D 33 37 30 30 00 43 21 C6 0D 98 31 2C |!...3700.C!...1,|
00001940: 50 57 24 00 5D 21 CA 0D 98 31 2C 54 52 28 30 2C |PW$.]!...1,TR(0,|
00001950: 30 29 3A 98 31 2C 54 52 28 30 2C 31 29 00 71 21 |0):.1,TR(0,1).q!|
00001960: CF 0D 8B 54 52 28 30 2C 30 29 B2 30 A7 33 35 38 |...TR(0,0).0.358|
00001970: 30 00 82 21 D4 0D 81 41 B2 30 A4 54 52 28 30 2C |0..!...A.0.TR(0,|
00001980: 30 29 00 9B 21 DE 0D 81 42 B2 30 A4 32 3A 98 31 |0)..!...B.0.2:.1|
00001990: 2C 54 52 28 41 2C 42 29 3A 82 42 00 A2 21 E8 0D |,TR(A,B):.B..!..|
000019A0: 82 41 00 C4 21 F2 0D 81 41 B2 31 A4 54 52 28 30 |.A..!...A.1.TR(0|
000019B0: 2C 30 29 3A 98 31 2C 54 52 24 28 41 29 3B 43 52 |,0):.1,TR$(A);CR|
000019C0: 24 3A 82 41 00 DF 21 FC 0D 98 31 2C 42 44 28 30 |$:.A..!...1,BD(0|
000019D0: 29 3A 8B 42 44 28 30 29 B2 30 A7 33 36 30 35 00 |):.BD(0).0.3605.|
000019E0: FA 21 06 0E 81 41 B2 31 A4 42 44 28 30 29 3A 98 |.!...A.1.BD(0):.|
000019F0: 31 2C 42 44 28 41 29 3A 82 41 00 15 22 0B 0E 81 |1,BD(A):.A.."...|
00001A00: 41 B2 31 A4 42 44 28 30 29 3A 98 31 2C 54 42 28 |A.1.BD(0):.1,TB(|
00001A10: 41 29 3A 82 41 00 35 22 10 0E 81 41 B2 31 A4 42 |A):.A.5"...A.1.B|
00001A20: 44 28 30 29 3A 98 31 2C 42 44 24 28 41 29 3B 43 |D(0):.1,BD$(A);C|
00001A30: 52 24 3A 82 41 00 3F 22 15 0E 98 31 2C 42 4C 00 |R$:.A.?"...1,BL.|
00001A40: 4B 22 1A 0E A0 31 3A 89 32 30 30 00 64 22 42 0E |K"...1:.200.d"B.|
00001A50: 9F 31 2C 31 2C 31 2C 22 44 46 49 4C 45 22 3A 89 |.1,1,1,"DFILE":.|
00001A60: 33 35 32 35 00 6A 22 74 0E 8F 00 70 22 75 0E 8F |3525.j"t...p"u..|
00001A70: 00 76 22 76 0E 8F 00 8C 22 79 0E 97 42 52 2C 33 |.v"v...."y..BR,3|
00001A80: 3A 97 42 4B 2C 33 3A 99 22 93 9F 22 00 92 22 7E |:.BK,3:."..".."~|
00001A90: 0E 8E 00 98 22 D8 0E 8F 00 9E 22 D9 0E 8F 00 A4 |....".....".....|
00001AA0: 22 DA 0E 8F 00 C4 22 DD 0E 8D 31 33 30 30 3A 99 |"....."...1300:.|
00001AB0: 22 C5 4E 54 45 52 20 D3 54 41 52 54 20 C4 41 54 |".NTER .TART .AT|
00001AC0: 45 20 22 3B 00 CE 22 E2 0E 8D 31 30 30 30 00 DC |E ";.."...1000..|
00001AD0: 22 E7 0E 8B 44 B2 30 A7 33 38 30 35 00 E8 22 EC |"...D.0.3805..".|
00001AE0: 0E 53 44 B2 44 54 3A 8E 00 EE 22 0A 0F 8F 00 F4 |.SD.DT:...".....|
00001AF0: 22 0B 0F 8F 00 FA 22 0C 0F 8F 00 1E 23 0F 0F 8D |".....".....#...|
00001B00: 31 33 30 30 3A 99 22 C5 4E 54 45 52 20 C5 4E 44 |1300:.".NTER .ND|
00001B10: 20 C4 41 54 45 20 22 3B 3A 8D 31 30 30 30 00 2C | .ATE ";:.1000.,|
00001B20: 23 14 0F 8B 44 B2 30 A7 33 38 35 35 00 38 23 19 |#...D.0.3855.8#.|
00001B30: 0F 45 44 B2 44 54 3A 8E 00 3E 23 A0 0F 8F 00 56 |.ED.DT:..>#....V|
00001B40: 23 A1 0F 8F 20 45 4E 54 45 52 20 4E 45 57 20 42 |#... ENTER NEW B|
00001B50: 55 44 47 45 54 53 00 5C 23 A2 0F 8F 00 77 23 A5 |UDGETS.\#....w#.|
00001B60: 0F 99 22 93 22 3B 3A 8D 32 31 30 30 3A 4E 54 B2 |..".";:.2100:NT.|
00001B70: 42 44 28 30 29 AA 31 00 8A 23 A7 0F 8B 42 44 28 |BD(0).1..#...BD(|
00001B80: 30 29 B2 31 36 A7 34 30 38 35 00 B2 23 AA 0F 54 |0).16.4085..#..T|
00001B90: 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 CE 45 57 |$."":.1300:.".EW|
00001BA0: 20 C2 55 44 47 45 54 20 D4 49 54 4C 45 20 22 3B | .UDGET .ITLE ";|
00001BB0: 54 24 00 C1 23 AC 0F 8B 54 24 B2 22 22 A7 33 30 |T$..#...T$."".30|
00001BC0: 30 00 DB 23 AE 0F 8B C3 28 54 24 29 B1 31 36 A7 |0..#....(T$).16.|
00001BD0: 54 24 B2 C8 28 54 24 2C 31 36 29 00 F8 23 AF 0F |T$..(T$,16)..#..|
00001BE0: 8D 32 32 30 30 3A 8B 42 43 B3 B1 30 A7 8D 31 33 |.2200:.BC..0..13|
00001BF0: 30 30 3A 89 34 30 36 30 00 0A 24 B0 0F 8D 35 33 |00:.4060..$...53|
00001C00: 30 30 3A 99 A3 36 29 3B 54 24 00 2E 24 B9 0F 8D |00:..6);T$..$...|
00001C10: 31 33 30 30 3A 54 41 24 B2 22 22 3A 85 22 CE 45 |1300:TA$."":.".E|
00001C20: 57 20 C1 4D 4F 55 4E 54 20 22 3B 54 41 24 00 61 |W .MOUNT ";TA$.a|
00001C30: 24 BB 0F 54 41 B2 C5 28 54 41 24 29 3A 8B 54 41 |$..TA..(TA$):.TA|
00001C40: B1 39 39 39 39 2E 39 39 39 B0 54 41 B3 AB 39 39 |.9999.999.TA..99|
00001C50: 39 39 2E 39 39 A7 8D 32 37 30 30 3A 89 34 30 32 |99.99..2700:.402|
00001C60: 35 00 7E 24 BE 0F 8D 35 33 30 30 3A 99 A3 32 34 |5.~$...5300:..24|
00001C70: 29 3B 3A 54 4E B2 54 41 3A 8D 32 33 30 30 00 A5 |);:TN.TA:.2300..|
00001C80: 24 C3 0F 8D 31 33 35 30 3A 99 22 C9 53 20 D4 48 |$...1350:.".S .H|
00001C90: 49 53 20 4F 2E 4B 2E 28 59 2F 4E 29 20 22 3B 3A |IS O.K.(Y/N) ";:|
00001CA0: 8D 31 35 30 30 00 CB 24 C8 0F 8B 59 4E B3 30 A7 |.1500..$...YN.0.|
00001CB0: 8D 35 33 30 30 3A 8D 31 33 31 30 3A 8D 35 33 30 |.5300:.1310:.530|
00001CC0: 30 3A 99 4E 54 3A 89 34 30 31 30 00 01 25 CD 0F |0:.NT:.4010..%..|
00001CD0: 4E 43 B2 42 44 28 30 29 AA 31 3A 42 44 24 28 4E |NC.BD(0).1:BD$(N|
00001CE0: 43 29 B2 54 24 3A 42 44 28 4E 43 29 B2 54 41 3A |C).T$:BD(NC).TA:|
00001CF0: 42 44 28 30 29 B2 4E 43 3A 54 42 28 4E 43 29 B2 |BD(0).NC:TB(NC).|
00001D00: 30 00 13 25 D2 0F 4E 54 B2 4E 54 AA 31 3A 89 34 |0..%..NT.NT.1:.4|
00001D10: 30 30 37 00 3B 25 DC 0F 99 22 91 D4 48 41 54 20 |007.;%..."..HAT |
00001D20: D4 49 54 4C 45 20 C1 4C 52 45 41 44 59 20 C5 58 |.ITLE .LREADY .X|
00001D30: 49 53 54 53 22 3A 89 34 30 31 30 00 5C 25 F5 0F |ISTS":.4010.\%..|
00001D40: 8D 31 33 30 30 3A 99 22 91 C1 4C 4C 20 C3 4F 44 |.1300:."..LL .OD|
00001D50: 45 53 20 C1 53 53 49 47 4E 45 44 22 00 7B 25 FA |ES .SSIGNED".{%.|
00001D60: 0F 99 22 D0 52 45 53 53 20 41 20 CB 45 59 20 54 |..".RESS A .EY T|
00001D70: 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 8F 25 FF 0F |O .ONTINUE"..%..|
00001D80: A1 4B 24 3A 8B 4B 24 B2 22 22 A7 34 30 39 35 00 |.K$:.K$."".4095.|
00001D90: 98 25 00 10 89 33 30 30 00 9E 25 04 10 8F 00 B7 |.%...300..%.....|
00001DA0: 25 05 10 8F 20 55 50 44 41 54 45 20 54 48 45 20 |%... UPDATE THE |
00001DB0: 42 55 44 47 45 54 53 00 BD 25 06 10 8F 00 D5 25 |BUDGETS..%.....%|
00001DC0: 0E 10 99 22 93 22 3B 3A 8B 42 44 28 30 29 B2 30 |...".";:.BD(0).0|
00001DD0: A7 34 31 38 30 00 DF 25 13 10 8D 32 31 30 30 00 |.4180..%...2100.|
00001DE0: E9 25 18 10 8D 31 33 30 30 00 07 26 1D 10 54 24 |.%...1300..&..T$|
00001DF0: B2 22 22 3A 85 22 C2 55 44 47 45 54 20 D4 49 54 |."":.".UDGET .IT|
00001E00: 4C 45 20 22 3B 54 24 00 16 26 1F 10 8B 54 24 B2 |LE ";T$..&...T$.|
00001E10: 22 22 A7 33 30 30 00 20 26 22 10 8D 32 32 30 30 |"".300. &"..2200|
00001E20: 00 2F 26 27 10 8B 42 43 B2 30 A7 34 31 37 30 00 |./&'..BC.0.4170.|
00001E30: 56 26 36 10 8D 31 33 30 30 3A 85 22 CE 45 57 20 |V&6..1300:.".EW |
00001E40: C1 4D 4F 55 4E 54 20 22 3B 54 41 24 3A 4E 54 B2 |.MOUNT ";TA$:NT.|
00001E50: C5 28 54 41 24 29 00 80 26 38 10 8B 4E 54 B1 39 |.(TA$)..&8..NT.9|
00001E60: 39 39 39 2E 39 39 39 B0 4E 54 B3 AB 39 39 39 39 |999.999.NT..9999|
00001E70: 2E 39 39 39 A7 8D 32 37 30 30 3A 89 34 31 35 30 |.999..2700:.4150|
00001E80: 00 8E 26 3B 10 42 44 28 42 43 29 B2 4E 54 00 A5 |..&;.BD(BC).NT..|
00001E90: 26 40 10 4E 54 B2 42 43 3A 8D 35 33 30 30 3A 99 |&@.NT.BC:.5300:.|
00001EA0: A3 32 34 29 3B 00 C5 26 42 10 54 4E B2 42 44 28 |.24);..&B.TN.BD(|
00001EB0: 42 43 29 3A 8D 32 33 30 30 3A 8D 31 33 35 30 3A |BC):.2300:.1350:|
00001EC0: 89 34 31 32 30 00 EB 26 4A 10 8D 31 33 30 30 3A |.4120..&J..1300:|
00001ED0: 99 22 91 C8 45 41 44 49 4E 47 20 4E 4F 54 20 C6 |."..EADING NOT .|
00001EE0: 4F 55 4E 44 22 3A 89 34 31 32 30 00 F5 26 4F 10 |OUND":.4120..&O.|
00001EF0: 89 34 31 32 35 00 14 27 54 10 8D 31 33 30 30 3A |.4125..'T..1300:|
00001F00: 99 22 91 CE 4F 20 42 55 44 47 45 54 53 20 45 58 |."..O BUDGETS EX|
00001F10: 49 53 54 22 00 34 27 59 10 99 22 D0 52 45 53 53 |IST".4'Y..".RESS|
00001F20: 20 41 20 4B 45 59 20 54 4F 20 C3 4F 4E 54 49 4E | A KEY TO .ONTIN|
00001F30: 55 45 22 3B 00 43 27 5E 10 8D 32 30 35 30 3A 89 |UE";.C'^..2050:.|
00001F40: 33 30 30 00 49 27 68 10 8F 00 6C 27 69 10 8F 20 |300.I'h...l'i.. |
00001F50: 4F 55 54 50 55 54 20 42 55 44 47 45 54 53 20 41 |OUTPUT BUDGETS A|
00001F60: 4E 44 20 56 41 52 49 41 4E 43 45 53 00 72 27 6A |ND VARIANCES.r'j|
00001F70: 10 8F 00 89 27 6B 10 99 22 93 22 3A 8B 42 44 28 |....'k..".":.BD(|
00001F80: 30 29 B2 30 A7 34 32 39 30 00 9F 27 6D 10 8D 39 |0).0.4290..'m..9|
00001F90: 30 30 30 3A 8B 50 52 B1 30 A7 8D 39 34 30 30 00 |000:.PR.0..9400.|
00001FA0: A9 27 70 10 8D 34 32 38 30 00 B9 27 72 10 81 42 |.'p..4280..'r..B|
00001FB0: 43 B2 31 A4 42 44 28 30 29 00 D2 27 81 10 99 42 |C.1.BD(0)..'...B|
00001FC0: 44 24 28 42 43 29 3A 99 22 C3 4F 44 45 22 3B 42 |D$(BC):.".ODE";B|
00001FD0: 43 3B 00 F2 27 86 10 99 A3 31 32 29 3B 3A 54 4E |C;..'....12);:TN|
00001FE0: B2 42 44 28 42 43 29 3A 4E 4C B2 30 3A 8D 32 33 |.BD(BC):NL.0:.23|
00001FF0: 30 30 00 12 28 8B 10 99 A3 32 31 29 3B 3A 54 4E |00..(....21);:TN|
00002000: B2 54 42 28 42 43 29 3A 4E 4C B2 30 3A 8D 32 33 |.TB(BC):NL.0:.23|
00002010: 30 30 00 3B 28 90 10 99 A3 33 30 29 3B 3A 54 4E |00.;(....30);:TN|
00002020: B2 42 44 28 42 43 29 AB 54 42 28 42 43 29 3A 4E |.BD(BC).TB(BC):N|
00002030: 4C B2 31 3A 8D 32 33 30 30 3A 99 00 4B 28 95 10 |L.1:.2300:..K(..|
00002040: 8B 50 52 B1 30 A7 8D 39 34 35 30 00 5F 28 9A 10 |.PR.0..9450._(..|
00002050: 4C B2 4C AA 31 3A 8B 4C B2 36 A7 34 32 37 30 00 |L.L.1:.L.6.4270.|
00002060: 67 28 9F 10 82 42 43 00 7C 28 A4 10 8D 31 36 30 |g(...BC.|(...160|
00002070: 30 3A 8D 39 32 30 30 3A 89 33 30 30 00 92 28 AE |0:.9200:.300..(.|
00002080: 10 8D 31 36 30 30 3A 8D 34 32 38 30 3A 89 34 32 |..1600:.4280:.42|
00002090: 35 35 00 C9 28 B8 10 99 22 93 22 3B A3 31 32 29 |55..(...".";.12)|
000020A0: 3B 22 C2 55 44 47 45 54 22 3B A3 32 31 29 3B 22 |;".UDGET";.21);"|
000020B0: C1 43 54 55 41 4C 22 3B A3 33 30 29 3B 22 D6 41 |.CTUAL";.30);".A|
000020C0: 52 49 41 4E 43 45 22 3A 99 00 D3 28 BD 10 4C B2 |RIANCE":...(..L.|
000020D0: 31 3A 8E 00 FB 28 C2 10 8D 31 33 30 30 3A 99 22 |1:...(...1300:."|
000020E0: 91 CE 4F 20 42 55 44 47 45 54 53 20 41 53 53 49 |..O BUDGETS ASSI|
000020F0: 47 4E 45 44 22 3A 89 34 32 36 30 00 01 29 CC 10 |GNED":.4260..)..|
00002100: 8F 00 17 29 CD 10 8F 20 42 55 44 47 45 54 20 41 |...)... BUDGET A|
00002110: 4E 41 4C 59 53 49 53 00 1D 29 CE 10 8F 00 34 29 |NALYSIS..)....4)|
00002120: D1 10 99 22 93 22 3A 8B 42 44 28 30 29 B2 30 A7 |...".":.BD(0).0.|
00002130: 34 32 39 30 00 6C 29 D6 10 54 24 B2 22 22 3A 8D |4290.l)..T$."":.|
00002140: 31 33 30 30 3A 99 22 91 C5 4E 54 45 52 20 C2 55 |1300:."..NTER .U|
00002150: 44 47 45 54 20 D4 49 54 4C 45 20 46 4F 52 20 C1 |DGET .ITLE FOR .|
00002160: 4E 41 4C 59 53 49 53 22 3A 85 54 24 00 7B 29 D8 |NALYSIS":.T$.{).|
00002170: 10 8B 54 24 B2 22 22 A7 33 30 30 00 90 29 D9 10 |..T$."".300..)..|
00002180: 8D 32 32 30 30 3A 8B 42 43 B2 30 A7 34 33 39 30 |.2200:.BC.0.4390|
00002190: 00 A6 29 DA 10 8D 31 33 35 30 3A 8D 33 38 30 30 |..)...1350:.3800|
000021A0: 3A 8D 33 38 35 30 00 B6 29 DD 10 8D 31 33 35 30 |:.3850..)...1350|
000021B0: 3A 8D 39 30 30 30 00 D1 29 E0 10 42 41 B2 30 3A |:.9000..)..BA.0:|
000021C0: 8D 34 33 38 30 3A 8B 50 52 B1 30 A7 8D 39 35 30 |.4380:.PR.0..950|
000021D0: 30 00 E3 29 EA 10 81 54 54 B2 31 A4 54 52 28 30 |0..)...TT.1.TR(0|
000021E0: 2C 30 29 00 08 2A EF 10 8B 54 52 28 54 54 2C 31 |,0)..*...TR(TT,1|
000021F0: 29 B2 42 43 B0 54 52 28 54 54 2C 31 29 B2 42 43 |).BC.TR(TT,1).BC|
00002200: AA 31 36 A7 34 33 34 30 00 12 2A F0 10 89 34 33 |.16.4340..*...43|
00002210: 36 35 00 28 2A F4 10 44 54 B2 54 52 28 54 54 2C |65.(*..DT.TR(TT,|
00002220: 30 29 3A 8D 31 32 30 30 00 40 2A F5 10 8B 44 54 |0):.1200.@*...DT|
00002230: B1 B2 53 44 AF 44 54 B3 B2 45 44 A7 34 33 34 35 |..SD.DT..ED.4345|
00002240: 00 4A 2A F6 10 89 34 33 36 35 00 70 2A F9 10 99 |.J*...4365.p*...|
00002250: 44 3B 22 9D 22 3B 4D 24 28 4D 29 3B 59 3B A3 31 |D;".";M$(M);Y;.1|
00002260: 30 29 3B 54 52 24 28 54 54 29 3B A3 32 31 29 3B |0);TR$(TT);.21);|
00002270: 00 93 2A FE 10 54 4E B2 AB 54 52 28 54 54 2C 32 |..*..TN..TR(TT,2|
00002280: 29 3A 4E 4C B2 30 3A 8D 32 33 30 30 3A 99 A3 33 |):NL.0:.2300:..3|
00002290: 30 29 3B 00 B1 2A 03 11 42 41 B2 42 41 AA 54 4E |0);..*..BA.BA.TN|
000022A0: 3A 54 4E B2 42 41 3A 4E 4C B2 31 3A 8D 32 33 30 |:TN.BA:NL.1:.230|
000022B0: 30 00 C1 2A 04 11 8B 50 52 B1 30 A7 8D 39 35 35 |0..*...PR.0..955|
000022C0: 30 00 D6 2A 08 11 4C B2 4C AA 31 3A 8B 4C B2 31 |0..*..L.L.1:.L.1|
000022D0: 38 A7 34 33 37 35 00 DE 2A 0D 11 82 54 54 00 F3 |8.4375..*...TT..|
000022E0: 2A 12 11 8D 31 36 30 30 3A 8D 39 32 30 30 3A 89 |*...1600:.9200:.|
000022F0: 33 30 30 00 09 2B 17 11 8D 31 36 30 30 3A 8D 34 |300..+...1600:.4|
00002300: 33 38 30 3A 89 34 33 36 35 00 28 2B 1C 11 99 22 |380:.4365.(+..."|
00002310: 93 22 3B 42 44 24 28 42 43 29 3B 22 20 C1 4E 41 |.";BD$(BC);" .NA|
00002320: 4C 59 53 49 53 22 3A 99 00 5C 2B 1E 11 99 22 20 |LYSIS":..\+..." |
00002330: C4 41 54 45 22 3B A3 31 30 29 3B 22 C4 45 54 41 |.ATE";.10);".ETA|
00002340: 49 4C 53 22 3B A3 32 35 29 3B 22 5C 2E 50 22 3B |ILS";.25);"\.P";|
00002350: A3 33 32 29 3B 22 C2 41 4C 22 3A 99 00 66 2B 21 |.32);".AL":..f+!|
00002360: 11 4C B2 31 3A 8E 00 8D 2B 26 11 8D 31 33 30 30 |.L.1:...+&..1300|
00002370: 3A 99 22 91 91 C8 45 41 44 49 4E 47 20 4E 4F 54 |:."...EADING NOT|
00002380: 20 C6 4F 55 4E 44 22 3A 89 34 33 31 30 00 93 2B | .OUND":.4310..+|
00002390: 94 11 8F 00 B0 2B 95 11 8F 20 44 45 4C 45 54 45 |.....+... DELETE|
000023A0: 20 42 55 44 47 45 54 20 48 45 41 44 49 4E 47 53 | BUDGET HEADINGS|
000023B0: 00 B6 2B 96 11 8F 00 CE 2B 9E 11 99 22 93 22 3B |..+.....+...".";|
000023C0: 3A 8B 42 44 28 30 29 B2 30 A7 34 32 39 30 00 D8 |:.BD(0).0.4290..|
000023D0: 2B A8 11 8D 32 31 30 30 00 FE 2B AD 11 54 24 B2 |+...2100..+..T$.|
000023E0: 22 22 3A 8D 31 33 30 30 3A 99 22 91 C8 45 41 44 |"":.1300:."..EAD|
000023F0: 49 4E 47 20 54 4F 20 C4 45 4C 45 54 45 22 00 1F |ING TO .ELETE"..|
00002400: 2C B2 11 85 22 28 54 59 50 45 20 27 41 4C 4C 27 |,..."(TYPE 'ALL'|
00002410: 20 54 4F 20 43 4C 45 41 52 29 20 22 3B 54 24 00 | TO CLEAR) ";T$.|
00002420: 2E 2C B7 11 8B 54 24 B2 22 22 A7 33 30 30 00 41 |.,...T$."".300.A|
00002430: 2C BC 11 8B 54 24 B2 22 41 4C 4C 22 A7 34 36 30 |,...T$."ALL".460|
00002440: 30 00 56 2C C1 11 8D 32 32 30 30 3A 8B 42 43 B2 |0.V,...2200:.BC.|
00002450: 30 A7 34 35 38 30 00 83 2C C6 11 8D 31 33 35 30 |0.4580..,...1350|
00002460: 3A 99 22 C4 45 4C 45 54 45 20 27 22 3B 42 44 24 |:.".ELETE '";BD$|
00002470: 28 42 43 29 3B 22 27 20 28 59 2F 4E 29 22 3B 3A |(BC);"' (Y/N)";:|
00002480: 85 43 24 00 95 2C D5 11 8B 43 24 B3 B1 22 59 22 |.C$..,...C$.."Y"|
00002490: A7 34 35 32 35 00 9F 2C DA 11 89 34 36 35 30 00 |.4525..,...4650.|
000024A0: C6 2C E4 11 8D 31 33 30 30 3A 99 22 91 91 C8 45 |.,...1300:."...E|
000024B0: 41 44 49 4E 47 20 4E 4F 54 20 46 4F 55 4E 44 22 |ADING NOT FOUND"|
000024C0: 3A 89 34 35 32 35 00 CC 2C F8 11 8F 00 E5 2C F9 |:.4525..,.....,.|
000024D0: 11 8F 20 43 4C 45 41 52 20 41 4C 4C 20 48 45 41 |.. CLEAR ALL HEA|
000024E0: 44 49 4E 47 53 00 EB 2C FA 11 8F 00 F5 2C FD 11 |DINGS..,.....,..|
000024F0: 8D 31 33 35 30 00 25 2D 02 12 99 22 91 D9 4F 55 |.1350.%-..."..OU|
00002500: 20 41 52 45 20 C1 42 4F 55 54 20 54 4F 20 C4 45 | ARE .BOUT TO .E|
00002510: 4C 45 54 45 20 41 4C 4C 20 54 48 45 20 C2 55 44 |LETE ALL THE .UD|
00002520: 47 45 54 53 22 00 46 2D 0C 12 99 22 C1 52 45 20 |GETS".F-...".RE |
00002530: 59 4F 55 20 D3 55 52 45 28 59 2F 4E 29 20 22 3B |YOU .URE(Y/N) ";|
00002540: 3A 8D 31 35 30 30 00 5C 2D 11 12 8B 59 4E B3 30 |:.1500.\-...YN.0|
00002550: A7 8D 31 33 35 30 3A 89 34 35 32 35 00 83 2D 16 |..1350:.4525..-.|
00002560: 12 99 22 93 22 3A 8D 31 33 35 30 3A 99 22 91 C1 |..".":.1350:."..|
00002570: 4C 4C 20 42 55 44 47 45 54 53 20 43 4C 45 41 52 |LL BUDGETS CLEAR|
00002580: 45 44 22 00 AD 2D 1B 12 81 42 43 B2 31 A4 42 44 |ED"..-...BC.1.BD|
00002590: 28 30 29 3A 42 44 24 28 42 43 29 B2 22 22 3A 42 |(0):BD$(BC)."":B|
000025A0: 44 28 42 43 29 B2 30 3A 8D 34 37 30 30 00 BD 2D |D(BC).0:.4700..-|
000025B0: 20 12 82 42 43 3A 42 44 28 30 29 B2 30 00 E7 2D | ..BC:BD(0).0..-|
000025C0: 25 12 99 22 50 52 45 53 53 20 41 20 4B 45 59 20 |%.."PRESS A KEY |
000025D0: 54 4F 20 C3 4F 4E 54 49 4E 55 45 22 3A 8D 32 30 |TO .ONTINUE":.20|
000025E0: 35 30 3A 89 33 30 30 00 ED 2D 2A 12 8F 00 0F 2E |50:.300..-*.....|
000025F0: 2B 12 8F 20 44 45 4C 45 54 45 20 54 48 45 20 48 |+.. DELETE THE H|
00002600: 45 41 44 49 4E 47 20 41 4E 44 20 53 4F 52 54 00 |EADING AND SORT.|
00002610: 1F 2E 2C 12 8F 20 54 48 45 20 41 52 52 41 59 00 |..,.. THE ARRAY.|
00002620: 25 2E 2D 12 8F 00 37 2E 2F 12 42 44 28 30 29 B2 |%.-...7./.BD(0).|
00002630: 42 44 28 30 29 AB 31 00 41 2E 31 12 8D 34 37 30 |BD(0).1.A.1..470|
00002640: 30 00 59 2E 34 12 42 44 24 28 42 43 29 B2 22 22 |0.Y.4.BD$(BC).""|
00002650: 3A 42 44 28 42 43 29 B2 30 00 69 2E 39 12 8B 42 |:BD(BC).0.i.9..B|
00002660: 43 B2 31 36 A7 34 35 30 30 00 80 2E 3E 12 8B 42 |C.16.4500...>..B|
00002670: 44 24 28 42 43 AA 31 29 B2 22 22 A7 34 35 30 30 |D$(BC.1)."".4500|
00002680: 00 BE 2E 43 12 42 44 24 28 42 43 29 B2 42 44 24 |...C.BD$(BC).BD$|
00002690: 28 42 43 AA 31 29 3A 42 44 24 28 42 43 AA 31 29 |(BC.1):BD$(BC.1)|
000026A0: B2 22 22 3A 42 44 28 42 43 29 B2 42 44 28 42 43 |."":BD(BC).BD(BC|
000026B0: AA 31 29 3A 42 44 28 42 43 AA 31 29 B2 30 00 DD |.1):BD(BC.1).0..|
000026C0: 2E 45 12 54 42 28 42 43 29 B2 54 42 28 42 43 AA |.E.TB(BC).TB(BC.|
000026D0: 31 29 3A 54 42 28 42 43 AA 31 29 B2 30 00 F5 2E |1):TB(BC.1).0...|
000026E0: 48 12 42 43 B2 42 43 AA 31 3A 8D 34 37 35 30 3A |H.BC.BC.1:.4750:|
000026F0: 89 34 36 36 35 00 FB 2E 5C 12 8F 00 1C 2F 5D 12 |.4665...\..../].|
00002700: 8F 20 53 45 54 20 42 55 44 47 45 54 20 43 4F 44 |. SET BUDGET COD|
00002710: 45 20 54 4F 20 5A 45 52 4F 20 49 4E 00 34 2F 5E |E TO ZERO IN.4/^|
00002720: 12 8F 20 54 52 41 4E 53 41 43 54 49 4F 4E 20 46 |.. TRANSACTION F|
00002730: 49 4C 45 53 00 3A 2F 5F 12 8F 00 4B 2F 61 12 8B |ILES.:/_...K/a..|
00002740: 54 52 28 30 2C 30 29 B2 30 A7 8E 00 5D 2F 66 12 |TR(0,0).0...]/f.|
00002750: 81 54 54 B2 31 A4 54 52 28 30 2C 30 29 00 7F 2F |.TT.1.TR(0,0)../|
00002760: 70 12 8B 42 43 B2 54 52 28 54 54 2C 31 29 A7 54 |p..BC.TR(TT,1).T|
00002770: 52 28 54 54 2C 31 29 B2 30 3A 89 34 37 34 30 00 |R(TT,1).0:.4740.|
00002780: 9F 2F 7A 12 8B 42 43 B2 54 52 28 54 54 2C 31 29 |./z..BC.TR(TT,1)|
00002790: AB 31 36 A7 54 52 28 54 54 2C 31 29 B2 31 36 00 |.16.TR(TT,1).16.|
000027A0: A9 2F 84 12 82 54 54 3A 8E 00 AF 2F 8E 12 8F 00 |./...TT:.../....|
000027B0: D0 2F 8F 12 8F 20 43 48 41 4E 47 45 20 42 55 44 |./... CHANGE BUD|
000027C0: 47 45 54 20 43 4F 44 45 53 20 49 4E 20 54 48 45 |GET CODES IN THE|
000027D0: 00 E8 2F 90 12 8F 20 54 52 41 4E 53 41 43 54 49 |../... TRANSACTI|
000027E0: 4F 4E 20 46 49 4C 45 53 00 EE 2F 91 12 8F 00 FF |ON FILES../.....|
000027F0: 2F 93 12 8B 54 52 28 30 2C 30 29 B2 30 A7 8E 00 |/...TR(0,0).0...|
00002800: 11 30 98 12 81 54 54 B2 31 A4 54 52 28 30 2C 30 |.0...TT.1.TR(0,0|
00002810: 29 00 36 30 9D 12 8B 42 43 B2 54 52 28 54 54 2C |).60...BC.TR(TT,|
00002820: 31 29 A7 54 52 28 54 54 2C 31 29 B2 42 43 AB 31 |1).TR(TT,1).BC.1|
00002830: 3A 89 34 37 34 30 00 5E 30 A2 12 8B 42 43 B2 54 |:.4740.^0...BC.T|
00002840: 52 28 54 54 2C 31 29 AB 31 36 A7 54 52 28 54 54 |R(TT,1).16.TR(TT|
00002850: 2C 31 29 B2 54 52 28 54 54 2C 31 29 AB 31 00 68 |,1).TR(TT,1).1.h|
00002860: 30 A7 12 82 54 54 3A 8E 00 6E 30 C0 12 8F 00 78 |0...TT:..n0....x|
00002870: 30 C5 12 8D 39 39 30 30 00 81 30 CA 12 89 33 30 |0...9900..0...30|
00002880: 30 00 87 30 88 13 8F 00 A1 30 89 13 8F 20 53 45 |0..0.....0... SE|
00002890: 54 20 4F 50 45 4E 49 4E 47 20 42 41 4C 41 4E 43 |T OPENING BALANC|
000028A0: 45 00 A7 30 8A 13 8F 00 B1 30 8B 13 99 22 93 22 |E..0.....0..."."|
000028B0: 3B 00 DE 30 8D 13 8D 31 33 30 30 3A 41 24 B2 22 |;..0...1300:A$."|
000028C0: 22 3A 85 22 C5 4E 54 45 52 20 CF 50 45 4E 49 4E |":.".NTER .PENIN|
000028D0: 47 20 C2 41 4C 41 4E 43 45 20 22 3B 41 24 00 EB |G .ALANCE ";A$..|
000028E0: 30 92 13 42 4C B2 C5 28 41 24 29 00 13 31 97 13 |0..BL..(A$)..1..|
000028F0: 8B 42 4C B1 39 39 39 39 2E 39 39 B0 42 4C B3 AB |.BL.9999.99.BL..|
00002900: 39 39 39 39 2E 39 39 A7 8D 32 37 30 30 3A 89 35 |9999.99..2700:.5|
00002910: 30 30 35 00 39 31 9C 13 8D 31 33 35 30 3A 99 22 |005.91...1350:."|
00002920: 91 CF 50 45 4E 49 4E 47 20 42 41 4C 41 4E 43 45 |..PENING BALANCE|
00002930: 20 49 53 20 5C 22 3B 42 4C 00 4D 31 A1 13 99 22 | IS \";BL.M1..."|
00002940: 4F 2E 4B 2E 20 22 3B 3A 8D 31 35 30 30 00 5C 31 |O.K. ";:.1500.\1|
00002950: A6 13 8B 59 4E B3 30 A7 35 30 30 30 00 65 31 AB |...YN.0.5000.e1.|
00002960: 13 89 34 30 30 00 6B 31 EC 13 8F 00 94 31 ED 13 |..400.k1.....1..|
00002970: 8F 20 45 4E 54 45 52 20 41 20 54 52 41 4E 53 41 |. ENTER A TRANSA|
00002980: 43 54 49 4F 4E 20 49 4E 54 4F 20 54 48 45 20 46 |CTION INTO THE F|
00002990: 49 4C 45 53 00 9A 31 EE 13 8F 00 AA 31 EF 13 99 |ILES..1.....1...|
000029A0: 22 93 22 3B 3A 8D 39 30 30 30 00 DF 31 F1 13 99 |".";:.9000..1...|
000029B0: 22 13 20 20 C4 41 54 45 22 3B A3 31 31 29 3B 22 |". .ATE";.11);"|
000029C0: C4 45 54 41 49 4C 53 22 3B A3 32 33 29 3B 22 43 |.ETAILS";.23);"C|
000029D0: 4F 44 45 22 3B A3 33 32 29 3B 22 5C 2E 50 22 00 |ODE";.32);"\.P".|
000029E0: EF 31 F2 13 8B 50 52 B1 30 A7 8D 39 33 30 30 00 |.1...PR.0..9300.|
000029F0: FD 31 F6 13 4E 54 B2 31 3A 53 4F B2 30 00 07 32 |.1..NT.1:SO.0..2|
00002A00: 00 14 8D 31 33 30 30 00 29 32 0A 14 99 22 C4 41 |...1300.)2...".A|
00002A10: 54 45 20 4F 46 20 D4 52 41 4E 53 41 43 54 49 4F |TE OF .RANSACTIO|
00002A20: 4E 22 3B 3A 8D 31 30 30 30 00 3B 32 0C 14 8B 44 |N";:.1000.;2...D|
00002A30: B2 30 AF 4E 54 B2 31 A7 34 30 30 00 49 32 0F 14 |.0.NT.1.400.I2..|
00002A40: 8B 44 B2 30 A7 35 31 32 30 00 68 32 14 14 8D 35 |.D.0.5120.h2...5|
00002A50: 33 30 30 3A 8D 31 32 30 30 3A 99 44 3B 22 9D 22 |300:.1200:.D;"."|
00002A60: 3B 4D 24 28 4D 29 3B 59 00 88 32 1E 14 8D 31 33 |;M$(M);Y..2...13|
00002A70: 30 30 3A 44 4C 24 B2 22 22 3A 85 22 C4 45 54 41 |00:DL$."":.".ETA|
00002A80: 49 4C 53 22 3B 44 4C 24 00 A1 32 23 14 8B 44 4C |ILS";DL$..2#..DL|
00002A90: 24 B2 22 22 A7 44 4C 24 B2 22 2A 2A 2A 2A 2A 2A |$."".DL$."******|
00002AA0: 22 00 BE 32 2D 14 8B C3 28 44 4C 24 29 B1 31 30 |"..2-...(DL$).10|
00002AB0: A7 44 4C 24 B2 C8 28 44 4C 24 2C 31 30 29 00 D2 |.DL$..(DL$,10)..|
00002AC0: 32 32 14 8D 35 33 30 30 3A 99 A3 31 31 29 3B 44 |22..5300:..11);D|
00002AD0: 4C 24 00 F8 32 3C 14 54 24 B2 22 22 3A 8D 31 33 |L$..2<.T$."":.13|
00002AE0: 30 30 3A 85 22 C2 55 44 47 45 54 20 48 45 41 44 |00:.".UDGET HEAD|
00002AF0: 49 4E 47 20 22 3B 54 24 00 11 33 41 14 8D 32 32 |ING ";T$..3A..22|
00002B00: 30 30 3A 8D 35 33 30 30 3A 99 A3 32 33 29 3B 42 |00:.5300:..23);B|
00002B10: 43 00 3A 33 46 14 8D 31 33 30 30 3A 54 41 24 B2 |C.:3F..1300:TA$.|
00002B20: 22 22 3A 85 22 C1 4D 4F 55 4E 54 22 3B 54 41 24 |"":.".MOUNT";TA$|
00002B30: 3A 54 41 B2 C5 28 54 41 24 29 00 63 33 47 14 8B |:TA..(TA$).c3G..|
00002B40: 54 41 B1 39 39 39 39 2E 39 39 B0 54 41 B3 AB 39 |TA.9999.99.TA..9|
00002B50: 39 39 39 2E 39 39 39 A7 8D 32 37 30 30 3A 89 35 |999.999..2700:.5|
00002B60: 31 39 30 00 6D 33 48 14 8D 35 33 30 30 00 90 33 |190.m3H..5300..3|
00002B70: 49 14 99 A3 32 38 29 3B 3A 54 4E B2 54 41 3A 4E |I...28);:TN.TA:N|
00002B80: 4C B2 30 3A 8D 32 33 30 30 3A 99 A3 33 37 29 3B |L.0:.2300:..37);|
00002B90: 00 CA 33 4A 14 54 41 B2 AB 54 41 3A 8B 44 4C 24 |..3J.TA..TA:.DL$|
00002BA0: B2 22 43 52 45 44 49 54 22 B0 44 4C 24 B2 22 C3 |."CREDIT".DL$.".|
00002BB0: 52 45 44 49 54 22 B0 44 4C 24 B2 22 C3 D2 C5 C4 |REDIT".DL$."....|
00002BC0: C9 D4 22 A7 54 41 B2 AB 54 41 00 D9 33 4C 14 8B |..".TA..TA..3L..|
00002BD0: 54 41 B3 30 A7 99 22 44 22 00 E9 33 4E 14 8B 54 |TA.0.."D"..3N..T|
00002BE0: 41 B1 B2 30 A7 99 22 43 22 00 0C 34 50 14 8D 31 |A..0.."C"..4P..1|
00002BF0: 33 35 30 3A 99 22 C5 4E 54 52 59 20 4F 4B 28 59 |350:.".NTRY OK(Y|
00002C00: 2F 4E 29 20 22 3B 3A 8D 31 35 30 30 00 30 34 55 |/N) ";:.1500.04U|
00002C10: 14 8B 59 4E B3 30 A7 8D 35 33 30 30 3A 8D 31 33 |..YN.0..5300:.13|
00002C20: 31 30 3A 4E 54 B2 4E 54 AB 31 3A 89 35 32 32 30 |10:NT.NT.1:.5220|
00002C30: 00 50 34 5A 14 8D 31 33 30 30 3A 99 22 D0 4C 45 |.P4Z..1300:.".LE|
00002C40: 41 53 45 20 57 41 49 54 22 3B 3A 8D 35 33 35 30 |ASE WAIT";:.5350|
00002C50: 00 71 34 64 14 8D 31 33 30 30 3A 99 22 52 45 50 |.q4d..1300:."REP|
00002C60: 45 41 54 28 59 2F 4E 29 20 22 3B 3A 8D 31 35 30 |EAT(Y/N) ";:.150|
00002C70: 30 00 80 34 69 14 8B 59 4E B3 30 A7 35 32 34 30 |0..4i..YN.0.5240|
00002C80: 00 9A 34 6E 14 8B 4E 54 20 B2 20 31 37 A7 9E 34 |..4n..NT . 17..4|
00002C90: 39 31 35 38 3A 89 35 31 32 30 00 AC 34 73 14 4E |9158:.5120..4s.N|
00002CA0: 54 B2 4E 54 AA 31 3A 89 35 31 32 30 00 BC 34 78 |T.NT.1:.5120..4x|
00002CB0: 14 8B 50 52 B1 30 A7 8D 39 32 30 30 00 C5 34 7D |..PR.0..9200..4}|
00002CC0: 14 89 34 30 30 00 CB 34 B4 14 8F 00 EA 34 B5 14 |..400..4.....4..|
00002CD0: 8F 20 50 4F 53 49 54 49 4F 4E 20 54 4F 20 43 55 |. POSITION TO CU|
00002CE0: 52 52 45 4E 54 20 4C 49 4E 45 00 F0 34 B6 14 8F |RRENT LINE..4...|
00002CF0: 00 FA 34 B9 14 99 22 13 22 3B 00 11 35 BE 14 81 |..4...".";..5...|
00002D00: 4C B2 31 A4 4E 54 AA 31 3A 99 22 11 22 3B 3A 82 |L.1.NT.1:.".";:.|
00002D10: 4C 00 17 35 C3 14 8E 00 1D 35 E6 14 8F 00 3E 35 |L..5.....5....>5|
00002D20: E7 14 8F 20 50 55 54 20 41 4E 20 45 4E 54 52 59 |... PUT AN ENTRY|
00002D30: 20 49 4E 54 4F 20 54 48 45 20 46 49 4C 45 00 58 | INTO THE FILE.X|
00002D40: 35 E8 14 8F 20 49 4E 20 54 48 45 20 50 52 4F 50 |5... IN THE PROP|
00002D50: 45 52 20 4F 52 44 45 52 00 5E 35 E9 14 8F 00 89 |ER ORDER.^5.....|
00002D60: 35 EB 14 49 4E B2 54 52 28 30 2C 30 29 3A 8B 49 |5..IN.TR(0,0):.I|
00002D70: 4E B2 30 A7 49 4E B2 31 3A 54 52 28 30 2C 31 29 |N.0.IN.1:TR(0,1)|
00002D80: B2 44 54 3A 89 35 34 32 30 00 B8 35 F0 14 8B 44 |.DT:.5420..5...D|
00002D90: 54 B1 B2 54 52 28 30 2C 31 29 A7 49 4E B2 54 52 |T..TR(0,1).IN.TR|
00002DA0: 28 30 2C 30 29 AA 31 3A 54 52 28 30 2C 31 29 B2 |(0,0).1:TR(0,1).|
00002DB0: 44 54 3A 89 35 34 32 30 00 C5 35 FA 14 81 54 54 |DT:.5420..5...TT|
00002DC0: B2 31 A4 49 4E 00 DB 35 FF 14 8B 54 52 28 54 54 |.1.IN..5...TR(TT|
00002DD0: 2C 30 29 B1 44 54 A7 35 33 39 30 00 E3 35 04 15 |,0).DT.5390..5..|
00002DE0: 82 54 54 00 F3 35 09 15 49 4E B2 54 54 3A 89 35 |.TT..5..IN.TT:.5|
00002DF0: 34 32 30 00 FD 35 0E 15 49 4E B2 54 54 00 12 36 |420..5..IN.TT..6|
00002E00: 13 15 81 54 B2 54 52 28 30 2C 30 29 A4 54 54 A9 |...T.TR(0,0).TT.|
00002E10: AB 31 00 4C 36 18 15 54 52 28 54 AA 31 2C 30 29 |.1.L6..TR(T.1,0)|
00002E20: B2 54 52 28 54 2C 30 29 3A 54 52 28 54 AA 31 2C |.TR(T,0):TR(T.1,|
00002E30: 31 29 B2 54 52 28 54 2C 31 29 3A 54 52 28 54 AA |1).TR(T,1):TR(T.|
00002E40: 31 2C 32 29 B2 54 52 28 54 2C 32 29 00 60 36 1D |1,2).TR(T,2).`6.|
00002E50: 15 54 52 24 28 54 AA 31 29 B2 54 52 24 28 54 29 |.TR$(T.1).TR$(T)|
00002E60: 00 67 36 22 15 82 54 00 9E 36 2C 15 54 52 28 49 |.g6"..T..6,.TR(I|
00002E70: 4E 2C 30 29 B2 44 54 3A 54 52 28 49 4E 2C 31 29 |N,0).DT:TR(IN,1)|
00002E80: B2 42 43 AA 53 4F 3A 54 52 28 49 4E 2C 32 29 B2 |.BC.SO:TR(IN,2).|
00002E90: 54 41 3A 54 52 24 28 49 4E 29 B2 44 4C 24 00 C0 |TA:TR$(IN).DL$..|
00002EA0: 36 31 15 54 52 24 28 49 4E 29 B2 44 4C 24 3A 54 |61.TR$(IN).DL$:T|
00002EB0: 52 28 30 2C 30 29 B2 54 52 28 30 2C 30 29 AA 31 |R(0,0).TR(0,0).1|
00002EC0: 00 CF 36 32 15 8B 42 43 B2 30 A7 35 34 34 30 00 |..62..BC.0.5440.|
00002ED0: E7 36 3B 15 54 42 28 42 43 29 B2 54 42 28 42 43 |.6;.TB(BC).TB(BC|
00002EE0: 29 AA 28 AB 54 41 29 00 F7 36 40 15 8B 50 52 B1 |).(.TA)..6@..PR.|
00002EF0: 30 A7 8D 39 33 35 30 00 FD 36 4A 15 8E 00 03 37 |0..9350..6J....7|
00002F00: 7C 15 8F 00 1C 37 7D 15 8F 20 4F 55 54 50 55 54 ||....7}.. OUTPUT|
00002F10: 20 41 20 53 54 41 54 45 4D 45 4E 54 00 22 37 7E | A STATEMENT."7~|
00002F20: 15 8F 00 35 37 81 15 8B 54 52 28 30 2C 30 29 B2 |...57...TR(0,0).|
00002F30: 30 A7 34 39 35 00 63 37 86 15 99 22 93 11 11 11 |0.495.c7..."....|
00002F40: 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 |........ |
00002F50: 20 20 D3 54 41 54 45 4D 45 4E 54 20 4F 55 54 50 | .TATEMENT OUTP|
00002F60: 55 54 22 00 6D 37 90 15 8D 33 38 30 30 00 77 37 |UT".m7...3800.w7|
00002F70: A4 15 8D 33 38 35 30 00 81 37 B0 15 8D 39 30 30 |...3850..7...900|
00002F80: 30 00 8A 37 B3 15 99 22 93 22 00 90 37 B8 15 8F |0..7..."."..7...|
00002F90: 00 AD 37 B9 15 8F 20 57 4F 52 4B 20 4F 55 54 20 |..7... WORK OUT |
00002FA0: 42 41 4C 41 4E 43 45 20 46 49 52 53 54 00 B3 37 |BALANCE FIRST..7|
00002FB0: BA 15 8F 00 DB 37 BB 15 42 42 B2 42 4C 3A 8D 31 |.....7..BB.BL:.1|
00002FC0: 33 30 30 3A 99 22 C3 41 4C 43 55 4C 41 54 49 4E |300:.".ALCULATIN|
00002FD0: 47 20 42 41 4C 41 4E 43 45 22 3B 00 ED 37 BD 15 |G BALANCE";..7..|
00002FE0: 81 54 54 B2 31 A4 54 52 28 30 2C 30 29 00 04 38 |.TT.1.TR(0,0)..8|
00002FF0: C2 15 8B 54 52 28 54 54 2C 30 29 B1 B2 53 44 A7 |...TR(TT,0)..SD.|
00003000: 35 35 39 30 00 17 38 C7 15 42 42 B2 42 42 AA 54 |5590..8..BB.BB.T|
00003010: 52 28 54 54 2C 32 29 00 1F 38 CC 15 82 54 54 00 |R(TT,2)..8...TT.|
00003020: 28 38 D1 15 89 34 30 30 00 3D 38 D6 15 8B 50 52 |(8...400.=8...PR|
00003030: B2 31 A7 8D 39 30 35 30 3A 46 4C B2 30 00 70 38 |.1..9050:FL.0.p8|
00003040: E0 15 99 22 93 20 C4 41 54 45 22 3B A3 31 30 29 |...". .ATE";.10)|
00003050: 3B 22 C4 45 54 41 49 4C 53 22 3B A3 32 35 29 3B |;".ETAILS";.25);|
00003060: 22 5C 2E 50 22 3B A3 33 32 29 3B 22 C2 41 4C 22 |"\.P";.32);".AL"|
00003070: 00 84 38 E5 15 8B 50 52 B2 30 B0 46 4C B1 30 A7 |..8...PR.0.FL.0.|
00003080: 35 36 32 30 00 A5 38 EA 15 98 31 2C 22 C2 41 4C |5620..8...1,".AL|
00003090: 41 4E 43 45 20 C2 2F C6 D7 C4 22 3B 54 42 24 3B |ANCE ./...";TB$;|
000030A0: 22 33 30 22 3B 00 C6 38 EF 15 54 4E B2 42 42 3A |"30";..8..TN.BB:|
000030B0: 4E 4C B2 30 3A 8D 39 31 30 30 3A 98 31 2C 4C 46 |NL.0:.9100:.1,LF|
000030C0: 24 3A 46 4C B2 31 00 E1 38 F4 15 99 22 C2 41 4C |$:FL.1..8...".AL|
000030D0: 41 4E 43 45 20 C2 2F C6 D7 C4 22 3B A3 33 30 29 |ANCE ./...";.30)|
000030E0: 3B 00 F6 38 FE 15 54 4E B2 42 42 3A 4E 4C B2 31 |;..8..TN.BB:NL.1|
000030F0: 3A 8D 32 33 30 30 00 FC 38 03 16 99 00 04 39 08 |:.2300..8.....9.|
00003100: 16 4C B2 31 00 1A 39 0D 16 8B 54 52 28 54 54 2C |.L.1..9...TR(TT,|
00003110: 30 29 B1 45 44 A7 35 36 39 35 00 30 39 0F 16 44 |0).ED.5695.09..D|
00003120: 54 B2 54 52 28 54 54 2C 30 29 3A 8D 31 32 30 30 |T.TR(TT,0):.1200|
00003130: 00 56 39 12 16 99 44 3B 22 9D 22 3B 4D 24 28 4D |.V9...D;".";M$(M|
00003140: 29 3B 59 3B A3 31 30 29 3B 54 52 24 28 54 54 29 |);Y;.10);TR$(TT)|
00003150: 3B A3 32 31 29 3B 00 78 39 17 16 54 4E B2 54 52 |;.21);.x9..TN.TR|
00003160: 28 54 54 2C 32 29 3A 4E 4C B2 30 3A 8D 32 33 30 |(TT,2):NL.0:.230|
00003170: 30 3A 99 A3 33 30 29 3B 00 9C 39 1C 16 42 42 B2 |0:..30);..9..BB.|
00003180: 42 42 AA 54 52 28 54 54 2C 32 29 3A 4E 4C B2 31 |BB.TR(TT,2):NL.1|
00003190: 3A 54 4E B2 42 42 3A 8D 32 33 30 30 00 AC 39 1E |:TN.BB:.2300..9.|
000031A0: 16 8B 50 52 B2 31 A7 8D 39 32 35 30 00 C1 39 21 |..PR.1..9250..9!|
000031B0: 16 8B 54 54 B2 54 52 28 30 2C 30 29 A7 35 36 39 |..TT.TR(0,0).569|
000031C0: 35 00 D9 39 26 16 8B 4C B2 31 37 A7 54 54 B2 54 |5..9&..L.17.TT.T|
000031D0: 54 AA 31 3A 89 35 36 39 30 00 F1 39 2B 16 4C B2 |T.1:.5690..9+.L.|
000031E0: 4C AA 31 3A 54 54 B2 54 54 AA 31 3A 89 35 36 34 |L.1:TT.TT.1:.564|
000031F0: 35 00 01 3A 3A 16 8D 31 36 30 30 3A 89 35 36 30 |5..::..1600:.560|
00003200: 30 00 16 3A 3F 16 8D 31 36 30 30 3A 8D 39 32 30 |0..:?..1600:.920|
00003210: 30 3A 89 34 30 30 00 1C 3A A8 16 8F 00 32 3A A9 |0:.400..:....2:.|
00003220: 16 8F 20 43 4C 45 41 52 20 54 48 45 20 46 49 4C |.. CLEAR THE FIL|
00003230: 45 53 00 38 3A AA 16 8F 00 6F 3A AD 16 99 22 93 |ES.8:....o:...".|
00003240: 22 3A 8D 31 33 30 30 3A 99 22 C3 4C 45 41 52 20 |":.1300:.".LEAR |
00003250: 54 52 41 4E 53 41 43 54 49 4F 4E 20 46 49 4C 45 |TRANSACTION FILE|
00003260: 53 28 59 2F 4E 29 20 22 3B 3A 8D 31 35 30 30 00 |S(Y/N) ";:.1500.|
00003270: 7D 3A B2 16 8B 59 4E B3 30 A7 34 30 30 00 86 3A |}:...YN.0.400..:|
00003280: C6 16 42 4C B2 30 00 9E 3A D0 16 54 52 28 30 2C |..BL.0..:..TR(0,|
00003290: 30 29 B2 30 3A 54 52 28 30 2C 31 29 B2 30 00 CF |0).0:TR(0,1).0..|
000032A0: 3A DA 16 8D 31 33 30 30 3A 99 22 C3 4C 45 41 52 |:...1300:.".LEAR|
000032B0: 20 42 55 44 47 45 54 20 41 43 54 55 41 4C 20 46 | BUDGET ACTUAL F|
000032C0: 49 47 55 52 45 53 20 22 3B 3A 8D 31 35 30 30 00 |IGURES ";:.1500.|
000032D0: DD 3A E4 16 8B 59 4E B3 30 A7 34 30 30 00 F7 3A |.:...YN.0.400..:|
000032E0: EE 16 81 42 43 B2 31 A4 31 36 3A 54 42 28 42 43 |...BC.1.16:TB(BC|
000032F0: 29 B2 30 3A 82 42 43 00 00 3B F8 16 89 34 30 30 |).0:.BC..;...400|
00003300: 00 06 3B 0C 17 8F 00 22 3B 0D 17 8F 20 45 4E 54 |..;....";... ENT|
00003310: 45 52 20 53 54 41 4E 44 49 4E 47 20 4F 52 44 45 |ER STANDING ORDE|
00003320: 52 53 00 28 3B 0E 17 8F 00 54 3B 16 17 99 22 93 |RS.(;....T;...".|
00003330: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 C5 |.......... .|
00003340: 4E 54 45 52 20 D3 54 41 4E 44 49 4E 47 20 CF 52 |NTER .TANDING .R|
00003350: 44 45 52 22 00 64 3B 1B 17 8D 39 30 30 30 3A 53 |DER".d;...9000:S|
00003360: 4F B2 31 36 00 94 3B 20 17 8D 31 33 30 30 3A 99 |O.16..; ..1300:.|
00003370: 22 C5 4E 54 45 52 20 D3 54 41 52 54 20 C4 41 54 |".NTER .TART .AT|
00003380: 45 20 22 3B 3A 8D 31 30 30 30 3A 8B 44 B2 30 A7 |E ";:.1000:.D.0.|
00003390: 35 39 32 30 00 A9 3B 2A 17 99 22 93 11 11 20 31 |5920..;*.."... 1|
000033A0: 20 CD 4F 4E 54 48 4C 59 22 00 BE 3B 2F 17 99 22 | .ONTHLY"..;/.."|
000033B0: 11 20 32 20 D1 55 41 52 54 45 52 4C 59 22 00 D2 |. 2 .UARTERLY"..|
000033C0: 3B 34 17 99 22 11 20 33 20 C1 4E 4E 55 41 4C 4C |;4..". 3 .NNUALL|
000033D0: 59 22 00 EA 3B 39 17 99 22 11 20 34 20 CF 54 48 |Y"..;9..". 4 .TH|
000033E0: 45 52 20 D0 45 52 49 4F 44 22 00 01 3C 3E 17 8D |ER .ERIOD"..<>..|
000033F0: 31 33 30 30 3A 85 22 D7 48 49 43 48 20 22 3B 4B |1300:.".HICH ";K|
00003400: 24 00 0D 3C 43 17 46 B2 C5 28 4B 24 29 00 27 3C |$..<C.F..(K$).'<|
00003410: 48 17 8B 46 B2 31 B0 46 B2 32 B0 46 B2 33 B0 46 |H..F.1.F.2.F.3.F|
00003420: B2 34 A7 35 39 37 30 00 31 3C 4D 17 89 35 39 35 |.4.5970.1<M..595|
00003430: 30 00 46 3C 52 17 8B 46 B2 31 A7 50 59 B2 31 32 |0.F<R..F.1.PY.12|
00003440: 3A 89 35 39 38 30 00 5A 3C 53 17 8B 46 B2 32 A7 |:.5980.Z<S..F.2.|
00003450: 50 59 B2 34 3A 89 35 39 38 30 00 6E 3C 54 17 8B |PY.4:.5980.n<T..|
00003460: 46 B2 33 A7 50 59 B2 31 3A 89 35 39 38 30 00 98 |F.3.PY.1:.5980..|
00003470: 3C 57 17 8D 31 33 30 30 3A 85 22 C5 4E 54 45 52 |<W..1300:.".NTER|
00003480: 20 CE 55 4D 42 45 52 20 4F 46 20 D0 41 59 4D 45 | .UMBER OF .AYME|
00003490: 4E 54 53 20 22 3B 4B 24 00 B0 3C 58 17 50 59 B2 |NTS ";K$..<X.PY.|
000034A0: C5 28 4B 24 29 3A 8B 50 59 B2 30 A7 35 39 37 35 |.(K$):.PY.0.5975|
000034B0: 00 CA 3C 5C 17 8B 50 59 AA 54 52 28 30 2C 30 29 |..<\..PY.TR(0,0)|
000034C0: B3 B2 34 30 30 A7 36 30 30 30 00 F3 3C 61 17 99 |..400.6000..<a..|
000034D0: 22 93 11 11 CE 4F 54 20 C5 4E 4F 55 47 48 20 D2 |"....OT .NOUGH .|
000034E0: 4F 4F 4D 20 54 4F 20 C5 4E 54 45 52 20 D4 48 45 |OOM TO .NTER .HE|
000034F0: 53 45 22 00 0D 3D 62 17 99 22 D4 52 41 4E 53 41 |SE"..=b..".RANSA|
00003500: 43 54 49 4F 4E 53 22 3A 8D 31 33 30 30 00 3E 3D |CTIONS":.1300.>=|
00003510: 63 17 99 22 D0 52 45 53 53 20 41 20 CB 45 59 20 |c..".RESS A .EY |
00003520: 54 4F 20 C3 4F 4E 54 49 4E 55 45 22 3B 3A 8D 32 |TO .ONTINUE";:.2|
00003530: 30 35 30 3A 8D 39 32 30 30 3A 89 34 30 30 00 64 |050:.9200:.400.d|
00003540: 3D 70 17 99 22 93 22 3A 8D 31 33 30 30 3A 44 4C |=p..".":.1300:DL|
00003550: 24 B2 22 22 3A 85 22 C4 45 54 41 49 4C 53 20 22 |$."":.".ETAILS "|
00003560: 3B 44 4C 24 00 7D 3D 75 17 8B 44 4C 24 B2 22 22 |;DL$.}=u..DL$.""|
00003570: A7 44 4C 24 B2 22 2A 2A 2A 2A 2A 2A 22 00 9A 3D |.DL$."******"..=|
00003580: 7A 17 8B C3 28 44 4C 24 29 B1 31 30 A7 44 4C 24 |z...(DL$).10.DL$|
00003590: B2 C8 28 44 4C 24 2C 31 30 29 00 C0 3D 84 17 8D |..(DL$,10)..=...|
000035A0: 31 33 30 30 3A 85 22 C2 55 44 47 45 54 20 C8 45 |1300:.".UDGET .E|
000035B0: 41 44 49 4E 47 20 22 3B 54 24 3A 8D 32 32 30 30 |ADING ";T$:.2200|
000035C0: 00 D0 3D 89 17 8B 42 43 B2 30 A7 54 24 B2 22 22 |..=...BC.0.T$.""|
000035D0: 00 F0 3D 8E 17 8D 31 33 30 30 3A 54 41 24 B2 22 |..=...1300:TA$."|
000035E0: 22 3A 85 22 C1 4D 4F 55 4E 54 20 22 3B 54 41 24 |":.".MOUNT ";TA$|
000035F0: 00 22 3E 93 17 54 41 B2 C5 28 54 41 24 29 3A 8B |.">..TA..(TA$):.|
00003600: 54 41 B1 39 39 39 39 2E 39 39 B0 54 41 B3 AB 39 |TA.9999.99.TA..9|
00003610: 39 39 39 2E 39 39 A7 8D 32 37 30 30 3A 89 36 30 |999.99..2700:.60|
00003620: 33 30 00 4D 3E 98 17 99 22 93 D3 54 41 52 54 20 |30.M>..."..TART |
00003630: C4 41 54 45 20 22 3B A3 32 30 29 3B 3A 8D 31 32 |.ATE ";.20);:.12|
00003640: 30 30 3A 99 44 3B 4D 24 28 4D 29 3B 59 00 6C 3E |00:.D;M$(M);Y.l>|
00003650: 9D 17 99 22 CE 55 4D 42 45 52 20 4F 46 20 50 41 |...".UMBER OF PA|
00003660: 59 4D 45 4E 54 53 20 20 22 3B 50 59 00 85 3E A2 |YMENTS ";PY..>.|
00003670: 17 99 22 C4 45 54 41 49 4C 53 20 22 3B A3 32 31 |..".ETAILS ";.21|
00003680: 29 3B 44 4C 24 00 A1 3E A7 17 99 22 C2 55 44 47 |);DL$..>...".UDG|
00003690: 45 54 20 43 4F 44 45 20 22 3B A3 32 30 29 3B 42 |ET CODE ";.20);B|
000036A0: 43 00 B8 3E AC 17 99 22 C1 4D 4F 55 4E 54 20 22 |C..>...".MOUNT "|
000036B0: 3B A3 32 30 29 3B 54 41 00 D7 3E B1 17 8D 31 33 |;.20);TA..>...13|
000036C0: 35 30 3A 99 22 4F 2E 4B 2E 28 59 2F 4E 29 20 22 |50:."O.K.(Y/N) "|
000036D0: 3B 3A 8D 31 35 30 30 00 E6 3E B6 17 8B 59 4E B3 |;:.1500..>...YN.|
000036E0: 30 A7 36 31 35 30 00 F6 3E B8 17 99 22 93 22 3B |0.6150..>...".";|
000036F0: 3A 8D 36 31 38 30 00 06 3F BB 17 44 4D B2 44 3A |:.6180..?..DM.D:|
00003700: 54 41 B2 AB 54 41 00 20 3F C0 17 8D 35 33 35 30 |TA..TA. ?...5350|
00003710: 3A 8D 36 31 39 30 3A 8B 46 B2 33 A7 36 31 35 30 |:.6190:.F.3.6150|
00003720: 00 2E 3F C5 17 81 53 B2 31 A4 50 59 AB 31 00 49 |..?...S.1.PY.1.I|
00003730: 3F CA 17 91 46 89 36 30 39 35 2C 36 31 31 30 2C |?...F.6095,6110,|
00003740: 36 31 35 30 2C 36 30 39 35 00 63 3F CF 17 4D B2 |6150,6095.c?..M.|
00003750: 4D AA 31 3A 8B 4D B2 31 33 A7 4D B2 31 3A 59 B2 |M.1:.M.13.M.1:Y.|
00003760: 59 AA 31 00 78 3F D4 17 8B 44 B1 4D 4F 28 4D 29 |Y.1.x?...D.MO(M)|
00003770: A7 44 B2 4D 4F 28 4D 29 00 99 3F D9 17 8D 31 31 |.D.MO(M)..?...11|
00003780: 31 30 3A 8D 35 33 35 30 3A 8D 36 31 39 30 3A 44 |10:.5350:.6190:D|
00003790: B2 44 4D 3A 89 36 31 32 30 00 B6 3F DE 17 4D B2 |.DM:.6120..?..M.|
000037A0: 4D AA 33 3A 8B 4D B1 31 32 A7 4D B2 4D AB 31 32 |M.3:.M.12.M.M.12|
000037B0: 3A 59 B2 59 AA 31 00 C0 3F E3 17 89 36 31 30 30 |:Y.Y.1..?...6100|
000037C0: 00 C7 3F E8 17 82 53 00 E8 3F 06 18 8D 31 33 30 |..?...S..?...130|
000037D0: 30 3A 99 22 D2 45 50 45 41 54 28 59 2F 4E 29 20 |0:.".EPEAT(Y/N) |
000037E0: 22 3B 3A 8D 31 35 30 30 00 FD 3F 0B 18 8B 59 4E |";:.1500..?...YN|
000037F0: B1 30 A7 99 22 93 22 3A 89 35 39 32 30 00 0C 40 |.0..".":.5920..@|
00003800: 10 18 8D 39 32 30 30 3A 89 34 30 30 00 41 40 24 |...9200:.400.A@$|
00003810: 18 99 22 13 20 20 C4 41 54 45 22 3B A3 31 31 29 |..". .ATE";.11)|
00003820: 3B 22 C4 45 54 41 49 4C 53 22 3B A3 32 33 29 3B |;".ETAILS";.23);|
00003830: 22 43 4F 44 45 22 3B A3 33 32 29 3B 22 5C 2E 50 |"CODE";.32);"\.P|
00003840: 22 00 4D 40 29 18 99 3A 4C B2 31 3A 8E 00 73 40 |".M@)..:L.1:..s@|
00003850: 2E 18 99 44 3B 4D 24 28 4D 29 3B 59 3B A3 31 31 |...D;M$(M);Y;.11|
00003860: 29 3B 44 4C 24 3B A3 32 33 29 3B 42 43 3B A3 32 |);DL$;.23);BC;.2|
00003870: 38 29 3B 00 8A 40 31 18 54 4E B2 54 41 3A 8B 54 |8);..@1.TN.TA:.T|
00003880: 4E B3 30 A7 54 4E B2 AB 54 4E 00 99 40 32 18 4E |N.0.TN..TN..@2.N|
00003890: 4C B2 30 3A 8D 32 33 30 30 00 A9 40 33 18 8B 54 |L.0:.2300..@3..T|
000038A0: 41 B3 30 A7 99 22 20 44 22 00 BA 40 34 18 8B 54 |A.0.." D"..@4..T|
000038B0: 41 B1 B2 30 A7 99 22 20 43 22 00 C6 40 35 18 8D |A..0.." C"..@5..|
000038C0: 36 34 30 30 3A 8E 00 CC 40 38 18 8F 00 F1 40 39 |6400:...@8....@9|
000038D0: 18 8F 20 44 45 4C 45 54 45 20 54 52 41 4E 53 41 |.. DELETE TRANSA|
000038E0: 43 54 49 4F 4E 53 20 46 52 4F 4D 20 46 49 4C 45 |CTIONS FROM FILE|
000038F0: 53 00 F7 40 3A 18 8F 00 0A 41 3D 18 8B 54 52 28 |S..@:....A=..TR(|
00003900: 30 2C 30 29 B2 30 A7 34 39 35 00 3A 41 3F 18 99 |0,0).0.495.:A?..|
00003910: 22 93 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |"........... |
00003920: 20 20 20 20 20 20 C4 45 4C 45 54 45 20 54 52 41 | .ELETE TRA|
00003930: 4E 53 41 43 54 49 4F 4E 53 22 00 61 41 42 18 44 |NSACTIONS".aAB.D|
00003940: 4C 24 B2 22 22 3A 8D 31 33 30 30 3A 85 22 C5 4E |L$."":.1300:.".N|
00003950: 54 45 52 20 C4 45 54 41 49 4C 53 20 22 3B 44 4C |TER .ETAILS ";DL|
00003960: 24 00 71 41 47 18 8B 44 4C 24 B2 22 22 A7 34 30 |$.qAG..DL$."".40|
00003970: 30 00 9B 41 4C 18 8D 31 33 30 30 3A 99 22 C6 49 |0..AL..1300:.".I|
00003980: 52 53 54 20 44 41 54 45 20 54 4F 20 44 45 4C 45 |RST DATE TO DELE|
00003990: 54 45 20 22 3B 3A 8D 31 30 30 30 00 A9 41 56 18 |TE ";:.1000..AV.|
000039A0: 8B 44 B2 30 A7 36 32 32 30 00 B3 41 5B 18 53 44 |.D.0.6220..A[.SD|
000039B0: B2 44 54 00 DC 41 60 18 8D 31 33 30 30 3A 99 22 |.DT..A`..1300:."|
000039C0: CC 41 53 54 20 44 41 54 45 20 54 4F 20 44 45 4C |.AST DATE TO DEL|
000039D0: 45 54 45 20 22 3B 3A 8D 31 30 30 30 00 EA 41 65 |ETE ";:.1000..Ae|
000039E0: 18 8B 44 B2 30 A7 36 32 34 30 00 F4 41 66 18 45 |..D.0.6240..Af.E|
000039F0: 44 B2 44 54 00 28 42 6A 18 8D 31 33 30 30 3A 99 |D.DT.(Bj..1300:.|
00003A00: 22 C1 52 45 20 54 48 45 53 45 20 53 54 41 4E 44 |".RE THESE STAND|
00003A10: 49 4E 47 20 4F 52 44 45 52 53 28 59 2F 4E 29 20 |ING ORDERS(Y/N) |
00003A20: 22 3B 3A 8D 31 35 30 30 00 3D 42 6F 18 53 53 B2 |";:.1500.=Bo.SS.|
00003A30: 30 3A 8B 59 4E B2 31 A7 53 53 B2 31 36 00 4C 42 |0:.YN.1.SS.16.LB|
00003A40: 71 18 8D 36 34 35 30 3A 99 22 93 22 00 75 42 74 |q..6450:.".".uBt|
00003A50: 18 54 54 B2 31 3A 8D 31 33 30 30 3A 99 22 D3 45 |.TT.1:.1300:.".E|
00003A60: 41 52 43 48 49 4E 47 20 46 49 4C 45 53 22 3B 3A |ARCHING FILES";:|
00003A70: 8D 36 31 38 30 00 8A 42 7E 18 8D 32 35 30 30 3A |.6180..B~..2500:|
00003A80: 8B 45 4E B2 30 A7 36 33 32 30 00 AE 42 83 18 8B |.EN.0.6320..B...|
00003A90: 54 52 28 45 4E 2C 30 29 B1 B2 53 44 AF 54 52 28 |TR(EN,0)..SD.TR(|
00003AA0: 45 4E 2C 30 29 B3 B2 45 44 A7 36 32 38 35 00 C4 |EN,0)..ED.6285..|
00003AB0: 42 85 18 8B 54 52 28 45 4E 2C 30 29 B1 45 44 A7 |B...TR(EN,0).ED.|
00003AC0: 36 33 32 30 00 D6 42 88 18 54 54 B2 45 4E AA 31 |6320..B..TT.EN.1|
00003AD0: 3A 89 36 32 37 30 00 F1 42 8D 18 8B 54 52 28 45 |:.6270..B...TR(E|
00003AE0: 4E 2C 31 29 B1 31 35 AF 53 53 B1 30 A7 36 33 30 |N,1).15.SS.0.630|
00003AF0: 30 00 0C 43 92 18 8B 54 52 28 45 4E 2C 31 29 B3 |0..C...TR(EN,1).|
00003B00: 31 36 AF 53 53 B2 30 A7 36 33 30 30 00 16 43 97 |16.SS.0.6300..C.|
00003B10: 18 89 36 32 38 30 00 31 43 9C 18 44 54 B2 54 52 |..6280.1C..DT.TR|
00003B20: 28 45 4E 2C 30 29 3A 54 52 28 45 4E 2C 30 29 B2 |(EN,0):TR(EN,0).|
00003B30: 30 00 68 43 A1 18 8D 31 32 30 30 3A 44 4C 24 B2 |0.hC...1200:DL$.|
00003B40: 54 52 24 28 45 4E 29 3A 42 43 B2 54 52 28 45 4E |TR$(EN):BC.TR(EN|
00003B50: 2C 31 29 AB 53 53 3A 54 41 B2 54 52 28 45 4E 2C |,1).SS:TA.TR(EN,|
00003B60: 32 29 3A 8D 36 31 39 30 00 77 43 A2 18 8B 43 42 |2):.6190.wC...CB|
00003B70: B2 30 A7 36 32 38 30 00 86 43 A3 18 8B 42 43 B2 |.0.6280..C...BC.|
00003B80: 30 A7 36 32 38 30 00 9B 43 A4 18 54 42 28 42 43 |0.6280..C..TB(BC|
00003B90: 29 B2 54 42 28 42 43 29 AA 54 41 00 A5 43 AF 18 |).TB(BC).TA..C..|
00003BA0: 89 36 32 38 30 00 BA 43 B0 18 8D 32 36 30 30 3A |.6280..C...2600:|
00003BB0: 8D 31 36 30 30 3A 89 34 30 30 00 CF 43 00 19 4C |.1600:.400..C..L|
00003BC0: B2 4C AA 31 3A 8B 4C B2 31 37 A7 36 34 32 30 00 |.L.1:.L.17.6420.|
00003BD0: D5 43 0A 19 8E 00 DF 43 14 19 8D 31 36 30 30 00 |.C.....C...1600.|
00003BE0: F0 43 1E 19 99 22 93 22 3A 8D 36 31 38 30 3A 8E |.C...".":.6180:.|
00003BF0: 00 F6 43 32 19 8F 00 2C 44 37 19 8D 31 33 30 30 |..C2...,D7..1300|
00003C00: 3A 99 22 C3 48 41 4E 47 45 20 42 55 44 47 45 54 |:.".HANGE BUDGET|
00003C10: 20 41 43 54 55 41 4C 20 46 49 47 55 52 45 53 28 | ACTUAL FIGURES(|
00003C20: 59 2F 4E 29 22 3B 3A 8D 31 35 30 30 00 3D 44 3C |Y/N)";:.1500.=D<|
00003C30: 19 8B 59 4E B1 30 A7 43 42 B2 31 3A 8E 00 48 44 |..YN.0.CB.1:..HD|
00003C40: 41 19 43 42 B2 30 3A 8E 00 4E 44 64 19 8F 00 69 |A.CB.0:..NDd...i|
00003C50: 44 65 19 8F 20 43 48 41 4E 47 45 20 41 20 54 52 |De.. CHANGE A TR|
00003C60: 41 4E 53 41 43 54 49 4F 4E 00 6F 44 66 19 8F 00 |ANSACTION.oDf...|
00003C70: 82 44 69 19 8B 54 52 28 30 2C 30 29 B2 30 A7 34 |.Di..TR(0,0).0.4|
00003C80: 39 35 00 B2 44 6B 19 99 22 93 11 11 11 11 11 11 |95..Dk..".......|
00003C90: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 C3 48 |.... .H|
00003CA0: 41 4E 47 45 20 54 52 41 4E 53 41 43 54 49 4F 4E |ANGE TRANSACTION|
00003CB0: 53 22 00 D9 44 6E 19 44 4C 24 B2 22 22 3A 8D 31 |S"..Dn.DL$."":.1|
00003CC0: 33 30 30 3A 85 22 C5 4E 54 45 52 20 C4 45 54 41 |300:.".NTER .ETA|
00003CD0: 49 4C 53 20 22 3B 44 4C 24 00 E9 44 73 19 8B 44 |ILS ";DL$..Ds..D|
00003CE0: 4C 24 B2 22 22 A7 34 30 30 00 13 45 78 19 8D 31 |L$."".400..Ex..1|
00003CF0: 33 30 30 3A 99 22 C6 49 52 53 54 20 44 41 54 45 |300:.".IRST DATE|
00003D00: 20 54 4F 20 43 48 41 4E 47 45 20 22 3B 3A 8D 31 | TO CHANGE ";:.1|
00003D10: 30 30 30 00 21 45 82 19 8B 44 B2 30 A7 36 35 32 |000.!E...D.0.652|
00003D20: 30 00 2B 45 87 19 53 44 B2 44 54 00 54 45 8C 19 |0.+E..SD.DT.TE..|
00003D30: 8D 31 33 30 30 3A 99 22 CC 41 53 54 20 44 41 54 |.1300:.".AST DAT|
00003D40: 45 20 54 4F 20 43 48 41 4E 47 45 20 22 3B 3A 8D |E TO CHANGE ";:.|
00003D50: 31 30 30 30 00 62 45 91 19 8B 44 B2 30 A7 36 35 |1000.bE...D.0.65|
00003D60: 34 30 00 6C 45 92 19 45 44 B2 44 54 00 76 45 95 |40.lE..ED.DT.vE.|
00003D70: 19 89 36 36 35 30 00 AA 45 96 19 8D 31 33 35 30 |..6650..E...1350|
00003D80: 3A 99 22 C1 52 45 20 54 48 45 53 45 20 53 54 41 |:.".RE THESE STA|
00003D90: 4E 44 49 4E 47 20 4F 52 44 45 52 53 28 59 2F 4E |NDING ORDERS(Y/N|
00003DA0: 29 20 22 3B 3A 8D 31 35 30 30 00 BF 45 9B 19 53 |) ";:.1500..E..S|
00003DB0: 53 B2 30 3A 8B 59 4E B2 31 A7 53 53 B2 31 36 00 |S.0:.YN.1.SS.16.|
00003DC0: CE 45 9D 19 8D 36 34 35 30 3A 99 22 93 22 00 F7 |.E...6450:."."..|
00003DD0: 45 A0 19 54 54 B2 31 3A 8D 31 33 30 30 3A 99 22 |E..TT.1:.1300:."|
00003DE0: D3 45 41 52 43 48 49 4E 47 20 46 49 4C 45 53 22 |.EARCHING FILES"|
00003DF0: 3B 3A 8D 36 31 38 30 00 0C 46 AA 19 8D 32 35 30 |;:.6180..F...250|
00003E00: 30 3A 8B 45 4E B2 30 A7 36 36 32 30 00 30 46 AF |0:.EN.0.6620.0F.|
00003E10: 19 8B 54 52 28 45 4E 2C 30 29 B1 B2 53 44 AF 54 |..TR(EN,0)..SD.T|
00003E20: 52 28 45 4E 2C 30 29 B3 B2 45 44 A7 36 35 38 35 |R(EN,0)..ED.6585|
00003E30: 00 46 46 B1 19 8B 54 52 28 45 4E 2C 30 29 B1 45 |.FF...TR(EN,0).E|
00003E40: 44 A7 36 36 32 30 00 58 46 B4 19 54 54 B2 45 4E |D.6620.XF..TT.EN|
00003E50: AA 31 3A 89 36 35 37 30 00 73 46 B9 19 8B 54 52 |.1:.6570.sF...TR|
00003E60: 28 45 4E 2C 31 29 B1 31 35 AF 53 53 B1 30 A7 36 |(EN,1).15.SS.0.6|
00003E70: 36 30 30 00 8E 46 BE 19 8B 54 52 28 45 4E 2C 31 |600..F...TR(EN,1|
00003E80: 29 B3 31 36 AF 53 53 B2 30 A7 36 36 30 30 00 98 |).16.SS.0.6600..|
00003E90: 46 C3 19 89 36 35 38 30 00 B4 46 C8 19 4F 56 B2 |F...6580..F..OV.|
00003EA0: 54 52 28 45 4E 2C 32 29 3A 54 52 28 45 4E 2C 32 |TR(EN,2):TR(EN,2|
00003EB0: 29 B2 54 41 00 EB 46 CD 19 44 54 B2 54 52 28 45 |).TA..F..DT.TR(E|
00003EC0: 4E 2C 30 29 3A 8D 31 32 30 30 3A 44 4C 24 B2 54 |N,0):.1200:DL$.T|
00003ED0: 52 24 28 45 4E 29 3A 42 43 B2 54 52 28 45 4E 2C |R$(EN):BC.TR(EN,|
00003EE0: 31 29 AB 53 53 3A 8D 36 31 39 30 00 F5 46 CE 19 |1).SS:.6190..F..|
00003EF0: 89 36 37 30 30 00 FF 46 D2 19 89 36 35 38 30 00 |.6700..F...6580.|
00003F00: 0E 47 DC 19 8D 31 36 30 30 3A 89 34 30 30 00 42 |.G...1600:.400.B|
00003F10: 47 FA 19 54 41 24 B2 22 22 3A 8D 31 33 30 30 3A |G..TA$."":.1300:|
00003F20: 85 22 C5 4E 54 45 52 20 4E 45 57 20 41 4D 4F 55 |.".NTER NEW AMOU|
00003F30: 4E 54 20 22 3B 54 41 24 3A 54 41 B2 C5 28 54 41 |NT ";TA$:TA..(TA|
00003F40: 24 29 00 6A 47 FC 19 8B 54 41 B1 39 39 39 39 2E |$).jG...TA.9999.|
00003F50: 39 39 B0 54 41 B3 AB 39 39 39 39 2E 39 39 A7 8D |99.TA..9999.99..|
00003F60: 32 37 30 30 3A 89 36 36 35 30 00 7B 47 FF 19 54 |2700:.6650.{G..T|
00003F70: 41 B2 AB 54 41 3A 89 36 35 35 30 00 8A 47 2C 1A |A..TA:.6550..G,.|
00003F80: 8B 43 42 B2 30 A7 36 35 38 30 00 99 47 31 1A 8B |.CB.0.6580..G1..|
00003F90: 42 43 B2 30 A7 36 35 38 30 00 BD 47 36 1A 44 46 |BC.0.6580..G6.DF|
00003FA0: B2 4F 56 AB 54 41 3A 54 42 28 42 43 29 B2 54 42 |.OV.TA:TB(BC).TB|
00003FB0: 28 42 43 29 AA 44 46 3A 89 36 35 38 30 00 C3 47 |(BC).DF:.6580..G|
00003FC0: 58 1B 8F 00 E5 47 59 1B 8F 20 54 48 49 53 20 49 |X....GY.. THIS I|
00003FD0: 53 20 54 48 45 20 4C 4F 41 4E 20 43 41 4C 43 55 |S THE LOAN CALCU|
00003FE0: 4C 41 54 4F 52 00 EB 47 5A 1B 8F 00 0E 48 62 1B |LATOR..GZ....Hb.|
00003FF0: 99 22 93 11 11 C1 4D 4F 55 4E 54 20 C2 4F 52 52 |."....MOUNT .ORR|
00004000: 4F 57 45 44 22 3B A3 32 35 29 3B 22 5C 22 00 30 |OWED";.25);"\".0|
00004010: 48 67 1B 99 22 11 D2 41 54 45 20 4F 46 20 C9 4E |Hg.."..ATE OF .N|
00004020: 54 45 52 45 53 54 22 3B A3 32 35 29 3B 22 25 22 |TEREST";.25);"%"|
00004030: 00 54 48 6C 1B 99 22 11 D0 45 52 49 4F 44 20 4F |.THl.."..ERIOD O|
00004040: 46 20 CC 4F 41 4E 22 3B A3 32 35 29 3B 22 59 45 |F .OAN";.25);"YE|
00004050: 41 52 53 22 00 77 48 71 1B 99 22 11 CD 4F 4E 54 |ARS".wHq.."..ONT|
00004060: 48 4C 59 20 D2 45 50 41 59 4D 45 4E 54 22 3B A3 |HLY .EPAYMENT";.|
00004070: 32 35 29 3B 22 5C 22 00 85 48 76 1B 49 54 B2 30 |25);"\"..Hv.IT.0|
00004080: 3A 4E 54 B2 31 00 AB 48 80 1B 8D 31 33 30 30 3A |:NT.1..H...1300:|
00004090: 54 24 B2 22 22 3A 85 22 C1 4D 4F 55 4E 54 20 C2 |T$."":.".MOUNT .|
000040A0: 4F 52 52 4F 57 45 44 22 3B 54 24 00 C9 48 85 1B |ORROWED";T$..H..|
000040B0: 8B 54 24 B2 22 22 A7 49 54 B2 49 54 AA 31 3A 43 |.T$."".IT.IT.1:C|
000040C0: 41 B2 31 3A 89 37 30 36 30 00 E1 48 8A 1B 41 42 |A.1:.7060..H..AB|
000040D0: B2 C5 28 54 24 29 3A 8B 41 42 B2 30 A7 37 30 34 |..(T$):.AB.0.704|
000040E0: 30 00 05 49 8F 1B 8D 35 33 30 30 20 3A 99 A3 33 |0..I...5300 :..3|
000040F0: 31 29 3B 3A 54 4E B2 41 42 3A 8D 32 33 30 30 3A |1);:TN.AB:.2300:|
00004100: 50 31 B2 41 42 00 11 49 94 1B 4E 54 B2 4E 54 AA |P1.AB..I..NT.NT.|
00004110: 32 00 39 49 99 1B 8D 31 33 30 30 3A 54 24 B2 22 |2.9I...1300:T$."|
00004120: 22 3A 85 22 D2 41 54 45 20 4F 46 20 C9 4E 54 45 |":.".ATE OF .NTE|
00004130: 52 45 53 54 20 22 3B 54 24 00 57 49 9E 1B 8B 54 |REST ";T$.WI...T|
00004140: 24 B2 22 22 A7 49 54 B2 49 54 AA 31 3A 43 41 B2 |$."".IT.IT.1:CA.|
00004150: 32 3A 89 37 30 38 35 00 76 49 A3 1B 52 49 B2 C5 |2:.7085.vI..RI..|
00004160: 28 54 24 29 3A 8B 52 49 B3 30 B0 52 49 B1 31 30 |(T$):.RI.0.RI.10|
00004170: 30 A7 37 30 36 35 00 9A 49 A8 1B 8D 35 33 30 30 |0.7065..I...5300|
00004180: 20 3A 99 A3 33 31 29 3B 3A 54 4E B2 52 49 3A 8D | :..31);:TN.RI:.|
00004190: 32 33 30 30 3A 50 32 B2 52 49 00 A6 49 AD 1B 4E |2300:P2.RI..I..N|
000041A0: 54 B2 4E 54 AA 32 00 CC 49 B2 1B 8D 31 33 30 30 |T.NT.2..I...1300|
000041B0: 3A 54 24 B2 22 22 3A 85 22 D0 45 52 49 4F 44 20 |:T$."":.".ERIOD |
000041C0: 4F 46 20 CC 4F 41 4E 20 22 3B 54 24 00 EA 49 B7 |OF .OAN ";T$..I.|
000041D0: 1B 8B 54 24 B2 22 22 A7 49 54 B2 49 54 AA 31 3A |..T$."".IT.IT.1:|
000041E0: 43 41 B2 33 3A 89 37 31 31 30 00 03 4A BC 1B 50 |CA.3:.7110..J..P|
000041F0: 4C B2 C5 28 54 24 29 3A 8B 50 4C B3 B2 30 A7 37 |L..(T$):.PL..0.7|
00004200: 30 39 30 00 27 4A C1 1B 8D 35 33 30 30 20 3A 99 |090.'J...5300 :.|
00004210: A3 33 31 29 3B 3A 54 4E B2 50 4C 3A 8D 32 33 30 |.31);:TN.PL:.230|
00004220: 30 3A 50 33 B2 50 4C 00 33 4A C6 1B 4E 54 B2 4E |0:P3.PL.3J..NT.N|
00004230: 54 AA 32 00 5C 4A CB 1B 8D 31 33 30 30 3A 54 24 |T.2.\J...1300:T$|
00004240: B2 22 22 3A 85 22 CD 4F 4E 54 48 4C 59 20 D2 45 |."":.".ONTHLY .E|
00004250: 50 41 59 4D 45 4E 54 20 22 3B 54 24 00 7A 4A D0 |PAYMENT ";T$.zJ.|
00004260: 1B 8B 54 24 B2 22 22 A7 49 54 B2 49 54 AA 31 3A |..T$."".IT.IT.1:|
00004270: 43 41 B2 34 3A 89 37 31 34 30 00 87 4A D5 1B 4D |CA.4:.7140..J..M|
00004280: 52 B2 C5 28 54 24 29 00 AB 4A DA 1B 8D 35 33 30 |R..(T$)..J...530|
00004290: 30 20 3A 99 A3 33 31 29 3B 3A 54 4E B2 4D 52 3A |0 :..31);:TN.MR:|
000042A0: 8D 32 33 30 30 3A 50 34 B2 4D 52 00 B5 4A E4 1B |.2300:P4.MR..J..|
000042B0: 8D 31 33 30 30 00 DB 4A E9 1B 8B 49 54 B1 31 A7 |.1300..J...IT.1.|
000042C0: 99 22 91 D4 4F 4F 20 CD 41 4E 59 20 D5 4E 4B 4E |."..OO .ANY .NKN|
000042D0: 4F 57 4E 53 22 3A 89 37 33 38 30 00 04 4B EE 1B |OWNS":.7380..K..|
000042E0: 8B 49 54 B2 30 A7 99 22 91 CE 4F 54 48 49 4E 47 |.IT.0.."..OTHING|
000042F0: 20 54 4F 20 C3 41 4C 43 55 4C 41 54 45 22 3A 89 | TO .ALCULATE":.|
00004300: 37 33 38 30 00 30 4B F3 1B 8D 31 33 30 30 3A 85 |7380.0K...1300:.|
00004310: 22 C2 41 4E 4B 20 CC 4F 41 4E 20 4F 52 20 CD 4F |".ANK .OAN OR .O|
00004320: 52 54 47 41 47 45 28 42 2F 4D 29 20 22 3B 4B 24 |RTGAGE(B/M) ";K$|
00004330: 00 41 4B F8 1B 8B 4B 24 B2 22 42 22 A7 37 31 38 |.AK...K$."B".718|
00004340: 30 00 53 4B FD 1B 8B 4B 24 B3 B1 22 4D 22 A7 37 |0.SK...K$.."M".7|
00004350: 31 35 35 00 66 4B 02 1C 4D 52 B2 4D 52 AC 31 32 |155.fK..MR.MR.12|
00004360: 3A 89 37 31 39 30 00 85 4B 0C 1C 41 42 B2 41 42 |:.7190..K..AB.AB|
00004370: AC 31 32 3A 52 49 B2 52 49 AD 31 32 3A 50 4C B2 |.12:RI.RI.12:PL.|
00004380: 50 4C AC 31 32 00 A1 4B 16 1C 91 43 41 89 37 32 |PL.12..K...CA.72|
00004390: 30 30 2C 37 32 35 30 2C 37 33 30 30 2C 37 33 35 |00,7250,7300,735|
000043A0: 30 00 B6 4B 20 1C 59 59 B2 28 31 AA 52 49 AD 31 |0..K .YY.(1.RI.1|
000043B0: 30 30 29 AE 50 4C 00 D5 4B 25 1C 50 50 B2 28 4D |00).PL..K%.PP.(M|
000043C0: 52 AC 28 59 59 AB 31 29 29 AD 28 59 59 AC 52 49 |R.(YY.1)).(YY.RI|
000043D0: AD 31 30 30 29 00 E2 4B 2A 1C 50 50 B2 B5 28 50 |.100)..K*.PP..(P|
000043E0: 50 29 00 0C 4C 2F 1C 4E 54 20 B2 20 31 3A 8D 35 |P)..L/.NT . 1:.5|
000043F0: 33 30 30 3A 99 A3 33 31 29 3B 3A 54 4E B2 50 50 |300:..31);:TN.PP|
00004400: 3A 8D 32 33 30 30 3A 50 31 B2 50 50 00 16 4C 34 |:.2300:P1.PP..L4|
00004410: 1C 89 37 33 37 35 00 2B 4C 52 1C 8B 4B 24 B2 22 |..7375.+LR..K$."|
00004420: 42 22 A7 41 42 B2 41 42 AD 31 32 00 3D 4C 57 1C |B".AB.AB.12.=LW.|
00004430: 49 54 B2 28 50 4C AC 4D 52 29 AB 41 42 00 54 4C |IT.(PL.MR).AB.TL|
00004440: 5C 1C 49 54 B2 28 B5 28 49 54 AC 31 30 30 29 29 |\.IT.(.(IT.100))|
00004450: AD 31 30 30 00 87 4C 61 1C 4E 54 B2 39 3A 8D 35 |.100..La.NT.9:.5|
00004460: 33 30 30 3A 99 22 D4 4F 54 41 4C 20 C9 4E 54 45 |300:.".OTAL .NTE|
00004470: 52 45 53 54 20 D0 41 59 41 42 4C 45 22 3B A3 32 |REST .AYABLE";.2|
00004480: 35 29 3B 22 5C 22 3B 00 A4 4C 62 1C 99 A3 33 31 |5);"\";..Lb...31|
00004490: 29 3B 3A 54 4E B2 49 54 3A 8D 32 33 30 30 3A 50 |);:TN.IT:.2300:P|
000044A0: 35 B2 49 54 00 B9 4C 66 1C 8B 4B 24 B2 22 42 22 |5.IT..Lf..K$."B"|
000044B0: A7 50 4C B2 50 4C AD 31 32 00 D1 4C 68 1C 52 49 |.PL.PL.12..Lh.RI|
000044C0: B2 28 28 49 54 AD 50 4C 29 AD 41 42 29 AC 31 30 |.((IT.PL).AB).10|
000044D0: 30 00 E8 4C 6B 1C 52 49 B2 28 B5 28 52 49 AC 31 |0..Lk.RI.(.(RI.1|
000044E0: 30 30 29 29 AD 31 30 30 00 10 4D 70 1C 4E 54 B2 |00)).100..Mp.NT.|
000044F0: 33 3A 8D 35 33 30 30 3A 99 A3 33 31 29 3B 3A 54 |3:.5300:..31);:T|
00004500: 4E B2 52 49 3A 8D 32 33 30 30 3A 50 32 B2 52 49 |N.RI:.2300:P2.RI|
00004510: 00 1A 4D 75 1C 89 37 33 37 35 00 2F 4D 84 1C 8B |..Mu..7375./M...|
00004520: 4B 24 B2 22 42 22 A7 41 42 B2 41 42 AD 31 32 00 |K$."B".AB.AB.12.|
00004530: 3F 4D 8E 1C 81 51 B2 31 A4 31 30 30 30 30 30 00 |?M...Q.1.100000.|
00004540: 50 4D 93 1C 4D 4D B2 41 42 AC 52 49 AD 31 30 30 |PM..MM.AB.RI.100|
00004550: 00 60 4D 98 1C 41 42 B2 41 42 AA 4D 4D AB 4D 52 |.`M..AB.AB.MM.MR|
00004560: 00 70 4D 9D 1C 8B 41 42 B3 B2 30 A7 37 33 33 31 |.pM...AB..0.7331|
00004570: 00 77 4D A2 1C 82 51 00 95 4D A3 1C 4E 54 B2 35 |.wM...Q..M..NT.5|
00004580: 3A 8D 35 33 30 30 3A 99 A3 32 35 29 3B 22 4D 4F |:.5300:..25);"MO|
00004590: 4E 54 48 53 22 00 BE 4D A7 1C 4E 54 B2 35 3A 8D |NTHS"..M..NT.5:.|
000045A0: 35 33 30 30 3A 99 A3 33 31 29 3B 3A 54 4E B2 51 |5300:..31);:TN.Q|
000045B0: AB 31 3A 8D 32 33 30 30 3A 50 33 B2 54 4E 00 C8 |.1:.2300:P3.TN..|
000045C0: 4D AC 1C 89 37 33 37 35 00 DD 4D B6 1C 4D 52 B2 |M...7375..M..MR.|
000045D0: 28 31 AA 52 49 AD 31 30 30 29 AE 50 4C 00 FA 4D |(1.RI.100).PL..M|
000045E0: BB 1C 59 59 B2 41 42 AC 4D 52 AC 52 49 AD 28 31 |..YY.AB.MR.RI.(1|
000045F0: 30 30 AC 28 4D 52 AB 31 29 29 00 1A 4E C0 1C 59 |00.(MR.1))..N..Y|
00004600: 59 B2 59 59 AD 31 32 3A 59 59 B2 28 B5 28 59 59 |Y.YY.12:YY.(.(YY|
00004610: AC 31 30 30 29 29 AD 31 30 30 00 42 4E C5 1C 4E |.100)).100.BN..N|
00004620: 54 B2 37 3A 8D 35 33 30 30 3A 99 A3 33 31 29 3B |T.7:.5300:..31);|
00004630: 3A 54 4E B2 59 59 3A 8D 32 33 30 30 3A 50 34 B2 |:TN.YY:.2300:P4.|
00004640: 54 4E 00 4C 4E CF 1C 8D 39 36 30 30 00 5C 4E D4 |TN.LN...9600.\N.|
00004650: 1C 8D 31 36 30 30 3A 8D 39 32 30 30 00 79 4E D9 |..1600:.9200.yN.|
00004660: 1C 8D 31 33 30 30 3A 85 22 D2 45 50 45 41 54 28 |..1300:.".EPEAT(|
00004670: 59 2F 4E 29 20 22 3B 4B 24 00 8B 4E DE 1C 8B 4B |Y/N) ";K$..N...K|
00004680: 24 B3 B1 22 59 22 A7 89 32 30 30 00 95 4E E3 1C |$.."Y"..200..N..|
00004690: 89 37 30 30 30 00 9B 4E 40 1F 8F 00 BD 4E 41 1F |.7000..N@....NA.|
000046A0: 8F 20 53 45 41 52 43 48 20 46 4F 52 20 44 45 54 |. SEARCH FOR DET|
000046B0: 41 49 4C 53 20 49 4E 20 46 49 4C 45 53 00 C3 4E |AILS IN FILES..N|
000046C0: 42 1F 8F 00 FB 4E 4A 1F 8D 31 33 30 30 3A 4B 24 |B....NJ..1300:K$|
000046D0: B2 22 22 3A 85 22 D3 45 41 52 43 48 20 42 59 20 |."":.".EARCH BY |
000046E0: C4 45 54 41 49 4C 53 20 4F 52 20 C1 4D 4F 55 4E |.ETAILS OR .MOUN|
000046F0: 54 28 44 2F 41 29 20 22 3B 4B 24 00 0C 4F 54 1F |T(D/A) ";K$..OT.|
00004700: 8B 4B 24 B2 22 44 22 A7 38 31 30 30 00 1D 4F 59 |.K$."D".8100..OY|
00004710: 1F 8B 4B 24 B2 22 41 22 A7 38 32 30 30 00 2C 4F |..K$."A".8200.,O|
00004720: 5E 1F 8B 4B 24 B2 22 22 A7 32 30 30 00 36 4F 63 |^..K$."".200.6Oc|
00004730: 1F 89 38 30 31 30 00 3C 4F A4 1F 8F 00 55 4F A5 |..8010.<O....UO.|
00004740: 1F 8F 20 53 45 41 52 43 48 20 46 4F 52 20 44 45 |.. SEARCH FOR DE|
00004750: 54 41 49 4C 53 00 5B 4F A6 1F 8F 00 7B 4F A9 1F |TAILS.[O....{O..|
00004760: 8D 31 33 30 30 3A 99 22 91 D3 45 41 52 43 48 20 |.1300:."..EARCH |
00004770: 42 59 20 C4 45 54 41 49 4C 53 22 00 9C 4F AE 1F |BY .ETAILS"..O..|
00004780: 44 4C 24 B2 22 22 3A 85 22 C5 4E 54 45 52 20 44 |DL$."":.".NTER D|
00004790: 45 54 41 49 4C 53 20 22 3B 44 4C 24 00 B9 4F B3 |ETAILS ";DL$..O.|
000047A0: 1F 8B C3 28 44 4C 24 29 B1 31 30 A7 44 4C 24 B2 |...(DL$).10.DL$.|
000047B0: C8 28 44 4C 24 2C 31 30 29 00 C9 4F B8 1F 8B 44 |.(DL$,10)..O...D|
000047C0: 4C 24 B2 22 22 A7 38 30 30 00 DF 4F BD 1F 8D 39 |L$."".800..O...9|
000047D0: 30 30 30 3A 8B 50 52 B1 30 A7 8D 39 37 30 30 00 |000:.PR.0..9700.|
000047E0: E9 4F C2 1F 8D 38 31 38 30 00 FB 4F C7 1F 81 54 |.O...8180..O...T|
000047F0: 54 B2 31 A4 54 52 28 30 2C 30 29 00 11 50 CC 1F |T.1.TR(0,0)..P..|
00004800: 8B 54 52 24 28 54 54 29 B2 44 4C 24 A7 38 31 35 |.TR$(TT).DL$.815|
00004810: 30 00 1F 50 D1 1F 82 54 54 3A 8D 31 36 30 30 00 |0..P...TT:.1600.|
00004820: 2E 50 D2 1F 8D 39 32 30 30 3A 89 38 30 30 00 38 |.P...9200:.800.8|
00004830: 50 D6 1F 8D 38 33 30 30 00 4D 50 E5 1F 4C B2 4C |P...8300.MP..L.L|
00004840: AA 31 3A 8B 4C B3 31 37 A7 38 31 34 35 00 85 50 |.1:.L.17.8145..P|
00004850: EA 1F 8D 31 33 30 30 3A 99 22 D0 52 45 53 53 20 |...1300:.".RESS |
00004860: 41 20 4B 45 59 20 54 4F 20 C3 4F 4E 54 49 4E 55 |A KEY TO .ONTINU|
00004870: 45 22 3B 3A 8D 32 30 35 30 3A 8D 38 31 38 30 3A |E";:.2050:.8180:|
00004880: 89 38 31 34 35 00 9C 50 F4 1F 99 22 93 D3 45 41 |.8145..P..."..EA|
00004890: 52 43 48 20 42 59 20 22 3B 44 4C 24 00 C5 50 F9 |RCH BY ";DL$..P.|
000048A0: 1F 99 22 20 C4 41 54 45 22 3B A3 31 30 29 3B 22 |.." .ATE";.10);"|
000048B0: C4 45 54 41 49 4C 53 22 3B A3 32 35 29 3B 22 5C |.ETAILS";.25);"\|
000048C0: 2E 50 22 3A 99 00 CF 50 FE 1F 4C B2 31 3A 8E 00 |.P":...P..L.1:..|
000048D0: D5 50 08 20 8F 00 EC 50 09 20 8F 20 53 45 41 52 |.P. ...P. . SEAR|
000048E0: 43 48 20 42 59 20 41 4D 4F 55 4E 54 00 F2 50 0A |CH BY AMOUNT..P.|
000048F0: 20 8F 00 11 51 0D 20 8D 31 33 30 30 3A 99 22 91 | ...Q. .1300:.".|
00004900: D3 45 41 52 43 48 20 42 59 20 C1 4D 4F 55 4E 54 |.EARCH BY .MOUNT|
00004910: 22 00 31 51 0F 20 54 41 24 B2 22 22 3A 85 22 C5 |".1Q. TA$."":.".|
00004920: 4E 54 45 52 20 41 4D 4F 55 4E 54 20 22 3B 54 41 |NTER AMOUNT ";TA|
00004930: 24 00 41 51 12 20 8B 54 41 24 B2 22 22 A7 38 30 |$.AQ. .TA$."".80|
00004940: 30 00 4F 51 17 20 54 41 B2 C5 28 54 41 24 29 00 |0.OQ. TA..(TA$).|
00004950: 77 51 19 20 8B 54 41 B1 39 39 39 39 2E 39 39 B0 |wQ. .TA.9999.99.|
00004960: 54 41 B3 AB 39 39 39 39 2E 39 39 A7 8D 32 37 30 |TA..9999.99..270|
00004970: 30 3A 89 38 32 30 35 00 AF 51 1C 20 54 24 B2 22 |0:.8205..Q. T$."|
00004980: 22 3A 8D 31 33 35 30 3A 85 22 C4 45 42 49 54 20 |":.1350:.".EBIT |
00004990: 4F 52 20 C3 52 45 44 49 54 28 44 2F 43 29 20 22 |OR .REDIT(D/C) "|
000049A0: 3B 54 24 3A 8B 54 24 B2 22 22 A7 38 32 32 30 00 |;T$:.T$."".8220.|
000049B0: C8 51 1E 20 8B 54 24 B2 22 44 22 A7 54 41 B2 AB |.Q. .T$."D".TA..|
000049C0: 54 41 3A 89 38 32 33 30 00 D9 51 21 20 8B 54 24 |TA:.8230..Q! .T$|
000049D0: B2 22 43 22 A7 38 32 33 30 00 E3 51 23 20 89 38 |."C".8230..Q# .8|
000049E0: 32 32 30 00 F9 51 26 20 8D 39 30 30 30 3A 8B 50 |220..Q& .9000:.P|
000049F0: 52 B1 30 A7 8D 39 38 30 30 00 03 52 27 20 8D 38 |R.0..9800..R' .8|
00004A00: 32 38 30 00 15 52 2B 20 81 54 54 B2 31 A4 54 52 |280..R+ .TT.1.TR|
00004A10: 28 30 2C 30 29 00 2B 52 30 20 8B 54 52 28 54 54 |(0,0).+R0 .TR(TT|
00004A20: 2C 32 29 B2 54 41 A7 38 32 35 30 00 39 52 35 20 |,2).TA.8250.9R5 |
00004A30: 82 54 54 3A 8D 31 36 30 30 00 48 52 36 20 8D 39 |.TT:.1600.HR6 .9|
00004A40: 32 30 30 3A 89 38 30 30 00 52 52 3A 20 8D 38 33 |200:.800.RR: .83|
00004A50: 30 30 00 67 52 49 20 4C B2 4C AA 31 3A 8B 4C B3 |00.gRI L.L.1:.L.|
00004A60: 31 37 A7 38 32 34 35 00 7D 52 4E 20 8D 31 36 30 |17.8245.}RN .160|
00004A70: 30 3A 8D 38 32 38 30 3A 89 38 32 34 35 00 94 52 |0:.8280:.8245..R|
00004A80: 58 20 99 22 93 D3 45 41 52 43 48 20 42 59 20 5C |X ."..EARCH BY \|
00004A90: 22 3B 54 41 00 BD 52 5D 20 99 22 20 C4 41 54 45 |";TA..R] ." .ATE|
00004AA0: 22 3B A3 31 30 29 3B 22 C4 45 54 41 49 4C 53 22 |";.10);".ETAILS"|
00004AB0: 3B A3 32 35 29 3B 22 5C 2E 50 22 3A 99 00 C7 52 |;.25);"\.P":...R|
00004AC0: 62 20 4C B2 31 3A 8E 00 CD 52 6C 20 8F 00 E3 52 |b L.1:...Rl ...R|
00004AD0: 76 20 44 54 B2 54 52 28 54 54 2C 30 29 3A 8D 31 |v DT.TR(TT,0):.1|
00004AE0: 32 30 30 00 09 53 80 20 99 44 3B 22 9D 22 3B 4D |200..S. .D;".";M|
00004AF0: 24 28 4D 29 3B 59 3B A3 31 30 29 3B 54 52 24 28 |$(M);Y;.10);TR$(|
00004B00: 54 54 29 3B A3 32 31 29 3B 00 24 53 8A 20 54 4E |TT);.21);.$S. TN|
00004B10: B2 54 52 28 54 54 2C 32 29 3A 4E 4C B2 31 3A 8D |.TR(TT,2):NL.1:.|
00004B20: 32 33 30 30 00 34 53 94 20 8B 50 52 B1 30 A7 8D |2300.4S. .PR.0..|
00004B30: 39 37 35 30 00 3A 53 9E 20 8E 00 40 53 28 23 8F |9750.:S. ..@S(#.|
00004B40: 00 5C 53 29 23 8F 20 41 53 4B 20 41 42 4F 55 54 |.\S)#. ASK ABOUT|
00004B50: 20 54 48 45 20 50 52 49 4E 54 45 52 00 62 53 2A | THE PRINTER.bS*|
00004B60: 23 8F 00 88 53 2D 23 8D 31 33 30 30 3A 85 22 C3 |#...S-#.1300:.".|
00004B70: 4F 50 59 20 54 4F 20 D0 52 49 4E 54 45 52 28 59 |OPY TO .RINTER(Y|
00004B80: 2F 4E 29 20 22 3B 4B 24 00 9C 53 32 23 50 52 B2 |/N) ";K$..S2#PR.|
00004B90: 30 3A 8B 4B 24 B3 B1 22 59 22 A7 8E 00 BC 53 37 |0:.K$.."Y"....S7|
00004BA0: 23 97 32 35 31 20 2C 34 3A 9E 34 39 31 36 34 3A |#.251 ,4:.49164:|
00004BB0: 8B C2 28 32 35 31 29 B3 B1 30 A7 8E 00 CE 53 3C |..(251)..0....S<|
00004BC0: 23 50 52 B2 31 3A 9F 31 2C 34 2C 37 3A 8E 00 D4 |#PR.1:.1,4,7:...|
00004BD0: 53 5A 23 8F 00 EE 53 5F 23 98 31 2C 22 D3 54 41 |SZ#...S_#.1,".TA|
00004BE0: 54 45 4D 45 4E 54 20 46 52 4F 4D 20 22 3B 00 13 |TEMENT FROM ";..|
00004BF0: 54 64 23 44 54 B2 53 44 3A 8D 31 32 30 30 3A 98 |Td#DT.SD:.1200:.|
00004C00: 31 2C 44 3B 4D 24 28 4D 29 3B 59 3B 22 20 54 4F |1,D;M$(M);Y;" TO|
00004C10: 20 22 3B 00 30 54 69 23 44 54 B2 45 44 3A 8D 31 | ";.0Ti#DT.ED:.1|
00004C20: 32 30 30 3A 98 31 2C 44 3B 4D 24 28 4D 29 3B 59 |200:.1,D;M$(M);Y|
00004C30: 00 3B 54 6A 23 98 31 2C 4C 46 24 00 76 54 6E 23 |.;Tj#.1,LF$.vTn#|
00004C40: 98 31 2C 22 20 C4 41 54 45 22 3B 54 42 24 3B 22 |.1," .ATE";TB$;"|
00004C50: 31 35 C4 45 54 41 49 4C 53 22 3B 54 42 24 3B 22 |15.ETAILS";TB$;"|
00004C60: 33 35 5C 2E 50 22 3B 54 42 24 3B 22 34 35 C2 41 |35\.P";TB$;"45.A|
00004C70: 4C 41 4E 43 45 22 00 81 54 73 23 98 31 2C 4C 46 |LANCE"..Ts#.1,LF|
00004C80: 24 00 87 54 8B 23 8E 00 8D 54 8C 23 8F 00 A7 54 |$..T.#...T.#...T|
00004C90: 8D 23 8F 20 50 4F 53 49 54 49 4F 4E 20 50 52 49 |.#. POSITION PRI|
00004CA0: 4E 54 20 48 45 41 44 00 B1 54 8F 23 4E 55 B2 54 |NT HEAD..T.#NU.T|
00004CB0: 4E 00 CC 54 96 23 4D 49 B2 30 3A 8B 4E 55 B3 30 |N..T.#MI.0:.NU.0|
00004CC0: A7 4E 55 B2 AB 4E 55 3A 4D 49 B2 31 00 E1 54 A0 |.NU..NU:MI.1..T.|
00004CD0: 23 8B 4E 55 B3 31 30 30 30 A7 98 31 2C A6 31 29 |#.NU.1000..1,.1)|
00004CE0: 3B 00 F5 54 AA 23 8B 4E 55 B3 31 30 30 A7 98 31 |;..T.#.NU.100..1|
00004CF0: 2C A6 31 29 3B 00 08 55 B4 23 8B 4E 55 B3 31 30 |,.1);..U.#.NU.10|
00004D00: A7 98 31 2C A6 31 29 3B 00 1A 55 BE 23 8B 4E 55 |..1,.1);..U.#.NU|
00004D10: B3 31 A7 98 31 2C A6 31 29 3B 00 2B 55 C8 23 8B |.1..1,.1);.+U.#.|
00004D20: 4D 49 B2 31 A7 4E 55 B2 AB 4E 55 00 35 55 C9 23 |MI.1.NU..NU.5U.#|
00004D30: 8D 32 34 30 30 00 44 55 CD 23 8B 4E 4C B2 31 A7 |.2400.DU.#.NL.1.|
00004D40: 39 31 37 35 00 52 55 D2 23 98 31 2C 4E 55 24 3B |9175.RU.#.1,NU$;|
00004D50: 3A 8E 00 5F 55 D7 23 98 31 2C 4E 55 24 3A 8E 00 |:.._U.#.1,NU$:..|
00004D60: 65 55 F0 23 8F 00 71 55 F5 23 8B 50 52 B2 30 A7 |eU.#..qU.#.PR.0.|
00004D70: 8E 00 7F 55 FA 23 A0 31 3A 50 52 B2 30 3A 8E 00 |...U.#.1:PR.0:..|
00004D80: AB 55 22 24 98 31 2C 44 3B 4D 24 28 4D 29 3B 59 |.U"$.1,D;M$(M);Y|
00004D90: 3B 54 42 24 3B 22 31 35 22 3B 54 52 24 28 54 54 |;TB$;"15";TR$(TT|
00004DA0: 29 3B 54 42 24 3B 22 33 31 22 3B 00 D3 55 27 24 |);TB$;"31";..U'$|
00004DB0: 54 4E B2 54 52 28 54 54 2C 32 29 3A 4E 4C B2 30 |TN.TR(TT,2):NL.0|
00004DC0: 3A 8D 39 31 30 30 3A 98 31 2C 54 42 24 3B 22 34 |:.9100:.1,TB$;"4|
00004DD0: 35 22 3B 00 E8 55 2C 24 54 4E B2 42 42 3A 4E 4C |5";..U,$TN.BB:NL|
00004DE0: B2 31 3A 8D 39 31 30 30 00 EE 55 36 24 8E 00 F4 |.1:.9100..U6$...|
00004DF0: 55 54 24 8F 00 37 56 59 24 98 31 2C 22 20 20 C4 |UT$..7VY$.1," .|
00004E00: 41 54 45 22 3B 54 42 24 3B 22 31 35 C4 45 54 41 |ATE";TB$;"15.ETA|
00004E10: 49 4C 53 22 3B 54 42 24 3B 22 33 30 C2 55 44 47 |ILS";TB$;"30.UDG|
00004E20: 45 54 20 C8 45 41 44 49 4E 47 22 3B 54 42 24 3B |ET .EADING";TB$;|
00004E30: 22 35 35 5C 2E 50 22 00 42 56 5A 24 98 31 2C 4C |"55\.P".BVZ$.1,L|
00004E40: 46 24 00 48 56 5E 24 8E 00 4E 56 86 24 8F 00 82 |F$.HV^$..NV.$...|
00004E50: 56 8B 24 98 31 2C 44 3B 4D 24 28 4D 29 3B 59 3B |V.$.1,D;M$(M);Y;|
00004E60: 54 42 24 3B 22 31 35 22 3B 44 4C 24 3B 54 42 24 |TB$;"15";DL$;TB$|
00004E70: 3B 22 33 30 22 3B 54 24 3B 54 42 24 3B 22 35 31 |;"30";T$;TB$;"51|
00004E80: 22 3B 00 99 56 90 24 54 4E B2 54 41 3A 8B 54 4E |";..V.$TN.TA:.TN|
00004E90: B3 30 A7 54 4E B2 AB 54 4E 00 A8 56 95 24 4E 4C |.0.TN..TN..V.$NL|
00004EA0: B2 30 3A 8D 39 31 30 30 00 BC 56 9A 24 8B 54 41 |.0:.9100..V.$.TA|
00004EB0: B3 30 A7 98 31 2C 22 20 20 20 44 22 00 D1 56 9F |.0..1," D"..V.|
00004EC0: 24 8B 54 41 B1 B2 30 A7 98 31 2C 22 20 20 20 43 |$.TA..0..1," C|
00004ED0: 22 00 D7 56 A4 24 8E 00 DD 56 B8 24 8F 00 17 57 |"..V.$...V.$...W|
00004EE0: BD 24 98 31 2C 54 42 24 3B 22 32 32 C2 55 44 47 |.$.1,TB$;"22.UDG|
00004EF0: 45 54 22 3B 54 42 24 3B 22 33 35 C1 43 54 55 41 |ET";TB$;"35.CTUA|
00004F00: 4C 22 3B 54 42 24 3B 22 35 30 D6 41 52 49 41 4E |L";TB$;"50.ARIAN|
00004F10: 43 45 22 3B 4C 46 24 00 1D 57 C2 24 8E 00 23 57 |CE";LF$..W.$..#W|
00004F20: EA 24 8F 00 40 57 EF 24 98 31 2C 42 44 24 28 42 |.$..@W.$.1,BD$(B|
00004F30: 43 29 3A 98 31 2C 22 C3 4F 44 45 22 3B 42 43 3B |C):.1,".ODE";BC;|
00004F40: 00 65 57 F4 24 98 31 2C 54 42 24 22 32 30 22 3B |.eW.$.1,TB$"20";|
00004F50: 3A 54 4E B2 42 44 28 42 43 29 3A 4E 4C B2 30 3A |:TN.BD(BC):NL.0:|
00004F60: 8D 39 31 30 30 00 8A 57 F9 24 98 31 2C 54 42 24 |.9100..W.$.1,TB$|
00004F70: 22 33 33 22 3B 3A 54 4E B2 54 42 28 42 43 29 3A |"33";:TN.TB(BC):|
00004F80: 4E 4C B2 30 3A 8D 39 31 30 30 00 BD 57 FE 24 98 |NL.0:.9100..W.$.|
00004F90: 31 2C 54 42 24 22 35 30 22 3B 3A 54 4E B2 42 44 |1,TB$"50";:TN.BD|
00004FA0: 28 42 43 29 AB 54 42 28 42 43 29 3A 4E 4C B2 31 |(BC).TB(BC):NL.1|
00004FB0: 3A 8D 39 31 30 30 3A 98 31 2C 4C 46 24 00 C3 57 |:.9100:.1,LF$..W|
00004FC0: 08 25 8E 00 C9 57 1C 25 8F 00 EB 57 21 25 98 31 |.%...W.%...W!%.1|
00004FD0: 2C 42 44 24 28 42 43 29 3B 22 20 C1 4E 41 4C 59 |,BD$(BC);" .NALY|
00004FE0: 53 49 53 22 3A 98 31 2C 4C 46 24 00 F5 57 26 25 |SIS":.1,LF$..W&%|
00004FF0: 8D 39 30 37 30 00 FB 57 30 25 8E 00 01 58 4E 25 |.9070..W0%...XN%|
00005000: 8F 00 2D 58 53 25 98 31 2C 44 3B 4D 24 28 4D 29 |..-XS%.1,D;M$(M)|
00005010: 3B 59 3B 54 42 24 3B 22 31 35 22 3B 54 52 24 28 |;Y;TB$;"15";TR$(|
00005020: 54 54 29 3B 54 42 24 3B 22 33 31 22 3B 00 56 58 |TT);TB$;"31";.VX|
00005030: 58 25 54 4E B2 AB 54 52 28 54 54 2C 32 29 3A 4E |X%TN..TR(TT,2):N|
00005040: 4C B2 30 3A 8D 39 31 30 30 3A 98 31 2C 54 42 24 |L.0:.9100:.1,TB$|
00005050: 3B 22 34 35 22 3B 00 6B 58 5D 25 54 4E B2 42 41 |;"45";.kX]%TN.BA|
00005060: 3A 4E 4C B2 31 3A 8D 39 31 30 30 00 71 58 62 25 |:NL.1:.9100.qXb%|
00005070: 8E 00 77 58 80 25 8F 00 81 58 85 25 8D 39 30 30 |..wX.%...X.%.900|
00005080: 30 00 8D 58 8A 25 8B 50 52 B2 30 A7 8E 00 BD 58 |0..X.%.PR.0....X|
00005090: 94 25 98 31 2C 22 C1 4D 4F 55 4E 54 20 C2 4F 52 |.%.1,".MOUNT .OR|
000050A0: 52 4F 57 45 44 22 3B 54 42 24 3B 22 32 35 5C 22 |ROWED";TB$;"25\"|
000050B0: 3B 3A 54 4E B2 50 31 3A 8D 39 36 38 30 00 EE 58 |;:TN.P1:.9680..X|
000050C0: 9E 25 98 31 2C 22 D2 41 54 45 20 4F 46 20 C9 4E |.%.1,".ATE OF .N|
000050D0: 54 45 52 45 53 54 22 3B 54 42 24 3B 22 32 35 25 |TEREST";TB$;"25%|
000050E0: 22 3B 3A 54 4E B2 50 32 3A 8D 39 36 38 30 00 21 |";:TN.P2:.9680.!|
000050F0: 59 A8 25 98 31 2C 22 D0 45 52 49 4F 44 20 4F 46 |Y.%.1,".ERIOD OF|
00005100: 20 CC 4F 41 4E 22 3B 54 42 24 3B 22 32 35 59 45 | .OAN";TB$;"25YE|
00005110: 41 52 53 22 3B 3A 54 4E B2 50 33 3A 8D 39 36 38 |ARS";:TN.P3:.968|
00005120: 30 00 56 59 B2 25 98 31 2C 22 CD 4F 4E 54 48 4C |0.VY.%.1,".ONTHL|
00005130: 59 20 D2 45 50 41 59 4D 45 4E 54 22 3B 54 42 24 |Y .EPAYMENT";TB$|
00005140: 3B 22 32 35 5C 20 20 20 22 3B 3A 54 4E B2 50 34 |;"25\ ";:TN.P4|
00005150: 3A 8D 39 36 38 30 00 66 59 BC 25 8B 43 41 B3 B1 |:.9680.fY.%.CA..|
00005160: 32 A7 39 36 39 39 00 91 59 C1 25 98 31 2C 22 D4 |2.9699..Y.%.1,".|
00005170: 4F 54 41 4C 20 C9 4E 54 45 52 45 53 54 20 D0 41 |OTAL .NTEREST .A|
00005180: 59 41 42 4C 45 22 3B 54 42 24 3B 22 32 35 5C 22 |YABLE";TB$;"25\"|
00005190: 3B 00 A1 59 C6 25 54 4E B2 50 35 3A 8D 39 36 38 |;..Y.%TN.P5:.968|
000051A0: 30 00 A7 59 CB 25 8E 00 C0 59 D0 25 98 31 2C 54 |0..Y.%...Y.%.1,T|
000051B0: 42 24 3B 22 33 30 22 3B 3A 8D 39 31 30 30 3A 8E |B$;"30";:.9100:.|
000051C0: 00 C6 59 E3 25 8E 00 CC 59 E4 25 8F 00 F7 59 E9 |..Y.%...Y.%...Y.|
000051D0: 25 98 31 2C 22 D3 45 41 52 43 48 20 42 59 20 22 |%.1,".EARCH BY "|
000051E0: 3B C7 28 31 34 29 3B 44 4C 24 3B C7 28 31 35 29 |;.(14);DL$;.(15)|
000051F0: 3A 98 31 2C 4C 46 24 00 03 5A EE 25 8D 39 33 30 |:.1,LF$..Z.%.930|
00005200: 30 3A 8E 00 24 5A 16 26 42 43 B2 54 52 28 54 54 |0:..$Z.&BC.TR(TT|
00005210: 2C 31 29 3A 54 24 B2 42 44 24 28 42 43 29 3A 54 |,1):T$.BD$(BC):T|
00005220: 41 B2 54 4E 00 38 5A 17 26 8B 42 43 B1 31 35 A7 |A.TN.8Z.&.BC.15.|
00005230: 42 43 B2 42 43 AB 31 36 00 42 5A 18 26 8D 39 33 |BC.BC.16.BZ.&.93|
00005240: 35 30 00 48 5A 1B 26 8E 00 5C 5A 1C 26 8B 42 43 |50.HZ.&..\Z.&.BC|
00005250: B1 31 35 A7 42 43 B2 42 43 AB 31 36 00 62 5A 48 |.15.BC.BC.16.bZH|
00005260: 26 8F 00 90 5A 4D 26 98 31 2C 22 D3 45 41 52 43 |&...ZM&.1,".EARC|
00005270: 48 20 42 59 20 22 3B C7 28 31 34 29 3B 22 5C 22 |H BY ";.(14);"\"|
00005280: 3B 54 41 3B C7 28 31 35 29 3A 98 31 2C 4C 46 24 |;TA;.(15):.1,LF$|
00005290: 00 9C 5A 52 26 8D 39 33 30 30 3A 8E 00 BD 5A 7A |..ZR&.9300:...Zz|
000052A0: 26 42 43 B2 54 52 28 54 54 2C 31 29 3A 54 24 B2 |&BC.TR(TT,1):T$.|
000052B0: 42 44 24 28 42 43 29 3A 54 41 B2 54 4E 00 D1 5A |BD$(BC):TA.TN..Z|
000052C0: 7B 26 8B 42 43 B1 31 35 A7 42 43 B2 42 43 AB 31 |{&.BC.15.BC.BC.1|
000052D0: 36 00 DB 5A 7C 26 8D 39 33 35 30 00 E1 5A 7F 26 |6..Z|&.9350..Z.&|
000052E0: 8E 00 E7 5A AC 26 8F 00 04 5B AD 26 8F 20 50 52 |...Z.&...[.&. PR|
000052F0: 49 4E 54 20 54 48 45 20 42 55 44 47 45 54 20 41 |INT THE BUDGET A|
00005300: 52 52 41 59 00 0A 5B AE 26 8F 00 2A 5B AF 26 97 |RRAY..[.&..*[.&.|
00005310: 32 35 31 20 2C 34 3A 9E 34 39 31 36 34 3A 8B C2 |251 ,4:.49164:..|
00005320: 28 32 35 31 29 B3 B1 30 A7 8E 00 35 5B B0 26 9F |(251)..0...5[.&.|
00005330: 31 2C 34 2C 37 00 6A 5B B1 26 98 31 2C 22 C3 4F |1,4,7.j[.&.1,".O|
00005340: 44 45 22 3B 54 42 24 3B 22 30 38 C2 55 44 47 45 |DE";TB$;"08.UDGE|
00005350: 54 20 D4 49 54 4C 45 22 3B 54 42 24 22 32 38 5C |T .ITLE";TB$"28\|
00005360: 2E 50 22 3A 98 31 2C 4C 46 24 00 72 5B B6 26 43 |.P":.1,LF$.r[.&C|
00005370: B2 31 00 84 5B C0 26 8B 42 44 28 30 29 B2 30 A7 |.1..[.&.BD(0).0.|
00005380: 39 39 38 30 00 A7 5B CA 26 98 31 2C 43 3B 54 42 |9980..[.&.1,C;TB|
00005390: 24 3B 22 30 36 22 3B 42 44 24 28 43 29 3B 54 42 |$;"06";BD$(C);TB|
000053A0: 24 3B 22 32 34 22 3B 00 BF 5B D4 26 54 4E B2 42 |$;"24";..[.&TN.B|
000053B0: 44 28 43 29 3A 4E 4C B2 31 3A 8D 39 31 30 30 00 |D(C):NL.1:.9100.|
000053C0: D8 5B ED 26 8B 42 44 28 30 29 B2 43 A7 43 B2 43 |.[.&.BD(0).C.C.C|
000053D0: AA 31 3A 89 39 39 38 30 00 E8 5B F2 26 43 B2 43 |.1:.9980..[.&C.C|
000053E0: AA 31 3A 89 39 39 33 30 00 F7 5B FC 26 8B 43 B2 |.1:.9930..[.&.C.|
000053F0: 31 37 A7 A0 31 3A 8E 00 0C 5C 01 27 98 31 2C 43 |17..1:...\.'.1,C|
00005400: 3A 43 B2 43 AA 31 3A 89 39 39 38 30 00 00 00 22 |:C.C.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);.W....NU.
1...1);...8..MI.1.NU..NU...9..2400...=..
NL.1.2375...B..NU$;:....G..NU$:....`...X
.A.. PRINT NUMBER STRING...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$.O.Y..N$.".".DF.1.K.~..DF.1.N$..".
".DP%.DP%.1......DF.1.DP%..2.2445......N
S......DP%.0.NU$.NU$.".00"......DP%.1.NU
$.NU$."0".......E.D.....E.. SEARCH THE F
ILES BY DETAILS...F.....N..EN.TT.TR(0,0)
...X..TR$(EN).DL$.TR(EN,0)..0........EN:
EN.O:..4.(...T.).. PACK THE TRANSACTION
FILE.Z.*...V.-..1300:."PACKING FILES";..
.2..PP.1.TR(0,0)...<..TR(PP,0).0.2640...
F..PP:....P.CT.PP:CF.PP.1.Q.Z..TR(CF,0).
0.CF.CF.1..._..CF.TR(0,0).TR(0,0).CT.1:.
...A..TR(CF,0).0.2650.O.D.TR$(CT).TR$(CF
):TR(CT,0).TR(CF,0):TR(CT,1).TR(CF,1):TR
(CT,2).TR(CF,2).I.I.CT.CT.1:CF.CF.1:.265
0.O.....U.....{.........."..INVALID AMOU
NT".................. SAVE AND LOAD THE
DATA.B.....K...."."...B.K$."":.1300:."LO
AD OR SAVE DATA ";K$:.K$."".200...L..K$.
"L".3100.!.V..K$."S".3500.+....3010.X...
K$."":.1300:."USE TAPE OR DISC(T/D) ";K$
.H....K$."".3000.~...DV.1:.K$."D".3075..
..........251 ,8:.49164:.B(251)..0.3050.
....DV.8:........R.... LOAD THE DATA FIL
ES.X.......!..3050...&.PW$."":.1300:."EN
TER PASSWORD ";PW$...+..DV.1.3250.2.0..1
,8,2,"0:DFILE,S,R".<.5..3700.G.6..1,PP$.
Z.7..PP$..PW$.3300.T.:..1,TR(0,0):.1,TR(
0,1)...?..TR(0,0).0.3180...D..A.0.TR(0,0
)...N..B.0.2:.1,TR(A,B):.B...X..A.W.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.D ...A.1.BD(0):
.1,BD$(A):.A.N ...1,BL.Z .. 1:.200.S ...
1,1,0,"DFILE":.3125.. ...BR,0:.BK,2:."..
".. ...1350:.".PASSWORD INCORRECT": 1:.3
010.. ....M ... SAVE THE DATA.S ..... ..
.3050..!..PW$."":.1300:."ENTER PASSWORD
";PW$..!...DV.1.3650..!...1,8,2,"@0:DFIL
E,S,W".8!E..3700.C!F..1,PW$.]!J..1,TR(0,
0):.1,TR(0,1).Q!O..TR(0,0).0.3580..!T..A
.0.TR(0,0)..!...B.0.2:.1,TR(A,B):.B..!..
.A.D!...A.1.TR(0,0):.1,TR$(A);CR$:.A..!.
..1,BD(0):.BD(0).0.3605..!...A.1.BD(0):.
1,BD(A):.A.."...A.1.BD(0):.1,TB(A):.A.5"
...A.1.BD(0):.1,BD$(A);CR$:.A.?"...1,BL.
K".. 1:.200.D"B..1,1,1,"DFILE":.3525.J"T
...P"U...V"V...."Y..BR,3:.BK,3:."..".."~
...."X...."Y...."Z...D"...1300:."ENTER S
TART DATE ";.N"...1000.."...D.0.3805..".
.SD.DT:...".....".....".....#...1300:."E
NTER END DATE ";:.1000.,#...D.0.3855.8#.
.ED.DT:..># ...V#... ENTER NEW BUDGETS.\
#....W#...".";:.2100:NT.BD(0).1..#...BD(
0).16.4085..#..T$."":.1300:."NEW BUDGET
TITLE ";T$.A#...T$."".300..#...C(T$).16.
T$.H(T$,16)..#...2200:.BC..0..1300:.4060
..$...5300:..6);T$..$...1300:TA$."":."NE
W AMOUNT ";TA$.A$..TA.E(TA$):.TA.9999.99
9.TA..9999.99..2700:.4025.~$...5300:..24
);:TN.TA:.2300..$C..1350:."IS THIS O.K.(
Y/N) ";:.1500.K$H..YN.0..5300:.1310:.530
0:.NT:.4010..%M.NC.BD(0).1:BD$(NC).T$:BD
(NC).TA:BD(0).NC:TB(NC).0..%R.NT.NT.1:.4
007.;%...".THAT TITLE ALREADY EXISTS":.4
010.\%...1300:.".ALL CODES ASSIGNED".{%.
.."PRESS A KEY TO CONTINUE"..%...K$:.K$.
"".4095..%...300..%.....%... UPDATE THE
BUDGETS..%....U%...".";:.BD(0).0.4180..%
...2100..%...1300..&..T$."":."BUDGET TIT
LE ";T$..&...T$."".300. &"..2200./&'..BC
.0.4170.V&6..1300:."NEW AMOUNT ";TA$:NT.
E(TA$)..&8..NT.9999.999.NT..9999.999..27
00:.4150..&;.BD(BC).NT..&@.NT.BC:.5300:.
.24);.E&B.TN.BD(BC):.2300:.1350:.4120..&
J..1300:.".HEADING NOT FOUND":.4120..&O.
.4125..'T..1300:.".NO BUDGETS EXIST".4'Y
.."PRESS A KEY TO CONTINUE";.C'^..2050:.
300.I'H...L'I.. OUTPUT BUDGETS AND VARIA
NCES.R'J....'K..".":.BD(0).0.4290..'M..9
000:.PR.0..9400..'P..4280..'R..BC.1.BD(0
).R'...BD$(BC):."CODE";BC;..'....12);:TN
.BD(BC):NL.0:.2300..(....21);:TN.TB(BC):
NL.0:.2300.;(....30);:TN.BD(BC).TB(BC):N
L.1:.2300:..K(...PR.0..9450._(..L.L.1:.L
.6.4270.G(...BC.|(...1600:.9200:.300..(.
..1600:.4280:.4255.I(...".";.12);"BUDGET
";.21);"ACTUAL";.30);"VARIANCE":..S(..L.
1:...(B..1300:.".NO BUDGETS ASSIGNED":.4
260..)L....)M.. BUDGET ANALYSIS..)N...4)
Q..".":.BD(0).0.4290.L)V.T$."":.1300:.".
ENTER BUDGET TITLE FOR ANALYSIS":.T$.{)X
..T$."".300..)Y..2200:.BC.0.4390..)Z..13
50:.3800:.3850..)...1350:.9000.Q)..BA.0:
.4380:.PR.0..9500..)...TT.1.TR(0,0)..*..
.TR(TT,1).BC.TR(TT,1).BC.16.4340..*...43
65.(*..DT.TR(TT,0):.1200.@*...DT..SD.DT.
.ED.4345.J*...4365.P*...D;".";M$(M);Y;.1
0);TR$(TT);.21);..*..TN..TR(TT,2):NL.0:.
2300:..30);..*..BA.BA.TN:TN.BA:NL.1:.230
0.A*...PR.0..9550.V*..L.L.1:.L.18.4375..
*...TT..*...1600:.9200:.300..+...1600:.4
380:.4365.(+...".";BD$(BC);" ANALYSIS":.
.\+..." DATE";.10);"DETAILS";.25);"\.P";
.32);"BAL":..F+!.L.1:...+&..1300:."..HEA
DING NOT FOUND":.4310..+.....+... DELETE
BUDGET HEADINGS..+....N+...".";:.BD(0).
0.4290.X+...2100..+..T$."":.1300:.".HEAD
ING TO DELETE"..,..."(TYPE 'ALL' TO CLEA
R) ";T$..,...T$."".300.A,...T$."ALL".460
0.V,A..2200:.BC.0.4580..,F..1350:."DELET
E '";BD$(BC);"' (Y/N)";:.C$..,U..C$.."Y"
.4525..,Z..4650.F,...1300:."..HEADING NO
T FOUND":.4525.L,.....,... CLEAR ALL HEA
DINGS..,.....,...1350.%-...".YOU ARE ABO
UT TO DELETE ALL THE BUDGETS".F-..."ARE
YOU SURE(Y/N) ";:.1500.\-...YN.0..1350:.
4525..-...".":.1350:.".ALL BUDGETS CLEAR
ED"..-...BC.1.BD(0):BD$(BC)."":BD(BC).0:
.4700..- ..BC:BD(0).0..-%.."PRESS A KEY
TO CONTINUE":.2050:.300..-*.....+.. DELE
TE THE HEADING AND SORT...,.. THE ARRAY.
%.-...7./.BD(0).BD(0).1.A.1..4700.Y.4.BD
$(BC)."":BD(BC).0.I.9..BC.16.4500...>..B
D$(BC.1)."".4500...C.BD$(BC).BD$(BC.1):B
D$(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...\..../].. SET BUDGET COD
E TO ZERO IN.4/^.. TRANSACTION FILES.:/_
...K/A..TR(0,0).0...]/F..TT.1.TR(0,0)./
P..BC.TR(TT,1).TR(TT,1).0:.4740../Z..BC.
TR(TT,1).16.TR(TT,1).16../...TT:.../....
P/... CHANGE BUDGET CODES IN THE../... T
RANSACTION FILES../...../...TR(0,0).0...
.0...TT.1.TR(0,0).60...BC.TR(TT,1).TR(TT
,1).BC.1:.4740.^0...BC.TR(TT,1).16.TR(TT
,1).TR(TT,1).1.H0...TT:..N0....X0E..9900
..0J..300..0.....0... SET OPENING BALANC
E..0.....0...".";..0...1300:A$."":."ENTE
R OPENING BALANCE ";A$..0..BL.E(A$)..1..
.BL.9999.99.BL..9999.99..2700:.5005.91..
.1350:.".OPENING BALANCE IS \";BL.M1..."
O.K. ";:.1500.\1...YN.0.5000.E1...400.K1
.....1... ENTER A TRANSACTION INTO THE F
ILES..1.....1...".";:.9000..1...". DATE
";.11);"DETAILS";.23);"CODE";.32);"\.P".
.1...PR.0..9300..1..NT.1:SO.0..2...1300.
)2..."DATE OF TRANSACTION";:.1000.;2...D
.0.NT.1.400.I2...D.0.5120.H2...5300:.120
0:.D;".";M$(M);Y..2...1300:DL$."":."DETA
ILS";DL$..2#..DL$."".DL$."******"..2-..C
(DL$).10.DL$.H(DL$,10).R22..5300:..11);D
L$..2<.T$."":.1300:."BUDGET HEADING ";T$
..3A..2200:.5300:..23);BC.:3F..1300:TA$.
"":."AMOUNT";TA$:TA.E(TA$).C3G..TA.9999.
99.TA..9999.999..2700:.5190.M3H..5300..3
I...28);:TN.TA:NL.0:.2300:..37);.J3J.TA.
.TA:.DL$."CREDIT".DL$."CREDIT".DL$."CRED
IT".TA..TA.Y3L..TA.0.."D"..3N..TA..0.."C
"..4P..1350:."ENTRY OK(Y/N) ";:.1500.04U
..YN.0..5300:.1310:NT.NT.1:.5220.P4Z..13
00:."PLEASE WAIT";:.5350.Q4D..1300:."REP
EAT(Y/N) ";:.1500..4I..YN.0.5240..4N..NT
. 17..49158:.5120..4S.NT.NT.1:.5120..4X
..PR.0..9200.E4}..400.K4.....4... POSITI
ON TO CURRENT LINE..4.....4...".";..5...
L.1.NT.1:.".";:.L..5C....5....>5... PUT
AN ENTRY INTO THE FILE.X5... IN THE PROP
ER 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.E5...TT.1.IN..5
...TR(TT,0).DT.5390..5...TT..5..IN.TT:.5
420..5..IN.TT..6...T.TR(0,0).TT..1.L6..T
R(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).G6"..T.
.6,.TR(IN,0).DT:TR(IN,1).BC.SO:TR(IN,2).
TA:TR$(IN).DL$..61.TR$(IN).DL$:TR(0,0).T
R(0,0).1.O62..BC.0.5440..6;.TB(BC).TB(BC
).(.TA)..6@..PR.0..9350..6J....7|....7}.
. OUTPUT A STATEMENT."7~...57...TR(0,0).
0.495.C7..."............ STATEM
ENT OUTPUT".M7...3800.W7...3850..7...900
0..7..."."..7.....7... WORK OUT BALANCE
FIRST..7.....7..BB.BL:.1300:."CALCULATIN
G BALANCE";..7...TT.1.TR(0,0)..8B..TR(TT
,0)..SD.5590..8G.BB.BB.TR(TT,2)..8L..TT.
(8Q..400.=8V..PR.1..9050:FL.0.P8...". DA
TE";.10);"DETAILS";.25);"\.P";.32);"BAL"
..8...PR.0.FL.0.5620..8...1,"BALANCE B/F
WD";TB$;"30";.F8..TN.BB:NL.0:.9100:.1,LF
$:FL.1..8..."BALANCE B/FWD";.30);..8..TN
.BB:NL.1:.2300..8.....9..L.1..9...TR(TT,
0).ED.5695.09..DT.TR(TT,0):.1200.V9...D;
".";M$(M);Y;.10);TR$(TT);.21);.X9..TN.TR
(TT,2):NL.0:.2300:..30);..9..BB.BB.TR(TT
,2):NL.1:TN.BB:.2300..9...PR.1..9250.A9!
..TT.TR(0,0).5695.Y9&..L.17.TT.TT.1:.569
0..9+.L.L.1:TT.TT.1:.5645..::..1600:.560
0..:?..1600:.9200:.400..:....2:... CLEAR
THE FILES.8:....O:...".":.1300:."CLEAR
TRANSACTION FILES(Y/N) ";:.1500.}:...YN.
0.400..:F.BL.0..:P.TR(0,0).0:TR(0,1).0.O
:Z..1300:."CLEAR BUDGET ACTUAL FIGURES "
;:.1500..:...YN.0.400..:...BC.1.16:TB(BC
).0:.BC..;...400..;....";... ENTER STAND
ING ORDERS.(;....T;..."........... E
NTER STANDING ORDER".D;...9000:SO.16..;
..1300:."ENTER START DATE ";:.1000:.D.0.
5920..;*.."... 1 MONTHLY"..;/..". 2 QUAR
TERLY".R;4..". 3 ANNUALLY"..;9..". 4 OTH
ER PERIOD"..<>..1300:."WHICH ";K$..<C.F.
E(K$).'<H..F.1.F.2.F.3.F.4.5970.1<M..595
0.F<R..F.1.PY.12:.5980.Z<S..F.2.PY.4:.59
80.N<T..F.3.PY.1:.5980..<W..1300:."ENTER
NUMBER OF PAYMENTS ";K$..<X.PY.E(K$):.P
Y.0.5975.J<\..PY.TR(0,0)..400.6000..<A..
"...NOT ENOUGH ROOM TO ENTER THESE"..=B.
."TRANSACTIONS":.1300.>=C.."PRESS A KEY
TO CONTINUE";:.2050:.9200:.400.D=P..".":
.1300:DL$."":."DETAILS ";DL$.}=U..DL$.""
.DL$."******"..=Z..C(DL$).10.DL$.H(DL$,1
0)..=...1300:."BUDGET HEADING ";T$:.2200
.P=...BC.0.T$.""..=...1300:TA$."":."AMOU
NT ";TA$.">..TA.E(TA$):.TA.9999.99.TA..9
999.99..2700:.6030.M>...".START DATE ";.
20);:.1200:.D;M$(M);Y.L>..."NUMBER OF PA
YMENTS ";PY..>..."DETAILS ";.21);DL$..>
..."BUDGET CODE ";.20);BC..>..."AMOUNT "
;.20);TA.W>...1350:."O.K.(Y/N) ";:.1500.
.>...YN.0.6150..>...".";:.6180..?..DM.D:
TA..TA. ?...5350:.6190:.F.3.6150..?E..S.
1.PY.1.I?J..F.6095,6110,6150,6095.C?O.M.
M.1:.M.13.M.1:Y.Y.1.X?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.G?...S.
.?...1300:."REPEAT(Y/N) ";:.1500..?...YN
.0..".":.5920..@...9200:.400.A@$..". DA
TE";.11);"DETAILS";.23);"CODE";.32);"\.P
".M@)..:L.1:..S@...D;M$(M);Y;.11);DL$;.2
3);BC;.28);..@1.TN.TA:.TN.0.TN..TN..@2.N
L.0:.2300..@3..TA.0.." D"..@4..TA..0.."
C".F@5..6400:..L@8....@9.. DELETE TRANSA
CTIONS FROM FILES..@:....A=..TR(0,0).0.4
95.:A?.."........... DELETE TRA
NSACTIONS".AAB.DL$."":.1300:."ENTER DETA
ILS ";DL$.QAG..DL$."".400..AL..1300:."FI
RST DATE TO DELETE ";:.1000..AV..D.0.622
0..A[.SD.DT..A`..1300:."LAST DATE TO DEL
ETE ";:.1000..AE..D.0.6240..AF.ED.DT.(BJ
..1300:."ARE THESE STANDING ORDERS(Y/N)
";:.1500.=BO.SS.0:.YN.1.SS.16.LBQ..6450:
.".".UBT.TT.1:.1300:."SEARCHING FILES";:
.6180..B~..2500:.EN.0.6320..B...TR(EN,0)
..SD.TR(EN,0)..ED.6285.DB...TR(EN,0).ED.
6320.VB..TT.EN.1:.6270..B...TR(EN,1).15.
SS.0.6300..C...TR(EN,1).16.SS.0.6300..C.
..6280.1C..DT.TR(EN,0):TR(EN,0).0.HC...1
200:DL$.TR$(EN):BC.TR(EN,1).SS:TA.TR(EN,
2):.6190.WC...CB.0.6280..C...BC.0.6280..
C..TB(BC).TB(BC).TA..C...6280..C...2600:
.1600:.400.OC..L.L.1:.L.17.6420.UC.....C
...1600..C...".":.6180:...C2...,D7..1300
:."CHANGE BUDGET ACTUAL FIGURES(Y/N)";:.
1500.=D<..YN.0.CB.1:..HDA.CB.0:..NDD...I
DE.. CHANGE A TRANSACTION.ODF....DI..TR(
0,0).0.495..DK.."........... CH
ANGE TRANSACTIONS".YDN.DL$."":.1300:."EN
TER DETAILS ";DL$..DS..DL$."".400..EX..1
300:."FIRST DATE TO CHANGE ";:.1000.!E..
.D.0.6520.+E..SD.DT.TE...1300:."LAST DAT
E TO CHANGE ";:.1000.BE...D.0.6540.LE..E
D.DT.VE...6650..E...1350:."ARE THESE STA
NDING ORDERS(Y/N) ";:.1500..E..SS.0:.YN.
1.SS.16.NE...6450:."."..E .TT.1:.1300:."
SEARCHING FILES";:.6180..F...2500:.EN.0.
6620.0F...TR(EN,0)..SD.TR(EN,0)..ED.6585
.FF...TR(EN,0).ED.6620.XF..TT.EN.1:.6570
.SF...TR(EN,1).15.SS.0.6600..F...TR(EN,1
).16.SS.0.6600..FC..6580..FH.OV.TR(EN,2)
:TR(EN,2).TA..FM.DT.TR(EN,0):.1200:DL$.T
R$(EN):BC.TR(EN,1).SS:.6190..FN..6700..F
R..6580..G...1600:.400.BG..TA$."":.1300:
."ENTER NEW AMOUNT ";TA$:TA.E(TA$).JG...
TA.9999.99.TA..9999.99..2700:.6650.{G..T
A..TA:.6550..G,..CB.0.6580..G1..BC.0.658
0..G6.DF.OV.TA:TB(BC).TB(BC).DF:.6580.CG
X....GY.. THIS IS THE LOAN CALCULATOR..G
Z....HB.."...AMOUNT BORROWED";.25);"\".0
HG..".RATE OF INTEREST";.25);"%".THL..".
PERIOD OF LOAN";.25);"YEARS".WHQ..".MONT
HLY REPAYMENT";.25);"\"..HV.IT.0:NT.1..H
...1300:T$."":."AMOUNT BORROWED";T$.IH..
.T$."".IT.IT.1:CA.1:.7060..H..AB.E(T$):.
AB.0.7040..I...5300 :..31);:TN.AB:.2300:
P1.AB..I..NT.NT.2.9I...1300:T$."":."RATE
OF INTEREST ";T$.WI...T$."".IT.IT.1:CA.
2:.7085.VI..RI.E(T$):.RI.0.RI.100.7065..
I...5300 :..31);:TN.RI:.2300:P2.RI..I..N
T.NT.2.LI...1300:T$."":."PERIOD OF LOAN
";T$..I...T$."".IT.IT.1:CA.3:.7110..J..P
L.E(T$):.PL..0.7090.'JA..5300 :..31);:TN
.PL:.2300:P3.PL.3JF.NT.NT.2.\JK..1300:T$
."":."MONTHLY REPAYMENT ";T$.ZJP..T$."".
IT.IT.1:CA.4:.7140..JU.MR.E(T$)..JZ..530
0 :..31);:TN.MR:.2300:P4.MR..J...1300..J
...IT.1..".TOO MANY UNKNOWNS":.7380..K..
.IT.0..".NOTHING TO CALCULATE":.7380.0K.
..1300:."BANK LOAN OR MORTGAGE(B/M) ";K$
.AK...K$."B".7180.SK...K$.."M".7155.FK..
MR.MR.12:.7190..K..AB.AB.12:RI.RI.12:PL.
PL.12..K...CA.7200,7250,7300,7350..K .YY
.(1.RI.100).PL.UK%.PP.(MR.(YY.1)).(YY.RI
.100)..K*.PP..(PP)..L/.NT . 1:.5300:..31
);:TN.PP:.2300:P1.PP..L4..7375.+LR..K$."
B".AB.AB.12.=LW.IT.(PL.MR).AB.TL\.IT.(.(
IT.100)).100..LA.NT.9:.5300:."TOTAL INTE
REST PAYABLE";.25);"\";..LB...31);:TN.IT
:.2300:P5.IT..LF..K$."B".PL.PL.12.QLH.RI
.((IT.PL).AB).100..LK.RI.(.(RI.100)).100
..MP.NT.3:.5300:..31);:TN.RI:.2300:P2.RI
..MU..7375./M...K$."B".AB.AB.12.?M...Q.1
.100000.PM..MM.AB.RI.100.`M..AB.AB.MM.MR
.PM...AB..0.7331.WM...Q..M..NT.5:.5300:.
.25);"MONTHS"..M..NT.5:.5300:..31);:TN.Q
.1:.2300:P3.TN.HM...7375..M..MR.(1.RI.10
0).PL..M..YY.AB.MR.RI.(100.(MR.1))..N..Y
Y.YY.12:YY.(.(YY.100)).100.BNE.NT.7:.530
0:..31);:TN.YY:.2300:P4.TN.LNO..9600.\NT
..1600:.9200.YNY..1300:."REPEAT(Y/N) ";K
$..N...K$.."Y"..200..N...7000..N@....NA.
. SEARCH FOR DETAILS IN FILES.CNB....NJ.
.1300:K$."":."SEARCH BY DETAILS OR AMOUN
T(D/A) ";K$..OT..K$."D".8100..OY..K$."A"
.8200.,O^..K$."".200.6OC..8010.<O....UO.
.. SEARCH FOR DETAILS.[O....{O...1300:."
.SEARCH BY DETAILS"..O..DL$."":."ENTER D
ETAILS ";DL$..O...C(DL$).10.DL$.H(DL$,10
).IO...DL$."".800..O...9000:.PR.0..9700.
.OB..8180..OG..TT.1.TR(0,0)..PL..TR$(TT)
.DL$.8150..PQ..TT:.1600..PR..9200:.800.8
PV..8300.MP..L.L.1:.L.17.8145..P...1300:
."PRESS A KEY TO CONTINUE";:.2050:.8180:
.8145..P...".SEARCH BY ";DL$.EP..." DATE
";.10);"DETAILS";.25);"\.P":..OP..L.1:..
UP. ...P. . SEARCH BY AMOUNT..P. ...Q. .
1300:.".SEARCH BY AMOUNT".1Q. TA$."":."E
NTER AMOUNT ";TA$.AQ. .TA$."".800.OQ. TA
.E(TA$).WQ. .TA.9999.99.TA..9999.99..270
0:.8205..Q. T$."":.1350:."DEBIT OR CREDI
T(D/C) ";T$:.T$."".8220.HQ. .T$."D".TA..
TA:.8230.YQ! .T$."C".8230..Q# .8220..Q&
.9000:.PR.0..9800..R' .8280..R+ .TT.1.TR
(0,0).+R0 .TR(TT,2).TA.8250.9R5 .TT:.160
0.HR6 .9200:.800.RR: .8300.GRI L.L.1:.L.
17.8245.}RN .1600:.8280:.8245..RX .".SEA
RCH BY \";TA..R] ." DATE";.10);"DETAILS"
;.25);"\.P":..GRB L.1:..MRL ...RV DT.TR(
TT,0):.1200..S. .D;".";M$(M);Y;.10);TR$(
TT);.21);.$S. TN.TR(TT,2):NL.1:.2300.4S.
.PR.0..9750.:S. ..@S(#..\S)#. ASK ABOUT
THE PRINTER.BS*#...S-#.1300:."COPY TO P
RINTER(Y/N) ";K$..S2#PR.0:.K$.."Y"....S7
#.251 ,4:.49164:.B(251)..0...NS<#PR.1:.1
,4,7:..TSZ#...S_#.1,"STATEMENT FROM ";..
TD#DT.SD:.1200:.1,D;M$(M);Y;" TO ";.0TI#
DT.ED:.1200:.1,D;M$(M);Y.;TJ#.1,LF$.VTN#
.1," DATE";TB$;"15DETAILS";TB$;"35\.P";T
B$;"45BALANCE"..TS#.1,LF$..T.#...T.#...T
.#. POSITION PRINT HEAD..T.#NU.TN.LT.#MI
.0:.NU.0.NU..NU:MI.1..T #.NU.1000..1,.1)
;..T.#.NU.100..1,.1);..U.#.NU.10..1,.1);
..U.#.NU.1..1,.1);.+UH#.MI.1.NU..NU.5UI#
.2400.DUM#.NL.1.9175.RUR#.1,NU$;:.._UW#.
1,NU$:..EU.#..QU.#.PR.0...U.# 1:PR.0:..
.U"$.1,D;M$(M);Y;TB$;"15";TR$(TT);TB$;"3
1";.SU'$TN.TR(TT,2):NL.0:.9100:.1,TB$;"4
5";..U,$TN.BB:NL.1:.9100..U6$...UT$..7VY
$.1," DATE";TB$;"15DETAILS";TB$;"30BUDG
ET HEADING";TB$;"55\.P".BVZ$.1,LF$.HV^$.
.NV.$...V.$.1,D;M$(M);Y;TB$;"15";DL$;TB$
;"30";T$;TB$;"51";..V.$TN.TA:.TN.0.TN..T
N..V.$NL.0:.9100..V.$.TA.0..1," D".QV.
$.TA..0..1," C".WV.$...V.$...W.$.1,TB$
;"22BUDGET";TB$;"35ACTUAL";TB$;"50VARIAN
CE";LF$..WB$..#W.$..@W.$.1,BD$(BC):.1,"C
ODE";BC;.EW.$.1,TB$"20";:TN.BD(BC):NL.0:
.9100..W.$.1,TB$"33";:TN.TB(BC):NL.0:.91
00..W.$.1,TB$"50";:TN.BD(BC).TB(BC):NL.1
:.9100:.1,LF$.CW.%..IW.%...W!%.1,BD$(BC)
;" ANALYSIS":.1,LF$..W&%.9070..W0%...XN%
..-XS%.1,D;M$(M);Y;TB$;"15";TR$(TT);TB$;
"31";.VXX%TN..TR(TT,2):NL.0:.9100:.1,TB$
;"45";.KX]%TN.BA:NL.1:.9100.QXB%..WX.%..
.X.%.9000..X.%.PR.0....X.%.1,"AMOUNT BOR
ROWED";TB$;"25\";:TN.P1:.9680..X.%.1,"RA
TE OF INTEREST";TB$;"25%";:TN.P2:.9680.!
Y.%.1,"PERIOD OF LOAN";TB$;"25YEARS";:TN
.P3:.9680.VY.%.1,"MONTHLY REPAYMENT";TB$
;"25\ ";:TN.P4:.9680.FY.%.CA..2.9699..
YA%.1,"TOTAL INTEREST PAYABLE";TB$;"25\"
;..YF%TN.P5:.9680..YK%...YP%.1,TB$;"30";
:.9100:..FY.%..LY.%...Y.%.1,"SEARCH BY "
;G(14);DL$;G(15):.1,LF$..Z.%.9300:..$Z.&
BC.TR(TT,1):T$.BD$(BC):TA.TN.8Z.&.BC.15.
BC.BC.16.BZ.&.9350.HZ.&..\Z.&.BC.15.BC.B
C.16.BZH&...ZM&.1,"SEARCH BY ";G(14);"\"
;TA;G(15):.1,LF$..ZR&.9300:...ZZ&BC.TR(T
T,1):T$.BD$(BC):TA.TN.QZ{&.BC.15.BC.BC.1
6..Z|&.9350..Z&...Z.&...[.&. PRINT THE
BUDGET ARRAY..[.&..*[.&.251 ,4:.49164:.B
(251)..0...5[.&.1,4,7.J[.&.1,"CODE";TB$;
"08BUDGET TITLE";TB$"28\.P":.1,LF$.R[.&C
.1..[.&.BD(0).0.9980..[J&.1,C;TB$;"06";B
D$(C);TB$;"24";..[T&TN.BD(C):NL.1:.9100.
X[.&.BD(0).C.C.C.1:.9980..[.&C.C.1:.9930
..[.&.C.17. 1:...\.'.1,C:C.C.1:.9980..."
> CLICK IMAGE PREVIEW FOR FULL MODAL