BUDGET V.2
FILE INFORMATION
FILENAME(S): BUDGET V.2
FILE TYPE(S): PRG
FILE SIZE: 9.9K
FIRST SEEN: 2025-10-19 22:48:39
APPEARS ON: 1 disk(s)
FILE HASH
18e84461bb666f0d6a290414818ae0a56c1e023a623df64709cb4f29dbea00b6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TERMINAL PRGS | BUDGET V.2 | PRG | Radd Maxx | 27 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 05 00 8F 22 20 20 20 20 20 20 20 20 |......." |
00000010: 20 20 42 55 44 47 45 54 20 56 2E 32 00 3F 08 0A | BUDGET V.2.?..|
00000020: 00 8F 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..".............|
00000030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 00 |................|
00000040: 8A 08 0F 00 8F 22 DD 54 48 49 53 20 50 52 4F 47 |.....".THIS PROG|
00000050: 52 41 4D 20 49 53 20 4F 46 46 45 52 45 44 20 54 |RAM IS OFFERED T|
00000060: 4F DD 20 20 20 20 20 20 20 20 20 20 20 20 DD 50 |O. .P|
00000070: 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 2D 20 4D |UBLIC DOMAIN - M|
00000080: 41 52 43 48 20 31 39 38 37 DD 00 D5 08 14 00 8F |ARCH 1987.......|
00000090: 22 DD 20 20 52 4F 42 45 52 54 20 41 2E 20 4C 45 |". ROBERT A. LE|
000000A0: 44 55 43 20 20 20 20 20 20 20 20 20 DD 20 20 20 |DUC . |
000000B0: 20 20 20 20 20 20 20 20 20 DD 20 20 36 31 20 57 | . 61 W|
000000C0: 41 52 52 45 4E 20 41 56 45 4E 55 45 20 20 20 20 |ARREN AVENUE |
000000D0: 20 20 20 20 DD 00 20 09 19 00 8F 22 DD 20 20 4C | .. ....". L|
000000E0: 45 57 49 53 54 4F 4E 2C 20 4D 41 49 4E 45 20 30 |EWISTON, MAINE 0|
000000F0: 34 32 34 30 20 20 20 DD 20 20 20 20 20 20 20 20 |4240 . |
00000100: 20 20 20 20 DD 20 20 20 20 20 20 20 45 4E 4A 4F | . ENJO|
00000110: 59 20 3A 29 20 20 20 20 20 20 20 20 20 20 20 DD |Y :) .|
00000120: 00 43 09 1A 00 8F 22 CA C0 C0 C0 C0 C0 C0 C0 C0 |.C....".........|
00000130: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000140: C0 C0 CB 00 5F 09 1E 00 99 22 93 9B 22 3A 97 35 |...._...."..":.5|
00000150: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.|
00000160: 7B 09 23 00 43 54 B2 30 3A 43 4E B2 30 3A 4E B2 |{.#.CT.0:CN.0:N.|
00000170: 30 3A 4C 4D B2 30 3A 4E 55 B2 30 00 91 09 28 00 |0:LM.0:NU.0...(.|
00000180: 4B 24 B2 22 22 3A 4D 24 B2 22 22 3A 4C 24 B2 22 |K$."":M$."":L$."|
00000190: 22 00 A6 09 2D 00 4E 32 B2 30 3A 4C 4E B2 30 3A |"...-.N2.0:LN.0:|
000001A0: 42 41 B2 31 37 30 00 C2 09 32 00 86 54 28 34 30 |BA.170...2..T(40|
000001B0: 2C 32 29 2C 43 24 28 34 30 29 2C 44 28 31 32 2C |,2),C$(40),D(12,|
000001C0: 32 29 00 D9 09 37 00 81 4E B2 31 A4 32 33 3A 87 |2)...7..N.1.23:.|
000001D0: 51 3A 46 B2 46 AA 51 3A 82 00 F4 09 3C 00 81 4E |Q:F.F.Q:....<..N|
000001E0: B2 31 A4 34 30 3A 87 51 24 3A 43 24 28 4E 29 B2 |.1.40:.Q$:C$(N).|
000001F0: 51 24 3A 82 00 FD 09 41 00 89 31 36 30 00 1C 0A |Q$:....A..160...|
00000200: 46 00 99 22 93 22 3A 81 4E B2 31 A4 32 30 3A 8B |F..".":.N.1.20:.|
00000210: 4E B3 31 30 A7 99 22 12 1E 20 22 3B 00 57 0A 4B |N.10..".. ";.W.K|
00000220: 00 99 22 12 1E 22 4E 22 92 9B 22 3B C8 28 43 24 |..".."N"..";.(C$|
00000230: 28 4E 29 2C 31 35 29 3B A3 32 31 29 22 12 1E 22 |(N),15);.21)".."|
00000240: 4E AA 32 30 22 92 9B 22 3B C8 28 43 24 28 4E AA |N.20"..";.(C$(N.|
00000250: 32 30 29 2C 31 34 29 00 60 0A 50 00 82 4E 3A 8E |20),14).`.P..N:.|
00000260: 00 90 0A 55 00 99 22 9B 93 11 11 11 11 11 11 11 |...U..".........|
00000270: 1D 1D 1D 1D 1D 1D 1D 4C 4F 41 44 49 4E 47 20 41 |.......LOADING A|
00000280: 43 43 4F 55 4E 54 20 22 3B C9 28 44 24 2C 34 29 |CCOUNT ";.(D$,4)|
00000290: 00 B0 0A 5A 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...Z..".........|
000002A0: 1D 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 |.PLEASE WAIT..."|
000002B0: 00 BD 0A 5F 00 9F 31 35 2C 38 2C 31 35 00 C7 0A |..._..15,8,15...|
000002C0: 64 00 8D 31 34 34 30 00 F0 0A 69 00 9F 32 2C 38 |d..1440...i..2,8|
000002D0: 2C 32 2C 22 42 55 44 47 45 54 20 44 41 54 41 20 |,2,"BUDGET DATA |
000002E0: 22 AA C9 28 44 24 2C 32 29 AA 22 2C 53 2C 52 22 |"..(D$,2).",S,R"|
000002F0: 00 0E 0B 6E 00 81 4E B2 31 A4 34 30 3A 84 32 2C |...n..N.1.40:.2,|
00000300: 54 28 4E 2C 31 29 3A 82 3A 8D 31 34 34 30 00 2C |T(N,1):.:.1440.,|
00000310: 0B 73 00 81 4E B2 31 A4 34 30 3A 84 32 2C 54 28 |.s..N.1.40:.2,T(|
00000320: 4E 2C 32 29 3A 82 3A 8D 31 34 34 30 00 4A 0B 78 |N,2):.:.1440.J.x|
00000330: 00 81 4E B2 31 A4 31 32 3A 84 32 2C 44 28 4E 2C |..N.1.12:.2,D(N,|
00000340: 31 29 3A 82 3A 8D 31 34 34 30 00 68 0B 7D 00 81 |1):.:.1440.h.}..|
00000350: 4E B2 31 A4 31 32 3A 84 32 2C 44 28 4E 2C 32 29 |N.1.12:.2,D(N,2)|
00000360: 3A 82 3A 8D 31 34 34 30 00 78 0B 82 00 A0 32 3A |:.:.1440.x....2:|
00000370: A0 31 35 3A 89 31 37 35 00 B1 0B 87 00 99 22 9B |.15:.175......".|
00000380: 93 11 11 22 3A 99 A3 31 33 29 44 24 3B 22 11 11 |...":..13)D$;"..|
00000390: 11 11 11 11 11 22 3A 99 22 1D 1D 1D 1D 1D 1D 1D |.....":.".......|
000003A0: 1D 1D 1D 1D 1D 1D 42 55 44 47 45 54 20 56 2E 32 |......BUDGET V.2|
000003B0: 22 00 E1 0B 8C 00 99 22 11 11 11 11 11 11 11 1D |"......"........|
000003C0: 1D 1D 1D 1D 49 53 20 54 48 49 53 20 44 41 54 45 |....IS THIS DATE|
000003D0: 20 43 4F 52 52 45 43 54 3F 20 20 28 59 2F 4E 29 | CORRECT? (Y/N)|
000003E0: 22 00 F5 0B 91 00 A1 41 24 3A 8B 20 41 24 B2 22 |"......A$:. A$."|
000003F0: 22 A7 31 34 35 00 06 0C 96 00 8B 20 41 24 B2 22 |".145...... A$."|
00000400: 59 22 A7 31 37 35 00 18 0C 9B 00 8B 20 41 24 B3 |Y".175...... A$.|
00000410: B1 22 4E 22 A7 31 34 35 00 45 0C A0 00 99 22 93 |."N".145.E....".|
00000420: 11 11 11 11 11 11 11 11 1D 1D 45 4E 54 45 52 20 |..........ENTER |
00000430: 4E 45 57 20 44 41 54 45 20 20 30 30 2F 30 30 2F |NEW DATE 00/00/|
00000440: 30 30 30 30 22 00 56 0C A5 00 85 22 11 11 11 20 |0000".V...."... |
00000450: 20 20 22 3B 44 24 00 69 0C AA 00 8B C3 28 44 24 | ";D$.i.....(D$|
00000460: 29 B3 B1 31 30 A7 31 36 30 00 8B 0C AF 00 99 22 |)..10.160......"|
00000470: 93 22 3B 3A 99 A3 31 34 29 3B 22 12 1F D5 B2 C0 |.";:..14);".....|
00000480: C0 C0 C0 C0 C0 C0 C0 C0 B2 C9 22 00 C1 0C B4 00 |..........".....|
00000490: 99 A3 33 29 22 9B 42 55 44 47 45 54 20 56 2E 32 |..3)".BUDGET V.2|
000004A0: 1F 20 12 DD DD 4D 41 49 4E 20 4D 45 4E 55 DD DD |. ...MAIN MENU..|
000004B0: 22 3B 3A 99 A3 32 38 29 22 92 9B 22 44 24 22 1F |";:..28)".."D$".|
000004C0: 22 00 DE 0C B9 00 99 A3 31 34 29 3B 22 12 CA B1 |".......14);"...|
000004D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 CB 9B 11 22 00 FA |............."..|
000004E0: 0C BE 00 99 A3 31 30 29 22 1E 50 4F 53 54 49 4E |.....10)".POSTIN|
000004F0: 47 9B 22 2C 2C 2C 2C 2C 2C 2C 00 18 0D C3 00 99 |G.",,,,,,,......|
00000500: A3 35 29 22 20 31 20 3D 20 42 55 44 47 45 54 20 |.5)" 1 = BUDGET |
00000510: 50 4F 53 54 49 4E 47 22 00 3A 0D C8 00 99 A3 35 |POSTING".:.....5|
00000520: 29 22 20 32 20 3D 20 41 55 54 4F 2D 44 45 50 4F |)" 2 = AUTO-DEPO|
00000530: 53 49 54 22 2C 2C 2C 2C 2C 2C 00 70 0D CD 00 99 |SIT",,,,,,.p....|
00000540: A3 31 30 29 22 1E 52 45 50 4F 52 54 53 9B 22 2C |.10)".REPORTS.",|
00000550: 2C 2C 2C 2C 2C 2C 3A 99 A3 35 29 22 20 33 20 3D |,,,,,,:..5)" 3 =|
00000560: 20 42 41 4C 41 4E 43 45 20 52 45 50 4F 52 54 22 | BALANCE REPORT"|
00000570: 00 94 0D D2 00 99 A3 36 29 22 20 20 20 20 20 9E |.......6)" .|
00000580: 12 20 46 31 20 92 9B 2D 2D 2D 3E 50 52 49 4E 54 |. F1 ..--->PRINT|
00000590: 45 52 9B 22 00 D3 0D D7 00 99 A3 35 29 22 20 34 |ER.".......5)" 4|
000005A0: 20 3D 20 4F 54 48 45 52 20 52 45 50 4F 52 54 53 | = OTHER REPORTS|
000005B0: 22 2C 2C 2C 2C 2C 2C 3A 99 A3 38 29 22 1E 20 20 |",,,,,,:..8)". |
000005C0: 4D 41 49 4E 54 45 4E 41 4E 43 45 9B 22 2C 2C 2C |MAINTENANCE.",,,|
000005D0: 2C 2C 2C 00 EE 0D DC 00 99 A3 35 29 22 20 35 20 |,,,.......5)" 5 |
000005E0: 3D 20 44 41 54 45 20 43 48 41 4E 47 45 22 00 11 |= DATE CHANGE"..|
000005F0: 0E E1 00 99 A3 35 29 22 20 36 20 3D 20 4C 4F 41 |.....5)" 6 = LOA|
00000600: 44 20 44 41 54 41 20 46 52 4F 4D 20 44 49 53 4B |D DATA FROM DISK|
00000610: 22 00 32 0E E6 00 99 A3 35 29 22 20 37 20 3D 20 |".2.....5)" 7 = |
00000620: 53 41 56 45 20 44 41 54 41 20 54 4F 20 44 49 53 |SAVE DATA TO DIS|
00000630: 4B 22 00 5D 0E EB 00 99 A3 36 29 22 38 20 3D 20 |K".].....6)"8 = |
00000640: 45 44 49 54 20 4D 4F 44 45 20 1C 12 43 41 55 54 |EDIT MODE ..CAUT|
00000650: 49 4F 4E 2D 45 4E 44 20 50 52 47 9B 22 00 80 0E |ION-END PRG."...|
00000660: F0 00 99 A3 35 29 22 20 39 20 3D 20 5A 45 52 4F |....5)" 9 = ZERO|
00000670: 20 41 43 43 4F 55 4E 54 53 22 2C 2C 2C 2C 2C 2C | ACCOUNTS",,,,,,|
00000680: 00 A4 0E F5 00 99 22 1E 20 20 20 20 20 20 20 20 |......". |
00000690: 50 52 45 53 53 20 23 20 4B 45 59 20 44 45 53 49 |PRESS # KEY DESI|
000006A0: 52 45 44 22 00 AE 0E FA 00 41 24 B2 22 22 00 D4 |RED".....A$.""..|
000006B0: 0E FF 00 99 22 91 1C 20 20 20 20 20 20 20 20 50 |....".. P|
000006C0: 52 45 53 53 20 23 20 4B 45 59 20 44 45 53 49 52 |RESS # KEY DESIR|
000006D0: 45 44 20 22 00 EE 0E 04 01 A1 41 24 3A 8B 41 24 |ED "......A$:.A$|
000006E0: B2 22 22 A7 99 22 91 91 22 3A 89 32 34 35 00 13 |."".."..":.245..|
000006F0: 0F 09 01 8B 28 C5 28 41 24 29 B3 31 B0 C5 28 41 |....(.(A$).1..(A|
00000700: 24 29 B1 39 29 AF 28 41 24 B3 B1 22 85 22 29 A7 |$).9).(A$..".").|
00000710: 32 36 30 00 1D 0F 0E 01 99 22 9B 22 3B 00 2D 0F |260......".";.-.|
00000720: 13 01 8B 41 24 B2 22 85 22 A7 36 31 35 00 61 0F |...A$.".".615.a.|
00000730: 18 01 91 C5 28 41 24 29 89 32 38 35 2C 35 34 35 |....(A$).285,545|
00000740: 2C 36 31 35 2C 31 30 31 30 2C 31 33 35 2C 31 36 |,615,1010,135,16|
00000750: 38 35 2C 31 37 31 30 2C 31 35 39 35 2C 31 36 30 |85,1710,1595,160|
00000760: 35 00 74 0F 1D 01 99 22 93 22 3B 22 50 4F 53 54 |5.t....".";"POST|
00000770: 49 4E 47 22 00 7C 0F 22 01 8D 37 30 00 86 0F 27 |ING".|."..70...'|
00000780: 01 50 24 B2 22 22 00 AB 0F 2C 01 99 3A 85 22 23 |.P$.""...,..:."#|
00000790: 20 4F 46 20 41 43 43 4F 55 4E 54 20 46 4F 52 20 | OF ACCOUNT FOR |
000007A0: 50 4F 53 54 49 4E 47 22 3B 50 24 00 BA 0F 31 01 |POSTING";P$...1.|
000007B0: 8B 50 24 B2 22 22 A7 31 37 35 00 C6 0F 36 01 4E |.P$."".175...6.N|
000007C0: B2 C5 28 50 24 29 00 E5 0F 3B 01 99 22 93 50 4F |..(P$)...;..".PO|
000007D0: 53 54 49 4E 47 20 54 4F 20 41 43 43 4F 55 4E 54 |STING TO ACCOUNT|
000007E0: 20 23 22 3B 4E 00 09 10 40 01 4E 55 B2 54 28 4E | #";N...@.NU.T(N|
000007F0: 2C 31 29 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 |,1):K$."XX,XXX.X|
00000800: 58 2D 22 3A 8D 31 34 36 35 00 2B 10 45 01 99 3A |X-":.1465.+.E..:|
00000810: 99 43 24 28 4E 29 3A 99 3A 99 22 49 4E 43 4F 4D |.C$(N):.:."INCOM|
00000820: 45 20 20 22 3B A6 32 29 3B 4B 24 00 4F 10 4A 01 |E ";.2);K$.O.J.|
00000830: 4E 55 B2 54 28 4E 2C 32 29 3A 4B 24 B2 22 58 58 |NU.T(N,2):K$."XX|
00000840: 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 34 36 35 00 |,XXX.XX-":.1465.|
00000850: 66 10 4F 01 99 22 45 58 50 45 4E 53 45 20 22 3B |f.O.."EXPENSE ";|
00000860: A6 32 29 3B 4B 24 00 94 10 54 01 4E 55 B2 B5 28 |.2);K$...T.NU..(|
00000870: 54 28 4E 2C 31 29 AB 54 28 4E 2C 32 29 29 3A 4B |T(N,1).T(N,2)):K|
00000880: 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D |$."XX,XXX.XX-":.|
00000890: 31 34 36 35 00 AB 10 59 01 99 22 42 41 4C 41 4E |1465...Y.."BALAN|
000008A0: 43 45 20 22 3B A6 32 29 3B 4B 24 00 EE 10 5E 01 |CE ";.2);K$...^.|
000008B0: 99 3A 99 22 20 1E 12 20 20 2B 20 20 92 9B 3D 49 |.:." .. + ..=I|
000008C0: 4E 43 52 45 41 53 45 20 49 4E 43 4F 4D 45 22 3A |NCREASE INCOME":|
000008D0: 99 22 20 1C 12 20 20 2D 20 20 92 9B 3D 49 4E 43 |." .. - ..=INC|
000008E0: 52 45 41 53 45 20 45 58 50 45 4E 53 45 22 00 09 |REASE EXPENSE"..|
000008F0: 11 63 01 99 22 20 52 45 54 3D 52 45 54 55 52 4E |.c.." RET=RETURN|
00000900: 20 54 4F 20 4D 45 4E 55 22 00 1C 11 68 01 A1 41 | TO MENU"...h..A|
00000910: 24 3A 8B 41 24 B2 22 22 A7 33 36 30 00 2C 11 6D |$:.A$."".360.,.m|
00000920: 01 8B 41 24 B2 22 2B 22 A7 33 38 35 00 3C 11 72 |..A$."+".385.<.r|
00000930: 01 8B 41 24 B2 22 2D 22 A7 34 36 35 00 4B 11 77 |..A$."-".465.K.w|
00000940: 01 8B 41 24 B2 22 22 A7 32 39 30 00 54 11 7C 01 |..A$."".290.T.|.|
00000950: 89 32 39 30 00 7B 11 81 01 99 3A 85 22 1E 41 4D |.290.{....:.".AM|
00000960: 4F 55 4E 54 20 54 4F 20 49 4E 43 52 45 41 53 45 |OUNT TO INCREASE|
00000970: 20 49 4E 43 4F 4D 45 9B 22 3B 49 00 A1 11 86 01 | INCOME.";I.....|
00000980: 4E 55 B2 54 28 4E 2C 31 29 AA 49 3A 4B 24 B2 22 |NU.T(N,1).I:K$."|
00000990: 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 34 36 |XX,XXX.XX-":.146|
000009A0: 35 00 B6 11 8B 01 99 3A 99 22 49 4E 43 4F 4D 45 |5......:."INCOME|
000009B0: 20 20 22 3B 4B 24 00 DA 11 90 01 4E 55 B2 54 28 | ";K$.....NU.T(|
000009C0: 4E 2C 32 29 3A 4B 24 B2 22 58 58 2C 58 58 58 2E |N,2):K$."XX,XXX.|
000009D0: 58 58 2D 22 3A 8D 31 34 36 35 00 ED 11 95 01 99 |XX-":.1465......|
000009E0: 22 45 58 50 45 4E 53 45 20 22 3B 4B 24 00 1D 12 |"EXPENSE ";K$...|
000009F0: 9A 01 4E 55 B2 B5 28 54 28 4E 2C 31 29 AB 54 28 |..NU..(T(N,1).T(|
00000A00: 4E 2C 32 29 AA 49 29 3A 4B 24 B2 22 58 58 2C 58 |N,2).I):K$."XX,X|
00000A10: 58 58 2E 58 58 2D 22 3A 8D 31 34 36 35 00 37 12 |XX.XX-":.1465.7.|
00000A20: 9F 01 99 22 20 20 20 20 20 20 20 20 C5 C5 C5 C5 |..." ....|
00000A30: C5 C5 C5 C5 C5 C5 22 00 4A 12 A4 01 99 22 42 41 |......".J...."BA|
00000A40: 4C 41 4E 43 45 20 22 3B 4B 24 00 5E 12 A9 01 99 |LANCE ";K$.^....|
00000A50: 22 43 4F 52 52 45 43 54 20 59 2F 4E 3F 22 00 71 |"CORRECT Y/N?".q|
00000A60: 12 AE 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 33 |....A$:.A$."".43|
00000A70: 30 00 81 12 B3 01 8B 41 24 B2 22 4E 22 A7 33 31 |0......A$."N".31|
00000A80: 35 00 92 12 B8 01 8B 41 24 B3 B1 22 59 22 A7 34 |5......A$.."Y".4|
00000A90: 33 30 00 A9 12 BD 01 54 28 4E 2C 31 29 B2 B5 28 |30.....T(N,1)..(|
00000AA0: 54 28 4E 2C 31 29 AA 49 29 00 C8 12 C2 01 8B 4E |T(N,1).I)......N|
00000AB0: B1 32 34 A7 54 28 32 34 2C 31 29 B2 B5 28 54 28 |.24.T(24,1)..(T(|
00000AC0: 32 34 2C 31 29 AA 49 29 00 F1 12 C7 01 44 28 C5 |24,1).I).....D(.|
00000AD0: 28 C8 28 44 24 2C 32 29 29 2C 31 29 B2 B5 28 44 |(.(D$,2)),1)..(D|
00000AE0: 28 C5 28 C8 28 44 24 2C 32 29 29 2C 31 29 AA 49 |(.(.(D$,2)),1).I|
00000AF0: 29 00 FA 12 CC 01 89 33 31 35 00 22 13 D1 01 99 |)......315."....|
00000B00: 3A 85 22 1C 41 4D 4F 55 4E 54 20 54 4F 20 49 4E |:.".AMOUNT TO IN|
00000B10: 43 52 45 41 53 45 20 45 58 50 45 4E 53 45 9B 22 |CREASE EXPENSE."|
00000B20: 3B 49 00 46 13 D6 01 4E 55 B2 54 28 4E 2C 31 29 |;I.F...NU.T(N,1)|
00000B30: 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 |:K$."XX,XXX.XX-"|
00000B40: 3A 8D 31 34 36 35 00 5B 13 DB 01 99 3A 99 22 49 |:.1465.[....:."I|
00000B50: 4E 43 4F 4D 45 20 20 22 3B 4B 24 00 81 13 E0 01 |NCOME ";K$.....|
00000B60: 4E 55 B2 54 28 4E 2C 32 29 AA 49 3A 4B 24 B2 22 |NU.T(N,2).I:K$."|
00000B70: 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 34 36 |XX,XXX.XX-":.146|
00000B80: 35 00 94 13 E5 01 99 22 45 58 50 45 4E 53 45 20 |5......"EXPENSE |
00000B90: 22 3B 4B 24 00 C6 13 EA 01 4E 55 B2 B5 28 54 28 |";K$.....NU..(T(|
00000BA0: 4E 2C 31 29 AB 28 54 28 4E 2C 32 29 AA 49 29 29 |N,1).(T(N,2).I))|
00000BB0: 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 |:K$."XX,XXX.XX-"|
00000BC0: 3A 8D 31 34 36 35 00 E0 13 EF 01 99 22 20 20 20 |:.1465......" |
00000BD0: 20 20 20 20 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 | .........."|
00000BE0: 00 F3 13 F4 01 99 22 42 41 4C 41 4E 43 45 20 22 |......"BALANCE "|
00000BF0: 3B 4B 24 00 07 14 F9 01 99 22 43 4F 52 52 45 43 |;K$......"CORREC|
00000C00: 54 20 59 2F 4E 3F 22 00 1A 14 FE 01 A1 41 24 3A |T Y/N?"......A$:|
00000C10: 8B 41 24 B2 22 22 A7 35 31 30 00 2A 14 03 02 8B |.A$."".510.*....|
00000C20: 41 24 B2 22 4E 22 A7 33 31 35 00 3B 14 08 02 8B |A$."N".315.;....|
00000C30: 41 24 B3 B1 22 59 22 A7 35 31 30 00 52 14 0D 02 |A$.."Y".510.R...|
00000C40: 54 28 4E 2C 32 29 B2 B5 28 54 28 4E 2C 32 29 AA |T(N,2)..(T(N,2).|
00000C50: 49 29 00 71 14 12 02 8B 4E B1 32 34 A7 54 28 32 |I).q....N.24.T(2|
00000C60: 34 2C 32 29 B2 B5 28 54 28 32 34 2C 32 29 AA 49 |4,2)..(T(24,2).I|
00000C70: 29 00 9A 14 17 02 44 28 C5 28 C8 28 44 24 2C 32 |).....D(.(.(D$,2|
00000C80: 29 29 2C 32 29 B2 B5 28 44 28 C5 28 C8 28 44 24 |)),2)..(D(.(.(D$|
00000C90: 2C 32 29 29 2C 32 29 AA 49 29 00 A3 14 1C 02 89 |,2)),2).I)......|
00000CA0: 33 31 35 00 BB 14 21 02 99 22 93 22 3B 22 41 55 |315...!..".";"AU|
00000CB0: 54 4F 2D 44 45 50 4F 53 49 54 22 00 DA 14 26 02 |TO-DEPOSIT"...&.|
00000CC0: 4E 55 B2 46 3A 4B 24 B2 22 58 58 2C 58 58 58 2E |NU.F:K$."XX,XXX.|
00000CD0: 58 58 2D 22 3A 8D 31 34 36 35 00 FB 14 2B 02 99 |XX-":.1465...+..|
00000CE0: A3 32 30 30 29 22 45 4E 54 45 52 20 44 45 50 4F |.200)"ENTER DEPO|
00000CF0: 53 49 54 20 41 4D 4F 55 4E 54 22 00 2C 15 30 02 |SIT AMOUNT".,.0.|
00000D00: 99 22 11 11 1D 1D 1C 2A 2A 2A 9B 44 4F 20 4E 4F |.".....***.DO NO|
00000D10: 54 20 55 53 45 20 44 45 43 49 4D 41 4C 20 50 4F |T USE DECIMAL PO|
00000D20: 49 4E 54 1C 2A 2A 2A 9B 11 11 11 22 00 5B 15 35 |INT.***....".[.5|
00000D30: 02 99 22 4D 55 53 54 20 42 45 20 41 54 20 4C 45 |.."MUST BE AT LE|
00000D40: 41 53 54 20 24 22 3B 4B 24 3B 3A 85 44 50 24 3A |AST $";K$;:.DP$:|
00000D50: 8B 44 50 24 B2 22 22 A7 31 37 35 00 69 15 3A 02 |.DP$."".175.i.:.|
00000D60: 44 50 B2 C5 28 44 50 24 29 00 71 15 3F 02 42 B2 |DP..(DP$).q.?.B.|
00000D70: 30 00 77 15 44 02 8C 00 9F 15 49 02 81 4E B2 31 |0.w.D.....I..N.1|
00000D80: A4 32 33 3A 87 51 3A 42 B2 42 AA 51 3A 54 28 4E |.23:.Q:B.B.Q:T(N|
00000D90: 2C 31 29 B2 B5 28 54 28 4E 2C 31 29 AA 51 29 00 |,1)..(T(N,1).Q).|
00000DA0: CA 15 4E 02 44 28 C5 28 C8 28 44 24 2C 32 29 29 |..N.D(.(.(D$,2))|
00000DB0: 2C 31 29 B2 B5 28 44 28 C5 28 C8 28 44 24 2C 32 |,1)..(D(.(.(D$,2|
00000DC0: 29 29 2C 31 29 AA 51 29 3A 82 00 F8 15 53 02 44 |)),1).Q):....S.D|
00000DD0: 28 C5 28 C8 28 44 24 2C 32 29 29 2C 31 29 B2 B5 |(.(.(D$,2)),1)..|
00000DE0: 28 28 44 28 C5 28 C8 28 44 24 2C 32 29 29 2C 31 |((D(.(.(D$,2)),1|
00000DF0: 29 AA 44 50 29 AB 46 29 00 16 16 58 02 54 28 32 |).DP).F)...X.T(2|
00000E00: 34 2C 31 29 B2 B5 28 28 54 28 32 34 2C 31 29 AA |4,1)..((T(24,1).|
00000E10: 44 50 29 AB 46 29 00 34 16 5D 02 54 28 32 35 2C |DP).F).4.].T(25,|
00000E20: 31 29 B2 B5 28 28 54 28 32 35 2C 31 29 AA 44 50 |1)..((T(25,1).DP|
00000E30: 29 AB 46 29 00 3D 16 62 02 89 31 37 35 00 47 16 |).F).=.b..175.G.|
00000E40: 67 02 99 22 93 22 3B 00 4D 16 6C 02 8C 00 56 16 |g..".";.M.l...V.|
00000E50: 71 02 42 41 B2 30 00 66 16 76 02 8B 41 24 B2 22 |q.BA.0.f.v..A$."|
00000E60: 85 22 A7 37 35 30 00 8B 16 7B 02 81 4E B2 31 A4 |.".750...{..N.1.|
00000E70: 32 34 3A 42 41 B2 42 41 AA B5 28 28 54 28 4E 2C |24:BA.BA..((T(N,|
00000E80: 31 29 AB 54 28 4E 2C 32 29 29 29 00 9B 16 80 02 |1).T(N,2))).....|
00000E90: 8B 4E B3 31 30 A7 99 22 20 22 3B 00 B1 16 85 02 |.N.10.." ";.....|
00000EA0: 99 4E 3B 3A 99 C8 28 43 24 28 4E 29 2C 31 35 29 |.N;:..(C$(N),15)|
00000EB0: 3B 00 CA 16 8A 02 8B 4E B3 32 34 A7 87 41 3A 99 |;......N.24..A:.|
00000EC0: A3 31 39 29 41 AD 31 30 30 3B 00 F8 16 8F 02 4E |.19)A.100;.....N|
00000ED0: 55 B2 B5 28 54 28 4E 2C 31 29 AB 54 28 4E 2C 32 |U..(T(N,1).T(N,2|
00000EE0: 29 29 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 |)):K$."XX,XXX.XX|
00000EF0: 2D 22 3A 8D 31 34 36 35 00 04 17 94 02 99 A3 32 |-":.1465.......2|
00000F00: 34 29 4B 24 00 0A 17 99 02 82 00 1D 17 9E 02 A1 |4)K$............|
00000F10: 41 24 3A 8B 41 24 B2 22 22 A7 36 37 30 00 2F 17 |A$:.A$."".670./.|
00000F20: A3 02 8B 41 24 B2 22 50 22 A7 8D 31 34 36 35 00 |...A$."P"..1465.|
00000F30: 39 17 A8 02 99 22 93 22 3B 00 5C 17 AD 02 4E 55 |9....".";.\...NU|
00000F40: B2 B5 28 42 41 29 3A 4B 24 B2 22 58 58 2C 58 58 |..(BA):K$."XX,XX|
00000F50: 58 2E 58 58 2D 22 3A 8D 31 34 36 35 00 87 17 B2 |X.XX-":.1465....|
00000F60: 02 99 22 24 22 4B 24 3B 22 20 49 53 20 59 4F 55 |.."$"K$;" IS YOU|
00000F70: 52 20 54 4F 54 41 4C 20 46 4F 52 20 43 48 45 43 |R TOTAL FOR CHEC|
00000F80: 4B 42 4F 4F 4B 2E 22 00 AB 17 B7 02 42 41 B2 30 |KBOOK.".....BA.0|
00000F90: 3A 99 3A 81 4E B2 32 34 A4 34 30 3A 99 4E 3B C8 |:.:.N.24.40:.N;.|
00000FA0: 28 43 24 28 4E 29 2C 31 33 29 3B 00 D9 17 BC 02 |(C$(N),13);.....|
00000FB0: 4E 55 B2 B5 28 54 28 4E 2C 31 29 AB 54 28 4E 2C |NU..(T(N,1).T(N,|
00000FC0: 32 29 29 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 |2)):K$."XX,XXX.X|
00000FD0: 58 2D 22 3A 8D 31 34 36 35 00 F2 17 C1 02 8B 4E |X-":.1465......N|
00000FE0: B2 32 34 A7 99 A3 33 30 29 4B 24 3A 4D 42 24 B2 |.24...30)K$:MB$.|
00000FF0: 4B 24 00 04 18 C6 02 8B 4E B1 32 34 A7 99 A3 32 |K$......N.24...2|
00001000: 30 29 4B 24 00 27 18 CB 02 8B 4E B1 32 34 A7 42 |0)K$.'....N.24.B|
00001010: 41 B2 42 41 AA B5 28 28 54 28 4E 2C 31 29 AB 54 |A.BA..((T(N,1).T|
00001020: 28 4E 2C 32 29 29 29 00 2D 18 D0 02 82 00 33 18 |(N,2))).-.....3.|
00001030: D5 02 99 00 56 18 DA 02 4E 55 B2 B5 28 42 41 29 |....V...NU..(BA)|
00001040: 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 |:K$."XX,XXX.XX-"|
00001050: 3A 8D 31 34 36 35 00 73 18 DF 02 99 A3 32 30 29 |:.1465.s.....20)|
00001060: 4B 24 3B 3A 99 A3 33 30 29 4D 42 24 3A 4D 42 24 |K$;:..30)MB$:MB$|
00001070: B2 22 22 00 86 18 E4 02 A1 41 24 3A 8B 41 24 B2 |.""......A$:.A$.|
00001080: 22 22 A7 37 34 30 00 8F 18 E9 02 89 31 37 35 00 |"".740......175.|
00001090: 9C 18 EE 02 50 B2 30 3A 9F 33 2C 34 00 B8 18 F3 |....P.0:.3,4....|
000010A0: 02 98 33 3A 8B A8 C2 28 31 34 34 29 AF 31 32 38 |..3:...(144).128|
000010B0: A7 A0 33 3A 89 37 38 30 00 F3 18 F8 02 99 22 13 |..3:.780......".|
000010C0: 11 11 11 11 1C 20 20 2A 2A 2A 9B 20 50 4C 45 41 |..... ***. PLEA|
000010D0: 53 45 20 54 55 52 4E 20 54 48 45 20 50 52 49 4E |SE TURN THE PRIN|
000010E0: 54 45 52 20 4F 4E 20 1C 2A 2A 2A 9B 22 3A 50 B2 |TER ON .***.":P.|
000010F0: 50 AA 31 00 06 19 FD 02 8B 50 B1 37 39 39 A7 A0 |P.1......P.799..|
00001100: 33 3A 89 31 37 35 00 0F 19 02 03 89 37 35 35 00 |3:.175......755.|
00001110: 17 19 07 03 50 B2 30 00 20 19 0C 03 9F 33 2C 34 |....P.0. ....3,4|
00001120: 00 33 19 11 03 54 35 24 B2 C7 28 31 36 29 AA 22 |.3...T5$..(16)."|
00001130: 30 35 22 00 41 19 16 03 42 42 B2 30 3A 42 43 B2 |05".A...BB.0:BC.|
00001140: 30 00 63 19 1B 03 99 22 11 11 11 11 11 11 11 11 |0.c...."........|
00001150: 1D 1D 1D 1D 1D 1D 1D 50 52 49 4E 54 49 4E 47 2E |.......PRINTING.|
00001160: 2E 2E 22 00 71 19 20 03 98 33 2C C7 28 31 34 29 |..".q. ..3,.(14)|
00001170: 3B 00 8D 19 25 03 98 33 2C A6 31 36 29 22 42 41 |;...%..3,.16)"BA|
00001180: 4C 41 4E 43 45 53 22 3B C7 28 31 35 29 00 97 19 |LANCES";.(15)...|
00001190: 2A 03 98 33 3A 98 33 00 B1 19 2F 03 98 33 2C A6 |*..3:.3.../..3,.|
000011A0: 33 35 29 44 24 3B C7 28 31 33 29 3B C7 28 31 33 |35)D$;.(13);.(13|
000011B0: 29 00 C4 19 34 03 54 31 24 B2 C7 28 31 36 29 AA |)...4.T1$..(16).|
000011C0: 22 33 35 22 00 D7 19 39 03 54 32 24 B2 C7 28 31 |"35"...9.T2$..(1|
000011D0: 36 29 AA 22 34 38 22 00 EA 19 3E 03 54 33 24 B2 |6)."48"...>.T3$.|
000011E0: C7 28 31 36 29 AA 22 36 35 22 00 FD 19 43 03 54 |.(16)."65"...C.T|
000011F0: 34 24 B2 C7 28 31 36 29 AA 22 32 34 22 00 29 1A |4$..(16)."24".).|
00001200: 48 03 98 33 2C 22 41 43 43 4F 55 4E 54 22 3B 54 |H..3,"ACCOUNT";T|
00001210: 34 24 3B 22 41 4D 54 22 3B 54 31 24 3B 22 20 20 |4$;"AMT";T1$;" |
00001220: 42 41 4C 41 4E 43 45 22 3B 00 50 1A 4D 03 98 33 |BALANCE";.P.M..3|
00001230: 2C 54 32 24 3B 22 20 20 20 49 4E 43 4F 4D 45 22 |,T2$;" INCOME"|
00001240: 3B 54 33 24 3B 22 20 45 58 50 45 4E 53 45 53 22 |;T3$;" EXPENSES"|
00001250: 00 92 1A 52 03 81 4E B2 31 A4 32 34 3A 42 41 B2 |...R..N.1.24:BA.|
00001260: 42 41 AA 28 54 28 4E 2C 31 29 AB 54 28 4E 2C 32 |BA.(T(N,1).T(N,2|
00001270: 29 29 3A 42 42 B2 B5 28 42 42 AA 54 28 4E 2C 31 |)):BB..(BB.T(N,1|
00001280: 29 29 3A 42 43 B2 B5 28 42 43 AA 54 28 4E 2C 32 |)):BC..(BC.T(N,2|
00001290: 29 29 00 AA 1A 57 03 98 33 2C 54 35 24 3B C8 28 |))...W..3,T5$;.(|
000012A0: 43 24 28 4E 29 2C 31 35 29 3B 00 C5 1A 5C 03 8B |C$(N),15);...\..|
000012B0: 4E B3 32 34 A7 87 41 3A 98 33 2C 54 34 24 3B 41 |N.24..A:.3,T4$;A|
000012C0: AD 31 30 30 3B 00 F3 1A 61 03 4E 55 B2 B5 28 54 |.100;...a.NU..(T|
000012D0: 28 4E 2C 31 29 AB 54 28 4E 2C 32 29 29 3A 4B 24 |(N,1).T(N,2)):K$|
000012E0: B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 |."XX,XXX.XX-":.1|
000012F0: 34 36 35 00 25 1B 66 03 98 33 2C 54 31 24 3B 4B |465.%.f..3,T1$;K|
00001300: 24 3B 3A 4E 55 B2 B5 28 54 28 4E 2C 31 29 29 3A |$;:NU..(T(N,1)):|
00001310: 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A |K$."XX,XXX.XX-":|
00001320: 8D 31 34 36 35 00 57 1B 6B 03 98 33 2C 54 32 24 |.1465.W.k..3,T2$|
00001330: 3B 4B 24 3B 3A 4E 55 B2 B5 28 54 28 4E 2C 32 29 |;K$;:NU..(T(N,2)|
00001340: 29 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D |):K$."XX,XXX.XX-|
00001350: 22 3A 8D 31 34 36 35 00 65 1B 70 03 98 33 2C 54 |":.1465.e.p..3,T|
00001360: 33 24 3B 4B 24 00 6E 1B 75 03 82 3A 98 33 00 8E |3$;K$.n.u..:.3..|
00001370: 1B 7A 03 4E 55 B2 42 41 3A 4B 24 B2 22 58 58 2C |.z.NU.BA:K$."XX,|
00001380: 58 58 58 2E 58 58 2D 22 3A 8D 31 34 36 35 00 B8 |XXX.XX-":.1465..|
00001390: 1B 7F 03 98 33 2C C7 28 31 34 29 3B 54 35 24 3B |....3,.(14);T5$;|
000013A0: 22 54 4F 54 41 4C 53 20 3D 22 3B C7 28 31 35 29 |"TOTALS =";.(15)|
000013B0: 3B 54 31 24 3B 4B 24 3B 00 D8 1B 84 03 4E 55 B2 |;T1$;K$;.....NU.|
000013C0: 42 42 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 |BB:K$."XX,XXX.XX|
000013D0: 2D 22 3A 8D 31 34 36 35 00 E7 1B 89 03 98 33 2C |-":.1465......3,|
000013E0: 54 32 24 3B 4B 24 3B 00 07 1C 8E 03 4E 55 B2 42 |T2$;K$;.....NU.B|
000013F0: 43 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D |C:K$."XX,XXX.XX-|
00001400: 22 3A 8D 31 34 36 35 00 15 1C 93 03 98 33 2C 54 |":.1465......3,T|
00001410: 33 24 3B 4B 24 00 1C 1C 98 03 98 33 00 3C 1C 9D |3$;K$......3.<..|
00001420: 03 4E 55 B2 42 41 3A 4B 24 B2 22 58 58 2C 58 58 |.NU.BA:K$."XX,XX|
00001430: 58 2E 58 58 2D 22 3A 8D 31 34 36 35 00 6B 1C A2 |X.XX-":.1465.k..|
00001440: 03 98 33 2C 54 35 24 3B C7 28 31 34 29 3B 22 43 |..3,T5$;.(14);"C|
00001450: 48 45 43 4B 42 4F 4F 4B 20 54 4F 54 41 4C 20 3D |HECKBOOK TOTAL =|
00001460: 20 24 22 4B 24 3B C7 28 31 35 29 00 91 1C A7 03 | $"K$;.(15).....|
00001470: 42 41 B2 30 3A 98 33 2C 3A 81 4E B2 32 34 A4 34 |BA.0:.3,:.N.24.4|
00001480: 30 3A 98 33 2C C8 28 43 24 28 4E 29 2C 31 35 29 |0:.3,.(C$(N),15)|
00001490: 3B 00 C5 1C AC 03 8B 4E B2 32 34 A7 4E 55 B2 B5 |;......N.24.NU..|
000014A0: 28 54 28 4E 2C 31 29 AB 54 28 4E 2C 32 29 29 3A |(T(N,1).T(N,2)):|
000014B0: 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A |K$."XX,XXX.XX-":|
000014C0: 8D 31 34 36 35 00 E1 1C B1 03 8B 4E B2 32 34 A7 |.1465......N.24.|
000014D0: 98 33 2C 54 31 24 3B 22 20 22 C8 28 4B 24 2C 39 |.3,T1$;" ".(K$,9|
000014E0: 29 00 0B 1D B6 03 8B 4E B1 32 34 A7 4E 55 B2 54 |)......N.24.NU.T|
000014F0: 28 4E 2C 32 29 3A 4B 24 B2 22 58 58 2C 58 58 58 |(N,2):K$."XX,XXX|
00001500: 2E 58 58 2D 22 3A 8D 31 34 36 35 00 1F 1D BB 03 |.XX-":.1465.....|
00001510: 8B 4E B1 32 34 A7 98 33 2C 54 34 24 3B 4B 24 00 |.N.24..3,T4$;K$.|
00001520: 39 1D C0 03 8B 4E B1 32 34 A7 42 41 B2 B5 28 42 |9....N.24.BA..(B|
00001530: 41 AA 54 28 4E 2C 32 29 29 00 3F 1D C5 03 82 00 |A.T(N,2)).?.....|
00001540: 5F 1D CA 03 98 33 3A 98 33 2C C7 28 31 34 29 3B |_....3:.3,.(14);|
00001550: 22 54 4F 54 41 4C 53 22 3B C7 28 31 35 29 3B 00 |"TOTALS";.(15);.|
00001560: 7F 1D CF 03 4E 55 B2 42 41 3A 4B 24 B2 22 58 58 |....NU.BA:K$."XX|
00001570: 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 34 36 35 00 |,XXX.XX-":.1465.|
00001580: 92 1D D4 03 98 33 2C 54 34 24 3B 22 20 22 3B 4B |.....3,T4$;" ";K|
00001590: 24 3B 00 C2 1D D9 03 4E 55 B2 B5 28 54 28 32 34 |$;.....NU..(T(24|
000015A0: 2C 31 29 AB 54 28 32 34 2C 32 29 29 3A 4B 24 B2 |,1).T(24,2)):K$.|
000015B0: 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 34 |"XX,XXX.XX-":.14|
000015C0: 36 35 00 D8 1D DE 03 98 33 2C 54 31 24 3B 22 20 |65......3,T1$;" |
000015D0: 22 C8 28 4B 24 2C 39 29 00 E5 1D E3 03 98 33 2C |".(K$,9)......3,|
000015E0: C7 28 31 32 29 00 EC 1D E8 03 A0 33 00 F5 1D ED |.(12)......3....|
000015F0: 03 89 31 37 35 00 27 1E F2 03 42 41 B2 30 3A 42 |..175.'...BA.0:B|
00001600: 45 B2 30 3A 99 22 93 11 11 11 11 11 1D 1D 1D 1D |E.0:."..........|
00001610: 1D 1D 1D 1D 1D 1D 4F 54 48 45 52 20 52 45 50 4F |......OTHER REPO|
00001620: 52 54 53 11 11 11 22 00 6E 1E F7 03 99 22 12 9E |RTS...".n...."..|
00001630: 20 31 20 9B 92 3D 20 53 50 52 45 41 44 53 48 45 | 1 ..= SPREADSHE|
00001640: 45 54 22 3A 99 22 12 9E 20 32 20 9B 92 3D 20 4D |ET":.".. 2 ..= M|
00001650: 4F 4E 54 48 4C 59 20 47 52 41 50 48 49 43 20 45 |ONTHLY GRAPHIC E|
00001660: 58 50 45 4E 53 45 2F 49 4E 43 4F 4D 45 22 00 95 |XPENSE/INCOME"..|
00001670: 1E FC 03 99 22 12 9E 20 33 20 9B 92 3D 20 57 45 |....".. 3 ..= WE|
00001680: 45 4B 4C 59 20 47 52 41 50 48 49 43 20 45 58 50 |EKLY GRAPHIC EXP|
00001690: 45 4E 53 45 22 00 AF 1E 01 04 99 22 12 9E 52 45 |ENSE"......"..RE|
000016A0: 54 9B 92 3D 20 4D 41 49 4E 20 4D 45 4E 55 22 00 |T..= MAIN MENU".|
000016B0: C3 1E 06 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.....A$:.A$."".1|
000016C0: 30 33 30 00 D5 1E 0B 04 8B 41 24 B2 C7 28 31 33 |030......A$..(13|
000016D0: 29 A7 31 37 35 00 EF 1E 10 04 8B C5 28 41 24 29 |).175.......(A$)|
000016E0: B3 31 B0 C5 28 41 24 29 B1 33 A7 31 30 33 30 00 |.1..(A$).3.1030.|
000016F0: 09 1F 15 04 91 C5 28 41 24 29 89 31 30 35 30 2C |......(A$).1050,|
00001700: 31 31 39 35 2C 31 32 39 30 00 13 1F 1A 04 99 22 |1195,1290......"|
00001710: 93 22 3B 00 1F 1F 1F 04 81 4E B2 31 A4 32 34 00 |.";......N.1.24.|
00001720: 2F 1F 24 04 8B 4E B3 31 30 A7 99 22 20 22 3B 00 |/.$..N.10.." ";.|
00001730: 53 1F 29 04 4E 55 B2 54 28 4E 2C 31 29 3A 4B 24 |S.).NU.T(N,1):K$|
00001740: B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 |."XX,XXX.XX-":.1|
00001750: 34 36 35 00 6F 1F 2E 04 99 4E 3B C8 28 43 24 28 |465.o....N;.(C$(|
00001760: 4E 29 2C 31 33 29 3B A3 31 38 29 3B 4B 24 3B 00 |N),13);.18);K$;.|
00001770: 93 1F 33 04 4E 55 B2 54 28 4E 2C 32 29 3A 4B 24 |..3.NU.T(N,2):K$|
00001780: B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D 31 |."XX,XXX.XX-":.1|
00001790: 34 36 35 00 9F 1F 38 04 99 A3 32 39 29 4B 24 00 |465...8...29)K$.|
000017A0: C3 1F 3D 04 42 41 B2 B5 28 42 41 AA 54 28 4E 2C |..=.BA..(BA.T(N,|
000017B0: 31 29 29 3A 42 45 B2 B5 28 42 45 AA 54 28 4E 2C |1)):BE..(BE.T(N,|
000017C0: 32 29 29 00 C9 1F 42 04 82 00 E9 1F 47 04 4E 55 |2))...B.....G.NU|
000017D0: B2 42 41 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 |.BA:K$."XX,XXX.X|
000017E0: 58 2D 22 3A 8D 31 34 36 35 00 F7 1F 4C 04 99 A3 |X-":.1465...L...|
000017F0: 31 38 29 3B 4B 24 3B 00 17 20 51 04 4E 55 B2 42 |18);K$;.. Q.NU.B|
00001800: 45 3A 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D |E:K$."XX,XXX.XX-|
00001810: 22 3A 8D 31 34 36 35 00 25 20 56 04 99 A3 32 39 |":.1465.% V...29|
00001820: 29 3B 4B 24 3B 00 39 20 5B 04 A1 41 24 3A 8B 41 |);K$;.9 [..A$:.A|
00001830: 24 B2 22 22 A7 31 31 31 35 00 43 20 60 04 99 22 |$."".1115.C `.."|
00001840: 93 22 3B 00 53 20 65 04 42 41 B2 30 3A 42 45 B2 |.";.S e.BA.0:BE.|
00001850: 30 3A 99 00 60 20 6A 04 81 4E B2 32 35 A4 34 30 |0:..` j..N.25.40|
00001860: 00 84 20 6F 04 4E 55 B2 54 28 4E 2C 31 29 3A 4B |.. o.NU.T(N,1):K|
00001870: 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D |$."XX,XXX.XX-":.|
00001880: 31 34 36 35 00 A0 20 74 04 99 4E 3B C8 28 43 24 |1465.. t..N;.(C$|
00001890: 28 4E 29 2C 31 33 29 3B A3 31 38 29 3B 4B 24 3B |(N),13);.18);K$;|
000018A0: 00 C4 20 79 04 4E 55 B2 54 28 4E 2C 32 29 3A 4B |.. y.NU.T(N,2):K|
000018B0: 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A 8D |$."XX,XXX.XX-":.|
000018C0: 31 34 36 35 00 D1 20 7E 04 99 A3 32 39 29 3B 4B |1465.. ~...29);K|
000018D0: 24 00 EF 20 83 04 42 41 B2 42 41 AA 54 28 4E 2C |$.. ..BA.BA.T(N,|
000018E0: 31 29 3A 42 45 B2 42 45 AA 54 28 4E 2C 32 29 00 |1):BE.BE.T(N,2).|
000018F0: F5 20 88 04 82 00 15 21 8D 04 4E 55 B2 42 41 3A |. .....!..NU.BA:|
00001900: 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A |K$."XX,XXX.XX-":|
00001910: 8D 31 34 36 35 00 25 21 92 04 99 3A 99 A3 31 38 |.1465.%!...:..18|
00001920: 29 3B 4B 24 3B 00 45 21 97 04 4E 55 B2 42 45 3A |);K$;.E!..NU.BE:|
00001930: 4B 24 B2 22 58 58 2C 58 58 58 2E 58 58 2D 22 3A |K$."XX,XXX.XX-":|
00001940: 8D 31 34 36 35 00 52 21 9C 04 99 A3 32 39 29 3B |.1465.R!....29);|
00001950: 4B 24 00 66 21 A1 04 A1 41 24 3A 8B 41 24 B2 22 |K$.f!...A$:.A$."|
00001960: 22 A7 31 31 38 35 00 6F 21 A6 04 89 31 37 35 00 |".1185.o!...175.|
00001970: B2 21 AB 04 99 22 93 11 1D 1D 1D 1D 4D 4F 4E 54 |.!..."......MONT|
00001980: 48 4C 59 11 9D 9D 9D 9D 9D 9D 9D 96 45 58 50 45 |HLY.........EXPE|
00001990: 4E 53 45 20 20 12 20 92 11 9D 9D 9D 9D 9D 9D 9D |NSE . .........|
000019A0: 9D 9D 9D 1E 49 4E 43 4F 4D 45 20 20 12 20 92 11 |....INCOME . ..|
000019B0: 9B 22 00 C6 21 B0 04 99 A3 32 29 22 49 4E 43 20 |."..!....2)"INC |
000019C0: 20 20 45 58 50 22 00 F5 21 B5 04 99 22 4A 11 9D | EXP"..!..."J..|
000019D0: 46 11 9D 4D 11 9D 41 11 9D 4D 11 9D 4A 11 9D 4A |F..M..A..M..J..J|
000019E0: 11 9D 41 11 9D 53 11 9D 4F 11 9D 4E 11 9D 44 11 |..A..S..O..N..D.|
000019F0: 11 11 11 11 22 00 24 22 BA 04 99 A3 31 35 29 22 |....".$"....15)"|
00001A00: 4A 41 12 46 42 92 4D 52 12 41 50 92 4D 59 12 4A |JA.FB.MR.AP.MY.J|
00001A10: 4E 92 4A 4C 12 41 55 92 53 50 12 4F 43 92 4E 56 |N.JL.AU.SP.OC.NV|
00001A20: 12 44 43 22 00 4D 22 BF 04 99 22 13 11 11 22 A3 |.DC".M"..."...".|
00001A30: 31 35 29 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |15)"............|
00001A40: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 7B 22 |............".{"|
00001A50: C4 04 81 4E B2 31 A4 32 30 3A 99 A3 31 35 29 22 |...N.1.20:..15)"|
00001A60: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001A70: A4 A4 A4 A4 A4 A4 A4 A4 22 3A 82 00 95 22 C9 04 |........":..."..|
00001A80: 99 22 13 11 11 11 11 11 22 3A 4D 41 58 B2 30 3A |."......":MAX.0:|
00001A90: 4D 49 58 B2 30 00 B8 22 CE 04 81 4E B2 31 A4 31 |MIX.0.."...N.1.1|
00001AA0: 32 3A 8B 4D 41 58 B3 44 28 4E 2C 32 29 A7 4D 41 |2:.MAX.D(N,2).MA|
00001AB0: 58 B2 44 28 4E 2C 32 29 00 D3 22 D3 04 8B 4D 49 |X.D(N,2).."...MI|
00001AC0: 58 B3 44 28 4E 2C 31 29 A7 4D 49 58 B2 44 28 4E |X.D(N,1).MIX.D(N|
00001AD0: 2C 31 29 00 EA 22 D8 04 82 3A 8B 4D 49 58 B1 4D |,1).."...:.MIX.M|
00001AE0: 41 58 A7 4D 41 58 B2 4D 49 58 00 2F 23 DD 04 8B |AX.MAX.MIX./#...|
00001AF0: 4D 41 B3 B2 30 A7 99 22 11 11 11 11 11 11 11 11 |MA..0.."........|
00001B00: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B10: 1D 1D 1D 1D 1C 4E 4F 20 44 41 54 41 20 41 56 41 |.....NO DATA AVA|
00001B20: 49 4C 41 42 4C 45 9B 22 3B 3A 89 31 32 38 30 00 |ILABLE.";:.1280.|
00001B30: 6C 23 E2 04 81 4E B2 31 A4 31 32 3A 41 56 B2 28 |l#...N.1.12:AV.(|
00001B40: 32 30 AD 4D 41 58 29 AC 44 28 4E 2C 31 29 3A 58 |20.MAX).D(N,1):X|
00001B50: B2 B6 28 B5 28 38 30 30 AD 32 30 AC B5 28 41 56 |..(.(800.20..(AV|
00001B60: 29 29 AB 38 30 30 29 AA 31 31 38 34 00 A2 23 E7 |)).800).1184..#.|
00001B70: 04 41 31 B2 28 32 30 AD 4D 41 58 29 AC 44 28 4E |.A1.(20.MAX).D(N|
00001B80: 2C 32 29 3A 58 31 B2 B6 28 B5 28 38 30 30 AD 32 |,2):X1..(.(800.2|
00001B90: 30 AC B5 28 41 31 29 29 AB 38 30 30 29 AA 31 31 |0..(A1)).800).11|
00001BA0: 38 34 00 C9 23 EC 04 99 A3 32 29 B5 28 44 28 4E |84..#....2).(D(N|
00001BB0: 2C 31 29 AD 31 30 30 29 3B A3 38 29 B5 28 44 28 |,1).100);.8).(D(|
00001BC0: 4E 2C 32 29 AD 31 30 30 29 00 01 24 F1 04 81 49 |N,2).100)..$...I|
00001BD0: B2 31 39 34 34 A4 58 A9 AB 34 30 3A 97 49 AA 28 |.1944.X..40:.I.(|
00001BE0: 4E AC 32 29 AB 32 37 2C 32 32 39 3A 97 49 AA 28 |N.2).27,229:.I.(|
00001BF0: 4E AC 32 29 AB 32 37 AA 35 34 32 37 32 2C 35 3A |N.2).27.54272,5:|
00001C00: 82 00 3F 24 F6 04 81 49 B2 31 39 34 34 A4 58 31 |..?$...I.1944.X1|
00001C10: A9 AB 34 30 3A 97 49 AA 28 4E AC 32 29 AB 32 37 |..40:.I.(N.2).27|
00001C20: AA 31 2C 32 33 31 3A 97 49 AA 28 4E AC 32 29 AB |.1,231:.I.(N.2).|
00001C30: 32 37 AA 35 34 32 37 32 AA 31 2C 31 30 3A 82 00 |27.54272.1,10:..|
00001C40: 45 24 FB 04 82 00 59 24 00 05 A1 41 24 3A 8B 41 |E$....Y$...A$:.A|
00001C50: 24 B2 22 22 A7 31 32 38 30 00 62 24 05 05 89 31 |$."".1280.b$...1|
00001C60: 37 35 00 8E 24 0A 05 99 22 93 11 11 11 1D 1D 1D |75..$...".......|
00001C70: 1D 1D 1D 57 48 41 54 20 46 41 43 54 4F 52 20 3F |...WHAT FACTOR ?|
00001C80: 20 20 28 20 31 20 54 48 52 55 20 39 20 29 00 A2 | ( 1 THRU 9 )..|
00001C90: 24 0F 05 A1 4F 24 3A 8B 4F 24 B2 22 22 A7 31 32 |$...O$:.O$."".12|
00001CA0: 39 35 00 BC 24 14 05 4F B2 C5 28 4F 24 29 3A 8B |95..$..O..(O$):.|
00001CB0: 4F B3 31 B0 4F B1 39 A7 31 32 39 35 00 E8 24 19 |O.1.O.9.1295..$.|
00001CC0: 05 99 22 93 20 46 41 43 54 4F 52 20 3D 22 4F 3A |..". FACTOR ="O:|
00001CD0: 99 22 1D 1D 1D 1D 57 45 45 4B 4C 59 11 45 58 50 |."....WEEKLY.EXP|
00001CE0: 45 4E 53 45 11 11 11 22 00 FF 24 1E 05 99 22 11 |ENSE..."..$...".|
00001CF0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 00 |................|
00001D00: 2E 25 23 05 99 22 20 20 20 20 20 20 31 32 33 34 |.%#.." 1234|
00001D10: 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 |5678901234567890|
00001D20: 31 32 33 20 20 20 20 20 20 20 20 20 20 22 00 58 |123 ".X|
00001D30: 25 28 05 99 22 13 11 11 11 22 A3 35 29 22 A4 A4 |%(.."....".5)"..|
00001D40: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001D50: A4 A4 A4 A4 A4 A4 A4 22 00 84 25 2D 05 81 4E B2 |......."..%-..N.|
00001D60: 31 A4 31 39 3A 99 A3 35 29 22 A4 A4 A4 A4 A4 A4 |1.19:..5)"......|
00001D70: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001D80: A4 A4 A4 22 00 8A 25 32 05 82 00 98 25 37 05 99 |..."..%2....%7..|
00001D90: 22 13 11 11 11 11 11 22 00 A2 25 3C 05 4D 41 58 |"......"..%<.MAX|
00001DA0: B2 30 00 D3 25 41 05 81 4E B2 31 A4 32 33 3A 8B |.0..%A..N.1.23:.|
00001DB0: 4D 41 58 B3 B5 28 54 28 4E 2C 32 29 AD 31 30 30 |MAX..(T(N,2).100|
00001DC0: 29 A7 4D 41 58 B2 B5 28 54 28 4E 2C 32 29 AD 31 |).MAX..(T(N,2).1|
00001DD0: 30 30 29 00 10 26 46 05 82 3A 8B 4D 41 58 B3 B2 |00)..&F..:.MAX..|
00001DE0: 30 A7 99 22 11 11 11 11 11 11 11 11 11 11 11 11 |0.."............|
00001DF0: 11 11 11 1D 1D 1D 1D 1D 1C 4E 4F 20 45 58 50 45 |.........NO EXPE|
00001E00: 4E 53 45 20 44 41 54 41 05 22 3A 89 31 33 38 30 |NSE DATA.":.1380|
00001E10: 00 21 26 4B 05 4D 41 58 B2 B5 28 4D 41 58 AD 4F |.!&K.MAX..(MAX.O|
00001E20: 29 00 60 26 50 05 81 4E B2 31 A4 32 33 3A 58 B2 |).`&P..N.1.23:X.|
00001E30: 31 39 30 39 AB B5 28 37 32 30 AC 28 54 28 4E 2C |1909..(720.(T(N,|
00001E40: 32 29 AD 31 30 30 29 AD 4D 41 58 29 3A 8B 58 B3 |2).100).MAX):.X.|
00001E50: 31 31 38 34 A7 58 B2 31 31 38 34 3A 58 39 B2 31 |1184.X.1184:X9.1|
00001E60: 00 8D 26 55 05 81 49 B2 31 39 30 39 A4 58 A9 AB |..&U..I.1909.X..|
00001E70: 34 30 3A 97 28 49 AA 4E 29 2C 32 32 39 3A 97 28 |40:.(I.N),229:.(|
00001E80: 49 AA 4E 29 AA 35 34 32 37 32 2C 31 30 00 A9 26 |I.N).54272,10..&|
00001E90: 5A 05 8B 58 39 B2 31 AF 49 B3 31 32 32 32 A7 97 |Z..X9.1.I.1222..|
00001EA0: 28 49 AA 4E 29 2C 31 35 38 00 B6 26 5F 05 82 3A |(I.N),158..&_..:|
00001EB0: 58 39 B2 30 3A 82 00 CA 26 64 05 A1 41 24 3A 8B |X9.0:...&d..A$:.|
00001EC0: 41 24 B2 22 22 A7 31 33 38 30 00 D3 26 69 05 89 |A$."".1380..&i..|
00001ED0: 31 37 35 00 02 27 6E 05 99 22 9B 93 11 11 11 11 |175..'n.."......|
00001EE0: 11 11 11 1D 1D 1D 1D 1D 1D 1D 53 41 56 49 4E 47 |..........SAVING|
00001EF0: 20 41 43 43 4F 55 4E 54 20 22 3B C9 28 44 24 2C | ACCOUNT ";.(D$,|
00001F00: 34 29 00 22 27 73 05 99 22 1D 1D 1D 1D 1D 1D 1D |4)."'s..".......|
00001F10: 1D 1D 1D 50 4C 45 41 53 45 20 57 41 49 54 2E 2E |...PLEASE WAIT..|
00001F20: 2E 22 00 33 27 78 05 9F 31 35 2C 38 2C 31 35 2C |.".3'x..15,8,15,|
00001F30: 22 49 22 00 3D 27 7D 05 8D 31 34 34 30 00 5E 27 |"I".='}..1440.^'|
00001F40: 82 05 98 31 35 2C 22 53 3A 42 55 44 47 45 54 20 |...15,"S:BUDGET |
00001F50: 44 41 54 41 20 22 AA C9 28 44 24 2C 32 29 00 89 |DATA "..(D$,2)..|
00001F60: 27 87 05 9F 32 2C 38 2C 32 2C 22 30 3A 42 55 44 |'...2,8,2,"0:BUD|
00001F70: 47 45 54 20 44 41 54 41 20 22 AA C9 28 44 24 2C |GET DATA "..(D$,|
00001F80: 32 29 AA 22 2C 53 2C 57 22 00 AD 27 8C 05 81 4E |2).",S,W"..'...N|
00001F90: B2 31 A4 34 30 3A 98 32 2C 54 28 4E 2C 31 29 3B |.1.40:.2,T(N,1);|
00001FA0: C7 28 31 33 29 3A 82 3A 8D 31 34 34 30 00 D1 27 |.(13):.:.1440..'|
00001FB0: 91 05 81 4E B2 31 A4 34 30 3A 98 32 2C 54 28 4E |...N.1.40:.2,T(N|
00001FC0: 2C 32 29 3B C7 28 31 33 29 3A 82 3A 8D 31 34 34 |,2);.(13):.:.144|
00001FD0: 30 00 F5 27 96 05 81 4E B2 31 A4 31 32 3A 98 32 |0..'...N.1.12:.2|
00001FE0: 2C 44 28 4E 2C 31 29 3B C7 28 31 33 29 3A 82 3A |,D(N,1);.(13):.:|
00001FF0: 8D 31 34 34 30 00 25 28 9B 05 81 4E B2 31 A4 31 |.1440.%(...N.1.1|
00002000: 32 3A 98 32 2C 44 28 4E 2C 32 29 3B C7 28 31 33 |2:.2,D(N,2);.(13|
00002010: 29 3A 82 3A 8D 31 34 34 30 3A A0 32 3A A0 31 35 |):.:.1440:.2:.15|
00002020: 3A 89 31 37 35 00 3A 28 A0 05 84 31 35 2C 45 4E |:.175.:(...15,EN|
00002030: 2C 45 4D 24 2C 45 54 2C 45 53 00 46 28 A5 05 8B |,EM$,ET,ES.F(...|
00002040: 45 4E B2 30 A7 8E 00 64 28 AA 05 99 22 1C 20 20 |EN.0...d(...". |
00002050: 20 20 45 52 52 4F 52 20 4F 4E 20 44 49 53 4B 20 | ERROR ON DISK |
00002060: 20 20 20 22 00 76 28 AF 05 99 45 4E 3B 45 4D 24 | ".v(...EN;EM$|
00002070: 3B 45 54 3B 45 53 00 87 28 B4 05 A0 32 3A A0 31 |;ET;ES..(...2:.1|
00002080: 35 3A 89 31 34 35 30 00 98 28 B9 05 8F 20 4D 41 |5:.1450..(... MA|
00002090: 20 52 4F 55 54 49 4E 45 00 BD 28 BE 05 4E 32 B2 | ROUTINE..(..N2.|
000020A0: 4E 55 3A 4E 55 B2 B6 28 4E 55 29 3A 4C 4D B2 C3 |NU:NU..(NU):LM..|
000020B0: 28 4B 24 29 3A 4C 24 B2 C4 28 4E 55 29 00 D4 28 |(K$):L$..(NU)..(|
000020C0: C3 05 4C 4E 55 B2 C3 28 4C 24 29 3A 43 4E B2 4C |..LNU..(L$):CN.L|
000020D0: 4E 55 AA 31 00 EC 28 C8 05 81 43 54 B2 4C 4D A4 |NU.1..(...CT.LM.|
000020E0: 31 A9 AB 31 3A 43 4E B2 43 4E AB 31 00 FB 28 CD |1..1:CN.CN.1..(.|
000020F0: 05 8B 43 4E B3 32 A7 31 35 37 35 00 15 29 D2 05 |..CN.2.1575..)..|
00002100: 8B CA 28 4B 24 2C 43 54 2C 31 29 B3 B1 22 2D 22 |..(K$,CT,1).."-"|
00002110: A7 31 35 33 30 00 25 29 D7 05 8B 4E 32 B2 B1 30 |.1530.%)...N2..0|
00002120: A7 31 35 31 35 00 3D 29 DC 05 4B 24 B2 CA 28 4B |.1515.=)..K$..(K|
00002130: 24 2C 31 2C 43 54 AB 31 29 AA 22 2D 22 00 49 29 |$,1,CT.1)."-".I)|
00002140: E1 05 43 4E B2 43 4E AA 31 00 53 29 E6 05 89 31 |..CN.CN.1.S)...1|
00002150: 35 32 35 00 6B 29 EB 05 4B 24 B2 CA 28 4B 24 2C |525.k)..K$..(K$,|
00002160: 31 2C 43 54 AB 31 29 AA 22 20 22 00 77 29 F0 05 |1,CT.1)." ".w)..|
00002170: 43 4E B2 43 4E AA 31 00 81 29 F5 05 89 31 35 38 |CN.CN.1..)...158|
00002180: 30 00 9A 29 FA 05 8B CA 28 4B 24 2C 43 54 2C 31 |0..)....(K$,CT,1|
00002190: 29 B2 22 2C 22 A7 31 35 34 35 00 B3 29 FF 05 8B |).",".1545..)...|
000021A0: CA 28 4B 24 2C 43 54 2C 31 29 B2 22 2E 22 A7 31 |.(K$,CT,1).".".1|
000021B0: 35 34 35 00 BD 29 04 06 89 31 35 36 30 00 C9 29 |545..)...1560..)|
000021C0: 09 06 43 4E B2 43 4E AA 31 00 DB 29 0E 06 8B 43 |..CN.CN.1..)...C|
000021D0: 54 B2 32 A7 43 4E B2 43 4E AB 31 00 E5 29 13 06 |T.2.CN.CN.1..)..|
000021E0: 89 31 35 38 30 00 1B 2A 18 06 4D 24 B2 CA 28 4B |.1580..*..M$..(K|
000021F0: 24 2C 31 2C 43 54 AB 31 29 AA CA 28 4C 24 2C 43 |$,1,CT.1)..(L$,C|
00002200: 4E 2C 31 29 AA CA 28 4B 24 2C 43 54 AA 31 2C 4C |N,1)..(K$,CT.1,L|
00002210: 4D AB 28 43 54 AB 31 29 AB 31 29 00 25 2A 1D 06 |M.(CT.1).1).%*..|
00002220: 4B 24 B2 4D 24 00 2F 2A 22 06 89 31 35 38 30 00 |K$.M$./*"..1580.|
00002230: 60 2A 27 06 4B 24 B2 CA 28 4B 24 2C 31 2C 43 54 |`*'.K$..(K$,1,CT|
00002240: AB 31 29 AA 22 20 22 AA CA 28 4B 24 2C 43 54 AA |.1)." "..(K$,CT.|
00002250: 31 2C 28 4C 4D AB 28 43 54 AB 31 29 AB 31 29 29 |1,(LM.(CT.1).1))|
00002260: 00 72 2A 2C 06 8F 20 50 52 49 4E 54 20 43 54 3B |.r*,.. PRINT CT;|
00002270: 4B 24 00 7A 2A 31 06 82 43 54 00 80 2A 36 06 8E |K$.z*1..CT..*6..|
00002280: 00 8C 2A 3B 06 99 22 93 22 3B 3A 90 00 95 2A 40 |..*;..".";:...*@|
00002290: 06 89 31 37 35 00 BF 2A 45 06 99 22 93 22 3B 22 |..175..*E..".";"|
000022A0: 11 1D 1D 1D 1D 1D 1D 1D 1D 5A 45 52 4F 20 41 43 |.........ZERO AC|
000022B0: 43 4F 55 4E 54 53 11 11 11 11 11 11 22 3A 99 00 |COUNTS......":..|
000022C0: E2 2A 4A 06 99 22 12 9E 20 31 20 9B 92 20 3D 20 |.*J..".. 1 .. = |
000022D0: 5A 45 52 4F 20 41 4C 4C 20 41 43 43 4F 55 4E 54 |ZERO ALL ACCOUNT|
000022E0: 53 22 00 12 2B 4F 06 99 22 12 9E 20 32 20 9B 92 |S"..+O..".. 2 ..|
000022F0: 20 3D 20 5A 45 52 4F 20 45 58 50 45 4E 53 45 20 | = ZERO EXPENSE |
00002300: 41 4E 44 20 43 41 52 52 59 20 42 41 4C 41 4E 43 |AND CARRY BALANC|
00002310: 45 22 00 2D 2B 59 06 99 22 12 9E 52 45 54 9B 92 |E".-+Y.."..RET..|
00002320: 20 3D 20 4D 41 49 4E 20 4D 45 4E 55 22 00 41 2B | = MAIN MENU".A+|
00002330: 5E 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 36 33 |^..A$:.A$."".163|
00002340: 30 00 53 2B 63 06 8B 41 24 B2 C7 28 31 33 29 A7 |0.S+c..A$..(13).|
00002350: 31 37 35 00 6D 2B 68 06 8B C5 28 41 24 29 B3 31 |175.m+h...(A$).1|
00002360: B0 C5 28 41 24 29 B1 32 A7 31 36 33 30 00 86 2B |..(A$).2.1630..+|
00002370: 6D 06 91 C5 28 41 24 29 89 31 36 35 30 2C 31 36 |m...(A$).1650,16|
00002380: 36 30 2C 31 37 35 00 AB 2B 72 06 99 22 93 22 3A |60,175..+r..".":|
00002390: 81 4E B2 31 A4 34 30 3A 54 28 4E 2C 31 29 B2 30 |.N.1.40:T(N,1).0|
000023A0: 3A 54 28 4E 2C 32 29 B2 30 3A 82 00 D0 2B 74 06 |:T(N,2).0:...+t.|
000023B0: 81 4E B2 31 A4 31 32 3A 44 28 4E 2C 31 29 B2 30 |.N.1.12:D(N,1).0|
000023C0: 3A 44 28 4E 2C 32 29 B2 30 3A 82 3A 89 31 37 35 |:D(N,2).0:.:.175|
000023D0: 00 F9 2B 7C 06 99 22 93 22 3A 81 4E B2 31 A4 32 |..+|..".":.N.1.2|
000023E0: 34 3A 54 28 4E 2C 31 29 B2 B5 28 54 28 4E 2C 31 |4:T(N,1)..(T(N,1|
000023F0: 29 AB 54 28 4E 2C 32 29 29 00 22 2C 81 06 54 28 |).T(N,2)).",..T(|
00002400: 4E 2C 32 29 B2 30 3A 82 3A 54 28 32 35 2C 31 29 |N,2).0:.:T(25,1)|
00002410: B2 54 28 32 34 2C 31 29 3A 54 28 32 35 2C 32 29 |.T(24,1):T(25,2)|
00002420: B2 30 00 43 2C 86 06 81 4E B2 32 36 A4 34 30 3A |.0.C,...N.26.40:|
00002430: 54 28 4E 2C 31 29 B2 30 3A 54 28 4E 2C 32 29 B2 |T(N,1).0:T(N,2).|
00002440: 30 3A 82 00 4C 2C 8B 06 89 31 37 35 00 82 2C 95 |0:..L,...175..,.|
00002450: 06 99 22 93 11 11 11 11 1D 1D 1D 1D 1D 4C 4F 41 |.."..........LOA|
00002460: 44 20 44 41 54 41 20 46 4F 52 20 22 3B 3A 99 C9 |D DATA FOR ";:..|
00002470: 28 44 24 2C 34 29 3B 3A 99 22 20 20 59 2F 4E 20 |(D$,4);:." Y/N |
00002480: 3F 22 00 96 2C 9A 06 A1 41 24 3A 8B 41 24 B2 22 |?"..,...A$:.A$."|
00002490: 22 A7 31 36 39 30 00 A6 2C 9F 06 8B 41 24 B2 22 |".1690..,...A$."|
000024A0: 4E 22 A7 31 33 35 00 B8 2C A4 06 8B 41 24 B3 B1 |N".135..,...A$..|
000024B0: 22 59 22 A7 31 36 39 30 00 C0 2C A9 06 89 38 35 |"Y".1690..,...85|
000024C0: 00 F6 2C AE 06 99 22 93 11 11 11 11 1D 1D 1D 1D |..,...".........|
000024D0: 1D 53 41 56 45 20 44 41 54 41 20 46 4F 52 20 22 |.SAVE DATA FOR "|
000024E0: 3B 3A 99 C9 28 44 24 2C 34 29 3B 3A 99 22 20 20 |;:..(D$,4);:." |
000024F0: 59 2F 4E 20 3F 22 00 0A 2D B3 06 A1 41 24 3A 8B |Y/N ?"..-...A$:.|
00002500: 41 24 B2 22 22 A7 31 37 31 35 00 1A 2D B8 06 8B |A$."".1715..-...|
00002510: 41 24 B2 22 4E 22 A7 31 33 35 00 2C 2D BD 06 8B |A$."N".135.,-...|
00002520: 41 24 B3 B1 22 59 22 A7 31 37 31 35 00 36 2D C2 |A$.."Y".1715.6-.|
00002530: 06 89 31 33 39 30 00 77 2D C7 06 83 30 30 30 30 |..1390.w-...0000|
00002540: 2C 30 30 30 30 2C 30 30 30 30 2C 30 30 30 30 2C |,0000,0000,0000,|
00002550: 30 30 30 30 2C 30 30 30 30 2C 30 30 30 30 2C 30 |0000,0000,0000,0|
00002560: 30 30 30 2C 30 30 30 30 2C 30 30 30 30 2C 30 30 |000,0000,0000,00|
00002570: 30 30 2C 30 30 30 30 00 B3 2D CC 06 83 30 30 30 |00,0000..-...000|
00002580: 30 2C 30 30 30 30 2C 30 30 30 30 2C 30 30 30 30 |0,0000,0000,0000|
00002590: 2C 30 30 30 30 2C 30 30 30 30 2C 30 30 30 30 2C |,0000,0000,0000,|
000025A0: 30 30 30 30 2C 30 30 30 30 2C 30 30 30 30 2C 30 |0000,0000,0000,0|
000025B0: 30 30 30 00 FC 2D D1 06 83 41 55 54 4F 2D 47 41 |000..-...AUTO-GA|
000025C0: 53 2F 52 45 50 41 49 52 53 2C 41 55 54 4F 2D 52 |S/REPAIRS,AUTO-R|
000025D0: 45 47 49 53 54 52 41 54 49 4F 4E 2C 43 41 42 4C |EGISTRATION,CABL|
000025E0: 45 56 49 53 49 4F 4E 2C 43 4C 4F 54 48 49 4E 47 |EVISION,CLOTHING|
000025F0: 2C 45 4C 45 43 54 52 49 43 49 54 59 00 42 2E D6 |,ELECTRICITY.B..|
00002600: 06 83 45 4E 54 45 52 54 41 49 4E 4D 45 4E 54 2C |..ENTERTAINMENT,|
00002610: 46 4F 4F 44 20 45 58 50 45 4E 53 45 2C 48 45 41 |FOOD EXPENSE,HEA|
00002620: 54 2D 4F 49 4C 2C 48 4F 55 53 45 20 52 45 50 41 |T-OIL,HOUSE REPA|
00002630: 49 52 53 2C 49 4E 53 2D 41 55 54 4F 2F 48 4F 55 |IRS,INS-AUTO/HOU|
00002640: 53 45 00 80 2E DB 06 83 49 4E 53 2D 44 49 53 41 |SE......INS-DISA|
00002650: 42 49 4C 49 54 59 2C 49 4E 53 2D 4C 49 46 45 2C |BILITY,INS-LIFE,|
00002660: 4D 45 44 49 43 41 4C 20 45 58 50 45 4E 53 45 2C |MEDICAL EXPENSE,|
00002670: 4D 4F 52 54 47 41 47 45 20 45 58 50 45 4E 53 45 |MORTGAGE EXPENSE|
00002680: 00 B9 2E E0 06 83 20 4E 4F 54 45 20 45 58 50 45 |...... NOTE EXPE|
00002690: 4E 53 45 2C 50 52 4F 50 45 52 54 59 20 54 41 58 |NSE,PROPERTY TAX|
000026A0: 45 53 2C 53 41 56 49 4E 47 53 20 41 43 43 54 2C |ES,SAVINGS ACCT,|
000026B0: 54 45 4C 45 50 48 4F 4E 45 00 E1 2E E5 06 83 56 |TELEPHONE......V|
000026C0: 41 43 41 54 49 4F 4E 2C 58 2D 4D 41 53 20 53 41 |ACATION,X-MAS SA|
000026D0: 56 49 4E 47 53 2C 22 31 22 2C 22 32 22 2C 22 33 |VINGS,"1","2","3|
000026E0: 22 00 1C 2F EA 06 83 4D 49 53 43 45 4C 4C 41 4E |"../...MISCELLAN|
000026F0: 45 4F 55 53 2C 44 45 50 4F 53 49 54 53 2C 54 52 |EOUS,DEPOSITS,TR|
00002700: 41 4E 53 46 45 52 53 2C 4D 49 53 43 20 31 2C 4D |ANSFERS,MISC 1,M|
00002710: 49 53 43 20 32 2C 4D 49 53 43 20 33 00 44 2F EF |ISC 2,MISC 3.D/.|
00002720: 06 83 4D 49 53 43 20 34 2C 4D 49 53 43 20 35 2C |..MISC 4,MISC 5,|
00002730: 4D 49 53 43 20 36 2C 4D 49 53 43 20 37 2C 4D 49 |MISC 6,MISC 7,MI|
00002740: 53 43 20 38 00 78 2F F4 06 83 4D 49 53 43 20 39 |SC 8.x/...MISC 9|
00002750: 2C 4D 49 53 43 20 31 30 2C 4D 49 53 43 20 31 31 |,MISC 10,MISC 11|
00002760: 2C 4D 49 53 43 20 31 32 2C 4D 49 53 43 20 31 33 |,MISC 12,MISC 13|
00002770: 2C 4D 49 53 43 20 31 34 00 00 00 |,MISC 14... |
......." BUDGET V.2.?...."U....
......................I......".THIS PROG
RAM IS OFFERED TO. .PUBLIC DO
MAIN - MARCH 1987..U....". ROBERT A. LE
DUC . . 61 WARREN AV
ENUE .. ....". LEWISTON, MAINE 0
4240 . . ENJOY :)
..C...."J........................
..K._...."..":.53280,0:.53281,0.{.#.CT.0
:CN.0:N.0:LM.0:NU.0...(.K$."":M$."":L$."
"...-.N2.0:LN.0:BA.170.B.2..T(40,2),C$(4
0),D(12,2).Y.7..N.1.23:.Q:F.F.Q:....<..N
.1.40:.Q$:C$(N).Q$:....A..160...F..".":.
N.1.20:.N.10..".. ";.W.K..".."N"..";H(C$
(N),15);.21)".."N.20"..";H(C$(N.20),14).
`.P..N:....U.."................LOADING A
CCOUNT ";I(D$,4)...Z.."..........PLEASE
WAIT..."..._..15,8,15.G.D..1440...I..2,8
,2,"BUDGET DATA ".I(D$,2).",S,R"...N..N.
1.40:.2,T(N,1):.:.1440.,.S..N.1.40:.2,T(
N,2):.:.1440.J.X..N.1.12:.2,D(N,1):.:.14
40.H.}..N.1.12:.2,D(N,2):.:.1440.X... 2:
15:.175......"....":..13)D$;".......":.
".............BUDGET V.2"......"........
....IS THIS DATE CORRECT? (Y/N)"......A
$:. A$."".145...... A$."Y".175...... A$.
."N".145.E. .."...........ENTER NEW DATE
00/00/0000".V...."... ";D$.I....C(D$
)..10.160......".";:..14);"..U..........
.I".A.....3)".BUDGET V.2. ...MAIN MENU..
";:..28)".."D$".".......14);".J.........
..K..".......10)".POSTING.",,,,,,,...C..
.5)" 1 = BUDGET POSTING".:.H...5)" 2 = A
UTO-DEPOSIT",,,,,,.P.M...10)".REPORTS.",
,,,,,,:..5)" 3 = BALANCE REPORT"...R...6
)" .. F1 ..--->PRINTER.".S.W...5)" 4
= OTHER REPORTS",,,,,,:..8)". MAINTENA
NCE.",,,,,,.......5)" 5 = DATE CHANGE"..
.....5)" 6 = LOAD DATA FROM DISK".2.....
5)" 7 = SAVE DATA TO DISK".].....6)"8 =
EDIT MODE ..CAUTION-END PRG.".......5)"
9 = ZERO ACCOUNTS",,,,,,......".
PRESS # KEY DESIRED".....A$."".T...."..
PRESS # KEY DESIRED "......A$:.A$
."".."..":.245......(E(A$).1.E(A$).9).(A
$..".").260......".";.-....A$.".".615.A.
...E(A$).285,545,615,1010,135,1685,1710,
1595,1605.T....".";"POSTING".|."..70...'
.P$.""...,..:."# OF ACCOUNT FOR POSTING"
;P$...1..P$."".175.F.6.N.E(P$)...;..".PO
STING TO ACCOUNT #";N...@.NU.T(N,1):K$."
XX,XXX.XX-":.1465.+.E..:.C$(N):.:."INCOM
E ";.2);K$.O.J.NU.T(N,2):K$."XX,XXX.XX-
":.1465.F.O.."EXPENSE ";.2);K$...T.NU..(
T(N,1).T(N,2)):K$."XX,XXX.XX-":.1465...Y
.."BALANCE ";.2);K$...^..:." .. + ..=I
NCREASE INCOME":." .. - ..=INCREASE EX
PENSE"...C.." RET=RETURN TO MENU"...H..A
$:.A$."".360.,.M..A$."+".385.<.R..A$."-"
.465.K.W..A$."".290.T.|..290.{....:.".AM
OUNT TO INCREASE INCOME.";I.....NU.T(N,1
).I:K$."XX,XXX.XX-":.1465......:."INCOME
";K$.Z...NU.T(N,2):K$."XX,XXX.XX-":.14
65......"EXPENSE ";K$.....NU..(T(N,1).T(
N,2).I):K$."XX,XXX.XX-":.1465.7...."
EEEEEEEEEE".J...."BALANCE ";K$.^....
"CORRECT Y/N?".Q....A$:.A$."".430......A
$."N".315......A$.."Y".430.....T(N,1)..(
T(N,1).I).H.B..N.24.T(24,1)..(T(24,1).I)
...G.D(E(H(D$,2)),1)..(D(E(H(D$,2)),1).I
)...L..315.".Q..:.".AMOUNT TO INCREASE E
XPENSE.";I.F.V.NU.T(N,1):K$."XX,XXX.XX-"
:.1465.[....:."INCOME ";K$.....NU.T(N,2
).I:K$."XX,XXX.XX-":.1465......"EXPENSE
";K$.F...NU..(T(N,1).(T(N,2).I)):K$."XX,
XXX.XX-":.1465......" EEEEEEEEEE"
......"BALANCE ";K$......"CORRECT Y/N?".
.....A$:.A$."".510.*....A$."N".315.;....
A$.."Y".510.R...T(N,2)..(T(N,2).I).Q....
N.24.T(24,2)..(T(24,2).I).....D(E(H(D$,2
)),2)..(D(E(H(D$,2)),2).I)......315...!.
.".";"AUTO-DEPOSIT".Z.&.NU.F:K$."XX,XXX.
XX-":.1465...+...200)"ENTER DEPOSIT AMOU
NT".,.0..".....***.DO NOT USE DECIMAL PO
INT.***....".[.5.."MUST BE AT LEAST $";K
$;:.DP$:.DP$."".175.I.:.DP.E(DP$).Q.?.B.
0.W.D.....I..N.1.23:.Q:B.B.Q:T(N,1)..(T(
N,1).Q).J.N.D(E(H(D$,2)),1)..(D(E(H(D$,2
)),1).Q):....S.D(E(H(D$,2)),1)..((D(E(H(
D$,2)),1).DP).F)...X.T(24,1)..((T(24,1).
DP).F).4.].T(25,1)..((T(25,1).DP).F).=.B
..175.G.G..".";.M.L...V.Q.BA.0.F.V..A$."
.".750...{..N.1.24:BA.BA..((T(N,1).T(N,2
)))......N.10.." ";......N;:.H(C$(N),15)
;.J....N.24..A:..19)A.100;.....NU..(T(N,
1).T(N,2)):K$."XX,XXX.XX-":.1465.......2
4)K$............A$:.A$."".670./....A$."P
"..1465.9....".";.\...NU..(BA):K$."XX,XX
X.XX-":.1465......"$"K$;" IS YOUR TOTAL
FOR CHECKBOOK.".....BA.0:.:.N.24.40:.N;H
(C$(N),13);.Y...NU..(T(N,1).T(N,2)):K$."
XX,XXX.XX-":.1465...A..N.24...30)K$:MB$.
K$...F..N.24...20)K$.'.K..N.24.BA.BA..((
T(N,1).T(N,2))).-.P...3.U...V.Z.NU..(BA)
:K$."XX,XXX.XX-":.1465.S.....20)K$;:..30
)MB$:MB$.""......A$:.A$."".740......175.
....P.0:.3,4......3:..B(144).128. 3:.780
......"...... ***. PLEASE TURN THE PRIN
TER ON .***.":P.P.1......P.799. 3:.175..
....755.....P.0. ....3,4.3...T5$.G(16)."
05".A...BB.0:BC.0.C...."...............P
RINTING...".Q. ..3,G(14);...%..3,.16)"BA
LANCES";G(15)...*..3:.3.../..3,.35)D$;G(
13);G(13).D.4.T1$.G(16)."35".W.9.T2$.G(1
6)."48"...>.T3$.G(16)."65"...C.T4$.G(16)
."24".).H..3,"ACCOUNT";T4$;"AMT";T1$;"
BALANCE";.P.M..3,T2$;" INCOME";T3$;" E
XPENSES"...R..N.1.24:BA.BA.(T(N,1).T(N,2
)):BB..(BB.T(N,1)):BC..(BC.T(N,2))...W..
3,T5$;H(C$(N),15);.E.\..N.24..A:.3,T4$;A
.100;...A.NU..(T(N,1).T(N,2)):K$."XX,XXX
.XX-":.1465.%.F..3,T1$;K$;:NU..(T(N,1)):
K$."XX,XXX.XX-":.1465.W.K..3,T2$;K$;:NU.
.(T(N,2)):K$."XX,XXX.XX-":.1465.E.P..3,T
3$;K$.N.U..:.3...Z.NU.BA:K$."XX,XXX.XX-"
:.1465.....3,G(14);T5$;"TOTALS =";G(15)
;T1$;K$;.X...NU.BB:K$."XX,XXX.XX-":.1465
......3,T2$;K$;.....NU.BC:K$."XX,XXX.XX-
":.1465......3,T3$;K$......3.<...NU.BA:K
$."XX,XXX.XX-":.1465.K....3,T5$;G(14);"C
HECKBOOK TOTAL = $"K$;G(15).....BA.0:.3,
:.N.24.40:.3,H(C$(N),15);.E....N.24.NU..
(T(N,1).T(N,2)):K$."XX,XXX.XX-":.1465...
...N.24..3,T1$;" "H(K$,9)......N.24.NU.T
(N,2):K$."XX,XXX.XX-":.1465......N.24..3
,T4$;K$.9....N.24.BA..(BA.T(N,2)).?.E...
_.J..3:.3,G(14);"TOTALS";G(15);..O.NU.B
A:K$."XX,XXX.XX-":.1465...T..3,T4$;" ";K
$;.B.Y.NU..(T(24,1).T(24,2)):K$."XX,XXX.
XX-":.1465.X....3,T1$;" "H(K$,9)......3,
G(12)..... 3......175.'...BA.0:BE.0:."..
..............OTHER REPORTS...".N...."..
1 ..= SPREADSHEET":.".. 2 ..= MONTHLY G
RAPHIC EXPENSE/INCOME"......".. 3 ..= WE
EKLY GRAPHIC EXPENSE"......"..RET..= MAI
N MENU".C....A$:.A$."".1030.U....A$.G(13
).175......E(A$).1.E(A$).3.1030......E(A
$).1050,1195,1290......".";......N.1.24.
/.$..N.10.." ";.S.).NU.T(N,1):K$."XX,XXX
.XX-":.1465.O....N;H(C$(N),13);.18);K$;.
..3.NU.T(N,2):K$."XX,XXX.XX-":.1465...8.
..29)K$.C.=.BA..(BA.T(N,1)):BE..(BE.T(N,
2)).I.B.....G.NU.BA:K$."XX,XXX.XX-":.146
5...L...18);K$;.. Q.NU.BE:K$."XX,XXX.XX-
":.1465.% V...29);K$;.9 [..A$:.A$."".111
5.C `..".";.S E.BA.0:BE.0:..` J..N.25.40
.. O.NU.T(N,1):K$."XX,XXX.XX-":.1465. T
..N;H(C$(N),13);.18);K$;.D Y.NU.T(N,2):K
$."XX,XXX.XX-":.1465.Q ~...29);K$.. ..BA
.BA.T(N,1):BE.BE.T(N,2).. .....!..NU.BA:
K$."XX,XXX.XX-":.1465.%!...:..18);K$;.E!
..NU.BE:K$."XX,XXX.XX-":.1465.R!....29);
K$.F!...A$:.A$."".1185.O!...175..!..."..
....MONTHLY.........EXPENSE . .........
....INCOME . ...".F!....2)"INC EXP"..
!..."J..F..M..A..M..J..J..A..S..O..N..D.
....".$"....15)"JA.FB.MR.AP.MY.JN.JL.AU.
SP.OC.NV.DC".M"..."...".15)"............
............".{"D..N.1.20:..15)"........
................":..."I.."......":MAX.0:
MIX.0.."N..N.1.12:.MAX.D(N,2).MAX.D(N,2)
.S"S..MIX.D(N,1).MIX.D(N,1).."X..:.MIX.M
AX.MAX.MIX./#...MA..0.."................
.............NO DATA AVAILABLE.";:.1280.
L#...N.1.12:AV.(20.MAX).D(N,1):X..(.(800
.20..(AV)).800).1184..#..A1.(20.MAX).D(N
,2):X1..(.(800.20..(A1)).800).1184.I#...
.2).(D(N,1).100);.8).(D(N,2).100)..$...I
.1944.X..40:.I.(N.2).27,229:.I.(N.2).27.
54272,5:..?$...I.1944.X1..40:.I.(N.2).27
.1,231:.I.(N.2).27.54272.1,10:..E$....Y$
...A$:.A$."".1280.B$...175..$...".......
...WHAT FACTOR ? ( 1 THRU 9 )..$...O$:.
O$."".1295..$..O.E(O$):.O.1.O.9.1295..$.
..". FACTOR ="O:."....WEEKLY.EXPENSE..."
..$..."..................%#.." 1234
5678901234567890123 ".X%(.."...
.".5)"........................."..%-..N.
1.19:..5)"........................."..%2
....%7.."......"..%<.MAX.0.S%A..N.1.23:.
MAX..(T(N,2).100).MAX..(T(N,2).100)..&F.
.:.MAX..0..".....................NO EXPE
NSE DATA.":.1380.!&K.MAX..(MAX.O).`&P..N
.1.23:X.1909..(720.(T(N,2).100).MAX):.X.
1184.X.1184:X9.1..&U..I.1909.X..40:.(I.N
),229:.(I.N).54272,10..&Z..X9.1.I.1222..
(I.N),158..&_..:X9.0:..J&D..A$:.A$."".13
80.S&I..175..'N.."................SAVING
ACCOUNT ";I(D$,4)."'S.."..........PLEAS
E WAIT...".3'X..15,8,15,"I".='}..1440.^'
...15,"S:BUDGET DATA ".I(D$,2)..'...2,8,
2,"0:BUDGET DATA ".I(D$,2).",S,W"..'...N
.1.40:.2,T(N,1);G(13):.:.1440.Q'...N.1.4
0:.2,T(N,2);G(13):.:.1440..'...N.1.12:.2
,D(N,1);G(13):.:.1440.%(...N.1.12:.2,D(N
,2);G(13):.:.1440: 2: 15:.175.:( ..15,EN
,EM$,ET,ES.F(...EN.0...D(...". ERROR
ON DISK ".V(...EN;EM$;ET;ES..(.. 2: 1
5:.1450..(... MA ROUTINE..(..N2.NU:NU..(
NU):LM.C(K$):L$.D(NU).T(C.LNU.C(L$):CN.L
NU.1..(H..CT.LM.1..1:CN.CN.1..(M..CN.2.1
575..)R..J(K$,CT,1).."-".1530.%)W..N2..0
.1515.=)..K$.J(K$,1,CT.1)."-".I)..CN.CN.
1.S)...1525.K)..K$.J(K$,1,CT.1)." ".W)..
CN.CN.1..)...1580..)...J(K$,CT,1).",".15
45..)...J(K$,CT,1).".".1545..)...1560.I)
..CN.CN.1..)...CT.2.CN.CN.1..)...1580..*
..M$.J(K$,1,CT.1).J(L$,CN,1).J(K$,CT.1,L
M.(CT.1).1).%*..K$.M$./*"..1580.`*'.K$.J
(K$,1,CT.1)." ".J(K$,CT.1,(LM.(CT.1).1))
.R*,.. PRINT CT;K$.Z*1..CT..*6....*;..".
";:...*@..175..*E..".";".........ZERO AC
COUNTS......":...*J..".. 1 .. = ZERO ALL
ACCOUNTS"..+O..".. 2 .. = ZERO EXPENSE
AND CARRY BALANCE".-+Y.."..RET.. = MAIN
MENU".A+^..A$:.A$."".1630.S+C..A$.G(13).
175.M+H..E(A$).1.E(A$).2.1630..+M..E(A$)
.1650,1660,175..+R..".":.N.1.40:T(N,1).0
:T(N,2).0:..P+T..N.1.12:D(N,1).0:D(N,2).
0:.:.175..+|..".":.N.1.24:T(N,1)..(T(N,1
).T(N,2)).",..T(N,2).0:.:T(25,1).T(24,1)
:T(25,2).0.C,...N.26.40:T(N,1).0:T(N,2).
0:..L,...175..,..."..........LOAD DATA F
OR ";:.I(D$,4);:." Y/N ?"..,...A$:.A$."
".1690..,...A$."N".135..,...A$.."Y".1690
..,...85..,..."..........SAVE DATA FOR "
;:.I(D$,4);:." Y/N ?"..-...A$:.A$."".17
15..-...A$."N".135.,-...A$.."Y".1715.6-B
..1390.W-G..0000,0000,0000,0000,0000,000
0,0000,0000,0000,0000,0000,0000..-L..000
0,0000,0000,0000,0000,0000,0000,0000,000
0,0000,0000..-Q..AUTO-GAS/REPAIRS,AUTO-R
EGISTRATION,CABLEVISION,CLOTHING,ELECTRI
CITY.B.V..ENTERTAINMENT,FOOD EXPENSE,HEA
T-OIL,HOUSE REPAIRS,INS-AUTO/HOUSE......
INS-DISABILITY,INS-LIFE,MEDICAL EXPENSE,
MORTGAGE EXPENSE...... NOTE EXPENSE,PROP
ERTY TAXES,SAVINGS ACCT,TELEPHONE......V
ACATION,X-MAS SAVINGS,"1","2","3"../...M
ISCELLANEOUS,DEPOSITS,TRANSFERS,MISC 1,M
ISC 2,MISC 3.D/...MISC 4,MISC 5,MISC 6,M
ISC 7,MISC 8.X/...MISC 9,MISC 10,MISC 11
,MISC 12,MISC 13,MISC 14...
> CLICK IMAGE PREVIEW FOR FULL MODAL