MONEY PLUS.BAS
FILE INFORMATION
FILENAME(S): MONEY PLUS.BAS
FILE TYPE(S): PRG
FILE SIZE: 14.9K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
471e53adae4b8435bf43399688b3714a621dff5dd1d79122949ea952c8266ea1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU NOVEMBER 90 | MONEY PLUS.BAS | PRG | UK CD | 30 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 42 08 E8 03 8F 20 20 20 22 4D 4F 4E 45 59 |..B.... "MONEY|
00000010: 2F 50 4C 55 53 20 36 34 22 20 20 20 44 49 53 4B |/PLUS 64" DISK|
00000020: 2F 54 41 50 45 2C 34 30 43 4F 4C 20 20 20 50 2E |/TAPE,40COL P.|
00000030: 47 2E 53 49 4D 4F 4E 44 53 20 20 31 39 2F 32 2F |G.SIMONDS 19/2/|
00000040: 39 30 00 87 08 F2 03 8F 20 42 55 44 47 45 54 53 |90...... BUDGETS|
00000050: 20 54 4F 20 4E 45 41 52 45 53 54 20 50 4F 55 4E | TO NEAREST POUN|
00000060: 44 20 46 4F 52 20 45 58 50 45 4E 53 45 53 20 41 |D FOR EXPENSES A|
00000070: 4E 44 20 49 4E 43 4F 4D 45 53 20 55 50 20 54 4F |ND INCOMES UP TO|
00000080: 20 5C 39 39 39 39 2E 00 A9 08 FC 03 8F 20 41 4E | \9999....... AN|
00000090: 4E 55 41 4C 20 54 4F 54 41 4C 53 20 55 50 20 54 |NUAL TOTALS UP T|
000000A0: 4F 20 5C 39 39 39 39 39 2E 00 DD 08 06 04 8F 20 |O \99999....... |
000000B0: 50 52 49 4E 54 4F 55 54 53 20 43 41 4E 20 53 54 |PRINTOUTS CAN ST|
000000C0: 41 52 54 20 41 54 20 41 4E 59 20 4D 4F 4E 54 48 |ART AT ANY MONTH|
000000D0: 20 4F 46 20 54 48 45 20 59 45 41 52 2E 00 10 09 | OF THE YEAR....|
000000E0: 1A 04 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |...53280,0:.5328|
000000F0: 31 2C 30 3A 99 C7 28 31 34 37 29 3B C7 28 33 30 |1,0:..(147);.(30|
00000100: 29 3A 99 22 20 57 45 4C 43 4F 4D 45 20 54 4F 22 |):." WELCOME TO"|
00000110: 00 29 09 24 04 99 3A 99 22 20 4D 4F 4E 45 59 2F |.).$..:." MONEY/|
00000120: 50 4C 55 53 20 36 34 2E 22 00 66 09 4C 04 45 B2 |PLUS 64.".f.L.E.|
00000130: 33 30 AA 31 3A 49 B2 31 30 AA 31 3A 4C 24 B2 22 |30.1:I.10.1:L$."|
00000140: 22 3A 81 50 B2 31 A4 32 31 3A 4C 24 B2 4C 24 AA |":.P.1.21:L$.L$.|
00000150: C7 28 31 39 32 29 3A 82 50 3A 81 50 B2 31 A4 34 |.(192):.P:.P.1.4|
00000160: 30 30 30 3A 82 50 00 A7 09 56 04 86 45 28 31 32 |000:.P...V..E(12|
00000170: 2C 33 31 29 3A 86 49 28 31 32 2C 31 31 29 3A 86 |,31):.I(12,11):.|
00000180: 45 24 28 33 31 29 3A 86 49 24 28 31 31 29 3A 86 |E$(31):.I$(11):.|
00000190: 4D 4F 24 28 31 32 29 3A 86 45 54 28 31 32 29 3A |MO$(12):.ET(12):|
000001A0: 86 49 54 28 31 32 29 00 DD 09 60 04 86 4D 54 28 |.IT(12)...`..MT(|
000001B0: 31 32 29 3A 86 52 54 28 31 32 29 3A 53 50 24 B2 |12):.RT(12):SP$.|
000001C0: 22 20 20 20 20 20 20 20 20 20 22 3A 86 45 53 24 |" ":.ES$|
000001D0: 28 33 31 29 3A 86 49 53 24 28 31 31 29 00 19 0A |(31):.IS$(11)...|
000001E0: 6A 04 4E B2 30 3A 45 B2 45 AB 31 3A 49 B2 49 AB |j.N.0:E.E.1:I.I.|
000001F0: 31 3A 48 24 B2 C7 28 31 37 36 29 AA 4C 24 AA C7 |1:H$..(176).L$..|
00000200: 28 31 37 34 29 3A 42 24 B2 C7 28 31 37 33 29 AA |(174):B$..(173).|
00000210: 4C 24 AA C7 28 32 35 33 29 00 5E 0A 74 04 4D 4F |L$..(253).^.t.MO|
00000220: 24 28 31 29 B2 22 4A 41 4E 22 3A 4D 4F 24 28 32 |$(1)."JAN":MO$(2|
00000230: 29 B2 22 46 45 42 22 3A 4D 4F 24 28 33 29 B2 22 |)."FEB":MO$(3)."|
00000240: 4D 41 52 22 3A 4D 4F 24 28 34 29 B2 22 41 50 52 |MAR":MO$(4)."APR|
00000250: 22 3A 4D 4F 24 28 35 29 B2 22 4D 41 59 22 00 7D |":MO$(5)."MAY".}|
00000260: 0A 7E 04 4D 4F 24 28 36 29 B2 22 4A 55 4E 22 3A |.~.MO$(6)."JUN":|
00000270: 4D 4F 24 28 31 32 29 B2 22 44 45 43 22 00 C4 0A |MO$(12)."DEC"...|
00000280: 88 04 4D 4F 24 28 37 29 B2 22 4A 55 4C 22 3A 4D |..MO$(7)."JUL":M|
00000290: 4F 24 28 38 29 B2 22 41 55 47 22 3A 4D 4F 24 28 |O$(8)."AUG":MO$(|
000002A0: 39 29 B2 22 53 45 50 22 3A 4D 4F 24 28 31 30 29 |9)."SEP":MO$(10)|
000002B0: B2 22 4F 43 54 22 3A 4D 4F 24 28 31 31 29 B2 22 |."OCT":MO$(11)."|
000002C0: 4E 4F 56 22 00 0A 0B 92 04 45 24 28 30 31 29 B2 |NOV".....E$(01).|
000002D0: 22 45 58 50 45 4E 53 45 20 31 20 20 20 22 3A 45 |"EXPENSE 1 ":E|
000002E0: 24 28 30 32 29 B2 22 45 58 50 45 4E 53 45 20 32 |$(02)."EXPENSE 2|
000002F0: 20 20 20 22 3A 45 24 28 30 33 29 B2 22 45 58 50 | ":E$(03)."EXP|
00000300: 45 4E 53 45 20 33 20 20 20 22 00 50 0B 9C 04 45 |ENSE 3 ".P...E|
00000310: 24 28 30 34 29 B2 22 20 20 20 20 20 20 20 20 20 |$(04)." |
00000320: 20 20 20 22 3A 45 24 28 30 35 29 B2 22 20 20 20 | ":E$(05)." |
00000330: 20 20 20 20 20 20 20 20 20 22 3A 45 24 28 30 36 | ":E$(06|
00000340: 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 |)." "|
00000350: 00 96 0B A6 04 45 24 28 30 37 29 B2 22 20 20 20 |.....E$(07)." |
00000360: 20 20 20 20 20 20 20 20 20 22 3A 45 24 28 30 38 | ":E$(08|
00000370: 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 |)." "|
00000380: 3A 45 24 28 30 39 29 B2 22 20 20 20 20 20 20 20 |:E$(09)." |
00000390: 20 20 20 20 20 22 00 DC 0B B0 04 45 24 28 31 30 | ".....E$(10|
000003A0: 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 |)." "|
000003B0: 3A 45 24 28 31 31 29 B2 22 20 20 20 20 20 20 20 |:E$(11)." |
000003C0: 20 20 20 20 20 22 3A 45 24 28 31 32 29 B2 22 20 | ":E$(12)." |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 22 00 22 0C BA | "."..|
000003E0: 04 45 24 28 31 33 29 B2 22 20 20 20 20 20 20 20 |.E$(13)." |
000003F0: 20 20 20 20 20 22 3A 45 24 28 31 34 29 B2 22 20 | ":E$(14)." |
00000400: 20 20 20 20 20 20 20 20 20 20 20 22 3A 45 24 28 | ":E$(|
00000410: 31 35 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 |15)." |
00000420: 20 22 00 68 0C C4 04 45 24 28 31 36 29 B2 22 20 | ".h...E$(16)." |
00000430: 20 20 20 20 20 20 20 20 20 20 20 22 3A 45 24 28 | ":E$(|
00000440: 31 37 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 |17)." |
00000450: 20 22 3A 45 24 28 31 38 29 B2 22 20 20 20 20 20 | ":E$(18)." |
00000460: 20 20 20 20 20 20 20 22 00 AE 0C CE 04 45 24 28 | ".....E$(|
00000470: 31 39 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 |19)." |
00000480: 20 22 3A 45 24 28 32 30 29 B2 22 20 20 20 20 20 | ":E$(20)." |
00000490: 20 20 20 20 20 20 20 22 3A 45 24 28 32 31 29 B2 | ":E$(21).|
000004A0: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F4 |" "..|
000004B0: 0C D8 04 45 24 28 32 32 29 B2 22 20 20 20 20 20 |...E$(22)." |
000004C0: 20 20 20 20 20 20 20 22 3A 45 24 28 32 33 29 B2 | ":E$(23).|
000004D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 45 |" ":E|
000004E0: 24 28 32 34 29 B2 22 20 20 20 20 20 20 20 20 20 |$(24)." |
000004F0: 20 20 20 22 00 3A 0D E2 04 45 24 28 32 35 29 B2 | ".:...E$(25).|
00000500: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 45 |" ":E|
00000510: 24 28 32 36 29 B2 22 20 20 20 20 20 20 20 20 20 |$(26)." |
00000520: 20 20 20 22 3A 45 24 28 32 37 29 B2 22 20 20 20 | ":E$(27)." |
00000530: 20 20 20 20 20 20 20 20 20 22 00 80 0D EC 04 45 | ".....E|
00000540: 24 28 32 38 29 B2 22 20 20 20 20 20 20 20 20 20 |$(28)." |
00000550: 20 20 20 22 3A 45 24 28 32 39 29 B2 22 20 20 20 | ":E$(29)." |
00000560: 20 20 20 20 20 20 20 20 20 22 3A 45 24 28 33 30 | ":E$(30|
00000570: 29 B2 22 4C 41 53 54 20 45 58 50 2E 20 20 20 22 |)."LAST EXP. "|
00000580: 00 C6 0D F6 04 49 24 28 30 31 29 B2 22 49 4E 43 |.....I$(01)."INC|
00000590: 4F 4D 45 20 31 20 20 20 20 22 3A 49 24 28 30 32 |OME 1 ":I$(02|
000005A0: 29 B2 22 49 4E 43 4F 4D 45 20 32 20 20 20 20 22 |)."INCOME 2 "|
000005B0: 3A 49 24 28 30 33 29 B2 22 49 4E 43 4F 4D 45 20 |:I$(03)."INCOME |
000005C0: 33 20 20 20 20 22 00 0C 0E 00 05 49 24 28 30 34 |3 ".....I$(04|
000005D0: 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 |)." "|
000005E0: 3A 49 24 28 30 35 29 B2 22 20 20 20 20 20 20 20 |:I$(05)." |
000005F0: 20 20 20 20 20 22 3A 49 24 28 30 36 29 B2 22 20 | ":I$(06)." |
00000600: 20 20 20 20 20 20 20 20 20 20 20 22 00 52 0E 0A | ".R..|
00000610: 05 49 24 28 30 37 29 B2 22 20 20 20 20 20 20 20 |.I$(07)." |
00000620: 20 20 20 20 20 22 3A 49 24 28 30 38 29 B2 22 20 | ":I$(08)." |
00000630: 20 20 20 20 20 20 20 20 20 20 20 22 3A 49 24 28 | ":I$(|
00000640: 30 39 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 |09)." |
00000650: 20 22 00 6C 0E 14 05 49 24 28 31 30 29 B2 22 4C | ".l...I$(10)."L|
00000660: 41 53 54 20 49 4E 43 2E 20 20 20 22 00 76 0E 1E |AST INC. ".v..|
00000670: 05 89 34 30 30 30 00 90 0E D0 07 8F 20 43 41 4C |..4000...... CAL|
00000680: 43 55 4C 41 54 49 4F 4E 20 52 4F 55 54 49 4E 45 |CULATION ROUTINE|
00000690: 00 A0 0E DA 07 4E B2 31 3A 5A B2 30 3A 59 B2 30 |.....N.1:Z.0:Y.0|
000006A0: 00 DE 0E E4 07 81 50 B2 31 A4 31 32 3A 45 54 28 |......P.1.12:ET(|
000006B0: 50 29 B2 30 3A 81 52 B2 31 A4 45 3A 45 54 28 50 |P).0:.R.1.E:ET(P|
000006C0: 29 B2 45 54 28 50 29 AA 45 28 50 2C 52 29 3A 82 |).ET(P).E(P,R):.|
000006D0: 52 3A 5A B2 5A AA 45 54 28 50 29 3A 82 50 00 1C |R:Z.Z.ET(P):.P..|
000006E0: 0F EE 07 81 50 B2 31 A4 31 32 3A 49 54 28 50 29 |....P.1.12:IT(P)|
000006F0: B2 30 3A 81 52 B2 31 A4 49 3A 49 54 28 50 29 B2 |.0:.R.1.I:IT(P).|
00000700: 49 54 28 50 29 AA 49 28 50 2C 52 29 3A 82 52 3A |IT(P).I(P,R):.R:|
00000710: 59 B2 59 AA 49 54 28 50 29 3A 82 50 00 3D 0F F8 |Y.Y.IT(P):.P.=..|
00000720: 07 81 50 B2 31 A4 31 32 3A 4D 54 28 50 29 B2 49 |..P.1.12:MT(P).I|
00000730: 54 28 50 29 AB 45 54 28 50 29 3A 82 50 00 55 0F |T(P).ET(P):.P.U.|
00000740: 02 08 99 C7 28 31 34 37 29 3A 81 50 B2 31 A4 36 |....(147):.P.1.6|
00000750: 3A 99 3A 82 50 00 8A 0F 0C 08 85 22 20 20 20 20 |:.:.P......" |
00000760: 20 20 20 20 20 31 53 54 20 4D 4F 4E 54 48 20 4E | 1ST MONTH N|
00000770: 55 4D 42 45 52 22 3B 53 4D 3A 8B 53 4D B3 31 B0 |UMBER";SM:.SM.1.|
00000780: 53 4D B1 31 32 A7 32 30 35 30 00 94 0F 16 08 52 |SM.12.2050.....R|
00000790: 52 B2 53 4D 00 AF 0F 20 08 52 54 28 53 4D 29 B2 |R.SM... .RT(SM).|
000007A0: 4D 54 28 53 4D 29 3A 58 B2 52 54 28 53 4D 29 00 |MT(SM):X.RT(SM).|
000007B0: BB 0F 2A 08 81 50 B2 31 A4 31 31 00 D3 0F 34 08 |..*..P.1.11...4.|
000007C0: 53 4D B2 53 4D AA 31 3A 8B 53 4D B2 31 33 A7 53 |SM.SM.1:.SM.13.S|
000007D0: 4D B2 31 00 F0 0F 3E 08 52 54 28 53 4D 29 B2 58 |M.1...>.RT(SM).X|
000007E0: AA 4D 54 28 53 4D 29 3A 58 B2 52 54 28 53 4D 29 |.MT(SM):X.RT(SM)|
000007F0: 00 F7 0F 48 08 82 50 00 0C 10 52 08 8B 52 54 28 |...H..P...R..RT(|
00000800: 53 4D 29 B2 59 AB 5A A7 32 31 35 30 00 2C 10 5C |SM).Y.Z.2150.,.\|
00000810: 08 99 22 49 4E 43 4F 52 52 45 43 54 20 43 41 4C |.."INCORRECT CAL|
00000820: 43 55 4C 41 54 49 4F 4E 21 22 3A 90 00 36 10 66 |CULATION!":..6.f|
00000830: 08 53 4D B2 52 52 00 58 10 B8 0B 8F 20 41 4E 4E |.SM.RR.X.... ANN|
00000840: 55 41 4C 20 53 54 41 54 45 4D 45 4E 54 20 46 4F |UAL STATEMENT FO|
00000850: 52 20 53 43 52 45 45 4E 00 6D 10 C2 0B 53 4D B2 |R SCREEN.m...SM.|
00000860: 52 52 3A 8B 53 4D B2 30 A7 53 4D B2 31 00 B0 10 |RR:.SM.0.SM.1...|
00000870: CC 0B 55 4C 24 B2 C7 28 31 35 39 29 AA 22 20 20 |..UL$..(159)." |
00000880: 20 20 3D 3D 3D 3D 3D 20 3D 3D 3D 3D 3D 20 3D 3D | ===== ===== ==|
00000890: 3D 3D 3D 3D 3D 20 3D 3D 3D 3D 3D 3D 22 3A 41 43 |===== ======":AC|
000008A0: B2 4D 54 28 53 4D 29 3A 99 C7 28 31 34 37 29 3B |.MT(SM):..(147);|
000008B0: 00 EF 10 D6 0B 99 C7 28 31 35 39 29 3B 22 20 20 |.......(159);" |
000008C0: 20 20 20 20 20 20 20 20 20 20 22 3B C7 28 31 38 | ";.(18|
000008D0: 29 3B 22 20 41 4E 4E 55 41 4C 20 53 54 41 54 45 |);" ANNUAL STATE|
000008E0: 4D 45 4E 54 20 22 3B C7 28 31 34 36 29 3A 99 00 |MENT ";.(146):..|
000008F0: 22 11 E0 0B 99 C7 28 31 35 35 29 3B 22 20 20 20 |".....(155);" |
00000900: 20 20 20 20 20 20 22 3B C7 28 31 38 29 3B 22 43 | ";.(18);"C|
00000910: 52 45 44 49 54 22 3B C7 28 31 34 36 29 3B 22 20 |REDIT";.(146);" |
00000920: 22 3B 00 5C 11 EA 0B 99 C7 28 31 38 29 3B 22 44 |";.\.....(18);"D|
00000930: 45 42 49 54 22 3B C7 28 31 34 36 29 3B 22 20 22 |EBIT";.(146);" "|
00000940: 3B C7 28 31 38 29 3B 22 42 41 4C 41 4E 43 45 22 |;.(18);"BALANCE"|
00000950: 3B C7 28 31 34 36 29 3B 22 20 22 3B 00 79 11 F4 |;.(146);" ";.y..|
00000960: 0B 99 C7 28 31 38 29 3B 22 41 43 43 55 4D 2E 22 |...(18);"ACCUM."|
00000970: 3B C7 28 31 34 36 29 3A 99 00 B3 11 FE 0B 81 50 |;.(146):.......P|
00000980: B2 31 A4 31 32 3A 99 C7 28 31 35 38 29 22 20 20 |.1.12:..(158)" |
00000990: 20 20 22 3B C7 28 31 38 29 3B 4D 4F 24 28 53 4D | ";.(18);MO$(SM|
000009A0: 29 3B C7 28 31 34 36 29 3B 22 20 20 22 3B C7 28 |);.(146);" ";.(|
000009B0: 35 29 3B 00 E9 11 08 0C 99 C9 28 22 20 20 20 20 |5);.......(" |
000009C0: 20 20 22 AA C4 28 49 54 28 53 4D 29 29 2C 36 29 | "..(IT(SM)),6)|
000009D0: 3B C9 28 22 20 20 20 20 20 20 22 AA C4 28 45 54 |;.(" "..(ET|
000009E0: 28 53 4D 29 29 2C 36 29 3B 00 1D 12 12 0C 99 C9 |(SM)),6);.......|
000009F0: 28 22 20 20 20 20 20 20 20 20 22 AA C4 28 4D 54 |(" "..(MT|
00000A00: 28 53 4D 29 29 2C 38 29 3B C9 28 22 20 20 20 20 |(SM)),8);.(" |
00000A10: 20 20 20 22 AA C4 28 41 43 29 2C 37 29 00 35 12 | "..(AC),7).5.|
00000A20: 1C 0C 53 4D B2 53 4D AA 31 3A 8B 53 4D B2 31 33 |..SM.SM.1:.SM.13|
00000A30: A7 53 4D B2 31 00 49 12 26 0C 41 43 B2 41 43 AA |.SM.1.I.&.AC.AC.|
00000A40: 4D 54 28 53 4D 29 3A 82 50 00 60 12 30 0C 99 22 |MT(SM):.P.`.0.."|
00000A50: 20 20 20 20 20 20 22 3B 55 4C 24 3B C7 28 35 29 | ";UL$;.(5)|
00000A60: 00 85 12 3A 0C 99 22 20 20 20 20 20 20 22 3B C9 |...:.." ";.|
00000A70: 28 22 20 20 20 20 20 20 20 20 20 22 AA C4 28 59 |(" "..(Y|
00000A80: 29 2C 39 29 3B 00 9E 12 44 0C 99 C9 28 22 20 20 |),9);...D...(" |
00000A90: 20 20 20 20 22 AA C4 28 5A 29 2C 36 29 3B 00 D6 | "..(Z),6);..|
00000AA0: 12 4E 0C 99 C9 28 22 20 20 20 20 20 20 20 20 22 |.N...(" "|
00000AB0: AA C4 28 59 AB 5A 29 2C 38 29 3B C9 28 22 20 20 |..(Y.Z),8);.(" |
00000AC0: 20 20 20 20 20 22 AA C4 28 41 43 AB 4D 54 28 53 | "..(AC.MT(S|
00000AD0: 4D 29 29 2C 37 29 00 06 13 58 0C 99 22 20 20 20 |M)),7)...X.." |
00000AE0: 20 20 20 22 3B 55 4C 24 3A 99 3A 99 3A 99 22 20 | ";UL$:.:.:." |
00000AF0: 20 20 20 28 50 52 45 53 53 20 4D 2C 50 2C 45 20 | (PRESS M,P,E |
00000B00: 4F 52 20 49 29 22 00 0E 13 62 0C A1 41 24 00 1E |OR I)"...b..A$..|
00000B10: 13 6C 0C 8B 41 24 B2 22 22 A7 33 31 37 30 00 2F |.l..A$."".3170./|
00000B20: 13 76 0C 8B 41 24 B2 22 4D 22 A7 34 30 30 30 00 |.v..A$."M".4000.|
00000B30: 40 13 80 0C 8B 41 24 B2 22 50 22 A7 35 30 30 30 |@....A$."P".5000|
00000B40: 00 60 13 8A 0C 8B 41 24 B2 22 45 22 A7 53 4D B2 |.`....A$."E".SM.|
00000B50: 52 52 3A 42 42 24 B2 22 45 22 3A 89 38 30 30 30 |RR:BB$."E":.8000|
00000B60: 00 80 13 94 0C 8B 41 24 B2 22 49 22 A7 53 4D B2 |......A$."I".SM.|
00000B70: 52 52 3A 42 42 24 B2 22 49 22 3A 89 38 30 30 30 |RR:BB$."I":.8000|
00000B80: 00 8A 13 9E 0C 89 33 31 37 30 00 95 13 A0 0F 8F |......3170......|
00000B90: 20 4D 45 4E 55 00 AA 13 AA 0F 53 4D B2 52 52 3A | MENU.....SM.RR:|
00000BA0: 8B 53 4D B2 30 A7 53 4D B2 31 00 CC 13 B4 0F 41 |.SM.0.SM.1.....A|
00000BB0: 31 24 B2 C7 28 31 38 29 AA 22 20 22 AA C7 28 31 |1$..(18)." "..(1|
00000BC0: 34 36 29 AA C7 28 35 29 AA 22 20 22 00 F9 13 BE |46)..(5)." "....|
00000BD0: 0F 41 32 24 B2 22 20 22 AA C7 28 31 35 33 29 3A |.A2$." "..(153):|
00000BE0: 41 33 24 B2 22 20 20 22 AA C7 28 31 38 29 AA C7 |A3$." "..(18)..|
00000BF0: 28 31 35 35 29 AA 22 20 22 00 17 14 C8 0F 41 33 |(155)." ".....A3|
00000C00: 24 B2 22 20 20 22 AA C7 28 31 38 29 AA C7 28 31 |$." "..(18)..(1|
00000C10: 35 35 29 AA 22 20 22 00 51 14 D2 0F 41 24 B2 C7 |55)." ".Q...A$..|
00000C20: 28 31 38 29 AA 22 20 22 AA C7 28 31 34 36 29 AA |(18)." "..(146).|
00000C30: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000C40: 20 20 20 20 20 20 22 AA C7 28 31 38 29 AA 22 20 | "..(18)." |
00000C50: 22 00 88 14 DC 0F 99 C7 28 31 34 37 29 3B C7 28 |".......(147);.(|
00000C60: 31 35 35 29 3B 53 50 24 3B C7 28 31 38 29 3B 22 |155);SP$;.(18);"|
00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C80: 20 20 20 20 20 20 20 22 00 B8 14 E6 0F 99 53 50 | "......SP|
00000C90: 24 3B C7 28 31 35 35 29 3B C7 28 31 38 29 3B 22 |$;.(155);.(18);"|
00000CA0: 20 20 20 20 20 20 20 20 4D 20 45 20 4E 20 55 20 | M E N U |
00000CB0: 20 20 20 20 20 20 20 22 00 E9 14 F0 0F 99 53 50 | "......SP|
00000CC0: 24 3B C7 28 31 38 29 3B 22 20 20 20 20 20 20 20 |$;.(18);" |
00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CE0: 22 3A 99 53 50 24 3B 41 24 00 1D 15 FA 0F 99 53 |":.SP$;A$......S|
00000CF0: 50 24 3B 41 31 24 3B 22 43 41 4C 43 55 4C 41 54 |P$;A1$;"CALCULAT|
00000D00: 45 2E 2E 2E 2E 2E 2E 2E 22 3B 41 32 24 3B 22 43 |E.......";A2$;"C|
00000D10: 22 3B 41 33 24 3A 99 53 50 24 3B 41 24 00 51 15 |";A3$:.SP$;A$.Q.|
00000D20: 04 10 99 53 50 24 3B 41 31 24 3B 22 43 48 41 4E |...SP$;A1$;"CHAN|
00000D30: 47 45 20 48 45 41 44 49 4E 47 53 2E 22 3B 41 32 |GE HEADINGS.";A2|
00000D40: 24 3B 22 48 22 3B 41 33 24 3A 99 53 50 24 3B 41 |$;"H";A3$:.SP$;A|
00000D50: 24 00 85 15 0E 10 99 53 50 24 3B 41 31 24 3B 22 |$......SP$;A1$;"|
00000D60: 4D 4F 4E 54 48 4C 59 20 44 49 53 50 4C 41 59 2E |MONTHLY DISPLAY.|
00000D70: 22 3B 41 32 24 3B 22 4D 22 3B 41 33 24 3A 99 53 |";A2$;"M";A3$:.S|
00000D80: 50 24 3B 41 24 00 B9 15 18 10 99 53 50 24 3B 41 |P$;A$......SP$;A|
00000D90: 31 24 3B 22 50 52 49 4E 54 45 52 2E 2E 2E 2E 2E |1$;"PRINTER.....|
00000DA0: 2E 2E 2E 2E 22 3B 41 32 24 3B 22 50 22 3B 41 33 |....";A2$;"P";A3|
00000DB0: 24 3A 99 53 50 24 3B 41 24 00 ED 15 22 10 99 53 |$:.SP$;A$..."..S|
00000DC0: 50 24 3B 41 31 24 3B 22 43 48 41 4E 47 45 20 49 |P$;A1$;"CHANGE I|
00000DD0: 4E 43 4F 4D 45 2E 2E 2E 22 3B 41 32 24 3B 22 49 |NCOME...";A2$;"I|
00000DE0: 22 3B 41 33 24 3A 99 53 50 24 3B 41 24 00 21 16 |";A3$:.SP$;A$.!.|
00000DF0: 2C 10 99 53 50 24 3B 41 31 24 3B 22 43 48 41 4E |,..SP$;A1$;"CHAN|
00000E00: 47 45 20 45 58 50 45 4E 53 45 53 2E 22 3B 41 32 |GE EXPENSES.";A2|
00000E10: 24 3B 22 45 22 3B 41 33 24 3A 99 53 50 24 3B 41 |$;"E";A3$:.SP$;A|
00000E20: 24 00 55 16 36 10 99 53 50 24 3B 41 31 24 3B 22 |$.U.6..SP$;A1$;"|
00000E30: 41 4E 41 4C 59 5A 45 20 44 41 54 41 2E 2E 2E 2E |ANALYZE DATA....|
00000E40: 22 3B 41 32 24 3B 22 41 22 3B 41 33 24 3A 99 53 |";A2$;"A";A3$:.S|
00000E50: 50 24 3B 41 24 00 89 16 40 10 99 53 50 24 3B 41 |P$;A$...@..SP$;A|
00000E60: 31 24 3B 22 41 4E 4E 55 41 4C 20 56 49 45 57 2E |1$;"ANNUAL VIEW.|
00000E70: 2E 2E 2E 2E 22 3B 41 32 24 3B 22 59 22 3B 41 33 |....";A2$;"Y";A3|
00000E80: 24 3A 99 53 50 24 3B 41 24 00 BD 16 4A 10 99 53 |$:.SP$;A$...J..S|
00000E90: 50 24 3B 41 31 24 3B 22 53 41 56 45 20 46 49 4C |P$;A1$;"SAVE FIL|
00000EA0: 45 2E 2E 2E 2E 2E 2E 2E 22 3B 41 32 24 3B 22 53 |E.......";A2$;"S|
00000EB0: 22 3B 41 33 24 3A 99 53 50 24 3B 41 24 00 F1 16 |";A3$:.SP$;A$...|
00000EC0: 54 10 99 53 50 24 3B 41 31 24 3B 22 4C 4F 41 44 |T..SP$;A1$;"LOAD|
00000ED0: 20 46 49 4C 45 2E 2E 2E 2E 2E 2E 2E 22 3B 41 32 | FILE.......";A2|
00000EE0: 24 3B 22 4C 22 3B 41 33 24 3A 99 53 50 24 3B 41 |$;"L";A3$:.SP$;A|
00000EF0: 24 00 26 17 5E 10 99 53 50 24 3B C7 28 31 38 29 |$.&.^..SP$;.(18)|
00000F00: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
00000F10: 20 20 20 20 20 20 20 20 20 22 C7 28 31 34 36 29 | ".(146)|
00000F20: 3B C7 28 31 39 29 00 2F 17 68 10 A1 42 42 24 00 |;.(19)./.h..BB$.|
00000F30: 38 17 72 10 58 58 B2 30 00 5E 17 7C 10 8B 42 42 |8.r.XX.0.^.|..BB|
00000F40: 24 B2 22 43 22 AF 4B 4B B2 31 A7 99 C7 28 31 34 |$."C".KK.1...(14|
00000F50: 37 29 3B C7 28 35 29 3B 3A 89 34 33 32 30 00 78 |7);.(5);:.4320.x|
00000F60: 17 86 10 8B 42 42 24 B2 22 49 22 B0 42 42 24 B2 |....BB$."I".BB$.|
00000F70: 22 45 22 A7 38 30 30 30 00 8B 17 90 10 8B 42 42 |"E".8000......BB|
00000F80: 24 B2 22 48 22 A7 31 33 30 30 30 00 A3 17 9A 10 |$."H".13000.....|
00000F90: 8B 42 42 24 B2 22 53 22 AF 4B 4B B2 31 A7 31 31 |.BB$."S".KK.1.11|
00000FA0: 30 30 30 00 B9 17 A4 10 8B 42 42 24 B2 22 4D 22 |000......BB$."M"|
00000FB0: AF 4E B2 31 A7 39 30 30 30 00 CF 17 AE 10 8B 42 |.N.1.9000......B|
00000FC0: 42 24 B2 22 59 22 AF 4E B2 31 A7 33 30 30 30 00 |B$."Y".N.1.3000.|
00000FD0: E5 17 B8 10 8B 42 42 24 B2 22 50 22 AF 4E B2 31 |.....BB$."P".N.1|
00000FE0: A7 35 30 30 30 00 FC 17 C2 10 8B 42 42 24 B2 22 |.5000......BB$."|
00000FF0: 41 22 AF 4E B2 31 A7 31 30 30 30 30 00 0F 18 CC |A".N.1.10000....|
00001000: 10 8B 42 42 24 B2 22 4C 22 A7 31 32 30 30 30 00 |..BB$."L".12000.|
00001010: 19 18 D6 10 89 34 32 30 30 00 48 18 E0 10 81 50 |.....4200.H....P|
00001020: B2 31 A4 37 3A 99 3A 82 50 3A 99 22 20 20 20 20 |.1.7:.:.P:." |
00001030: 20 20 20 20 20 20 20 20 20 22 3B C7 28 31 38 29 | ";.(18)|
00001040: 3B C7 28 31 33 30 29 3B 00 72 18 EA 10 99 22 20 |;.(130);.r...." |
00001050: 43 41 4C 43 55 4C 41 54 49 4E 47 2E 20 22 3B C7 |CALCULATING. ";.|
00001060: 28 31 33 32 29 3B C7 28 31 34 36 29 3A 89 32 30 |(132);.(146):.20|
00001070: 30 30 00 88 18 88 13 8F 20 50 52 49 4E 54 45 52 |00...... PRINTER|
00001080: 20 52 4F 55 54 49 4E 45 00 C6 18 92 13 50 31 24 | ROUTINE.....P1$|
00001090: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000010A0: 20 20 20 20 20 20 20 22 3A 50 32 24 B2 50 31 24 | ":P2$.P1$|
000010B0: AA 50 31 24 AA 50 31 24 AA 50 31 24 3A 99 C7 28 |.P1$.P1$.P1$:..(|
000010C0: 31 34 37 29 3A 99 00 F4 18 9C 13 99 C7 28 31 35 |147):........(15|
000010D0: 35 29 3B 22 20 20 20 20 49 53 20 50 52 49 4E 54 |5);" IS PRINT|
000010E0: 45 52 20 43 4F 4E 4E 45 43 54 45 44 3F 20 28 59 |ER CONNECTED? (Y|
000010F0: 2F 4E 29 22 00 0E 19 A1 13 59 24 B2 22 22 3A A1 |/N)".....Y$."":.|
00001100: 59 24 3A 8B 59 24 B2 22 22 A7 35 30 32 35 00 20 |Y$:.Y$."".5025. |
00001110: 19 A3 13 8B 59 24 B3 B1 22 59 22 A7 34 30 30 30 |....Y$.."Y".4000|
00001120: 00 48 19 A6 13 99 3A 99 3A 99 22 20 20 20 20 49 |.H....:.:." I|
00001130: 53 20 50 52 49 4E 54 45 52 20 4C 4F 41 44 45 44 |S PRINTER LOADED|
00001140: 3F 20 28 59 2F 4E 29 22 00 62 19 AB 13 59 24 B2 |? (Y/N)".b...Y$.|
00001150: 22 22 3A A1 59 24 3A 8B 59 24 B2 22 22 A7 35 30 |"":.Y$:.Y$."".50|
00001160: 33 35 00 74 19 AD 13 8B 59 24 B3 B1 22 59 22 A7 |35.t....Y$.."Y".|
00001170: 34 30 30 30 00 9F 19 B0 13 99 3A 99 3A 99 22 20 |4000......:.:." |
00001180: 20 20 20 49 53 20 50 52 49 4E 54 45 52 20 54 55 | IS PRINTER TU|
00001190: 52 4E 45 44 20 4F 4E 3F 20 28 59 2F 4E 29 22 00 |RNED ON? (Y/N)".|
000011A0: B9 19 BA 13 59 24 B2 22 22 3A A1 59 24 3A 8B 59 |....Y$."":.Y$:.Y|
000011B0: 24 B2 22 22 A7 35 30 35 30 00 CB 19 BF 13 8B 59 |$."".5050......Y|
000011C0: 24 B3 B1 22 59 22 A7 34 30 30 30 00 E7 19 C4 13 |$.."Y".4000.....|
000011D0: 99 C7 28 35 29 3A 99 3A 85 22 20 20 20 20 44 41 |..(5):.:." DA|
000011E0: 54 45 22 3B 44 54 24 00 21 1A CE 13 50 41 B2 30 |TE";DT$.!...PA.0|
000011F0: 3A 99 3A 99 3A 85 22 20 20 20 20 50 41 47 45 20 |:.:.:." PAGE |
00001200: 4E 55 4D 42 45 52 20 31 20 4F 52 20 32 22 3B 50 |NUMBER 1 OR 2";P|
00001210: 41 3A 8B 50 41 B3 31 B0 50 41 B1 32 A7 34 30 30 |A:.PA.1.PA.2.400|
00001220: 30 00 57 1A D8 13 99 3A 99 3A 99 C7 28 31 35 35 |0.W....:.:..(155|
00001230: 29 3B 22 20 20 20 20 41 4E 4E 55 41 4C 2F 4D 4F |);" ANNUAL/MO|
00001240: 4E 54 48 4C 59 20 53 54 41 54 45 4D 45 4E 54 3F |NTHLY STATEMENT?|
00001250: 20 28 41 2F 4D 29 22 00 74 1A DD 13 43 43 24 B2 | (A/M)".t...CC$.|
00001260: 22 22 3A A1 43 43 24 3A 8B 43 43 24 B2 22 22 A7 |"":.CC$:.CC$."".|
00001270: 35 30 38 35 00 86 1A E2 13 8B 43 43 24 B2 22 41 |5085......CC$."A|
00001280: 22 A7 36 30 30 30 00 98 1A EC 13 8B 43 43 24 B2 |".6000......CC$.|
00001290: 22 4D 22 A7 37 30 30 30 00 A2 1A F6 13 89 34 30 |"M".7000......40|
000012A0: 30 30 00 BC 1A 70 17 8F 20 50 52 49 4E 54 20 41 |00...p.. PRINT A|
000012B0: 4E 4E 55 41 4C 20 42 55 44 47 45 54 00 CE 1A 7A |NNUAL BUDGET...z|
000012C0: 17 9F 34 2C 34 3A 9D 34 3A 8D 36 33 38 30 00 FA |..4,4:.4:.6380..|
000012D0: 1A 84 17 99 22 41 4E 4E 55 41 4C 20 42 55 44 47 |...."ANNUAL BUDG|
000012E0: 45 54 20 22 3B 44 54 24 3A 53 B2 C3 28 44 54 24 |ET ";DT$:S..(DT$|
000012F0: 29 AA 31 34 3A 8D 36 33 38 30 00 12 1B 8E 17 81 |).14:.6380......|
00001300: 50 B2 31 A4 53 3A 99 22 3D 22 3B 3A 82 50 3A 99 |P.1.S:."=";:.P:.|
00001310: 3A 99 00 5D 1B 98 17 4C 55 24 B2 22 3D 3D 3D 3D |:..]...LU$."====|
00001320: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 2D 2D 2D 2D 20 |========== ---- |
00001330: 2D 2D 2D 2D 20 2D 2D 2D 2D 20 2D 2D 2D 2D 20 2D |---- ---- ---- -|
00001340: 2D 2D 2D 20 2D 2D 2D 2D 20 2D 2D 2D 2D 20 2D 2D |--- ---- ---- --|
00001350: 2D 2D 20 2D 2D 2D 2D 20 2D 2D 2D 2D 22 00 82 1B |-- ---- ----"...|
00001360: A2 17 4C 55 24 B2 4C 55 24 AA 22 20 2D 2D 2D 2D |..LU$.LU$." ----|
00001370: 20 2D 2D 2D 2D 20 3D 3D 3D 3D 3D 22 3A 8D 36 33 | ---- =====":.63|
00001380: 38 30 00 B7 1B AC 17 99 22 49 4E 43 4F 4D 45 20 |80......"INCOME |
00001390: 20 20 20 20 20 20 20 22 3B 3A 8D 36 34 31 30 3A | ";:.6410:|
000013A0: 8D 36 33 38 30 3A 99 4C 55 24 3A 53 4D B2 52 52 |.6380:.LU$:SM.RR|
000013B0: 3A 81 50 B2 31 A4 49 00 D8 1B B6 17 53 53 B2 30 |:.P.1.I.....SS.0|
000013C0: 3A 81 4D B2 31 A4 31 32 3A 53 53 B2 53 53 AA 49 |:.M.1.12:SS.SS.I|
000013D0: 28 4D 2C 50 29 3A 82 4D 00 FC 1B C0 17 8B 49 24 |(M,P):.M......I$|
000013E0: 28 50 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 |(P)." |
000013F0: 20 22 AF 53 53 B2 30 A7 36 31 33 30 00 2D 1C CA | ".SS.0.6130.-..|
00001400: 17 8D 36 33 38 30 3A 99 CA 28 C4 28 50 29 AA 22 |..6380:..(.(P)."|
00001410: 20 20 22 2C 32 2C 33 29 3B C8 28 49 24 28 50 29 | ",2,3);.(I$(P)|
00001420: 2C 31 31 29 3B 3A 81 4D B2 31 A4 31 32 00 4E 1C |,11);:.M.1.12.N.|
00001430: D4 17 44 B2 49 28 53 4D 2C 50 29 3A 99 C9 28 22 |..D.I(SM,P):..("|
00001440: 20 20 20 20 22 AA C4 28 44 29 2C 35 29 3B 00 66 | "..(D),5);.f|
00001450: 1C DE 17 53 4D B2 53 4D AA 31 3A 8B 53 4D B2 31 |...SM.SM.1:.SM.1|
00001460: 33 A7 53 4D B2 31 00 86 1C E8 17 82 4D 3A 44 B2 |3.SM.1......M:D.|
00001470: 53 53 3A 99 C9 28 22 20 20 20 20 20 20 22 AA C4 |SS:..(" "..|
00001480: 28 44 29 2C 36 29 00 98 1C F2 17 82 50 3A 8D 36 |(D),6)......P:.6|
00001490: 33 38 30 3A 99 4C 55 24 00 D3 1C FC 17 8D 36 33 |380:.LU$......63|
000014A0: 38 30 3A 99 22 54 4F 54 41 4C 53 20 20 20 20 20 |80:."TOTALS |
000014B0: 20 20 20 22 3B 3A 53 53 B2 30 3A 81 4D B2 31 A4 | ";:SS.0:.M.1.|
000014C0: 31 32 3A 44 B2 49 54 28 53 4D 29 3A 53 53 B2 53 |12:D.IT(SM):SS.S|
000014D0: 53 AA 44 00 FE 1C 06 18 99 C9 28 22 20 20 20 20 |S.D.......(" |
000014E0: 22 AA C4 28 44 29 2C 35 29 3B 3A 53 4D B2 53 4D |"..(D),5);:SM.SM|
000014F0: AA 31 3A 8B 53 4D B2 31 33 A7 53 4D B2 31 00 2D |.1:.SM.13.SM.1.-|
00001500: 1D 10 18 82 4D 3A 44 B2 53 53 3A 99 C9 28 22 20 |....M:D.SS:..(" |
00001510: 20 20 20 20 20 22 AA C4 28 44 29 2C 36 29 3A 8D | "..(D),6):.|
00001520: 36 33 38 30 3A 99 4C 55 24 3A 99 3A 99 00 5D 1D |6380:.LU$:.:..].|
00001530: 1A 18 99 3A 8D 36 33 38 30 3A 99 22 45 58 50 45 |...:.6380:."EXPE|
00001540: 4E 53 45 53 20 20 20 20 20 20 22 3B 3A 8D 36 34 |NSES ";:.64|
00001550: 31 30 3A 8D 36 33 38 30 3A 99 4C 55 24 00 8B 1D |10:.6380:.LU$...|
00001560: 24 18 53 4D B2 52 52 3A 81 50 B2 31 A4 45 3A 53 |$.SM.RR:.P.1.E:S|
00001570: 53 B2 30 3A 81 4D B2 31 A4 31 32 3A 53 53 B2 53 |S.0:.M.1.12:SS.S|
00001580: 53 AA 45 28 4D 2C 50 29 3A 82 4D 00 AF 1D 2E 18 |S.E(M,P):.M.....|
00001590: 8B 45 24 28 50 29 B2 22 20 20 20 20 20 20 20 20 |.E$(P)." |
000015A0: 20 20 20 20 22 AF 53 53 B2 30 A7 36 32 34 30 00 | ".SS.0.6240.|
000015B0: DA 1D 38 18 8D 36 33 38 30 3A 99 CA 28 C4 28 50 |..8..6380:..(.(P|
000015C0: 29 AA 22 20 20 22 2C 32 2C 33 29 3B 3A 99 C8 28 |)." ",2,3);:..(|
000015D0: 45 24 28 50 29 2C 31 31 29 3B 00 03 1E 42 18 81 |E$(P),11);...B..|
000015E0: 4D B2 31 A4 31 32 3A 44 B2 45 28 53 4D 2C 50 29 |M.1.12:D.E(SM,P)|
000015F0: 3A 99 C9 28 22 20 20 20 20 22 AA C4 28 44 29 2C |:..(" "..(D),|
00001600: 35 29 3B 00 1B 1E 4C 18 53 4D B2 53 4D AA 31 3A |5);...L.SM.SM.1:|
00001610: 8B 53 4D B2 31 33 A7 53 4D B2 31 00 3B 1E 56 18 |.SM.13.SM.1.;.V.|
00001620: 82 4D 3A 44 B2 53 53 3A 99 C9 28 22 20 20 20 20 |.M:D.SS:..(" |
00001630: 20 20 22 AA C4 28 44 29 2C 36 29 00 42 1E 60 18 | "..(D),6).B.`.|
00001640: 82 50 00 6F 1E 6A 18 8D 36 33 38 30 3A 99 4C 55 |.P.o.j..6380:.LU|
00001650: 24 3A 8D 36 33 38 30 3A 99 22 54 4F 54 41 4C 53 |$:.6380:."TOTALS|
00001660: 20 20 20 20 20 20 20 20 22 3B 3A 53 53 B2 30 00 | ";:SS.0.|
00001670: 9F 1E 74 18 81 4D B2 31 A4 31 32 3A 44 B2 45 54 |..t..M.1.12:D.ET|
00001680: 28 53 4D 29 3A 53 53 B2 53 53 AA 44 3A 99 C9 28 |(SM):SS.SS.D:..(|
00001690: 22 20 20 20 20 22 AA C4 28 44 29 2C 35 29 3B 00 |" "..(D),5);.|
000016A0: B7 1E 7E 18 53 4D B2 53 4D AA 31 3A 8B 53 4D B2 |..~.SM.SM.1:.SM.|
000016B0: 31 33 A7 53 4D B2 31 00 E6 1E 88 18 82 4D 3A 44 |13.SM.1......M:D|
000016C0: B2 53 53 3A 99 C9 28 22 20 20 20 20 20 20 22 AA |.SS:..(" ".|
000016D0: C4 28 44 29 2C 36 29 3A 8D 36 33 38 30 3A 99 4C |.(D),6):.6380:.L|
000016E0: 55 24 3A 99 3A 99 00 16 1F 92 18 99 3A 8D 36 33 |U$:.:.......:.63|
000016F0: 38 30 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |80:." |
00001700: 20 20 20 22 3B 3A 8D 36 34 31 30 3A 8D 36 33 38 | ";:.6410:.638|
00001710: 30 3A 99 4C 55 24 00 46 1F 9C 18 8D 36 33 38 30 |0:.LU$.F....6380|
00001720: 3A 99 22 42 41 4C 41 4E 43 45 53 20 20 20 20 20 |:."BALANCES |
00001730: 20 22 3B 3A 53 53 B2 30 3A 53 4D B2 52 52 3A 81 | ";:SS.0:SM.RR:.|
00001740: 4D B2 31 A4 31 32 00 82 1F A6 18 44 B2 4D 54 28 |M.1.12.....D.MT(|
00001750: 53 4D 29 3A 53 53 B2 53 53 AA 44 3A 99 C9 28 22 |SM):SS.SS.D:..("|
00001760: 20 20 20 20 22 AA C4 28 44 29 2C 35 29 3B 3A 53 | "..(D),5);:S|
00001770: 4D B2 53 4D AA 31 3A 8B 53 4D B2 31 33 A7 53 4D |M.SM.1:.SM.13.SM|
00001780: B2 31 00 B1 1F B0 18 82 4D 3A 44 B2 53 53 3A 99 |.1......M:D.SS:.|
00001790: C9 28 22 20 20 20 20 20 20 22 AA C4 28 44 29 2C |.(" "..(D),|
000017A0: 36 29 3A 8D 36 33 38 30 3A 99 4C 55 24 3A 99 3A |6):.6380:.LU$:.:|
000017B0: 99 00 E1 1F BA 18 99 3A 8D 36 33 38 30 3A 99 22 |.......:.6380:."|
000017C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
000017D0: 3A 8D 36 34 31 30 3A 8D 36 33 38 30 3A 99 4C 55 |:.6410:.6380:.LU|
000017E0: 24 00 15 20 C4 18 8D 36 33 38 30 3A 99 22 41 43 |$.. ...6380:."AC|
000017F0: 43 55 4D 55 4C 41 54 49 4F 4E 20 20 22 3B 3A 53 |CUMULATION ";:S|
00001800: 4D B2 52 52 3A 81 4D B2 31 A4 31 32 3A 44 B2 52 |M.RR:.M.1.12:D.R|
00001810: 54 28 53 4D 29 00 40 20 CE 18 99 C9 28 22 20 20 |T(SM).@ ....(" |
00001820: 20 20 22 AA C4 28 44 29 2C 35 29 3B 3A 53 4D B2 | "..(D),5);:SM.|
00001830: 53 4D AA 31 3A 8B 53 4D B2 31 33 A7 53 4D B2 31 |SM.1:.SM.13.SM.1|
00001840: 00 6C 20 D8 18 82 4D 3A 44 B2 59 AB 5A 3A 99 C9 |.l ...M:D.Y.Z:..|
00001850: 28 22 20 20 20 20 20 20 22 AA C4 28 44 29 2C 36 |(" "..(D),6|
00001860: 29 3A 8D 36 33 38 30 3A 99 4C 55 24 00 7E 20 E2 |):.6380:.LU$.~ .|
00001870: 18 98 34 3A A0 34 2C 34 3A 89 34 30 30 30 00 A4 |..4:.4,4:.4000..|
00001880: 20 EC 18 8F 20 50 52 49 4E 54 20 42 4C 41 4E 4B | ... PRINT BLANK|
00001890: 20 50 41 47 45 20 4F 4E 45 20 53 55 42 52 4F 55 | PAGE ONE SUBROU|
000018A0: 54 49 4E 45 00 B4 20 F6 18 8B 50 41 B2 32 A7 99 |TINE.. ...PA.2..|
000018B0: 50 32 24 3B 00 BA 20 00 19 8E 00 D8 20 0A 19 8F |P2$;.. ..... ...|
000018C0: 20 50 52 49 4E 54 20 4D 4F 4E 54 48 53 20 53 55 | PRINT MONTHS SU|
000018D0: 42 52 4F 55 54 49 4E 45 00 0D 21 14 19 53 4D B2 |BROUTINE..!..SM.|
000018E0: 52 52 3A 81 50 B2 31 A4 31 32 3A 99 22 20 20 22 |RR:.P.1.12:." "|
000018F0: 3B 4D 4F 24 28 53 4D 29 3B 3A 53 4D B2 53 4D AA |;MO$(SM);:SM.SM.|
00001900: 31 3A 8B 53 4D B2 31 33 A7 53 4D B2 31 00 20 21 |1:.SM.13.SM.1. !|
00001910: 1E 19 82 50 3A 99 22 20 54 4F 54 41 4C 22 3A 8E |...P:." TOTAL":.|
00001920: 00 3E 21 58 1B 8F 20 50 52 49 4E 54 20 4D 4F 4E |.>!X.. PRINT MON|
00001930: 54 48 4C 59 20 53 54 41 54 45 4D 45 4E 54 00 67 |THLY STATEMENT.g|
00001940: 21 62 1B 55 55 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D |!b.UU$."--------|
00001950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A |--------------":|
00001960: 99 C7 28 35 29 3A 99 00 A1 21 6C 1B 85 22 20 20 |..(5):...!l.." |
00001970: 20 20 4E 55 4D 42 45 52 20 4F 46 20 4D 4F 4E 54 | NUMBER OF MONT|
00001980: 48 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 22 |H TO BE PRINTED"|
00001990: 3B 4D 3A 8B 4D B3 31 B0 4D B1 31 32 A7 34 30 30 |;M:.M.1.M.12.400|
000019A0: 30 00 CF 21 76 1B 9F 34 2C 34 3A 9D 34 3A 99 C7 |0..!v..4,4:.4:..|
000019B0: 28 31 34 29 3B 3A 8D 36 33 38 30 3A 99 44 54 24 |(14);:.6380:.DT$|
000019C0: 3A 53 B2 C3 28 44 54 24 29 3A 8D 36 33 38 30 00 |:S..(DT$):.6380.|
000019D0: ED 21 80 1B 81 50 B2 31 A4 53 3A 99 22 3D 22 3B |.!...P.1.S:."=";|
000019E0: 3A 82 50 3A 99 3A 99 3A 8D 36 33 38 30 00 1D 22 |:.P:.:.:.6380.."|
000019F0: 8A 1B 99 22 45 53 54 49 4D 41 54 45 53 20 46 4F |..."ESTIMATES FO|
00001A00: 52 20 54 48 45 20 4D 4F 4E 54 48 20 4F 46 20 22 |R THE MONTH OF "|
00001A10: 3B 4D 4F 24 28 4D 29 3A 8D 36 33 38 30 00 4B 22 |;MO$(M):.6380.K"|
00001A20: 94 1B 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..."------------|
00001A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A40: 2D 2D 22 3A 99 3A 8D 36 33 38 30 00 7B 22 9E 1B |--":.:.6380.{"..|
00001A50: 99 22 49 4E 43 4F 4D 45 3A 2D 20 20 20 20 20 20 |."INCOME:- |
00001A60: 20 20 20 20 20 20 20 5C 22 3A 8D 36 33 38 30 3A | \":.6380:|
00001A70: 99 55 55 24 3A 81 50 B2 31 A4 49 00 97 22 A8 1B |.UU$:.P.1.I.."..|
00001A80: 8B 49 28 4D 2C 50 29 B2 30 B0 49 24 28 50 29 B2 |.I(M,P).0.I$(P).|
00001A90: 22 22 A7 37 31 30 30 00 C7 22 B2 1B 8D 36 33 38 |"".7100.."...638|
00001AA0: 30 3A 99 49 24 28 50 29 3B 22 20 20 20 20 20 20 |0:.I$(P);" |
00001AB0: 22 3B C9 28 22 20 20 20 20 22 AA C4 28 49 28 4D |";.(" "..(I(M|
00001AC0: 2C 50 29 29 2C 34 29 00 DF 22 BC 1B 82 50 3A 8D |,P)),4).."...P:.|
00001AD0: 36 33 38 30 3A 99 55 55 24 3A 8D 36 33 38 30 00 |6380:.UU$:.6380.|
00001AE0: 12 23 C6 1B 99 22 54 4F 54 41 4C 20 49 4E 43 4F |.#..."TOTAL INCO|
00001AF0: 4D 45 20 20 20 20 22 3B C9 28 22 20 20 20 20 22 |ME ";.(" "|
00001B00: AA C4 28 49 54 28 4D 29 29 2C 36 29 3A 8D 36 33 |..(IT(M)),6):.63|
00001B10: 38 30 00 3D 23 D0 1B 99 55 55 24 3A 99 3A 8D 36 |80.=#...UU$:.:.6|
00001B20: 33 38 30 3A 99 22 45 58 50 45 4E 53 45 53 3A 2D |380:."EXPENSES:-|
00001B30: 20 20 20 20 20 20 20 20 20 20 20 5C 22 00 53 23 | \".S#|
00001B40: DA 1B 8D 36 33 38 30 3A 99 55 55 24 3A 81 50 B2 |...6380:.UU$:.P.|
00001B50: 31 A4 45 00 6F 23 E4 1B 8B 45 28 4D 2C 50 29 B2 |1.E.o#...E(M,P).|
00001B60: 30 B0 45 24 28 50 29 B2 22 22 A7 37 31 36 30 00 |0.E$(P)."".7160.|
00001B70: 9F 23 EE 1B 8D 36 33 38 30 3A 99 45 24 28 50 29 |.#...6380:.E$(P)|
00001B80: 3B 22 20 20 20 20 20 20 22 3B C9 28 22 20 20 20 |;" ";.(" |
00001B90: 20 22 AA C4 28 45 28 4D 2C 50 29 29 2C 34 29 00 | "..(E(M,P)),4).|
00001BA0: A6 23 F8 1B 82 50 00 BB 23 02 1C 8D 36 33 38 30 |.#...P..#...6380|
00001BB0: 3A 99 55 55 24 3A 8D 36 33 38 30 00 EE 23 0C 1C |:.UU$:.6380..#..|
00001BC0: 99 22 54 4F 54 41 4C 20 45 58 50 45 4E 53 45 53 |."TOTAL EXPENSES|
00001BD0: 20 20 22 3B C9 28 22 20 20 20 20 22 AA C4 28 45 | ";.(" "..(E|
00001BE0: 54 28 4D 29 29 2C 36 29 3A 8D 36 33 38 30 00 0A |T(M)),6):.6380..|
00001BF0: 24 16 1C 99 55 55 24 3A 99 3A 8D 36 33 38 30 3A |$...UU$:.:.6380:|
00001C00: 99 55 55 24 3A 8D 36 33 38 30 00 37 24 20 1C 99 |.UU$:.6380.7$ ..|
00001C10: 22 42 41 4C 41 4E 43 45 20 20 20 20 20 20 20 20 |"BALANCE |
00001C20: 20 22 3B C9 28 22 20 20 20 20 22 AA C4 28 4D 54 | ";.(" "..(MT|
00001C30: 28 4D 29 29 2C 36 29 00 59 24 2A 1C 8D 36 33 38 |(M)),6).Y$*..638|
00001C40: 30 3A 99 55 55 24 3A 99 3A 8D 36 33 38 30 3A 99 |0:.UU$:.:.6380:.|
00001C50: 55 55 24 3A 8D 36 33 38 30 00 91 24 34 1C 99 22 |UU$:.6380..$4.."|
00001C60: 41 43 43 55 4D 55 4C 41 54 49 4F 4E 20 20 20 20 |ACCUMULATION |
00001C70: 22 3B C9 28 22 20 20 20 20 22 AA C4 28 52 54 28 |";.(" "..(RT(|
00001C80: 4D 29 29 2C 36 29 3A 8D 36 33 38 30 3A 99 55 55 |M)),6):.6380:.UU|
00001C90: 24 00 AC 24 3E 1C 98 34 2C C7 28 31 35 29 3A 98 |$..$>..4,.(15):.|
00001CA0: 34 3A A0 34 2C 34 3A 89 34 30 30 30 00 D0 24 40 |4:.4,4:.4000..$@|
00001CB0: 1F 8F 20 44 41 54 41 20 43 48 45 43 4B 20 41 4E |.. DATA CHECK AN|
00001CC0: 44 20 43 48 41 4E 47 45 20 52 4F 55 54 49 4E 45 |D CHANGE ROUTINE|
00001CD0: 00 F2 24 4A 1F 46 44 B2 30 3A 4D 44 24 B2 22 45 |..$J.FD.0:MD$."E|
00001CE0: 22 3A 8B 42 42 24 B2 22 49 22 A7 4D 44 24 B2 22 |":.BB$."I".MD$."|
00001CF0: 49 22 00 21 25 54 1F 43 41 24 B2 C7 28 35 29 AA |I".!%T.CA$..(5).|
00001D00: C7 28 31 38 29 AA C7 28 31 33 30 29 AA C7 28 31 |.(18)..(130)..(1|
00001D10: 35 37 29 AA C7 28 31 35 37 29 AA C7 28 31 35 37 |57)..(157)..(157|
00001D20: 29 00 49 25 5E 1F 43 41 24 B2 43 41 24 AA 22 43 |).I%^.CA$.CA$."C|
00001D30: 41 4C 43 55 4C 41 54 49 4E 47 22 AA C7 28 31 33 |ALCULATING"..(13|
00001D40: 32 29 AA C7 28 31 34 36 29 00 6A 25 68 1F 52 24 |2)..(146).j%h.R$|
00001D50: B2 22 22 3A 81 50 B2 31 A4 32 34 3A 52 24 B2 52 |."":.P.1.24:R$.R|
00001D60: 24 AA C7 28 32 39 29 3A 82 50 00 8F 25 72 1F 43 |$..(29):.P..%r.C|
00001D70: 4F B2 53 4D 3A 4B 4B B2 31 3A 52 4F B2 31 3A 8B |O.SM:KK.1:RO.1:.|
00001D80: 53 4D B2 30 A7 53 4D B2 31 3A 43 4F B2 53 4D 00 |SM.0.SM.1:CO.SM.|
00001D90: BE 25 7C 1F 43 24 B2 C7 28 31 35 38 29 AA C7 28 |.%|.C$..(158)..(|
00001DA0: 31 33 30 29 AA C7 28 31 37 35 29 AA C7 28 31 33 |130)..(175)..(13|
00001DB0: 32 29 AA C7 28 35 29 AA C7 28 31 35 37 29 00 CE |2)..(5)..(157)..|
00001DC0: 25 86 1F 8B 46 44 B2 30 A7 89 38 34 34 30 00 EB |%...FD.0..8440..|
00001DD0: 25 90 1F 48 48 24 B2 22 22 3A A1 48 48 24 3A 8B |%..HH$."":.HH$:.|
00001DE0: 48 48 24 B2 22 22 A7 38 30 38 30 00 14 26 95 1F |HH$."".8080..&..|
00001DF0: 8B 48 48 24 B2 C7 28 31 34 35 29 A7 52 4F B2 52 |.HH$..(145).RO.R|
00001E00: 4F AB 31 3A 8B 52 4F B3 31 A7 52 4F B2 31 3A 89 |O.1:.RO.1.RO.1:.|
00001E10: 38 33 35 30 00 29 26 9A 1F 8B 48 48 24 B2 C7 28 |8350.)&...HH$..(|
00001E20: 31 34 35 29 A7 38 33 35 30 00 53 26 A4 1F 8B 48 |145).8350.S&...H|
00001E30: 48 24 B2 C7 28 31 37 29 AF 42 42 24 B2 22 45 22 |H$..(17).BB$."E"|
00001E40: AF 52 4F B3 45 A7 52 4F B2 52 4F AA 31 3A 89 38 |.RO.E.RO.RO.1:.8|
00001E50: 33 35 30 00 7D 26 AE 1F 8B 48 48 24 B2 C7 28 31 |350.}&...HH$..(1|
00001E60: 37 29 AF 42 42 24 B2 22 49 22 AF 52 4F B3 49 A7 |7).BB$."I".RO.I.|
00001E70: 52 4F B2 52 4F AA 31 3A 89 38 33 35 30 00 A6 26 |RO.RO.1:.8350..&|
00001E80: B8 1F 8B 48 48 24 B2 C7 28 32 39 29 A7 43 4F B2 |...HH$..(29).CO.|
00001E90: 43 4F AA 31 3A 8B 43 4F B1 31 32 A7 43 4F B2 31 |CO.1:.CO.12.CO.1|
00001EA0: 3A 89 38 33 35 30 00 D0 26 C2 1F 8B 48 48 24 B2 |:.8350..&...HH$.|
00001EB0: C7 28 31 35 37 29 A7 43 4F B2 43 4F AB 31 3A 8B |.(157).CO.CO.1:.|
00001EC0: 43 4F B3 31 A7 43 4F B2 31 32 3A 89 38 33 35 30 |CO.1.CO.12:.8350|
00001ED0: 00 EF 26 CC 1F 8B 48 48 24 B2 C7 28 32 39 29 B0 |..&...HH$..(29).|
00001EE0: 48 48 24 B2 C7 28 31 35 37 29 A7 38 33 35 30 00 |HH$..(157).8350.|
00001EF0: 09 27 D6 1F 8B 48 48 24 B2 22 45 22 AF 42 42 24 |.'...HH$."E".BB$|
00001F00: B2 22 45 22 A7 38 30 38 30 00 2F 27 E0 1F 8B 48 |."E".8080./'...H|
00001F10: 48 24 B2 22 45 22 A7 42 42 24 B2 22 45 22 3A 52 |H$."E".BB$."E":R|
00001F20: 4F B2 31 3A 43 4F B2 53 4D 3A 89 38 33 35 30 00 |O.1:CO.SM:.8350.|
00001F30: 49 27 EA 1F 8B 48 48 24 B2 22 49 22 AF 42 42 24 |I'...HH$."I".BB$|
00001F40: B2 22 49 22 A7 38 30 38 30 00 6F 27 F4 1F 8B 48 |."I".8080.o'...H|
00001F50: 48 24 B2 22 49 22 A7 42 42 24 B2 22 49 22 3A 52 |H$."I".BB$."I":R|
00001F60: 4F B2 31 3A 43 4F B2 53 4D 3A 89 38 33 35 30 00 |O.1:CO.SM:.8350.|
00001F70: 92 27 FE 1F 8B 48 48 24 B2 22 43 22 A7 4E B2 30 |.'...HH$."C".N.0|
00001F80: 3A 99 43 24 3B 3A 42 4E 24 B2 22 22 3A 89 38 32 |:.C$;:BN$."":.82|
00001F90: 34 30 00 A8 27 08 20 8B 48 48 24 B2 22 4D 22 AF |40..'. .HH$."M".|
00001FA0: 4E B2 31 A7 34 30 30 30 00 C5 27 12 20 8B 48 48 |N.1.4000..'. .HH|
00001FB0: 24 B2 22 59 22 AF 4E B2 31 A7 53 4D B2 52 52 3A |$."Y".N.1.SM.RR:|
00001FC0: 89 33 30 30 30 00 E3 27 1C 20 8B 48 48 24 B2 22 |.3000..'. .HH$."|
00001FD0: 4D 22 A7 99 43 41 24 3A 53 4D B2 52 52 3A 89 32 |M"..CA$:SM.RR:.2|
00001FE0: 30 30 30 00 ED 27 26 20 89 38 30 38 30 00 0A 28 |000..'& .8080..(|
00001FF0: 30 20 4E 55 24 B2 22 22 3A A1 4E 55 24 3A 8B 4E |0 NU$."":.NU$:.N|
00002000: 55 24 B2 22 22 A7 38 32 34 30 00 1E 28 33 20 8B |U$."".8240..(3 .|
00002010: 4E 55 24 B2 C7 28 31 33 29 A7 38 32 38 30 00 30 |NU$..(13).8280.0|
00002020: 28 35 20 8B 4E 55 24 B2 22 41 22 A7 38 33 31 30 |(5 .NU$."A".8310|
00002030: 00 53 28 3A 20 8B C6 28 4E 55 24 29 AB 34 38 B3 |.S(: ..(NU$).48.|
00002040: 30 B0 C6 28 4E 55 24 29 AB 34 38 B1 31 30 A7 38 |0..(NU$).48.10.8|
00002050: 32 34 30 00 72 28 44 20 42 4E 24 B2 42 4E 24 AA |240.r(D BN$.BN$.|
00002060: 4E 55 24 3A 8B C3 28 42 4E 24 29 B1 34 A7 38 32 |NU$:..(BN$).4.82|
00002070: 38 30 00 85 28 4E 20 99 4E 55 24 3B 43 24 3B 3A |80..(N .NU$;C$;:|
00002080: 89 38 32 34 30 00 98 28 58 20 4E 55 B2 C5 28 C8 |.8240..(X NU..(.|
00002090: 28 42 4E 24 2C 34 29 29 00 BC 28 62 20 8B 42 42 |(BN$,4))..(b .BB|
000020A0: 24 B2 22 45 22 A7 45 28 43 4F 2C 52 4F 29 B2 4E |$."E".E(CO,RO).N|
000020B0: 55 3A 4E 55 B2 30 3A 89 38 33 35 30 00 E0 28 6C |U:NU.0:.8350..(l|
000020C0: 20 8B 42 42 24 B2 22 49 22 A7 49 28 43 4F 2C 52 | .BB$."I".I(CO,R|
000020D0: 4F 29 B2 4E 55 3A 4E 55 B2 30 3A 89 38 33 35 30 |O).NU:NU.0:.8350|
000020E0: 00 F3 28 76 20 4E 55 B2 C5 28 C8 28 42 4E 24 2C |..(v NU..(.(BN$,|
000020F0: 34 29 29 00 FF 28 80 20 81 50 B2 31 A4 31 32 00 |4))..(. .P.1.12.|
00002100: 17 29 8A 20 8B 42 42 24 B2 22 45 22 A7 45 28 50 |.). .BB$."E".E(P|
00002110: 2C 52 4F 29 B2 4E 55 00 2F 29 8F 20 8B 42 42 24 |,RO).NU./). .BB$|
00002120: B2 22 49 22 A7 49 28 50 2C 52 4F 29 B2 4E 55 00 |."I".I(P,RO).NU.|
00002130: 3B 29 94 20 82 50 3A 4E 55 B2 30 00 61 29 9E 20 |;). .P:NU.0.a). |
00002140: 99 C7 28 31 39 29 3B C7 28 35 29 3B C7 28 31 34 |..(19);.(5);.(14|
00002150: 36 29 3A 99 3A 99 3A 99 C8 28 52 24 2C 31 33 29 |6):.:.:..(R$,13)|
00002160: 3B 00 87 29 A8 20 8B 42 42 24 B2 22 45 22 A7 99 |;..). .BB$."E"..|
00002170: 22 45 20 58 20 50 20 45 20 4E 20 53 20 45 20 53 |"E X P E N S E S|
00002180: 22 3A 89 38 33 37 30 00 9F 29 AD 20 99 22 20 20 |":.8370..). ." |
00002190: 49 20 4E 20 43 20 4F 20 4D 20 45 20 20 20 22 00 |I N C O M E ".|
000021A0: CE 29 B2 20 99 3A 99 3A 99 3A 99 3A 99 52 24 3B |.). .:.:.:.:.R$;|
000021B0: C7 28 31 38 29 3B C7 28 31 35 38 29 3B 22 20 20 |.(18);.(158);" |
000021C0: 22 3B 4D 4F 24 28 43 4F 29 3B 22 20 20 22 00 FC |";MO$(CO);" "..|
000021D0: 29 BC 20 99 3A 99 3A 99 C8 28 52 24 2C 31 34 29 |). .:.:..(R$,14)|
000021E0: 3B C7 28 31 35 33 29 3B CA 28 28 C4 28 52 4F 29 |;.(153);.((.(RO)|
000021F0: AA 22 20 20 22 29 2C 32 2C 32 29 3B 00 1F 2A C6 |." "),2,2);..*.|
00002200: 20 8B 42 42 24 B2 22 45 22 A7 99 C8 28 52 24 2C | .BB$."E"...(R$,|
00002210: 32 29 3B 45 24 28 52 4F 29 3A 89 38 34 30 30 00 |2);E$(RO):.8400.|
00002220: 33 2A CB 20 99 C8 28 52 24 2C 32 29 3B 49 24 28 |3*. ..(R$,2);I$(|
00002230: 52 4F 29 00 4F 2A D0 20 99 3A 99 3A 99 3A 99 C8 |RO).O*. .:.:.:..|
00002240: 28 52 24 2C 31 32 29 3B C7 28 31 35 33 29 3B 00 |(R$,12);.(153);.|
00002250: 81 2A DA 20 8B 42 42 24 B2 22 45 22 A7 99 CA 28 |.*. .BB$."E"...(|
00002260: 28 C4 28 45 28 43 4F 2C 52 4F 29 29 AA 22 20 20 |(.(E(CO,RO))." |
00002270: 20 20 20 22 29 2C 32 2C 35 29 3B C7 28 32 39 29 | "),2,5);.(29)|
00002280: 3B 00 B3 2A E4 20 8B 42 42 24 B2 22 49 22 A7 99 |;..*. .BB$."I"..|
00002290: CA 28 28 C4 28 49 28 43 4F 2C 52 4F 29 29 AA 22 |.((.(I(CO,RO))."|
000022A0: 20 20 20 20 20 22 29 2C 32 2C 35 29 3B C7 28 32 | "),2,5);.(2|
000022B0: 39 29 3B 00 E2 2A EE 20 99 C8 28 52 24 2C 35 29 |9);..*. ..(R$,5)|
000022C0: 3B 22 20 20 20 20 20 22 3B 3A 81 50 B2 31 A4 35 |;" ";:.P.1.5|
000022D0: 3A 99 C7 28 31 35 37 29 3B 3A 82 50 3A 89 38 30 |:..(157);:.P:.80|
000022E0: 38 30 00 08 2B F8 20 46 44 B2 31 3A 99 C7 28 31 |80..+. FD.1:..(1|
000022F0: 34 37 29 3A 99 C7 28 31 35 35 29 3B 53 50 24 3B |47):..(155);SP$;|
00002300: C7 28 31 38 29 3B 48 24 00 46 2B 02 21 45 44 24 |.(18);H$.F+.!ED$|
00002310: B2 53 50 24 AA C7 28 31 38 29 AA C7 28 31 32 35 |.SP$..(18)..(125|
00002320: 29 AA C7 28 31 34 36 29 AA 22 20 20 20 20 20 20 |)..(146)." |
00002330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00002340: AA C7 28 31 38 29 00 68 2B 0C 21 45 44 24 B2 45 |..(18).h+.!ED$.E|
00002350: 44 24 AA C7 28 31 32 35 29 3A 99 45 44 24 3A 99 |D$..(125):.ED$:.|
00002360: 45 44 24 3A 99 45 44 24 00 7C 2B 16 21 99 53 50 |ED$:.ED$.|+.!.SP|
00002370: 24 3B C7 28 31 38 29 3B 42 24 3A 99 00 8E 2B 20 |$;.(18);B$:...+ |
00002380: 21 99 53 50 24 3B C7 28 31 38 29 3B 48 24 00 BE |!.SP$;.(18);H$..|
00002390: 2B 2A 21 99 22 20 20 22 3B C7 28 31 35 38 29 3B |+*!." ";.(158);|
000023A0: 22 3C 4C 45 46 54 3E 20 22 3B C7 28 31 35 35 29 |"<LEFT> ";.(155)|
000023B0: 3B C7 28 31 38 29 3B C7 28 31 32 35 29 3B 00 FA |;.(18);.(125);..|
000023C0: 2B 34 21 99 22 20 20 20 4D 20 4F 20 4E 20 54 20 |+4!." M O N T |
000023D0: 48 20 20 22 3B C7 28 31 34 36 29 3B 22 20 20 20 |H ";.(146);" |
000023E0: 20 20 20 20 22 3B C7 28 31 38 29 3B C7 28 31 32 | ";.(18);.(12|
000023F0: 35 29 3B C7 28 31 34 36 29 3B 00 12 2C 3E 21 99 |5);.(146);..,>!.|
00002400: C7 28 31 35 38 29 3B 22 20 3C 52 49 47 48 54 3E |.(158);" <RIGHT>|
00002410: 22 3B 00 2D 2C 48 21 99 C7 28 31 35 35 29 3B 53 |";.-,H!..(155);S|
00002420: 50 24 3B C7 28 31 38 29 3B 42 24 3A 99 00 54 2C |P$;.(18);B$:..T,|
00002430: 52 21 99 53 50 24 3B C7 28 31 38 29 3B C8 28 48 |R!.SP$;.(18);.(H|
00002440: 24 2C 37 29 3B C7 28 31 37 38 29 3B C9 28 48 24 |$,7);.(178);.(H$|
00002450: 2C 31 35 29 00 8B 2C 5C 21 99 22 20 20 20 20 22 |,15)..,\!." "|
00002460: 3B C7 28 31 35 33 29 3B 22 3C 55 50 3E 20 22 3B |;.(153);"<UP> ";|
00002470: C7 28 31 35 35 29 3B C7 28 31 38 29 3B C7 28 31 |.(155);.(18);.(1|
00002480: 32 35 29 3B 22 52 4F 57 20 22 3B 00 C8 2C 66 21 |25);"ROW ";..,f!|
00002490: 99 C7 28 31 34 36 29 3B 22 20 20 22 3B C7 28 31 |..(146);" ";.(1|
000024A0: 38 29 3B C7 28 31 32 35 29 3B C7 28 31 34 36 29 |8);.(125);.(146)|
000024B0: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
000024C0: 22 3B C7 28 31 38 29 3B 00 F3 2C 70 21 99 C7 28 |";.(18);..,p!..(|
000024D0: 31 32 35 29 3B C7 28 31 34 36 29 3B C7 28 31 35 |125);.(146);.(15|
000024E0: 33 29 3B 22 20 3C 44 4F 57 4E 3E 22 3B C7 28 31 |3);" <DOWN>";.(1|
000024F0: 35 35 29 00 1C 2D 7A 21 99 53 50 24 3B C7 28 31 |55)..-z!.SP$;.(1|
00002500: 38 29 3B C8 28 42 24 2C 37 29 3B C7 28 31 37 37 |8);.(B$,7);.(177|
00002510: 29 3B C9 28 42 24 2C 31 35 29 3A 99 00 3E 2D 84 |);.(B$,15):..>-.|
00002520: 21 99 53 50 24 3B C8 28 48 24 2C 31 30 29 3B C7 |!.SP$;.(H$,10);.|
00002530: 28 31 37 38 29 3B C9 28 48 24 2C 31 32 29 00 69 |(178);.(H$,12).i|
00002540: 2D 8E 21 99 53 50 24 3B C7 28 31 32 35 29 3B 53 |-.!.SP$;.(125);S|
00002550: 50 24 3B C7 28 31 32 35 29 3B 53 50 24 3B 22 20 |P$;.(125);SP$;" |
00002560: 20 22 3B C7 28 31 32 35 29 00 8D 2D 98 21 99 53 | ";.(125)..-.!.S|
00002570: 50 24 3B C8 28 42 24 2C 31 30 29 3B C7 28 31 37 |P$;.(B$,10);.(17|
00002580: 37 29 3B C9 28 42 24 2C 31 32 29 3A 99 00 B6 2D |7);.(B$,12):...-|
00002590: A2 21 99 53 50 24 3B C7 28 31 38 29 3B 22 20 20 |.!.SP$;.(18);" |
000025A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025B0: 20 20 20 20 20 22 00 F3 2D AC 21 99 53 50 24 3B | "..-.!.SP$;|
000025C0: C7 28 31 38 29 3B 22 20 22 3B C7 28 31 35 38 29 |.(18);" ";.(158)|
000025D0: 3B 22 31 20 54 4F 20 43 48 41 4E 47 45 20 50 52 |;"1 TO CHANGE PR|
000025E0: 45 53 53 20 5B 43 5D 22 3B C7 28 31 35 35 29 3B |ESS [C]";.(155);|
000025F0: 22 20 22 00 30 2E B6 21 99 53 50 24 3B C7 28 31 |" ".0..!.SP$;.(1|
00002600: 38 29 3B 22 20 22 3B C7 28 31 35 38 29 3B 22 32 |8);" ";.(158);"2|
00002610: 20 55 53 45 20 52 45 54 55 52 4E 20 54 4F 20 45 | USE RETURN TO E|
00002620: 4E 54 45 52 22 3B C7 28 31 35 35 29 3B 22 20 22 |NTER";.(155);" "|
00002630: 00 6D 2E C0 21 99 53 50 24 3B C7 28 31 38 29 3B |.m..!.SP$;.(18);|
00002640: 22 20 22 3B C7 28 31 35 38 29 3B 22 33 20 43 48 |" ";.(158);"3 CH|
00002650: 41 4E 47 45 20 41 4C 4C 20 59 45 41 52 20 5B 41 |ANGE ALL YEAR [A|
00002660: 5D 22 3B C7 28 31 35 35 29 3B 22 20 22 00 AA 2E |]";.(155);" "...|
00002670: CA 21 99 53 50 24 3B C7 28 31 38 29 3B 22 20 22 |.!.SP$;.(18);" "|
00002680: 3B C7 28 31 35 38 29 3B 22 34 20 54 4F 20 51 55 |;.(158);"4 TO QU|
00002690: 49 54 20 50 52 45 53 53 20 5B 4D 5D 20 20 22 3B |IT PRESS [M] ";|
000026A0: C7 28 31 35 35 29 3B 22 20 22 00 DA 2E D4 21 99 |.(155);" "....!.|
000026B0: 53 50 24 3B C7 28 31 38 29 3B 22 20 20 20 20 20 |SP$;.(18);" |
000026C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000026D0: 20 20 22 3B 3A 89 38 33 35 30 00 FA 2E 28 23 8F | ";:.8350...(#.|
000026E0: 20 4D 4F 4E 54 48 4C 59 20 50 52 45 56 49 45 57 | MONTHLY PREVIEW|
000026F0: 20 4F 4E 20 53 43 52 45 45 4E 00 2D 2F 32 23 53 | ON SCREEN.-/2#S|
00002700: 4D B2 52 52 3A 99 C7 28 31 34 37 29 3B C7 28 31 |M.RR:..(147);.(1|
00002710: 35 33 29 3B 22 50 52 45 53 53 20 55 50 2C 22 3B |53);"PRESS UP,";|
00002720: C7 28 31 38 29 3B C7 28 31 35 35 29 3B 00 63 2F |.(18);.(155);.c/|
00002730: 3C 23 99 22 49 4E 43 4F 4D 45 20 20 20 20 20 22 |<#."INCOME "|
00002740: C7 28 35 29 3B 4D 4F 24 28 53 4D 29 3B C7 28 31 |.(5);MO$(SM);.(1|
00002750: 35 35 29 3B 22 20 20 20 20 20 20 20 20 22 3A 53 |55);" ":S|
00002760: 43 B2 31 00 6E 2F 46 23 81 50 B2 31 A4 49 00 82 |C.1.n/F#.P.1.I..|
00002770: 2F 50 23 8B 49 28 53 4D 2C 50 29 B2 30 A7 39 30 |/P#.I(SM,P).0.90|
00002780: 38 30 00 AA 2F 5A 23 99 53 50 24 3B C7 28 31 38 |80../Z#.SP$;.(18|
00002790: 29 3B C7 28 31 35 35 29 3B CA 28 C4 28 50 29 AA |);.(155);.(.(P).|
000027A0: 22 20 20 22 2C 32 2C 33 29 3B 00 CC 2F 64 23 99 |" ",2,3);../d#.|
000027B0: C7 28 31 38 29 3B 49 24 28 50 29 3B 22 20 22 3B |.(18);I$(P);" ";|
000027C0: C7 28 31 34 36 29 3B C7 28 35 29 3B 00 02 30 6E |.(146);.(5);..0n|
000027D0: 23 99 C9 28 22 20 20 20 20 20 22 AA C4 28 49 28 |#..(" "..(I(|
000027E0: 53 4D 2C 50 29 29 2C 35 29 3B C7 28 31 35 35 29 |SM,P)),5);.(155)|
000027F0: 3B C7 28 31 38 29 3B 22 20 22 3A 53 43 B2 53 43 |;.(18);" ":SC.SC|
00002800: AA 31 00 09 30 78 23 82 50 00 47 30 82 23 99 C7 |.1..0x#.P.G0.#..|
00002810: 28 31 35 33 29 3B 22 44 4F 57 4E 2C 4D 2C 50 2C |(153);"DOWN,M,P,|
00002820: 22 3B C7 28 31 35 35 29 3B C7 28 31 38 29 3B 22 |";.(155);.(18);"|
00002830: 54 4F 54 41 4C 20 49 4E 43 4F 4D 45 20 20 20 3D |TOTAL INCOME =|
00002840: 22 3B C7 28 35 29 3B 00 74 30 8C 23 99 C7 28 31 |";.(5);.t0.#..(1|
00002850: 38 29 3B C9 28 22 20 20 20 20 20 22 AA C4 28 49 |8);.(" "..(I|
00002860: 54 28 53 4D 29 29 2C 35 29 3B C7 28 31 35 35 29 |T(SM)),5);.(155)|
00002870: 3B 22 20 22 00 B2 30 96 23 99 C7 28 31 35 33 29 |;" "..0.#..(153)|
00002880: 3B 22 59 2C 45 20 4F 52 20 49 2E 22 3B C7 28 31 |;"Y,E OR I.";.(1|
00002890: 35 38 29 3B C7 28 31 38 29 3B 22 45 58 50 45 4E |58);.(18);"EXPEN|
000028A0: 53 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |SES |
000028B0: 20 22 00 C5 30 A0 23 53 43 B2 53 43 AA 32 3A 81 | "..0.#SC.SC.2:.|
000028C0: 50 B2 31 A4 45 00 D9 30 AA 23 8B 45 28 53 4D 2C |P.1.E..0.#.E(SM,|
000028D0: 50 29 B2 30 A7 39 31 37 30 00 01 31 B4 23 99 53 |P).0.9170..1.#.S|
000028E0: 50 24 3B C7 28 31 35 38 29 3B C7 28 31 38 29 3B |P$;.(158);.(18);|
000028F0: CA 28 C4 28 50 29 AA 22 20 20 22 2C 32 2C 33 29 |.(.(P)." ",2,3)|
00002900: 3B 00 1D 31 BE 23 99 45 24 28 50 29 3B 22 20 22 |;..1.#.E$(P);" "|
00002910: 3B C7 28 31 34 36 29 3B C7 28 35 29 3B 00 53 31 |;.(146);.(5);.S1|
00002920: C8 23 99 C9 28 22 20 20 20 20 20 22 AA C4 28 45 |.#..(" "..(E|
00002930: 28 53 4D 2C 50 29 29 2C 35 29 3B C7 28 31 35 38 |(SM,P)),5);.(158|
00002940: 29 3B C7 28 31 38 29 3B 22 20 22 3A 53 43 B2 53 |);.(18);" ":SC.S|
00002950: 43 AA 31 00 78 31 CD 23 8B 53 43 B2 32 34 A7 99 |C.1.x1.#.SC.24..|
00002960: C7 28 31 33 30 29 3B 22 41 4E 59 20 4B 45 59 2E |.(130);"ANY KEY.|
00002970: 22 3B C7 28 31 34 35 29 00 9C 31 CF 23 8B 53 43 |";.(145)..1.#.SC|
00002980: B2 32 34 A7 53 43 24 B2 22 22 3A A1 53 43 24 3A |.24.SC$."":.SC$:|
00002990: 8B 53 43 24 B2 22 22 A7 39 31 36 37 00 A3 31 D2 |.SC$."".9167..1.|
000029A0: 23 82 50 00 D2 31 DC 23 99 53 50 24 3B C7 28 31 |#.P..1.#.SP$;.(1|
000029B0: 35 38 29 3B C7 28 31 38 29 3B 22 54 4F 54 41 4C |58);.(18);"TOTAL|
000029C0: 20 45 58 50 45 4E 53 45 53 20 3D 22 3B C7 28 35 | EXPENSES =";.(5|
000029D0: 29 3B 00 F9 31 E6 23 99 C9 28 22 20 20 20 20 20 |);..1.#..(" |
000029E0: 22 AA C4 28 45 54 28 53 4D 29 29 2C 35 29 3B C7 |"..(ET(SM)),5);.|
000029F0: 28 31 35 38 29 3B 22 20 22 00 23 32 F0 23 99 53 |(158);" ".#2.#.S|
00002A00: 50 24 3B C7 28 31 38 29 3B C7 28 31 35 39 29 3B |P$;.(18);.(159);|
00002A10: 22 42 41 4C 41 4E 43 45 20 20 20 20 20 20 20 20 |"BALANCE |
00002A20: 3D 22 3B 00 51 32 FA 23 99 C7 28 31 38 29 3B C9 |=";.Q2.#..(18);.|
00002A30: 28 22 20 20 20 20 20 22 AA C4 28 4D 54 28 53 4D |(" "..(MT(SM|
00002A40: 29 29 2C 35 29 3B C7 28 31 35 39 29 3B 22 20 22 |)),5);.(159);" "|
00002A50: 3B 00 63 32 04 24 99 C7 28 31 35 35 29 3B C7 28 |;.c2.$..(155);.(|
00002A60: 31 39 29 00 6D 32 0E 24 41 24 B2 22 22 00 87 32 |19).m2.$A$.""..2|
00002A70: 18 24 41 24 B2 22 22 3A A1 41 24 3A 8B 41 24 B2 |.$A$."":.A$:.A$.|
00002A80: 22 22 A7 39 32 34 30 00 A1 32 22 24 8B 41 24 B2 |"".9240..2"$.A$.|
00002A90: 22 49 22 A7 42 42 24 B2 22 49 22 3A 89 38 30 30 |"I".BB$."I":.800|
00002AA0: 30 00 BB 32 2C 24 8B 41 24 B2 22 45 22 A7 42 42 |0..2,$.A$."E".BB|
00002AB0: 24 B2 22 45 22 3A 89 38 30 30 30 00 D3 32 36 24 |$."E":.8000..26$|
00002AC0: 8B 41 24 B2 22 4D 22 A7 53 4D B2 52 52 3A 89 34 |.A$."M".SM.RR:.4|
00002AD0: 30 30 30 00 EB 32 40 24 8B 41 24 B2 22 59 22 A7 |000..2@$.A$."Y".|
00002AE0: 53 4D B2 52 52 3A 89 33 30 30 30 00 03 33 4A 24 |SM.RR:.3000..3J$|
00002AF0: 8B 41 24 B2 22 50 22 A7 53 4D B2 52 52 3A 89 35 |.A$."P".SM.RR:.5|
00002B00: 30 30 30 00 30 33 54 24 99 C7 28 31 34 37 29 3B |000.03T$..(147);|
00002B10: C7 28 31 35 33 29 3B 22 50 52 45 53 53 20 55 50 |.(153);"PRESS UP|
00002B20: 2C 22 3B C7 28 31 35 35 29 3B C7 28 31 38 29 3B |,";.(155);.(18);|
00002B30: 00 48 33 5E 24 8B 41 24 B2 C7 28 31 34 35 29 A7 |.H3^$.A$..(145).|
00002B40: 53 4D B2 53 4D AA 31 30 00 64 33 68 24 53 4D B2 |SM.SM.10.d3h$SM.|
00002B50: 53 4D AA 31 3A 8B 53 4D B1 31 32 A7 53 4D B2 53 |SM.1:.SM.12.SM.S|
00002B60: 4D AB 31 32 00 6E 33 72 24 89 39 30 32 30 00 97 |M.12.n3r$.9020..|
00002B70: 33 10 27 8F 20 45 58 50 45 4E 53 45 20 41 4E 44 |3.'. EXPENSE AND|
00002B80: 20 49 4E 43 4F 4D 45 20 41 4E 4E 55 41 4C 20 41 | INCOME ANNUAL A|
00002B90: 4E 41 4C 59 53 49 53 00 AF 33 1A 27 53 4D B2 52 |NALYSIS..3.'SM.R|
00002BA0: 52 3A 99 C7 28 31 34 37 29 3A 99 3A 99 3A 99 00 |R:..(147):.:.:..|
00002BB0: DE 33 24 27 99 53 50 24 3B C7 28 31 38 29 3B C7 |.3$'.SP$;.(18);.|
00002BC0: 28 31 35 39 29 3B 22 20 41 4E 41 4C 59 53 49 53 |(159);" ANALYSIS|
00002BD0: 20 4F 46 20 45 58 50 45 4E 53 45 53 20 22 00 E4 | OF EXPENSES "..|
00002BE0: 33 2E 27 99 00 22 34 38 27 99 53 50 24 3B C7 28 |3.'.."48'.SP$;.(|
00002BF0: 31 38 29 3B 22 20 4F 52 20 49 4E 43 4F 4D 45 3F |18);" OR INCOME?|
00002C00: 20 22 3B C7 28 31 33 30 29 3B 22 20 28 45 20 4F | ";.(130);" (E O|
00002C10: 52 20 49 29 20 22 3B C7 28 35 29 3B C7 28 31 33 |R I) ";.(5);.(13|
00002C20: 32 29 00 3D 34 42 27 44 24 B2 22 22 3A A1 44 24 |2).=4B'D$."":.D$|
00002C30: 3A 8B 44 24 B2 22 22 A7 31 30 30 35 30 00 4F 34 |:.D$."".10050.O4|
00002C40: 4C 27 8B 44 24 B2 22 49 22 A7 31 30 30 39 30 00 |L'.D$."I".10090.|
00002C50: 61 34 56 27 8B 44 24 B2 22 45 22 A7 31 30 31 30 |a4V'.D$."E".1010|
00002C60: 30 00 6B 34 60 27 89 34 30 30 30 00 9D 34 6A 27 |0.k4`'.4000..4j'|
00002C70: 99 3A 99 3A 99 53 50 24 3B 22 49 4E 43 4F 4D 45 |.:.:.SP$;"INCOME|
00002C80: 20 4E 55 4D 42 45 52 20 46 4F 52 20 41 4E 41 4C | NUMBER FOR ANAL|
00002C90: 59 53 49 53 2E 22 3A 89 31 30 31 31 30 00 C9 34 |YSIS.":.10110..4|
00002CA0: 74 27 99 3A 99 3A 99 53 50 24 3B 22 45 58 50 45 |t'.:.:.SP$;"EXPE|
00002CB0: 4E 53 45 20 4E 55 4D 42 45 52 20 46 4F 52 20 41 |NSE NUMBER FOR A|
00002CC0: 4E 41 4C 59 53 49 53 2E 22 00 EA 34 7E 27 46 B2 |NALYSIS."..4~'F.|
00002CD0: 31 3A 99 3A 85 22 20 20 20 20 20 20 20 20 20 22 |1:.:." "|
00002CE0: 3B 46 3A 99 C7 28 31 34 37 29 00 05 35 88 27 8B |;F:..(147)..5.'.|
00002CF0: 46 B1 45 B0 46 B3 31 A7 99 C7 28 31 39 29 3A 89 |F.E.F.1...(19):.|
00002D00: 31 30 30 36 30 00 23 35 92 27 8B 46 B1 49 AF 44 |10060.#5.'.F.I.D|
00002D10: 24 B2 22 49 22 A7 99 C7 28 31 39 29 3A 89 31 30 |$."I"...(19):.10|
00002D20: 30 36 30 00 45 35 9C 27 99 C7 28 31 39 29 3B 53 |060.E5.'..(19);S|
00002D30: 50 24 3B C7 28 35 29 3B 22 41 4E 41 4C 59 53 49 |P$;.(5);"ANALYSI|
00002D40: 53 20 4F 46 22 00 4B 35 A6 27 99 00 54 35 B0 27 |S OF".K5.'..T5.'|
00002D50: 58 58 B2 30 00 5E 35 BA 27 99 53 50 24 3B 00 92 |XX.0.^5.'.SP$;..|
00002D60: 35 C4 27 8B 44 24 B2 22 49 22 A7 99 C7 28 31 38 |5.'.D$."I"...(18|
00002D70: 29 3B 49 24 28 46 29 3B C7 28 31 34 36 29 3B C7 |);I$(F);.(146);.|
00002D80: 28 31 35 33 29 3B 46 3B C7 28 31 35 37 29 3B 22 |(153);F;.(157);"|
00002D90: 20 22 00 C6 35 CE 27 8B 44 24 B2 22 45 22 A7 99 | "..5.'.D$."E"..|
00002DA0: C7 28 31 38 29 3B 45 24 28 46 29 3B C7 28 31 34 |.(18);E$(F);.(14|
00002DB0: 36 29 3B C7 28 31 35 33 29 3B 46 3B C7 28 31 35 |6);.(153);F;.(15|
00002DC0: 37 29 3B 22 20 22 00 CC 35 D8 27 99 00 D8 35 E2 |7);" "..5.'...5.|
00002DD0: 27 81 50 B2 31 A4 31 32 00 0A 36 EC 27 99 53 50 |'.P.1.12..6.'.SP|
00002DE0: 24 3B C7 28 31 38 29 3B C7 28 31 35 39 29 3B 4D |$;.(18);.(159);M|
00002DF0: 4F 24 28 53 4D 29 3B C7 28 31 34 36 29 3B C7 28 |O$(SM);.(146);.(|
00002E00: 35 29 3B 22 20 20 20 20 22 3B 00 20 36 F6 27 8B |5);" ";. 6.'.|
00002E10: 44 24 B2 22 49 22 A7 44 B2 49 28 53 4D 2C 46 29 |D$."I".D.I(SM,F)|
00002E20: 00 36 36 00 28 8B 44 24 B2 22 45 22 A7 44 B2 45 |.66.(.D$."E".D.E|
00002E30: 28 53 4D 2C 46 29 00 42 36 0A 28 58 58 B2 58 58 |(SM,F).B6.(XX.XX|
00002E40: AA 44 00 59 36 14 28 99 C9 28 22 20 20 20 20 20 |.D.Y6.(..(" |
00002E50: 22 AA C4 28 44 29 2C 35 29 00 71 36 1E 28 53 4D |"..(D),5).q6.(SM|
00002E60: B2 53 4D AA 31 3A 8B 53 4D B2 31 33 A7 53 4D B2 |.SM.1:.SM.13.SM.|
00002E70: 31 00 78 36 28 28 82 50 00 92 36 32 28 99 3A 99 |1.x6((.P..62(.:.|
00002E80: 53 50 24 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |SP$;"===========|
00002E90: 3D 22 00 A6 36 3C 28 99 53 50 24 3B 22 54 4F 54 |="..6<(.SP$;"TOT|
00002EA0: 41 4C 20 20 22 3B 00 BE 36 46 28 99 C9 28 22 20 |AL ";..6F(..(" |
00002EB0: 20 20 20 20 22 AA C4 28 58 58 29 2C 35 29 00 D8 | "..(XX),5)..|
00002EC0: 36 50 28 99 53 50 24 3B 22 3D 3D 3D 3D 3D 3D 3D |6P(.SP$;"=======|
00002ED0: 3D 3D 3D 3D 3D 22 3A 99 00 03 37 5A 28 99 53 50 |=====":...7Z(.SP|
00002EE0: 24 3B C7 28 31 35 33 29 3B 22 43 55 52 53 4F 52 |$;.(153);"CURSOR|
00002EF0: 20 20 3C 55 50 3E 20 4F 52 20 3C 44 4F 57 4E 3E | <UP> OR <DOWN>|
00002F00: 22 3A 99 00 2B 37 64 28 99 53 50 24 3B C7 28 35 |":..+7d(.SP$;.(5|
00002F10: 29 3B 22 41 4E 41 4C 59 53 49 53 20 4F 52 20 4D |);"ANALYSIS OR M|
00002F20: 45 4E 55 3F 20 28 41 2F 4D 29 22 00 46 37 6E 28 |ENU? (A/M)".F7n(|
00002F30: 45 24 B2 22 22 3A A1 45 24 3A 8B 45 24 B2 22 22 |E$."":.E$:.E$.""|
00002F40: A7 31 30 33 35 30 00 66 37 78 28 8B 45 24 B2 C7 |.10350.f7x(.E$..|
00002F50: 28 31 34 35 29 AF 46 B1 31 A7 46 B2 46 AB 31 3A |(145).F.1.F.F.1:|
00002F60: 89 31 30 31 32 30 00 77 37 82 28 8B 45 24 B2 22 |.10120.w7.(.E$."|
00002F70: 4D 22 A7 34 30 30 30 00 89 37 8C 28 8B 45 24 B2 |M".4000..7.(.E$.|
00002F80: 22 41 22 A7 31 30 30 30 30 00 AF 37 96 28 8B 45 |"A".10000..7.(.E|
00002F90: 24 B2 C7 28 31 37 29 AF 44 24 B2 22 49 22 AF 46 |$..(17).D$."I".F|
00002FA0: B3 49 A7 46 B2 46 AA 31 3A 89 31 30 31 32 30 00 |.I.F.F.1:.10120.|
00002FB0: D5 37 A0 28 8B 45 24 B2 C7 28 31 37 29 AF 44 24 |.7.(.E$..(17).D$|
00002FC0: B2 22 45 22 AF 46 B3 45 A7 46 B2 46 AA 31 3A 89 |."E".F.E.F.F.1:.|
00002FD0: 31 30 31 32 30 00 E0 37 AA 28 89 31 30 33 35 30 |10120..7.(.10350|
00002FE0: 00 00 38 F8 2A 8F 20 53 41 56 45 20 46 49 4C 45 |..8.*. SAVE FILE|
00002FF0: 20 54 4F 20 44 49 53 4B 20 4F 52 20 54 41 50 45 | TO DISK OR TAPE|
00003000: 00 1A 38 02 2B 99 C7 28 31 34 37 29 3A 8B 59 B2 |..8.+..(147):.Y.|
00003010: 30 B0 5A B2 30 A7 34 30 30 30 00 46 38 0C 2B 99 |0.Z.0.4000.F8.+.|
00003020: C7 28 31 34 37 29 3B C7 28 31 35 35 29 3B C7 28 |.(147);.(155);.(|
00003030: 31 33 30 29 3A 81 50 B2 31 A4 36 3A 99 3A 82 50 |130):.P.1.6:.:.P|
00003040: 3A 50 24 B2 22 22 00 79 38 16 2B 99 22 20 20 20 |:P$."".y8.+." |
00003050: 20 20 53 41 56 45 20 4F 4E 20 54 41 50 45 20 4F | SAVE ON TAPE O|
00003060: 52 20 44 49 53 4B 3F 20 28 54 20 4F 52 20 44 29 |R DISK? (T OR D)|
00003070: 22 3A 99 C7 28 31 33 32 29 00 94 38 1B 2B 50 24 |":..(132)..8.+P$|
00003080: B2 22 22 3A A1 50 24 3A 8B 50 24 B2 22 22 A7 31 |."":.P$:.P$."".1|
00003090: 31 30 33 35 00 AD 38 20 2B 8B 50 24 B2 22 54 22 |1035..8 +.P$."T"|
000030A0: B0 50 24 B2 22 44 22 A7 31 31 30 35 30 00 B7 38 |.P$."D".11050..8|
000030B0: 25 2B 89 34 30 30 30 00 E1 38 2A 2B 99 C7 28 31 |%+.4000..8*+..(1|
000030C0: 34 37 29 3B C7 28 35 29 3A 81 50 B2 31 A4 36 3A |47);.(5):.P.1.6:|
000030D0: 99 3A 82 50 3A 99 53 50 24 3B 22 20 20 20 20 22 |.:.P:.SP$;" "|
000030E0: 3B 00 14 39 34 2B 99 C7 28 31 33 30 29 3B C7 28 |;..94+..(130);.(|
000030F0: 31 38 29 3B 22 20 53 41 56 49 4E 47 20 46 49 4C |18);" SAVING FIL|
00003100: 45 2E 20 22 3B C7 28 31 33 32 29 3B C7 28 31 34 |E. ";.(132);.(14|
00003110: 36 29 3A 99 00 40 39 3E 2B 8B 50 24 B2 22 44 22 |6):..@9>+.P$."D"|
00003120: A7 9F 31 2C 38 2C 32 2C 22 40 30 3A 45 58 50 45 |..1,8,2,"@0:EXPE|
00003130: 4E 53 45 53 2C 53 2C 57 22 3A 89 31 31 30 38 30 |NSES,S,W":.11080|
00003140: 00 56 39 43 2B 9F 31 2C 31 2C 31 2C 22 45 58 50 |.V9C+.1,1,1,"EXP|
00003150: 45 4E 53 45 53 22 00 7C 39 48 2B 81 43 B2 31 A4 |ENSES".|9H+.C.1.|
00003160: 31 32 3A 81 52 B2 31 A4 45 3A 98 31 2C 45 28 43 |12:.R.1.E:.1,E(C|
00003170: 2C 52 29 3A 82 52 3A 82 43 3A A0 31 00 A8 39 52 |,R):.R:.C:.1..9R|
00003180: 2B 8B 50 24 B2 22 44 22 A7 9F 33 2C 38 2C 32 2C |+.P$."D"..3,8,2,|
00003190: 22 40 30 3A 45 58 50 48 45 41 44 53 2C 53 2C 57 |"@0:EXPHEADS,S,W|
000031A0: 22 3A 89 31 31 31 30 30 00 BE 39 57 2B 9F 33 2C |":.11100..9W+.3,|
000031B0: 31 2C 31 2C 22 45 58 50 48 45 41 44 53 22 00 EE |1,1,"EXPHEADS"..|
000031C0: 39 5C 2B 81 43 B2 31 A4 45 3A 45 53 24 28 43 29 |9\+.C.1.E:ES$(C)|
000031D0: B2 22 46 22 AA 45 24 28 43 29 AA 22 42 22 3A 98 |."F".E$(C)."B":.|
000031E0: 33 2C 45 53 24 28 43 29 3A 82 43 3A A0 33 00 18 |3,ES$(C):.C:.3..|
000031F0: 3A 66 2B 8B 50 24 B2 22 44 22 A7 9F 32 2C 38 2C |:f+.P$."D"..2,8,|
00003200: 32 2C 22 40 30 3A 49 4E 43 4F 4D 45 2C 53 2C 57 |2,"@0:INCOME,S,W|
00003210: 22 3A 89 31 31 31 32 30 00 2C 3A 6B 2B 9F 32 2C |":.11120.,:k+.2,|
00003220: 31 2C 31 2C 22 49 4E 43 4F 4D 45 22 00 52 3A 70 |1,1,"INCOME".R:p|
00003230: 2B 81 43 B2 31 A4 31 32 3A 81 52 B2 31 A4 49 3A |+.C.1.12:.R.1.I:|
00003240: 98 32 2C 49 28 43 2C 52 29 3A 82 52 3A 82 43 3A |.2,I(C,R):.R:.C:|
00003250: A0 32 00 7E 3A 7A 2B 8B 50 24 B2 22 44 22 A7 9F |.2.~:z+.P$."D"..|
00003260: 34 2C 38 2C 32 2C 22 40 30 3A 49 4E 43 48 45 41 |4,8,2,"@0:INCHEA|
00003270: 44 53 2C 53 2C 57 22 3A 89 31 31 31 34 30 00 94 |DS,S,W":.11140..|
00003280: 3A 7F 2B 9F 34 2C 31 2C 31 2C 22 49 4E 43 48 45 |:.+.4,1,1,"INCHE|
00003290: 41 44 53 22 00 C4 3A 84 2B 81 43 B2 31 A4 49 3A |ADS"..:.+.C.1.I:|
000032A0: 49 53 24 28 43 29 B2 22 46 22 AA 49 24 28 43 29 |IS$(C)."F".I$(C)|
000032B0: AA 22 42 22 3A 98 34 2C 49 53 24 28 43 29 3A 82 |."B":.4,IS$(C):.|
000032C0: 43 3A A0 34 00 CE 3A 8E 2B 89 34 30 30 30 00 F0 |C:.4..:.+.4000..|
000032D0: 3A E0 2E 8F 20 4C 4F 41 44 20 46 49 4C 45 20 46 |:... LOAD FILE F|
000032E0: 52 4F 4D 20 44 49 53 4B 20 4F 52 20 54 41 50 45 |ROM DISK OR TAPE|
000032F0: 00 17 3B EA 2E 99 C7 28 31 34 37 29 3B C7 28 31 |..;....(147);.(1|
00003300: 35 35 29 3A 81 50 B2 31 A4 36 3A 99 3A 82 50 3A |55):.P.1.6:.:.P:|
00003310: 99 22 20 20 20 22 3B 00 45 3B F4 2E 50 24 B2 22 |." ";.E;..P$."|
00003320: 22 3A 99 22 4C 4F 41 44 20 46 52 4F 4D 20 54 41 |":."LOAD FROM TA|
00003330: 50 45 20 4F 52 20 44 49 53 4B 3F 20 28 54 20 4F |PE OR DISK? (T O|
00003340: 52 20 44 29 22 00 60 3B F9 2E 50 24 B2 22 22 3A |R D)".`;..P$."":|
00003350: A1 50 24 3A 8B 50 24 B2 22 22 A7 31 32 30 32 35 |.P$:.P$."".12025|
00003360: 00 79 3B FE 2E 8B 50 24 B2 22 44 22 B0 50 24 B2 |.y;...P$."D".P$.|
00003370: 22 54 22 A7 31 32 30 34 30 00 83 3B 03 2F 89 34 |"T".12040..;./.4|
00003380: 30 30 30 00 A7 3B 08 2F 99 C7 28 31 34 37 29 3A |000..;./..(147):|
00003390: 81 50 B2 31 A4 36 3A 99 3A 82 50 3A 99 53 50 24 |.P.1.6:.:.P:.SP$|
000033A0: 3B 22 20 20 20 22 3B 00 DE 3B 12 2F 99 C7 28 31 |;" ";..;./..(1|
000033B0: 33 30 29 3B C7 28 35 29 3B C7 28 31 38 29 3B 22 |30);.(5);.(18);"|
000033C0: 20 4C 4F 41 44 49 4E 47 20 46 49 4C 45 2E 20 22 | LOADING FILE. "|
000033D0: 3B C7 28 31 33 32 29 3B C7 28 31 34 36 29 00 09 |;.(132);.(146)..|
000033E0: 3C 1C 2F 8B 50 24 B2 22 44 22 A7 9F 31 2C 38 2C |<./.P$."D"..1,8,|
000033F0: 32 2C 22 30 3A 45 58 50 45 4E 53 45 53 2C 53 2C |2,"0:EXPENSES,S,|
00003400: 52 22 3A 89 31 32 30 37 30 00 1F 3C 21 2F 9F 31 |R":.12070..<!/.1|
00003410: 2C 31 2C 30 2C 22 45 58 50 45 4E 53 45 53 22 00 |,1,0,"EXPENSES".|
00003420: 45 3C 26 2F 81 43 B2 31 A4 31 32 3A 81 52 B2 31 |E<&/.C.1.12:.R.1|
00003430: A4 45 3A 84 31 2C 45 28 43 2C 52 29 3A 82 52 3A |.E:.1,E(C,R):.R:|
00003440: 82 43 3A A0 31 00 70 3C 30 2F 8B 50 24 B2 22 44 |.C:.1.p<0/.P$."D|
00003450: 22 A7 9F 33 2C 38 2C 32 2C 22 30 3A 45 58 50 48 |"..3,8,2,"0:EXPH|
00003460: 45 41 44 53 2C 53 2C 52 22 3A 89 31 32 30 39 30 |EADS,S,R":.12090|
00003470: 00 86 3C 35 2F 9F 33 2C 31 2C 30 2C 22 45 58 50 |..<5/.3,1,0,"EXP|
00003480: 48 45 41 44 53 22 00 B6 3C 3A 2F 81 43 B2 31 A4 |HEADS"..<:/.C.1.|
00003490: 45 3A 84 33 2C 45 53 24 28 43 29 3A 45 24 28 43 |E:.3,ES$(C):E$(C|
000034A0: 29 B2 CA 28 45 53 24 28 43 29 2C 32 2C 31 32 29 |)..(ES$(C),2,12)|
000034B0: 3A 82 43 3A A0 33 00 DF 3C 44 2F 8B 50 24 B2 22 |:.C:.3..<D/.P$."|
000034C0: 44 22 A7 9F 32 2C 38 2C 32 2C 22 30 3A 49 4E 43 |D"..2,8,2,"0:INC|
000034D0: 4F 4D 45 2C 53 2C 52 22 3A 89 31 32 31 31 30 00 |OME,S,R":.12110.|
000034E0: F3 3C 49 2F 9F 32 2C 31 2C 30 2C 22 49 4E 43 4F |.<I/.2,1,0,"INCO|
000034F0: 4D 45 22 00 19 3D 4E 2F 81 43 B2 31 A4 31 32 3A |ME"..=N/.C.1.12:|
00003500: 81 52 B2 31 A4 49 3A 84 32 2C 49 28 43 2C 52 29 |.R.1.I:.2,I(C,R)|
00003510: 3A 82 52 3A 82 43 3A A0 32 00 44 3D 58 2F 8B 50 |:.R:.C:.2.D=X/.P|
00003520: 24 B2 22 44 22 A7 9F 34 2C 38 2C 32 2C 22 30 3A |$."D"..4,8,2,"0:|
00003530: 49 4E 43 48 45 41 44 53 2C 53 2C 52 22 3A 89 31 |INCHEADS,S,R":.1|
00003540: 32 31 33 30 00 5A 3D 5D 2F 9F 34 2C 31 2C 30 2C |2130.Z=]/.4,1,0,|
00003550: 22 49 4E 43 48 45 41 44 53 22 00 8A 3D 62 2F 81 |"INCHEADS"..=b/.|
00003560: 43 B2 31 A4 49 3A 84 34 2C 49 53 24 28 43 29 3A |C.1.I:.4,IS$(C):|
00003570: 49 24 28 43 29 B2 CA 28 49 53 24 28 43 29 2C 32 |I$(C)..(IS$(C),2|
00003580: 2C 31 32 29 3A 82 43 3A A0 34 00 BE 3D 6C 2F 4B |,12):.C:.4..=l/K|
00003590: 4B B2 31 3A 99 C7 28 31 34 37 29 3B C7 28 35 29 |K.1:..(147);.(5)|
000035A0: 3A 81 50 B2 31 A4 36 3A 99 3A 82 50 3A 99 22 20 |:.P.1.6:.:.P:." |
000035B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 F5 | ";..|
000035C0: 3D 76 2F 99 C7 28 31 38 29 3B C7 28 31 33 30 29 |=v/..(18);.(130)|
000035D0: 3B 22 20 43 41 4C 43 55 4C 41 54 49 4E 47 2E 20 |;" CALCULATING. |
000035E0: 22 3B C7 28 31 33 32 29 3B C7 28 31 34 36 29 3A |";.(132);.(146):|
000035F0: 89 32 30 30 30 00 1F 3E C8 32 8F 20 43 48 41 4E |.2000..>.2. CHAN|
00003600: 47 45 20 45 58 50 45 4E 53 45 53 20 41 4E 44 20 |GE EXPENSES AND |
00003610: 49 4E 43 4F 4D 45 20 48 45 41 44 49 4E 47 53 00 |INCOME HEADINGS.|
00003620: 33 3E D2 32 99 C7 28 31 34 37 29 3B C7 28 31 35 |3>.2..(147);.(15|
00003630: 35 29 3B 00 65 3E DC 32 99 22 43 48 41 4E 47 45 |5);.e>.2."CHANGE|
00003640: 20 48 45 41 44 49 4E 47 20 46 4F 52 20 45 58 50 | HEADING FOR EXP|
00003650: 45 4E 53 45 2F 49 4E 43 4F 4D 45 20 28 45 2F 49 |ENSE/INCOME (E/I|
00003660: 29 3F 22 3A 99 00 92 3E E6 32 99 22 43 48 45 43 |)?":...>.2."CHEC|
00003670: 4B 20 48 45 41 44 49 4E 47 53 20 20 4F 52 20 20 |K HEADINGS OR |
00003680: 47 4F 54 4F 20 4D 45 4E 55 20 20 28 43 2F 4D 29 |GOTO MENU (C/M)|
00003690: 3F 22 00 B0 3E F0 32 43 48 24 B2 22 22 3A A1 43 |?"..>.2CH$."":.C|
000036A0: 48 24 3A 8B 43 48 24 B2 22 22 A7 31 33 30 34 30 |H$:.CH$."".13040|
000036B0: 00 C3 3E F3 32 8B 43 48 24 B2 22 45 22 A7 31 33 |..>.2.CH$."E".13|
000036C0: 30 36 30 00 D6 3E F5 32 8B 43 48 24 B2 22 49 22 |060..>.2.CH$."I"|
000036D0: A7 31 33 31 34 30 00 E9 3E F7 32 8B 43 48 24 B2 |.13140..>.2.CH$.|
000036E0: 22 43 22 A7 31 33 32 33 30 00 F3 3E F8 32 89 34 |"C".13230..>.2.4|
000036F0: 30 30 30 00 06 3F FA 32 8B 43 48 24 B2 22 43 22 |000..?.2.CH$."C"|
00003700: A7 31 33 32 33 30 00 10 3F FF 32 89 34 30 30 30 |.13230..?.2.4000|
00003710: 00 40 3F 04 33 99 3A 99 22 57 48 49 43 48 20 45 |.@?.3.:."WHICH E|
00003720: 58 50 45 4E 53 45 20 4E 55 4D 42 45 52 20 49 53 |XPENSE NUMBER IS|
00003730: 20 54 4F 20 42 45 20 43 48 41 4E 47 45 44 3F 22 | TO BE CHANGED?"|
00003740: 00 57 3F 0E 33 99 22 5B 20 31 20 20 2D 20 22 3B |.W?.3."[ 1 - ";|
00003750: 45 3B 22 5D 22 3A 99 00 74 3F 18 33 4C 43 B2 30 |E;"]":..t?.3LC.0|
00003760: 3A 85 4C 43 3A 8B 4C 43 B3 31 B0 4C 43 B1 45 A7 |:.LC:.LC.1.LC.E.|
00003770: 34 30 30 30 00 87 3F 22 33 99 3A 99 22 20 20 22 |4000..?"3.:." "|
00003780: 3B 45 24 28 4C 43 29 00 C4 3F 2C 33 99 22 20 3E |;E$(LC)..?,3." >|
00003790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 20 20 |------------< |
000037A0: 20 28 31 32 20 43 48 41 52 41 43 54 45 52 53 20 | (12 CHARACTERS |
000037B0: 4F 4E 4C 59 29 22 3B C7 28 31 34 35 29 3B C7 28 |ONLY)";.(145);.(|
000037C0: 31 34 35 29 00 FF 3F 36 33 45 53 24 28 4C 43 29 |145)..?63ES$(LC)|
000037D0: B2 22 22 3A 85 45 53 24 28 4C 43 29 3A 8B 45 53 |."":.ES$(LC):.ES|
000037E0: 24 28 4C 43 29 B2 22 22 A7 45 53 24 28 4C 43 29 |$(LC)."".ES$(LC)|
000037F0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 |." ".|
00003800: 31 40 40 33 45 24 28 4C 43 29 B2 22 22 3A 45 24 |1@@3E$(LC)."":E$|
00003810: 28 4C 43 29 B2 C8 28 45 53 24 28 4C 43 29 AA 22 |(LC)..(ES$(LC)."|
00003820: 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 31 32 | ",12|
00003830: 29 00 3C 40 4A 33 89 31 33 33 30 30 00 42 40 54 |).<@J3.13300.B@T|
00003840: 33 99 00 6F 40 5E 33 99 22 57 48 49 43 48 20 49 |3..o@^3."WHICH I|
00003850: 4E 43 4F 4D 45 20 4E 55 4D 42 45 52 20 49 53 20 |NCOME NUMBER IS |
00003860: 54 4F 20 42 45 20 43 48 41 4E 47 45 44 3F 22 00 |TO BE CHANGED?".|
00003870: 86 40 68 33 99 22 5B 20 31 20 20 2D 20 22 3B 49 |.@h3."[ 1 - ";I|
00003880: 3B 22 5D 22 3A 99 00 A3 40 72 33 4C 43 B2 30 3A |;"]":...@r3LC.0:|
00003890: 85 4C 43 3A 8B 4C 43 B3 31 B0 4C 43 B1 49 A7 34 |.LC:.LC.1.LC.I.4|
000038A0: 30 30 30 00 B6 40 7C 33 99 3A 99 22 20 20 22 3B |000..@|3.:." ";|
000038B0: 49 24 28 4C 43 29 00 F3 40 86 33 99 22 20 3E 2D |I$(LC)..@.3." >-|
000038C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 20 20 20 20 |-----------< |
000038D0: 28 31 32 20 43 48 41 52 41 43 54 45 52 53 20 4F |(12 CHARACTERS O|
000038E0: 4E 4C 59 29 22 3B C7 28 31 34 35 29 3B C7 28 31 |NLY)";.(145);.(1|
000038F0: 34 35 29 00 2E 41 90 33 49 53 24 28 4C 43 29 B2 |45)..A.3IS$(LC).|
00003900: 22 22 3A 85 49 53 24 28 4C 43 29 3A 8B 49 53 24 |"":.IS$(LC):.IS$|
00003910: 28 4C 43 29 B2 22 22 A7 49 53 24 28 4C 43 29 B2 |(LC)."".IS$(LC).|
00003920: 22 20 20 20 20 20 20 20 20 20 20 20 20 22 00 60 |" ".`|
00003930: 41 9A 33 49 24 28 4C 43 29 B2 22 22 3A 49 24 28 |A.3I$(LC)."":I$(|
00003940: 4C 43 29 B2 C8 28 49 53 24 28 4C 43 29 AA 22 20 |LC)..(IS$(LC)." |
00003950: 20 20 20 20 20 20 20 20 20 20 20 22 2C 31 32 29 | ",12)|
00003960: 00 6B 41 A4 33 89 31 33 32 33 30 00 8B 41 AE 33 |.kA.3.13230..A.3|
00003970: 99 C7 28 31 34 37 29 3B 22 49 4E 43 4F 4D 45 20 |..(147);"INCOME |
00003980: 20 20 20 20 20 20 20 4E 4F 2E 22 00 A4 41 B8 33 | NO."..A.3|
00003990: 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."==============|
000039A0: 3D 3D 3D 22 00 AD 41 C2 33 4C 43 B2 31 00 D2 41 |==="..A.3LC.1..A|
000039B0: CC 33 99 49 24 28 4C 43 29 3B C9 28 22 20 20 20 |.3.I$(LC);.(" |
000039C0: 22 AA C4 28 4C 43 29 2C 34 29 3A 4C 43 B2 4C 43 |"..(LC),4):LC.LC|
000039D0: AA 31 00 E6 41 D6 33 8B 4C 43 B3 28 49 AA 31 29 |.1..A.3.LC.(I.1)|
000039E0: A7 31 33 32 36 30 00 14 42 E0 33 99 3A 99 22 50 |.13260..B.3.:."P|
000039F0: 52 45 53 53 20 20 5B 49 5D 20 20 54 4F 20 43 48 |RESS [I] TO CH|
00003A00: 41 4E 47 45 20 49 4E 43 4F 4D 45 2E 22 3B C7 28 |ANGE INCOME.";.(|
00003A10: 31 34 35 29 00 32 42 EA 33 43 48 24 B2 22 22 3A |145).2B.3CH$."":|
00003A20: A1 43 48 24 3A 8B 43 48 24 B2 22 22 A7 31 33 32 |.CH$:.CH$."".132|
00003A30: 39 30 00 45 42 EF 33 8B 43 48 24 B2 22 49 22 A7 |90.EB.3.CH$."I".|
00003A40: 31 33 31 35 30 00 52 42 F4 33 99 C7 28 31 34 37 |13150.RB.3..(147|
00003A50: 29 3B 00 81 42 FE 33 99 22 45 58 50 45 4E 53 45 |);..B.3."EXPENSE|
00003A60: 20 20 20 20 20 20 20 4E 4F 2E 20 20 20 20 20 45 | NO. E|
00003A70: 58 50 45 4E 53 45 20 20 20 20 20 20 20 4E 4F 2E |XPENSE NO.|
00003A80: 22 00 B0 42 08 34 99 22 3D 3D 3D 3D 3D 3D 3D 3D |"..B.4."========|
00003A90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 20 20 20 3D 3D |========= ==|
00003AA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
00003AB0: 00 C7 42 12 34 4C 43 B2 31 3A 48 41 B2 B5 28 28 |..B.4LC.1:HA..((|
00003AC0: 45 AA 31 29 AD 32 29 00 EE 42 26 34 99 45 24 28 |E.1).2)..B&4.E$(|
00003AD0: 4C 43 29 3B C9 28 22 20 20 20 22 AA C4 28 4C 43 |LC);.(" "..(LC|
00003AE0: 29 2C 34 29 3B 22 20 20 20 20 20 20 22 3B 00 1C |),4);" ";..|
00003AF0: 43 30 34 8B 28 4C 43 AA 48 41 29 B3 B2 45 A7 99 |C04.(LC.HA)..E..|
00003B00: 45 24 28 4C 43 AA 48 41 29 3B 22 20 22 3B 28 4C |E$(LC.HA);" ";(L|
00003B10: 43 AA 48 41 29 3A 89 31 33 33 37 30 00 22 43 35 |C.HA):.13370."C5|
00003B20: 34 99 00 2E 43 3A 34 4C 43 B2 4C 43 AA 31 00 4B |4...C:4LC.LC.1.K|
00003B30: 43 44 34 8B 4C 43 B3 28 B5 28 28 45 AA 31 29 AD |CD4.LC.(.((E.1).|
00003B40: 32 29 AA 31 29 A7 31 33 33 35 30 00 73 43 4E 34 |2).1).13350.sCN4|
00003B50: 99 3A 99 22 50 52 45 53 53 20 20 5B 45 5D 20 20 |.:."PRESS [E] |
00003B60: 54 4F 20 43 48 41 4E 47 45 20 45 58 50 45 4E 53 |TO CHANGE EXPENS|
00003B70: 45 2E 22 00 91 43 58 34 43 48 24 B2 22 22 3A A1 |E."..CX4CH$."":.|
00003B80: 43 48 24 3A 8B 43 48 24 B2 22 22 A7 31 33 34 30 |CH$:.CH$."".1340|
00003B90: 30 00 B5 43 5D 34 8B 43 48 24 B2 22 45 22 A7 99 |0..C]4.CH$."E"..|
00003BA0: C7 28 31 34 35 29 3B C7 28 31 34 35 29 3B 3A 89 |.(145);.(145);:.|
00003BB0: 31 33 30 36 30 00 BF 43 62 34 89 34 30 30 30 00 |13060..Cb4.4000.|
00003BC0: 00 00 |.. |
..B.... "MONEY/PLUS 64" DISK/TAPE,40
COL P.G.SIMONDS 19/2/90...... BUDGETS
TO NEAREST POUND FOR EXPENSES AND INCOM
ES UP TO \9999....... ANNUAL TOTALS UP T
O \99999....... PRINTOUTS CAN START AT A
NY MONTH OF THE YEAR.......53280,0:.5328
1,0:.G(147);G(30):." WELCOME TO".).$..:.
" MONEY/PLUS 64.".F.L.E.30.1:I.10.1:L$."
":.P.1.21:L$.L$.G(192):.P:.P.1.4000:.P..
.V..E(12,31):.I(12,11):.E$(31):.I$(11):.
MO$(12):.ET(12):.IT(12)...`..MT(12):.RT(
12):SP$." ":.ES$(31):.IS$(11)...
J.N.0:E.E.1:I.I.1:H$.G(176).L$.G(174):B$
.G(173).L$.G(253).^.T.MO$(1)."JAN":MO$(2
)."FEB":MO$(3)."MAR":MO$(4)."APR":MO$(5)
."MAY".}.~.MO$(6)."JUN":MO$(12)."DEC".D.
..MO$(7)."JUL":MO$(8)."AUG":MO$(9)."SEP"
:MO$(10)."OCT":MO$(11)."NOV".....E$(01).
"EXPENSE 1 ":E$(02)."EXPENSE 2 ":E$(
03)."EXPENSE 3 ".P...E$(04)."
":E$(05)." ":E$(06)."
".....E$(07)." ":E$(08
)." ":E$(09)." "..
...E$(10)." ":E$(11)."
":E$(12)." "."...E$(13).
" ":E$(14)." ":E$(
15)." ".H.D.E$(16)."
":E$(17)." ":E$(18)."
"...N.E$(19)." ":E$(20
)." ":E$(21)." "..
.X.E$(22)." ":E$(23)."
":E$(24)." ".:...E$(25).
" ":E$(26)." ":E$(
27)." ".....E$(28)."
":E$(29)." ":E$(30)."LAST
EXP. ".F...I$(01)."INCOME 1 ":I$(02
)."INCOME 2 ":I$(03)."INCOME 3 "..
...I$(04)." ":I$(05)."
":I$(06)." ".R...I$(07).
" ":I$(08)." ":I$(
09)." ".L...I$(10)."LAST INC.
".V....4000...P.. CALCULATION ROUTINE
. .Z.N.1:Z.0:Y.0......P.1.12:ET(P).0:.R.
1.E:ET(P).ET(P).E(P,R):.R:Z.Z.ET(P):.P..
....P.1.12:IT(P).0:.R.1.I:IT(P).IT(P).I(
P,R):.R:Y.Y.IT(P):.P.=....P.1.12:MT(P).I
T(P).ET(P):.P.U....G(147):.P.1.6:.:.P...
..." 1ST MONTH NUMBER";SM:.SM.1.
SM.12.2050.....RR.SM... .RT(SM).MT(SM):X
.RT(SM)...*..P.1.11.S.4.SM.SM.1:.SM.13.S
M.1...>.RT(SM).X.MT(SM):X.RT(SM)...H..P.
..R..RT(SM).Y.Z.2150.,.\.."INCORRECT CAL
CULATION!":..6.F.SM.RR.X.... ANNUAL STAT
EMENT FOR SCREEN.M.B.SM.RR:.SM.0.SM.1...
L.UL$.G(159)." ===== ===== ======= ==
====":AC.MT(SM):.G(147);...V..G(159);"
";G(18);" ANNUAL STATEMENT ";G
(146):.."....G(155);" ";G(18);"C
REDIT";G(146);" ";.\....G(18);"DEBIT";G(
146);" ";G(18);"BALANCE";G(146);" ";.Y..
..G(18);"ACCUM.";G(146):.......P.1.12:.G
(158)" ";G(18);MO$(SM);G(146);" ";G(
5);......I(" ".D(IT(SM)),6);I("
".D(ET(SM)),6);......I(" ".D(MT
(SM)),8);I(" ".D(AC),7).5...SM.SM.
1:.SM.13.SM.1.I.&.AC.AC.MT(SM):.P.`.0.."
";UL$;G(5)...:.." ";I("
".D(Y),9);...D..I(" ".D(Z),6);.V
.N..I(" ".D(Y.Z),8);I(" ".D
(AC.MT(SM)),7)...X.." ";UL$:.:.:."
(PRESS M,P,E OR I)"...B..A$...L..A$."
".3170./.V..A$."M".4000.@....A$."P".5000
.`....A$."E".SM.RR:BB$."E":.8000......A$
."I".SM.RR:BB$."I":.8000......3170... ..
MENU.....SM.RR:.SM.0.SM.1.L...A1$.G(18)
." ".G(146).G(5)." ".....A2$." ".G(153):
A3$." ".G(18).G(155)." "...H.A3$." ".G
(18).G(155)." ".Q.R.A$.G(18)." ".G(146).
" ".G(18)." "......G
(147);G(155);SP$;G(18);"
"......SP$;G(155);G(18);"
M E N U "......SP$;G(18);"
":.SP$;A$......SP$;A1$;"
CALCULATE.......";A2$;"C";A3$:.SP$;A$.Q.
...SP$;A1$;"CHANGE HEADINGS.";A2$;"H";A3
$:.SP$;A$......SP$;A1$;"MONTHLY DISPLAY.
";A2$;"M";A3$:.SP$;A$......SP$;A1$;"PRIN
TER.........";A2$;"P";A3$:.SP$;A$..."..S
P$;A1$;"CHANGE INCOME...";A2$;"I";A3$:.S
P$;A$.!.,..SP$;A1$;"CHANGE EXPENSES.";A2
$;"E";A3$:.SP$;A$.U.6..SP$;A1$;"ANALYZE
DATA....";A2$;"A";A3$:.SP$;A$...@..SP$;A
1$;"ANNUAL VIEW.....";A2$;"Y";A3$:.SP$;A
$...J..SP$;A1$;"SAVE FILE.......";A2$;"S
";A3$:.SP$;A$...T..SP$;A1$;"LOAD FILE...
....";A2$;"L";A3$:.SP$;A$.&.^..SP$;G(18)
;" "G(146);G(19)./
.H..BB$.8.R.XX.0.^.|..BB$."C".KK.1..G(14
7);G(5);:.4320.X....BB$."I".BB$."E".8000
......BB$."H".13000......BB$."S".KK.1.11
000......BB$."M".N.1.9000.O....BB$."Y".N
.1.3000......BB$."P".N.1.5000...B..BB$."
A".N.1.10000...L..BB$."L".12000...V..420
0.H....P.1.7:.:.P:." ";G(18)
;G(130);.R...." CALCULATING. ";G(132);G(
146):.2000...... PRINTER ROUTINE.F...P1$
." ":P2$.P1$.P1$.P1$
.P1$:.G(147):.......G(155);" IS PRINT
ER CONNECTED? (Y/N)".....Y$."":.Y$:.Y$."
".5025. ....Y$.."Y".4000.H....:.:." I
S PRINTER LOADED? (Y/N)".B...Y$."":.Y$:.
Y$."".5035.T....Y$.."Y".4000......:.:."
IS PRINTER TURNED ON? (Y/N)".....Y$."
":.Y$:.Y$."".5050.K....Y$.."Y".4000...D.
.G(5):.:." DATE";DT$.!.N.PA.0:.:.:."
PAGE NUMBER 1 OR 2";PA:.PA.1.PA.2.400
0.W.X..:.:.G(155);" ANNUAL/MONTHLY ST
ATEMENT? (A/M)".T...CC$."":.CC$:.CC$."".
5085......CC$."A".6000......CC$."M".7000
......4000...P.. PRINT ANNUAL BUDGET.N.Z
..4,4:.4:.6380......"ANNUAL BUDGET ";DT$
:S.C(DT$).14:.6380......P.1.S:."=";:.P:.
:..]...LU$."============== ---- ---- ---
- ---- ---- ---- ---- ---- ---- ----"...
..LU$.LU$." ---- ---- =====":.6380......
"INCOME ";:.6410:.6380:.LU$:SM.RR
:.P.1.I.X...SS.0:.M.1.12:SS.SS.I(M,P):.M
......I$(P)." ".SS.0.6130.-.J
..6380:.J(D(P)." ",2,3);H(I$(P),11);:.M
.1.12.N.T.D.I(SM,P):.I(" ".D(D),5);.F
...SM.SM.1:.SM.13.SM.1......M:D.SS:.I("
".D(D),6)......P:.6380:.LU$.S....63
80:."TOTALS ";:SS.0:.M.1.12:D.IT(
SM):SS.SS.D......I(" ".D(D),5);:SM.SM
.1:.SM.13.SM.1.-....M:D.SS:.I(" ".D
(D),6):.6380:.LU$:.:..]....:.6380:."EXPE
NSES ";:.6410:.6380:.LU$...$.SM.RR:
.P.1.E:SS.0:.M.1.12:SS.SS.E(M,P):.M.....
.E$(P)." ".SS.0.6240.Z.8..638
0:.J(D(P)." ",2,3);:.H(E$(P),11);...B..
M.1.12:D.E(SM,P):.I(" ".D(D),5);...L.
SM.SM.1:.SM.13.SM.1.;.V..M:D.SS:.I("
".D(D),6).B.`..P.O.J..6380:.LU$:.6380:
."TOTALS ";:SS.0...T..M.1.12:D.ET
(SM):SS.SS.D:.I(" ".D(D),5);...~.SM.S
M.1:.SM.13.SM.1......M:D.SS:.I(" ".
D(D),6):.6380:.LU$:.:.......:.6380:."
";:.6410:.6380:.LU$.F....6380
:."BALANCES ";:SS.0:SM.RR:.M.1.12..
...D.MT(SM):SS.SS.D:.I(" ".D(D),5);:S
M.SM.1:.SM.13.SM.1......M:D.SS:.I("
".D(D),6):.6380:.LU$:.:.......:.6380:."
";:.6410:.6380:.LU$.. D..6
380:."ACCUMULATION ";:SM.RR:.M.1.12:D.R
T(SM).@ N..I(" ".D(D),5);:SM.SM.1:.SM
.13.SM.1.L X..M:D.Y.Z:.I(" ".D(D),6
):.6380:.LU$.~ ...4: 4,4:.4000.. ... PRI
NT BLANK PAGE ONE SUBROUTINE.. ...PA.2..
P2$;.. ....X ... PRINT MONTHS SUBROUTINE
..!..SM.RR:.P.1.12:." ";MO$(SM);:SM.SM.
1:.SM.13.SM.1. !...P:." TOTAL":..>!X.. P
RINT MONTHLY STATEMENT.G!B.UU$."--------
--------------":.G(5):...!L.." NUMBER
OF MONTH TO BE PRINTED";M:.M.1.M.12.400
0.O!V..4,4:.4:.G(14);:.6380:.DT$:S.C(DT$
):.6380..!...P.1.S:."=";:.P:.:.:.6380.."
..."ESTIMATES FOR THE MONTH OF ";MO$(M):
.6380.K"..."----------------------------
--":.:.6380.{"..."INCOME:- \
":.6380:.UU$:.P.1.I.."...I(M,P).0.I$(P).
"".7100.G"...6380:.I$(P);" ";I("
".D(I(M,P)),4).."...P:.6380:.UU$:.6380.
.#F.."TOTAL INCOME ";I(" ".D(IT(M)
),6):.6380.=#P..UU$:.:.6380:."EXPENSES:-
\".S#Z..6380:.UU$:.P.1.E.O#..
.E(M,P).0.E$(P)."".7160..#...6380:.E$(P)
;" ";I(" ".D(E(M,P)),4)..#...P..
#...6380:.UU$:.6380..#..."TOTAL EXPENSES
";I(" ".D(ET(M)),6):.6380..$...UU$:
.:.6380:.UU$:.6380.7$ .."BALANCE
";I(" ".D(MT(M)),6).Y$*..6380:.UU$:.
:.6380:.UU$:.6380..$4.."ACCUMULATION
";I(" ".D(RT(M)),6):.6380:.UU$..$>..4
,G(15):.4: 4,4:.4000.P$@.. DATA CHECK AN
D CHANGE ROUTINE..$J.FD.0:MD$."E":.BB$."
I".MD$."I".!%T.CA$.G(5).G(18).G(130).G(1
57).G(157).G(157).I%^.CA$.CA$."CALCULATI
NG".G(132).G(146).J%H.R$."":.P.1.24:R$.R
$.G(29):.P..%R.CO.SM:KK.1:RO.1:.SM.0.SM.
1:CO.SM..%|.C$.G(158).G(130).G(175).G(13
2).G(5).G(157).N%...FD.0..8440..%..HH$."
":.HH$:.HH$."".8080..&...HH$.G(145).RO.R
O.1:.RO.1.RO.1:.8350.)&...HH$.G(145).835
0.S&...HH$.G(17).BB$."E".RO.E.RO.RO.1:.8
350.}&...HH$.G(17).BB$."I".RO.I.RO.RO.1:
.8350..&...HH$.G(29).CO.CO.1:.CO.12.CO.1
:.8350.P&B..HH$.G(157).CO.CO.1:.CO.1.CO.
12:.8350..&L..HH$.G(29).HH$.G(157).8350.
.'V..HH$."E".BB$."E".8080./'...HH$."E".B
B$."E":RO.1:CO.SM:.8350.I'...HH$."I".BB$
."I".8080.O'...HH$."I".BB$."I":RO.1:CO.S
M:.8350..'...HH$."C".N.0:.C$;:BN$."":.82
40..'. .HH$."M".N.1.4000.E'. .HH$."Y".N.
1.SM.RR:.3000..'. .HH$."M"..CA$:SM.RR:.2
000..'& .8080..(0 NU$."":.NU$:.NU$."".82
40..(3 .NU$.G(13).8280.0(5 .NU$."A".8310
.S(: .F(NU$).48.0.F(NU$).48.10.8240.R(D
BN$.BN$.NU$:.C(BN$).4.8280..(N .NU$;C$;:
.8240..(X NU.E(H(BN$,4))..(B .BB$."E".E(
CO,RO).NU:NU.0:.8350..(L .BB$."I".I(CO,R
O).NU:NU.0:.8350..(V NU.E(H(BN$,4))..(.
.P.1.12..). .BB$."E".E(P,RO).NU./). .BB$
."I".I(P,RO).NU.;). .P:NU.0.A). .G(19);G
(5);G(146):.:.:.H(R$,13);..). .BB$."E"..
"E X P E N S E S":.8370..). ." I N C O
M E ".N). .:.:.:.:.R$;G(18);G(158);"
";MO$(CO);" "..). .:.:.H(R$,14);G(153);
J((D(RO)." "),2,2);..*F .BB$."E"..H(R$,
2);E$(RO):.8400.3*K .H(R$,2);I$(RO).O*P
.:.:.:.H(R$,12);G(153);..*Z .BB$."E"..J(
(D(E(CO,RO))." "),2,5);G(29);..*. .B
B$."I"..J((D(I(CO,RO))." "),2,5);G(2
9);..*. .H(R$,5);" ";:.P.1.5:.G(157)
;:.P:.8080..+. FD.1:.G(147):.G(155);SP$;
G(18);H$.F+.!ED$.SP$.G(18).G(125).G(146)
." ".G(18).H+.!ED$.E
D$.G(125):.ED$:.ED$:.ED$.|+.!.SP$;G(18);
B$:...+ !.SP$;G(18);H$..+*!." ";G(158);
"<LEFT> ";G(155);G(18);G(125);..+4!."
M O N T H ";G(146);" ";G(18);G(12
5);G(146);..,>!.G(158);" <RIGHT>";.-,H!.
G(155);SP$;G(18);B$:..T,R!.SP$;G(18);H(H
$,7);G(178);I(H$,15)..,\!." ";G(153);
"<UP> ";G(155);G(18);G(125);"ROW ";.H,F!
.G(146);" ";G(18);G(125);G(146);"
";G(18);..,P!.G(125);G(146);G(15
3);" <DOWN>";G(155)..-Z!.SP$;G(18);H(B$,
7);G(177);I(B$,15):..>-.!.SP$;H(H$,10);G
(178);I(H$,12).I-.!.SP$;G(125);SP$;G(125
);SP$;" ";G(125)..-.!.SP$;H(B$,10);G(17
7);I(B$,12):...-.!.SP$;G(18);"
"..-.!.SP$;G(18);" ";G(158)
;"1 TO CHANGE PRESS [C]";G(155);" ".0..!
.SP$;G(18);" ";G(158);"2 USE RETURN TO E
NTER";G(155);" ".M..!.SP$;G(18);" ";G(15
8);"3 CHANGE ALL YEAR [A]";G(155);" "...
J!.SP$;G(18);" ";G(158);"4 TO QUIT PRESS
[M] ";G(155);" ".Z.T!.SP$;G(18);"
";:.8350...(#. MONTHLY
PREVIEW ON SCREEN.-/2#SM.RR:.G(147);G(1
53);"PRESS UP,";G(18);G(155);.C/<#."INCO
ME "G(5);MO$(SM);G(155);" ":S
C.1.N/F#.P.1.I../P#.I(SM,P).0.9080../Z#.
SP$;G(18);G(155);J(D(P)." ",2,3);.L/D#.
G(18);I$(P);" ";G(146);G(5);..0N#.I("
".D(I(SM,P)),5);G(155);G(18);" ":SC.SC
.1..0X#.P.G0.#.G(153);"DOWN,M,P,";G(155)
;G(18);"TOTAL INCOME =";G(5);.T0.#.G(1
8);I(" ".D(IT(SM)),5);G(155);" "..0.
#.G(153);"Y,E OR I.";G(158);G(18);"EXPEN
SES ".E0 #SC.SC.2:.P.1.E.Y0
.#.E(SM,P).0.9170..1.#.SP$;G(158);G(18);
J(D(P)." ",2,3);..1.#.E$(P);" ";G(146);
G(5);.S1H#.I(" ".D(E(SM,P)),5);G(158
);G(18);" ":SC.SC.1.X1M#.SC.24..G(130);"
ANY KEY.";G(145)..1O#.SC.24.SC$."":.SC$:
.SC$."".9167..1R#.P.R1.#.SP$;G(158);G(18
);"TOTAL EXPENSES =";G(5);..1.#.I("
".D(ET(SM)),5);G(158);" ".#2.#.SP$;G(18)
;G(159);"BALANCE =";.Q2.#.G(18);I
(" ".D(MT(SM)),5);G(159);" ";.C2.$.G
(155);G(19).M2.$A$.""..2.$A$."":.A$:.A$.
"".9240..2"$.A$."I".BB$."I":.8000..2,$.A
$."E".BB$."E":.8000.S26$.A$."M".SM.RR:.4
000..2@$.A$."Y".SM.RR:.3000..3J$.A$."P".
SM.RR:.5000.03T$.G(147);G(153);"PRESS UP
,";G(155);G(18);.H3^$.A$.G(145).SM.SM.10
.D3H$SM.SM.1:.SM.12.SM.SM.12.N3R$.9020..
3.'. EXPENSE AND INCOME ANNUAL ANALYSIS.
.3.'SM.RR:.G(147):.:.:...3$'.SP$;G(18);G
(159);" ANALYSIS OF EXPENSES "..3.'.."48
'.SP$;G(18);" OR INCOME? ";G(130);" (E O
R I) ";G(5);G(132).=4B'D$."":.D$:.D$."".
10050.O4L'.D$."I".10090.A4V'.D$."E".1010
0.K4`'.4000..4J'.:.:.SP$;"INCOME NUMBER
FOR ANALYSIS.":.10110.I4T'.:.:.SP$;"EXPE
NSE NUMBER FOR ANALYSIS."..4~'F.1:.:."
";F:.G(147)..5.'.F.E.F.1..G(19):.
10060.#5.'.F.I.D$."I"..G(19):.10060.E5.'
.G(19);SP$;G(5);"ANALYSIS OF".K5.'..T5.'
XX.0.^5.'.SP$;..5D'.D$."I"..G(18);I$(F);
G(146);G(153);F;G(157);" ".F5N'.D$."E"..
G(18);E$(F);G(146);G(153);F;G(157);" ".L
5X'..X5.'.P.1.12..6.'.SP$;G(18);G(159);M
O$(SM);G(146);G(5);" ";. 6.'.D$."I".D
.I(SM,F).66.(.D$."E".D.E(SM,F).B6.(XX.XX
.D.Y6.(.I(" ".D(D),5).Q6.(SM.SM.1:.S
M.13.SM.1.X6((.P..62(.:.SP$;"===========
="..6<(.SP$;"TOTAL ";..6F(.I(" ".D(
XX),5).X6P(.SP$;"============":...7Z(.SP
$;G(153);"CURSOR <UP> OR <DOWN>":..+7D(
.SP$;G(5);"ANALYSIS OR MENU? (A/M)".F7N(
E$."":.E$:.E$."".10350.F7X(.E$.G(145).F.
1.F.F.1:.10120.W7.(.E$."M".4000..7.(.E$.
"A".10000..7.(.E$.G(17).D$."I".F.I.F.F.1
:.10120.U7 (.E$.G(17).D$."E".F.E.F.F.1:.
10120..7.(.10350..8.*. SAVE FILE TO DISK
OR TAPE..8.+.G(147):.Y.0.Z.0.4000.F8.+.
G(147);G(155);G(130):.P.1.6:.:.P:P$."".Y
8.+." SAVE ON TAPE OR DISK? (T OR D)
":.G(132)..8.+P$."":.P$:.P$."".11035..8
+.P$."T".P$."D".11050..8%+.4000..8*+.G(1
47);G(5):.P.1.6:.:.P:.SP$;" ";..94+.G
(130);G(18);" SAVING FILE. ";G(132);G(14
6):..@9>+.P$."D"..1,8,2,"@0:EXPENSES,S,W
":.11080.V9C+.1,1,1,"EXPENSES".|9H+.C.1.
12:.R.1.E:.1,E(C,R):.R:.C: 1..9R+.P$."D"
..3,8,2,"@0:EXPHEADS,S,W":.11100..9W+.3,
1,1,"EXPHEADS"..9\+.C.1.E:ES$(C)."F".E$(
C)."B":.3,ES$(C):.C: 3..:F+.P$."D"..2,8,
2,"@0:INCOME,S,W":.11120.,:K+.2,1,1,"INC
OME".R:P+.C.1.12:.R.1.I:.2,I(C,R):.R:.C:
2.~:Z+.P$."D"..4,8,2,"@0:INCHEADS,S,W":
.11140..:+.4,1,1,"INCHEADS".D:.+.C.1.I:
IS$(C)."F".I$(C)."B":.4,IS$(C):.C: 4.N:.
+.4000..:... LOAD FILE FROM DISK OR TAPE
..;...G(147);G(155):.P.1.6:.:.P:." ";.
E;..P$."":."LOAD FROM TAPE OR DISK? (T O
R D)".`;..P$."":.P$:.P$."".12025.Y;...P$
."D".P$."T".12040..;./.4000..;./.G(147):
.P.1.6:.:.P:.SP$;" ";..;./.G(130);G(5)
;G(18);" LOADING FILE. ";G(132);G(146)..
<./.P$."D"..1,8,2,"0:EXPENSES,S,R":.1207
0..<!/.1,1,0,"EXPENSES".E<&/.C.1.12:.R.1
.E:.1,E(C,R):.R:.C: 1.P<0/.P$."D"..3,8,2
,"0:EXPHEADS,S,R":.12090..<5/.3,1,0,"EXP
HEADS"..<:/.C.1.E:.3,ES$(C):E$(C).J(ES$(
C),2,12):.C: 3..<D/.P$."D"..2,8,2,"0:INC
OME,S,R":.12110..<I/.2,1,0,"INCOME"..=N/
.C.1.12:.R.1.I:.2,I(C,R):.R:.C: 2.D=X/.P
$."D"..4,8,2,"0:INCHEADS,S,R":.12130.Z=]
/.4,1,0,"INCHEADS"..=B/.C.1.I:.4,IS$(C):
I$(C).J(IS$(C),2,12):.C: 4..=L/KK.1:.G(1
47);G(5):.P.1.6:.:.P:." ";..
=V/.G(18);G(130);" CALCULATING. ";G(132)
;G(146):.2000..>H2. CHANGE EXPENSES AND
INCOME HEADINGS.3>R2.G(147);G(155);.E>.2
."CHANGE HEADING FOR EXPENSE/INCOME (E/I
)?":...>.2."CHECK HEADINGS OR GOTO MEN
U (C/M)?"..>.2CH$."":.CH$:.CH$."".13040
.C>.2.CH$."E".13060.V>.2.CH$."I".13140..
>.2.CH$."C".13230..>.2.4000..?.2.CH$."C"
.13230..?.2.4000.@?.3.:."WHICH EXPENSE N
UMBER IS TO BE CHANGED?".W?.3."[ 1 - ";
E;"]":..T?.3LC.0:.LC:.LC.1.LC.E.4000..?"
3.:." ";E$(LC).D?,3." >------------<
(12 CHARACTERS ONLY)";G(145);G(145)..?6
3ES$(LC)."":.ES$(LC):.ES$(LC)."".ES$(LC)
." ".1@@3E$(LC)."":E$(LC).H(E
S$(LC)." ",12).<@J3.13300.B@T
3..O@^3."WHICH INCOME NUMBER IS TO BE CH
ANGED?"..@H3."[ 1 - ";I;"]":...@R3LC.0:
.LC:.LC.1.LC.I.4000..@|3.:." ";I$(LC)..
@.3." >------------< (12 CHARACTERS O
NLY)";G(145);G(145)..A.3IS$(LC)."":.IS$(
LC):.IS$(LC)."".IS$(LC)." ".`
A.3I$(LC)."":I$(LC).H(IS$(LC)."
",12).KA.3.13230..A.3.G(147);"INCOME
NO."..A.3."================="..AB
3LC.1.RAL3.I$(LC);I(" ".D(LC),4):LC.LC
.1..AV3.LC.(I.1).13260..B.3.:."PRESS [I
] TO CHANGE INCOME.";G(145).2B.3CH$."":
.CH$:.CH$."".13290.EB.3.CH$."I".13150.RB
.3.G(147);..B.3."EXPENSE NO. E
XPENSE NO."..B.4."================
= =================".GB.4LC.1:HA..((
E.1).2)..B&4.E$(LC);I(" ".D(LC),4);"
";..C04.(LC.HA)..E..E$(LC.HA);" ";(L
C.HA):.13370."C54...C:4LC.LC.1.KCD4.LC.(
.((E.1).2).1).13350.SCN4.:."PRESS [E]
TO CHANGE EXPENSE."..CX4CH$."":.CH$:.CH$
."".13400..C]4.CH$."E"..G(145);G(145);:.
13060..CB4.4000...
> CLICK IMAGE PREVIEW FOR FULL MODAL