COR.128(4)
FILE INFORMATION
FILENAME(S): COR.128(4)
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 21:06:47
APPEARS ON: 1 disk(s)
FILE HASH
8df19afe3c330caaef7db7dedb8252c61e6e0ae34e8a90f56ff06f37f1b8bf38
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADRESSEN BEST | COR.128(4) | PRG | DuncanTwain | 34 | 1 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 20 3B 20 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 20 6E 00 |ENS:MODE=80.A n.|
00000040: 3A 00 57 20 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 20 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 20 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 20 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 21 |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 21 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 21 B4 00 3A 00 |GSROUTINE.?!..:.|
00000140: 5C 21 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 21 C8 |INES INLEZEN.b!.|
00000160: 00 3A 00 7A 21 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 21 DC 00 3A |TIALISEREN..!..:|
00000180: 00 9D 21 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 21 |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 21 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 21 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 22 0E 01 3A |NGSROUTINE.."..:|
00000200: 00 06 22 18 01 3A 00 1A 22 22 01 8F 20 2A 53 54 |.."..:.."".. *ST|
00000210: 55 55 52 54 45 4B 45 4E 53 2A 00 3A 22 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 22 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 22 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 22 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 22 |):. 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 22 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 22 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 23 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 23 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 23 86 01 3A 00 31 23 90 01 |S UIT.+#..:.1#..|
00000330: 3A 00 48 23 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 23 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: 23 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 23 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 23 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 23 CC 01 46 32 24 B2 C7 28 31 33 37 29 3A |..#..F2$..(137):|
000003B0: F9 32 2C 46 32 24 00 CC 23 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 23 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 23 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 23 F4 01 3A 00 04 |):.8,F8$..#..:..|
00000400: 24 FE 01 3A 00 1B 24 08 02 8F 20 2A 41 4E 44 45 |$..:..$... *ANDE|
00000410: 52 45 20 53 54 52 49 4E 47 53 2A 00 4A 24 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 24 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 24 |:. 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 24 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 25 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: 25 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 25 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 25 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 25 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 25 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 26 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 26 80 02 3A 00 2D 26 8A 02 3A 00 52 26 |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 26 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 26 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 26 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 26 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 26 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: 27 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 27 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 27 E4 02 3A 00 |KERVELDEN.O'..:.|
00000750: 55 27 EE 02 3A 00 6E 27 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: 27 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 27 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 28 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 28 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: 28 2A 03 3A 00 7A 28 34 03 3A 00 99 28 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 28 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 29 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 29 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 29 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 29 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 2A 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 2A 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 2A 8E 03 3A 00 70 2A 98 03 3A |.NU$.j*..:.p*..:|
00000A70: 00 95 2A 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 2A 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: 2A B6 03 44 45 24 28 31 29 B2 22 4E 55 CE D5 22 |*..DE$(1)."NU.."|
00000AF0: 00 39 2B 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 2B CA 03 44 45 |0:DZ(2).7.H+..DE|
00000B40: 24 28 32 29 B2 4E 31 24 00 9C 2B 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 2B 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 2C 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 2C F2 03 3A 00 |E$(5).N1$.O,..:.|
00000C50: 55 2C FC 03 3A 00 74 2C 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 2C 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 2C 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 2C 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 2D 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 2D 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 2D 42 04 3A 00 63 2D |RINTERS.]-B.:.c-|
00000D60: 4C 04 3A 00 79 2D 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 2D 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 2D 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 2D 74 04 3A 00 C0 2D 7E 04 3A |LEIN..-t.:..-~.:|
00000DC0: 00 D7 2D 88 04 8F 20 2A 42 45 53 54 41 4E 44 49 |..-... *BESTANDI|
00000DD0: 4E 4C 45 5A 45 4E 2A 00 F2 2D 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 2D 9C 04 A0 32 00 FF 2D A6 04 3A 00 |R"..-...2..-..:.|
00000E00: 27 2E 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 2E 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 2E 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 2E CE 04 |EUWE POGING.....|
00000EA0: 3A 00 C4 2E 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 2E 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 2E EC 04 3A 00 0C 2F 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 2F 00 |G INITIALIS.../.|
00000F10: 05 3A 00 18 2F 0A 05 3A 00 2B 2F 14 05 8F 20 2A |.:../..:.+/... *|
00000F20: 2A 2A 20 4D 45 4E 55 20 2A 2A 2A 00 38 2F 1E 05 |** MENU ***.8/..|
00000F30: 99 43 4C 45 41 52 24 3B 00 4B 2F 28 05 8B 20 4D |.CLEAR$;.K/(.. M|
00000F40: 4F 44 45 20 B2 30 20 A7 20 FE 18 00 89 2F 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 2F 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 2F 46 05 99 3A 99 3A 99 00 | ";../F..:.:..|
00000FD0: 02 30 50 05 99 22 20 20 22 41 41 4E 24 22 20 49 |.0P.." "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 30 5A 05 99 22 20 20 22 41 41 4E 24 |S".60Z.." "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 30 64 05 99 3A 99 22 20 |ISSEN".q0d..:." |
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 30 6E 05 99 3A 99 22 20 20 22 41 41 4E |"..0n..:." "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 30 78 05 99 3A 99 22 20 20 22 41 41 4E 24 |..0x..:." "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 30 82 05 |RGANISATIE"..0..|
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 31 8C 05 99 3A 99 3A 99 00 41 31 96 05 99 41 |.1...:.:..A1...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 31 A0 05 99 41 41 4E 24 22 20 20 20 20 |;.y1...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 31 AA 05 FE 19 | ";..1....|
00001180: 3A D5 20 FE 18 00 AC 31 B4 05 99 41 41 4E 24 22 |:. ....1...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 31 BE | KEUZE MENU..1.|
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 31 C8 05 99 3A 99 3A 99 00 0E 32 |---..1...:.:...2|
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: 32 DC 05 99 3A 99 22 20 20 22 41 41 4E 24 22 20 |2...:." "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 32 E6 05 99 3A 99 22 20 20 22 |SEN"..2...:." "|
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 32 F0 05 99 3A 99 22 20 20 22 41 41 4E 24 22 |.2...:." "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: 32 FA 05 99 3A 99 22 20 20 22 41 41 4E 24 22 20 |2...:." "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 0D 33 04 06 99 3A |ANISATIE"..3...:|
000012E0: 99 22 20 20 22 41 41 4E 24 22 20 56 A0 22 55 49 |." "AAN$" V."UI|
000012F0: 54 24 22 20 20 20 56 45 52 4C 41 54 45 4E 20 56 |T$" VERLATEN V|
00001300: 41 4E 20 50 52 4F 47 52 41 4D 4D 41 22 00 17 33 |AN PROGRAMMA"..3|
00001310: 0E 06 99 3A 99 3A 99 00 3E 33 18 06 99 41 41 4E |...:.:..>3...AAN|
00001320: 24 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$" |
00001330: 20 20 20 20 55 57 20 4B 45 55 5A 45 20 3F 00 49 | UW KEUZE ?.I|
00001340: 33 22 06 99 41 41 4E 24 22 00 50 33 2C 06 FE 19 |3"..AAN$".P3,...|
00001350: 00 56 33 36 06 3A 00 5E 33 40 06 49 B2 30 00 7C |.V36.:.^3@.I.0.||
00001360: 33 4A 06 9F B1 49 B2 30 3A A1 F9 20 41 24 3A 49 |3J...I.0:.. A$:I|
00001370: B2 C3 28 4D 31 24 2C 41 24 29 3A A0 00 82 33 54 |..(M1$,A$):...3T|
00001380: 06 3A 00 B3 33 5E 06 8B 20 49 B2 C3 28 4D 31 24 |.:..3^.. I..(M1$|
00001390: 29 A7 31 36 38 30 3A 8F 20 56 45 52 4C 41 54 45 |).1680:. VERLATE|
000013A0: 4E 20 56 41 4E 20 48 45 54 20 50 52 4F 47 52 41 |N VAN HET PROGRA|
000013B0: 4D 4D 41 00 D5 33 68 06 91 20 49 20 8D 32 37 31 |MMA..3h.. I .271|
000013C0: 30 2C 33 36 36 30 2C 34 31 31 30 2C 35 32 35 30 |0,3660,4110,5250|
000013D0: 2C 35 36 34 30 00 DF 33 72 06 89 31 33 30 30 00 |,5640..3r..1300.|
000013E0: E5 33 7C 06 3A 00 EB 33 86 06 3A 00 0C 34 90 06 |.3|.:..3..:..4..|
000013F0: 8F 20 2A 2A 2A 20 56 45 52 4C 41 54 45 4E 20 50 |. *** VERLATEN P|
00001400: 52 4F 47 52 41 4D 4D 41 20 2A 2A 2A 00 1C 34 9A |ROGRAMMA ***..4.|
00001410: 06 8B 20 41 46 B2 30 A7 31 37 32 30 00 39 34 A4 |.. AF.0.1720.94.|
00001420: 06 8D 37 37 34 30 3A 8F 20 49 4E 44 45 58 20 56 |..7740:. INDEX V|
00001430: 41 53 54 4C 45 47 47 45 4E 00 55 34 AE 06 8D 38 |ASTLEGGEN.U4...8|
00001440: 31 32 30 3A 8F 20 49 4E 46 4F 20 56 41 53 54 4C |120:. INFO VASTL|
00001450: 45 47 47 45 4E 00 5B 34 B8 06 80 00 61 34 C2 06 |EGGEN.[4....a4..|
00001460: 3A 00 67 34 CC 06 3A 00 81 34 D6 06 8F 20 2A 2A |:.g4..:..4... **|
00001470: 2A 20 46 4F 55 54 4D 45 4C 44 49 4E 47 20 2A 2A |* FOUTMELDING **|
00001480: 2A 00 9F 34 E0 06 9E 43 52 2C 2C 32 34 2C 30 2C |*..4...CR,,24,0,|
00001490: 30 3A 8F 43 52 53 2E 50 4C 41 41 54 53 45 4E 00 |0:.CRS.PLAATSEN.|
000014A0: A8 34 EA 06 99 44 53 24 00 B2 34 F4 06 A1 F9 20 |.4...DS$..4.... |
000014B0: 41 24 00 B8 34 FE 06 8E 00 BE 34 08 07 3A 00 C4 |A$..4.....4..:..|
000014C0: 34 12 07 3A 00 E2 34 1C 07 8F 20 2A 2A 2A 20 4D |4..:..4... *** M|
000014D0: 41 53 4B 45 52 20 4F 50 42 4F 55 57 45 4E 20 2A |ASKER OPBOUWEN *|
000014E0: 2A 2A 00 EE 34 26 07 81 49 B2 31 A4 4D 46 00 11 |**..4&..I.1.MF..|
000014F0: 35 30 07 3A 3A 9E 43 52 2C 2C 4D 5A 28 49 29 2C |50.::.CR,,MZ(I),|
00001500: 4D 53 28 49 29 2C 30 3A 8F 20 43 52 53 2E 53 45 |MS(I),0:. CRS.SE|
00001510: 54 00 3E 35 3A 07 3A 3A 99 4D 4E 24 28 49 29 3B |T.>5:.::.MN$(I);|
00001520: 49 24 28 49 29 3B C8 28 53 50 24 2C 4C 49 28 49 |I$(I);.(SP$,LI(I|
00001530: 29 AB C3 28 49 24 28 49 29 29 AA 31 29 3B 00 44 |)..(I$(I)).1);.D|
00001540: 35 44 07 82 00 4A 35 4E 07 8E 00 50 35 58 07 3A |5D...J5N...P5X.:|
00001550: 00 56 35 62 07 3A 00 60 35 6C 07 AB 32 30 31 30 |.V5b.:.`5l..2010|
00001560: 00 76 35 76 07 49 B2 31 3A 8F 20 45 45 52 53 54 |.v5v.I.1:. EERST|
00001570: 45 20 56 45 4C 44 00 94 35 80 07 53 B2 C3 28 4D |E VELD..5..S..(M|
00001580: 4E 24 28 49 29 29 AA 4D 53 28 49 29 3A 8F 20 4B |N$(I)).MS(I):. K|
00001590: 4F 4C 4F 4D 00 BD 35 8A 07 9E 53 45 2C 53 2C 4D |OLOM..5...SE,S,M|
000015A0: 5A 28 49 29 2C 4D 4C 28 49 29 2C 2C 4D 5A 24 28 |Z(I),ML(I),,MZ$(|
000015B0: 49 29 2C 45 32 24 2C 4D 52 24 28 49 29 00 DE 35 |I),E2$,MR$(I)..5|
000015C0: 94 07 41 B2 C2 28 32 35 33 29 3A 8F 20 45 49 4E |..A..(253):. EIN|
000015D0: 44 54 45 4B |DTEK |
. ; 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..:.:...0P.." "AAN$" I "UIT$" INVOER
EN VAN DATAREGELS".60Z.." "AAN$" Z "UIT
$" ZOEKEN, WIJZIGEN, WISSEN".Q0D..:."
"AAN$" G "UIT$" GEORDENDE UITVOER VAN
BESTAND". 0N..:." "AAN$" P "UIT$" PR
INTERPARAMETERS".K0X..:." "AAN$" R "UIT
$" REORGANISATIE"..0...:." "AAN$" V "
UIT$" VERLATEN VAN PROGRAMMA"..1...:.:
..A1...AAN$" UW KEUZE ?
";.Y1 ..AAN$"
";..1....
:U ....1...AAN$" KEUZE
MENU.S1...AAN$" -------
---..1H..:.:...2R.." "AAN$" I "UIT$"
INVOER VAN DATA REGEL".D2...:." "AAN$"
Z "UIT$" ZOEKEN, WIJZIGEN, WISSEN".2.
..:." "AAN$" G "UIT$" GEORDENDE UITVO
ER VAN BESTAND"..2...:." "AAN$" P "UIT$
" PRINTERPARAMETERS".Y2...:." "AAN$"
R "UIT$" REORGANISATIE"..3...:." "AAN
$" V "UIT$" VERLATEN VAN PROGRAMMA"..3
...:.:..>3...AAN$" UW K
EUZE ?.I3"..AAN$".P3,....V36.:.^3@.I.0.|
3J...I.0:.. A$:I.C(M1$,A$): ..3T.:..3^..
I.C(M1$).1680:. VERLATEN VAN HET PROGRA
MMA.U3H.. I .2710,3660,4110,5250,5640..3
R..1300..3|.:..3..:..4... *** VERLATEN P
ROGRAMMA ***..4... AF.0.1720.94...7740:.
INDEX VASTLEGGEN.U4...8120:. INFO VASTL
EGGEN.[4....A4B.:.G4L.:..4V.. *** FOUTME
LDING ***..4...CR,,24,0,0:.CRS.PLAATSEN.
.4...DS$..4.... A$..4.....4..:.D4..:..4.
.. *** MASKER OPBOUWEN ***..4&..I.1.MF..
50.::.CR,,MZ(I),MS(I),0:. CRS.SET.>5:.::
.MN$(I);I$(I);H(SP$,LI(I).C(I$(I)).1);.D
5D...J5N...P5X.:.V5B.:.`5L..2010.V5V.I.1
:. EERSTE VELD..5..S.C(MN$(I)).MS(I):. K
OLOM..5...SE,S,MZ(I),ML(I),,MZ$(I),E2$,M
R$(I)..5..A.B(253):. EINDTEK
> CLICK IMAGE PREVIEW FOR FULL MODAL