KREDIET

FILE INFORMATION

FILENAME(S): KREDIET

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:08:52

APPEARS ON: 1 disk(s)

FILE HASH

eeb0deeede2c8da229a98086f6c77d6f1a723e7f03abc04efe7c245840cb4675

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LKP	KREDIET	PRG	DuncanTwain	17	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1D 08 05 00 58 B2  30 3A 86 47 24 28 32 30  |......X.0:.G$(20|
00000010: 29 2C 4C 28 32 30 29 3A  8D 35 30 30 30 00 37 08  |),L(20):.5000.7.|
00000020: 0A 00 43 B2 30 3A 97 35  33 32 38 30 2C 36 3A 97  |..C.0:.53280,6:.|
00000030: 35 33 32 38 31 2C 36 00  59 08 14 00 99 22 93 11  |53281,6.Y...."..|
00000040: 9E 20 4B 52 45 44 49 45  54 20 42 45 57 41 4B 49  |. KREDIET BEWAKI|
00000050: 4E 47 20 4D 45 4E 55 20  22 00 75 08 28 00 99 22  |NG MENU ".u.(.."|
00000060: 11 11 20 31 20 3D 20 5A  4F 45 4B 20 4F 50 20 44  |.. 1 = ZOEK OP D|
00000070: 45 42 4E 52 22 00 90 08  2D 00 99 22 11 20 32 20  |EBNR"...-..". 2 |
00000080: 3D 20 5A 49 45 4E 20 47  45 47 45 56 45 4E 53 22  |= ZIEN GEGEVENS"|
00000090: 00 B1 08 2E 00 99 22 11  20 33 20 3D 20 56 45 52  |......". 3 = VER|
000000A0: 42 45 54 45 52 45 4E 20  47 45 47 45 56 45 4E 53  |BETEREN GEGEVENS|
000000B0: 22 00 D0 08 30 00 99 22  11 20 34 20 3D 20 49 4E  |"...0..". 4 = IN|
000000C0: 56 4F 45 52 20 4E 49 45  55 57 45 20 44 44 2E 22  |VOER NIEUWE DD."|
000000D0: 00 EC 08 31 00 99 22 11  20 35 20 3D 20 47 45 47  |...1..". 5 = GEG|
000000E0: 45 56 45 4E 53 20 53 41  56 45 4E 22 00 FE 08 32  |EVENS SAVEN"...2|
000000F0: 00 A1 41 24 3A 8B 41 24  B2 22 22 A7 35 30 00 0F  |..A$:.A$."".50..|
00000100: 09 3C 00 8B 41 24 B2 22  31 22 A7 31 30 30 30 00  |.<..A$."1".1000.|
00000110: 27 09 46 00 8B 41 24 B2  22 32 22 A7 8D 32 30 30  |'.F..A$."2"..200|
00000120: 30 3A 89 32 32 30 30 00  3F 09 50 00 8B 41 24 B2  |0:.2200.?.P..A$.|
00000130: 22 33 22 A7 8D 32 30 30  30 3A 89 33 30 30 30 00  |"3"..2000:.3000.|
00000140: 57 09 5A 00 8B 41 24 B2  22 34 22 A7 8D 32 30 30  |W.Z..A$."4"..200|
00000150: 30 3A 89 33 32 30 30 00  6E 09 64 00 8B 41 24 B2  |0:.3200.n.d..A$.|
00000160: 22 35 22 A7 8B 58 B3 B1  30 A7 36 30 30 30 00 82  |"5"..X..0.6000..|
00000170: 09 6E 00 8B 41 24 B2 C7  28 31 34 30 29 A7 9C 3A  |.n..A$..(140)..:|
00000180: 89 35 00 8A 09 84 03 89  31 30 00 B1 09 E8 03 99  |.5......10......|
00000190: 22 93 12 20 4C 4F 41 44  45 4E 20 56 41 4E 20 4B  |".. LOADEN VAN K|
000001A0: 52 45 44 49 45 54 20 47  45 47 45 56 45 4E 53 20  |REDIET GEGEVENS |
000001B0: 22 00 CD 09 ED 03 44 24  B2 22 22 3A 85 22 11 20  |".....D$."":.". |
000001C0: 44 2D 4E 55 4D 4D 45 52  20 22 3B 44 24 00 DB 09  |D-NUMMER ";D$...|
000001D0: F2 03 8B 44 24 B2 22 22  A7 31 30 00 EE 09 F7 03  |...D$."".10.....|
000001E0: 8B C3 28 44 24 29 B3 B1  36 A7 31 30 30 30 00 FB  |..(D$)..6.1000..|
000001F0: 09 FC 03 9F 31 35 2C 38  2C 31 35 00 10 0A 06 04  |....15,8,15.....|
00000200: 9F 32 2C 38 2C 32 2C 44  24 AA 22 2C 53 2C 52 22  |.2,8,2,D$.",S,R"|
00000210: 00 1C 0A 10 04 81 54 B2  31 A4 32 30 00 29 0A 1A  |......T.1.20.)..|
00000220: 04 84 32 2C 47 24 28 54  29 00 40 0A 24 04 82 3A  |..2,G$(T).@.$..:|
00000230: A0 32 3A A0 31 35 3A 58  B2 58 AA 31 3A 89 31 30  |.2:.15:X.X.1:.10|
00000240: 00 5E 0A D0 07 99 22 93  12 20 4B 52 45 44 49 45  |.^....".. KREDIE|
00000250: 54 20 47 45 47 45 56 45  4E 53 20 92 11 22 00 77  |T GEGEVENS ..".w|
00000260: 0A DA 07 99 22 44 45 42  4E 52 2E 20 20 20 20 20  |...."DEBNR.     |
00000270: 20 20 20 20 31 20 22 00  90 0A E4 07 99 22 4E 41  |    1 "......"NA|
00000280: 41 4D 20 20 20 20 20 20  20 20 20 20 20 32 20 22  |AM           2 "|
00000290: 00 A9 0A EE 07 99 22 41  44 52 45 53 20 20 20 20  |......"ADRES    |
000002A0: 20 20 20 20 20 20 33 20  22 00 C2 0A F8 07 99 22  |      3 "......"|
000002B0: 50 4F 53 54 43 4F 44 45  20 20 20 20 20 20 20 34  |POSTCODE       4|
000002C0: 20 22 00 DB 0A 02 08 99  22 57 4F 4F 4E 50 4C 41  | "......"WOONPLA|
000002D0: 41 54 53 20 20 20 20 20  35 20 22 00 F4 0A 0C 08  |ATS     5 ".....|
000002E0: 99 22 43 4F 4E 54 2E 50  45 52 53 4F 4F 4E 20 20  |."CONT.PERSOON  |
000002F0: 20 36 20 22 00 0D 0B 16  08 99 22 54 45 4C 45 46  | 6 "......"TELEF|
00000300: 4F 4F 4E 20 20 20 20 20  20 20 37 20 22 00 26 0B  |OON       7 ".&.|
00000310: 20 08 99 22 4B 52 45 44  49 45 54 43 4F 44 45 20  | .."KREDIETCODE |
00000320: 20 20 20 38 20 22 00 3F  0B 2A 08 99 22 43 4F 44  |   8 ".?.*.."COD|
00000330: 45 20 20 20 20 20 20 20  20 20 20 20 39 20 22 00  |E           9 ".|
00000340: 58 0B 34 08 99 22 42 45  54 2E 41 46 53 50 2E 28  |X.4.."BET.AFSP.(|
00000350: 57 29 20 20 31 30 20 22  00 71 0B 3E 08 99 22 42  |W)  10 ".q.>.."B|
00000360: 45 54 2E 47 45 44 52 2E  28 57 29 20 20 31 31 20  |ET.GEDR.(W)  11 |
00000370: 22 00 8A 0B 48 08 99 22  41 2E 43 4F 44 45 20 20  |"...H.."A.CODE  |
00000380: 20 20 20 20 20 20 31 32  20 22 00 A3 0B 52 08 99  |      12 "...R..|
00000390: 22 42 2E 43 4F 44 45 20  20 20 20 20 20 20 20 31  |"B.CODE        1|
000003A0: 33 20 22 00 BC 0B 5C 08  99 22 4F 50 4D 2E 31 20  |3 "...\.."OPM.1 |
000003B0: 20 20 20 20 20 20 20 20  31 34 20 22 00 D5 0B 66  |        14 "...f|
000003C0: 08 99 22 4F 50 4D 2E 32  20 20 20 20 20 20 20 20  |.."OPM.2        |
000003D0: 20 31 35 20 22 00 EE 0B  70 08 99 22 4F 50 4D 2E  | 15 "...p.."OPM.|
000003E0: 33 20 20 20 20 20 20 20  20 20 31 36 20 22 00 07  |3         16 "..|
000003F0: 0C 7A 08 99 22 4F 50 4D  2E 34 20 20 20 20 20 20  |.z.."OPM.4      |
00000400: 20 20 20 31 37 20 22 00  20 0C 84 08 99 22 4F 50  |   17 ". ...."OP|
00000410: 4D 2E 35 20 20 20 20 20  20 20 20 20 31 38 20 22  |M.5         18 "|
00000420: 00 39 0C 86 08 99 22 4F  50 4D 2E 36 20 20 20 20  |.9...."OPM.6    |
00000430: 20 20 20 20 20 31 39 20  22 00 52 0C 88 08 99 22  |     19 ".R...."|
00000440: 4F 50 4D 2E 37 20 20 20  20 20 20 20 20 20 32 30  |OPM.7         20|
00000450: 20 22 00 58 0C 8E 08 8E  00 8F 0C 98 08 99 22 13  | ".X..........".|
00000460: 11 22 3A 81 54 B2 31 A4  32 30 3A 99 A3 31 37 29  |.":.T.1.20:..17)|
00000470: 47 24 28 54 29 3A 82 3A  99 22 11 20 5B 52 45 54  |G$(T):.:.". [RET|
00000480: 55 52 4E 5D 20 56 4F 4F  52 20 4D 45 4E 55 22 00  |URN] VOOR MENU".|
00000490: A3 0C A2 08 A1 45 24 3A  8B 45 24 B2 22 22 A7 32  |.....E$:.E$."".2|
000004A0: 32 31 30 00 AB 0C AC 08  89 31 30 00 CA 0C B8 0B  |210......10.....|
000004B0: 99 22 13 11 22 3A 81 54  B2 31 A4 32 30 3A 99 A3  |."..":.T.1.20:..|
000004C0: 31 37 29 47 24 28 54 29  3A 82 00 EF 0C C2 0B 56  |17)G$(T):......V|
000004D0: B2 30 3A 85 22 11 56 45  52 42 45 54 45 52 45 4E  |.0:.".VERBETEREN|
000004E0: 20 4E 52 20 28 30 3D 4D  45 4E 55 29 22 3B 56 00  | NR (0=MENU)";V.|
000004F0: 02 0D C4 0B 8B 56 B2 30  AF 43 B3 B1 30 A7 36 30  |.....V.0.C..0.60|
00000500: 30 30 00 12 0D C7 0B 8B  56 B2 30 AF 43 B2 30 A7  |00......V.0.C.0.|
00000510: 31 30 00 39 0D CC 0B 47  24 28 56 29 B2 22 2F 22  |10.9...G$(V)."/"|
00000520: 3A 85 22 4E 49 45 55 57  45 20 47 45 47 45 56 45  |:."NIEUWE GEGEVE|
00000530: 4E 53 22 3B 47 24 28 56  29 00 58 0D D1 0B 8B C3  |NS";G$(V).X.....|
00000540: 28 47 24 28 56 29 29 B1  4C 28 56 29 A7 8D 32 30  |(G$(V)).L(V)..20|
00000550: 30 30 3A 89 33 30 32 30  00 6E 0D D6 0B 8D 32 30  |00:.3020.n....20|
00000560: 30 30 3A 43 B2 43 AA 31  3A 89 33 30 30 30 00 80  |00:C.C.1:.3000..|
00000570: 0D 80 0C 99 22 13 11 22  3A 81 44 B2 31 A4 32 30  |...."..":.D.1.20|
00000580: 00 A9 0D 8A 0C 47 24 28  44 29 B2 22 2F 22 3A 85  |.....G$(D)."/":.|
00000590: 22 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |"...............|
000005A0: 1D 1D 22 3B 47 24 28 44  29 00 C8 0D 94 0C 8B C3  |..";G$(D).......|
000005B0: 28 47 24 28 44 29 29 B1  4C 28 44 29 A7 99 22 91  |(G$(D)).L(D)..".|
000005C0: 91 22 3A 89 33 32 31 30  00 D4 0D 9E 0C 82 3A 58  |.":.3210......:X|
000005D0: B2 58 AA 31 00 EF 0D A8  0C 99 22 11 5B 52 45 54  |.X.1......".[RET|
000005E0: 55 52 4E 5D 20 56 4F 4F  52 20 4D 45 4E 55 22 00  |URN] VOOR MENU".|
000005F0: 03 0E B2 0C A1 45 24 3A  8B 45 24 B2 22 22 A7 33  |.....E$:.E$."".3|
00000600: 32 35 30 00 0D 0E BC 0C  89 36 30 30 30 00 23 0E  |250......6000.#.|
00000610: 88 13 81 41 B2 31 A4 32  30 3A 87 4C 28 41 29 3A  |...A.1.20:.L(A):|
00000620: 82 3A 8E 00 48 0E 70 17  8D 32 30 30 30 3A 99 22  |.:..H.p..2000:."|
00000630: 13 11 22 3A 81 54 B2 31  A4 32 30 3A 99 A3 31 37  |..":.T.1.20:..17|
00000640: 29 47 24 28 54 29 3A 82  00 63 0E 7A 17 99 22 11  |)G$(T):..c.z..".|
00000650: 47 45 47 45 56 45 4E 53  20 43 4F 52 52 45 43 54  |GEGEVENS CORRECT|
00000660: 20 3F 22 00 77 0E 84 17  A1 57 24 3A 8B 57 24 B2  | ?".w....W$:.W$.|
00000670: 22 22 A7 36 30 32 30 00  87 0E 8E 17 8B 57 24 B3  |"".6020......W$.|
00000680: B1 22 4A 22 A7 31 30 00  A3 0E 93 17 9F 31 35 2C  |."J".10......15,|
00000690: 38 2C 31 35 2C 22 53 3A  22 AA 47 24 28 31 29 3A  |8,15,"S:".G$(1):|
000006A0: A0 31 35 00 B0 0E 98 17  9F 31 35 2C 38 2C 31 35  |.15......15,8,15|
000006B0: 00 C8 0E A2 17 9F 32 2C  38 2C 32 2C 47 24 28 31  |......2,8,2,G$(1|
000006C0: 29 AA 22 2C 53 2C 57 22  00 E3 0E AC 17 81 54 B2  |).",S,W"......T.|
000006D0: 31 A4 32 30 3A 98 32 2C  47 24 28 54 29 3B C7 28  |1.20:.2,G$(T);.(|
000006E0: 31 33 29 00 F0 0E B1 17  82 3A A0 32 3A A0 31 35  |13)......:.2:.15|
000006F0: 00 FE 0E B6 17 58 B2 58  AA 31 3A 89 31 30 00 37  |.....X.X.1:.10.7|
00000700: 0F 10 27 83 36 2C 31 35  2C 31 35 2C 37 2C 31 35  |..'.6,15,15,7,15|
00000710: 2C 31 35 2C 31 32 2C 31  2C 31 2C 32 2C 32 2C 32  |,15,12,1,1,2,2,2|
00000720: 2C 32 2C 32 30 2C 32 30  2C 32 30 2C 32 30 2C 32  |,2,20,20,20,20,2|
00000730: 30 2C 32 30 2C 32 30 00  00 00                    |0,20,20...      |

......X.0:.G$(20),L(20):.5000.7...C.0:.5
3280,6:.53281,6.Y...."... KREDIET BEWAKI
NG MENU ".U.(..".. 1 = ZOEK OP DEBNR"...
-..". 2 = ZIEN GEGEVENS"......". 3 = VER
BETEREN GEGEVENS".P.0..". 4 = INVOER NIE
UWE DD."...1..". 5 = GEGEVENS SAVEN"...2
..A$:.A$."".50...<..A$."1".1000.'.F..A$.
"2"..2000:.2200.?.P..A$."3"..2000:.3000.
W.Z..A$."4"..2000:.3200.N.D..A$."5"..X..
0.6000...N..A$.G(140)..:.5......10......
".. LOADEN VAN KREDIET GEGEVENS ".M...D$
."":.". D-NUMMER ";D$......D$."".10.....
.C(D$)..6.1000......15,8,15......2,8,2,D
$.",S,R"......T.1.20.)....2,G$(T).@.$..:
 2: 15:X.X.1:.10.^.P..".. KREDIET GEGEVE
NS ..".W.Z.."DEBNR.         1 "......"NA
AM           2 "......"ADRES          3 
".B...."POSTCODE       4 "......"WOONPLA
ATS     5 "......"CONT.PERSOON   6 "....
.."TELEFOON       7 ".&. .."KREDIETCODE 
   8 ".?.*.."CODE           9 ".X.4.."BE
T.AFSP.(W)  10 ".Q.>.."BET.GEDR.(W)  11 
"...H.."A.CODE        12 "...R.."B.CODE 
       13 "...\.."OPM.1         14 ".U.F
.."OPM.2         15 "...P.."OPM.3       
  16 "...Z.."OPM.4         17 ". ...."OP
M.5         18 ".9...."OPM.6         19 
".R...."OPM.7         20 ".X..........".
.":.T.1.20:..17)G$(T):.:.". [RETURN] VOO
R MENU"......E$:.E$."".2210......10.J...
."..":.T.1.20:..17)G$(T):....B.V.0:.".VE
RBETEREN NR (0=MENU)";V...D..V.0.C..0.60
00...G..V.0.C.0.10.9.L.G$(V)."/":."NIEUW
E GEGEVENS";G$(V).X.Q..C(G$(V)).L(V)..20
00:.3020.N.V..2000:C.C.1:.3000......".."
:.D.1.20.....G$(D)."/":."...............
..";G$(D).H....C(G$(D)).L(D).."..":.3210
.T....:X.X.1......".[RETURN] VOOR MENU".
.....E$:.E$."".3250......6000.#....A.1.2
0:.L(A):.:..H.P..2000:."..":.T.1.20:..17
)G$(T):..C.Z..".GEGEVENS CORRECT ?".W...
.W$:.W$."".6020......W$.."J".10......15,
8,15,"S:".G$(1): 15......15,8,15.H....2,
8,2,G$(1).",S,W"......T.1.20:.2,G$(T);G(
13)......: 2: 15.....X.X.1:.10.7..'.6,15
,15,7,15,15,12,1,1,2,2,2,2,20,20,20,20,2
0,20,20...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL