HOME BUDGET.C
FILE INFORMATION
FILENAME(S): HOME BUDGET.C
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 2 disk(s)
FILE HASH
41211a7263f056108a25e9c4a2050fa17fef19a54f2f054f59a7bb103c193f8d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG JUNE 84 C | HOME BUDGET.C | PRG | Radd Maxx | 32 | 6 | DOWNLOAD FILE |
| TPUG JUNE 84 C | HOME BUDGET.C | PRG | DuncanTwain | 32 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 08 14 |************.7..|
00000020: 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |..* |
00000030: 20 20 20 20 20 20 2A 00 52 08 1E 00 8F 2A 20 20 | *.R....* |
00000040: 20 20 48 4F 4D 45 20 42 55 44 47 45 54 20 20 20 | HOME BUDGET |
00000050: 20 2A 00 6D 08 28 00 8F 2A 20 20 20 20 20 20 20 | *.m.(..* |
00000060: 20 42 59 20 20 20 20 20 20 20 20 20 2A 00 88 08 | BY *...|
00000070: 32 00 8F 2A 20 20 20 20 42 52 49 41 4E 20 44 4F |2..* BRIAN DO|
00000080: 42 42 53 20 20 20 20 2A 00 A3 08 3C 00 8F 2A 20 |BBS *...<..* |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 2A 00 BE 08 46 00 8F 2A 20 20 54 49 4D 4D | *...F..* TIMM|
000000B0: 49 4E 53 2C 4F 4E 54 41 52 49 4F 20 20 2A 00 D9 |INS,ONTARIO *..|
000000C0: 08 50 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 |.P..* |
000000D0: 20 20 20 20 20 20 20 20 2A 00 F4 08 5A 00 8F 2A | *...Z..*|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 00 1B 09 64 00 97 35 33 32 38 30 2C |****...d..53280,|
00000100: 31 32 3A 97 35 33 32 38 31 2C 30 3A 86 41 24 28 |12:.53281,0:.A$(|
00000110: 31 33 2C 31 33 29 3A 89 31 38 30 00 25 09 6E 00 |13,13):.180.%.n.|
00000120: 8D 31 32 33 30 00 45 09 78 00 9F 31 34 2C 38 2C |.1230.E.x..14,8,|
00000130: 31 34 2C 22 30 3A 22 AA 4E 4D 24 AA 22 2C 53 2C |14,"0:".NM$.",S,|
00000140: 22 3A 58 B2 31 00 4D 09 82 00 59 B2 32 00 6E 09 |":X.1.M...Y.2.n.|
00000150: 8C 00 84 31 34 2C 20 41 24 28 58 2C 59 29 3A 59 |...14, A$(X,Y):Y|
00000160: B2 59 AA 31 3A 8B 59 B1 31 33 A7 31 36 30 00 77 |.Y.1:.Y.13.160.w|
00000170: 09 96 00 89 31 34 30 00 90 09 A0 00 58 B2 58 AA |....140.....X.X.|
00000180: 31 3A 8B 58 B1 31 33 A7 A0 31 34 3A 89 31 38 30 |1:.X.13..14:.180|
00000190: 00 99 09 AA 00 89 31 33 30 00 B7 09 B4 00 99 22 |......130......"|
000001A0: 93 11 11 22 A3 31 34 29 22 42 55 44 47 45 54 20 |...".14)"BUDGET |
000001B0: 4D 45 4E 55 11 11 22 00 DE 09 BE 00 99 A3 31 30 |MENU..".......10|
000001C0: 29 22 31 2D 12 57 92 52 49 54 45 20 4D 4F 4E 54 |)"1-.W.RITE MONT|
000001D0: 48 4C 59 20 42 49 4C 4C 53 22 3A 99 22 22 00 04 |HLY BILLS":.""..|
000001E0: 0A C8 00 99 A3 31 30 29 22 32 2D 12 56 92 49 45 |.....10)"2-.V.IE|
000001F0: 57 20 4D 4F 4E 54 48 4C 59 20 42 49 4C 4C 53 22 |W MONTHLY BILLS"|
00000200: 3A 99 22 22 00 2F 0A D2 00 99 A3 31 30 29 22 33 |:.""./.....10)"3|
00000210: 2D 12 42 92 41 52 43 48 41 52 54 20 54 52 45 4E |-.B.ARCHART TREN|
00000220: 44 20 4F 46 20 42 49 4C 4C 53 22 3A 99 22 22 00 |D OF BILLS":."".|
00000230: 59 0A DC 00 99 A3 31 30 29 22 34 2D 12 50 92 52 |Y.....10)"4-.P.R|
00000240: 49 4E 54 45 52 20 54 52 45 4E 44 20 4F 46 20 42 |INTER TREND OF B|
00000250: 49 4C 4C 53 22 3A 99 22 22 00 7E 0A E6 00 99 A3 |ILLS":."".~.....|
00000260: 31 30 29 22 35 2D 12 53 92 41 56 45 20 44 41 54 |10)"5-.S.AVE DAT|
00000270: 41 20 54 4F 20 44 49 53 4B 22 3A 99 22 22 00 A5 |A TO DISK":.""..|
00000280: 0A F0 00 99 A3 31 30 29 22 36 2D 12 4C 92 4F 41 |.....10)"6-.L.OA|
00000290: 44 20 44 41 54 41 20 46 52 4F 4D 20 44 49 53 4B |D DATA FROM DISK|
000002A0: 22 3A 99 22 22 00 CD 0A FA 00 99 A3 31 30 29 22 |":."".......10)"|
000002B0: 37 2D 12 43 52 45 41 54 45 20 49 4E 49 54 49 41 |7-.CREATE INITIA|
000002C0: 4C 20 46 49 4C 45 22 3A 99 22 11 11 22 00 EC 0A |L FILE":.".."...|
000002D0: 04 01 99 A3 31 32 29 22 53 45 4C 45 43 54 20 43 |....12)"SELECT C|
000002E0: 48 4F 49 43 45 20 3F 22 3A 59 B2 30 00 01 0B 0E |HOICE ?":Y.0....|
000002F0: 01 A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 32 37 |..AN$:.AN$."".27|
00000300: 30 00 26 0B 18 01 81 58 B2 31 A4 37 3A 8B 41 4E |0.&....X.1.7:.AN|
00000310: 24 B2 CA 28 22 57 56 42 50 53 4C 43 22 2C 58 2C |$..("WVBPSLC",X,|
00000320: 31 29 A7 59 B2 58 00 50 0B 22 01 82 3A 91 59 89 |1).Y.X.P."..:.Y.|
00000330: 34 31 30 2C 33 30 30 2C 35 30 30 2C 37 33 30 2C |410,300,500,730,|
00000340: 39 36 30 2C 31 31 30 2C 39 39 30 3A 89 31 38 30 |960,110,990:.180|
00000350: 00 80 0B 2C 01 99 22 93 11 11 11 11 22 3A 85 22 |...,..".....":."|
00000360: 20 20 45 4E 54 45 52 20 4D 4F 4E 54 48 20 54 4F | ENTER MONTH TO|
00000370: 20 56 49 45 57 22 3B 41 4E 24 3A 8D 31 30 32 30 | VIEW";AN$:.1020|
00000380: 00 9C 0B 36 01 99 22 93 22 3A 99 A3 31 35 29 41 |...6..".":..15)A|
00000390: 4E 24 3A 99 22 11 11 22 3A 59 B2 32 00 B9 0B 40 |N$:."..":Y.2...@|
000003A0: 01 99 41 24 28 31 2C 59 29 3A 59 B2 59 AA 31 3A |..A$(1,Y):Y.Y.1:|
000003B0: 8B 59 B1 31 33 A7 33 34 30 00 C2 0B 4A 01 89 33 |.Y.13.340...J..3|
000003C0: 32 30 00 DB 0B 54 01 99 22 91 91 91 91 91 91 91 |20...T..".......|
000003D0: 91 91 91 91 91 91 22 3A 59 B2 32 00 FC 0B 5E 01 |......":Y.2...^.|
000003E0: 99 A3 31 35 29 41 24 28 58 2C 59 29 3A 59 B2 59 |..15)A$(X,Y):Y.Y|
000003F0: AA 31 3A 8B 59 B1 31 33 A7 33 37 30 00 05 0C 68 |.1:.Y.13.370...h|
00000400: 01 89 33 35 30 00 0F 0C 72 01 8D 31 33 30 30 00 |..350...r..1300.|
00000410: 31 0C 7C 01 99 22 11 11 4D 4F 4E 54 48 4C 59 20 |1.|.."..MONTHLY |
00000420: 54 4F 54 41 4C 22 A3 31 34 29 51 AA 41 41 AA 42 |TOTAL".14)Q.AA.B|
00000430: 42 00 44 0C 86 01 A1 41 24 3A 8B 41 24 B2 22 22 |B.D....A$:.A$.""|
00000440: A7 33 39 30 00 4D 0C 90 01 89 31 38 30 00 7E 0C |.390.M....180.~.|
00000450: 9A 01 99 22 93 11 11 11 11 11 22 3A 85 22 20 20 |..."......":." |
00000460: 57 48 41 54 20 4D 4F 4E 54 48 20 54 4F 20 57 52 |WHAT MONTH TO WR|
00000470: 49 54 45 20 42 49 4C 4C 53 22 3B 41 4E 24 00 88 |ITE BILLS";AN$..|
00000480: 0C A4 01 8D 31 30 32 30 00 A4 0C AE 01 59 B2 32 |....1020.....Y.2|
00000490: 3A 99 22 93 22 3A 99 A3 31 35 29 41 4E 24 3A 99 |:.".":..15)AN$:.|
000004A0: 22 11 11 22 00 C1 0C B8 01 99 41 24 28 31 2C 59 |".."......A$(1,Y|
000004B0: 29 3A 59 B2 59 AA 31 3A 8B 59 B1 31 33 A7 34 36 |):Y.Y.1:.Y.13.46|
000004C0: 30 00 CA 0C C2 01 89 34 34 30 00 E3 0C CC 01 99 |0......440......|
000004D0: 22 91 91 91 91 91 91 91 91 91 91 91 91 91 22 3A |".............":|
000004E0: 59 B2 32 00 F6 0C D6 01 99 A3 31 35 29 3A 85 41 |Y.2.......15):.A|
000004F0: 24 28 58 2C 59 29 00 0A 0D E0 01 59 B2 59 AA 31 |$(X,Y).....Y.Y.1|
00000500: 3A 8B 59 B1 31 33 A7 31 38 30 00 13 0D EA 01 89 |:.Y.13.180......|
00000510: 34 37 30 00 38 0D F4 01 85 22 93 11 11 11 11 20 |470.8...."..... |
00000520: 20 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 42 | ENTER NAME OF B|
00000530: 49 4C 4C 22 3B 41 4E 24 00 44 0D FE 01 81 50 B2 |ILL";AN$.D....P.|
00000540: 32 A4 31 33 00 59 0D 08 02 8B 41 4E 24 B2 41 24 |2.13.Y....AN$.A$|
00000550: 28 31 2C 50 29 A7 59 B2 50 00 5F 0D 12 02 82 00 |(1,P).Y.P._.....|
00000560: 96 0D 1C 02 99 22 11 11 20 20 57 48 41 54 20 49 |.....".. WHAT I|
00000570: 53 20 4D 41 58 49 4D 55 4D 20 53 43 41 4C 45 20 |S MAXIMUM SCALE |
00000580: 46 4F 52 20 22 41 24 28 31 2C 59 29 3A 85 22 11 |FOR "A$(1,Y):.".|
00000590: 11 20 20 22 3B 42 00 BB 0D 26 02 99 22 93 22 3A |. ";B...&..".":|
000005A0: 99 A3 32 30 AB 28 C3 28 41 24 28 31 2C 59 29 29 |..20.(.(A$(1,Y))|
000005B0: AD 32 29 29 41 24 28 31 2C 59 29 00 CA 0D 30 02 |.2))A$(1,Y)...0.|
000005C0: 99 22 11 11 22 42 3A 5A B2 30 00 E2 0D 3A 02 5A |.".."B:Z.0...:.Z|
000005D0: B2 5A AA 28 42 AD 32 30 29 3A 8B 5A B2 42 A7 35 |.Z.(B.20):.Z.B.5|
000005E0: 39 30 00 F3 0D 44 02 99 B5 28 42 AB 5A 29 3A 89 |90...D...(B.Z):.|
000005F0: 35 37 30 00 0E 0E 4E 02 52 B2 31 39 39 32 3A 58 |570...N.R.1992:X|
00000600: B2 32 3A 54 B2 35 36 32 36 34 3A 55 B2 32 00 41 |.2:T.56264:U.2.A|
00000610: 0E 58 02 81 45 B2 52 A4 52 AB 28 34 30 AC 28 28 |.X..E.R.R.(40.((|
00000620: C5 28 41 24 28 58 2C 59 29 29 AD 28 42 AD 32 30 |.(A$(X,Y)).(B.20|
00000630: 29 29 29 29 A9 AB 34 30 3A 97 45 2C 32 32 34 3A |))))..40:.E,224:|
00000640: 82 00 72 0E 62 02 81 46 B2 54 A4 54 AB 28 34 30 |..r.b..F.T.T.(40|
00000650: AC 28 28 C5 28 41 24 28 58 2C 59 29 29 AD 28 42 |.((.(A$(X,Y)).(B|
00000660: AD 32 30 29 29 29 29 A9 AB 34 30 3A 97 46 2C 55 |.20))))..40:.F,U|
00000670: 3A 82 00 8E 0E 6C 02 52 B2 52 AA 32 3A 58 B2 58 |:....l.R.R.2:X.X|
00000680: AA 31 3A 54 B2 54 AA 32 3A 55 B2 55 AA 31 00 9B |.1:T.T.2:U.U.1..|
00000690: 0E 76 02 8B 55 B2 33 A7 55 B2 31 00 A9 0E 80 02 |.v..U.3.U.1.....|
000006A0: 8B 58 B2 31 34 A7 36 36 30 00 B2 0E 8A 02 89 36 |.X.14.660......6|
000006B0: 30 30 00 EA 0E 94 02 52 B2 31 39 39 32 3A 54 B2 |00.....R.1992:T.|
000006C0: 35 36 32 36 34 3A 97 52 2C 31 33 38 3A 97 54 2C |56264:.R,138:.T,|
000006D0: 31 3A 97 52 AA 32 2C 31 33 34 3A 97 54 AA 32 2C |1:.R.2,134:.T.2,|
000006E0: 31 3A 97 52 AA 34 2C 31 34 31 00 1F 0F 9E 02 97 |1:.R.4,141......|
000006F0: 54 AA 34 2C 31 3A 97 52 AA 36 2C 31 32 39 3A 97 |T.4,1:.R.6,129:.|
00000700: 54 AA 36 2C 31 3A 97 52 AA 38 2C 31 34 31 3A 97 |T.6,1:.R.8,141:.|
00000710: 54 AA 38 2C 31 3A 97 52 AA 31 30 2C 31 33 38 00 |T.8,1:.R.10,138.|
00000720: 59 0F A8 02 97 54 AA 31 30 2C 31 3A 97 52 AA 31 |Y....T.10,1:.R.1|
00000730: 32 2C 31 33 38 3A 97 54 AA 31 32 2C 31 3A 97 52 |2,138:.T.12,1:.R|
00000740: AA 31 34 2C 31 32 39 3A 97 54 AA 31 34 2C 31 3A |.14,129:.T.14,1:|
00000750: 97 52 AA 31 36 2C 31 34 37 00 93 0F B2 02 97 54 |.R.16,147......T|
00000760: AA 31 36 2C 31 3A 97 52 AA 31 38 2C 31 34 33 3A |.16,1:.R.18,143:|
00000770: 97 54 AA 31 38 2C 31 3A 97 52 AA 32 30 2C 31 34 |.T.18,1:.R.20,14|
00000780: 32 3A 97 54 AA 32 30 2C 31 3A 97 52 AA 32 32 2C |2:.T.20,1:.R.22,|
00000790: 31 33 32 00 9F 0F BC 02 97 54 AA 32 32 2C 31 00 |132......T.22,1.|
000007A0: B2 0F C6 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 |.....A$:.A$."".7|
000007B0: 31 30 00 BB 0F D0 02 89 31 38 30 00 E4 0F DA 02 |10......180.....|
000007C0: 9F 34 2C 34 3A 98 34 2C A3 33 38 29 22 42 55 44 |.4,4:.4,.38)"BUD|
000007D0: 47 45 54 20 31 39 38 34 22 3A 98 34 3A 4C B2 32 |GET 1984":.4:L.2|
000007E0: 3A 4D B2 37 00 03 10 E4 02 98 34 2C 22 20 42 49 |:M.7......4," BI|
000007F0: 4C 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |LL |
00000800: 20 22 3B 00 43 10 EE 02 98 34 2C 22 4A 41 4E 55 | ";.C....4,"JANU|
00000810: 41 52 59 20 20 20 46 45 42 55 41 52 59 20 20 20 |ARY FEBUARY |
00000820: 4D 41 52 43 48 20 20 20 20 20 41 50 52 49 4C 20 |MARCH APRIL |
00000830: 20 20 20 20 4D 41 59 20 20 20 20 20 20 20 4A 55 | MAY JU|
00000840: 4E 45 22 00 4C 10 F8 02 8D 38 35 30 00 58 10 02 |NE".L....850.X..|
00000850: 03 4C B2 32 3A 4D B2 37 00 61 10 0C 03 8D 38 39 |.L.2:M.7.a....89|
00000860: 30 00 89 10 16 03 4C B2 38 3A 4D B2 31 33 3A 98 |0.....L.8:M.13:.|
00000870: 34 2C 22 20 42 49 4C 4C 20 20 20 20 20 20 20 20 |4," BILL |
00000880: 20 20 20 20 20 20 20 22 3B 00 CD 10 20 03 98 34 | ";... ..4|
00000890: 2C 22 4A 55 4C 59 20 20 20 20 20 20 41 55 47 55 |,"JULY AUGU|
000008A0: 53 54 20 20 20 20 53 45 50 54 45 4D 42 45 52 20 |ST SEPTEMBER |
000008B0: 4F 43 54 4F 42 45 52 20 20 20 4E 4F 56 45 4D 42 |OCTOBER NOVEMB|
000008C0: 45 52 20 20 44 45 43 45 4D 42 45 52 22 00 D6 10 |ER DECEMBER"...|
000008D0: 2A 03 8D 38 35 30 00 E3 10 34 03 4C B2 38 3A 4D |*..850...4.L.8:M|
000008E0: B2 31 33 00 EC 10 3E 03 8D 38 39 30 00 FA 10 48 |.13...>..890...H|
000008F0: 03 A0 34 3A 8C 3A 89 31 38 30 00 16 11 52 03 81 |..4:.:.180...R..|
00000900: 59 B2 31 A4 31 33 3A 5A B2 32 30 AB C3 28 41 24 |Y.1.13:Z.20..(A$|
00000910: 28 31 2C 59 29 29 00 29 11 5C 03 98 34 2C 41 24 |(1,Y)).).\..4,A$|
00000920: 28 31 2C 59 29 A3 5A 29 3B 00 5D 11 66 03 81 49 |(1,Y).Z);.].f..I|
00000930: B2 4C A4 4D 3A 98 34 2C 28 41 24 28 49 2C 59 29 |.L.M:.4,(A$(I,Y)|
00000940: 29 A3 31 30 AB C3 28 41 24 28 49 2C 59 29 29 29 |).10..(A$(I,Y)))|
00000950: 3B 3A 82 49 3A 98 34 2C C7 28 31 30 29 00 69 11 |;:.I:.4,.(10).i.|
00000960: 70 03 82 59 3A 98 34 3A 8E 00 83 11 7A 03 98 34 |p..Y:.4:....z..4|
00000970: 2C 22 4D 4F 4E 54 48 4C 59 20 54 4F 54 41 4C 22 |,"MONTHLY TOTAL"|
00000980: A3 36 29 00 8E 11 84 03 81 58 B2 4C A4 4D 00 98 |.6)......X.L.M..|
00000990: 11 8E 03 8D 31 33 30 30 00 AE 11 98 03 43 B2 51 |....1300.....C.Q|
000009A0: AA 41 41 AA 42 42 3A 43 24 B2 C4 28 43 29 00 CA |.AA.BB:C$..(C)..|
000009B0: 11 A2 03 98 34 2C 51 AA 41 41 AA 42 42 A3 39 AB |....4,Q.AA.BB.9.|
000009C0: C3 28 43 24 29 29 3B 3A 82 58 00 D7 11 AC 03 98 |.(C$));:.X......|
000009D0: 34 2C C7 28 31 30 29 00 DD 11 B6 03 8E 00 E7 11 |4,.(10).........|
000009E0: C0 03 8D 31 32 33 30 00 05 12 CA 03 9F 31 34 2C |...1230......14,|
000009F0: 38 2C 31 34 2C 22 40 30 3A 22 AA 4E 4D 24 AA 22 |8,14,"@0:".NM$."|
00000A00: 2C 53 2C 57 22 00 13 12 D4 03 58 B2 31 3A 89 31 |,S,W".....X.1:.1|
00000A10: 31 37 30 00 4E 12 DE 03 99 22 93 11 20 20 41 20 |170.N....".. A |
00000A20: 54 4F 54 41 4C 20 4F 46 20 31 32 20 42 49 4C 4C |TOTAL OF 12 BILL|
00000A30: 53 20 57 49 4C 4C 20 42 45 20 45 4E 54 45 52 45 |S WILL BE ENTERE|
00000A40: 44 2E 11 11 11 22 3A 58 B2 31 3A 59 B2 32 00 7B |D....":X.1:Y.2.{|
00000A50: 12 E8 03 85 22 4E 41 4D 45 20 4F 46 20 42 49 4C |...."NAME OF BIL|
00000A60: 4C 22 3B 41 24 28 58 2C 59 29 3A 59 B2 59 AA 31 |L";A$(X,Y):Y.Y.1|
00000A70: 3A 8B 59 B1 31 33 A7 31 30 37 30 00 85 12 F2 03 |:.Y.13.1070.....|
00000A80: 89 31 30 30 30 00 91 12 FC 03 81 57 B2 31 A4 31 |.1000......W.1.1|
00000A90: 32 00 99 12 06 04 87 44 24 00 AB 12 10 04 8B 41 |2......D$......A|
00000AA0: 4E 24 B2 44 24 A7 58 B2 57 AA 31 00 B1 12 1A 04 |N$.D$.X.W.1.....|
00000AB0: 82 00 B9 12 24 04 8C 3A 8E 00 C6 12 2E 04 99 22 |....$..:......."|
00000AC0: 93 22 3A 58 B2 32 00 CE 12 38 04 59 B2 32 00 DE |.":X.2...8.Y.2..|
00000AD0: 12 42 04 41 24 28 58 2C 59 29 B2 22 30 22 00 F3 |.B.A$(X,Y)."0"..|
00000AE0: 12 4C 04 59 B2 59 AA 31 3A 8B 59 B1 31 33 A7 31 |.L.Y.Y.1:.Y.13.1|
00000AF0: 31 32 30 00 FD 12 56 04 89 31 30 39 30 00 12 13 |120...V..1090...|
00000B00: 60 04 58 B2 58 AA 31 3A 8B 58 B1 31 33 A7 31 31 |`.X.X.1:.X.13.11|
00000B10: 34 30 00 1C 13 6A 04 89 31 30 38 30 00 26 13 74 |40...j..1080.&.t|
00000B20: 04 8D 31 32 33 30 00 43 13 7E 04 9F 31 34 2C 38 |..1230.C.~..14,8|
00000B30: 2C 31 34 2C 22 30 3A 22 AA 4E 4D 24 AA 22 2C 53 |,14,"0:".NM$.",S|
00000B40: 2C 57 22 00 6A 13 88 04 58 B2 31 3A 99 22 11 11 |,W".j...X.1:."..|
00000B50: 20 20 12 43 52 45 41 54 49 4E 47 20 49 4E 49 54 | .CREATING INIT|
00000B60: 49 41 4C 20 46 49 4C 45 92 22 00 72 13 92 04 59 |IAL FILE.".r...Y|
00000B70: B2 32 00 93 13 9C 04 98 31 34 2C 41 24 28 58 2C |.2......14,A$(X,|
00000B80: 59 29 3A 59 B2 59 AA 31 3A 8B 59 B1 31 33 A7 31 |Y):Y.Y.1:.Y.13.1|
00000B90: 32 30 30 00 9D 13 A6 04 89 31 31 38 30 00 B2 13 |200......1180...|
00000BA0: B0 04 58 B2 58 AA 31 3A 8B 58 B1 31 33 A7 31 32 |..X.X.1:.X.13.12|
00000BB0: 32 30 00 BC 13 BA 04 89 31 31 37 30 00 C9 13 C4 |20......1170....|
00000BC0: 04 A0 31 34 3A 89 31 38 30 00 E4 13 CE 04 85 22 |..14:.180......"|
00000BD0: 93 11 11 20 20 12 46 49 4C 45 4E 41 4D 45 92 22 |... .FILENAME."|
00000BE0: 3B 4E 4D 24 00 08 14 D8 04 99 22 11 11 20 20 50 |;NM$......".. P|
00000BF0: 52 45 53 53 20 27 12 46 31 92 27 20 54 4F 20 43 |RESS '.F1.' TO C|
00000C00: 4F 4E 54 49 4E 55 45 22 00 1C 14 E2 04 A1 41 24 |ONTINUE"......A$|
00000C10: 3A 8B 41 24 B2 22 22 A7 31 32 35 30 00 2D 14 EC |:.A$."".1250.-..|
00000C20: 04 8B 41 24 B2 C7 28 31 33 33 29 A7 8E 00 37 14 |..A$..(133)...7.|
00000C30: F6 04 89 31 32 36 30 00 81 14 00 05 83 20 4A 41 |...1260...... JA|
00000C40: 4E 55 41 52 59 2C 46 45 42 52 55 41 52 59 2C 4D |NUARY,FEBRUARY,M|
00000C50: 41 52 43 48 2C 41 50 52 49 4C 2C 4D 41 59 2C 4A |ARCH,APRIL,MAY,J|
00000C60: 55 4E 45 2C 4A 55 4C 59 2C 41 55 47 55 53 54 2C |UNE,JULY,AUGUST,|
00000C70: 53 45 50 54 45 4D 42 45 52 2C 4F 43 54 4F 42 45 |SEPTEMBER,OCTOBE|
00000C80: 52 00 99 14 0A 05 83 20 4E 4F 56 45 4D 42 45 52 |R...... NOVEMBER|
00000C90: 2C 44 45 43 45 4D 42 45 52 00 D3 14 14 05 51 B2 |,DECEMBER.....Q.|
00000CA0: 28 C5 28 41 24 28 58 2C 32 29 29 29 AA 28 C5 28 |(.(A$(X,2))).(.(|
00000CB0: 41 24 28 58 2C 33 29 29 29 AA 28 C5 28 41 24 28 |A$(X,3))).(.(A$(|
00000CC0: 58 2C 34 29 29 29 AA 28 C5 28 41 24 28 58 2C 35 |X,4))).(.(A$(X,5|
00000CD0: 29 29 29 00 0E 15 1E 05 41 41 B2 28 C5 28 41 24 |))).....AA.(.(A$|
00000CE0: 28 58 2C 36 29 29 29 AA 28 C5 28 41 24 28 58 2C |(X,6))).(.(A$(X,|
00000CF0: 37 29 29 29 AA 28 C5 28 41 24 28 58 2C 38 29 29 |7))).(.(A$(X,8))|
00000D00: 29 AA 28 C5 28 41 24 28 58 2C 39 29 29 29 00 4D |).(.(A$(X,9))).M|
00000D10: 15 28 05 42 42 B2 28 C5 28 41 24 28 58 2C 31 30 |.(.BB.(.(A$(X,10|
00000D20: 29 29 29 AA 28 C5 28 41 24 28 58 2C 31 31 29 29 |))).(.(A$(X,11))|
00000D30: 29 AA 28 C5 28 41 24 28 58 2C 31 32 29 29 29 AA |).(.(A$(X,12))).|
00000D40: 28 C5 28 41 24 28 58 2C 31 33 29 29 29 00 53 15 |(.(A$(X,13))).S.|
00000D50: 32 05 8E 00 00 00 |2..... |
.......*********************.7....*
*.R....* HOME BUDGET
*.M.(..* BY *...2..*
BRIAN DOBBS *...<..*
*...F..* TIMMINS,ONTARIO *.Y.P..*
*...Z..*****************
****...D..53280,12:.53281,0:.A$(13,13):.
180.%.N..1230.E.X..14,8,14,"0:".NM$.",S,
":X.1.M...Y.2.N....14, A$(X,Y):Y.Y.1:.Y.
13.160.W....140... .X.X.1:.X.13. 14:.180
......130......"...".14)"BUDGET MENU..".
......10)"1-.W.RITE MONTHLY BILLS":.""..
.H...10)"2-.V.IEW MONTHLY BILLS":.""./.R
...10)"3-.B.ARCHART TREND OF BILLS":."".
Y.....10)"4-.P.RINTER TREND OF BILLS":."
".~.....10)"5-.S.AVE DATA TO DISK":.""..
.....10)"6-.L.OAD DATA FROM DISK":."".M.
....10)"7-.CREATE INITIAL FILE":.".."...
....12)"SELECT CHOICE ?":Y.0......AN$:.A
N$."".270.&....X.1.7:.AN$.J("WVBPSLC",X,
1).Y.X.P."..:.Y.410,300,500,730,960,110,
990:.180...,..".....":." ENTER MONTH TO
VIEW";AN$:.1020...6..".":..15)AN$:.".."
:Y.2...@..A$(1,Y):Y.Y.1:.Y.13.340.B.J..3
20...T..".............":Y.2...^...15)A$(
X,Y):Y.Y.1:.Y.13.370...H..350...R..1300.
1.|.."..MONTHLY TOTAL".14)Q.AA.BB.D....A
$:.A$."".390.M....180.~...."......":."
WHAT MONTH TO WRITE BILLS";AN$......1020
.....Y.2:.".":..15)AN$:."..".A....A$(1,Y
):Y.Y.1:.Y.13.460.J.B..440...L..".......
......":Y.2...V...15):.A$(X,Y).....Y.Y.1
:.Y.13.180......470.8...."..... ENTER N
AME OF BILL";AN$.D....P.2.13.Y....AN$.A$
(1,P).Y.P._..........".. WHAT IS MAXIMU
M SCALE FOR "A$(1,Y):.".. ";B...&..".":
..20.(C(A$(1,Y)).2))A$(1,Y).J.0..".."B:Z
.0...:.Z.Z.(B.20):.Z.B.590...D...(B.Z):.
570...N.R.1992:X.2:T.56264:U.2.A.X..E.R.
R.(40.((E(A$(X,Y)).(B.20))))..40:.E,224:
..R.B..F.T.T.(40.((E(A$(X,Y)).(B.20)))).
.40:.F,U:....L.R.R.2:X.X.1:T.T.2:U.U.1..
.V..U.3.U.1......X.14.660......600.....R
.1992:T.56264:.R,138:.T,1:.R.2,134:.T.2,
1:.R.4,141......T.4,1:.R.6,129:.T.6,1:.R
.8,141:.T.8,1:.R.10,138.Y....T.10,1:.R.1
2,138:.T.12,1:.R.14,129:.T.14,1:.R.16,14
7......T.16,1:.R.18,143:.T.18,1:.R.20,14
2:.T.20,1:.R.22,132......T.22,1...F..A$:
.A$."".710...P..180...Z..4,4:.4,.38)"BUD
GET 1984":.4:L.2:M.7......4," BILL
";.C....4,"JANUARY FEBUARY
MARCH APRIL MAY JUNE".L...
.850.X...L.2:M.7.A....890.....L.8:M.13:.
4," BILL ";.M. ..4,"JULY
AUGUST SEPTEMBER OCTOBER NOVEMB
ER DECEMBER".V.*..850...4.L.8:M.13...>.
.890...H. 4:.:.180...R..Y.1.13:Z.20.C(A$
(1,Y)).).\..4,A$(1,Y).Z);.].F..I.L.M:.4,
(A$(I,Y)).10.C(A$(I,Y)));:.I:.4,G(10).I.
P..Y:.4:....Z..4,"MONTHLY TOTAL".6).....
.X.L.M......1300.....C.Q.AA.BB:C$.D(C).J
....4,Q.AA.BB.9.C(C$));:.X.W....4,G(10).
...........1230...J..14,8,14,"@0:".NM$."
,S,W"...T.X.1:.1170.N....".. A TOTAL OF
12 BILLS WILL BE ENTERED....":X.1:Y.2.{
...."NAME OF BILL";A$(X,Y):Y.Y.1:.Y.13.1
070......1000......W.1.12......D$......A
N$.D$.X.W.1.........$..:..F....".":X.2.N
.8.Y.2...B.A$(X,Y)."0"...L.Y.Y.1:.Y.13.1
120...V..1090...`.X.X.1:.X.13.1140...J..
1080.&.T..1230.C.~..14,8,14,"0:".NM$.",S
,W".J...X.1:.".. .CREATING INITIAL FILE
.".R...Y.2......14,A$(X,Y):Y.Y.1:.Y.13.1
200......1180.....X.X.1:.X.13.1220......
1170.I.D. 14:.180...N.."... .FILENAME."
;NM$...X..".. PRESS '.F1.' TO CONTINUE"
......A$:.A$."".1250.-....A$.G(133)...7.
...1260...... JANUARY,FEBRUARY,MARCH,APR
IL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBE
R...... NOVEMBER,DECEMBER.S...Q.(E(A$(X,
2))).(E(A$(X,3))).(E(A$(X,4))).(E(A$(X,5
))).....AA.(E(A$(X,6))).(E(A$(X,7))).(E(
A$(X,8))).(E(A$(X,9))).M.(.BB.(E(A$(X,10
))).(E(A$(X,11))).(E(A$(X,12))).(E(A$(X,
13))).S.2.....
> CLICK IMAGE PREVIEW FOR FULL MODAL