LEEN KOLOMPRINTE
FILE INFORMATION
FILENAME(S): LEEN KOLOMPRINTE
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 21:28:27
APPEARS ON: 1 disk(s)
FILE HASH
245f4bb3b0a9cbaec8df42f1a519efb565376ec52ea12ef1b598ed8ee319f26c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RONALD YVONNE | LEEN KOLOMPRINTE | PRG | DuncanTwain | 19 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 97 38 30 38 2C 32 32 35 3A 97 |..'....808,225:.|
00000010: 37 37 34 2C 30 3A 97 37 37 35 2C 32 30 30 3A 97 |774,0:.775,200:.|
00000020: 35 33 32 38 31 2C 30 00 3E 08 02 00 99 22 12 20 |53281,0.>....". |
00000030: 50 52 49 4E 54 45 52 20 41 41 4E 20 92 22 00 51 |PRINTER AAN .".Q|
00000040: 08 03 00 A1 41 41 24 3A 8B 41 41 24 B2 22 22 A7 |....AA$:.AA$."".|
00000050: 33 00 5D 08 04 00 9F 33 2C 34 3A 98 33 00 AB 08 |3.]....3,4:.3...|
00000060: 05 00 98 33 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...3,"----------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B2 08 06 00 |----------".....|
000000B0: 98 33 00 FA 08 07 00 98 33 2C 22 4C 45 45 4E 42 |.3......3,"LEENB|
000000C0: 45 44 52 41 47 20 20 20 52 45 4E 54 45 20 20 20 |EDRAG RENTE |
000000D0: 41 41 4E 54 41 4C 20 20 20 4D 41 41 4E 44 45 4C |AANTAL MAANDEL|
000000E0: 49 4A 4B 53 20 54 4F 54 41 41 4C 20 54 45 20 20 |IJKS TOTAAL TE |
000000F0: 20 20 20 54 4F 54 41 4C 45 22 00 42 09 08 00 98 | TOTALE".B....|
00000100: 33 2C 22 20 20 49 4E 20 46 4C 20 20 20 20 20 20 |3," IN FL |
00000110: 49 4E 20 25 20 20 20 20 4A 41 52 45 4E 20 20 20 |IN % JAREN |
00000120: 20 42 45 44 52 41 47 20 20 20 20 20 20 42 45 54 | BEDRAG BET|
00000130: 41 4C 45 4E 20 20 20 20 20 20 20 20 52 45 4E 54 |ALEN RENT|
00000140: 45 22 00 8B 09 09 00 98 33 2C 22 2D 2D 2D 2D 2D |E"......3,"-----|
00000150: 2D 2D 2D 2D 2D 20 20 20 2D 2D 2D 2D 2D 20 20 20 |----- ----- |
00000160: 2D 2D 2D 2D 2D 2D 20 20 20 2D 2D 2D 2D 2D 2D 2D |------ -------|
00000170: 2D 2D 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 |-- --------- |
00000180: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B4 09 0A 00 | --------".....|
00000190: A0 33 3A 97 38 30 38 2C 32 32 35 3A 97 37 37 34 |.3:.808,225:.774|
000001A0: 2C 30 3A 97 37 37 35 2C 32 30 30 3A 97 35 33 32 |,0:.775,200:.532|
000001B0: 38 31 2C 30 00 EB 09 1E 00 97 35 33 32 37 32 2C |81,0......53272,|
000001C0: 32 33 3A 99 C7 28 38 29 3A 97 35 33 32 38 30 2C |23:..(8):.53280,|
000001D0: 30 3A 96 20 A5 41 28 58 29 B2 B5 28 58 AC 31 30 |0:. .A(X)..(X.10|
000001E0: 30 AA 2E 30 30 35 29 AD 31 30 30 00 05 0A 23 00 |0..005).100...#.|
000001F0: 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |SP$." |
00000200: 20 20 20 20 22 00 4A 0A 25 00 99 22 93 22 3B 3A | ".J.%..".";:|
00000210: 8D 33 35 35 30 30 3A 99 22 12 81 20 20 CC A0 C5 |.35500:.".. ...|
00000220: A0 C5 A0 CE A0 A0 A0 C3 A0 C1 A0 CC A0 C3 A0 A0 |................|
00000230: A0 D0 A0 D2 A0 C9 A0 CE A0 D4 A0 C5 A0 D2 A0 20 |............... |
00000240: 92 9A 22 3A 8D 33 35 35 30 30 00 64 0A 27 00 99 |..":.35500.d.'..|
00000250: 22 11 11 C9 4E 56 4F 45 52 20 47 45 47 45 56 45 |"...NVOER GEGEVE|
00000260: 4E 53 3A 22 00 A0 0A 28 00 99 22 11 11 11 C2 45 |NS:"...(.."....E|
00000270: 44 52 41 47 20 4F 4D 20 54 45 20 4C 45 4E 45 4E |DRAG OM TE LENEN|
00000280: 20 20 20 20 20 22 3B 3A 50 33 B2 37 3A 50 34 B2 | ";:P3.7:P4.|
00000290: 31 3A 8D 33 30 30 30 30 3A 50 B2 C5 28 50 24 29 |1:.30000:P..(P$)|
000002A0: 00 B7 0A 2D 00 8B 50 B3 B2 30 B0 50 B1 39 39 39 |...-..P..0.P.999|
000002B0: 39 39 39 39 A7 34 30 00 F4 0A 32 00 99 22 11 11 |9999.40...2.."..|
000002C0: C9 4E 56 4F 45 52 20 52 45 4E 54 45 20 53 54 41 |.NVOER RENTE STA|
000002D0: 4E 44 20 49 4E 20 25 20 3A 22 3B 3A 50 33 B2 35 |ND IN % :";:P3.5|
000002E0: 3A 50 34 B2 31 3A 8D 33 30 30 30 30 3A 49 B2 C5 |:P4.1:.30000:I..|
000002F0: 28 50 24 29 00 10 0B 37 00 8B 49 B3 B2 30 B0 49 |(P$)...7..I..0.I|
00000300: B1 31 30 30 A7 99 22 91 91 91 91 22 3A 89 35 30 |.100.."....":.50|
00000310: 00 1C 0B 3C 00 49 B2 49 AD 31 30 30 00 61 0B 46 |...<.I.I.100.a.F|
00000320: 00 99 22 11 11 C8 45 54 20 41 41 4E 54 41 4C 20 |.."...ET AANTAL |
00000330: 4A 41 52 45 4F 20 44 41 54 20 55 20 57 49 4C 54 |JAREO DAT U WILT|
00000340: 20 4C 45 4E 45 4E 22 3B 3A 50 33 B2 35 3A 50 34 | LENEN";:P3.5:P4|
00000350: B2 31 3A 8D 33 30 30 30 30 3A 4E B2 C5 28 50 24 |.1:.30000:N..(P$|
00000360: 29 00 7D 0B 4B 00 8B 4E B3 B2 30 B0 4E B1 31 30 |).}.K..N..0.N.10|
00000370: 30 A7 99 22 91 91 91 91 22 3A 89 37 30 00 A4 0B |0.."....":.70...|
00000380: 4D 00 8B 28 BC 28 50 29 AC BC 28 49 29 AC BC 28 |M..(.(P)..(I)..(|
00000390: 31 AA 49 29 AE BC 28 4E 29 29 B1 38 38 A7 8D 35 |1.I)..(N)).88..5|
000003A0: 30 30 30 30 00 C3 0B 4E 00 8B 28 BC 28 31 AA 49 |0000...N..(.(1.I|
000003B0: 29 AE BC 28 4E 29 29 AB 31 B1 38 38 A7 8D 35 30 |)..(N)).1.88..50|
000003C0: 30 30 30 00 E7 0B 50 00 52 20 B2 20 28 50 AC 49 |000...P.R . (P.I|
000003D0: AC 28 31 AA 49 29 AE 4E 29 AD 28 28 28 31 AA 49 |.(1.I).N).(((1.I|
000003E0: 29 AE 4E 29 AB 31 29 00 21 0C 5A 00 99 22 93 CC |).N).1).!.Z.."..|
000003F0: C5 C5 CE C2 C5 C4 D2 C1 C7 22 3B 22 20 20 D2 C5 |.........";" ..|
00000400: CE D4 C5 A0 A0 22 2C 22 20 C1 C1 CE D4 C1 CC 22 |....."," ......"|
00000410: A3 32 38 29 22 CD C1 C1 CE C4 C5 CC C9 CA CB D3 |.28)"...........|
00000420: 22 00 50 0C 64 00 99 22 20 20 C9 CE 20 C6 4C 22 |".P.d.." .. .L"|
00000430: 2C 22 20 20 C9 CE 20 25 20 22 2C 22 20 CA C1 D2 |," .. % "," ...|
00000440: C5 CE A0 22 3B 22 20 20 C2 C5 C4 D2 C1 C7 A0 22 |...";" ......."|
00000450: 00 84 0C 6E 00 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |...n..".........|
00000460: A3 20 A3 A3 A3 A3 A3 A3 A3 A3 22 2C 22 20 A3 A3 |. ........"," ..|
00000470: A3 A3 A3 A3 22 2C 22 9D 9D A3 A3 A3 A3 A3 A3 A3 |....",".........|
00000480: A3 A3 A3 22 00 BF 0C 70 00 43 43 B2 50 3A 58 58 |..."...p.CC.P:XX|
00000490: B2 31 30 3A 8D 32 35 30 30 30 3A 50 52 24 B2 43 |.10:.25000:PR$.C|
000004A0: 43 24 3A 43 43 B2 49 AC 31 30 30 3A 58 58 B2 38 |C$:CC.I.100:XX.8|
000004B0: 3A 8D 32 35 30 30 30 3A 49 4E 24 B2 43 43 24 00 |:.25000:IN$.CC$.|
000004C0: FD 0C 72 00 43 43 24 B2 C4 28 4E 29 3A 58 58 B2 |..r.CC$..(N):XX.|
000004D0: 36 3A 8D 32 35 35 34 30 3A 4E 55 24 B2 43 43 24 |6:.25540:NU$.CC$|
000004E0: 3A 43 43 B2 52 AD 31 32 3A 58 58 B2 31 30 3A 8D |:CC.R.12:XX.10:.|
000004F0: 32 35 30 30 30 3A 52 45 24 B2 43 43 24 00 18 0D |25000:RE$.CC$...|
00000500: 75 00 99 50 52 24 A3 31 30 29 49 4E 24 2C 4E 55 |u..PR$.10)IN$,NU|
00000510: 24 A3 32 38 29 52 45 24 00 3D 0D 76 00 9F 33 2C |$.28)RE$.=.v..3,|
00000520: 34 3A 98 33 2C 50 52 24 22 20 22 49 4E 24 22 20 |4:.3,PR$" "IN$" |
00000530: 22 4E 55 24 22 20 20 20 22 52 45 24 3B 00 50 0D |"NU$" "RE$;.P.|
00000540: 78 00 52 B2 52 AC 4E 3A 8B 52 B3 50 A7 52 B2 50 |x.R.R.N:.R.P.R.P|
00000550: 00 8A 0D 7A 00 43 43 B2 52 3A 58 58 B2 31 33 3A |...z.CC.R:XX.13:|
00000560: 8D 32 35 30 30 30 3A 52 45 24 B2 43 43 24 3A 43 |.25000:RE$.CC$:C|
00000570: 43 B2 52 AB 50 3A 58 58 B2 31 33 3A 8D 32 35 30 |C.R.P:XX.13:.250|
00000580: 30 30 3A 49 54 24 B2 43 43 24 00 AC 0D 7B 00 99 |00:IT$.CC$...{..|
00000590: 22 11 11 D4 4F 54 41 4C 45 20 54 45 52 55 47 42 |"...OTALE TERUGB|
000005A0: 45 54 41 4C 49 4E 47 20 22 52 45 24 00 B8 0D 7C |ETALING "RE$...||
000005B0: 00 98 33 2C 52 45 24 3B 00 D9 0D 7E 00 99 22 11 |..3,RE$;...~..".|
000005C0: D4 4F 54 41 4C 45 20 52 45 4E 54 45 20 42 45 54 |.OTALE RENTE BET|
000005D0: 41 41 4C 44 20 22 49 54 24 00 EA 0D 7F 00 98 33 |AALD "IT$......3|
000005E0: 2C 49 54 24 3A 98 33 3A A0 33 00 0E 0E 96 00 99 |,IT$:.3:.3......|
000005F0: 22 11 12 C4 52 55 4B 20 92 20 47 45 57 45 4E 53 |"...RUK . GEWENS|
00000600: 54 20 4E 55 4D 4D 45 52 20 49 4E 20 3A 22 00 55 |T NUMMER IN :".U|
00000610: 0E A5 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 12 20 31 |...."......... 1|
00000620: 20 92 20 D6 45 52 41 4E 44 45 52 20 52 45 4E 54 | . .ERANDER RENT|
00000630: 45 20 22 3A 99 22 11 1D 1D 1D 1D 1D 1D 1D 12 20 |E ":."......... |
00000640: 32 20 92 20 D6 45 52 41 4E 44 45 52 20 42 45 44 |2 . .ERANDER BED|
00000650: 52 41 47 20 22 00 81 0E A7 00 99 22 11 1D 1D 1D |RAG "......"....|
00000660: 1D 1D 1D 1D 12 20 33 20 92 20 D6 45 52 41 4E 44 |..... 3 . .ERAND|
00000670: 45 52 20 41 41 4E 54 41 4C 20 4A 41 52 45 4E 20 |ER AANTAL JAREN |
00000680: 22 00 AC 0E A8 00 99 22 11 1D 1D 1D 1D 1D 1D 1D |"......"........|
00000690: 12 20 34 20 92 20 D6 45 52 41 4E 44 45 52 20 41 |. 4 . .ERANDER A|
000006A0: 4C 4C 45 20 57 41 41 52 44 45 4E 22 00 CA 0E A9 |LLE WAARDEN"....|
000006B0: 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 12 20 35 20 92 |.."......... 5 .|
000006C0: 20 D3 54 4F 50 50 45 4E 20 22 00 DD 0E AA 00 A1 | .TOPPEN "......|
000006D0: 41 24 3A 8B 41 24 B2 22 22 A7 31 37 30 00 F9 0E |A$:.A$."".170...|
000006E0: AF 00 41 41 B2 C5 28 41 24 29 3A 8B 41 41 B3 31 |..AA..(A$):.AA.1|
000006F0: B0 41 41 B1 35 A7 31 37 30 00 1C 0F B4 00 99 22 |.AA.5.170......"|
00000700: 11 C9 4E 56 4F 45 52 20 56 45 52 41 4E 44 45 52 |..NVOER VERANDER|
00000710: 44 45 20 57 41 41 52 44 45 20 22 3B 00 38 0F B9 |DE WAARDE ";.8..|
00000720: 00 91 41 41 89 31 39 30 2C 32 30 30 2C 32 31 30 |..AA.190,200,210|
00000730: 2C 32 32 30 2C 32 33 30 00 6D 0F BE 00 50 33 B2 |,220,230.m...P3.|
00000740: 35 3A 50 34 B2 31 3A 8D 33 30 30 30 30 3A 49 B2 |5:P4.1:.30000:I.|
00000750: C5 28 50 24 29 3A 8B 49 B3 B2 30 B0 49 B1 31 30 |.(P$):.I..0.I.10|
00000760: 30 A7 99 22 91 91 91 22 3A 89 31 38 30 00 7F 0F |0.."...":.180...|
00000770: C3 00 49 B2 49 AD 31 30 30 3A 20 89 20 37 37 00 |..I.I.100: . 77.|
00000780: B8 0F C8 00 50 33 B2 37 3A 50 34 B2 31 3A 8D 33 |....P3.7:P4.1:.3|
00000790: 30 30 30 30 3A 50 B2 C5 28 50 24 29 3A 8B 50 B3 |0000:P..(P$):.P.|
000007A0: B2 30 B0 50 B1 39 39 39 39 39 39 39 A7 99 22 91 |.0.P.9999999..".|
000007B0: 91 91 22 3A 89 31 38 30 00 C1 0F CD 00 89 20 37 |..":.180...... 7|
000007C0: 37 00 F6 0F D2 00 50 33 B2 35 3A 50 34 B2 31 3A |7.....P3.5:P4.1:|
000007D0: 8D 33 30 30 30 30 3A 4E B2 C5 28 50 24 29 3A 8B |.30000:N..(P$):.|
000007E0: 4E B3 B2 30 B0 4E B1 31 30 30 A7 99 22 91 91 91 |N..0.N.100.."...|
000007F0: 22 3A 89 31 38 30 00 FF 0F D7 00 89 20 37 37 00 |":.180...... 77.|
00000800: 07 10 DC 00 89 31 30 00 10 10 E6 00 9F 33 2C 34 |.....10......3,4|
00000810: 00 5B 10 E7 00 98 33 2C 22 2D 2D 2D 2D 2D 2D 2D |.[....3,"-------|
00000820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 62 10 E8 00 |----------".b...|
00000860: A0 33 00 A0 10 F0 00 99 22 93 11 42 45 44 41 4E |.3......"..BEDAN|
00000870: 4B 54 20 49 4B 20 53 54 4F 50 20 45 52 20 4E 55 |KT IK STOP ER NU|
00000880: 20 4D 45 45 2E 47 52 4F 45 54 4A 45 53 20 4B 4C | MEE.GROETJES KL|
00000890: 41 41 53 22 3A 97 35 33 32 37 32 2C 32 31 3A 80 |AAS":.53272,21:.|
000008A0: 00 B4 10 A7 61 8F 2A 20 54 52 55 4E 43 41 54 49 |....a.* TRUNCATI|
000008B0: 4F 4E 20 2A 00 CC 10 A8 61 43 43 B2 A5 41 28 43 |ON *....aCC..A(C|
000008C0: 43 29 3A 43 43 24 B2 C4 28 43 43 29 00 F5 10 B2 |C):CC$..(CC)....|
000008D0: 61 81 4D B2 C3 28 43 43 24 29 A4 31 A9 AB 31 3A |a.M..(CC$).1..1:|
000008E0: 8B CA 28 43 43 24 2C 4D 2C 31 29 B2 22 2E 22 A7 |..(CC$,M,1).".".|
000008F0: 32 35 35 33 30 00 FC 10 B0 63 82 4D 00 15 11 B5 |25530....c.M....|
00000900: 63 43 43 24 B2 43 43 24 AA 22 2E 30 30 22 3A 89 |cCC$.CC$.".00":.|
00000910: 32 35 35 34 30 00 31 11 BA 63 8B 4D B2 C3 28 43 |25540.1..c.M..(C|
00000920: 43 24 29 AB 31 A7 43 43 24 B2 43 43 24 AA 22 30 |C$).1.CC$.CC$."0|
00000930: 22 00 4B 11 C4 63 43 43 24 B2 C9 28 28 53 50 24 |".K..cCC$..((SP$|
00000940: AA 43 43 24 29 2C 58 58 29 3A 8E 00 61 11 2F 75 |.CC$),XX):..a./u|
00000950: 8F 20 2A 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |. *INPUT ROUTINE|
00000960: 2A 00 6B 11 30 75 99 22 20 22 3B 00 80 11 3A 75 |*.k.0u." ";...:u|
00000970: 81 51 B2 31 A4 50 33 3A 99 22 A4 22 3B 3A 82 51 |.Q.1.P3:.".";:.Q|
00000980: 00 95 11 3F 75 81 51 B2 31 A4 50 33 3A 99 22 9D |...?u.Q.1.P3:.".|
00000990: 22 3B 3A 82 51 00 A4 11 44 75 50 24 B2 22 22 3A |";:.Q...DuP$."":|
000009A0: 50 58 B2 30 00 B9 11 D0 75 A1 41 24 3A 8B 41 24 |PX.0....u.A$:.A$|
000009B0: B2 22 22 A7 33 30 31 36 30 00 C5 11 DA 75 41 B2 |."".30160....uA.|
000009C0: C6 28 41 24 29 00 04 12 E4 75 8B 28 41 B1 33 31 |.(A$)....u.(A.31|
000009D0: AF 41 B3 B1 34 34 AF 41 B3 B1 33 34 AF 41 B3 B1 |.A..44.A..34.A..|
000009E0: 35 38 AF 41 B3 B1 35 39 AF 41 B3 39 37 29 B0 41 |58.A..59.A.97).A|
000009F0: B2 31 33 B0 41 B2 32 30 B0 41 B2 31 35 37 A7 33 |.13.A.20.A.157.3|
00000A00: 30 32 30 30 00 1B 12 E9 75 8B 41 B1 31 39 31 AF |0200....u.A.191.|
00000A10: 41 B3 32 31 39 A7 33 30 32 30 30 00 26 12 EE 75 |A.219.30200.&..u|
00000A20: 89 33 30 31 36 30 00 36 12 F8 75 8B 41 B2 31 33 |.30160.6..u.A.13|
00000A30: A7 33 30 33 32 30 00 4D 12 02 76 8B 41 B2 31 35 |.30320.M..v.A.15|
00000A40: 37 AF 50 24 B2 22 22 A7 33 30 30 30 30 00 5D 12 |7.P$."".30000.].|
00000A50: 0C 76 8B 41 B2 32 30 A7 33 30 32 35 30 00 6F 12 |.v.A.20.30250.o.|
00000A60: 16 76 8B 41 B3 B1 31 35 37 A7 33 30 32 38 30 00 |.v.A..157.30280.|
00000A70: 94 12 1B 76 50 58 B2 C3 28 50 24 29 3A 81 51 B2 |...vPX..(P$):.Q.|
00000A80: 31 A4 50 58 3A 99 22 9D 22 3B 3A 82 51 3A 89 33 |1.PX:.".";:.Q:.3|
00000A90: 30 30 31 30 00 A5 12 2A 76 8B 50 24 B2 22 22 A7 |0010...*v.P$."".|
00000AA0: 33 30 31 36 30 00 BA 12 34 76 50 24 B2 C8 28 50 |30160...4vP$..(P|
00000AB0: 24 2C C3 28 50 24 29 AB 31 29 00 D6 12 3E 76 41 |$,.(P$).1)...>vA|
00000AC0: 24 B2 22 9D A4 9D 22 3A 50 58 B2 50 58 AB 31 3A |$."...":PX.PX.1:|
00000AD0: 89 33 30 33 30 30 00 EA 12 48 76 8B C3 28 50 24 |.30300...Hv..(P$|
00000AE0: 29 B2 50 33 A7 33 30 31 36 30 00 00 13 52 76 50 |).P3.30160...RvP|
00000AF0: 24 B2 50 24 AA 41 24 3A 50 58 B2 C3 28 50 24 29 |$.P$.A$:PX..(P$)|
00000B00: 00 09 13 5C 76 99 41 24 3B 00 14 13 66 76 89 33 |...\v.A$;...fv.3|
00000B10: 30 31 36 30 00 28 13 70 76 8B C3 28 50 24 29 B3 |0160.(.pv..(P$).|
00000B20: 50 34 A7 33 30 31 36 30 00 30 13 7A 76 99 3A 8E |P4.30160.0.zv.:.|
00000B30: 00 48 13 AC 8A 81 51 B2 31 A4 33 37 3A 99 22 C0 |.H....Q.1.37:.".|
00000B40: 22 3B 3A 82 3A 99 3A 8E 00 82 13 50 C3 99 22 93 |";:.:.:....P..".|
00000B50: 11 53 4F 52 52 59 2C 20 45 4E 54 52 49 45 53 20 |.SORRY, ENTRIES |
00000B60: 41 52 45 20 54 4F 4F 20 4C 41 52 47 45 22 3A 99 |ARE TOO LARGE":.|
00000B70: 22 11 12 20 48 49 54 20 41 4E 59 20 4B 45 59 20 |".. HIT ANY KEY |
00000B80: 92 22 00 97 13 5A C3 A1 41 24 3A 8B 41 24 B2 22 |."...Z..A$:.A$."|
00000B90: 22 A7 35 30 30 31 30 00 9D 13 64 C3 8A 00 00 00 |".50010...d.....|
..'....808,225:.774,0:.775,200:.53281,0.
>....". PRINTER AAN .".Q....AA$:.AA$."".
3.]....3,4:.3......3,"------------------
----------------------------------------
----------"......3......3,"LEENBEDRAG
RENTE AANTAL MAANDELIJKS TOTAAL TE
TOTALE".B....3," IN FL IN %
JAREN BEDRAG BETALEN RENT
E"......3,"---------- ----- ------
--------- --------- --------".....
3:.808,225:.774,0:.775,200:.53281,0....
..53272,23:.G(8):.53280,0:. .A(X)..(X.10
0..005).100...#.SP$." ".J.
%..".";:.35500:.".. L E E N C A L C
P R I N T E R ..":.35500.D.'.."..INVOE
R GEGEVENS:". .(.."...BEDRAG OM TE LENEN
";:P3.7:P4.1:.30000:P.E(P$)...-..P.
.0.P.9999999.40...2.."..INVOER RENTE STA
ND IN % :";:P3.5:P4.1:.30000:I.E(P$)...7
..I..0.I.100.."....":.50...<.I.I.100.A.F
.."..HET AANTAL JAREO DAT U WILT LENEN";
:P3.5:P4.1:.30000:N.E(P$).}.K..N..0.N.10
0.."....":.70...M..(.(P)..(I)..(1.I)..(N
)).88..50000.C.N..(.(1.I)..(N)).1.88..50
000...P.R . (P.I.(1.I).N).(((1.I).N).1).
!.Z..".LEENBEDRAG";" RENTE "," AANTAL"
.28)"MAANDELIJKS".P.D.." IN FL"," IN %
"," JAREN ";" BEDRAG "...N..".........
. ........"," ......","............"...P
.CC.P:XX.10:.25000:PR$.CC$:CC.I.100:XX.8
:.25000:IN$.CC$...R.CC$.D(N):XX.6:.25540
:NU$.CC$:CC.R.12:XX.10:.25000:RE$.CC$...
U..PR$.10)IN$,NU$.28)RE$.=.V..3,4:.3,PR$
" "IN$" "NU$" "RE$;.P.X.R.R.N:.R.P.R.P
...Z.CC.R:XX.13:.25000:RE$.CC$:CC.R.P:XX
.13:.25000:IT$.CC$...{.."..TOTALE TERUGB
ETALING "RE$...|..3,RE$;.Y.~..".TOTALE R
ENTE BETAALD "IT$.....3,IT$:.3: 3......
"..DRUK . GEWENST NUMMER IN :".U...."...
...... 1 . VERANDER RENTE ":.".........
2 . VERANDER BEDRAG "......"......... 3
. VERANDER AANTAL JAREN "......"........
. 4 . VERANDER ALLE WAARDEN".J....".....
.... 5 . STOPPEN "......A$:.A$."".170...
..AA.E(A$):.AA.1.AA.5.170......".INVOER
VERANDERDE WAARDE ";.8....AA.190,200,210
,220,230.M...P3.5:P4.1:.30000:I.E(P$):.I
..0.I.100.."...":.180..C.I.I.100: . 77.
..H.P3.7:P4.1:.30000:P.E(P$):.P..0.P.999
9999.."...":.180.A.M.. 77...R.P3.5:P4.1:
.30000:N.E(P$):.N..0.N.100.."...":.180..
.W.. 77......10......3,4.[....3,"-------
----------------------------------------
------------------".B... 3. ...."..BEDAN
KT IK STOP ER NU MEE.GROETJES KLAAS":.53
272,21:.....A.* TRUNCATION *.L..ACC..A(C
C):CC$.D(CC)....A.M.C(CC$).1..1:.J(CC$,M
,1).".".25530....C.M....CCC$.CC$.".00":.
25540.1..C.M.C(CC$).1.CC$.CC$."0".K.DCCC
$.I((SP$.CC$),XX):..A./U. *INPUT ROUTINE
*.K.0U." ";...:U.Q.1.P3:.".";:.Q...?U.Q.
1.P3:.".";:.Q...DUP$."":PX.0...PU.A$:.A$
."".30160.E.ZUA.F(A$)....U.(A.31.A..44.A
..34.A..58.A..59.A.97).A.13.A.20.A.157.3
0200....U.A.191.A.219.30200.&..U.30160.6
..U.A.13.30320.M..V.A.157.P$."".30000.].
.V.A.20.30250.O..V.A..157.30280....VPX.C
(P$):.Q.1.PX:.".";:.Q:.30010...*V.P$."".
30160...4VP$.H(P$,C(P$).1).V.>VA$."...":
PX.PX.1:.30300...HV.C(P$).P3.30160...RVP
$.P$.A$:PX.C(P$)...\V.A$;...FV.30160.(.P
V.C(P$).P4.30160.0.ZV.:..H....Q.1.37:.".
";:.:.:....PC."..SORRY, ENTRIES ARE TOO
LARGE":.".. HIT ANY KEY ."...ZC.A$:.A$."
".50010...DC....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL