PERSONAL ACCNT.C
FILE INFORMATION
FILENAME(S): PERSONAL ACCNT.C
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 01:08:00
APPEARS ON: 3 disk(s)
FILE HASH
974eb95649368a08b4cf19b5c3ef3c8b94f028016d56ee6125fcb7454907821a
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | PERSONAL ACCNT.C | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 9 | DOWNLOAD FILE |
| U TILITIE | PERSONAL ACCNT.C | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 9 | DOWNLOAD FILE |
| TPUG DEC 83 C | PERSONAL ACCNT.C | PRG | DuncanTwain | 26 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 20 20 20 2A 20 2A 20 2A 20 |..).... * * * | 00000010: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * | 00000020: 2A 20 2A 20 2A 20 2A 20 2A 00 51 08 02 00 8F 20 |* * * * *.Q.... | 00000030: 20 20 2A 20 20 20 20 20 20 20 50 45 52 53 4F 4E | * PERSON| 00000040: 41 4C 20 41 43 43 4F 55 4E 54 49 4E 47 20 20 20 |AL ACCOUNTING | 00000050: 2A 00 79 08 03 00 8F 20 20 20 2A 20 20 20 20 20 |*.y.... * | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 2A 00 A1 08 04 00 8F 20 | *...... | 00000080: 20 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 00000090: 20 42 59 20 20 20 20 20 20 20 20 20 20 20 20 20 | BY | 000000A0: 2A 00 C9 08 05 00 8F 20 20 20 2A 20 20 20 20 20 |*...... * | 000000B0: 20 20 20 20 4A 49 4D 4D 59 20 4D 2E 20 53 4D 49 | JIMMY M. SMI| 000000C0: 54 48 20 20 20 20 20 20 2A 00 F1 08 06 00 8F 20 |TH *...... | 000000D0: 20 20 2A 20 20 20 20 20 20 20 20 20 20 50 2E 4F | * P.O| 000000E0: 2E 20 42 4F 58 20 31 32 39 37 20 20 20 20 20 20 |. BOX 1297 | 000000F0: 2A 00 19 09 07 00 8F 20 20 20 2A 20 20 20 20 20 |*...... * | 00000100: 20 20 20 4D 41 52 46 41 2C 20 54 58 2E 20 37 39 | MARFA, TX. 79| 00000110: 38 34 33 20 20 20 20 20 2A 00 41 09 08 00 8F 20 |843 *.A.... | 00000120: 20 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 | * * * * * * * | 00000130: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * | 00000140: 2A 00 66 09 0A 00 86 43 24 28 35 29 2C 44 24 28 |*.f....C$(5),D$(| 00000150: 32 35 29 2C 44 28 32 35 29 3A 43 B2 30 3A 44 B2 |25),D(25):C.0:D.| 00000160: 30 3A 99 22 93 22 00 AA 09 0B 00 99 22 93 22 3A |0:."."......".":| 00000170: 99 3A 99 22 57 48 49 43 48 20 44 4F 20 59 4F 55 |.:."WHICH DO YOU| 00000180: 20 57 41 4E 54 20 54 4F 20 44 4F 3A 20 22 3A 99 | WANT TO DO: ":.| 00000190: A3 35 29 22 31 2E 20 57 4F 52 4B 20 43 55 52 52 |.5)"1. WORK CURR| 000001A0: 45 4E 54 20 4D 4F 4E 54 48 22 00 C9 09 0C 00 99 |ENT MONTH"......| 000001B0: A3 35 29 22 32 2E 20 52 45 56 49 45 57 20 4C 41 |.5)"2. REVIEW LA| 000001C0: 53 54 20 4D 4F 4E 54 48 22 00 DB 09 0D 00 A1 5A |ST MONTH"......Z| 000001D0: 24 3A 8B 5A 24 B2 22 22 A7 31 33 00 ED 09 0E 00 |$:.Z$."".13.....| 000001E0: 8B 5A 24 B2 22 32 22 A7 8D 31 35 30 30 00 19 0A |.Z$."2"..1500...| 000001F0: 0F 00 99 3A 99 22 44 4F 20 59 4F 55 20 4E 45 45 |...:."DO YOU NEE| 00000200: 44 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 28 |D INSTRUCTIONS (| 00000210: 59 20 4F 52 20 4E 29 3F 22 00 2B 0A 10 00 A1 5A |Y OR N)?".+....Z| 00000220: 24 3A 8B 5A 24 B2 22 22 A7 31 36 00 3D 0A 11 00 |$:.Z$."".16.=...| 00000230: 8B 5A 24 B2 22 59 22 A7 8D 31 30 30 30 00 48 0A |.Z$."Y"..1000.H.| 00000240: 12 00 99 22 93 22 3A 99 00 6F 0A 14 00 99 3A 85 |...".":..o....:.| 00000250: 22 45 4E 54 45 52 20 50 52 45 53 45 4E 54 20 42 |"ENTER PRESENT B| 00000260: 41 4E 4B 20 42 41 4C 41 4E 43 45 22 3B 42 42 00 |ANK BALANCE";BB.| 00000270: 90 0A 1E 00 99 3A 85 22 45 4E 54 45 52 20 43 55 |.....:."ENTER CU| 00000280: 52 52 45 4E 54 20 4D 4F 4E 54 48 22 3B 4D 4F 24 |RRENT MONTH";MO$| 00000290: 00 A4 0A 1F 00 99 22 93 22 3A 99 3A 43 B2 30 3A |......".":.:C.0:| 000002A0: 49 54 B2 30 00 E3 0A 23 00 99 22 2A 20 2A 20 2A |IT.0...#.."* * *| 000002B0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 000002C0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 000002D0: 20 2A 22 3A 99 3A 99 A3 31 36 29 22 49 4E 43 4F | *":.:..16)"INCO| 000002E0: 4D 45 22 00 14 0B 24 00 99 3A 99 22 2A 20 2A 20 |ME"...$..:."* * | 000002F0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * | 00000300: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * | 00000310: 2A 20 2A 22 00 37 0B 28 00 99 3A 85 22 45 4E 54 |* *".7.(..:."ENT| 00000320: 45 52 20 49 4E 43 4F 4D 45 20 53 4F 55 52 43 45 |ER INCOME SOURCE| 00000330: 22 3B 43 24 28 43 29 00 4D 0B 2B 00 8B 43 24 28 |";C$(C).M.+..C$(| 00000340: 43 29 B2 22 4F 56 45 52 22 A7 89 33 31 00 64 0B |C)."OVER"..31.d.| 00000350: 2D 00 8B 43 24 28 43 29 B2 22 53 54 4F 50 22 A7 |-..C$(C)."STOP".| 00000360: 89 31 30 30 00 92 0B 32 00 85 22 45 4E 54 45 52 |.100...2.."ENTER| 00000370: 20 41 4D 4F 55 4E 54 22 3B 43 28 43 29 3A 49 54 | AMOUNT";C(C):IT| 00000380: B2 49 54 AA 43 28 43 29 3A 43 B2 43 AA 31 3A 89 |.IT.C(C):C.C.1:.| 00000390: 34 30 00 B3 0B 64 00 99 22 93 22 3A 99 3A 99 3A |40...d..".":.:.:| 000003A0: 99 22 59 4F 55 52 20 49 4E 43 4F 4D 45 20 49 53 |."YOUR INCOME IS| 000003B0: 3A 20 22 00 DF 0B 6E 00 99 3A 81 58 B2 30 A4 43 |: "...n..:.X.0.C| 000003C0: AB 31 3A 99 A3 35 29 C4 28 58 AA 31 29 3B 22 2E |.1:..5).(X.1);".| 000003D0: 20 22 3B 43 24 28 58 29 2C 43 28 58 29 3A 82 00 | ";C$(X),C(X):..| 000003E0: 04 0C 78 00 99 3A 99 22 54 4F 54 41 4C 20 49 4E |..x..:."TOTAL IN| 000003F0: 43 4F 4D 45 3A 20 24 22 3B 49 54 3A 42 54 B2 49 |COME: $";IT:BT.I| 00000400: 54 AA 42 42 00 23 0C 82 00 99 22 50 52 45 53 45 |T.BB.#...."PRESE| 00000410: 4E 54 20 42 41 4C 41 4E 43 45 20 49 53 20 24 22 |NT BALANCE IS $"| 00000420: 3B 42 54 00 2D 0C 8C 00 99 3A 99 3A 99 00 5B 0C |;BT.-....:.:..[.| 00000430: 96 00 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 |..."DO YOU WANT | 00000440: 54 4F 20 53 41 56 45 20 54 48 45 20 44 41 54 41 |TO SAVE THE DATA| 00000450: 3F A0 28 59 20 4F 52 20 4E 29 22 00 6E 0C 9B 00 |?.(Y OR N)".n...| 00000460: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 35 35 00 7E |.Z$:.Z$."".155.~| 00000470: 0C 9D 00 8B 5A 24 B2 22 4E 22 89 31 38 30 00 9A |....Z$."N".180..| 00000480: 0C A0 00 9F 31 2C 31 2C 31 2C 22 50 45 52 46 49 |....1,1,1,"PERFI| 00000490: 4E 22 AA 4D 4F 24 AA 22 43 22 00 BF 0C AA 00 81 |N".MO$."C"......| 000004A0: 58 B2 30 A4 43 AB 31 3A 98 31 2C 43 24 28 58 29 |X.0.C.1:.1,C$(X)| 000004B0: C7 28 31 33 29 43 28 58 29 3A 82 58 3A A0 31 00 |.(13)C(X):.X:.1.| 000004C0: FE 0C B4 00 99 22 93 22 3A 99 3A 99 22 2A 20 2A |.....".":.:."* *| 000004D0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 000004E0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 000004F0: 20 2A 20 2A 22 3A 44 B2 30 3A 45 54 B2 30 00 16 | * *":D.0:ET.0..| 00000500: 0D B9 00 99 3A 99 A3 31 35 29 22 45 58 50 45 4E |....:..15)"EXPEN| 00000510: 53 45 53 22 3A 99 00 47 0D BE 00 99 3A 99 22 2A |SES":..G....:."*| 00000520: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000530: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000540: 20 2A 20 2A 20 2A 22 00 6B 0D C8 00 99 3A 85 22 | * * *".k....:."| 00000550: 45 4E 54 45 52 20 45 58 50 45 4E 53 45 20 53 4F |ENTER EXPENSE SO| 00000560: 55 52 43 45 22 3B 44 24 28 44 29 00 82 0D CA 00 |URCE";D$(D).....| 00000570: 8B 44 24 28 44 29 B2 22 4F 56 45 52 22 A7 89 31 |.D$(D)."OVER"..1| 00000580: 38 30 00 99 0D CD 00 8B 44 24 28 44 29 B2 22 53 |80......D$(D)."S| 00000590: 54 4F 50 22 A7 89 33 30 30 00 C8 0D D2 00 85 22 |TOP"..300......"| 000005A0: 45 4E 54 45 52 20 41 4D 4F 55 4E 54 22 3B 44 28 |ENTER AMOUNT";D(| 000005B0: 44 29 3A 45 54 B2 45 54 AA 44 28 44 29 3A 44 B2 |D):ET.ET.D(D):D.| 000005C0: 44 AA 31 3A 89 32 30 30 00 EC 0D 2C 01 99 22 93 |D.1:.200...,..".| 000005D0: 22 3A 99 3A 99 3A 99 22 59 4F 55 52 20 45 58 50 |":.:.:."YOUR EXP| 000005E0: 45 4E 53 45 53 20 41 52 45 3A 20 22 00 18 0E 36 |ENSES ARE: "...6| 000005F0: 01 99 3A 81 58 B2 30 A4 44 AB 31 3A 99 A3 35 29 |..:.X.0.D.1:..5)| 00000600: C4 28 58 AA 31 29 3B 22 2E 20 22 3B 44 24 28 58 |.(X.1);". ";D$(X| 00000610: 29 2C 44 28 58 29 3A 82 00 3F 0E 40 01 99 3A 99 |),D(X):..?.@..:.| 00000620: 22 54 4F 54 41 4C 20 45 58 50 45 4E 53 45 53 3A |"TOTAL EXPENSES:| 00000630: 20 24 22 3B 45 54 3A 42 54 B2 42 54 AB 45 54 00 | $";ET:BT.BT.ET.| 00000640: 5E 0E 4A 01 99 22 50 52 45 53 45 4E 54 20 42 41 |^.J.."PRESENT BA| 00000650: 4C 41 4E 43 45 20 49 53 20 24 22 3B 42 54 00 68 |LANCE IS $";BT.h| 00000660: 0E 54 01 99 3A 99 3A 99 00 96 0E 5E 01 99 22 44 |.T..:.:....^.."D| 00000670: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 41 |O YOU WANT TO SA| 00000680: 56 45 20 54 48 45 20 44 41 54 41 3F A0 28 59 20 |VE THE DATA?.(Y | 00000690: 4F 52 20 4E 29 22 00 A9 0E 63 01 A1 5A 24 3A 8B |OR N)"...c..Z$:.| 000006A0: 5A 24 B2 22 22 A7 33 35 35 00 B9 0E 64 01 8B 5A |Z$."".355...d..Z| 000006B0: 24 B2 22 4E 22 89 34 30 30 00 D5 0E 68 01 9F 31 |$."N".400...h..1| 000006C0: 2C 31 2C 31 2C 22 50 45 52 46 49 4E 22 AA 4D 4F |,1,1,"PERFIN".MO| 000006D0: 24 AA 22 44 22 00 FA 0E 72 01 81 58 B2 30 A4 44 |$."D"...r..X.0.D| 000006E0: AB 31 3A 98 31 2C 44 24 28 58 29 C7 28 31 33 29 |.1:.1,D$(X).(13)| 000006F0: 44 28 58 29 3A 82 58 3A A0 31 00 17 0F 7C 01 9F |D(X):.X:.1...|..| 00000700: 31 2C 31 2C 31 2C 22 50 45 52 46 49 4E 22 AA 4D |1,1,1,"PERFIN".M| 00000710: 4F 24 AA 22 42 54 22 00 28 0F 81 01 98 31 2C 42 |O$."BT".(....1,B| 00000720: 54 3A A0 20 31 20 3A 99 00 4F 0F 90 01 99 22 93 |T:. 1 :..O....".| 00000730: 22 3A 99 A3 38 29 22 53 55 4D 4D 41 52 59 20 4F |":..8)"SUMMARY O| 00000740: 46 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 22 00 |F TRANSACTIONS".| 00000750: 71 0F 95 01 99 A3 38 29 22 C5 C5 C5 C5 C5 C5 C5 |q.....8)".......| 00000760: 20 C5 C5 20 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 | .. ............| 00000770: 22 00 97 0F 9A 01 99 3A 99 22 54 4F 54 41 4C 20 |"......:."TOTAL | 00000780: 49 4E 43 4F 4D 45 20 57 41 53 3A 22 3B A3 32 35 |INCOME WAS:";.25| 00000790: 29 22 24 22 3B 49 54 00 BC 0F A4 01 99 22 54 4F |)"$";IT......"TO| 000007A0: 54 41 4C 20 45 58 50 45 4E 53 45 20 57 41 53 3A |TAL EXPENSE WAS:| 000007B0: 22 3B A3 32 35 29 22 24 22 3B 45 54 00 E6 0F AE |";.25)"$";ET....| 000007C0: 01 99 3A 99 3A 99 22 50 52 45 53 45 4E 54 20 42 |..:.:."PRESENT B| 000007D0: 41 4C 41 4E 43 45 20 49 53 3A 22 3B A3 32 35 29 |ALANCE IS:";.25)| 000007E0: 22 24 22 3B 42 54 00 1F 10 B8 01 99 3A 99 3A 99 |"$";BT......:.:.| 000007F0: 3A 8B 42 54 B3 30 A7 99 22 42 45 54 54 45 52 20 |:.BT.0.."BETTER | 00000800: 44 49 47 20 46 4F 52 20 47 4F 4C 44 3B 20 59 4F |DIG FOR GOLD; YO| 00000810: 55 27 52 45 20 49 4E 20 54 48 45 20 52 45 44 00 |U'RE IN THE RED.| 00000820: 4E 10 C2 01 8B 42 54 B1 30 A7 99 22 57 45 4C 4C |N....BT.0.."WELL| 00000830: 20 44 4F 4E 45 21 20 53 41 46 45 20 46 4F 52 20 | DONE! SAFE FOR | 00000840: 41 4E 4F 54 48 45 52 20 4D 4F 4E 54 48 22 00 54 |ANOTHER MONTH".T| 00000850: 10 84 03 80 00 87 10 E8 03 99 22 93 22 3A 99 3A |..........".":.:| 00000860: 99 A3 33 29 22 49 4E 53 54 52 55 43 54 49 4F 4E |..3)"INSTRUCTION| 00000870: 53 20 46 4F 52 20 50 45 52 53 4F 4E 41 4C 20 46 |S FOR PERSONAL F| 00000880: 49 4E 41 4E 43 45 22 00 B3 10 F2 03 99 A3 33 29 |INANCE".......3)| 00000890: 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 A0 C5 C5 |"...............| 000008A0: C5 A0 C5 C5 C5 C5 C5 C5 C5 C5 A0 C5 C5 C5 C5 C5 |................| 000008B0: C5 C5 22 00 EA 10 FC 03 99 3A 99 A3 35 29 22 53 |.."......:..5)"S| 000008C0: 49 4D 50 4C 59 20 44 4F 20 41 53 20 54 48 45 20 |IMPLY DO AS THE | 000008D0: 43 4F 4D 50 55 54 45 52 20 54 45 4C 4C 53 20 59 |COMPUTER TELLS Y| 000008E0: 4F 55 20 54 4F 20 44 4F 2E 22 00 1E 11 06 04 99 |OU TO DO."......| 000008F0: 3A 99 A3 35 29 22 49 46 20 59 4F 55 20 4D 41 4B |:..5)"IF YOU MAK| 00000900: 45 20 41 20 4D 49 53 54 41 4B 45 20 41 54 20 41 |E A MISTAKE AT A| 00000910: 4E 59 20 50 4F 49 4E 54 20 49 4E 20 22 3B 00 66 |NY POINT IN ";.f| 00000920: 11 10 04 99 22 4D 41 4B 49 4E 47 20 59 4F 55 52 |...."MAKING YOUR| 00000930: 20 45 4E 54 52 49 45 53 2C 20 53 49 4D 50 4C 59 | ENTRIES, SIMPLY| 00000940: 20 54 59 50 45 20 49 4E 20 20 27 4F 56 45 52 27 | TYPE IN 'OVER'| 00000950: 20 41 54 20 54 48 45 20 4E 45 58 54 20 53 4F 55 | AT THE NEXT SOU| 00000960: 52 43 45 20 22 3B 00 98 11 1A 04 99 22 52 45 51 |RCE ";......"REQ| 00000970: 55 45 53 54 2E 20 54 48 45 4E 20 4D 41 4B 45 20 |UEST. THEN MAKE | 00000980: 41 4C 4C 20 45 4E 54 52 49 45 53 20 4F 56 45 52 |ALL ENTRIES OVER| 00000990: 20 41 47 41 49 4E 2E 22 00 C3 11 1F 04 99 3A 99 | AGAIN."......:.| 000009A0: A3 35 29 22 57 48 45 4E 20 54 48 52 4F 55 47 48 |.5)"WHEN THROUGH| 000009B0: 20 4D 41 4B 49 4E 47 20 45 4E 54 52 49 45 53 2C | MAKING ENTRIES,| 000009C0: 20 22 3B 00 F0 11 24 04 99 22 54 59 50 45 20 20 | ";...$.."TYPE | 000009D0: 49 4E 20 27 53 54 4F 50 27 41 54 20 54 48 45 20 |IN 'STOP'AT THE | 000009E0: 53 4F 55 52 43 45 20 52 45 51 55 45 53 54 2E 22 |SOURCE REQUEST."| 000009F0: 00 1F 12 2E 04 99 3A 99 3A 99 22 48 49 54 20 41 |......:.:."HIT A| 00000A00: 4E 59 20 4B 45 59 20 57 48 45 4E 20 59 4F 55 27 |NY KEY WHEN YOU'| 00000A10: 52 45 20 52 45 41 44 59 20 54 4F 20 47 4F 22 00 |RE READY TO GO".| 00000A20: 33 12 38 04 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 |3.8..Z$:.Z$."".1| 00000A30: 30 38 30 00 39 12 42 04 8E 00 79 12 DC 05 99 22 |080.9.B...y...."| 00000A40: 93 22 3A 99 3A 85 22 45 4E 54 45 52 20 4C 41 53 |.":.:."ENTER LAS| 00000A50: 54 20 4D 4F 4E 54 48 22 3B 4D 4F 24 3A 99 22 49 |T MONTH";MO$:."I| 00000A60: 4E 53 45 52 54 20 54 41 50 45 20 46 4F 52 20 22 |NSERT TAPE FOR "| 00000A70: 3B 4D 4F 24 3B 22 20 26 22 00 83 12 D0 07 99 22 |;MO$;" &"......"| 00000A80: 91 22 3B 00 9F 12 DA 07 9F 31 2C 31 2C 30 2C 22 |.";......1,1,0,"| 00000A90: 50 45 52 46 49 4E 22 AA 4D 4F 24 AA 22 43 22 00 |PERFIN".MO$."C".| 00000AA0: D0 12 DB 07 99 3A 99 22 2A 20 2A 20 2A 20 2A 20 |.....:."* * * * | 00000AB0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * | 00000AC0: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 22 |* * * * * * * *"| 00000AD0: 00 E6 12 DC 07 99 3A 99 A3 31 36 29 22 49 4E 43 |......:..16)"INC| 00000AE0: 4F 4D 45 22 3A 99 00 15 13 DD 07 99 22 2A 20 2A |OME":......."* *| 00000AF0: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000B00: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000B10: 20 2A 20 2A 22 00 35 13 DE 07 99 3A 99 A3 35 29 | * *".5....:..5)| 00000B20: 22 53 4F 55 52 43 45 22 3B A3 32 37 29 22 41 4D |"SOURCE";.27)"AM| 00000B30: 4F 55 4E 54 22 00 53 13 DF 07 99 A3 35 29 22 C5 |OUNT".S.....5)".| 00000B40: C5 C5 C5 C5 C5 22 3B A3 32 37 29 22 C5 C5 C5 C5 |.....";.27)"....| 00000B50: C5 C5 22 00 7E 13 E4 07 A1 23 31 2C 43 24 3A 8B |..".~....#1,C$:.| 00000B60: 43 24 B3 B1 C7 28 31 33 29 A7 99 43 24 3B 3A 8B |C$...(13)..C$;:.| 00000B70: 43 24 B3 B1 C7 28 31 33 29 A7 32 30 32 30 00 91 |C$...(13).2020..| 00000B80: 13 EE 07 99 2C 3A 84 31 2C 43 3A 99 A3 33 30 29 |....,:.1,C:..30)| 00000B90: 43 00 9B 13 F3 07 5A B2 5A AA 43 00 AA 13 F8 07 |C.....Z.Z.C.....| 00000BA0: 8B 53 54 B2 30 A7 32 30 32 30 00 C8 13 FD 07 99 |.ST.0.2020......| 00000BB0: 3A 99 22 54 4F 54 41 4C 20 49 4E 43 4F 4D 45 20 |:."TOTAL INCOME | 00000BC0: 57 41 53 20 24 22 3B 5A 00 F0 13 02 08 A0 31 3A |WAS $";Z......1:| 00000BD0: 99 3A 99 22 54 4F 20 53 45 45 20 45 58 50 45 4E |.:."TO SEE EXPEN| 00000BE0: 53 45 53 20 48 49 54 20 41 4E 59 20 4B 45 59 22 |SES HIT ANY KEY"| 00000BF0: 00 04 14 0C 08 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 |......Z$:.Z$."".| 00000C00: 32 30 36 30 00 0F 14 34 08 99 22 93 22 3A 99 00 |2060...4..".":..| 00000C10: 2B 14 3E 08 9F 31 2C 31 2C 30 2C 22 50 45 52 46 |+.>..1,1,0,"PERF| 00000C20: 49 4E 22 AA 4D 4F 24 AA 22 44 22 00 5C 14 3F 08 |IN".MO$."D".\.?.| 00000C30: 99 3A 99 22 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |.:."* * * * * * | 00000C40: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * | 00000C50: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 22 00 74 14 40 |* * * * * *".t.@| 00000C60: 08 99 3A 99 A3 31 36 29 22 45 58 50 45 4E 53 45 |..:..16)"EXPENSE| 00000C70: 53 22 3A 99 00 A3 14 41 08 99 22 2A 20 2A 20 2A |S":....A.."* * *| 00000C80: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000C90: 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A | * * * * * * * *| 00000CA0: 20 2A 22 00 C3 14 42 08 99 3A 99 A3 35 29 22 53 | *"...B..:..5)"S| 00000CB0: 4F 55 52 43 45 22 3B A3 32 37 29 22 41 4D 4F 55 |OURCE";.27)"AMOU| 00000CC0: 4E 54 22 00 E1 14 43 08 99 A3 35 29 22 C5 C5 C5 |NT"...C...5)"...| 00000CD0: C5 C5 C5 22 3B A3 32 37 29 22 C5 C5 C5 C5 C5 C5 |...";.27)"......| 00000CE0: 22 00 0C 15 48 08 A1 23 31 2C 44 24 3A 8B 44 24 |"...H..#1,D$:.D$| 00000CF0: B3 B1 C7 28 31 33 29 A7 99 44 24 3B 3A 8B 44 24 |...(13)..D$;:.D$| 00000D00: B3 B1 C7 28 31 33 29 A7 32 31 32 30 00 1F 15 52 |...(13).2120...R| 00000D10: 08 99 2C 3A 84 31 2C 44 3A 99 A3 33 30 29 44 00 |..,:.1,D:..30)D.| 00000D20: 2B 15 57 08 44 54 B2 44 54 AA 44 00 3A 15 5C 08 |+.W.DT.DT.D.:.\.| 00000D30: 8B 53 54 B2 30 A7 32 31 32 30 00 41 15 61 08 A0 |.ST.0.2120.A.a..| 00000D40: 31 00 5E 15 66 08 9F 31 2C 31 2C 30 2C 22 50 45 |1.^.f..1,1,0,"PE| 00000D50: 52 46 49 4E 22 AA 4D 4F 24 AA 22 42 54 22 00 6B |RFIN".MO$."BT".k| 00000D60: 15 6B 08 84 31 2C 42 54 3A A0 31 00 8A 15 6C 08 |.k..1,BT:.1...l.| 00000D70: 99 3A 99 22 45 58 50 45 4E 53 45 53 20 54 4F 54 |.:."EXPENSES TOT| 00000D80: 41 4C 45 44 20 24 22 3B 44 54 00 B1 15 70 08 99 |ALED $";DT...p..| 00000D90: 3A 99 22 59 4F 55 52 20 43 4C 4F 53 49 4E 47 20 |:."YOUR CLOSING | 00000DA0: 42 41 4C 41 4E 43 45 20 57 41 53 20 24 22 3B 42 |BALANCE WAS $";B| 00000DB0: 54 00 BA 15 7A 08 42 54 B2 30 00 DB 15 CA 08 99 |T...z.BT.0......| 00000DC0: 3A 99 22 54 4F 20 43 4F 4E 54 49 4E 55 45 20 48 |:."TO CONTINUE H| 00000DD0: 49 54 20 41 4E 59 20 4B 45 59 22 00 EF 15 D4 08 |IT ANY KEY".....| 00000DE0: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 32 32 36 30 00 |.Z$:.Z$."".2260.| 00000DF0: F5 15 DE 08 8E 00 00 00 |........ |
..).... * * * * * * * * * * * * * * * *.Q.... * PERSONAL ACCOUNTING *.Y.... * *...... * BY *.I.... * JIMMY M. SMITH *...... * P.O. BOX 1297 *...... * MARFA, TX. 79843 *.A.... * * * * * * * * * * * * * * * *.F....C$(5),D$(25),D(25):C.0:D.0:.".".. ....".":.:."WHICH DO YOU WANT TO DO: ":. .5)"1. WORK CURRENT MONTH".I.....5)"2. R EVIEW LAST MONTH"......Z$:.Z$."".13..... .Z$."2"..1500......:."DO YOU NEED INSTRU CTIONS (Y OR N)?".+....Z$:.Z$."".16.=... .Z$."Y"..1000.H....".":..O....:."ENTER P RESENT BANK BALANCE";BB......:."ENTER CU RRENT MONTH";MO$......".":.:C.0:IT.0...# .."* * * * * * * * * * * * * * * * * * * *":.:..16)"INCOME"...$..:."* * * * * * * * * * * * * * * * * * * *".7.(..:."ENT ER INCOME SOURCE";C$(C).M.+..C$(C)."OVER "..31.D.-..C$(C)."STOP"..100...2.."ENTER AMOUNT";C(C):IT.IT.C(C):C.C.1:.40...D.. ".":.:.:."YOUR INCOME IS: "...N..:.X.0.C .1:..5)D(X.1);". ";C$(X),C(X):....X..:." TOTAL INCOME: $";IT:BT.IT.BB.#...."PRESE NT BALANCE IS $";BT.-....:.:..[...."DO Y OU WANT TO SAVE THE DATA? (Y OR N)".N... .Z$:.Z$."".155.~....Z$."N".180... ..1,1, 1,"PERFIN".MO$."C"......X.0.C.1:.1,C$(X) G(13)C(X):.X: 1......".":.:."* * * * * * * * * * * * * * * * * * * *":D.0:ET.0.. ....:..15)"EXPENSES":..G....:."* * * * * * * * * * * * * * * * * * * *".K.H..:." ENTER EXPENSE SOURCE";D$(D)...J..D$(D)." OVER"..180...M..D$(D)."STOP"..300.H.R.." ENTER AMOUNT";D(D):ET.ET.D(D):D.D.1:.200 ...,..".":.:.:."YOUR EXPENSES ARE: "...6 ..:.X.0.D.1:..5)D(X.1);". ";D$(X),D(X):. .?.@..:."TOTAL EXPENSES: $";ET:BT.BT.ET. ^.J.."PRESENT BALANCE IS $";BT.H.T..:.:. ...^.."DO YOU WANT TO SAVE THE DATA? (Y OR N)"...C..Z$:.Z$."".355...D..Z$."N".40 0.U.H..1,1,1,"PERFIN".MO$."D"...R..X.0.D .1:.1,D$(X)G(13)D(X):.X: 1...|..1,1,1,"P ERFIN".MO$."BT".(....1,BT: 1 :..O....". ":..8)"SUMMARY OF TRANSACTIONS".Q.....8) "EEEEEEE EE EEEEEEEEEEEE"......:."TOTAL INCOME WAS:";.25)"$";IT......"TOTAL EXPE NSE WAS:";.25)"$";ET......:.:."PRESENT B ALANCE IS:";.25)"$";BT......:.:.:.BT.0.. "BETTER DIG FOR GOLD; YOU'RE IN THE RED. N.B..BT.0.."WELL DONE! SAFE FOR ANOTHER MONTH".T..........".":.:..3)"INSTRUCTION S FOR PERSONAL FINANCE".......3)"EEEEEEE EEEEE EEE EEEEEEEE EEEEEEE"......:..5)"S IMPLY DO AS THE COMPUTER TELLS YOU TO DO ."......:..5)"IF YOU MAKE A MISTAKE AT A NY POINT IN ";.F...."MAKING YOUR ENTRIES , SIMPLY TYPE IN 'OVER' AT THE NEXT SOU RCE ";......"REQUEST. THEN MAKE ALL ENTR IES OVER AGAIN.".C....:..5)"WHEN THROUGH MAKING ENTRIES, ";...$.."TYPE IN 'STOP 'AT THE SOURCE REQUEST."......:.:."HIT A NY KEY WHEN YOU'RE READY TO GO".3.8..Z$: .Z$."".1080.9.B...Y....".":.:."ENTER LAS T MONTH";MO$:."INSERT TAPE FOR ";MO$;" & "...P..".";...Z..1,1,0,"PERFIN".MO$."C". P....:."* * * * * * * * * * * * * * * * * * * *"......:..16)"INCOME":......."* * * * * * * * * * * * * * * * * * * *".5. ...:..5)"SOURCE";.27)"AMOUNT".S.....5)"E EEEEE";.27)"EEEEEE".~....#1,C$:.C$..G(13 )..C$;:.C$..G(13).2020......,:.1,C:..30) C.....Z.Z.C......ST.0.2020.H....:."TOTAL INCOME WAS $";Z..... 1:.:."TO SEE EXPEN SES HIT ANY KEY"......Z$:.Z$."".2060...4 ..".":..+.>..1,1,0,"PERFIN".MO$."D".\.?. .:."* * * * * * * * * * * * * * * * * * * *".T.@..:..16)"EXPENSES":....A.."* * * * * * * * * * * * * * * * * * * *".C.B. .:..5)"SOURCE";.27)"AMOUNT"...C...5)"EEE EEE";.27)"EEEEEE"...H..#1,D$:.D$..G(13). .D$;:.D$..G(13).2120...R..,:.1,D:..30)D. +.W.DT.DT.D.:.\..ST.0.2120.A.A. 1.^.F..1 ,1,0,"PERFIN".MO$."BT".K.K..1,BT: 1...L. .:."EXPENSES TOTALED $";DT...P..:."YOUR CLOSING BALANCE WAS $";BT...Z.BT.0...J.. :."TO CONTINUE HIT ANY KEY"...T..Z$:.Z$. "".2260.........
> CLICK IMAGE PREVIEW FOR FULL MODAL