_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

COR.128(5)

FILE INFORMATION

FILENAME(S): COR.128(5)

FILE TYPE(S): PRG

FILE SIZE: 4.7K

FIRST SEEN: 2025-11-30 21:06:47

APPEARS ON: 1 disk(s)

FILE HASH

77d67e07b288afa797fbc6a4dd6730b9e5659590b808b05fbca33a42247934b4

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ADRESSEN BEST COR.128(5) PRG DuncanTwain 1 2 ⚠ CORRUPT
DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 3B 1C 64 00 4D 4F  44 45 B2 C2 28 D1 28 22  |..;.d.MODE..(.("|
00000010: 44 37 22 29 29 3A 8F 20  34 30 20 54 45 4B 45 4E  |D7")):. 40 TEKEN|
00000020: 53 3A 4D 4F 44 45 3D 30  3B 20 38 30 20 54 45 4B  |S:MODE=0; 80 TEK|
00000030: 45 4E 53 3A 4D 4F 44 45  3D 38 30 00 41 1C 6E 00  |ENS:MODE=80.A.n.|
00000040: 3A 00 57 1C 78 00 8F 20  2A 53 54 41 52 54 41 44  |:.W.x.. *STARTAD|
00000050: 52 45 53 53 45 4E 2A 00  84 1C 82 00 49 54 B2 D1  |RESSEN*.....IT..|
00000060: 28 22 30 42 30 30 22 29  3A 8F 20 53 54 41 52 54  |("0B00"):. START|
00000070: 41 44 52 45 53 20 49 4E  49 54 49 41 4C 49 53 45  |ADRES INITIALISE|
00000080: 52 49 4E 47 00 B0 1C 8C  00 53 45 B2 D1 28 22 31  |RING.....SE..("1|
00000090: 33 30 30 22 29 3A 8F 20  53 54 41 52 54 41 44 52  |300"):. STARTADR|
000000A0: 45 53 20 49 4E 56 4F 45  52 52 4F 55 54 49 4E 45  |ES INVOERROUTINE|
000000B0: 00 DD 1C 96 00 53 49 B2  D1 28 22 31 34 43 30 22  |.....SI..("14C0"|
000000C0: 29 3A 8F 20 53 54 41 52  54 41 44 52 45 53 20 49  |):. STARTADRES I|
000000D0: 4E 50 55 54 23 2D 52 4F  55 54 49 4E 45 00 07 1D  |NPUT#-ROUTINE...|
000000E0: A0 00 53 53 B2 D1 28 22  31 35 34 30 22 29 3A 8F  |..SS..("1540"):.|
000000F0: 20 53 54 41 52 54 41 44  52 45 53 20 5A 4F 45 4B  | STARTADRES ZOEK|
00000100: 52 4F 55 54 49 4E 45 00  39 1D AA 00 53 42 B2 32  |ROUTINE.9...SB.2|
00000110: 38 36 34 3A 8F 20 53 54  41 52 54 41 44 52 45 53  |864:. STARTADRES|
00000120: 20 42 4C 4F 4B 56 45 52  53 43 48 55 49 56 49 4E  | BLOKVERSCHUIVIN|
00000130: 47 53 52 4F 55 54 49 4E  45 00 3F 1D B4 00 3A 00  |GSROUTINE.?...:.|
00000140: 5C 1D BE 00 8D 38 37 38  30 3A 8F 20 52 4F 55 54  |\....8780:. ROUT|
00000150: 49 4E 45 53 20 49 4E 4C  45 5A 45 4E 00 62 1D C8  |INES INLEZEN.b..|
00000160: 00 3A 00 7A 1D D2 00 9E  49 54 3A 8F 20 49 4E 49  |.:.z....IT:. INI|
00000170: 54 49 41 4C 49 53 45 52  45 4E 00 80 1D DC 00 3A  |TIALISEREN.....:|
00000180: 00 9D 1D E6 00 8F 20 2A  4E 55 4D 45 52 49 45 4B  |...... *NUMERIEK|
00000190: 45 4E 20 56 41 52 49 41  42 4C 45 4E 2A 00 B6 1D  |EN VARIABLEN*...|
000001A0: F0 00 43 53 B2 32 33 36  3A 8F 20 43 55 52 53 4F  |..CS.236:. CURSO|
000001B0: 52 4B 4F 4C 4F 4D 00 CF  1D FA 00 43 5A B2 32 33  |RKOLOM.....CZ.23|
000001C0: 35 3A 8F 20 43 55 52 53  4F 52 52 45 47 45 4C 00  |5:. CURSORREGEL.|
000001D0: FA 1D 04 01 43 52 B2 D1  28 22 43 43 36 43 22 29  |....CR..("CC6C")|
000001E0: 3A 8F 20 43 55 52 53 4F  52 50 4C 41 41 54 53 49  |:. CURSORPLAATSI|
000001F0: 4E 47 53 52 4F 55 54 49  4E 45 00 00 1E 0E 01 3A  |NGSROUTINE.....:|
00000200: 00 06 1E 18 01 3A 00 1A  1E 22 01 8F 20 2A 53 54  |.....:...".. *ST|
00000210: 55 55 52 54 45 4B 45 4E  53 2A 00 3A 1E 2C 01 43  |UURTEKENS*.:.,.C|
00000220: 52 24 B2 C7 28 31 33 29  3A 8F 20 43 41 52 52 49  |R$..(13):. CARRI|
00000230: 41 47 45 20 52 45 54 55  52 4E 00 58 1E 36 01 48  |AGE RETURN.X.6.H|
00000240: 4F 4D 45 24 B2 C7 28 31  39 29 3A 8F 20 43 55 52  |OME$..(19):. CUR|
00000250: 53 4F 52 20 48 4F 4D 45  00 72 1E 40 01 43 4C 45  |SOR HOME.r.@.CLE|
00000260: 41 52 24 B2 C7 28 31 34  37 29 3A 8F 20 43 4C 45  |AR$..(147):. CLE|
00000270: 41 52 00 8D 1E 4A 01 55  50 24 B2 C7 28 31 34 35  |AR...J.UP$..(145|
00000280: 29 3A 8F 20 43 55 52 53  4F 52 20 55 50 00 AB 1E  |):. CURSOR UP...|
00000290: 54 01 4C 41 41 47 24 B2  C7 28 31 37 29 3A 8F 20  |T.LAAG$..(17):. |
000002A0: 43 55 52 53 4F 52 20 44  4F 57 4E 00 CC 1E 5E 01  |CURSOR DOWN...^.|
000002B0: 52 45 43 48 54 53 24 B2  C7 28 32 39 29 3A 8F 20  |RECHTS$..(29):. |
000002C0: 43 55 52 53 4F 52 20 52  49 47 48 54 00 EC 1E 68  |CURSOR RIGHT...h|
000002D0: 01 4C 49 4E 4B 53 24 B2  C7 28 31 35 37 29 3A 8F  |.LINKS$..(157):.|
000002E0: 20 43 55 52 53 4F 52 20  4C 45 46 54 00 08 1F 72  | CURSOR LEFT...r|
000002F0: 01 41 41 4E 24 B2 C7 28  31 38 29 3A 8F 20 52 45  |.AAN$..(18):. RE|
00000300: 56 45 52 53 20 41 41 4E  00 25 1F 7C 01 55 49 54  |VERS AAN.%.|.UIT|
00000310: 24 B2 C7 28 31 34 36 29  3A 8F 20 52 45 56 45 52  |$..(146):. REVER|
00000320: 53 20 55 49 54 00 2B 1F  86 01 3A 00 31 1F 90 01  |S UIT.+...:.1...|
00000330: 3A 00 48 1F 9A 01 8F 20  2A 46 55 4E 4B 54 49 45  |:.H.... *FUNKTIE|
00000340: 54 4F 45 54 53 45 4E 2A  00 5E 1F A4 01 46 31 24  |TOETSEN*.^...F1$|
00000350: B2 C7 28 31 33 33 29 3A  F9 31 2C 46 31 24 00 74  |..(133):.1,F1$.t|
00000360: 1F AE 01 46 33 24 B2 C7  28 31 33 34 29 3A F9 33  |...F3$..(134):.3|
00000370: 2C 46 33 24 00 8A 1F B8  01 46 35 24 B2 C7 28 31  |,F3$.....F5$..(1|
00000380: 33 35 29 3A F9 35 2C 46  35 24 00 A0 1F C2 01 46  |35):.5,F5$.....F|
00000390: 37 24 B2 C7 28 31 33 36  29 3A F9 37 2C 46 37 24  |7$..(136):.7,F7$|
000003A0: 00 B6 1F CC 01 46 32 24  B2 C7 28 31 33 37 29 3A  |.....F2$..(137):|
000003B0: F9 32 2C 46 32 24 00 CC  1F D6 01 46 34 24 B2 C7  |.2,F2$.....F4$..|
000003C0: 28 31 33 38 29 3A F9 34  2C 46 34 24 00 E2 1F E0  |(138):.4,F4$....|
000003D0: 01 46 36 24 B2 C7 28 31  33 39 29 3A F9 36 2C 46  |.F6$..(139):.6,F|
000003E0: 36 24 00 F8 1F EA 01 46  38 24 B2 C7 28 31 34 30  |6$.....F8$..(140|
000003F0: 29 3A F9 38 2C 46 38 24  00 FE 1F F4 01 3A 00 04  |):.8,F8$.....:..|
00000400: 20 FE 01 3A 00 1B 20 08  02 8F 20 2A 41 4E 44 45  | ..:.. ... *ANDE|
00000410: 52 45 20 53 54 52 49 4E  47 53 2A 00 4A 20 12 02  |RE STRINGS*.J ..|
00000420: 41 24 B2 22 20 20 20 20  20 20 20 20 20 20 20 20  |A$."            |
00000430: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 3A 8F  |             ":.|
00000440: 20 32 35 20 53 50 41 43  45 53 00 7D 20 1C 02 53  | 25 SPACES.} ..S|
00000450: 50 24 B2 41 24 AA 41 24  AA 41 24 AA 41 24 AA 41  |P$.A$.A$.A$.A$.A|
00000460: 24 AA 41 24 AA 41 24 AA  41 24 AA 41 24 AA 41 24  |$.A$.A$.A$.A$.A$|
00000470: 3A 8F 20 32 35 30 20 53  50 41 43 45 53 00 97 20  |:. 250 SPACES.. |
00000480: 26 02 4D 31 24 B2 22 45  53 47 44 52 56 22 3A 8F  |&.M1$."ESGDRV":.|
00000490: 20 4D 45 4E 55 20 31 00  CF 20 30 02 4D 32 24 B2  | MENU 1.. 0.M2$.|
000004A0: 46 31 24 AA 43 52 24 AA  52 45 43 48 54 53 24 AA  |F1$.CR$.RECHTS$.|
000004B0: 4C 49 4E 4B 53 24 AA 46  33 24 AA 46 35 24 AA 46  |LINKS$.F3$.F5$.F|
000004C0: 38 24 AA 46 37 24 3A 8F  20 4D 45 4E 55 20 32 00  |8$.F7$:. MENU 2.|
000004D0: 0E 21 3A 02 4E 31 24 B2  22 30 31 32 33 34 35 36  |.!:.N1$."0123456|
000004E0: 37 38 39 22 3A 8F 20 5A  55 49 56 45 52 20 4E 55  |789":. ZUIVER NU|
000004F0: 4D 45 52 49 45 4B 45 20  49 4E 56 4F 45 52 20 28  |MERIEKE INVOER (|
00000500: 48 45 4C 45 20 47 45 54  41 4C 4C 45 4E 29 00 33  |HELE GETALLEN).3|
00000510: 21 44 02 4E 55 24 B2 4E  31 24 AA 22 2B 2D 2E 22  |!D.NU$.N1$."+-."|
00000520: 3A 8F 20 4E 55 4D 45 52  49 45 4B 45 20 49 4E 56  |:. NUMERIEKE INV|
00000530: 4F 45 52 00 72 21 4E 02  41 4C 24 B2 22 51 57 45  |OER.r!N.AL$."QWE|
00000540: 52 54 5A 55 49 4F 50 41  53 44 46 47 48 4A 4B 4C  |RTZUIOPASDFGHJKL|
00000550: 59 58 43 56 42 4E 4D 51  57 45 52 54 5A 55 49 4F  |YXCVBNMQWERTZUIO|
00000560: 50 41 53 44 46 47 48 4A  4B 4C 59 58 43 56 42 4E  |PASDFGHJKLYXCVBN|
00000570: 4D 22 00 A1 21 58 02 41  4C 24 B2 41 4C 24 AA 22  |M"..!X.AL$.AL$."|
00000580: 2C 3B 3A 23 27 5B 5D CD  20 3F 21 40 24 25 26 3F  |,;:#'[]. ?!@$%&?|
00000590: 28 29 22 AA C7 28 33 34  29 AA 4E 55 24 3A 8F 20  |()"..(34).NU$:. |
000005A0: 3F 00 C2 21 62 02 53 4F  24 B2 22 2A 3C 3E 3F 22  |?..!b.SO$."*<>?"|
000005B0: 3A 8F 20 53 50 45 43 49  41 4C 45 20 54 45 4B 45  |:. SPECIALE TEKE|
000005C0: 4E 53 00 F1 21 6C 02 45  31 24 B2 46 31 24 AA 46  |NS..!l.E1$.F1$.F|
000005D0: 37 24 3A 8F 20 42 45 45  49 4E 44 49 47 45 4E 20  |7$:. BEEINDIGEN |
000005E0: 4D 45 54 20 27 46 31 27  20 45 4E 20 20 27 46 37  |MET 'F1' EN  'F7|
000005F0: 27 00 21 22 76 02 45 32  24 B2 4C 41 41 47 24 AA  |'.!"v.E2$.LAAG$.|
00000600: 55 50 24 AA 43 52 24 AA  45 31 24 3A 8F 20 2B 20  |UP$.CR$.E1$:. + |
00000610: 43 52 53 2C 44 4F 57 4E  2C 55 50 3B 46 31 3B 46  |CRS,DOWN,UP;F1;F|
00000620: 37 00 27 22 80 02 3A 00  2D 22 8A 02 3A 00 52 22  |7.'"..:.-"..:.R"|
00000630: 94 02 8F 20 2A 42 45 53  54 41 4E 44 53 50 45 43  |... *BESTANDSPEC|
00000640: 49 46 49 45 4B 45 20 56  41 52 49 41 42 45 4C 45  |IFIEKE VARIABELE|
00000650: 4E 2A 00 81 22 9E 02 4A  46 B2 31 3A 8F 20 4E 55  |N*.."..JF.1:. NU|
00000660: 4D 4D 45 52 20 56 41 4E  20 49 4E 44 45 58 56 45  |MMER VAN INDEXVE|
00000670: 4C 44 20 28 3D 53 4C 45  55 54 45 4C 56 45 4C 44  |LD (=SLEUTELVELD|
00000680: 29 00 9B 22 A8 02 4A 4C  B2 38 3A 8F 20 4C 45 4E  |).."..JL.8:. LEN|
00000690: 47 54 45 20 53 4C 45 55  54 45 4C 00 C3 22 B2 02  |GTE SLEUTEL.."..|
000006A0: 4E B2 31 3A 8F 20 56 4F  4C 47 45 4E 44 20 54 45  |N.1:. VOLGEND TE|
000006B0: 20 42 45 53 43 48 52 49  4A 56 45 4E 20 52 45 43  | BESCHRIJVEN REC|
000006C0: 4F 52 44 00 E5 22 BC 02  4E 45 B2 30 3A 8F 20 45  |ORD.."..NE.0:. E|
000006D0: 43 48 54 20 41 41 4E 54  41 4C 20 44 41 54 41 52  |CHT AANTAL DATAR|
000006E0: 45 47 45 4C 53 00 FE 22  C6 02 46 41 B2 37 3A 8F  |EGELS.."..FA.7:.|
000006F0: 20 41 41 4E 54 41 4C 20  56 45 4C 44 45 4E 00 1B  | AANTAL VELDEN..|
00000700: 23 D0 02 44 50 B2 35 3A  8F 20 50 52 49 4E 54 45  |#..DP.5:. PRINTE|
00000710: 52 50 41 52 41 4D 45 54  45 52 53 00 49 23 DA 02  |RPARAMETERS.I#..|
00000720: 41 B2 46 41 3A 8B 20 44  50 B1 46 41 A7 41 B2 44  |A.FA:. DP.FA.A.D|
00000730: 50 3A 8F 20 41 3D 41 41  4E 54 41 4C 20 4D 41 53  |P:. A=AANTAL MAS|
00000740: 4B 45 52 56 45 4C 44 45  4E 00 4F 23 E4 02 3A 00  |KERVELDEN.O#..:.|
00000750: 55 23 EE 02 3A 00 6E 23  F8 02 8F 20 2A 44 49 4D  |U#..:.n#... *DIM|
00000760: 45 4E 53 49 4F 4E 45 52  49 4E 47 45 4E 2A 00 B8  |ENSIONERINGEN*..|
00000770: 23 02 03 86 49 24 28 46  41 29 2C 4E 49 24 28 46  |#...I$(FA),NI$(F|
00000780: 41 29 2C 4C 49 28 46 41  29 2C 53 49 28 46 41 29  |A),LI(FA),SI(FA)|
00000790: 2C 5A 49 28 46 41 29 2C  45 5A 24 28 46 41 29 2C  |,ZI(FA),EZ$(FA),|
000007A0: 53 24 28 46 41 29 3A 8F  20 44 41 54 41 52 45 47  |S$(FA):. DATAREG|
000007B0: 45 4C 56 45 4C 44 45 4E  00 F7 23 0C 03 86 4D 4E  |ELVELDEN..#...MN|
000007C0: 24 28 41 29 2C 4D 4C 28  41 29 2C 4D 53 28 41 29  |$(A),ML(A),MS(A)|
000007D0: 2C 4D 5A 28 41 29 2C 4D  5A 24 28 41 29 2C 4D 52  |,MZ(A),MZ$(A),MR|
000007E0: 24 28 41 29 3A 8F 20 4D  41 53 4B 45 52 50 41 52  |$(A):. MASKERPAR|
000007F0: 41 4D 45 54 45 52 53 00  26 24 16 03 86 4A 46 24  |AMETERS.&$...JF$|
00000800: 28 39 39 39 29 2C 50 25  28 39 39 39 29 3A 8F 20  |(999),P%(999):. |
00000810: 49 4E 44 45 58 56 45 4C  44 2C 20 50 4F 49 4E 54  |INDEXVELD, POINT|
00000820: 45 52 56 45 4C 44 00 6E  24 20 03 86 44 50 28 44  |ERVELD.n$ ..DP(D|
00000830: 50 29 2C 44 49 24 28 44  50 29 2C 44 4C 28 44 50  |P),DI$(DP),DL(DP|
00000840: 29 2C 44 53 28 44 50 29  2C 44 5A 28 44 50 29 2C  |),DS(DP),DZ(DP),|
00000850: 44 45 24 28 44 50 29 3A  8F 20 50 52 49 4E 54 50  |DE$(DP):. PRINTP|
00000860: 41 52 41 4D 45 54 45 52  56 45 4C 44 45 4E 00 74  |ARAMETERVELDEN.t|
00000870: 24 2A 03 3A 00 7A 24 34  03 3A 00 99 24 3E 03 8F  |$*.:.z$4.:..$>..|
00000880: 20 2A 49 4E 56 4F 45 52  4D 41 53 4B 45 52 20 44  | *INVOERMASKER D|
00000890: 45 46 49 4E 49 45 52 45  4E 00 D8 24 48 03 4E 49  |EFINIEREN..$H.NI|
000008A0: 24 28 31 29 B2 22 56 4F  4F 52 4E 41 41 4D 20 20  |$(1)."VOORNAAM  |
000008B0: 20 3A 20 22 3A 4C 49 28  31 29 B2 31 35 3A 53 49  | : ":LI(1).15:SI|
000008C0: 28 31 29 B2 32 3A 5A 49  28 31 29 B2 33 3A 45 5A  |(1).2:ZI(1).3:EZ|
000008D0: 24 28 31 29 B2 41 4C 24  00 17 25 52 03 4E 49 24  |$(1).AL$..%R.NI$|
000008E0: 28 32 29 B2 22 4E 41 41  4D 20 20 20 20 20 20 20  |(2)."NAAM       |
000008F0: 3A 20 22 3A 4C 49 28 32  29 B2 31 35 3A 53 49 28  |: ":LI(2).15:SI(|
00000900: 32 29 B2 35 3A 5A 49 28  32 29 B2 35 3A 45 5A 24  |2).5:ZI(2).5:EZ$|
00000910: 28 32 29 B2 41 4C 24 00  5A 25 5C 03 4E 49 24 28  |(2).AL$.Z%\.NI$(|
00000920: 33 29 B2 22 53 54 52 41  41 54 20 20 20 20 20 3A  |3)."STRAAT     :|
00000930: A0 22 3A 4C 49 28 33 29  B2 32 30 3A 53 49 28 33  |.":LI(3).20:SI(3|
00000940: 29 B2 32 3A 5A 49 28 33  29 B2 37 3A 45 5A 24 28  |).2:ZI(3).7:EZ$(|
00000950: 33 29 B2 41 4C 24 AA 4E  55 24 00 98 25 66 03 4E  |3).AL$.NU$..%f.N|
00000960: 49 24 28 34 29 B2 22 50  4F 53 54 43 4F 44 45 20  |I$(4)."POSTCODE |
00000970: 20 20 3A 20 22 3A 4C 49  28 34 29 B2 34 3A 53 49  |  : ":LI(4).4:SI|
00000980: 28 34 29 B2 36 3A 5A 49  28 34 29 B2 39 3A 45 5A  |(4).6:ZI(4).9:EZ|
00000990: 24 28 34 29 B2 4E 55 24  00 DC 25 70 03 4E 49 24  |$(4).NU$..%p.NI$|
000009A0: 28 35 29 B2 22 57 4F 4F  4E 50 4C 41 41 54 53 20  |(5)."WOONPLAATS |
000009B0: 3A 20 22 3A 4C 49 28 35  29 B2 32 30 3A 53 49 28  |: ":LI(5).20:SI(|
000009C0: 35 29 B2 32 3A 5A 49 28  35 29 B2 31 31 3A 45 5A  |5).2:ZI(5).11:EZ|
000009D0: 24 28 35 29 B2 41 4C 24  AA 4E 55 24 00 20 26 7A  |$(5).AL$.NU$. &z|
000009E0: 03 4E 49 24 28 36 29 B2  22 54 45 4C 45 46 4F 4F  |.NI$(6)."TELEFOO|
000009F0: 4E 20 20 20 3A 20 22 3A  4C 49 28 36 29 B2 31 35  |N   : ":LI(6).15|
00000A00: 3A 53 49 28 36 29 B2 32  3A 5A 49 28 36 29 B2 31  |:SI(6).2:ZI(6).1|
00000A10: 33 3A 45 5A 24 28 36 29  B2 41 4C 24 AA 4E 55 24  |3:EZ$(6).AL$.NU$|
00000A20: 00 64 26 84 03 4E 49 24  28 37 29 B2 22 44 49 56  |.d&..NI$(7)."DIV|
00000A30: 45 52 53 45 4E 20 20 20  3A 20 22 3A 4C 49 28 37  |ERSEN   : ":LI(7|
00000A40: 29 B2 32 30 3A 53 49 28  37 29 B2 30 3A 5A 49 28  |).20:SI(7).0:ZI(|
00000A50: 37 29 B2 31 35 3A 45 5A  24 28 37 29 B2 41 4C 24  |7).15:EZ$(7).AL$|
00000A60: AA 4E 55 24 00 6A 26 8E  03 3A 00 70 26 98 03 3A  |.NU$.j&..:.p&..:|
00000A70: 00 95 26 A2 03 8F 20 2A  50 52 49 4E 54 45 52 50  |..&... *PRINTERP|
00000A80: 41 52 41 4D 45 54 45 52  53 20 44 45 46 49 4E 49  |ARAMETERS DEFINI|
00000A90: 45 52 45 4E 2A 00 DE 26  AC 03 44 49 24 28 31 29  |EREN*..&..DI$(1)|
00000AA0: B2 22 56 45 4C 44 45 4E  20 4E 41 41 53 54 20 4F  |."VELDEN NAAST O|
00000AB0: 46 20 4F 4E 44 45 52 20  45 4C 4B 41 41 52 20 20  |F ONDER ELKAAR  |
00000AC0: 20 20 20 3A 20 22 3A 44  4C 28 31 29 B2 31 3A 44  |   : ":DL(1).1:D|
00000AD0: 53 28 31 29 B2 30 3A 44  5A 28 31 29 B2 35 00 F0  |S(1).0:DZ(1).5..|
00000AE0: 26 B6 03 44 45 24 28 31  29 B2 22 4E 55 CE D5 22  |&..DE$(1)."NU.."|
00000AF0: 00 39 27 C0 03 44 49 24  28 32 29 B2 22 56 45 4C  |.9'..DI$(2)."VEL|
00000B00: 44 45 4E 20 4E 41 41 53  54 20 45 4C 4B 41 41 52  |DEN NAAST ELKAAR|
00000B10: 3A 20 56 45 4C 44 41 46  53 54 41 4E 44 20 3A A0  |: VELDAFSTAND :.|
00000B20: 22 3A 44 4C 28 32 29 B2  31 3A 44 53 28 32 29 B2  |":DL(2).1:DS(2).|
00000B30: 30 3A 44 5A 28 32 29 B2  37 00 48 27 CA 03 44 45  |0:DZ(2).7.H'..DE|
00000B40: 24 28 32 29 B2 4E 31 24  00 9C 27 D4 03 44 49 24  |$(2).N1$..'..DI$|
00000B50: 28 33 29 B2 22 44 41 54  41 52 45 47 45 4C 41 46  |(3)."DATAREGELAF|
00000B60: 53 54 41 4E 44 20 20 20  20 20 20 20 20 20 20 20  |STAND           |
00000B70: 20 20 20 20 20 20 3A 20  22 3A 44 4C 28 33 29 B2  |      : ":DL(3).|
00000B80: 31 3A 44 53 28 33 29 B2  30 3A 44 5A 28 33 29 B2  |1:DS(3).0:DZ(3).|
00000B90: 39 3A 44 45 24 28 33 29  B2 4E 31 24 00 F5 27 DE  |9:DE$(3).N1$..'.|
00000BA0: 03 44 49 24 28 34 29 B2  22 50 52 49 4E 54 45 52  |.DI$(4)."PRINTER|
00000BB0: 41 44 52 45 53 20 20 20  20 20 20 20 20 20 20 20  |ADRES           |
00000BC0: 20 20 20 20 20 20 20 20  20 20 3A 20 22 3A 44 4C  |          : ":DL|
00000BD0: 28 34 29 B2 31 3A 44 53  28 34 29 B2 30 3A 44 5A  |(4).1:DS(4).0:DZ|
00000BE0: 28 34 29 B2 31 35 3A 44  45 24 28 34 29 B2 22 33  |(4).15:DE$(4)."3|
00000BF0: 34 35 36 37 22 00 49 28  E8 03 44 49 24 28 35 29  |4567".I(..DI$(5)|
00000C00: B2 22 53 45 43 55 4E 44  41 49 52 41 44 52 45 53  |."SECUNDAIRADRES|
00000C10: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000C20: 20 20 3A 20 22 3A 44 4C  28 35 29 B2 33 3A 44 53  |  : ":DL(5).3:DS|
00000C30: 28 35 29 B2 30 3A 44 5A  28 35 29 B2 31 37 3A 44  |(5).0:DZ(5).17:D|
00000C40: 45 24 28 35 29 B2 4E 31  24 00 4F 28 F2 03 3A 00  |E$(5).N1$.O(..:.|
00000C50: 55 28 FC 03 3A 00 74 28  06 04 8F 20 2A 50 52 49  |U(..:.t(... *PRI|
00000C60: 4E 54 45 52 53 54 41 4E  44 41 41 52 44 57 41 41  |NTERSTANDAARDWAA|
00000C70: 52 44 45 2A 00 92 28 10  04 44 50 28 31 29 B2 31  |RDE*..(..DP(1).1|
00000C80: 3A 8F 20 4F 4E 44 45 52  45 4C 4B 41 41 52 20 3D  |:. ONDERELKAAR =|
00000C90: 4A 41 00 B4 28 1A 04 44  50 28 32 29 B2 33 3A 8F  |JA..(..DP(2).3:.|
00000CA0: 20 4E 41 41 53 54 45 4C  4B 41 41 52 20 41 46 53  | NAASTELKAAR AFS|
00000CB0: 54 41 4E 44 00 EC 28 24  04 44 50 28 33 29 B2 31  |TAND..($.DP(3).1|
00000CC0: 3A 8F 20 41 46 53 54 41  4E 44 20 54 55 53 53 45  |:. AFSTAND TUSSE|
00000CD0: 4E 20 54 57 45 45 20 44  41 54 41 52 45 47 45 4C  |N TWEE DATAREGEL|
00000CE0: 53 3D 20 45 45 4E 20 52  45 47 45 4C 00 17 29 2E  |S= EEN REGEL..).|
00000CF0: 04 44 50 28 34 29 B2 34  3A 8F 20 50 52 49 4E 54  |.DP(4).4:. PRINT|
00000D00: 45 52 41 44 52 45 53 20  3D 20 34 20 3D 20 53 54  |ERADRES = 4 = ST|
00000D10: 41 4E 44 41 41 52 44 00  57 29 38 04 44 50 28 35  |ANDAARD.W)8.DP(5|
00000D20: 29 B2 37 3A 8F 20 3D 20  47 52 4F 4F 54 2F 4B 4C  |).7:. = GROOT/KL|
00000D30: 45 49 4E 53 43 48 52 49  46 54 20 4D 4F 44 55 53  |EINSCHRIFT MODUS|
00000D40: 20 42 49 4A 20 43 4F 4D  4D 4F 44 4F 52 45 2D 50  | BIJ COMMODORE-P|
00000D50: 52 49 4E 54 45 52 53 00  5D 29 42 04 3A 00 63 29  |RINTERS.])B.:.c)|
00000D60: 4C 04 3A 00 79 29 56 04  8F 20 2A 50 52 4F 47 52  |L.:.y)V.. *PROGR|
00000D70: 41 4D 4D 41 53 54 41 52  54 00 97 29 60 04 8B 20  |AMMASTART..)`.. |
00000D80: 4D 4F 44 45 B2 30 A7 9B  30 2C 37 3A 9B 34 2C 37  |MODE.0..0,7:.4,7|
00000D90: 3A 97 32 34 31 2C 31 00  B4 29 6A 04 99 C7 28 31  |:.241,1..)j...(1|
00000DA0: 34 29 C7 28 38 29 3A 8F  20 47 52 4F 4F 54 2F 4B  |4).(8):. GROOT/K|
00000DB0: 4C 45 49 4E 00 BA 29 74  04 3A 00 C0 29 7E 04 3A  |LEIN..)t.:..)~.:|
00000DC0: 00 D7 29 88 04 8F 20 2A  42 45 53 54 41 4E 44 49  |..)... *BESTANDI|
00000DD0: 4E 4C 45 5A 45 4E 2A 00  F2 29 92 04 FE 0D 23 32  |NLEZEN*..)....#2|
00000DE0: 2C 22 49 4E 46 4F 42 45  53 54 41 4E 44 2C 55 2C  |,"INFOBESTAND,U,|
00000DF0: 52 22 00 F9 29 9C 04 A0  32 00 FF 29 A6 04 3A 00  |R"..)...2..)..:.|
00000E00: 27 2A B0 04 8B 44 53 B2  30 A7 31 32 34 30 3A 8F  |'*...DS.0.1240:.|
00000E10: 20 47 45 45 4E 20 46 4F  55 54 20 3D 3E 49 4E 46  | GEEN FOUT =>INF|
00000E20: 4F 20 4C 45 5A 45 4E 00  62 2A BA 04 8B 44 53 B2  |O LEZEN.b*...DS.|
00000E30: 36 32 A7 20 8D 32 30 31  30 3A 8D 32 33 32 30 3A  |62. .2010:.2320:|
00000E40: 89 31 32 37 30 3A 8F 20  27 46 49 4C 45 20 4E 4F  |.1270:. 'FILE NO|
00000E50: 54 20 46 4F 55 4E 44 27  3D 3E 41 41 4E 4D 41 4B  |T FOUND'=>AANMAK|
00000E60: 45 4E 00 9B 2A C4 04 8D  20 31 37 35 30 3A CB 54  |EN..*... 1750:.T|
00000E70: 31 31 37 30 3A 8F 20 41  4E 44 45 52 20 46 4F 55  |1170:. ANDER FOU|
00000E80: 54 45 4E 20 55 49 54 47  45 56 45 4E 2C 20 4E 49  |TEN UITGEVEN, NI|
00000E90: 45 55 57 45 20 50 4F 47  49 4E 47 00 A1 2A CE 04  |EUWE POGING..*..|
00000EA0: 3A 00 C4 2A D8 04 8D 20  37 39 39 30 3A 8F 20 49  |:..*... 7990:. I|
00000EB0: 4E 4C 45 5A 45 4E 20 56  41 4E 20 44 45 20 49 4E  |NLEZEN VAN DE IN|
00000EC0: 46 4F 27 53 00 DF 2A E2  04 8D 20 37 38 37 30 3A  |FO'S..*... 7870:|
00000ED0: 8F 20 49 4E 44 45 58 20  49 4E 4C 45 5A 45 4E 00  |. INDEX INLEZEN.|
00000EE0: E5 2A EC 04 3A 00 0C 2B  F6 04 41 46 B2 30 3A 8F  |.*..:..+..AF.0:.|
00000EF0: 20 56 45 52 41 4E 44 45  52 49 4E 47 53 56 4C 41  | VERANDERINGSVLA|
00000F00: 47 20 49 4E 49 54 49 41  4C 49 53 2E 00 12 2B 00  |G INITIALIS...+.|
00000F10: 05 3A 00 18 2B 0A 05 3A  00 2B 2B 14 05 8F 20 2A  |.:..+..:.++... *|
00000F20: 2A 2A 20 4D 45 4E 55 20  2A 2A 2A 00 38 2B 1E 05  |** MENU ***.8+..|
00000F30: 99 43 4C 45 41 52 24 3B  00 4B 2B 28 05 8B 20 4D  |.CLEAR$;.K+(.. M|
00000F40: 4F 44 45 20 B2 30 20 A7  20 FE 18 00 89 2B 32 05  |ODE .0 . ....+2.|
00000F50: 99 3A 99 41 41 4E 24 22  20 20 20 20 20 20 20 20  |.:.AAN$"        |
00000F60: 20 20 20 20 20 20 20 20  20 20 20 20 4B 45 55 5A  |            KEUZ|
00000F70: 45 20 4D 45 4E 55 20 20  20 20 20 20 20 20 20 20  |E MENU          |
00000F80: 20 20 20 20 20 20 20 22  3B 00 C5 2B 3C 05 99 41  |       ";..+<..A|
00000F90: 41 4E 24 22 20 20 20 20  20 20 20 20 20 20 20 20  |AN$"            |
00000FA0: 20 20 20 20 20 20 20 20  2D 2D 2D 2D 2D 2D 2D 2D  |        --------|
00000FB0: 2D 2D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |--              |
00000FC0: 20 20 20 22 3B 00 CF 2B  46 05 99 3A 99 3A 99 00  |   ";..+F..:.:..|
00000FD0: 02 2C 50 05 99 22 20 20  22 41 41 4E 24 22 20 49  |.,P.."  "AAN$" I|
00000FE0: 20 22 55 49 54 24 22 20  20 20 49 4E 56 4F 45 52  | "UIT$"   INVOER|
00000FF0: 45 4E 20 56 41 4E 20 44  41 54 41 52 45 47 45 4C  |EN VAN DATAREGEL|
00001000: 53 22 00 36 2C 5A 05 99  22 20 20 22 41 41 4E 24  |S".6,Z.."  "AAN$|
00001010: 22 20 5A A0 22 55 49 54  24 22 20 20 20 5A 4F 45  |" Z."UIT$"   ZOE|
00001020: 4B 45 4E 2C 20 57 49 4A  5A 49 47 45 4E 2C 20 57  |KEN, WIJZIGEN, W|
00001030: 49 53 53 45 4E 22 00 71  2C 64 05 99 3A 99 22 20  |ISSEN".q,d..:." |
00001040: 20 22 41 41 4E 24 22 20  47 20 22 55 49 54 24 22  | "AAN$" G "UIT$"|
00001050: 20 20 20 47 45 4F 52 44  45 4E 44 45 20 55 49 54  |   GEORDENDE UIT|
00001060: 56 4F 45 52 20 56 41 4E  20 42 45 53 54 41 4E 44  |VOER VAN BESTAND|
00001070: 22 00 A0 2C 6E 05 99 3A  99 22 20 20 22 41 41 4E  |"..,n..:."  "AAN|
00001080: 24 22 20 50 20 22 55 49  54 24 22 20 20 20 50 52  |$" P "UIT$"   PR|
00001090: 49 4E 54 45 52 50 41 52  41 4D 45 54 45 52 53 22  |INTERPARAMETERS"|
000010A0: 00 CB 2C 78 05 99 3A 99  22 20 20 22 41 41 4E 24  |..,x..:."  "AAN$|
000010B0: 22 20 52 A0 22 55 49 54  24 22 20 20 20 52 45 4F  |" R."UIT$"   REO|
000010C0: 52 47 41 4E 49 53 41 54  49 45 22 00 FF 2C 82 05  |RGANISATIE"..,..|
000010D0: 99 3A 99 22 20 20 22 41  41 4E 24 22 20 56 A0 22  |.:."  "AAN$" V."|
000010E0: 55 49 54 24 22 20 20 20  56 45 52 4C 41 54 45 4E  |UIT$"   VERLATEN|
000010F0: 20 56 41 4E 20 50 52 4F  47 52 41 4D 4D 41 22 00  | VAN PROGRAMMA".|
00001100: 09 2D 8C 05 99 3A 99 3A  99 00 41 2D 96 05 99 41  |.-...:.:..A-...A|
00001110: 41 4E 24 22 20 20 20 20  20 20 20 20 20 20 20 20  |AN$"            |
00001120: 20 20 20 20 20 20 55 57  20 4B 45 55 5A 45 20 3F  |      UW KEUZE ?|
00001130: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00001140: 3B 00 79 2D A0 05 99 41  41 4E 24 22 20 20 20 20  |;.y-...AAN$"    |
00001150: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001170: 20 20 20 20 20 20 20 22  3B 00 85 2D AA 05 FE 19  |       ";..-....|
00001180: 3A D5 20 FE 18 00 AC 2D  B4 05 99 41 41 4E 24 22  |:. ....-...AAN$"|
00001190: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011A0: 20 20 4B 45 55 5A 45 20  4D 45 4E 55 00 D3 2D BE  |  KEUZE MENU..-.|
000011B0: 05 99 41 41 4E 24 22 20  20 20 20 20 20 20 20 20  |..AAN$"         |
000011C0: 20 20 20 20 20 20 20 20  20 2D 2D 2D 2D 2D 2D 2D  |         -------|
000011D0: 2D 2D 2D 00 DD 2D C8 05  99 3A 99 3A 99 00 0E 2E  |---..-...:.:....|
000011E0: D2 05 99 22 20 20 22 41  41 4E 24 22 20 49 20 22  |..."  "AAN$" I "|
000011F0: 55 49 54 24 22 20 20 20  49 4E 56 4F 45 52 20 56  |UIT$"   INVOER V|
00001200: 41 4E 20 44 41 54 41 20  52 45 47 45 4C 22 00 44  |AN DATA REGEL".D|
00001210: 2E DC 05 99 3A 99 22 20  20 22 41 41 4E 24 22 20  |....:."  "AAN$" |
00001220: 5A A0 22 55 49 54 24 22  20 20 20 5A 4F 45 4B 45  |Z."UIT$"   ZOEKE|
00001230: 4E 2C 20 57 49 4A 5A 49  47 45 4E 2C 20 57 49 53  |N, WIJZIGEN, WIS|
00001240: 53 45 4E 22 00 7F 2E E6  05 99 3A 99 22 20 20 22  |SEN"......:."  "|
00001250: 41 41 4E 24 22 20 47 20  22 55 49 54 24 22 20 20  |AAN$" G "UIT$"  |
00001260: 20 47 45 4F 52 44 45 4E  44 45 20 55 49 54 56 4F  | GEORDENDE UITVO|
00001270: 45 52 20 56 41 4E 20 42  45 53 54 41 4E 44 22 00  |ER VAN BESTAND".|
00001280: AE 2E F0 05 99 3A 99 22  20 20 22 41 41 4E 24 22  |.....:."  "AAN$"|
00001290: 20 50 20 22 55 49 54 24  22 20 20 20 50 52 49 4E  | P "UIT$"   PRIN|
000012A0: 54 45 52 50 41 52 41 4D  45 54 45 52 53 22 00 D9  |TERPARAMETERS"..|
000012B0: 2E FA 05 99 3A 99 22 20  20 22 41 41 4E 24 22 20  |....:."  "AAN$" |
000012C0: 52 A0 22 55 49 54 24 22  20 20 20 52 45 4F 52 47  |R."UIT$"   REORG|
000012D0: 41 4E 49 53 41 54 49 45  22 00                    |ANISATIE".      |
..;.D.MODE.B(Q("D7")):. 40 TEKENS:MODE=0
; 80 TEKENS:MODE=80.A.N.:.W.X.. *STARTAD
RESSEN*.....IT.Q("0B00"):. STARTADRES IN
ITIALISERING.....SE.Q("1300"):. STARTADR
ES INVOERROUTINE.....SI.Q("14C0"):. STAR
TADRES INPUT#-ROUTINE... .SS.Q("1540"):.
 STARTADRES ZOEKROUTINE.9...SB.2864:. ST
ARTADRES BLOKVERSCHUIVINGSROUTINE.?...:.
\....8780:. ROUTINES INLEZEN.B.H.:.Z.R..
IT:. INITIALISEREN.....:...... *NUMERIEK
EN VARIABLEN*.....CS.236:. CURSORKOLOM.O
...CZ.235:. CURSORREGEL.....CR.Q("CC6C")
:. CURSORPLAATSINGSROUTINE.....:.....:..
.".. *STUURTEKENS*.:.,.CR$.G(13):. CARRI
AGE RETURN.X.6.HOME$.G(19):. CURSOR HOME
.R.@.CLEAR$.G(147):. CLEAR...J.UP$.G(145
):. CURSOR UP...T.LAAG$.G(17):. CURSOR D
OWN.L.^.RECHTS$.G(29):. CURSOR RIGHT...H
.LINKS$.G(157):. CURSOR LEFT...R.AAN$.G(
18):. REVERS AAN.%.|.UIT$.G(146):. REVER
S UIT.+...:.1...:.H.... *FUNKTIETOETSEN*
.^...F1$.G(133):.1,F1$.T...F3$.G(134):.3
,F3$.....F5$.G(135):.5,F5$. .B.F7$.G(136
):.7,F7$...L.F2$.G(137):.2,F2$.L.V.F4$.G
(138):.4,F4$.....F6$.G(139):.6,F6$.....F
8$.G(140):.8,F8$.....:.. ..:.. ... *ANDE
RE STRINGS*.J ..A$."                    
     ":. 25 SPACES.} ..SP$.A$.A$.A$.A$.A
$.A$.A$.A$.A$.A$:. 250 SPACES.. &.M1$."E
SGDRV":. MENU 1.O 0.M2$.F1$.CR$.RECHTS$.
LINKS$.F3$.F5$.F8$.F7$:. MENU 2..!:.N1$.
"0123456789":. ZUIVER NUMERIEKE INVOER (
HELE GETALLEN).3!D.NU$.N1$."+-.":. NUMER
IEKE INVOER.R!N.AL$."QWERTZUIOPASDFGHJKL
YXCVBNMQWERTZUIOPASDFGHJKLYXCVBNM"..!X.A
L$.AL$.",;:#'[]M ?!@$%&?()".G(34).NU$:. 
?.B!B.SO$."*<>?":. SPECIALE TEKENS..!L.E
1$.F1$.F7$:. BEEINDIGEN MET 'F1' EN  'F7
'.!"V.E2$.LAAG$.UP$.CR$.E1$:. + CRS,DOWN
,UP;F1;F7.'"..:.-"..:.R"... *BESTANDSPEC
IFIEKE VARIABELEN*.."..JF.1:. NUMMER VAN
 INDEXVELD (=SLEUTELVELD).."..JL.8:. LEN
GTE SLEUTEL.C"..N.1:. VOLGEND TE BESCHRI
JVEN RECORD.."..NE.0:. ECHT AANTAL DATAR
EGELS.."F.FA.7:. AANTAL VELDEN..#P.DP.5:
. PRINTERPARAMETERS.I#Z.A.FA:. DP.FA.A.D
P:. A=AANTAL MASKERVELDEN.O#..:.U#..:.N#
... *DIMENSIONERINGEN*..#...I$(FA),NI$(F
A),LI(FA),SI(FA),ZI(FA),EZ$(FA),S$(FA):.
 DATAREGELVELDEN..#...MN$(A),ML(A),MS(A)
,MZ(A),MZ$(A),MR$(A):. MASKERPARAMETERS.
&$...JF$(999),P%(999):. INDEXVELD, POINT
ERVELD.N$ ..DP(DP),DI$(DP),DL(DP),DS(DP)
,DZ(DP),DE$(DP):. PRINTPARAMETERVELDEN.T
$*.:.Z$4.:..$>.. *INVOERMASKER DEFINIERE
N.X$H.NI$(1)."VOORNAAM   : ":LI(1).15:SI
(1).2:ZI(1).3:EZ$(1).AL$..%R.NI$(2)."NAA
M       : ":LI(2).15:SI(2).5:ZI(2).5:EZ$
(2).AL$.Z%\.NI$(3)."STRAAT     : ":LI(3)
.20:SI(3).2:ZI(3).7:EZ$(3).AL$.NU$..%F.N
I$(4)."POSTCODE   : ":LI(4).4:SI(4).6:ZI
(4).9:EZ$(4).NU$..%P.NI$(5)."WOONPLAATS 
: ":LI(5).20:SI(5).2:ZI(5).11:EZ$(5).AL$
.NU$. &Z.NI$(6)."TELEFOON   : ":LI(6).15
:SI(6).2:ZI(6).13:EZ$(6).AL$.NU$.D&..NI$
(7)."DIVERSEN   : ":LI(7).20:SI(7).0:ZI(
7).15:EZ$(7).AL$.NU$.J&..:.P&..:..&... *
PRINTERPARAMETERS DEFINIEREN*..&..DI$(1)
."VELDEN NAAST OF ONDER ELKAAR     : ":D
L(1).1:DS(1).0:DZ(1).5..&..DE$(1)."NUNU"
.9'..DI$(2)."VELDEN NAAST ELKAAR: VELDAF
STAND : ":DL(2).1:DS(2).0:DZ(2).7.H'J.DE
$(2).N1$..'T.DI$(3)."DATAREGELAFSTAND   
              : ":DL(3).1:DS(3).0:DZ(3).
9:DE$(3).N1$..'..DI$(4)."PRINTERADRES   
                  : ":DL(4).1:DS(4).0:DZ
(4).15:DE$(4)."34567".I(..DI$(5)."SECUND
AIRADRES                  : ":DL(5).3:DS
(5).0:DZ(5).17:DE$(5).N1$.O(..:.U(..:.T(
... *PRINTERSTANDAARDWAARDE*..(..DP(1).1
:. ONDERELKAAR =JA..(..DP(2).3:. NAASTEL
KAAR AFSTAND..($.DP(3).1:. AFSTAND TUSSE
N TWEE DATAREGELS= EEN REGEL..)..DP(4).4
:. PRINTERADRES = 4 = STANDAARD.W)8.DP(5
).7:. = GROOT/KLEINSCHRIFT MODUS BIJ COM
MODORE-PRINTERS.])B.:.C)L.:.Y)V.. *PROGR
AMMASTART..)`.. MODE.0..0,7:.4,7:.241,1.
.)J..G(14)G(8):. GROOT/KLEIN..)T.:..)~.:
.W)... *BESTANDINLEZEN*..)....#2,"INFOBE
STAND,U,R"..).. 2..)..:.'*...DS.0.1240:.
 GEEN FOUT =>INFO LEZEN.B*...DS.62. .201
0:.2320:.1270:. 'FILE NOT FOUND'=>AANMAK
EN..*D.. 1750:KT1170:. ANDER FOUTEN UITG
EVEN, NIEUWE POGING..*N.:.D*X.. 7990:. I
NLEZEN VAN DE INFO'S..*... 7870:. INDEX 
INLEZEN..*..:..+..AF.0:. VERANDERINGSVLA
G INITIALIS...+..:..+..:.++... *** MENU 
***.8+...CLEAR$;.K+(.. MODE .0 . ....+2.
.:.AAN$"                    KEUZE MENU  
               ";.E+<..AAN$"            
        ----------                 ";.O+
F..:.:...,P.."  "AAN$" I "UIT$"   INVOER
EN VAN DATAREGELS".6,Z.."  "AAN$" Z "UIT
$"   ZOEKEN, WIJZIGEN, WISSEN".Q,D..:." 
 "AAN$" G "UIT$"   GEORDENDE UITVOER VAN
 BESTAND". ,N..:."  "AAN$" P "UIT$"   PR
INTERPARAMETERS".K,X..:."  "AAN$" R "UIT
$"   REORGANISATIE"..,...:."  "AAN$" V "
UIT$"   VERLATEN VAN PROGRAMMA"..-...:.:
..A-...AAN$"                  UW KEUZE ?
               ";.Y- ..AAN$"            
                               ";..-....
:U ....-...AAN$"                  KEUZE 
MENU.S-...AAN$"                  -------
---..-H..:.:....R.."  "AAN$" I "UIT$"   
INVOER VAN DATA REGEL".D....:."  "AAN$" 
Z "UIT$"   ZOEKEN, WIJZIGEN, WISSEN"...
..:."  "AAN$" G "UIT$"   GEORDENDE UITVO
ER VAN BESTAND"......:."  "AAN$" P "UIT$
"   PRINTERPARAMETERS".Y....:."  "AAN$" 
R "UIT$"   REORGANISATIE".
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL