BUDGETEER
FILE INFORMATION
FILENAME(S): BUDGETEER
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
c3c0e4827f842c4946ac4f3a11c55a9ab639496c5038486dd1d31e52f0819b86
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | BUDGETEER | PRG | Bugjam - Argentina | 6 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 30 08 64 00 58 B2 31 3A 8F 20 4D 41 4B 45 |..0.d.X.1:. MAKE|
00000010: 20 58 3D 30 20 46 4F 52 20 54 41 50 45 2C 4F 52 | X=0 FOR TAPE,OR|
00000020: 20 58 3D 31 20 54 4F 20 55 53 45 20 44 49 53 4B | X=1 TO USE DISK|
00000030: 00 51 08 69 00 97 20 35 33 32 38 30 2C 31 32 3A |.Q.i.. 53280,12:|
00000040: 97 20 35 33 32 38 31 2C 31 31 3A 99 C7 28 31 34 |. 53281,11:..(14|
00000050: 29 00 8D 08 6E 00 54 24 B2 22 93 12 9A 20 20 20 |)...n.T$."... |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 92 9B 20 20 | .. |
00000070: 42 55 44 47 45 54 45 45 52 20 20 12 9A 20 20 20 |BUDGETEER .. |
00000080: 20 20 20 20 20 20 20 20 20 20 20 9B 22 00 AD 08 | ."...|
00000090: 73 00 53 B2 35 34 32 37 32 3A 81 20 51 B2 53 20 |s.S.54272:. Q.S |
000000A0: A4 20 53 32 33 3A 97 20 51 2C 30 3A 82 00 E7 08 |. S23:. Q,0:....|
000000B0: 78 00 86 20 41 24 28 31 31 29 2C 41 28 31 31 29 |x.. A$(11),A(11)|
000000C0: 2C 42 25 28 31 31 29 3A 96 20 A5 52 28 58 29 B2 |,B%(11):. .R(X).|
000000D0: B5 28 58 AC 31 30 30 2E 35 29 AD 31 30 30 3A 99 |.(X.100.5).100:.|
000000E0: 20 54 24 22 36 11 22 00 11 09 82 00 99 20 22 54 | T$"6."...... "T|
000000F0: 4F 44 41 59 27 53 20 44 41 54 45 22 3B 3A 8D 31 |ODAY'S DATE";:.1|
00000100: 30 38 30 3A 85 20 44 44 24 3A 99 3A 89 20 32 33 |080:. DD$:.:. 23|
00000110: 30 00 3F 09 8C 00 99 20 54 24 3A 99 22 9B 20 20 |0.?.... T$:.". |
00000120: 44 41 54 45 3A 98 22 44 24 3A 99 22 9B 20 20 4C |DATE:."D$:.". L|
00000130: 41 53 54 20 41 4D 4F 55 4E 54 3A 24 98 22 41 00 |AST AMOUNT:$."A.|
00000140: 77 09 96 00 8D 31 39 30 3A 99 3A 81 20 52 B2 31 |w....190:.:. R.1|
00000150: A4 39 3A 99 22 20 20 9B 22 52 22 9D 2E 2E 22 41 |.9:." ."R"..."A|
00000160: 24 28 52 29 22 2E 2E 24 98 22 A3 42 25 28 52 29 |$(R)"..$.".B%(R)|
00000170: 29 41 28 52 29 3A 82 00 A1 09 A0 00 99 22 20 20 |)A(R):......." |
00000180: 9B 31 30 2E 2E 22 41 24 28 31 30 29 22 2E 2E 24 |.10.."A$(10)"..$|
00000190: 98 22 A3 42 25 28 31 30 29 29 41 28 31 30 29 3A |.".B%(10))A(10):|
000001A0: 99 00 CE 09 AA 00 99 22 20 20 9B 31 31 2E 2E 22 |......." .11.."|
000001B0: 41 24 28 31 31 29 22 2E 2E 24 98 22 A3 42 25 28 |A$(11)"..$.".B%(|
000001C0: 31 31 29 29 41 28 31 31 29 3A 99 3A 8E 3A 00 DB |11))A(11):.:.:..|
000001D0: 09 BE 00 81 20 52 B2 31 A4 31 31 00 08 0A C8 00 |.... R.1.11.....|
000001E0: 8B 20 B6 28 41 28 52 29 29 B2 B1 31 20 A7 20 42 |. .(A(R))..1 . B|
000001F0: 25 28 52 29 B2 33 32 AB C3 28 C4 28 B5 28 B6 28 |%(R).32..(.(.(.(|
00000200: 41 28 52 29 29 29 29 29 00 23 0A D2 00 8B 20 B6 |A(R))))).#.... .|
00000210: 28 41 28 52 29 29 B3 31 20 A7 20 42 25 28 52 29 |(A(R)).1 . B%(R)|
00000220: B2 33 31 00 2B 0A DC 00 82 3A 8E 00 42 0A E6 00 |.31.+....:..B...|
00000230: 81 20 52 B2 31 A4 31 31 3A 87 20 41 24 28 52 29 |. R.1.11:. A$(R)|
00000240: 3A 82 00 6B 0A F0 00 83 22 48 4F 55 53 49 4E 47 |:..k...."HOUSING|
00000250: 2E 2E 2E 2E 2E 2E 2E 2E 22 2C 22 55 54 49 4C 49 |........","UTILI|
00000260: 54 49 45 53 2E 2E 2E 2E 2E 2E 22 00 94 0A F3 00 |TIES......".....|
00000270: 83 22 49 4E 53 55 52 41 4E 43 45 2E 2E 2E 2E 2E |."INSURANCE.....|
00000280: 2E 22 2C 22 53 45 52 56 49 43 45 20 43 48 41 52 |.","SERVICE CHAR|
00000290: 47 45 53 22 00 AB 0A F7 00 83 22 43 52 45 44 49 |GES"......"CREDI|
000002A0: 54 A0 43 41 52 44 53 2E 2E 2E 22 00 D5 0A FA 00 |T.CARDS...".....|
000002B0: 83 20 22 56 41 43 41 54 49 4F 4E 2E 2E 2E 2E 2E |. "VACATION.....|
000002C0: 2E 2E 22 2C 22 4D 45 44 49 43 41 4C 2E 2E 2E 2E |..","MEDICAL....|
000002D0: 2E 2E 2E 2E 22 00 FF 0A FD 00 83 20 22 42 4F 4F |...."...... "BOO|
000002E0: 4B 53 26 4D 41 47 41 5A 49 4E 45 53 22 2C 22 53 |KS&MAGAZINES","S|
000002F0: 54 4F 52 45 20 43 48 41 52 47 45 53 2E 2E 22 00 |TORE CHARGES..".|
00000300: 2A 0B 01 01 83 20 22 4D 49 53 43 45 4C 4C 41 4E |*.... "MISCELLAN|
00000310: 45 4F 55 53 2E 2E 22 2C 22 54 4F 54 41 4C 20 A0 |EOUS..","TOTAL .|
00000320: 42 41 4C 41 4E 43 45 2E 2E 22 00 34 0B 04 01 89 |BALANCE..".4....|
00000330: 20 33 36 30 00 3E 0B 0E 01 8D 31 30 35 30 00 67 | 360.>....1050.g|
00000340: 0B 18 01 8B 20 58 20 A7 20 9F 31 2C 38 2C 32 2C |.... X . .1,8,2,|
00000350: 22 30 3A 43 48 42 4B 46 49 4C 45 2C 52 45 41 44 |"0:CHBKFILE,READ|
00000360: 22 3A 89 20 33 35 30 00 9B 0B 22 01 99 22 49 4E |":. 350...".."IN|
00000370: 53 45 52 54 45 20 43 41 53 45 54 45 20 59 20 52 |SERTE CASETE Y R|
00000380: 45 42 4F 42 49 4E 45 20 50 41 52 41 20 4C 45 45 |EBOBINE PARA LEE|
00000390: 52 20 42 41 4C 41 4E 43 45 2E 22 00 B5 0B 2C 01 |R BALANCE."...,.|
000003A0: 99 3A 99 22 4C 49 53 54 4F 3F 2E 2E 2E 50 55 4C |.:."LISTO?...PUL|
000003B0: 53 45 20 59 22 00 CB 0B 36 01 A1 20 41 24 3A 8B |SE Y"...6.. A$:.|
000003C0: 20 41 24 B2 22 22 20 A7 33 31 30 00 DC 0B 40 01 | A$."" .310...@.|
000003D0: 8B 20 41 24 B2 22 4E 22 20 A7 20 80 00 EF 0B 4A |. A$."N" . ....J|
000003E0: 01 8B 20 41 24 B3 B1 22 59 22 A7 20 32 39 30 00 |.. A$.."Y". 290.|
000003F0: 04 0C 54 01 9F 31 2C 31 2C 30 22 43 48 42 4B 46 |..T..1,1,0"CHBKF|
00000400: 49 4C 45 22 00 25 0C 5E 01 81 20 52 B2 31 A4 31 |ILE".%.^.. R.1.1|
00000410: 31 3A 85 33 31 2C 41 28 52 29 3A 82 3A 84 31 2C |1:.31,A(R):.:.1,|
00000420: 44 24 3A A0 31 00 2E 0C 68 01 8D 31 34 30 00 48 |D$:.1...h..140.H|
00000430: 0C 72 01 99 22 9B 54 52 41 4E 53 41 43 54 49 4F |.r..".TRANSACTIO|
00000440: 4E 3F 20 20 59 2F 4E 22 00 52 0C 77 01 8D 31 30 |N? Y/N".R.w..10|
00000450: 38 30 00 68 0C 7C 01 A1 20 41 24 3A 8B 20 41 24 |80.h.|.. A$:. A$|
00000460: B2 22 22 20 A7 33 38 30 00 7A 0C 86 01 8B 20 41 |."" .380.z.... A|
00000470: 24 B2 22 59 22 20 A7 34 35 30 00 8C 0C 90 01 8B |$."Y" .450......|
00000480: 20 41 24 B2 22 4E 22 20 A7 37 34 30 00 9E 0C 9A | A$."N" .740....|
00000490: 01 8D 31 31 36 30 3A 81 20 52 B2 31 A4 33 00 CE |..1160:. R.1.3..|
000004A0: 0C A4 01 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
000004B0: 11 11 11 11 11 11 11 11 22 A6 31 34 29 22 20 20 |........".14)" |
000004C0: 20 22 3A 81 20 4D B2 31 A4 33 30 30 3A 82 00 03 | ":. M.1.300:...|
000004D0: 0D AE 01 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
000004E0: 11 11 11 11 11 11 11 11 22 A6 31 34 29 22 59 2F |........".14)"Y/|
000004F0: 4E 3A 46 4F 52 20 4D 3D 31 54 4F 33 30 30 3A 4E |N:FOR M=1TO300:N|
00000500: 45 58 54 00 0E 0D B8 01 82 3A 89 33 38 30 00 27 |EXT......:.380.'|
00000510: 0D C2 01 54 B2 54 AA 31 3A 8B 20 54 B2 31 20 A7 |...T.T.1:. T.1 .|
00000520: 20 44 24 B2 44 44 24 00 55 0D CC 01 99 22 13 11 | D$.DD$.U...."..|
00000530: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000540: 11 4D 45 4E 55 3A 54 3D 41 43 43 54 20 54 52 41 |.MENU:T=ACCT TRA|
00000550: 4E 53 46 45 52 00 6C 0D D6 01 99 A6 36 29 22 43 |NSFER.l.....6)"C|
00000560: 3D 57 52 49 54 45 20 43 48 45 43 4B 00 84 0D E0 |=WRITE CHECK....|
00000570: 01 99 A6 36 29 22 44 3D 4D 41 4B 45 20 44 45 50 |...6)"D=MAKE DEP|
00000580: 4F 53 49 54 00 8E 0D E5 01 8D 31 30 38 30 00 A3 |OSIT......1080..|
00000590: 0D EA 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 A7 |.... A$:. A$."".|
000005A0: 34 39 30 00 B4 0D F4 01 8B 20 41 24 B2 22 43 22 |490...... A$."C"|
000005B0: A7 35 39 30 00 C5 0D FE 01 8B 20 41 24 B2 22 44 |.590...... A$."D|
000005C0: 22 A7 36 32 30 00 D6 0D 08 02 8B 20 41 24 B2 22 |".620...... A$."|
000005D0: 54 22 A7 36 35 30 00 E8 0D 12 02 8D 31 31 36 30 |T".650......1160|
000005E0: 3A 81 20 52 B2 31 A4 33 00 09 0E 1C 02 99 22 13 |:. R.1.3......".|
000005F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000600: 11 11 22 A6 36 29 22 A0 22 00 29 0E 26 02 99 A6 |..".6)".".).&...|
00000610: 36 29 22 A0 22 3A 99 A6 36 29 22 A0 22 3A 81 20 |6)".":..6)".":. |
00000620: 4D B2 31 A4 33 30 30 3A 82 00 4A 0E 30 02 99 22 |M.1.300:..J.0.."|
00000630: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000640: 11 11 11 22 A6 36 29 22 54 22 00 6A 0E 3A 02 99 |...".6)"T".j.:..|
00000650: A6 36 29 22 43 22 3A 99 A6 36 29 22 44 22 3A 81 |.6)"C":..6)"D":.|
00000660: 20 4D B2 31 A4 33 30 30 3A 82 00 75 0E 44 02 82 | M.1.300:..u.D..|
00000670: 3A 89 34 39 30 00 93 0E 4E 02 99 22 13 11 11 11 |:.490...N.."....|
00000680: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000690: 11 11 22 00 BB 0E 4F 02 99 22 41 4D 54 20 4F 46 |.."...O.."AMT OF|
000006A0: 20 43 48 45 43 4B 2C 41 43 43 54 20 23 22 3B 3A | CHECK,ACCT #";:|
000006B0: 8D 31 30 38 30 3A 85 20 41 2C 4C 00 E4 0E 58 02 |.1080:. A,L...X.|
000006C0: 8B 20 4C B1 31 30 20 B0 20 4C B3 31 20 B0 20 4C |. L.10 . L.1 . L|
000006D0: AB B5 28 4C 29 B1 30 20 A7 20 8D 31 31 36 30 3A |..(L).0 . .1160:|
000006E0: 89 35 39 30 00 0F 0F 62 02 41 28 31 31 29 B2 A5 |.590...b.A(11)..|
000006F0: 52 28 41 28 31 31 29 AB 41 29 3A 41 28 4C 29 B2 |R(A(11).A):A(L).|
00000700: A5 52 28 41 28 4C 29 AB 41 29 3A 89 36 34 30 00 |.R(A(L).A):.640.|
00000710: 32 0F 6C 02 99 3A 99 22 41 4D 54 20 4F 46 20 44 |2.l..:."AMT OF D|
00000720: 45 50 4F 53 49 54 22 3B 3A 8D 31 30 38 30 3A 85 |EPOSIT";:.1080:.|
00000730: 20 41 00 5D 0F 76 02 4C B2 31 30 3A 41 28 31 31 | A.].v.L.10:A(11|
00000740: 29 B2 A5 52 28 41 28 31 31 29 AA 41 29 3A 41 28 |)..R(A(11).A):A(|
00000750: 4C 29 B2 A5 52 28 41 28 4C 29 AA 41 29 00 74 0F |L)..R(A(L).A).t.|
00000760: 80 02 8D 31 34 30 3A 45 B2 4C 3A 46 B2 31 32 3A |...140:E.L:F.12:|
00000770: 89 36 39 30 00 92 0F 8A 02 99 22 13 11 11 11 11 |.690......".....|
00000780: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000790: 11 22 00 BA 0F 8B 02 99 22 41 4D 54 2C 46 52 4F |."......"AMT,FRO|
000007A0: 4D 20 23 2C 54 4F 20 23 22 3B 3A 8D 31 30 38 30 |M #,TO #";:.1080|
000007B0: 3A 85 20 41 2C 41 31 2C 41 32 00 E7 0F 8D 02 8B |:. A,A1,A2......|
000007C0: 20 41 31 B1 31 30 20 B0 20 41 31 B3 31 20 B0 20 | A1.10 . A1.1 . |
000007D0: 41 31 AB B5 28 41 31 29 B1 30 20 A7 20 8D 31 31 |A1..(A1).0 . .11|
000007E0: 36 30 3A 89 36 35 30 00 14 10 94 02 8B 20 41 32 |60:.650...... A2|
000007F0: B1 31 30 20 B0 20 41 32 B3 31 20 B0 20 41 32 AB |.10 . A2.1 . A2.|
00000800: B5 28 41 32 29 B1 30 20 A7 20 8D 31 31 36 30 3A |.(A2).0 . .1160:|
00000810: 89 36 35 30 00 3C 10 9E 02 41 28 41 31 29 B2 A5 |.650.<...A(A1)..|
00000820: 52 28 41 28 41 31 29 AB 41 29 3A 41 28 41 32 29 |R(A(A1).A):A(A2)|
00000830: B2 A5 52 28 41 28 41 32 29 AA 41 29 00 4F 10 A8 |..R(A(A2).A).O..|
00000840: 02 8D 31 34 30 3A 45 B2 41 31 3A 46 B2 41 32 00 |..140:E.A1:F.A2.|
00000850: 7C 10 B2 02 8B 20 45 B1 36 20 A7 20 99 22 13 22 ||.... E.6 . ."."|
00000860: A6 32 35 35 29 A6 31 39 38 29 A6 45 AC 34 30 AB |.255).198).E.40.|
00000870: 32 35 35 29 22 2A 22 3A 89 37 31 30 00 93 10 BC |255)"*":.710....|
00000880: 02 99 22 13 22 A6 31 39 38 29 A6 45 AC 34 30 29 |..".".198).E.40)|
00000890: 22 2A 22 00 C0 10 C6 02 8B 20 46 B1 36 20 A7 20 |"*"...... F.6 . |
000008A0: 99 22 13 22 A6 32 35 35 29 A6 31 39 38 29 A6 46 |.".".255).198).F|
000008B0: AC 34 30 AB 32 35 35 29 22 2A 22 3A 89 37 33 30 |.40.255)"*":.730|
000008C0: 00 D7 10 D0 02 99 22 13 22 A6 31 39 38 29 A6 46 |......".".198).F|
000008D0: AC 34 30 29 22 2A 22 00 02 11 DA 02 81 20 4D B2 |.40)"*"...... M.|
000008E0: 31 A4 37 35 30 3A 82 3A 99 22 13 11 11 11 11 11 |1.750:.:."......|
000008F0: 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 89 33 |............":.3|
00000900: 37 30 00 11 11 E4 02 8B 20 54 B2 30 20 A7 38 37 |70...... T.0 .87|
00000910: 30 00 2D 11 EE 02 5A B2 30 3A 81 20 52 B2 31 A4 |0.-...Z.0:. R.1.|
00000920: 31 30 3A 5A B2 5A AA 41 28 52 29 3A 82 00 49 11 |10:Z.Z.A(R):..I.|
00000930: F8 02 8B 20 B6 28 5A AB 41 28 31 31 29 29 B2 B1 |... .(Z.A(11))..|
00000940: 2E 30 31 20 A7 20 39 34 30 00 7B 11 02 03 8D 20 |.01 . 940.{.... |
00000950: 31 34 30 3A 99 22 53 55 4D 20 4F 46 20 41 43 43 |140:."SUM OF ACC|
00000960: 4F 55 4E 54 53 3D 54 4F 54 41 4C 20 42 41 4C 41 |OUNTS=TOTAL BALA|
00000970: 4E 43 45 22 3A 8D 20 31 30 30 30 00 A5 11 0C 03 |NCE":. 1000.....|
00000980: 8B 20 58 20 A7 20 9F 31 2C 38 2C 32 2C 22 40 30 |. X . .1,8,2,"@0|
00000990: 3A 43 48 42 4B 46 49 4C 45 2C 57 52 49 54 45 22 |:CHBKFILE,WRITE"|
000009A0: 3A 89 38 34 30 00 BE 11 16 03 99 3A 99 22 52 45 |:.840......:."RE|
000009B0: 41 44 59 3F 2E 2E 2E 50 52 45 53 53 20 59 00 D3 |ADY?...PRESS Y..|
000009C0: 11 20 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 A7 |. .. A$:. A$."".|
000009D0: 38 30 30 00 E5 11 2A 03 8B 20 41 24 B2 22 4E 22 |800...*.. A$."N"|
000009E0: 20 A7 38 38 30 00 F8 11 34 03 8B 20 41 24 B3 B1 | .880...4.. A$..|
000009F0: 22 59 22 20 A7 37 38 30 00 0E 12 3E 03 9F 31 2C |"Y" .780...>..1,|
00000A00: 31 2C 31 2C 22 43 48 42 4B 46 49 4C 45 22 00 32 |1,1,"CHBKFILE".2|
00000A10: 12 48 03 52 24 B2 C7 28 31 33 29 3A 81 20 52 B2 |.H.R$..(13):. R.|
00000A20: 31 A4 31 31 3A 98 31 2C 41 28 52 29 3B 52 24 3B |1.11:.1,A(R);R$;|
00000A30: 3A 82 00 43 12 52 03 98 31 2C 44 24 3B 52 24 3B |:..C.R..1,D$;R$;|
00000A40: 3A A0 31 00 6D 12 57 03 99 20 54 24 3A 99 22 44 |:.1.m.W.. T$:."D|
00000A50: 41 54 45 3A 22 44 24 3A 99 22 48 41 44 22 54 22 |ATE:"D$:."HAD"T"|
00000A60: 20 54 52 41 4E 53 2E 22 3A 8D 31 35 30 00 84 12 | TRANS.":.150...|
00000A70: 5C 03 99 22 4E 45 57 20 46 49 4C 45 20 44 4F 4E |\.."NEW FILE DON|
00000A80: 45 2E 22 80 00 B7 12 66 03 8D 31 34 30 3A 99 22 |E."....f..140:."|
00000A90: 4E 4F 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 22 |NO TRANSACTIONS"|
00000AA0: 3A 99 22 46 49 4C 45 20 4E 4F 54 20 43 48 41 4E |:."FILE NOT CHAN|
00000AB0: 47 45 53 2E 22 3A 80 00 DA 12 70 03 8D 31 34 30 |GES.":....p..140|
00000AC0: 3A 99 22 42 41 4C 41 4E 43 45 53 20 48 41 56 45 |:."BALANCES HAVE|
00000AD0: 20 43 48 41 4E 47 45 44 2E 22 00 F1 12 7A 03 99 | CHANGED."...z..|
00000AE0: 22 57 52 49 54 45 20 4E 45 57 20 46 49 4C 45 3F |"WRITE NEW FILE?|
00000AF0: 22 00 07 13 84 03 A1 20 41 24 3A 8B 20 41 24 B2 |"...... A$:. A$.|
00000B00: 22 22 20 A7 39 30 30 00 18 13 8E 03 8B 20 41 24 |"" .900...... A$|
00000B10: B2 22 4E 22 20 A7 20 80 00 2B 13 98 03 8B 20 41 |."N" . ..+.... A|
00000B20: 24 B3 B1 22 59 22 20 A7 38 38 30 00 34 13 A2 03 |$.."Y" .880.4...|
00000B30: 89 33 36 30 00 62 13 A7 03 8D 31 34 30 3A 99 22 |.360.b....140:."|
00000B40: 45 52 52 4F 52 20 2D 20 4E 4F 20 42 41 4C 41 4E |ERROR - NO BALAN|
00000B50: 43 45 2E 22 3A 99 22 41 43 43 54 20 53 55 4D 3D |CE.":."ACCT SUM=|
00000B60: 22 5A 00 7C 13 AC 03 99 22 43 48 42 4B 20 42 41 |"Z.|...."CHBK BA|
00000B70: 4C 41 4E 43 45 3D 22 41 28 31 31 29 00 9C 13 B6 |LANCE="A(11)....|
00000B80: 03 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 |.."DO YOU WISH T|
00000B90: 4F 20 43 4F 4E 54 49 4E 55 45 3F 22 00 B2 13 C0 |O CONTINUE?"....|
00000BA0: 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 39 |.. A$:. A$."" .9|
00000BB0: 36 30 00 C2 13 CA 03 8B 20 41 24 B2 22 4E 22 20 |60...... A$."N" |
00000BC0: A7 80 00 D5 13 D4 03 8B 20 41 24 B3 B1 22 59 22 |........ A$.."Y"|
00000BD0: 20 A7 39 34 30 00 DE 13 DE 03 89 33 36 30 00 FE | .940......360..|
00000BE0: 13 E8 03 99 22 49 4E 53 45 52 54 20 44 41 54 41 |...."INSERT DATA|
00000BF0: 20 44 49 53 4B 20 4F 52 20 54 41 50 45 22 00 27 | DISK OR TAPE".'|
00000C00: 14 EA 03 99 22 50 52 45 53 53 49 4E 47 20 27 53 |...."PRESSING 'S|
00000C10: 54 4F 50 27 20 57 49 4C 4C 20 41 42 4F 52 54 20 |TOP' WILL ABORT |
00000C20: 53 45 53 49 4F 4E 22 00 4A 14 ED 03 99 22 20 28 |SESION".J...." (|
00000C30: 54 52 41 4E 53 41 43 54 49 4F 4E 53 20 57 49 4C |TRANSACTIONS WIL|
00000C40: 4C 20 42 45 20 4C 4F 53 54 29 00 70 14 F0 03 99 |L BE LOST).p....|
00000C50: 22 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 |" ANY OTHER KEY |
00000C60: 57 49 4C 4C 20 53 41 56 45 20 44 41 54 41 2E 22 |WILL SAVE DATA."|
00000C70: 00 7A 14 F1 03 8D 31 30 38 30 00 90 14 F2 03 A1 |.z....1080......|
00000C80: 20 41 24 3A 8B 20 41 24 B2 22 22 A7 31 30 31 30 | A$:. A$."".1010|
00000C90: 00 96 14 06 04 8E 00 B6 14 1A 04 99 22 49 4E 53 |............"INS|
00000CA0: 45 52 54 20 44 41 54 41 20 44 49 53 4B 20 4F 52 |ERT DATA DISK OR|
00000CB0: 20 54 41 50 45 22 00 D9 14 1F 04 99 22 50 52 45 | TAPE"......"PRE|
00000CC0: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 4C 4F |SS ANY KEY TO LO|
00000CD0: 41 44 20 44 41 54 41 2E 22 00 E3 14 22 04 8D 31 |AD DATA."..."..1|
00000CE0: 30 38 30 00 FA 14 24 04 A1 20 41 24 3A 8B 20 41 |080...$.. A$:. A|
00000CF0: 24 B2 22 22 20 A7 31 30 36 30 00 00 15 2E 04 8E |$."" .1060......|
00000D00: 00 19 15 38 04 81 20 51 B2 53 20 A4 20 53 AA 32 |...8.. Q.S . S.2|
00000D10: 32 3A 97 20 51 2C 30 3A 82 00 2C 15 42 04 97 20 |2:. Q,0:..,.B.. |
00000D20: 53 35 2C 30 3A 97 20 53 31 39 2C 30 00 3F 15 47 |S5,0:. S19,0.?.G|
00000D30: 04 97 20 53 36 2C 37 3A 97 20 53 32 30 2C 37 00 |.. S6,7:. S20,7.|
00000D40: 4C 15 4C 04 97 20 53 32 34 2C 31 35 00 60 15 56 |L.L.. S24,15.`.V|
00000D50: 04 97 20 53 34 2C 33 33 3A 97 53 31 38 2C 31 39 |.. S4,33:.S18,19|
00000D60: 00 72 15 60 04 97 20 53 2C 30 3A 97 20 53 31 2C |.r.`.. S,0:. S1,|
00000D70: 37 35 00 89 15 6A 04 97 20 53 AA 31 34 2C 31 3A |75...j.. S.14,1:|
00000D80: 97 20 53 AA 31 35 2C 37 35 00 9F 15 6F 04 97 20 |. S.15,75...o.. |
00000D90: 53 AA 34 2C 33 32 3A 97 53 AA 31 38 2C 31 38 00 |S.4,32:.S.18,18.|
00000DA0: AF 15 74 04 81 20 51 B2 31 A4 31 35 30 3A 82 00 |..t.. Q.1.150:..|
00000DB0: C6 15 7E 04 97 20 53 AA 31 2C 30 3A 97 20 53 AA |..~.. S.1,0:. S.|
00000DC0: 31 35 2C 30 3A 8E 00 DF 15 88 04 81 20 51 B2 53 |15,0:....... Q.S|
00000DD0: 20 A4 20 53 AA 32 32 3A 97 20 51 2C 30 3A 82 00 | . S.22:. Q,0:..|
00000DE0: F3 15 92 04 97 20 53 AA 35 3A 97 20 53 AA 31 32 |..... S.5:. S.12|
00000DF0: 2C 31 35 00 07 16 97 04 97 20 53 AA 33 2C 34 3A |,15...... S.3,4:|
00000E00: 97 33 AA 31 30 2C 34 00 14 16 9C 04 97 20 53 AA |.3.10,4...... S.|
00000E10: 32 34 2C 36 00 2A 16 A6 04 97 20 53 AA 34 2C 36 |24,6.*.... S.4,6|
00000E20: 35 3A 97 53 AA 31 38 2C 36 35 00 40 16 B0 04 97 |5:.S.18,65.@....|
00000E30: 20 53 AA 31 2C 31 32 3A 97 20 53 AA 38 2C 31 34 | S.1,12:. S.8,14|
00000E40: 00 50 16 BA 04 81 20 51 B2 31 A4 32 35 30 3A 82 |.P.... Q.1.250:.|
00000E50: 00 66 16 C4 04 97 20 53 AA 31 2C 30 3A 97 20 53 |.f.... S.1,0:. S|
00000E60: AA 38 2C 30 3A 8E 00 00 00 08 |.8,0:..... |
..0.D.X.1:. MAKE X=0 FOR TAPE,OR X=1 TO
USE DISK.Q.I.. 53280,12:. 53281,11:.G(14
)...N.T$."... .. BUDGETEE
R .. ."...S.S.54272:. Q.S
. S23:. Q,0:....X.. A$(11),A(11),B%(11):
. .R(X)..(X.100.5).100:. T$"6."...... "T
ODAY'S DATE";:.1080:. DD$:.:. 230.?....
T$:.". DATE:."D$:.". LAST AMOUNT:$."A.
W....190:.:. R.1.9:." ."R"..."A$(R)"..$
.".B%(R))A(R):.... .." .10.."A$(10)"..$
.".B%(10))A(10):..N...." .11.."A$(11)".
.$.".B%(11))A(11):.:.:...... R.1.11...H.
. .(A(R))..1 . B%(R).32.C(D(.(.(A(R)))))
.#.R.. .(A(R)).1 . B%(R).31.+....:..B...
. R.1.11:. A$(R):..K...."HOUSING........
","UTILITIES......"......"INSURANCE.....
.","SERVICE CHARGES"......"CREDIT CARDS.
..".U.... "VACATION.......","MEDICAL....
...."...... "BOOKS&MAGAZINES","STORE CHA
RGES..".*.... "MISCELLANEOUS..","TOTAL
BALANCE..".4.... 360.>....1050.G.... X .
.1,8,2,"0:CHBKFILE,READ":. 350...".."IN
SERTE CASETE Y REBOBINE PARA LEER BALANC
E."...,..:."LISTO?...PULSE Y".K.6.. A$:.
A$."" .310...@.. A$."N" . ....J.. A$.."
Y". 290...T..1,1,0"CHBKFILE".%.^.. R.1.1
1:.31,A(R):.:.1,D$: 1...H..140.H.R..".TR
ANSACTION? Y/N".R.W..1080.H.|.. A$:. A$
."" .380.Z.... A$."Y" .450...... A$."N"
.740......1160:. R.1.3.N...."...........
........".14)" ":. M.1.300:......."...
................".14)"Y/N:FOR M=1TO300:N
EXT......:.380.'.B.T.T.1:. T.1 . D$.DD$.
U.L.."...................MENU:T=ACCT TRA
NSFER.L.V...6)"C=WRITE CHECK.......6)"D=
MAKE DEPOSIT......1080...... A$:. A$."".
490...... A$."C".590.E.... A$."D".620.V.
... A$."T".650......1160:. R.1.3......".
..................".6)" ".).&...6)" ":..
6)" ":. M.1.300:..J.0.."................
...".6)"T".J.:...6)"C":..6)"D":. M.1.300
:..U.D..:.490...N.."....................
.."...O.."AMT OF CHECK,ACCT #";:.1080:.
A,L...X.. L.10 . L.1 . L..(L).0 . .1160:
.590...B.A(11)..R(A(11).A):A(L)..R(A(L).
A):.640.2.L..:."AMT OF DEPOSIT";:.1080:.
A.].V.L.10:A(11)..R(A(11).A):A(L)..R(A(
L).A).T....140:E.L:F.12:.690......".....
................."......"AMT,FROM #,TO #
";:.1080:. A,A1,A2...... A1.10 . A1.1 .
A1..(A1).0 . .1160:.650...... A2.10 . A2
.1 . A2..(A2).0 . .1160:.650.<...A(A1)..
R(A(A1).A):A(A2)..R(A(A2).A).O....140:E.
A1:F.A2.|.... E.6 . .".".255).198).E.40.
255)"*":.710......".".198).E.40)"*"...F.
. F.6 . .".".255).198).F.40.255)"*":.730
.W.P..".".198).F.40)"*"...Z.. M.1.750:.:
."..................":.370...... T.0 .87
0.-...Z.0:. R.1.10:Z.Z.A(R):..I.... .(Z.
A(11))...01 . 940.{.... 140:."SUM OF ACC
OUNTS=TOTAL BALANCE":. 1000...... X . .1
,8,2,"@0:CHBKFILE,WRITE":.840......:."RE
ADY?...PRESS Y.S. .. A$:. A$."".800...*.
. A$."N" .880...4.. A$.."Y" .780...>..1,
1,1,"CHBKFILE".2.H.R$.G(13):. R.1.11:.1,
A(R);R$;:..C.R..1,D$;R$;: 1.M.W.. T$:."D
ATE:"D$:."HAD"T" TRANS.":.150...\.."NEW
FILE DONE."....F..140:."NO TRANSACTIONS"
:."FILE NOT CHANGES.":..Z.P..140:."BALAN
CES HAVE CHANGED."...Z.."WRITE NEW FILE?
"...... A$:. A$."" .900...... A$."N" . .
.+.... A$.."Y" .880.4....360.B....140:."
ERROR - NO BALANCE.":."ACCT SUM="Z.|....
"CHBK BALANCE="A(11)......"DO YOU WISH T
O CONTINUE?"...... A$:. A$."" .960.B.J..
A$."N" ...U.T.. A$.."Y" .940......360..
...."INSERT DATA DISK OR TAPE".'...."PRE
SSING 'STOP' WILL ABORT SESION".J...." (
TRANSACTIONS WILL BE LOST).P...." ANY OT
HER KEY WILL SAVE DATA.".Z....1080......
A$:. A$."".1010............"INSERT DATA
DISK OR TAPE".Y...."PRESS ANY KEY TO LO
AD DATA."..."..1080...$.. A$:. A$."" .10
60.........8.. Q.S . S.22:. Q,0:..,.B..
S5,0:. S19,0.?.G.. S6,7:. S20,7.L.L.. S2
4,15.`.V.. S4,33:.S18,19.R.`.. S,0:. S1,
75...J.. S.14,1:. S.15,75...O.. S.4,32:.
S.18,18...T.. Q.1.150:..F.~.. S.1,0:. S.
15,0:....... Q.S . S.22:. Q,0:....... S.
5:. S.12,15...... S.3,4:.3.10,4...... S.
24,6.*.... S.4,65:.S.18,65.@.... S.1,12:
. S.8,14.P.... Q.1.250:..F.D.. S.1,0:. S
.8,0:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL