MONEY PLANNER
FILE INFORMATION
FILENAME(S): MONEY PLANNER
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 01:07:58
APPEARS ON: 1 disk(s)
FILE HASH
7fefb9bf32c08adb5ba315b6071001cc6fd6eda805236c7abe745de5d313a5a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | MONEY PLANNER | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 14 00 86 20 54 24 28 31 30 30 29 2C |....... T$(100),|
00000010: 43 28 31 30 30 29 00 23 08 28 00 99 20 C7 28 31 |C(100).#.(.. .(1|
00000020: 34 37 29 00 3D 08 32 00 99 20 22 20 50 52 45 53 |47).=.2.. " PRES|
00000030: 53 20 2A 3C 52 45 54 55 52 4E 3E 2A 22 00 57 08 |S *<RETURN>*".W.|
00000040: 3C 00 99 20 22 41 46 54 45 52 20 45 41 43 48 20 |<.. "AFTER EACH |
00000050: 52 45 50 4C 59 2E 22 00 5D 08 46 00 99 00 79 08 |REPLY.".].F...y.|
00000060: 50 00 99 20 22 57 48 41 54 20 49 53 20 59 4F 55 |P.. "WHAT IS YOU|
00000070: 52 20 4E 41 4D 45 3F 22 3B 00 82 08 5A 00 85 20 |R NAME?";...Z.. |
00000080: 4E 24 00 8F 08 64 00 99 20 C7 28 31 34 37 29 00 |N$...d.. .(147).|
00000090: A9 08 6E 00 99 20 22 41 4C 4C 20 52 49 47 48 54 |..n.. "ALL RIGHT|
000000A0: 20 22 3B 4E 24 3B 22 2C 22 00 C3 08 78 00 99 20 | ";N$;","...x.. |
000000B0: 22 4C 45 54 27 53 20 54 41 4C 4B 20 4D 4F 4E 45 |"LET'S TALK MONE|
000000C0: 59 21 22 00 C9 08 82 00 99 00 E7 08 8C 00 99 20 |Y!"............ |
000000D0: 22 28 49 4E 20 44 4F 4C 4C 41 52 53 20 26 20 43 |"(IN DOLLARS & C|
000000E0: 45 4E 54 53 29 2E 22 00 06 09 96 00 99 20 22 48 |ENTS)."...... "H|
000000F0: 4F 57 20 4D 55 43 48 20 4D 4F 4E 45 59 20 44 4F |OW MUCH MONEY DO|
00000100: 20 59 4F 55 20 22 00 24 09 A0 00 99 20 22 48 41 | YOU ".$.... "HA|
00000110: 56 45 20 49 4E 20 59 4F 55 52 20 57 41 4C 4C 45 |VE IN YOUR WALLE|
00000120: 54 3F 21 22 00 41 09 AA 00 99 20 22 46 4F 52 20 |T?!".A.... "FOR |
00000130: 45 58 41 4D 50 4C 45 2C 24 3F 20 30 30 2E 30 31 |EXAMPLE,$? 00.01|
00000140: 22 00 4C 09 B4 00 99 20 22 24 22 3B 00 54 09 BE |".L.... "$";.T..|
00000150: 00 85 20 53 00 5A 09 D2 00 99 00 75 09 DC 00 99 |.. S.Z.....u....|
00000160: 20 22 48 4F 57 20 4D 55 43 48 20 41 4C 4C 4F 57 | "HOW MUCH ALLOW|
00000170: 41 4E 43 45 22 00 A3 09 E6 00 99 22 44 4F 20 59 |ANCE"......"DO Y|
00000180: 4F 55 52 20 4D 45 41 4E 20 50 41 52 45 4E 54 53 |OUR MEAN PARENTS|
00000190: 20 47 49 56 45 20 59 4F 55 20 20 41 20 57 45 45 | GIVE YOU A WEE|
000001A0: 4B 3F 22 00 AE 09 F0 00 99 20 22 24 22 3B 00 B6 |K?"...... "$";..|
000001B0: 09 FA 00 85 20 41 00 BC 09 0E 01 99 00 D9 09 18 |.... A..........|
000001C0: 01 99 20 22 48 4F 57 20 4D 55 43 48 20 4F 54 48 |.. "HOW MUCH OTH|
000001D0: 45 52 20 4D 4F 4E 45 59 22 00 02 0A 22 01 99 20 |ER MONEY"...".. |
000001E0: 22 44 4F 20 59 4F 55 20 46 49 4E 44 20 49 4E 20 |"DO YOU FIND IN |
000001F0: 59 4F 55 52 20 4C 49 47 48 54 20 57 41 4C 4C 45 |YOUR LIGHT WALLE|
00000200: 54 22 00 0D 0A 2C 01 99 20 22 24 22 3B 00 15 0A |T"...,.. "$";...|
00000210: 36 01 85 20 45 00 1D 0A 4A 01 58 B2 30 00 25 0A |6.. E...J.X.0.%.|
00000220: 54 01 4D B2 30 00 32 0A 5E 01 99 20 C7 28 31 34 |T.M.0.2.^.. .(14|
00000230: 37 29 00 48 0A 68 01 99 20 22 4F 2E 4B 2E 2C 20 |7).H.h.. "O.K., |
00000240: 22 3B 4E 24 3B 22 2C 22 00 60 0A 72 01 99 20 22 |";N$;",".`.r.. "|
00000250: 59 4F 55 20 48 41 56 45 20 24 22 3B 20 53 AB 4D |YOU HAVE $"; S.M|
00000260: 00 66 0A 7C 01 99 00 7F 0A 86 01 99 20 22 57 48 |.f.|........ "WH|
00000270: 41 54 20 44 4F 20 59 4F 55 20 57 41 4E 54 22 00 |AT DO YOU WANT".|
00000280: AF 0A 90 01 99 20 22 54 4F 20 42 55 59 20 57 49 |..... "TO BUY WI|
00000290: 54 48 20 57 48 41 54 20 4C 49 54 54 4C 45 20 4D |TH WHAT LITTLE M|
000002A0: 4F 4E 45 59 20 59 4F 55 20 4F 57 4E 3F 21 22 00 |ONEY YOU OWN?!".|
000002B0: B8 0A 9A 01 85 20 42 24 00 BE 0A AE 01 99 00 ED |..... B$........|
000002C0: 0A B8 01 99 20 22 48 4F 57 20 4D 55 43 48 20 44 |.... "HOW MUCH D|
000002D0: 4F 45 53 20 49 54 20 43 4F 53 54 20 28 54 45 4C |OES IT COST (TEL|
000002E0: 4C 20 54 48 45 20 54 52 55 54 48 29 22 00 F8 0A |L THE TRUTH)"...|
000002F0: C2 01 99 20 22 24 22 3B 00 00 0B CC 01 85 20 50 |... "$";...... P|
00000300: 00 06 0B E0 01 99 00 19 0B EA 01 8B 20 50 AA 4D |............ P.M|
00000310: B3 B2 53 20 A7 20 36 35 30 00 31 0B F4 01 99 20 |..S . 650.1.... |
00000320: 22 54 4F 55 47 48 20 4C 55 43 4B 2C 20 22 3B 4E |"TOUGH LUCK, ";N|
00000330: 24 00 4E 0B FE 01 99 20 22 59 4F 55 20 44 4F 4E |$.N.... "YOU DON|
00000340: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 22 00 69 |T HAVE ENOUGH".i|
00000350: 0B 08 02 99 20 22 44 4F 55 47 48 20 54 4F 20 42 |.... "DOUGH TO B|
00000360: 55 59 20 54 48 41 54 21 22 00 7C 0B 12 02 8B 20 |UY THAT!".|.... |
00000370: 41 AA 45 B3 B2 30 20 A7 20 38 34 30 00 92 0B 1C |A.E..0 . 840....|
00000380: 02 57 B2 28 50 AB 28 53 AB 4D 29 29 AD 28 41 AA |.W.(P.(S.M)).(A.|
00000390: 45 29 00 A4 0B 26 02 8B 20 57 B2 B5 28 57 29 20 |E)...&.. W..(W) |
000003A0: A7 35 37 30 00 B1 0B 30 02 57 B2 B5 28 57 29 AA |.570...0.W..(W).|
000003B0: 31 00 D7 0B 3A 02 99 20 22 42 55 54 20 49 46 20 |1...:.. "BUT IF |
000003C0: 59 4F 55 20 43 41 4E 20 43 48 4F 4B 45 20 55 50 |YOU CAN CHOKE UP|
000003D0: 20 24 22 3B 41 AA 45 00 F5 0B 44 02 99 20 22 45 | $";A.E...D.. "E|
000003E0: 41 43 48 20 57 45 45 4B 20 59 4F 55 20 43 41 4E |ACH WEEK YOU CAN|
000003F0: 20 42 55 59 22 00 12 0C 4E 02 99 20 22 49 54 20 | BUY"...N.. "IT |
00000400: 49 4E 20 22 3B 57 3B 22 20 57 45 45 4B 28 53 29 |IN ";W;" WEEK(S)|
00000410: 2E 22 00 18 0C 58 02 99 00 3D 0C 62 02 99 20 22 |."...X...=.b.. "|
00000420: 57 41 4E 54 20 54 4F 20 53 54 41 52 54 20 41 47 |WANT TO START AG|
00000430: 41 49 4E 20 28 59 4F 2F 4E 4F 29 22 3B 00 46 0C |AIN (YO/NO)";.F.|
00000440: 6C 02 85 20 52 24 00 59 0C 76 02 8B 20 52 24 B2 |l.. R$.Y.v.. R$.|
00000450: 22 59 4F 22 20 A7 33 33 30 00 6E 0C 7B 02 8B 20 |"YO" .330.n.{.. |
00000460: 52 24 B3 B1 22 4E 4F 22 20 A7 20 38 38 30 00 78 |R$.."NO" . 880.x|
00000470: 0C 80 02 89 20 38 35 30 00 82 0C 8A 02 58 B2 58 |.... 850.....X.X|
00000480: AA 31 00 8F 0C 9E 02 54 24 28 58 29 B2 42 24 00 |.1.....T$(X).B$.|
00000490: 9A 0C A8 02 43 28 58 29 B2 50 00 A4 0C B2 02 4D |....C(X).P.....M|
000004A0: B2 4D AA 50 00 B1 0C BC 02 99 20 C7 28 31 34 37 |.M.P...... .(147|
000004B0: 29 00 C9 0C C6 02 99 20 22 41 46 54 45 52 20 42 |)...... "AFTER B|
000004C0: 55 59 49 4E 47 2E 2E 2E 22 00 CF 0C D0 02 99 00 |UYING...".......|
000004D0: E3 0C DA 02 99 20 22 49 54 45 4D 22 2C 22 43 4F |..... "ITEM","CO|
000004E0: 53 54 22 00 F7 0C E4 02 99 20 22 2D 2D 2D 2D 22 |ST"...... "----"|
000004F0: 2C 22 2D 2D 2D 2D 22 00 05 0D EE 02 81 20 4A B2 |,"----"...... J.|
00000500: 31 20 A4 20 58 00 1E 0D F8 02 8B 20 4A AD 31 32 |1 . X...... J.12|
00000510: B1 B5 28 4A AD 31 32 29 20 A7 20 38 30 30 00 27 |..(J.12) . 800.'|
00000520: 0D 0C 03 85 20 52 24 00 34 0D 16 03 99 20 C7 28 |.... R$.4.... .(|
00000530: 31 34 37 29 00 45 0D 20 03 99 20 54 24 28 4A 29 |147).E. .. T$(J)|
00000540: 2C 43 28 4A 29 00 4D 0D 2A 03 82 20 4A 00 53 0D |,C(J).M.*.. J.S.|
00000550: 34 03 99 00 67 0D 3E 03 99 20 22 59 4F 55 27 4C |4...g.>.. "YOU'L|
00000560: 4C 20 48 41 56 45 22 00 95 0D 48 03 99 20 22 24 |L HAVE"...H.. "$|
00000570: 22 3B 53 AB 4D 3B 22 20 4C 45 46 54 20 49 4E 20 |";S.M;" LEFT IN |
00000580: 59 4F 55 52 20 4C 49 47 48 54 45 52 20 57 41 4C |YOUR LIGHTER WAL|
00000590: 4C 45 54 2E 22 00 9B 0D 52 03 99 00 B6 0D 5C 03 |LET."...R.....\.|
000005A0: 99 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |. "DO YOU WANT T|
000005B0: 4F 20 42 55 59 22 00 D6 0D 66 03 99 20 22 53 4F |O BUY"...f.. "SO|
000005C0: 4D 45 54 48 49 4E 47 20 45 4C 53 45 3F 20 28 59 |METHING ELSE? (Y|
000005D0: 4F 2F 4E 4F 29 22 00 DF 0D 70 03 85 20 52 24 00 |O/NO)"...p.. R$.|
000005E0: F3 0D 7A 03 8B 20 52 24 B2 22 59 4F 22 20 A7 20 |..z.. R$."YO" . |
000005F0: 33 35 30 00 08 0E 84 03 8B 20 52 24 B3 B1 22 4E |350...... R$.."N|
00000600: 4F 22 20 A7 20 38 38 30 00 0E 0E 8E 03 99 00 28 |O" . 880.......(|
00000610: 0E 98 03 99 20 22 59 4F 55 20 48 41 44 20 20 20 |.... "YOU HAD |
00000620: 24 22 3B 53 3B 22 2E 22 00 42 0E A2 03 99 20 22 |$";S;".".B.... "|
00000630: 59 4F 55 20 53 50 45 4E 54 20 24 22 3B 4D 3B 22 |YOU SPENT $";M;"|
00000640: 2E 22 00 5E 0E AC 03 99 20 22 4C 45 41 56 49 4E |.".^.... "LEAVIN|
00000650: 47 20 20 20 24 22 3B 53 AB 4D 3B 22 2E 22 00 00 |G $";S.M;"."..|
00000660: 00 |. |
....... T$(100),C(100).#.(.. G(147).=.2.
. " PRESS *<RETURN>*".W.<.. "AFTER EACH
REPLY.".].F...Y.P.. "WHAT IS YOUR NAME?"
;...Z.. N$...D.. G(147)...N.. "ALL RIGHT
";N$;",".C.X.. "LET'S TALK MONEY!".I...
....... "(IN DOLLARS & CENTS)."...... "H
OW MUCH MONEY DO YOU ".$. .. "HAVE IN YO
UR WALLET?!".A.... "FOR EXAMPLE,$? 00.01
".L.... "$";.T.... S.Z.R...U.... "HOW MU
CH ALLOWANCE"......"DO YOUR MEAN PARENTS
GIVE YOU A WEEK?"...... "$";...... A..
.....Y.... "HOW MUCH OTHER MONEY"..."..
"DO YOU FIND IN YOUR LIGHT WALLET"...,..
"$";...6.. E...J.X.0.%.T.M.0.2.^.. G(14
7).H.H.. "O.K., ";N$;",".`.R.. "YOU HAVE
$"; S.M.F.|....... "WHAT DO YOU WANT".
..... "TO BUY WITH WHAT LITTLE MONEY YOU
OWN?!"...... B$............ "HOW MUCH D
OES IT COST (TELL THE TRUTH)"...B.. "$";
...L.. P............ P.M..S . 650.1....
"TOUGH LUCK, ";N$.N.... "YOU DONT HAVE E
NOUGH".I.... "DOUGH TO BUY THAT!".|....
A.E..0 . 840.....W.(P.(S.M)).(A.E)...&..
W..(W) .570...0.W..(W).1.W.:.. "BUT IF
YOU CAN CHOKE UP $";A.E...D.. "EACH WEEK
YOU CAN BUY"...N.. "IT IN ";W;" WEEK(S)
."...X...=.B.. "WANT TO START AGAIN (YO/
NO)";.F.L.. R$.Y.V.. R$."YO" .330.N.{..
R$.."NO" . 880.X.... 850.....X.X.1.....T
$(X).B$.....C(X).P.....M.M.P...... G(147
).I.F.. "AFTER BUYING...".O.P.....Z.. "I
TEM","COST"...... "----","----"...... J.
1 . X...... J.12..(J.12) . 800.'.... R$.
4.... G(147).E. .. T$(J),C(J).M.*.. J.S.
4...G.>.. "YOU'LL HAVE"...H.. "$";S.M;"
LEFT IN YOUR LIGHTER WALLET."...R.....\.
. "DO YOU WANT TO BUY".V.F.. "SOMETHING
ELSE? (YO/NO)"...P.. R$...Z.. R$."YO" .
350...... R$.."NO" . 880.......(.... "YO
U HAD $";S;".".B.... "YOU SPENT $";M;"
.".^.... "LEAVING $";S.M;"."...
> CLICK IMAGE PREVIEW FOR FULL MODAL