PAGINA 64
FILE INFORMATION
FILENAME(S): PAGINA 64
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:24:22
APPEARS ON: 1 disk(s)
FILE HASH
1e91750ca908b0876faf00dfc5eb75de4c26d3d1f9d4aa24529a969a510e32e1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 45 1 | PAGINA 64 | PRG | DuncanTwain | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 00 00 8F 20 2D 2D 28 43 29 20 44 49 |..N.... --(C) DI| 00000010: 47 49 43 4F 4D 20 53 4F 46 54 57 41 52 45 2C 54 |GICOM SOFTWARE,T| 00000020: 41 50 45 20 42 30 31 20 2D 2D 20 20 20 20 20 20 |APE B01 -- | 00000030: 20 20 20 41 41 4E 47 45 50 41 53 54 20 56 4F 4F | AANGEPAST VOO| 00000040: 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 00 6E |R COMMODORE 64.n| 00000050: 08 0A 00 8F 20 2A 2A 2A 20 41 4E 4E 55 49 54 45 |.... *** ANNUITE| 00000060: 49 54 45 4E 4C 45 4E 49 4E 47 20 2A 2A 2A 00 B9 |ITENLENING ***..| 00000070: 08 14 00 8F 20 20 20 20 20 44 49 54 20 50 52 4F |.... DIT PRO| 00000080: 47 52 41 4D 4D 41 20 42 45 52 45 4B 45 4E 54 20 |GRAMMA BEREKENT | 00000090: 44 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |DE | 000000A0: 20 41 4E 4E 55 49 54 45 49 54 20 56 41 4E 20 45 | ANNUITEIT VAN E| 000000B0: 45 4E 20 4C 45 4E 49 4E 47 00 C3 08 1E 00 89 20 |EN LENING...... | 000000C0: 31 30 30 00 01 09 28 00 8F 20 2A 2A 2A 20 53 55 |100...(.. *** SU| 000000D0: 42 52 4F 55 54 49 4E 45 20 4F 4D 20 44 45 20 4B |BROUTINE OM DE K| 000000E0: 4F 50 20 54 45 20 20 20 20 20 20 20 20 20 20 20 |OP TE | 000000F0: 20 20 20 20 20 20 50 52 49 4E 54 45 4E 20 2A 2A | PRINTEN **| 00000100: 2A 00 0B 09 32 00 99 22 93 22 3B 00 39 09 3C 00 |*...2..".";.9.<.| 00000110: 99 22 54 45 52 4D 59 4E 20 52 45 4E 54 45 20 20 |."TERMYN RENTE | 00000120: 20 20 20 43 55 4D 2D 52 45 4E 54 45 20 20 20 41 | CUM-RENTE A| 00000130: 46 4C 4F 53 53 49 4E 47 22 00 64 09 46 00 99 22 |FLOSSING".d.F.."| 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 41 46 4C 2D 43 55 4D 20 20 20 20 20 53 43 48 | AFL-CUM SCH| 00000160: 55 4C 44 22 00 6A 09 50 00 8E 00 8F 09 5A 00 8F |ULD".j.P.....Z..| 00000170: 20 2A 2A 2A 20 49 4E 56 4F 45 52 20 56 41 4E 20 | *** INVOER VAN | 00000180: 44 45 20 47 45 47 45 56 45 4E 53 20 2A 2A 2A 00 |DE GEGEVENS ***.| 00000190: 99 09 64 00 99 22 93 22 3B 00 BA 09 6E 00 99 22 |..d..".";...n.."| 000001A0: 2A 2A 2A 20 41 4E 4E 55 49 54 45 49 54 45 4E 4C |*** ANNUITEITENL| 000001B0: 45 4E 49 4E 47 20 2A 2A 2A 22 00 C0 09 78 00 99 |ENING ***"...x..| 000001C0: 00 E3 09 82 00 99 22 48 4F 45 20 47 52 4F 4F 54 |......"HOE GROOT| 000001D0: 20 49 53 20 48 45 54 20 4B 41 50 49 54 41 41 4C | IS HET KAPITAAL| 000001E0: 20 22 3B 00 EB 09 8C 00 85 20 4B 00 19 0A 96 00 | ";...... K.....| 000001F0: 8B 20 28 4B 20 B3 B2 20 30 29 20 B0 20 28 4B AC |. (K .. 0) . (K.| 00000200: 31 30 30 AB B5 28 4B AC 31 30 30 29 20 B3 B1 20 |100..(K.100) .. | 00000210: 30 20 29 20 A7 20 31 33 30 00 3E 0A A0 00 99 22 |0 ) . 130.>...."| 00000220: 57 41 54 20 49 53 20 48 45 54 20 52 45 4E 54 45 |WAT IS HET RENTE| 00000230: 2D 50 45 52 43 45 4E 54 41 47 45 20 22 3B 00 46 |-PERCENTAGE ";.F| 00000240: 0A AA 00 85 20 49 00 59 0A B4 00 8B 20 49 20 B3 |.... I.Y.... I .| 00000250: B2 20 30 20 A7 20 31 36 30 00 7D 0A BE 00 99 22 |. 0 . 160.}...."| 00000260: 57 41 54 20 49 53 20 44 45 20 4C 4F 4F 50 54 59 |WAT IS DE LOOPTY| 00000270: 44 20 49 4E 20 4A 41 52 45 4E 20 22 3B 00 85 0A |D IN JAREN ";...| 00000280: C8 00 85 20 54 00 A5 0A D2 00 8B 20 28 54 B3 31 |... T...... (T.1| 00000290: 29 20 B0 20 28 54 AB B5 28 54 29 B3 B1 30 29 20 |) . (T..(T)..0) | 000002A0: A7 20 31 39 30 00 D1 0A DC 00 99 22 48 4F 45 20 |. 190......"HOE | 000002B0: 56 41 41 4B 20 57 4F 52 44 54 20 45 52 20 50 45 |VAAK WORDT ER PE| 000002C0: 52 20 4A 41 41 52 20 42 45 54 41 41 4C 44 20 22 |R JAAR BETAALD "| 000002D0: 3B 00 D9 0A E6 00 85 20 4C 00 FD 0A F0 00 8B 20 |;...... L...... | 000002E0: 28 4C 20 B3 20 31 29 20 B0 20 28 4C AB B5 28 4C |(L . 1) . (L..(L| 000002F0: 29 20 B3 B1 20 30 29 20 A7 20 32 32 30 00 03 0B |) .. 0) . 220...| 00000300: FA 00 3A 00 26 0B 04 01 8F 20 2A 2A 2A 20 42 45 |..:.&.... *** BE| 00000310: 52 45 4B 45 4E 49 4E 47 20 41 4E 4E 55 49 54 45 |REKENING ANNUITE| 00000320: 49 54 20 2A 2A 2A 00 36 0B 0E 01 41 B2 28 49 AD |IT ***.6...A.(I.| 00000330: 4C 29 AD 31 30 30 00 48 0B 18 01 58 B2 28 31 AA |L).100.H...X.(1.| 00000340: 41 29 AE 28 54 AC 4C 29 00 54 0B 22 01 53 B2 31 |A).(T.L).T.".S.1| 00000350: AB 31 AD 58 00 62 0B 2C 01 53 B2 28 4B AC 41 29 |.1.X.b.,.S.(K.A)| 00000360: AD 53 00 88 0B 36 01 8F 20 2A 2A 2A 20 55 49 54 |.S...6.. *** UIT| 00000370: 56 4F 45 52 20 56 41 4E 20 44 45 20 47 45 47 45 |VOER VAN DE GEGE| 00000380: 56 45 4E 53 20 2A 2A 2A 00 92 0B 40 01 99 22 93 |VENS ***...@..".| 00000390: 22 3B 00 B7 0B 4A 01 99 A3 30 37 29 22 2A 2A 2A |";...J...07)"***| 000003A0: 20 41 4E 4E 55 49 54 45 49 54 45 4E 4C 45 4E 49 | ANNUITEITENLENI| 000003B0: 4E 47 20 2A 2A 2A 22 00 BD 0B 54 01 99 00 E0 0B |NG ***"...T.....| 000003C0: 5E 01 99 22 4B 41 50 49 54 41 41 4C 3A 20 20 20 |^.."KAPITAAL: | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 4B | ";K| 000003E0: 00 03 0C 68 01 99 22 52 45 4E 54 45 50 45 52 43 |...h.."RENTEPERC| 000003F0: 45 4E 54 41 47 45 3A 20 20 20 20 20 20 20 20 20 |ENTAGE: | 00000400: 22 3B 49 00 26 0C 72 01 99 22 4C 4F 4F 50 54 59 |";I.&.r.."LOOPTY| 00000410: 44 20 49 4E 20 4A 41 52 45 4E 3A 20 20 20 20 20 |D IN JAREN: | 00000420: 20 20 20 22 3B 54 00 49 0C 7C 01 99 22 41 41 4E | ";T.I.|.."AAN| 00000430: 54 41 4C 20 50 45 52 49 4F 44 45 4E 20 50 45 52 |TAL PERIODEN PER| 00000440: 20 4A 41 41 52 3A 22 3B 4C 00 4F 0C 86 01 99 00 | JAAR:";L.O.....| 00000450: 72 0C 90 01 99 22 41 4E 4E 55 49 54 45 49 54 3A |r...."ANNUITEIT:| 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000470: 3B 53 00 78 0C 9A 01 99 00 A2 0C A4 01 99 22 57 |;S.x.........."W| 00000480: 49 4C 54 20 55 20 48 45 54 20 41 46 4C 4F 53 53 |ILT U HET AFLOSS| 00000490: 49 4E 47 53 50 4C 41 4E 20 4A 41 2F 4E 45 45 20 |INGSPLAN JA/NEE | 000004A0: 22 3B 00 AB 0C AE 01 85 20 41 24 00 C3 0C B8 01 |";...... A$.....| 000004B0: 8B 20 C8 28 41 24 2C 31 29 B2 22 4E 22 20 A7 20 |. .(A$,1)."N" . | 000004C0: 38 31 30 00 DC 0C C2 01 8B 20 C8 28 41 24 2C 31 |810...... .(A$,1| 000004D0: 29 B3 B1 22 4A 22 20 A7 20 34 32 30 00 E6 0C CC |).."J" . 420....| 000004E0: 01 8D 20 20 35 30 00 EE 0C D6 01 43 B2 4B 00 F6 |.. 50.....C.K..| 000004F0: 0C E0 01 50 B2 30 00 FF 0C EA 01 52 31 B2 30 00 |...P.0.....R1.0.| 00000500: 08 0D F4 01 42 31 B2 30 00 18 0D FE 01 81 20 58 |....B1.0...... X| 00000510: B2 31 20 A4 20 54 AC 4C 00 22 0D 08 02 52 B2 41 |.1 . T.L."...R.A| 00000520: AC 43 00 2C 0D 12 02 42 B2 53 AB 52 00 36 0D 1C |.C.,...B.S.R.6..| 00000530: 02 43 B2 43 AB 42 00 42 0D 26 02 52 31 B2 52 31 |.C.C.B.B.&.R1.R1| 00000540: AA 52 00 4E 0D 30 02 42 31 B2 42 31 AA 42 00 63 |.R.N.0.B1.B1.B.c| 00000550: 0D 3A 02 8F 20 2A 2A 20 41 46 52 4F 4E 44 45 4E |.:.. ** AFRONDEN| 00000560: 20 2A 2A 00 7D 0D 44 02 52 32 B2 28 B5 28 52 AC | **.}.D.R2.(.(R.| 00000570: 31 30 30 AA 2E 30 35 29 29 AD 31 30 30 00 98 0D |100..05)).100...| 00000580: 4E 02 52 33 B2 28 B5 28 52 31 AC 31 30 30 AA 2E |N.R3.(.(R1.100..| 00000590: 30 35 29 29 AD 31 30 30 00 B2 0D 58 02 42 32 B2 |05)).100...X.B2.| 000005A0: 28 B5 28 42 AC 31 30 30 AA 30 2E 35 29 29 AD 31 |(.(B.100.0.5)).1| 000005B0: 30 30 00 CD 0D 62 02 42 33 B2 28 B5 28 42 31 AC |00...b.B3.(.(B1.| 000005C0: 31 30 30 AA 30 2E 35 29 29 AD 31 30 30 00 EA 0D |100.0.5)).100...| 000005D0: 6C 02 43 31 B2 28 B5 28 B6 28 43 29 AC 31 30 30 |l.C1.(.(.(C).100| 000005E0: AA 2E 30 35 29 29 AD 31 30 30 00 08 0E 76 02 99 |..05)).100...v..| 000005F0: A3 31 29 58 3B A3 36 29 52 32 3B A3 31 36 29 52 |.1)X;.6)R2;.16)R| 00000600: 33 3B A3 32 38 29 42 32 00 1B 0E 80 02 99 A3 31 |3;.28)B2.......1| 00000610: 36 29 42 33 3B A3 32 38 29 43 31 00 39 0E 8A 02 |6)B3;.28)C1.9...| 00000620: 8B 20 58 AD 31 30 AB B5 28 58 AD 31 30 29 20 B3 |. X.10..(X.10) .| 00000630: B1 20 30 20 A7 20 37 34 30 00 5C 0E 94 02 8F 20 |. 0 . 740.\.... | 00000640: 2A 2A 2A 20 56 4F 4C 47 45 4E 44 45 20 31 30 20 |*** VOLGENDE 10 | 00000650: 54 45 52 4D 59 4E 45 4E 20 2A 2A 2A 00 8A 0E 9E |TERMYNEN ***....| 00000660: 02 99 22 45 52 20 4B 55 4E 4E 45 4E 20 4B 4C 45 |.."ER KUNNEN KLE| 00000670: 49 4E 45 20 41 46 52 4F 4E 44 49 4E 47 53 46 4F |INE AFRONDINGSFO| 00000680: 55 54 45 4E 20 5A 59 4E 2E 22 00 B9 0E A8 02 99 |UTEN ZYN."......| 00000690: 22 57 49 4C 54 20 55 20 44 45 20 56 4F 4C 47 45 |"WILT U DE VOLGE| 000006A0: 4E 44 45 20 31 30 20 54 45 52 4D 59 4E 45 4E 20 |NDE 10 TERMYNEN | 000006B0: 20 4A 41 2F 4E 45 45 22 3B 00 C2 0E B2 02 85 20 | JA/NEE";...... | 000006C0: 41 24 00 DC 0E BC 02 8B 20 C8 28 41 24 2C 31 29 |A$...... .(A$,1)| 000006D0: 20 B2 20 22 4E 22 20 A7 20 37 33 30 00 E5 0E C6 | . "N" . 730....| 000006E0: 02 8D 20 35 30 00 EF 0E D0 02 89 20 37 34 30 00 |.. 50...... 740.| 000006F0: F9 0E DA 02 58 B2 54 AC 4C 00 01 0F E4 02 82 20 |....X.T.L...... | 00000700: 58 00 26 0F EE 02 8F 20 2A 2A 2A 20 54 4F 54 41 |X.&.... *** TOTA| 00000710: 4C 45 4E 20 41 46 4C 4F 53 53 49 4E 47 53 50 4C |LEN AFLOSSINGSPL| 00000720: 41 4E 20 2A 2A 2A 00 57 0F F8 02 99 22 2D 2D 2D |AN ***.W...."---| 00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000750: 2D 2D 2D 2D 2D 22 3B 00 72 0F 0C 03 52 33 B2 28 |-----";.r...R3.(| 00000760: B5 28 52 31 AC 31 30 30 AA 2E 30 35 29 29 AD 31 |.(R1.100..05)).1| 00000770: 30 30 00 8D 0F 16 03 42 33 B2 28 B5 28 42 31 AC |00.....B3.(.(B1.| 00000780: 31 30 30 AA 2E 30 35 29 29 AD 31 30 30 00 B0 0F |100..05)).100...| 00000790: 20 03 99 22 52 45 4E 54 45 3A 22 3B 52 33 22 20 | .."RENTE:";R3" | 000007A0: 20 20 41 46 4C 4F 53 53 49 4E 47 3A 22 3B 42 33 | AFLOSSING:";B3| 000007B0: 00 B6 0F 2A 03 80 00 00 00 |...*..... |
..N.... --(C) DIGICOM SOFTWARE,TAPE B01
-- AANGEPAST VOOR COMMODORE 64.N
.... *** ANNUITEITENLENING ***......
DIT PROGRAMMA BEREKENT DE
ANNUITEIT VAN EEN LENING.C.... 100...(.
. *** SUBROUTINE OM DE KOP TE
PRINTEN ***...2..".";.9.<.."TERMYN
RENTE CUM-RENTE AFLOSSING".D.F.."
AFL-CUM SCHULD".J.P
.....Z.. *** INVOER VAN DE GEGEVENS ***.
..D..".";...N.."*** ANNUITEITENLENING **
*"...X........"HOE GROOT IS HET KAPITAAL
";...... K...... (K .. 0) . (K.100..(K.
100) .. 0 ) . 130.>. .."WAT IS HET RENTE
-PERCENTAGE ";.F.... I.Y.... I .. 0 . 16
0.}...."WAT IS DE LOOPTYD IN JAREN ";...
H.. T...R.. (T.1) . (T..(T)..0) . 190.Q.
..."HOE VAAK WORDT ER PER JAAR BETAALD "
;.Y.... L...... (L . 1) . (L..(L) .. 0)
. 220.....:.&.... *** BEREKENING ANNUITE
IT ***.6...A.(I.L).100.H...X.(1.A).(T.L)
.T.".S.1.1.X.B.,.S.(K.A).S...6.. *** UIT
VOER VAN DE GEGEVENS ***...@..".";...J..
.07)"*** ANNUITEITENLENING ***"...T.....
^.."KAPITAAL: ";K...H.."R
ENTEPERCENTAGE: ";I.&.R.."LOOPTY
D IN JAREN: ";T.I.|.."AANTAL PERI
ODEN PER JAAR:";L.O.....R...."ANNUITEIT:
";S.X.........."WILT U HE
T AFLOSSINGSPLAN JA/NEE ";...... A$.C...
. H(A$,1)."N" . 810...B.. H(A$,1).."J" .
420...L.. 50...V.C.K.....P.0.....R1.0.
....B1.0...... X.1 . T.L."...R.A.C.,...B
.S.R.6...C.C.B.B.&.R1.R1.R.N.0.B1.B1.B.C
.:.. ** AFRONDEN **.}.D.R2.(.(R.100..05)
).100...N.R3.(.(R1.100..05)).100...X.B2.
(.(B.100.0.5)).100.M.B.B3.(.(B1.100.0.5)
).100...L.C1.(.(.(C).100..05)).100...V..
.1)X;.6)R2;.16)R3;.28)B2.......16)B3;.28
)C1.9.... X.10..(X.10) .. 0 . 740.\....
*** VOLGENDE 10 TERMYNEN ***......"ER KU
NNEN KLEINE AFRONDINGSFOUTEN ZYN."......
"WILT U DE VOLGENDE 10 TERMYNEN JA/NEE"
;.B.... A$...... H(A$,1) . "N" . 730...F
.. 50...P.. 740...Z.X.T.L...... X.&....
*** TOTALEN AFLOSSINGSPLAN ***.W...."---
-------------------------------------";.
R...R3.(.(R1.100..05)).100.....B3.(.(B1.
100..05)).100... .."RENTE:";R3" AFLOSS
ING:";B3...*.....
> CLICK IMAGE PREVIEW FOR FULL MODAL