RENTE
FILE INFORMATION
FILENAME(S): RENTE
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 21:06:56
APPEARS ON: 2 disk(s)
FILE HASH
bd01f895838227500960536d497b79a8573681781f5090205e549290cdd278ce
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JO QM | RENTE | PRG | DuncanTwain | 8 | 6 | DOWNLOAD FILE |
| HUUB GILLISSEN | RENTE | PRG | Shine | 8 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 14 00 8D 31 30 30 30 3A 8F 49 4E 49 |.......1000:.INI|
00000010: 54 49 41 4C 49 53 45 52 45 4E 00 2C 08 1E 00 8D |TIALISEREN.,....|
00000020: 32 30 30 30 3A 8F 49 4E 56 4F 45 52 00 42 08 28 |2000:.INVOER.B.(|
00000030: 00 8D 33 30 30 30 3A 8F 42 45 52 45 4B 45 4E 49 |..3000:.BEREKENI|
00000040: 4E 47 00 54 08 32 00 8D 35 30 30 30 3A 8F 53 50 |NG.T.2..5000:.SP|
00000050: 41 54 49 45 00 65 08 3C 00 8D 34 30 30 30 3A 8F |ATIE.e.<..4000:.|
00000060: 54 41 42 45 4C 00 6D 08 46 00 89 33 30 00 73 08 |TABEL.m.F..30.s.|
00000070: 50 00 80 00 86 08 E8 03 8F 49 4E 49 54 49 41 4C |P........INITIAL|
00000080: 49 53 45 52 45 4E 00 B8 08 F2 03 48 24 B2 22 13 |ISEREN.....H$.".|
00000090: 22 3A 20 43 4C 24 B2 22 93 22 3A 56 54 24 B2 22 |": CL$.".":VT$."|
000000A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000B0: 11 11 11 11 11 11 11 22 00 C8 08 FC 03 99 43 4C |......."......CL|
000000C0: 24 3B C7 28 31 34 29 3B 00 00 09 06 04 4B 24 B2 |$;.(14);.....K$.|
000000D0: 22 31 32 30 30 2E 30 30 22 3A 52 4A 24 B2 22 31 |"1200.00":RJ$."1|
000000E0: 30 2E 30 30 30 22 3A 4E 54 24 B2 22 31 32 22 3A |0.000":NT$."12":|
000000F0: 4E 4D 24 B2 22 31 22 3A 41 46 4C 24 B2 22 3F 22 |NM$."1":AFL$."?"|
00000100: 00 0B 09 10 04 8D 32 30 30 30 30 00 11 09 4B 04 |......20000...K.|
00000110: 8E 00 1D 09 D0 07 8F 49 4E 56 4F 45 52 00 28 09 |.......INVOER.(.|
00000120: DA 07 58 B2 B8 28 30 29 00 54 09 EE 07 99 43 4C |..X..(0).T....CL|
00000130: 24 3B C8 28 48 54 24 2C 31 30 29 3B 22 C1 CE CE |$;.(HT$,10);"...|
00000140: D5 C9 D4 C5 C9 D4 C5 CE 2D C2 C5 D2 C5 CB C5 CE |........-.......|
00000150: C9 CE C7 22 00 77 09 F8 07 99 48 24 3B C8 28 56 |...".w....H$;.(V|
00000160: 54 24 2C 36 29 3B 22 C2 C5 C4 D2 C1 C7 3A 22 3B |T$,6);"......:";|
00000170: A3 33 30 29 3B 4B 24 00 A5 09 02 08 99 3A 99 3A |.30);K$......:.:|
00000180: 99 22 D2 C5 CE D4 C5 2D D0 C5 D2 C3 2E 20 CF D0 |.".....-..... ..|
00000190: 20 CA C1 C1 D2 C2 C1 D3 C9 D3 3A 22 3B A3 33 30 | .........:";.30|
000001A0: 29 3B 52 4A 24 00 CB 09 0C 08 99 3A 99 3A 99 22 |);RJ$......:.:."|
000001B0: C1 C1 CE D4 C1 CC 20 D4 C5 D2 CD C9 CA CE C5 CE |...... .........|
000001C0: 3A 22 3B A3 33 30 29 3B 4E 54 24 00 FB 09 16 08 |:";.30);NT$.....|
000001D0: 99 3A 99 3A 99 22 C1 C1 CE D4 C1 CC 20 CD C1 C1 |.:.:."...... ...|
000001E0: CE C4 C5 CE 20 D0 C5 D2 20 D4 C5 D2 CD C9 CA CE |.... ... .......|
000001F0: 3A 22 3B A3 33 30 29 3B 4E 4D 24 00 1F 0A 20 08 |:";.30);NM$... .|
00000200: 99 3A 99 3A 99 22 D4 C5 D2 CD C9 CA CE 2D C2 C5 |.:.:.".......-..|
00000210: C4 D2 C1 C7 3A 22 3B A3 33 30 29 3B 22 3F 22 00 |....:";.30);"?".|
00000220: 54 0A 2A 08 99 48 24 3B C8 28 56 54 24 2C 32 34 |T.*..H$;.(VT$,24|
00000230: 29 3B 22 20 20 20 20 20 20 20 D4 C9 CB 20 27 53 |);" ... 'S|
00000240: 54 4F 50 27 20 CF CD 20 D4 C5 20 C5 C9 CE C4 C9 |TOP' .. .. .....|
00000250: C7 C5 CE 22 00 8D 0A 5C 08 52 4E B2 36 3A 41 24 |..."...\.RN.6:A$|
00000260: B2 4B 24 3A 4F 47 B2 30 3A 42 47 B2 31 45 36 AB |.K$:OG.0:BG.1E6.|
00000270: 30 2E 30 31 3A 44 45 43 B2 32 3A 20 8D 32 37 30 |0.01:DEC.2: .270|
00000280: 30 3A 4B 24 B2 49 4E 24 3A 4B B2 49 4E 00 C5 0A |0:K$.IN$:K.IN...|
00000290: 66 08 52 4E B2 39 3A 41 24 B2 52 4A 24 3A 4F 47 |f.RN.9:A$.RJ$:OG|
000002A0: B2 30 3A 42 47 B2 31 30 30 3A 4E 44 45 43 B2 33 |.0:BG.100:NDEC.3|
000002B0: 3A 20 8D 32 37 30 30 3A 52 4A 24 B2 49 4E 24 3A |: .2700:RJ$.IN$:|
000002C0: 52 4A B2 49 4E 00 FF 0A 70 08 52 4E B2 31 32 3A |RJ.IN...p.RN.12:|
000002D0: 41 24 B2 4E 54 24 3A 4F 47 B2 31 3A 42 47 B2 31 |A$.NT$:OG.1:BG.1|
000002E0: 30 30 30 3A 4E 44 45 43 B2 30 3A 20 8D 32 37 30 |000:NDEC.0: .270|
000002F0: 30 3A 4E 54 24 B2 49 4E 24 3A 4E 54 B2 49 4E 00 |0:NT$.IN$:NT.IN.|
00000300: 37 0B 7A 08 52 4E B2 31 35 3A 41 24 B2 4E 4D 24 |7.z.RN.15:A$.NM$|
00000310: 3A 4F 47 B2 31 3A 42 47 B2 32 34 3A 4E 44 45 43 |:OG.1:BG.24:NDEC|
00000320: B2 30 3A 20 8D 32 37 30 30 3A 4E 4D 24 B2 49 4E |.0: .2700:NM$.IN|
00000330: 24 3A 4E 4D B2 49 4E 00 3D 0B 97 08 8E 00 46 0B |$:NM.IN.=.....F.|
00000340: 8C 0A 8F 49 4E 24 00 5E 0B 96 0A 99 48 24 3B C8 |...IN$.^....H$;.|
00000350: 28 56 54 24 2C 52 4E 29 3B A3 32 38 29 3B 00 67 |(VT$,RN);.28);.g|
00000360: 0B A0 0A 85 49 4E 24 00 85 0B AA 0A 8B 20 C8 28 |....IN$...... .(|
00000370: 49 4E 24 2C 34 29 B2 22 53 54 4F 50 22 A7 20 99 |IN$,4)."STOP". .|
00000380: 43 4C 24 3A 80 00 93 0B C8 0A 49 4E B2 C5 28 49 |CL$:......IN..(I|
00000390: 4E 24 29 00 C1 0B D2 0A 8B 49 4E B3 4F 47 20 B0 |N$)......IN.OG .|
000003A0: 49 4E B1 42 47 20 B0 4E 44 45 43 B2 30 20 AF B5 |IN.BG .NDEC.0 ..|
000003B0: 28 49 4E 29 B3 B1 49 4E 20 A7 20 89 20 32 37 31 |(IN)..IN . . 271|
000003C0: 30 00 DE 0B DC 0A 58 B2 49 4E 3A 20 8D 31 30 30 |0.....X.IN: .100|
000003D0: 30 30 3A 49 4E B2 58 3A 49 4E 24 B2 58 24 00 0F |00:IN.X:IN$.X$..|
000003E0: 0C E6 0A 99 48 24 3B C8 28 56 54 24 2C 52 4E 29 |....H$;.(VT$,RN)|
000003F0: 3B A3 32 38 29 22 20 20 20 20 20 20 20 20 20 20 |;.28)" |
00000400: 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 49 4E 24 00 | .........";IN$.|
00000410: 15 0C EF 0A 8E 00 25 0C B8 0B 8F 42 45 52 45 4B |......%....BEREK|
00000420: 45 4E 49 4E 47 00 39 0C C2 0B 52 50 B2 4E 4D AD |ENING.9...RP.NM.|
00000430: 31 32 AC 52 4A AD 31 30 30 00 44 0C CC 0B 8D 20 |12.RJ.100.D.... |
00000440: 33 37 30 30 00 60 0C D6 0B 99 48 24 3B C8 28 56 |3700.`....H$;.(V|
00000450: 54 24 2C 31 38 29 3B A3 33 30 29 3B 41 46 4C 24 |T$,18);.30);AFL$|
00000460: 00 66 0C 1B 0C 8E 00 7E 0C 74 0E 8F 41 46 4C 4F |.f.....~.t..AFLO|
00000470: 53 53 49 4E 47 20 4F 4E 42 45 4B 45 4E 44 00 99 |SSING ONBEKEND..|
00000480: 0C 7E 0E 8B 52 50 B2 30 20 A7 41 46 4C B2 4B AD |.~..RP.0 .AFL.K.|
00000490: 4E 54 3A 20 89 33 37 34 30 00 C5 0C 88 0E 48 31 |NT: .3740.....H1|
000004A0: B2 28 31 AA 52 50 29 AE 4E 54 3A 48 32 B2 48 31 |.(1.RP).NT:H2.H1|
000004B0: AB 31 3A 8B 48 32 B3 31 45 AB 33 20 A7 48 32 B2 |.1:.H2.1E.3 .H2.|
000004C0: 4E 54 AC 52 50 00 D8 0C 92 0E 41 46 4C B2 4B AC |NT.RP.....AFL.K.|
000004D0: 52 50 AC 48 31 AD 48 32 00 07 0D 9C 0E 4E 44 45 |RP.H1.H2.....NDE|
000004E0: 43 B2 32 3A 58 B2 41 46 4C 3A 20 8D 31 30 30 30 |C.2:X.AFL: .1000|
000004F0: 30 3A 41 46 4C B2 58 3A 41 46 4C 24 B2 58 24 3A |0:AFL.X:AFL$.X$:|
00000500: 41 24 B2 41 46 4C 24 00 0D 0D D7 0E 8E 00 18 0D |A$.AFL$.........|
00000510: A0 0F 8F 54 41 42 45 4C 00 2B 0D AA 0F 99 48 24 |...TABEL.+....H$|
00000520: 3B C8 28 56 54 24 2C 32 34 29 3B 00 59 0D B4 0F |;.(VT$,24);.Y...|
00000530: 99 22 20 20 20 D7 C9 CC D4 A0 D5 20 C5 C5 CE 20 |." ...... ... |
00000540: C1 C6 CC CF D3 D3 C9 CE C7 D3 2D D4 C1 C2 C5 CC |..........-.....|
00000550: 20 28 CA 2F CE 29 20 22 3B 00 7B 0D BE 0F A1 42 | (./.) ";.{....B|
00000560: 24 3A 8B 42 24 B3 B1 22 4A 22 20 AF 42 24 B3 B1 |$:.B$.."J" .B$..|
00000570: 22 4E 22 20 A7 20 89 34 30 33 30 00 8F 0D C8 0F |"N" . .4030.....|
00000580: 8B 42 24 B2 22 4E 22 20 A7 20 89 34 32 39 39 00 |.B$."N" . .4299.|
00000590: AD 0D CD 0F 54 4E B2 31 3A 4E 44 45 43 B2 32 3A |....TN.1:NDEC.2:|
000005A0: 53 B2 4B 3A 53 41 B2 30 3A 53 52 B2 30 00 BC 0D |S.K:SA.0:SR.0...|
000005B0: D2 0F 99 43 4C 24 3B 3A 52 4E B2 30 00 D5 0D DC |...CL$;:RN.0....|
000005C0: 0F 99 22 CB C1 D0 C9 D4 C1 C1 CC 3A 22 3B A3 33 |.."........:";.3|
000005D0: 30 29 3B 4B 24 00 FB 0D E6 0F 99 22 D2 C5 CE D4 |0);K$......"....|
000005E0: C5 2D D0 C5 D2 C3 2E 20 D0 C5 D2 20 CA C1 C1 D2 |.-..... ... ....|
000005F0: 3A 22 3B A3 33 30 29 3B 52 4A 24 00 1D 0E F0 0F |:";.30);RJ$.....|
00000600: 99 22 C1 C1 CE D4 C1 CC 20 D4 C5 D2 CD C9 CA CE |."...... .......|
00000610: C5 CE 3A 22 3B A3 33 30 29 3B 4E 54 24 00 49 0E |..:";.30);NT$.I.|
00000620: FA 0F 99 22 C1 C1 CE D4 C1 CC 20 CD C1 C1 CE C4 |..."...... .....|
00000630: C5 CE 20 D0 C5 D2 20 D4 C5 D2 CD C9 CA CE 3A 22 |.. ... .......:"|
00000640: 3B A3 33 30 29 3B 4E 4D 24 00 6A 0E 04 10 99 22 |;.30);NM$.j...."|
00000650: D4 C5 D2 CD C9 CA CE 2D C2 C5 C4 D2 C1 C7 3A 22 |.......-......:"|
00000660: 3B A3 33 30 29 3B 41 46 4C 24 00 70 0E 0E 10 99 |;.30);AFL$.p....|
00000670: 00 95 0E 10 10 52 B2 53 AC 52 50 3A 8B 52 B1 B2 |.....R.S.RP:.R..|
00000680: 30 2E 30 31 AF 4E 54 AC 41 46 4C B3 31 45 36 A7 |0.01.NT.AFL.1E6.|
00000690: 89 34 31 32 30 00 C1 0E 12 10 99 22 C2 C9 CA A0 |.4120......"....|
000006A0: C4 C5 A0 C7 C5 C7 C5 D6 C5 CE A0 D7 C1 C1 D2 C4 |................|
000006B0: C5 CE A0 C9 D3 A0 C7 C5 C5 CE A0 C7 CF C5 C4 C5 |................|
000006C0: 22 00 E2 0E 14 10 99 22 C1 C6 CC CF D3 D3 C9 CE |"......"........|
000006D0: C7 D3 2D D4 C1 C2 C5 CC A0 D4 C5 A0 CD C1 CB C5 |..-.............|
000006E0: CE 22 00 F2 0E 16 10 8D 35 30 30 30 3A 89 34 37 |."......5000:.47|
000006F0: 39 39 00 24 0F 18 10 99 3A 99 22 20 20 D4 C5 D2 |99.$....:." ...|
00000700: CD C9 CA CE 20 20 20 20 20 D2 C5 CE D4 C5 20 20 |.... ..... |
00000710: C1 C6 CC CF D3 D3 C9 CE C7 20 20 20 D3 C3 C8 D5 |......... ....|
00000720: CC C4 22 3B 00 46 0F 2C 10 52 4E B2 52 4E AA 31 |..";.F.,.RN.RN.1|
00000730: 3A 8B 52 4E B1 31 30 20 A7 20 8D 20 35 30 30 30 |:.RN.10 . . 5000|
00000740: 3A 89 34 30 35 30 00 87 0F 36 10 8B 52 4E B2 31 |:.4050...6..RN.1|
00000750: A7 99 22 20 20 22 3B 54 4E 3B 22 2D 22 3B 3A 48 |.." ";TN;"-";:H|
00000760: 48 B2 54 4E AA 39 3A 48 48 B2 AB 48 48 AC 28 4E |H.TN.9:HH..HH.(N|
00000770: 54 B1 B2 48 48 29 AB 4E 54 AC 28 4E 54 B3 48 48 |T..HH).NT.(NT.HH|
00000780: 29 3A 99 48 48 3A 99 00 A9 0F 40 10 8D 34 37 30 |):.HH:....@..470|
00000790: 30 3A 54 4E B2 54 4E AA 31 3A 8B 54 4E B3 B2 4E |0:TN.TN.1:.TN..N|
000007A0: 54 20 A7 20 89 34 31 34 30 00 C1 0F 4A 10 81 49 |T . .4140...J..I|
000007B0: 58 B2 31 20 A4 33 39 3A 99 22 3D 22 3B 3A 82 3A |X.1 .39:."=";:.:|
000007C0: 99 00 E9 0F 54 10 58 B2 53 41 AA 53 52 3A 20 8D |....T.X.SA.SR: .|
000007D0: 31 30 30 30 30 3A 58 30 24 B2 C9 28 22 20 20 20 |10000:X0$..(" |
000007E0: 20 20 22 AA 58 24 2C 39 29 00 0E 10 5E 10 58 B2 | ".X$,9)...^.X.|
000007F0: 53 52 3A 20 8D 31 30 30 30 30 3A 58 31 24 B2 C9 |SR: .10000:X1$..|
00000800: 28 22 20 20 20 20 20 22 AA 58 24 2C 39 29 00 33 |(" ".X$,9).3|
00000810: 10 68 10 58 B2 53 41 3A 20 8D 31 30 30 30 30 3A |.h.X.SA: .10000:|
00000820: 58 32 24 B2 C9 28 22 20 20 20 20 20 22 AA 58 24 |X2$..(" ".X$|
00000830: 2C 39 29 00 55 10 6D 10 99 20 58 30 24 22 20 22 |,9).U.m.. X0$" "|
00000840: 58 31 24 22 20 22 58 32 24 22 20 20 20 20 D4 CF |X1$" "X2$" ..|
00000850: D4 C1 C1 CC 22 00 5F 10 72 10 8D 35 30 30 30 00 |...."._.r..5000.|
00000860: 65 10 CB 10 8E 00 78 10 5C 12 8F 52 45 47 45 4C |e.....x.\..REGEL|
00000870: 20 50 52 49 4E 54 45 4E 00 83 10 66 12 52 B2 53 | PRINTEN...f.R.S|
00000880: AC 52 50 00 97 10 70 12 58 B2 52 3A 20 8D 31 30 |.RP...p.X.R: .10|
00000890: 30 30 30 3A 52 B2 58 00 A4 10 7A 12 41 41 B2 41 |000:R.X...z.AA.A|
000008A0: 46 4C AB 52 00 C4 10 84 12 58 31 24 B2 C9 28 22 |FL.R.....X1$..("|
000008B0: 20 20 20 20 20 22 AA 58 24 2C 39 29 3A 53 52 B2 | ".X$,9):SR.|
000008C0: 53 52 AA 52 00 DB 10 8E 12 8B 4E 54 B2 54 4E 20 |SR.R......NT.TN |
000008D0: B0 41 41 B1 53 20 A7 41 41 B2 53 00 0E 11 98 12 |.AA.S .AA.S.....|
000008E0: 58 B2 41 41 3A 20 8D 31 30 30 30 30 3A 41 41 B2 |X.AA: .10000:AA.|
000008F0: 58 3A 58 32 24 B2 C9 28 22 20 20 20 20 20 22 AA |X:X2$..(" ".|
00000900: 58 24 2C 39 29 3A 53 41 B2 53 41 AA 41 41 00 35 |X$,9):SA.SA.AA.5|
00000910: 11 A2 12 58 B2 41 41 AA 52 3A 20 8D 31 30 30 30 |...X.AA.R: .1000|
00000920: 30 3A 58 30 24 B2 C9 28 22 20 20 20 20 20 22 AA |0:X0$..(" ".|
00000930: 58 24 2C 39 29 00 40 11 AC 12 53 B2 53 AB 41 41 |X$,9).@...S.S.AA|
00000940: 00 64 11 B6 12 58 B2 53 3A 20 8D 31 30 30 30 30 |.d...X.S: .10000|
00000950: 3A 58 33 24 B2 C9 28 22 20 20 20 20 20 22 AA 58 |:X3$..(" ".X|
00000960: 24 2C 39 29 00 7F 11 BB 12 99 58 30 24 22 20 22 |$,9)......X0$" "|
00000970: 58 31 24 22 20 22 58 32 24 22 20 22 58 33 24 00 |X1$" "X2$" "X3$.|
00000980: 85 11 BF 12 8E 00 9E 11 88 13 8F 53 50 41 54 49 |...........SPATI|
00000990: 45 20 56 4F 4F 52 20 56 45 52 56 4F 4C 47 00 D0 |E VOOR VERVOLG..|
000009A0: 11 92 13 99 48 24 C8 28 56 54 24 2C 32 34 29 3B |....H$.(VT$,24);|
000009B0: A3 37 29 3B 22 D4 CF C5 D4 D3 20 D3 D0 C1 D4 C9 |.7);"..... .....|
000009C0: C5 20 D6 CF CF D2 20 D6 C5 D2 D6 CF CC C7 22 3B |. .... .......";|
000009D0: 00 E9 11 9C 13 A1 42 24 3A 8B 42 24 B3 B1 22 20 |......B$:.B$.." |
000009E0: 22 20 A7 20 89 35 30 32 30 00 EF 11 A6 13 8E 00 |" . .5020.......|
000009F0: 23 12 10 27 8F 20 41 46 52 4F 4E 44 45 4E 20 4F |#..'. AFRONDEN O|
00000A00: 50 20 4E 44 45 43 20 44 45 43 49 4D 41 4C 45 4E |P NDEC DECIMALEN|
00000A10: 20 45 4E 20 53 54 52 49 4E 47 43 4F 4E 56 45 52 | EN STRINGCONVER|
00000A20: 53 49 45 00 4A 12 1A 27 8B 4E 44 45 43 B2 30 20 |SIE.J..'.NDEC.0 |
00000A30: A7 58 24 B2 CA 28 C4 28 B5 28 58 AA 2E 35 29 29 |.X$..(.(.(X..5))|
00000A40: 2C 32 29 3A 89 31 30 30 36 30 00 63 12 24 27 81 |,2):.10060.c.$'.|
00000A50: 49 58 B2 31 20 A4 4E 44 45 43 3A 58 B2 31 30 AC |IX.1 .NDEC:X.10.|
00000A60: 58 3A 82 00 7E 12 2E 27 58 B2 B5 28 58 AA 2E 35 |X:..~..'X..(X..5|
00000A70: 29 3A 58 24 B2 CA 28 C4 28 58 29 2C 32 29 00 A3 |):X$..(.(X),2)..|
00000A80: 12 38 27 8B C3 28 58 24 29 B3 4E 44 45 43 AA 31 |.8'..(X$).NDEC.1|
00000A90: 20 A7 58 24 B2 22 30 22 AA 58 24 3A 20 89 31 30 | .X$."0".X$: .10|
00000AA0: 30 34 30 00 CA 12 42 27 58 24 B2 C8 28 58 24 2C |040...B'X$..(X$,|
00000AB0: C3 28 58 24 29 AB 4E 44 45 43 29 AA 22 2E 22 AA |.(X$).NDEC).".".|
00000AC0: C9 28 58 24 2C 4E 44 45 43 29 00 D6 12 4C 27 58 |.(X$,NDEC)...L'X|
00000AD0: B2 C5 28 58 24 29 00 DC 12 73 27 8E 00 EC 12 20 |..(X$)...s'.... |
00000AE0: 4E 8F 20 49 4E 4C 45 49 44 49 4E 47 00 1A 13 2A |N. INLEIDING...*|
00000AF0: 4E 99 22 CD 45 54 20 44 49 54 20 50 52 4F 47 52 |N.".ET DIT PROGR|
00000B00: 41 4D 4D 41 20 4B 55 4E 54 20 D5 20 42 45 52 45 |AMMA KUNT . BERE|
00000B10: 4B 45 4E 45 4E 20 57 41 54 22 00 49 13 34 4E 99 |KENEN WAT".I.4N.|
00000B20: 22 48 45 54 20 41 46 4C 4F 53 53 49 4E 47 53 2D |"HET AFLOSSINGS-|
00000B30: 42 45 44 52 41 47 20 49 53 20 42 49 4A 20 45 45 |BEDRAG IS BIJ EE|
00000B40: 4E 20 41 4E 4E 55 49 2D 22 00 75 13 3E 4E 99 22 |N ANNUI-".u.>N."|
00000B50: 54 45 49 54 45 4E 2D 48 59 50 4F 54 48 45 45 4B |TEITEN-HYPOTHEEK|
00000B60: 20 4F 46 20 45 45 4E 20 50 45 52 53 4F 4F 4E 4C | OF EEN PERSOONL|
00000B70: 49 4A 4B 45 22 00 92 13 48 4E 99 22 4C 45 4E 49 |IJKE"...HN."LENI|
00000B80: 4E 47 2E 20 D5 20 56 4F 45 52 54 20 49 4E 3A 22 |NG. . VOERT IN:"|
00000B90: 3A 99 00 AF 13 52 4E 99 22 2D 20 48 45 54 20 47 |:....RN."- HET G|
00000BA0: 45 4C 45 45 4E 44 45 20 42 45 44 52 41 47 22 00 |ELEENDE BEDRAG".|
00000BB0: CE 13 5C 4E 99 22 2D 20 44 45 20 52 45 4E 54 45 |..\N."- DE RENTE|
00000BC0: 20 4F 50 20 4A 41 41 52 42 41 53 49 53 22 00 FA | OP JAARBASIS"..|
00000BD0: 13 66 4E 99 22 2D 20 48 45 54 20 41 41 4E 54 41 |.fN."- HET AANTA|
00000BE0: 4C 20 41 46 4C 4F 53 53 49 4E 47 45 4E 2C 20 42 |L AFLOSSINGEN, B|
00000BF0: 56 2E 20 36 30 20 42 49 4A 22 00 29 14 70 4E 99 |V. 60 BIJ".).pN.|
00000C00: 22 20 20 45 45 4E 20 35 2D 4A 41 52 49 47 45 20 |" EEN 5-JARIGE |
00000C10: 4C 45 4E 49 4E 47 20 4D 45 54 20 4D 41 41 4E 44 |LENING MET MAAND|
00000C20: 42 45 54 41 4C 49 4E 47 22 00 55 14 7A 4E 99 22 |BETALING".U.zN."|
00000C30: 2D 20 48 45 54 20 41 41 4E 54 41 4C 20 4D 41 41 |- HET AANTAL MAA|
00000C40: 4E 44 45 4E 20 44 41 54 20 4C 49 47 54 20 54 55 |NDEN DAT LIGT TU|
00000C50: 53 53 45 4E 22 00 84 14 84 4E 99 22 20 20 54 57 |SSEN"....N." TW|
00000C60: 45 45 20 41 46 4C 4F 53 53 49 4E 47 45 4E 2C 20 |EE AFLOSSINGEN, |
00000C70: 42 56 2E 20 33 20 42 49 4A 20 4B 57 41 52 54 41 |BV. 3 BIJ KWARTA|
00000C80: 41 4C 2D 22 00 98 14 8E 4E 99 22 20 20 42 45 54 |AL-"....N." BET|
00000C90: 41 4C 49 4E 47 22 3A 99 00 C3 14 98 4E 99 22 C8 |ALING":.....N.".|
00000CA0: 45 54 20 50 52 4F 47 52 41 4D 4D 41 20 42 45 52 |ET PROGRAMMA BER|
00000CB0: 45 4B 45 4E 54 20 48 45 54 20 54 45 52 4D 49 4A |EKENT HET TERMIJ|
00000CC0: 4E 2D 22 00 EA 14 A2 4E 99 22 42 45 44 52 41 47 |N-"....N."BEDRAG|
00000CD0: 2C 20 45 4E 20 47 45 45 46 54 20 44 45 53 47 45 |, EN GEEFT DESGE|
00000CE0: 57 45 4E 53 54 20 45 45 4E 22 00 14 15 AC 4E 99 |WENST EEN"....N.|
00000CF0: 22 47 45 44 45 54 41 49 4C 4C 45 45 52 44 20 41 |"GEDETAILLEERD A|
00000D00: 46 4C 4F 53 53 49 4E 47 53 2D 53 43 48 45 4D 41 |FLOSSINGS-SCHEMA|
00000D10: 2E 22 3A 99 00 43 15 B6 4E 99 22 D6 4F 4F 52 47 |.":..C..N.".OORG|
00000D20: 45 44 52 55 4B 54 45 20 44 45 46 41 55 4C 54 2D |EDRUKTE DEFAULT-|
00000D30: 57 41 41 52 44 45 4E 20 56 4F 45 52 54 20 D5 20 |WAARDEN VOERT . |
00000D40: 49 4E 22 00 72 15 C0 4E 99 22 4D 45 54 20 D2 C5 |IN".r..N."MET ..|
00000D50: D4 D5 D2 CE 2E 20 CF 4D 20 48 45 54 20 50 52 4F |..... .M HET PRO|
00000D60: 47 52 41 4D 4D 41 20 54 45 20 53 54 4F 50 50 45 |GRAMMA TE STOPPE|
00000D70: 4E 22 00 A1 15 CA 4E 99 22 54 49 4B 54 20 D5 20 |N"....N."TIKT . |
00000D80: 53 54 4F 50 20 49 4E 20 49 4E 20 50 4C 41 41 54 |STOP IN IN PLAAT|
00000D90: 53 20 56 41 4E 20 45 45 4E 20 47 45 54 41 4C 2E |S VAN EEN GETAL.|
00000DA0: 22 00 AB 15 D4 4E 8D 35 30 30 30 00 B1 15 DE 4E |"....N.5000....N|
00000DB0: 8E 00 00 00 |.... |
.......1000:.INITIALISEREN.,....2000:.IN
VOER.B.(..3000:.BEREKENING.T.2..5000:.SP
ATIE.E.<..4000:.TABEL.M.F..30.S.P.......
.INITIALISEREN.....H$.".": CL$.".":VT$."
.......................".H....CL$;G(14);
.....K$."1200.00":RJ$."10.000":NT$."12":
NM$."1":AFL$."?"......20000...K.....P..I
NVOER.(.Z.X..(0).T....CL$;H(HT$,10);"ANN
UITEITEN-BEREKENING".W....H$;H(VT$,6);"B
EDRAG:";.30);K$......:.:."RENTE-PERC. OP
JAARBASIS:";.30);RJ$.K....:.:."AANTAL T
ERMIJNEN:";.30);NT$......:.:."AANTAL MAA
NDEN PER TERMIJN:";.30);NM$... ..:.:."TE
RMIJN-BEDRAG:";.30);"?".T.*..H$;H(VT$,24
);" TIK 'STOP' OM TE EINDIGEN"...\
.RN.6:A$.K$:OG.0:BG.1E6.0.01:DEC.2: .270
0:K$.IN$:K.IN.E.F.RN.9:A$.RJ$:OG.0:BG.10
0:NDEC.3: .2700:RJ$.IN$:RJ.IN...P.RN.12:
A$.NT$:OG.1:BG.1000:NDEC.0: .2700:NT$.IN
$:NT.IN.7.Z.RN.15:A$.NM$:OG.1:BG.24:NDEC
.0: .2700:NM$.IN$:NM.IN.=.....F....IN$.^
....H$;H(VT$,RN);.28);.G. ..IN$...... H(
IN$,4)."STOP". .CL$:....H.IN.E(IN$).A.R.
.IN.OG .IN.BG .NDEC.0 ..(IN)..IN . . 271
0.....X.IN: .10000:IN.X:IN$.X$......H$;H
(VT$,RN);.28)" .........";IN$.
......%....BEREKENING.9.B.RP.NM.12.RJ.10
0.D.L.. 3700.`.V..H$;H(VT$,18);.30);AFL$
.F.....~.T..AFLOSSING ONBEKEND...~..RP.0
.AFL.K.NT: .3740.E...H1.(1.RP).NT:H2.H1
.1:.H2.1E.3 .H2.NT.RP.X...AFL.K.RP.H1.H2
.....NDEC.2:X.AFL: .10000:AFL.X:AFL$.X$:
A$.AFL$...W..... ..TABEL.+....H$;H(VT$,2
4);.Y...." WILT U EEN AFLOSSINGS-TABEL
(J/N) ";.{....B$:.B$.."J" .B$.."N" . .4
030...H..B$."N" . .4299...M.TN.1:NDEC.2:
S.K:SA.0:SR.0...R..CL$;:RN.0.U...."KAPIT
AAL:";.30);K$......"RENTE-PERC. PER JAAR
:";.30);RJ$......"AANTAL TERMIJNEN:";.30
);NT$.I...."AANTAL MAANDEN PER TERMIJN:"
;.30);NM$.J...."TERMIJN-BEDRAG:";.30);AF
L$.P.........R.S.RP:.R..0.01.NT.AFL.1E6.
.4120.A...."BIJ DE GEGEVEN WAARDEN IS GE
EN GOEDE"......"AFLOSSINGS-TABEL TE MAKE
N"......5000:.4799.$....:." TERMIJN
RENTE AFLOSSING SCHULD";.F.,.RN.RN.1
:.RN.10 . . 5000:.4050...6..RN.1.." ";T
N;"-";:HH.TN.9:HH..HH.(NT..HH).NT.(NT.HH
):.HH:....@..4700:TN.TN.1:.TN..NT . .414
0.A.J..IX.1 .39:."=";:.:....T.X.SA.SR: .
10000:X0$.I(" ".X$,9)...^.X.SR: .100
00:X1$.I(" ".X$,9).3.H.X.SA: .10000:
X2$.I(" ".X$,9).U.M.. X0$" "X1$" "X2
$" TOTAAL"._.R..5000.E.K...X.\..REGEL
PRINTEN...F.R.S.RP...P.X.R: .10000:R.X.
..Z.AA.AFL.R.D...X1$.I(" ".X$,9):SR.
SR.R......NT.TN .AA.S .AA.S.....X.AA: .1
0000:AA.X:X2$.I(" ".X$,9):SA.SA.AA.5
...X.AA.R: .10000:X0$.I(" ".X$,9).@.
..S.S.AA.D...X.S: .10000:X3$.I(" ".X
$,9).....X0$" "X1$" "X2$" "X3$.........
...SPATIE VOOR VERVOLG.P....H$H(VT$,24);
.7);"TOETS SPATIE VOOR VERVOLG";......B$
:.B$.." " . .5020.......#..'. AFRONDEN O
P NDEC DECIMALEN EN STRINGCONVERSIE.J..'
.NDEC.0 .X$.J(D(.(X..5)),2):.10060.C.$'.
IX.1 .NDEC:X.10.X:..~..'X..(X..5):X$.J(D
(X),2)...8'.C(X$).NDEC.1 .X$."0".X$: .10
040.J.B'X$.H(X$,C(X$).NDEC).".".I(X$,NDE
C).V.L'X.E(X$)...S'.... N. INLEIDING...*
N."MET DIT PROGRAMMA KUNT U BEREKENEN WA
T".I.4N."HET AFLOSSINGS-BEDRAG IS BIJ EE
N ANNUI-".U.>N."TEITEN-HYPOTHEEK OF EEN
PERSOONLIJKE"...HN."LENING. U VOERT IN:"
:....RN."- HET GELEENDE BEDRAG".N.\N."-
DE RENTE OP JAARBASIS"...FN."- HET AANTA
L AFLOSSINGEN, BV. 60 BIJ".).PN." EEN 5
-JARIGE LENING MET MAANDBETALING".U.ZN."
- HET AANTAL MAANDEN DAT LIGT TUSSEN"...
.N." TWEE AFLOSSINGEN, BV. 3 BIJ KWARTA
AL-"....N." BETALING":..C..N."HET PROGR
AMMA BEREKENT HET TERMIJN-"....N."BEDRAG
, EN GEEFT DESGEWENST EEN"....N."GEDETAI
LLEERD AFLOSSINGS-SCHEMA.":..C..N."VOORG
EDRUKTE DEFAULT-WAARDEN VOERT U IN".R..N
."MET RETURN. OM HET PROGRAMMA TE STOPPE
N"...JN."TIKT U STOP IN IN PLAATS VAN EE
N GETAL."...TN.5000....N....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL