COMPULOAN
FILE INFORMATION
FILENAME(S): COMPULOAN
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 16:57:35
APPEARS ON: 1 disk(s)
FILE HASH
99884a11f996e88c43da03866f2c8e977b5203b9ce94ee184e9405bab172d085
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BRAD S GAMES | COMPULOAN | PRG | High Voltage Complete C64 Collection, Markus Merz | 12 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3C 08 0A 00 99 22 93 1F 43 4F 50 59 52 49 |..<...."..COPYRI|
00000010: 47 48 54 20 31 39 38 35 20 43 48 45 52 59 4C 20 |GHT 1985 CHERYL |
00000020: 50 45 54 45 52 53 4F 4E 22 3A 97 35 33 32 38 30 |PETERSON":.53280|
00000030: 2C 36 3A 97 35 33 32 38 31 2C 31 34 00 5B 08 0F |,6:.53281,14.[..|
00000040: 00 99 22 4C 4F 41 4E 20 50 41 59 4D 45 4E 54 20 |.."LOAN PAYMENT |
00000050: 43 41 4C 43 55 4C 41 54 4F 52 22 00 82 08 14 00 |CALCULATOR".....|
00000060: 99 22 12 53 92 43 52 45 45 4E 20 44 49 53 50 4C |.".S.CREEN DISPL|
00000070: 41 59 20 4F 52 20 12 50 92 52 49 4E 54 4F 55 54 |AY OR .P.RINTOUT|
00000080: 3F 22 00 94 08 1E 00 A1 53 24 3A 8B 53 24 B2 22 |?"......S$:.S$."|
00000090: 22 89 33 30 00 AA 08 23 00 8B 53 24 B2 22 53 22 |".30...#..S$."S"|
000000A0: B0 53 24 B2 22 50 22 A7 34 30 00 CF 08 24 00 99 |.S$."P".40...$..|
000000B0: 22 57 41 53 20 54 48 41 54 20 41 4E 20 12 53 92 |"WAS THAT AN .S.|
000000C0: 20 4F 52 20 41 20 12 50 92 3F 22 3A 89 32 30 00 | OR A .P.?":.20.|
000000D0: 00 09 28 00 99 22 56 49 45 57 2F 50 52 49 4E 54 |..(.."VIEW/PRINT|
000000E0: 20 50 41 59 42 41 43 4B 20 53 43 48 45 44 55 4C | PAYBACK SCHEDUL|
000000F0: 45 20 28 12 59 92 20 4F 52 20 12 4E 92 29 3F 22 |E (.Y. OR .N.)?"|
00000100: 00 12 09 32 00 A1 56 24 3A 8B 56 24 B2 22 22 A7 |...2..V$:.V$."".|
00000110: 35 30 00 29 09 37 00 8B 56 24 B2 22 59 22 B0 56 |50.).7..V$."Y".V|
00000120: 24 B2 22 4E 22 A7 32 31 30 00 4E 09 3C 00 99 22 |$."N".210.N.<.."|
00000130: 57 41 53 20 54 48 41 54 20 41 20 12 59 92 20 4F |WAS THAT A .Y. O|
00000140: 52 20 41 4E 20 12 4E 92 3F 22 3A 89 35 30 00 77 |R AN .N.?":.50.w|
00000150: 09 D2 00 85 22 45 4E 54 45 52 20 43 41 53 48 20 |...."ENTER CASH |
00000160: 56 41 4C 55 45 20 42 45 49 4E 47 20 46 49 4E 41 |VALUE BEING FINA|
00000170: 4E 43 45 44 22 3B 41 00 89 09 D7 00 4B B2 41 3A |NCED";A.....K.A:|
00000180: 8D 31 30 30 30 3A 41 B2 4B 00 B4 09 DC 00 85 22 |.1000:A.K......"|
00000190: 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 |ENTER NUMBER OF |
000001A0: 50 41 59 4D 45 4E 54 53 20 50 45 52 20 59 45 41 |PAYMENTS PER YEA|
000001B0: 52 22 3B 4E 00 C6 09 E1 00 4B B2 4E 3A 8D 31 30 |R";N.....K.N:.10|
000001C0: 30 30 3A 4E B2 4B 00 F6 09 E6 00 85 22 45 4E 54 |00:N.K......"ENT|
000001D0: 45 52 20 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 |ER TOTAL NUMBER |
000001E0: 4F 46 20 50 41 59 4D 45 4E 54 53 20 54 4F 20 4D |OF PAYMENTS TO M|
000001F0: 41 4B 45 22 3B 54 00 08 0A EB 00 4B B2 54 3A 8D |AKE";T.....K.T:.|
00000200: 31 30 30 30 3A 54 B2 4B 00 2C 0A F0 00 85 22 45 |1000:T.K.,...."E|
00000210: 4E 54 45 52 20 59 45 41 52 4C 59 20 49 4E 54 45 |NTER YEARLY INTE|
00000220: 52 45 53 54 20 52 41 54 45 22 3B 49 00 3E 0A F1 |REST RATE";I.>..|
00000230: 00 4B B2 49 3A 8D 31 30 30 30 3A 49 B2 4B 00 4F |.K.I:.1000:I.K.O|
00000240: 0A F3 00 49 49 B2 49 3A 49 B2 49 AD 31 30 30 00 |...II.I:I.I.100.|
00000250: 5F 0A FA 00 8B 53 24 B2 22 53 22 A7 32 36 30 00 |_....S$."S".260.|
00000260: 6D 0A FB 00 9F 31 2C 34 2C 37 3A 9D 31 00 79 0A |m....1,4,7:.1.y.|
00000270: 04 01 99 C7 28 31 34 37 29 00 98 0A 0E 01 99 22 |....(147)......"|
00000280: 4C 4F 41 4E 20 50 41 59 4D 45 4E 54 20 43 41 4C |LOAN PAYMENT CAL|
00000290: 43 55 4C 41 54 4F 52 22 00 A2 0A 13 01 8D 34 30 |CULATOR"......40|
000002A0: 30 30 00 BD 0A 18 01 99 22 41 4D 4F 55 4E 54 20 |00......"AMOUNT |
000002B0: 46 49 4E 41 4E 43 45 44 20 24 22 41 24 00 D8 0A |FINANCED $"A$...|
000002C0: 1D 01 99 22 49 4E 54 45 52 45 53 54 20 52 41 54 |..."INTEREST RAT|
000002D0: 45 22 49 49 22 25 2E 22 00 F9 0A 22 01 99 22 23 |E"II"%."...".."#|
000002E0: 20 4F 46 20 50 41 59 4D 45 4E 54 53 20 50 45 52 | OF PAYMENTS PER|
000002F0: 20 59 45 41 52 3A 20 22 4E 00 1E 0B 2C 01 99 22 | YEAR: "N...,.."|
00000300: 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 20 |TOTAL NUMBER OF |
00000310: 50 41 59 4D 45 4E 54 53 20 49 53 20 22 54 00 42 |PAYMENTS IS "T.B|
00000320: 0B 90 01 50 B2 41 AC 28 49 AD 4E 29 AD 28 31 AB |...P.A.(I.N).(1.|
00000330: 28 31 AD 28 31 AA 28 49 AD 4E 29 29 AE 28 54 29 |(1.(1.(I.N)).(T)|
00000340: 29 29 00 52 0B 9A 01 5A B2 50 AC 54 3A 43 B2 5A |)).R...Z.P.T:C.Z|
00000350: AB 41 00 5C 0B 58 02 8D 33 30 30 30 00 75 0B 62 |.A.\.X..3000.u.b|
00000360: 02 99 22 45 41 43 48 20 50 41 59 4D 45 4E 54 20 |.."EACH PAYMENT |
00000370: 49 53 22 50 24 00 97 0B 6C 02 99 22 54 4F 54 41 |IS"P$...l.."TOTA|
00000380: 4C 20 49 4E 54 45 52 45 53 54 20 50 41 49 44 20 |L INTEREST PAID |
00000390: 49 53 20 24 22 43 24 00 B7 0B 76 02 99 22 54 4F |IS $"C$...v.."TO|
000003A0: 54 41 4C 20 41 4D 4F 55 4E 54 20 50 41 49 44 20 |TAL AMOUNT PAID |
000003B0: 49 53 20 24 22 5A 24 00 BD 0B 80 02 99 00 CE 0B |IS $"Z$.........|
000003C0: B2 02 8B 56 24 B3 B1 22 59 22 A7 38 34 35 00 DA |...V$.."Y".845..|
000003D0: 0B B3 02 43 B2 41 AC 49 AD 4E 00 E4 0B B7 02 4A |...C.A.I.N.....J|
000003E0: B2 50 AB 43 00 EE 0B B9 02 41 B2 41 AA 43 00 FE |.P.C.....A.A.C..|
000003F0: 0B BC 02 8B 53 24 B2 22 53 22 A7 37 30 35 00 20 |....S$."S".705. |
00000400: 0C BD 02 99 A6 37 29 22 42 41 4C 41 4E 43 45 22 |.....7)"BALANCE"|
00000410: A6 39 29 22 50 41 59 4D 45 4E 54 22 A6 38 29 3B |.9)"PAYMENT".8);|
00000420: 00 43 0C BE 02 99 22 49 4E 54 45 52 45 53 54 22 |.C...."INTEREST"|
00000430: A6 37 29 22 50 52 49 4E 43 49 50 4C 45 22 3A 89 |.7)"PRINCIPLE":.|
00000440: 37 31 30 00 7A 0C C1 02 99 22 20 42 41 4C 41 4E |710.z...." BALAN|
00000450: 43 45 22 A6 33 29 22 50 41 59 4D 45 4E 54 22 A6 |CE".3)"PAYMENT".|
00000460: 32 29 22 49 4E 54 45 52 45 53 54 22 A6 31 29 22 |2)"INTEREST".1)"|
00000470: 50 52 49 4E 43 49 50 4C 45 22 00 82 0C C6 02 58 |PRINCIPLE".....X|
00000480: B2 31 00 8C 0C D0 02 8D 33 30 30 30 00 96 0C D5 |.1......3000....|
00000490: 02 8D 34 30 30 30 00 BD 0C DA 02 8B 58 B2 35 30 |..4000......X.50|
000004A0: AF 58 32 B3 31 A7 99 C7 28 31 32 29 3A 58 B2 31 |.X2.1...(12):X.1|
000004B0: 3A 58 32 B2 58 32 AA 31 3A 89 37 30 30 00 DC 0C |:X2.X2.1:.700...|
000004C0: E4 02 8B 58 32 B1 30 AF 58 B2 36 30 A7 99 C7 28 |...X2.0.X.60...(|
000004D0: 31 32 29 3A 58 B2 31 3A 89 37 30 30 00 F5 0C EE |12):X.1:.700....|
000004E0: 02 8B C3 28 41 24 29 B3 B2 38 A7 41 31 B2 39 AB |...(A$)..8.A1.9.|
000004F0: C3 28 41 24 29 00 0E 0D EF 02 8B C3 28 50 24 29 |.(A$).......(P$)|
00000500: B3 B2 38 A7 50 31 B2 39 AB C3 28 50 24 29 00 27 |..8.P1.9..(P$).'|
00000510: 0D F0 02 8B C3 28 43 24 29 B3 B2 38 A7 43 31 B2 |.....(C$)..8.C1.|
00000520: 39 AB C3 28 43 24 29 00 40 0D F1 02 8B C3 28 4A |9..(C$).@.....(J|
00000530: 24 29 B3 B2 38 A7 4A 31 B2 39 AB C3 28 4A 24 29 |$)..8.J1.9..(J$)|
00000540: 00 50 0D F8 02 8B 53 24 B2 22 53 22 A7 37 36 35 |.P....S$."S".765|
00000550: 00 7B 0D F9 02 99 A6 41 31 AA 36 29 41 24 A6 50 |.{.....A1.6)A$.P|
00000560: 31 AA 36 29 50 24 A6 43 31 AA 36 29 43 24 A6 4A |1.6)P$.C1.6)C$.J|
00000570: 31 AA 36 29 4A 24 3A 89 37 37 30 00 99 0D FD 02 |1.6)J$:.770.....|
00000580: 99 A6 41 31 29 41 24 A6 50 31 29 50 24 A6 43 31 |..A1)A$.P1)P$.C1|
00000590: 29 43 24 A6 4A 31 29 4A 24 00 B3 0D 02 03 41 B2 |)C$.J1)J$.....A.|
000005A0: 41 AA 43 AB 50 3A 43 B2 41 AC 49 AD 4E 3A 4A B2 |A.C.P:C.A.I.N:J.|
000005B0: 50 AB 43 00 C9 0D 34 03 8B 41 AA 43 B3 B2 50 A7 |P.C...4..A.C..P.|
000005C0: 50 B2 41 AA 43 3A 4A B2 41 00 D9 0D 39 03 8B 41 |P.A.C:J.A...9..A|
000005D0: B3 B2 2E 30 31 A7 38 34 35 00 E3 0D 3E 03 58 B2 |...01.845...>.X.|
000005E0: 58 AA 31 00 EC 0D 48 03 89 37 32 30 00 FA 0D 4D |X.1...H..720...M|
000005F0: 03 8B 53 24 B2 22 53 22 A7 80 00 06 0E 52 03 98 |..S$."S".....R..|
00000600: 31 3A A0 31 3A 80 00 13 0E E8 03 4B B2 B6 28 4B |1:.1:......K..(K|
00000610: 29 3A 8E 00 4C 0E D0 07 42 B2 B5 28 42 AC 31 30 |):..L...B..(B.10|
00000620: 30 AA 2E 30 30 31 29 3A 42 24 B2 C4 28 42 29 3A |0..001):B$..(B):|
00000630: 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB 32 29 |B$..(B$,.(B$).2)|
00000640: AA 22 2E 22 AA C9 28 42 24 2C 32 29 00 52 0E 2A |."."..(B$,2).R.*|
00000650: 08 8E 00 88 0E B8 0B 42 B2 50 3A 8D 32 30 30 30 |.......B.P:.2000|
00000660: 3A 50 24 B2 42 24 3A 42 B2 43 3A 8D 32 30 30 30 |:P$.B$:B.C:.2000|
00000670: 3A 43 24 B2 42 24 3A 42 B2 5A 3A 8D 32 30 30 30 |:C$.B$:B.Z:.2000|
00000680: 3A 5A 24 B2 42 24 3A 8E 00 AE 0E A0 0F 42 B2 4A |:Z$.B$:......B.J|
00000690: 3A 8D 32 30 30 30 3A 4A 24 B2 42 24 3A 42 B2 41 |:.2000:J$.B$:B.A|
000006A0: 3A 8D 32 30 30 30 3A 41 24 B2 42 24 3A 8E 00 00 |:.2000:A$.B$:...|
000006B0: 00 |. |
..<...."..COPYRIGHT 1985 CHERYL PETERSON
":.53280,6:.53281,14.[...."LOAN PAYMENT
CALCULATOR"......".S.CREEN DISPLAY OR .P
.RINTOUT?"......S$:.S$."".30...#..S$."S"
.S$."P".40.O.$.."WAS THAT AN .S. OR A .P
.?":.20...(.."VIEW/PRINT PAYBACK SCHEDUL
E (.Y. OR .N.)?"...2..V$:.V$."".50.).7..
V$."Y".V$."N".210.N.<.."WAS THAT A .Y. O
R AN .N.?":.50.W.R.."ENTER CASH VALUE BE
ING FINANCED";A...W.K.A:.1000:A.K......"
ENTER NUMBER OF PAYMENTS PER YEAR";N.F..
.K.N:.1000:N.K......"ENTER TOTAL NUMBER
OF PAYMENTS TO MAKE";T.....K.T:.1000:T.K
.,...."ENTER YEARLY INTEREST RATE";I.>..
.K.I:.1000:I.K.O...II.I:I.I.100._....S$.
"S".260.M....1,4,7:.1.Y....G(147)......"
LOAN PAYMENT CALCULATOR"......4000......
"AMOUNT FINANCED $"A$.X...."INTEREST RAT
E"II"%."...".."# OF PAYMENTS PER YEAR: "
N...,.."TOTAL NUMBER OF PAYMENTS IS "T.B
...P.A.(I.N).(1.(1.(1.(I.N)).(T))).R...Z
.P.T:C.Z.A.\.X..3000.U.B.."EACH PAYMENT
IS"P$...L.."TOTAL INTEREST PAID IS $"C$.
..V.."TOTAL AMOUNT PAID IS $"Z$.......N.
...V$.."Y".845.Z...C.A.I.N.....J.P.C....
.A.A.C......S$."S".705. .....7)"BALANCE"
.9)"PAYMENT".8);.C...."INTEREST".7)"PRIN
CIPLE":.710.Z.A.." BALANCE".3)"PAYMENT".
2)"INTEREST".1)"PRINCIPLE"...F.X.1...P..
3000...U..4000...Z..X.50.X2.1..G(12):X.1
:X2.X2.1:.700......X2.0.X.60..G(12):X.1:
.700......C(A$)..8.A1.9.C(A$)......C(P$)
..8.P1.9.C(P$).'....C(C$)..8.C1.9.C(C$).
@....C(J$)..8.J1.9.C(J$).P....S$."S".765
.{.....A1.6)A$.P1.6)P$.C1.6)C$.J1.6)J$:.
770.......A1)A$.P1)P$.C1)C$.J1)J$.....A.
A.C.P:C.A.I.N:J.P.C.I.4..A.C..P.P.A.C:J.
A.Y.9..A...01.845...>.X.X.1...H..720...M
..S$."S".....R..1: 1:......K..(K):..L.P.
B..(B.100..001):B$.D(B):B$.H(B$,C(B$).2)
.".".I(B$,2).R.*.......B.P:.2000:P$.B$:B
.C:.2000:C$.B$:B.Z:.2000:Z$.B$:.... .B.J
:.2000:J$.B$:B.A:.2000:A$.B$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL