CAR LOAN
FILE INFORMATION
FILENAME(S): CAR LOAN
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:11:33
APPEARS ON: 2 disk(s)
FILE HASH
ed77d7d79ed6d85d4c2b95d2f8d5b21416c3a97579e14dece2d154ffef04699d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADMIN PROGR | CAR LOAN | PRG | DuncanTwain | 33 | 8 | DOWNLOAD FILE |
| C64 SPEL 90 2 | CAR LOAN | PRG | DuncanTwain | 1 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 97 35 33 32 38 30 2C 31 35 3A |..#....53280,15:| 00000010: 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 37 32 |.53281,15:.53272| 00000020: 2C 32 33 00 29 08 28 00 8F 00 33 08 32 00 99 22 |,23.).(...3.2.."| 00000030: 1C 93 22 00 4F 08 3C 00 50 B2 30 3A 49 B2 30 3A |..".O.<.P.0:I.0:| 00000040: 46 B2 30 3A 53 B2 30 3A 59 B2 30 3A 44 B2 30 00 |F.0:S.0:Y.0:D.0.| 00000050: 77 08 64 00 99 A6 38 29 22 12 20 20 20 20 20 C3 |w.d...8)". .| 00000060: C1 D2 A0 CC CF C1 CE A0 C1 CE C1 CC D9 D3 C9 D3 |................| 00000070: 20 20 20 20 20 20 22 00 7D 08 6E 00 99 00 91 08 | ".}.n.....| 00000080: 78 00 85 22 1C C3 41 52 20 D0 52 49 43 45 22 3B |x.."..AR .RICE";| 00000090: 50 00 AF 08 96 00 54 B2 B5 28 28 30 2E 30 36 35 |P.....T..((0.065| 000000A0: AC 50 29 AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 |.P).100..5).100.| 000000B0: C7 08 AA 00 4C B2 B5 28 28 30 2E 30 32 AC 50 AA |....L..((0.02.P.| 000000C0: 31 31 29 AA 2E 35 29 00 EF 08 B4 00 85 22 C9 4E |11)..5)......".N| 000000D0: 54 45 52 45 53 54 20 D2 41 54 45 20 28 41 44 44 |TEREST .ATE (ADD| 000000E0: 2D 4F 4E 20 50 45 52 43 45 4E 54 29 22 3B 49 00 |-ON PERCENT)";I.| 000000F0: 18 09 BE 00 85 22 C4 4F 57 4E 20 D0 41 59 4D 45 |.....".OWN .AYME| 00000100: 4E 54 2F 54 52 41 44 45 2D 49 4E 20 C1 4C 4C 4F |NT/TRADE-IN .LLO| 00000110: 57 41 4E 43 45 22 3B 44 00 2C 09 C8 00 85 22 CF |WANCE";D.,....".| 00000120: 54 48 45 52 20 C6 45 45 53 22 3B 46 00 4F 09 D2 |THER .EES";F.O..| 00000130: 00 85 22 D3 48 4F 52 54 45 53 54 20 D4 45 52 4D |..".HORTEST .ERM| 00000140: 20 28 49 4E 20 59 45 41 52 53 29 05 22 3B 53 00 | (IN YEARS).";S.| 00000150: 75 09 D7 00 8B 20 53 B1 39 A7 20 99 A6 32 33 29 |u.... S.9. ..23)| 00000160: 22 90 4D 55 53 54 20 42 45 20 31 2D 39 1F 22 3A |".MUST BE 1-9.":| 00000170: 89 20 32 31 30 00 97 09 DC 00 85 22 CC 4F 4E 47 |. 210......".ONG| 00000180: 45 53 54 20 D4 45 52 4D 20 28 49 4E 20 59 45 41 |EST .ERM (IN YEA| 00000190: 52 53 29 05 22 3B 59 00 BF 09 E1 00 8B 20 59 B1 |RS).";Y...... Y.| 000001A0: 31 30 A7 20 99 A6 32 33 29 22 90 4D 55 53 54 20 |10. ..23)".MUST | 000001B0: 42 45 20 31 2D 31 30 1F 22 3A 89 20 32 32 30 00 |BE 1-10.":. 220.| 000001C0: C8 09 E6 00 99 22 93 22 00 E4 09 4A 01 99 A3 31 |....."."...J...1| 000001D0: 30 29 22 C3 41 52 20 D0 52 49 43 45 22 3B A3 32 |0)".AR .RICE";.2| 000001E0: 33 29 3B 50 00 01 0A 54 01 99 A3 31 30 29 22 D3 |3);P...T...10)".| 000001F0: 41 4C 45 53 20 D4 41 58 20 22 3B A3 32 33 29 3B |ALES .AX ";.23);| 00000200: 54 00 20 0A 5E 01 99 A3 37 29 20 22 CC 49 43 45 |T. .^...7) ".ICE| 00000210: 4E 43 45 20 C6 45 45 53 22 3B A3 32 33 29 3B 4C |NCE .EES";.23);L| 00000220: 00 3C 0A 68 01 99 A3 39 29 22 CF 54 48 45 52 20 |.<.h...9)".THER | 00000230: C6 45 45 53 22 3B A3 32 33 29 3B 46 00 53 0A 72 |.EES";.23);F.S.r| 00000240: 01 99 A3 32 30 29 22 90 2D 2D 2D 2D 2D 2D 2D 2D |...20)".--------| 00000250: 2D 2D 22 00 61 0A 7C 01 51 B2 50 AA 54 AA 4C AA |--".a.|.Q.P.T.L.| 00000260: 46 00 89 0A 86 01 99 A3 31 32 29 22 9A D3 55 42 |F.......12)"..UB| 00000270: 54 4F 54 41 4C 22 A3 32 33 29 3B 51 3A 99 A6 33 |TOTAL".23);Q:..3| 00000280: 32 29 22 91 C3 41 53 48 22 00 B0 0A 90 01 99 22 |2)"..ASH"......"| 00000290: 05 CC 45 53 53 20 C4 4E 2E D0 4D 54 2E 2F D4 52 |..ESS .N..MT./.R| 000002A0: 41 44 45 2D 49 4E 20 2D 22 3B A3 32 33 29 3B 44 |ADE-IN -";.23);D| 000002B0: 00 C7 0A 9A 01 99 A3 32 30 29 22 90 2D 2D 2D 2D |.......20)".----| 000002C0: 2D 2D 2D 2D 2D 2D 22 00 D1 0A 9F 01 4E B2 51 AB |------".....N.Q.| 000002D0: 44 00 F2 0A A4 01 99 A3 35 29 20 22 1F C1 4D 4F |D.......5) "..MO| 000002E0: 55 4E 54 20 C6 49 4E 41 4E 43 45 44 20 24 20 22 |UNT .INANCED $ "| 000002F0: 3B 4E 00 F8 0A AE 01 99 00 2B 0B B0 01 99 22 D9 |;N.......+....".| 00000300: 45 41 52 53 22 3B A3 39 29 22 CD 4F 4E 54 48 4C |EARS";.9)".ONTHL| 00000310: 59 20 D0 41 59 4D 45 4E 54 22 3B A3 32 38 29 22 |Y .AYMENT";.28)"| 00000320: D4 4F 54 41 4C 20 C3 4F 53 54 22 00 34 0B B1 01 |.OTAL .OST".4...| 00000330: 99 22 1C 22 00 42 0B B3 01 81 20 4A B2 53 20 A4 |.".".B.... J.S .| 00000340: 20 59 00 70 0B B8 01 41 28 4A 29 B2 B5 28 28 4E | Y.p...A(J)..((N| 00000350: AA 28 49 AC 4E AC 4A AD 31 30 30 29 29 AD 28 31 |.(I.N.J.100)).(1| 00000360: 32 AC 4A 29 AC 31 30 30 AA 2E 35 29 AD 31 30 30 |2.J).100..5).100| 00000370: 00 93 0B BD 01 42 28 4A 29 B2 B5 28 28 41 28 4A |.....B(J)..((A(J| 00000380: 29 AC 4A AC 31 32 29 AC 31 30 30 AA 2E 35 29 AD |).J.12).100..5).| 00000390: 31 30 30 00 B8 0B CC 01 99 A3 31 29 3B 4A 3B A3 |100.......1);J;.| 000003A0: 31 32 29 22 24 22 3B 41 28 4A 29 3B A3 32 38 29 |12)"$";A(J);.28)| 000003B0: 22 24 22 3B 42 28 4A 29 00 C3 0B D6 01 99 3A 20 |"$";B(J)......: | 000003C0: 82 20 4A 00 C9 0B F4 01 99 00 0E 0C F6 01 99 22 |. J............"| 000003D0: C4 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 48 41 |.O YOU WANT A HA| 000003E0: 52 44 20 43 4F 50 59 3F 20 28 46 31 3D 59 45 53 |RD COPY? (F1=YES| 000003F0: 2F 20 20 20 20 20 20 20 20 20 20 41 4E 59 20 4B |/ ANY K| 00000400: 45 59 3D 4E 4F 29 22 3A 8D 36 33 39 39 39 00 29 |EY=NO)":.63999.)| 00000410: 0C FE 01 99 22 05 C3 48 41 4E 47 45 20 C4 41 54 |...."..HANGE .AT| 00000420: 41 3F 20 28 59 2F 4E 29 22 00 4B 0C 08 02 A1 20 |A? (Y/N)".K.... | 00000430: 43 24 3A 8B 28 43 24 B3 B1 22 59 22 29 AC 28 43 |C$:.(C$.."Y").(C| 00000440: 24 B3 B1 22 4E 22 29 89 35 32 30 00 5C 0C 12 02 |$.."N").520.\...| 00000450: 8B 20 43 24 B2 22 59 22 A7 89 31 30 00 6E 0C 1C |. C$."Y"..10.n..| 00000460: 02 8B 20 43 24 B2 22 4E 22 A7 31 30 30 30 00 79 |.. C$."N".1000.y| 00000470: 0C E8 03 99 22 93 22 3A 80 00 9E 0C 30 F2 8F 20 |....".":....0.. | 00000480: 51 55 49 43 4B 20 53 43 52 45 45 4E 20 44 55 4D |QUICK SCREEN DUM| 00000490: 50 20 57 2F 4F 20 47 52 41 50 48 49 43 53 00 A4 |P W/O GRAPHICS..| 000004A0: 0C 3A F2 8F 00 F0 0C 44 F2 8F 20 47 4F 53 55 42 |.:.....D.. GOSUB| 000004B0: 20 36 33 39 39 39 20 49 4E 20 50 52 4F 47 52 41 | 63999 IN PROGRA| 000004C0: 4D 20 43 41 55 53 45 53 20 46 31 20 54 4F 20 50 |M CAUSES F1 TO P| 000004D0: 52 49 4E 54 20 53 43 52 45 45 4E 3B 20 41 4E 59 |RINT SCREEN; ANY| 000004E0: 20 4F 54 48 45 52 20 4B 45 59 3D 43 4F 4E 54 2E | OTHER KEY=CONT.| 000004F0: 00 06 0D 18 F6 A1 41 24 3A 8B 20 41 24 B2 22 22 |......A$:. A$.""| 00000500: A7 36 33 30 30 30 00 1A 0D 22 F6 8B 20 41 24 B3 |.63000...".. A$.| 00000510: B1 C7 28 31 33 33 29 A7 20 8E 00 25 0D 2C F6 9F |..(133). ..%.,..| 00000520: 34 2C 34 2C 34 00 35 0D 36 F6 43 47 B2 C2 28 35 |4,4,4.5.6.CG..(5| 00000530: 33 32 37 32 29 00 41 0D 40 F6 53 43 B2 31 30 32 |3272).A.@.SC.102| 00000540: 34 00 4F 0D 4A F6 81 49 30 B2 30 A4 39 39 39 00 |4.O.J..I0.0.999.| 00000550: 5F 0D 54 F6 43 30 B2 C2 28 53 43 AA 49 30 29 00 |_.T.C0..(SC.I0).| 00000560: 72 0D 5E F6 8B 20 43 47 B2 32 31 A7 8D 36 33 33 |r.^.. CG.21..633| 00000570: 30 30 00 85 0D 68 F6 8B 20 43 47 B2 32 33 A7 8D |00...h.. CG.23..| 00000580: 36 33 32 30 30 00 9B 0D 72 F6 98 34 2C C7 28 41 |63200...r..4,.(A| 00000590: 30 29 3B 3A 4C 30 B2 4C 30 AA 31 00 BC 0D 7C F6 |0);:L0.L0.1...|.| 000005A0: 8B 20 4C 30 B2 34 30 A7 98 34 2C 22 20 22 3A 4C |. L0.40..4," ":L| 000005B0: 30 B2 30 3A 82 49 30 3A A0 34 3A 8E 00 C9 0D 86 |0.0:.I0:.4:.....| 000005C0: F6 82 49 30 3A A0 34 3A 8E 00 DF 0D E0 F6 8B 43 |..I0:.4:.......C| 000005D0: 30 B3 32 37 A7 41 30 B2 43 30 AA 39 36 3A 8E 00 |0.27.A0.C0.96:..| 000005E0: F6 0D EA F6 8B 20 43 30 B3 33 32 A7 41 30 B2 43 |..... C0.32.A0.C| 000005F0: 30 AA 36 34 3A 8E 00 09 0E F4 F6 8B 43 30 B3 39 |0.64:.......C0.9| 00000600: 31 A7 41 30 B2 43 30 3A 8E 00 15 0E FE F6 41 30 |1.A0.C0:......A0| 00000610: B2 33 32 3A 8E 00 2B 0E 44 F7 8B 43 30 B3 33 32 |.32:..+.D..C0.32| 00000620: A7 41 30 B2 43 30 AA 36 34 3A 8E 00 3E 0E 4E F7 |.A0.C0.64:..>.N.| 00000630: 8B 43 30 B3 36 34 A7 41 30 B2 43 30 3A 8E 00 4A |.C0.64.A0.C0:..J| 00000640: 0E 58 F7 41 30 B2 33 32 3A 8E 00 55 0E FF F9 89 |.X.A0.32:..U....| 00000650: 36 33 30 30 30 00 00 00 |63000... |
..#....53280,15:.53281,15:.53272,23.).(. ..3.2.."..".O.<.P.0:I.0:F.0:S.0:Y.0:D.0. W.D...8)". CAR LOAN ANALYSIS ". }.N.....X..".CAR PRICE";P.....T..((0.065 .P).100..5).100.G...L..((0.02.P.11)..5). ....."INTEREST RATE (ADD-ON PERCENT)";I. ....."DOWN PAYMENT/TRADE-IN ALLOWANCE";D .,.H.."OTHER FEES";F.O.R.."SHORTEST TERM (IN YEARS).";S.U.W.. S.9. ..23)".MUST B E 1-9.":. 210......"LONGEST TERM (IN YEA RS).";Y...... Y.10. ..23)".MUST BE 1-10. ":. 220.H...."."...J...10)"CAR PRICE";.2 3);P...T...10)"SALES TAX ";.23);T. .^... 7) "LICENCE FEES";.23);L.<.H...9)"OTHER FEES";.23);F.S.R...20)".----------".A.|. Q.P.T.L.F.......12)".SUBTOTAL".23);Q:..3 2)".CASH"......".LESS DN.PMT./TRADE-IN - ";.23);D.G.....20)".----------".Q...N.Q. D.......5) ".AMOUNT FINANCED $ ";N...... .+...."YEARS";.9)"MONTHLY PAYMENT";.28)" TOTAL COST".4....".".B.... J.S . Y.P...A (J)..((N.(I.N.J.100)).(12.J).100..5).100 .....B(J)..((A(J).J.12).100..5).100...L. ..1);J;.12)"$";A(J);.28)"$";B(J).C.V..: . J.I.........."DO YOU WANT A HARD COPY? (F1=YES/ ANY KEY=NO)":.63999.) ....".CHANGE DATA? (Y/N)".K.... C$:.(C$. ."Y").(C$.."N").520.\.... C$."Y"..10.N.. .. C$."N".1000.Y....".":....0.. QUICK SC REEN DUMP W/O GRAPHICS...:.....D.. GOSUB 63999 IN PROGRAM CAUSES F1 TO PRINT SCR EEN; ANY OTHER KEY=CONT.......A$:. A$."" .63000...".. A$..G(133). ..%.,..4,4,4.5. 6.CG.B(53272).A.@.SC.1024.O.J..I0.0.999. _.T.C0.B(SC.I0).R.^.. CG.21..63300...H.. CG.23..63200...R..4,G(A0);:L0.L0.1...|. . L0.40..4," ":L0.0:.I0: 4:..I....I0: 4: .......C0.27.A0.C0.96:....... C0.32.A0.C 0.64:.......C0.91.A0.C0:......A0.32:..+. D..C0.32.A0.C0.64:..>.N..C0.64.A0.C0:..J .X.A0.32:..U....63000...
> CLICK IMAGE PREVIEW FOR FULL MODAL