Multiple names: ADESSENBESTAND, ADRESSENBESTAND
FILE INFORMATION
FILENAME(S):
• ADESSENBESTAND<br>• ADRESSENBESTAND
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-30 21:11:31
APPEARS ON: 2 disk(s)
FILE HASH
d8b142b8faff5efb2d3e9ee1b8c9fb6a1a0799486d26f1da66e33814deb53b10
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CBM 64 BESTANDEN | ADESSENBESTAND | PRG | DuncanTwain | 4 | 0 | DOWNLOAD FILE |
| CBM 64 BUSINES | ADRESSENBESTAND | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 8F 20 41 44 52 45 53 53 45 4E |....... ADRESSEN|
00000010: 42 45 53 54 41 4E 44 00 2A 08 14 00 8F 20 45 2E |BESTAND.*.... E.|
00000020: 50 2E 44 49 4A 4B 53 54 52 41 00 40 08 32 00 97 |P.DIJKSTRA.@.2..|
00000030: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0|
00000040: 00 4E 08 64 00 99 22 93 11 11 11 11 93 22 00 5B |.N.d.."......".[|
00000050: 08 68 29 41 31 20 B2 20 31 30 30 00 94 08 CC 29 |.h)A1 . 100....)|
00000060: 86 20 4E 24 28 41 31 29 2C 41 24 28 41 31 29 2C |. N$(A1),A$(A1),|
00000070: 50 24 28 41 31 29 2C 57 24 28 41 31 29 2C 54 24 |P$(A1),W$(A1),T$|
00000080: 28 41 31 29 2C 48 25 28 41 31 29 2C 49 25 28 32 |(A1),H%(A1),I%(2|
00000090: AC 41 31 29 00 DC 08 30 2A 8F 20 49 4E 20 48 25 |.A1)...0*. IN H%|
000000A0: 2D 54 41 42 45 4C 20 53 54 41 41 54 20 44 45 20 |-TABEL STAAT DE |
000000B0: 56 4F 4C 47 4F 52 44 45 2D 2A 44 45 20 49 4E 44 |VOLGORDE-*DE IND|
000000C0: 45 58 2A 2D 20 56 41 4E 20 44 45 20 44 49 56 45 |EX*- VAN DE DIVE|
000000D0: 52 53 45 20 54 41 42 45 4C 4C 45 4E 00 F3 08 94 |RSE TABELLEN....|
000000E0: 2A 81 4A B2 30 A4 41 31 3A 48 25 28 4A 29 B2 4A |*.J.0.A1:H%(J).J|
000000F0: 3A 82 4A 00 1C 09 F8 2A 99 22 93 2A 2A 2A 2A 2A |:.J....*.".*****|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 25 09 5C |***********".%.\|
00000120: 2B 99 22 20 22 00 47 09 C0 2B 99 22 20 20 20 20 |+." ".G..+." |
00000130: 41 44 52 45 53 42 45 53 54 41 4E 44 20 50 52 4F |ADRESBESTAND PRO|
00000140: 47 52 41 4D 4D 41 22 00 50 09 24 2C 99 22 20 22 |GRAMMA".P.$,." "|
00000150: 00 78 09 88 2C 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |.x..,."*********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 22 00 81 09 EC 2C 99 22 20 |*******"....,." |
00000180: 22 00 AD 09 50 2D 99 22 4B 49 45 53 20 45 45 4E |"...P-."KIES EEN|
00000190: 20 56 41 4E 20 44 45 20 56 4F 4C 47 45 4E 44 45 | VAN DE VOLGENDE|
000001A0: 20 4F 50 44 52 41 43 48 54 45 4E 3A 22 00 DB 09 | OPDRACHTEN:"...|
000001B0: B4 2D 99 22 11 11 31 2E 20 49 4E 56 4F 45 52 42 |.-."..1. INVOERB|
000001C0: 45 53 54 41 4E 44 20 4D 41 4B 45 4E 20 4F 46 20 |ESTAND MAKEN OF |
000001D0: 55 49 54 42 52 45 49 44 45 4E 22 00 03 0A 18 2E |UITBREIDEN".....|
000001E0: 99 22 11 32 2E 20 49 4E 48 4F 55 44 20 54 4F 4E |.".2. INHOUD TON|
000001F0: 45 4E 20 56 41 4E 20 48 45 54 20 42 45 53 54 41 |EN VAN HET BESTA|
00000200: 4E 44 22 00 22 0A 7C 2E 99 22 11 33 2E 20 5A 4F |ND".".|..".3. ZO|
00000210: 45 4B 20 49 4E 20 48 45 54 20 42 45 53 54 41 4E |EK IN HET BESTAN|
00000220: 44 22 00 41 0A E0 2E 99 22 11 34 2E 20 53 4F 52 |D".A....".4. SOR|
00000230: 54 45 45 52 20 50 45 52 20 45 4C 45 4D 45 4E 54 |TEER PER ELEMENT|
00000240: 22 00 60 0A 44 2F 99 22 11 35 2E 20 56 45 52 41 |".`.D/.".5. VERA|
00000250: 4E 44 45 52 20 49 4E 20 42 45 53 54 41 4E 44 22 |NDER IN BESTAND"|
00000260: 00 7B 0A A8 2F 99 22 11 36 2E 20 4C 41 42 45 4C |.{../.".6. LABEL|
00000270: 53 20 50 52 49 4E 54 45 4E 20 22 00 98 0A 0C 30 |S PRINTEN "....0|
00000280: 99 22 11 37 2E 20 53 41 56 45 4E 20 56 41 4E 20 |.".7. SAVEN VAN |
00000290: 42 45 53 54 41 4E 44 22 00 BA 0A 70 30 99 22 11 |BESTAND"...p0.".|
000002A0: 38 2E 20 53 54 4F 50 20 4D 45 54 20 48 45 54 20 |8. STOP MET HET |
000002B0: 50 52 4F 47 52 41 4D 4D 41 22 00 C6 0A D4 30 8D |PROGRAMMA"....0.|
000002C0: 20 34 33 31 30 30 00 E3 0A 38 31 8B 20 48 31 20 | 43100...81. H1 |
000002D0: B3 20 31 20 B0 20 54 20 B1 20 38 20 89 20 31 32 |. 1 . T . 8 . 12|
000002E0: 35 30 30 00 1E 0B 9C 31 91 20 48 31 20 8D 20 31 |500....1. H1 . 1|
000002F0: 32 39 30 30 2C 31 39 35 30 30 2C 32 33 38 30 30 |2900,19500,23800|
00000300: 2C 32 37 31 30 30 2C 33 30 38 30 30 2C 33 35 31 |,27100,30800,351|
00000310: 30 30 2C 34 30 36 30 30 2C 34 32 33 30 30 00 2A |00,40600,42300.*|
00000320: 0B 00 32 89 20 31 31 30 30 30 00 47 0B 64 32 99 |..2. 11000.G.d2.|
00000330: 22 93 11 11 2A 2A 2A 2A 2A 20 49 4E 56 4F 45 52 |"...***** INVOER|
00000340: 20 2A 2A 2A 2A 2A 22 00 61 0B C8 32 99 22 3D 3D | *****".a..2."==|
00000350: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000360: 22 00 75 0B 2C 33 8B 20 4E 20 B1 20 30 20 89 20 |".u.,3. N . 0 . |
00000370: 31 36 35 30 30 00 98 0B 90 33 99 22 11 11 31 2E |16500....3."..1.|
00000380: 20 4E 49 45 55 57 20 42 45 53 54 41 4E 44 20 4F | NIEUW BESTAND O|
00000390: 50 42 4F 55 57 45 4E 22 00 B8 0B F4 33 99 22 11 |PBOUWEN"....3.".|
000003A0: 11 32 2E 20 4F 55 44 20 42 45 53 54 41 4E 44 20 |.2. OUD BESTAND |
000003B0: 4F 50 48 41 4C 45 4E 22 00 C4 0B 58 34 8D 20 34 |OPHALEN"...X4. 4|
000003C0: 33 31 30 30 00 E4 0B BC 34 8B 20 48 31 24 B2 22 |3100....4. H1$."|
000003D0: 31 22 20 B0 20 48 31 24 B2 22 32 22 20 A7 20 31 |1" . H1$."2" . 1|
000003E0: 33 37 30 30 00 F0 0B 20 35 89 20 31 33 34 30 30 |3700... 5. 13400|
000003F0: 00 06 0C 84 35 8B 20 48 31 24 B2 22 32 22 20 89 |....5. H1$."2" .|
00000400: 20 31 37 38 30 30 00 0E 0C E8 35 4E B2 31 00 18 | 17800....5N.1..|
00000410: 0C 4C 36 99 22 93 11 22 00 3B 0C B0 36 99 22 55 |.L6."..".;..6."U|
00000420: 20 4B 55 4E 54 20 4E 55 20 41 44 52 45 53 53 45 | KUNT NU ADRESSE|
00000430: 4E 20 49 4E 56 4F 45 52 45 4E 22 00 6C 0C 14 37 |N INVOEREN".l..7|
00000440: 99 22 11 4F 4D 20 4D 45 54 20 49 4E 56 4F 45 52 |.".OM MET INVOER|
00000450: 20 54 45 20 45 49 4E 44 49 47 45 4E 3A 20 54 49 | TE EINDIGEN: TI|
00000460: 4B 20 2D 53 54 4F 50 2D 20 49 4E 22 00 74 0C 78 |K -STOP- IN".t.x|
00000470: 37 99 22 22 00 85 0C DC 37 81 20 50 20 B2 20 4E |7.""....7. P . N|
00000480: 20 A4 20 41 31 00 95 0C 40 38 99 22 11 3C 22 3B | . A1...@8.".<";|
00000490: 50 3B 22 3E 22 00 A4 0C A4 38 99 22 3D 3D 3D 3D |P;">"....8."====|
000004A0: 3D 3D 3D 22 00 C4 0C 08 39 85 20 22 4E 41 41 4D |==="....9. "NAAM|
000004B0: 20 20 20 20 20 20 20 3A 20 BF 9D 9D 9D 22 3B 4E | : ....";N|
000004C0: 24 28 50 29 00 E2 0C 12 39 8B 4E 24 28 50 29 B2 |$(P)....9.N$(P).|
000004D0: 22 BF 22 20 A7 99 22 91 91 22 3A 89 20 31 34 36 |"." .."..":. 146|
000004E0: 30 30 00 FA 0C 6C 39 8B 4E 24 28 50 29 B2 22 53 |00...l9.N$(P)."S|
000004F0: 54 4F 50 22 89 31 35 39 30 30 00 1A 0D D0 39 85 |TOP".15900....9.|
00000500: 20 22 41 44 52 45 53 20 20 20 20 20 20 3A 20 BF | "ADRES : .|
00000510: 9D 9D 9D 22 3B 41 24 28 50 29 00 38 0D DA 39 8B |...";A$(P).8..9.|
00000520: 41 24 28 50 29 B2 22 BF 22 20 A7 99 22 91 91 22 |A$(P)."." ..".."|
00000530: 3A 89 20 31 34 38 30 30 00 50 0D 34 3A 8B 41 24 |:. 14800.P.4:.A$|
00000540: 28 50 29 B2 22 53 54 4F 50 22 89 31 35 39 30 30 |(P)."STOP".15900|
00000550: 00 70 0D 98 3A 85 20 22 50 4F 53 54 43 4F 44 45 |.p..:. "POSTCODE|
00000560: 20 20 20 3A 20 BF 9D 9D 9D 22 3B 50 24 28 50 29 | : ....";P$(P)|
00000570: 00 8E 0D A2 3A 8B 50 24 28 50 29 B2 22 BF 22 20 |....:.P$(P)."." |
00000580: A7 99 22 91 91 22 3A 89 20 31 35 30 30 30 00 A6 |.."..":. 15000..|
00000590: 0D FC 3A 8B 50 24 28 50 29 B2 22 53 54 4F 50 22 |..:.P$(P)."STOP"|
000005A0: 89 31 35 39 30 30 00 C6 0D 60 3B 85 20 22 57 4F |.15900...`;. "WO|
000005B0: 4F 4E 50 4C 41 41 54 53 20 3A 20 BF 9D 9D 9D 22 |ONPLAATS : ...."|
000005C0: 3B 57 24 28 50 29 00 E4 0D 6A 3B 8B 57 24 28 50 |;W$(P)...j;.W$(P|
000005D0: 29 B2 22 BF 22 20 A7 99 22 91 91 22 3A 89 20 31 |)."." .."..":. 1|
000005E0: 35 32 30 30 00 FC 0D C4 3B 8B 57 24 28 50 29 B2 |5200....;.W$(P).|
000005F0: 22 53 54 4F 50 22 89 31 35 39 30 30 00 1C 0E 28 |"STOP".15900...(|
00000600: 3C 85 20 22 54 45 4C 45 46 4F 4F 4E 4E 52 20 3A |<. "TELEFOONNR :|
00000610: 20 BF 9D 9D 9D 22 3B 54 24 28 50 29 00 3A 0E 32 | ....";T$(P).:.2|
00000620: 3C 8B 54 24 28 50 29 B2 22 BF 22 20 A7 99 22 91 |<.T$(P)."." ..".|
00000630: 91 22 3A 89 20 31 35 34 30 30 00 52 0E 8C 3C 8B |.":. 15400.R..<.|
00000640: 54 24 28 50 29 B2 22 53 54 4F 50 22 89 31 35 39 |T$(P)."STOP".159|
00000650: 30 30 00 5A 0E F0 3C 99 22 22 00 62 0E 54 3D 82 |00.Z..<."".b.T=.|
00000660: 20 50 00 6A 0E B8 3D 99 22 22 00 7F 0E 1C 3E 99 | P.j..=.""....>.|
00000670: 22 11 45 49 4E 44 45 20 49 4E 56 4F 45 52 22 00 |".EINDE INVOER".|
00000680: 8D 0E 80 3E 4E 20 B2 20 50 20 AB 20 31 00 BC 0E |...>N . P . 1...|
00000690: E4 3E 99 22 11 45 52 20 5A 49 4A 4E 20 4E 55 22 |.>.".ER ZIJN NU"|
000006A0: 3B 4E 3B 22 41 44 52 45 53 53 45 4E 20 49 4E 20 |;N;"ADRESSEN IN |
000006B0: 48 45 54 20 42 45 53 54 41 4E 44 22 00 D8 0E 48 |HET BESTAND"...H|
000006C0: 3F 99 22 11 11 52 41 41 4B 20 45 45 4E 20 54 4F |?."..RAAK EEN TO|
000006D0: 45 54 53 20 41 41 4E 22 00 E4 0E AC 3F 8D 20 34 |ETS AAN"....?. 4|
000006E0: 33 31 30 30 00 EA 0E 10 40 8E 00 18 0F 74 40 99 |3100....@....t@.|
000006F0: 22 11 45 52 20 5A 49 54 20 41 4C 20 45 45 4E 20 |".ER ZIT AL EEN |
00000700: 42 45 53 54 41 4E 44 20 49 4E 20 48 45 54 20 47 |BESTAND IN HET G|
00000710: 45 48 45 55 47 45 4E 22 00 36 0F D8 40 99 22 11 |EHEUGEN".6..@.".|
00000720: 31 2E 20 4E 49 45 54 20 4F 56 45 52 53 43 48 52 |1. NIET OVERSCHR|
00000730: 49 4A 56 45 4E 22 00 53 0F 3C 41 99 22 11 32 2E |IJVEN".S.<A.".2.|
00000740: 20 57 45 4C 20 4F 56 45 52 53 43 48 52 49 4A 56 | WEL OVERSCHRIJV|
00000750: 45 4E 22 00 5F 0F A0 41 8D 20 34 33 31 30 30 00 |EN"._..A. 43100.|
00000760: 79 0F 04 42 8B 20 48 31 B2 31 20 B0 20 48 31 B2 |y..B. H1.1 . H1.|
00000770: 32 20 A7 20 31 37 31 30 30 00 85 0F 68 42 89 20 |2 . 17100...hB. |
00000780: 31 36 35 30 30 00 98 0F CC 42 8B 20 48 31 B2 32 |16500....B. H1.2|
00000790: 20 A7 20 31 33 38 30 30 00 B6 0F 30 43 99 22 11 | . 13800...0C.".|
000007A0: 33 2E 20 42 45 53 54 41 4E 44 20 55 49 54 42 52 |3. BESTAND UITBR|
000007B0: 45 49 44 45 4E 22 00 D9 0F 94 43 99 22 11 34 2E |EIDEN"....C.".4.|
000007C0: 20 42 45 53 54 41 4E 44 20 4E 49 45 54 20 55 49 | BESTAND NIET UI|
000007D0: 54 42 52 45 49 44 45 4E 22 00 E5 0F F8 43 8D 20 |TBREIDEN"....C. |
000007E0: 34 33 31 30 30 00 F6 0F 5C 44 8B 20 48 31 20 B2 |43100...\D. H1 .|
000007F0: 20 34 20 A7 20 8E 00 00 10 C0 44 4E B2 4E AA 31 | 4 . .....DN.N.1|
00000800: 00 0C 10 24 45 89 20 31 33 39 30 30 00 35 10 88 |...$E. 13900.5..|
00000810: 45 99 22 93 11 4B 4C 41 41 52 20 4F 4D 20 42 45 |E."..KLAAR OM BE|
00000820: 53 54 41 4E 44 20 4F 50 20 54 45 20 48 41 4C 45 |STAND OP TE HALE|
00000830: 4E 2E 2E 2E 22 00 64 10 EC 45 85 22 11 57 45 4C |N...".d..E.".WEL|
00000840: 4B 20 42 45 53 54 41 4E 44 20 4B 49 45 53 54 20 |K BESTAND KIEST |
00000850: 55 20 3F 20 41 44 52 45 53 9D 9D 9D 9D 9D 9D 9D |U ? ADRES.......|
00000860: 22 3B 46 24 00 8B 10 50 46 99 22 11 42 45 53 54 |";F$...PF.".BEST|
00000870: 41 4E 44 20 22 3B 46 24 3B 22 20 57 4F 52 44 54 |AND ";F$;" WORDT|
00000880: 20 4F 50 47 45 48 41 41 4C 44 22 00 9A 10 B4 46 | OPGEHAALD"....F|
00000890: 9F 20 31 2C 31 2C 30 2C 46 24 00 BA 10 18 47 99 |. 1,1,0,F$....G.|
000008A0: 22 11 42 45 53 54 41 4E 44 20 22 3B 46 24 3B 22 |".BESTAND ";F$;"|
000008B0: 20 47 45 56 4F 4E 44 45 4E 22 00 E1 10 7C 47 99 | GEVONDEN"...|G.|
000008C0: 22 11 42 45 53 54 41 4E 44 20 22 3B 46 24 3B 22 |".BESTAND ";F$;"|
000008D0: 20 57 4F 52 44 54 20 49 4E 47 45 4C 45 5A 45 4E | WORDT INGELEZEN|
000008E0: 22 00 EA 10 E0 47 84 31 2C 4E 00 FA 10 44 48 81 |"....G.1,N...DH.|
000008F0: 20 58 20 B2 20 31 20 A4 20 4E 00 07 11 A8 48 84 | X . 1 . N....H.|
00000900: 31 2C 4E 24 28 58 29 00 14 11 0C 49 84 31 2C 41 |1,N$(X)....I.1,A|
00000910: 24 28 58 29 00 21 11 70 49 84 31 2C 50 24 28 58 |$(X).!.pI.1,P$(X|
00000920: 29 00 2E 11 D4 49 84 31 2C 57 24 28 58 29 00 3B |)....I.1,W$(X).;|
00000930: 11 38 4A 84 31 2C 54 24 28 58 29 00 43 11 9C 4A |.8J.1,T$(X).C..J|
00000940: 82 20 58 00 4B 11 00 4B A0 20 31 00 62 11 64 4B |. X.K..K. 1.b.dK|
00000950: 81 4A B2 30 A4 41 31 3A 48 25 28 4A 29 B2 4A 3A |.J.0.A1:H%(J).J:|
00000960: 82 4A 00 68 11 C8 4B 8E 00 85 11 2C 4C 99 22 93 |.J.h..K....,L.".|
00000970: 11 11 2A 2A 2A 2A 2A 20 49 4E 48 4F 55 44 20 2A |..***** INHOUD *|
00000980: 2A 2A 2A 2A 22 00 9F 11 90 4C 99 22 3D 3D 3D 3D |****"....L."====|
00000990: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 |==============".|
000009A0: C5 11 F4 4C 99 22 11 11 57 45 4C 4B 45 20 41 44 |...L."..WELKE AD|
000009B0: 52 45 53 53 45 4E 20 57 49 4C 54 20 55 20 5A 49 |RESSEN WILT U ZI|
000009C0: 45 4E 20 3F 22 00 D7 11 58 4D 99 22 11 11 31 2E |EN ?"...XM."..1.|
000009D0: 20 41 4C 4C 45 53 22 00 E6 11 BC 4D 99 22 11 32 | ALLES"....M.".2|
000009E0: 2E 20 45 45 4E 22 00 F8 11 20 4E 99 22 11 33 2E |. EEN"... N.".3.|
000009F0: 20 42 45 52 45 49 4B 22 00 04 12 84 4E 8D 20 34 | BEREIK"....N. 4|
00000A00: 33 31 30 30 00 22 12 E8 4E 8B 20 48 31 20 B3 20 |3100."..N. H1 . |
00000A10: 31 20 B0 20 48 31 20 B1 20 33 20 89 20 32 30 31 |1 . H1 . 3 . 201|
00000A20: 30 30 00 38 12 4C 4F 8B 20 48 31 20 B3 B1 20 31 |00.8.LO. H1 .. 1|
00000A30: 20 89 20 32 30 36 30 30 00 46 12 B0 4F 54 31 B2 | . 20600.F..OT1.|
00000A40: 31 3A 54 32 B2 4E 00 52 12 14 50 89 20 32 32 34 |1:T2.N.R..P. 224|
00000A50: 30 30 00 68 12 78 50 8B 20 48 31 20 B3 B1 20 32 |00.h.xP. H1 .. 2|
00000A60: 20 89 20 32 31 31 30 30 00 8C 12 DC 50 85 22 11 | . 21100....P.".|
00000A70: 57 45 4C 4B 20 41 44 52 45 53 4E 55 4D 4D 45 52 |WELK ADRESNUMMER|
00000A80: 20 3F 20 BF 9D 9D 9D 22 3B 54 31 24 00 9A 12 E6 | ? ....";T1$....|
00000A90: 50 54 31 B2 C5 28 54 31 24 29 00 BB 12 F0 50 8B |PT1..(T1$)....P.|
00000AA0: 54 31 24 B2 22 BF 22 B0 54 31 B2 30 A7 99 22 91 |T1$.".".T1.0..".|
00000AB0: 91 91 22 3A 89 20 32 30 37 30 30 00 D0 12 40 51 |..":. 20700...@Q|
00000AC0: 8B 20 54 31 20 B1 20 4E 20 A7 20 32 32 31 30 30 |. T1 . N . 22100|
00000AD0: 00 DA 12 A4 51 54 32 B2 54 31 00 E6 12 08 52 89 |....QT2.T1....R.|
00000AE0: 20 32 32 34 30 30 00 14 13 6C 52 85 22 11 57 41 | 22400...lR.".WA|
00000AF0: 54 20 49 53 20 48 45 54 20 45 45 52 53 54 45 20 |T IS HET EERSTE |
00000B00: 41 44 52 45 53 4E 52 2E 20 3F 20 BF 9D 9D 9D 22 |ADRESNR. ? ...."|
00000B10: 3B 54 31 24 00 22 13 76 52 54 31 B2 C5 28 54 31 |;T1$.".vRT1..(T1|
00000B20: 24 29 00 43 13 80 52 8B 54 31 24 B2 22 BF 22 B0 |$).C..R.T1$.".".|
00000B30: 54 31 B2 30 A7 99 22 91 91 91 22 3A 89 20 32 31 |T1.0.."...":. 21|
00000B40: 31 30 30 00 57 13 D0 52 8B 20 54 31 20 B3 20 31 |100.W..R. T1 . 1|
00000B50: 20 A7 20 54 31 B2 31 00 6C 13 34 53 8B 20 54 31 | . T1.1.l.4S. T1|
00000B60: 20 B1 20 4E 20 A7 20 32 32 31 30 30 00 9B 13 98 | . N . 22100....|
00000B70: 53 85 22 11 57 41 54 20 49 53 20 48 45 54 20 4C |S.".WAT IS HET L|
00000B80: 41 41 54 53 54 45 20 41 44 52 45 53 4E 52 2E 20 |AATSTE ADRESNR. |
00000B90: 3F 20 BF 9D 9D 9D 22 3B 54 32 24 00 A9 13 A2 53 |? ....";T2$....S|
00000BA0: 54 32 B2 C5 28 54 32 24 29 00 CA 13 AC 53 8B 54 |T2..(T2$)....S.T|
00000BB0: 32 24 B2 22 BF 22 B0 54 32 B2 30 A7 99 22 91 91 |2$.".".T2.0.."..|
00000BC0: 91 22 3A 89 20 32 31 34 30 30 00 DF 13 FC 53 8B |.":. 21400....S.|
00000BD0: 20 54 32 20 B1 20 4E 20 A7 20 32 32 31 30 30 00 | T2 . N . 22100.|
00000BE0: F7 13 60 54 8B 20 54 32 20 B1 B2 20 54 31 20 20 |..`T. T2 .. T1 |
00000BF0: A7 20 32 32 34 30 30 00 21 14 C4 54 99 22 11 46 |. 22400.!..T.".F|
00000C00: 4F 55 54 20 21 21 20 4C 41 41 54 53 54 45 20 41 |OUT !! LAATSTE A|
00000C10: 44 52 45 53 20 4B 4C 45 49 4E 45 52 20 44 41 4E |DRES KLEINER DAN|
00000C20: 22 00 3A 14 28 55 99 22 11 45 45 52 53 54 45 20 |".:.(U.".EERSTE |
00000C30: 41 44 52 45 53 2E 2E 2E 20 22 00 6A 14 8C 55 99 |ADRES... ".j..U.|
00000C40: 22 11 11 52 41 41 4B 20 45 45 4E 20 54 4F 45 54 |"..RAAK EEN TOET|
00000C50: 53 20 41 41 4E 20 56 4F 4F 52 20 4E 4F 47 20 45 |S AAN VOOR NOG E|
00000C60: 45 4E 20 50 4F 47 49 4E 47 22 00 76 14 F0 55 89 |EN POGING".v..U.|
00000C70: 20 31 39 35 30 30 00 A6 14 54 56 99 22 11 42 45 | 19500...TV.".BE|
00000C80: 53 54 41 4E 44 20 48 45 45 46 54 20 53 4C 45 43 |STAND HEEFT SLEC|
00000C90: 48 54 53 20 22 3B 4E 3B 22 20 41 44 52 45 53 53 |HTS ";N;" ADRESS|
00000CA0: 45 4E 2E 2E 2E 22 00 D6 14 B8 56 99 22 11 11 52 |EN..."....V."..R|
00000CB0: 41 41 4B 20 45 45 4E 20 54 4F 45 54 53 20 41 41 |AAK EEN TOETS AA|
00000CC0: 4E 20 56 4F 4F 52 20 4E 4F 47 20 45 45 4E 20 50 |N VOOR NOG EEN P|
00000CD0: 4F 47 49 4E 47 22 00 E2 14 C2 56 8D 20 34 33 31 |OGING"....V. 431|
00000CE0: 30 30 00 EE 14 1C 57 89 20 31 39 35 30 30 00 F7 |00....W. 19500..|
00000CF0: 14 80 57 99 22 93 22 00 09 15 E4 57 81 20 57 20 |..W."."....W. W |
00000D00: B2 20 54 31 20 A4 20 54 32 00 16 15 48 58 48 38 |. T1 . T2...HXH8|
00000D10: B2 48 25 28 57 29 00 25 15 AC 58 99 22 3C 22 3B |.H%(W).%..X."<";|
00000D20: 57 3B 22 3E 22 00 34 15 10 59 99 22 3D 3D 3D 3D |W;">".4..Y."====|
00000D30: 3D 3D 3D 22 00 3C 15 74 59 99 22 22 00 49 15 D8 |===".<.tY."".I..|
00000D40: 59 99 20 4E 24 28 48 38 29 00 56 15 3C 5A 99 20 |Y. N$(H8).V.<Z. |
00000D50: 41 24 28 48 38 29 00 6F 15 A0 5A 99 20 50 24 28 |A$(H8).o..Z. P$(|
00000D60: 48 38 29 3B 22 20 20 22 3B 57 24 28 48 38 29 00 |H8);" ";W$(H8).|
00000D70: 7C 15 04 5B 99 20 54 24 28 48 38 29 00 84 15 68 ||..[. T$(H8)...h|
00000D80: 5B 99 22 22 00 90 15 CC 5B 8D 20 34 33 31 30 30 |[.""....[. 43100|
00000D90: 00 98 15 30 5C 82 20 57 00 9E 15 94 5C 8E 00 BB |...0\. W....\...|
00000DA0: 15 F8 5C 99 22 93 11 11 2A 2A 2A 2A 2A 20 5A 4F |..\."...***** ZO|
00000DB0: 45 4B 45 4E 20 2A 2A 2A 2A 2A 22 00 D5 15 5C 5D |EKEN *****"...\]|
00000DC0: 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."==============|
00000DD0: 3D 3D 3D 3D 22 00 FD 15 C0 5D 99 22 11 11 57 41 |===="....]."..WA|
00000DE0: 41 52 20 4D 4F 45 54 20 4E 41 41 52 20 47 45 5A |AR MOET NAAR GEZ|
00000DF0: 4F 43 48 54 20 57 4F 52 44 45 4E 2C 22 00 27 16 |OCHT WORDEN,".'.|
00000E00: 24 5E 85 22 11 4F 46 57 45 4C 20 57 41 54 20 49 |$^.".OFWEL WAT I|
00000E10: 53 20 44 45 20 53 4C 45 55 54 45 4C 20 3F 20 BF |S DE SLEUTEL ? .|
00000E20: 9D 9D 9D 22 3B 5A 24 00 41 16 2E 5E 8B 5A 24 B2 |...";Z$.A..^.Z$.|
00000E30: 22 BF 22 A7 99 22 91 91 91 22 3A 89 32 34 31 30 |".".."...":.2410|
00000E40: 30 00 4A 16 88 5E 46 31 B2 30 00 58 16 EC 5E 46 |0.J..^F1.0.X..^F|
00000E50: 20 B2 20 C3 28 5A 24 29 00 6C 16 50 5F 81 5A B2 | . .(Z$).l.P_.Z.|
00000E60: 31 A4 4E 3A 48 38 B2 48 25 28 5A 29 00 8C 16 B4 |1.N:H8.H%(Z)....|
00000E70: 5F 8B 20 C8 20 28 4E 24 28 48 38 29 2C 46 29 20 |_. . (N$(H8),F) |
00000E80: B2 20 5A 24 20 89 20 32 35 39 30 30 00 AC 16 18 |. Z$ . 25900....|
00000E90: 60 8B 20 C8 20 28 41 24 28 48 38 29 2C 46 29 20 |`. . (A$(H8),F) |
00000EA0: B2 20 5A 24 20 89 20 32 35 39 30 30 00 CC 16 7C |. Z$ . 25900...||
00000EB0: 60 8B 20 C8 20 28 50 24 28 48 38 29 2C 46 29 20 |`. . (P$(H8),F) |
00000EC0: B2 20 5A 24 20 89 20 32 35 39 30 30 00 EC 16 E0 |. Z$ . 25900....|
00000ED0: 60 8B 20 C8 20 28 57 24 28 48 38 29 2C 46 29 20 |`. . (W$(H8),F) |
00000EE0: B2 20 5A 24 20 89 20 32 35 39 30 30 00 0C 17 44 |. Z$ . 25900...D|
00000EF0: 61 8B 20 C8 20 28 54 24 28 48 38 29 2C 46 29 20 |a. . (T$(H8),F) |
00000F00: B2 20 5A 24 20 89 20 32 35 39 30 30 00 14 17 A8 |. Z$ . 25900....|
00000F10: 61 82 20 5A 00 25 17 0C 62 8B 20 46 31 20 B2 20 |a. Z.%..b. F1 . |
00000F20: 31 20 A7 20 8E 00 52 17 70 62 99 22 11 53 4C 45 |1 . ..R.pb.".SLE|
00000F30: 55 54 45 4C 20 4B 4F 4D 54 20 4E 49 45 54 20 49 |UTEL KOMT NIET I|
00000F40: 4E 20 42 45 53 54 41 4E 44 20 56 4F 4F 52 2E 2E |N BESTAND VOOR..|
00000F50: 2E 22 00 80 17 D4 62 99 22 11 31 2E 20 57 49 4C |."....b.".1. WIL|
00000F60: 54 20 55 20 45 45 4E 20 4E 49 45 55 57 45 20 53 |T U EEN NIEUWE S|
00000F70: 4C 45 55 54 45 4C 20 49 4E 56 4F 45 52 45 4E 22 |LEUTEL INVOEREN"|
00000F80: 00 A0 17 38 63 99 22 11 32 2E 20 54 45 52 55 47 |...8c.".2. TERUG|
00000F90: 20 4E 41 41 52 20 48 4F 4F 46 44 4D 45 4E 55 22 | NAAR HOOFDMENU"|
00000FA0: 00 AC 17 9C 63 8D 20 34 33 31 30 30 00 CA 17 00 |....c. 43100....|
00000FB0: 64 8B 20 48 31 20 B3 20 31 20 B0 20 48 31 20 B1 |d. H1 . 1 . H1 .|
00000FC0: 20 32 20 89 20 32 35 35 30 30 00 DB 17 64 64 8B | 2 . 25500...dd.|
00000FD0: 20 48 31 20 B2 20 32 20 A7 20 8E 00 E7 17 C8 64 | H1 . 2 . .....d|
00000FE0: 89 20 32 33 38 30 30 00 EF 17 2C 65 99 22 22 00 |. 23800...,e."".|
00000FF0: F8 17 90 65 46 31 B2 31 00 18 18 F4 65 99 22 11 |...eF1.1....e.".|
00001000: 41 44 52 45 53 20 4D 45 54 20 53 4C 45 55 54 45 |ADRES MET SLEUTE|
00001010: 4C 57 4F 4F 52 44 3A 22 00 37 18 58 66 99 22 2D |LWOORD:".7.Xf."-|
00001020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001030: 2D 2D 2D 2D 2D 2D 22 00 46 18 BC 66 99 22 3C 22 |------".F..f."<"|
00001040: 3B 5A 3B 22 3E 22 00 52 18 20 67 99 4E 24 28 48 |;Z;">".R. g.N$(H|
00001050: 38 29 00 5E 18 84 67 99 41 24 28 48 38 29 00 76 |8).^..g.A$(H8).v|
00001060: 18 E8 67 99 50 24 28 48 38 29 3B 22 20 20 22 3B |..g.P$(H8);" ";|
00001070: 57 24 28 48 38 29 00 8A 18 4C 68 99 22 28 22 3B |W$(H8)...Lh."(";|
00001080: 54 24 28 48 38 29 3B 22 29 22 00 96 18 B0 68 8D |T$(H8);")"....h.|
00001090: 20 34 33 31 30 30 00 A6 18 14 69 8B 20 5A 20 B2 | 43100....i. Z .|
000010A0: 20 4E 20 A7 20 8E 00 B2 18 78 69 89 20 32 35 30 | N . ....xi. 250|
000010B0: 30 30 00 D1 18 DC 69 99 22 93 11 11 2A 2A 2A 2A |00....i."...****|
000010C0: 2A 20 53 4F 52 54 45 52 45 4E 20 2A 2A 2A 2A 2A |* SORTEREN *****|
000010D0: 22 00 ED 18 40 6A 99 22 3D 3D 3D 3D 3D 3D 3D 3D |"...@j."========|
000010E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 16 19 |============"...|
000010F0: A4 6A 99 22 11 11 57 41 41 52 4F 50 20 4D 4F 45 |.j."..WAAROP MOE|
00001100: 54 20 47 45 53 4F 52 54 45 45 52 44 20 57 4F 52 |T GESORTEERD WOR|
00001110: 44 45 4E 20 3F 22 00 27 19 08 6B 99 22 11 11 31 |DEN ?".'..k."..1|
00001120: 2E 20 4E 41 41 4D 22 00 38 19 6C 6B 99 22 11 32 |. NAAM".8.lk.".2|
00001130: 2E 20 41 44 52 45 53 22 00 4C 19 D0 6B 99 22 11 |. ADRES".L..k.".|
00001140: 33 2E 20 50 4F 53 54 43 4F 44 45 22 00 62 19 34 |3. POSTCODE".b.4|
00001150: 6C 99 22 11 34 2E 20 57 4F 4F 4E 50 4C 41 41 54 |l.".4. WOONPLAAT|
00001160: 53 22 00 78 19 98 6C 99 22 11 35 2E 20 54 45 4C |S".x..l.".5. TEL|
00001170: 45 46 4F 4F 4E 4E 52 22 00 84 19 FC 6C 8D 20 34 |EFOONNR"....l. 4|
00001180: 33 31 30 30 00 A2 19 60 6D 8B 20 48 31 20 B3 20 |3100...`m. H1 . |
00001190: 31 20 B0 20 48 31 20 B1 20 35 20 89 20 32 37 39 |1 . H1 . 5 . 279|
000011A0: 30 30 00 D3 19 C4 6D 99 22 11 53 4F 52 54 45 52 |00....m.".SORTER|
000011B0: 45 4E 20 4B 4F 53 54 20 5A 45 4C 46 53 20 45 45 |EN KOST ZELFS EE|
000011C0: 4E 20 43 4F 4D 50 55 54 45 52 20 54 49 4A 44 2E |N COMPUTER TIJD.|
000011D0: 2E 2E 22 00 DF 19 28 6E 8D 20 32 38 37 30 30 00 |.."...(n. 28700.|
000011E0: FB 19 8C 6E 99 22 11 42 45 53 54 41 4E 44 20 47 |...n.".BESTAND G|
000011F0: 45 53 4F 52 54 45 45 52 44 20 22 00 07 1A F0 6E |ESORTEERD "....n|
00001200: 8D 20 34 33 31 30 30 00 0D 1A 54 6F 8E 00 2F 1A |. 43100...To../.|
00001210: B8 6F 8F 20 2A 2A 2A 2A 2A 20 53 4F 52 54 45 45 |.o. ***** SORTEE|
00001220: 52 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 00 |R ROUTINE *****.|
00001230: 43 1A 1C 70 4E 39 B2 4E AA 31 3A 58 B2 30 3A 48 |C..pN9.N.1:X.0:H|
00001240: 39 B2 30 00 60 1A 80 70 42 B2 4E 39 AB 31 3A 81 |9.0.`..pB.N9.1:.|
00001250: 4A B2 30 A4 42 3A 49 25 28 4A 29 B2 4A 3A 82 4A |J.0.B:I%(J).J:.J|
00001260: 00 72 1A E4 70 81 4A B2 30 A4 4E 39 AC 32 AB 33 |.r..p.J.0.N9.2.3|
00001270: A9 32 00 90 1A 48 71 42 B2 42 AA 31 3A 49 31 B2 |.2...HqB.B.1:I1.|
00001280: 49 25 28 4A 29 3A 49 32 B2 49 25 28 4A AA 31 29 |I%(J):I2.I%(J.1)|
00001290: 00 9B 1A AC 71 8D 33 30 32 30 30 00 AA 1A 10 72 |....q.30200....r|
000012A0: 49 25 28 42 29 B2 49 3A 82 4A 00 C3 1A 74 72 58 |I%(B).I:.J...trX|
000012B0: B2 58 AB 31 3A 43 B2 49 25 28 42 29 3A 8B 43 B3 |.X.1:C.I%(B):.C.|
000012C0: 30 A7 8E 00 D8 1A D8 72 48 25 28 48 39 29 B2 43 |0......rH%(H9).C|
000012D0: 3A 48 39 B2 48 39 AA 31 00 E4 1A 3C 73 49 25 28 |:H9.H9.1...<sI%(|
000012E0: 43 29 B2 58 00 0A 1B A0 73 43 25 B2 43 AD 32 3A |C).X....sC%.C.2:|
000012F0: 4A B2 43 25 AC 32 3A 43 B2 4E 39 AA 43 25 3A 8B |J.C%.2:C.N9.C%:.|
00001300: 43 B1 42 20 89 32 39 33 30 30 00 22 1B 04 74 49 |C.B .29300."..tI|
00001310: 31 B2 49 25 28 4A 29 3A 49 32 B2 49 25 28 4A AA |1.I%(J):I2.I%(J.|
00001320: 31 29 00 38 1B 68 74 8B 49 31 B3 30 A7 49 B2 49 |1).8.ht.I1.0.I.I|
00001330: 32 3A 89 33 30 31 30 30 00 4E 1B CC 74 8B 49 32 |2:.30100.N..t.I2|
00001340: B3 30 A7 49 B2 49 31 3A 89 33 30 31 30 30 00 59 |.0.I.I1:.30100.Y|
00001350: 1B 30 75 8D 33 30 32 30 30 00 6C 1B 94 75 49 25 |.0u.30200.l..uI%|
00001360: 28 43 29 B2 49 3A 89 32 39 36 30 30 00 90 1B F8 |(C).I:.29600....|
00001370: 75 8B 48 31 B2 31 A7 20 49 B2 49 31 3A 8B 4E 24 |u.H1.1. I.I1:.N$|
00001380: 28 49 32 29 B3 4E 24 28 49 31 29 A7 49 B2 49 32 |(I2).N$(I1).I.I2|
00001390: 00 B4 1B 5C 76 8B 48 31 B2 32 A7 20 49 B2 49 31 |...\v.H1.2. I.I1|
000013A0: 3A 8B 41 24 28 49 32 29 B3 41 24 28 49 31 29 A7 |:.A$(I2).A$(I1).|
000013B0: 49 B2 49 32 00 D8 1B C0 76 8B 48 31 B2 33 A7 20 |I.I2....v.H1.3. |
000013C0: 49 B2 49 31 3A 8B 50 24 28 49 32 29 B3 50 24 28 |I.I1:.P$(I2).P$(|
000013D0: 49 31 29 A7 49 B2 49 32 00 FC 1B 24 77 8B 48 31 |I1).I.I2...$w.H1|
000013E0: B2 34 A7 20 49 B2 49 31 3A 8B 57 24 28 49 32 29 |.4. I.I1:.W$(I2)|
000013F0: B3 57 24 28 49 31 29 A7 49 B2 49 32 00 20 1C 88 |.W$(I1).I.I2. ..|
00001400: 77 8B 48 31 B2 35 A7 20 49 B2 49 31 3A 8B 54 24 |w.H1.5. I.I1:.T$|
00001410: 28 49 32 29 B3 54 24 28 49 31 29 A7 49 B2 49 32 |(I2).T$(I1).I.I2|
00001420: 00 26 1C EC 77 8E 00 45 1C 50 78 99 22 93 11 11 |.&..w..E.Px."...|
00001430: 2A 2A 2A 2A 2A 20 56 45 52 41 4E 44 45 52 20 2A |***** VERANDER *|
00001440: 2A 2A 2A 2A 22 00 61 1C B4 78 99 22 3D 3D 3D 3D |****".a..x."====|
00001450: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001460: 22 00 75 1C 18 79 8B 20 4E 20 B1 20 30 20 89 20 |".u..y. N . 0 . |
00001470: 33 31 35 30 30 00 A2 1C 7C 79 99 22 11 45 52 20 |31500...|y.".ER |
00001480: 49 53 20 47 45 45 4E 20 42 45 53 54 41 4E 44 20 |IS GEEN BESTAND |
00001490: 49 4E 20 44 45 20 43 4F 4D 50 55 54 45 52 2E 2E |IN DE COMPUTER..|
000014A0: 2E 22 00 BE 1C E0 79 99 22 11 11 52 41 41 4B 20 |."....y."..RAAK |
000014B0: 45 45 4E 20 54 4F 45 54 53 20 41 41 4E 22 00 CA |EEN TOETS AAN"..|
000014C0: 1C 44 7A 8D 20 34 33 31 30 30 00 D0 1C A8 7A 8E |.Dz. 43100....z.|
000014D0: 00 03 1D 0C 7B 85 22 11 57 45 4C 4B 20 41 44 52 |....{.".WELK ADR|
000014E0: 45 53 4E 52 2E 20 57 49 4C 54 20 55 20 56 45 52 |ESNR. WILT U VER|
000014F0: 41 4E 44 45 52 45 4E 20 3F 20 BF 9D 9D 9D 22 3B |ANDEREN ? ....";|
00001500: 5A 33 24 00 10 1D 16 7B 5A B2 C5 28 5A 33 24 29 |Z3$....{Z..(Z3$)|
00001510: 00 2F 1D 20 7B 8B 5A 33 24 B2 22 BF 22 B0 5A B2 |./. {.Z3$.".".Z.|
00001520: 30 A7 99 22 91 91 91 22 3A 89 33 31 35 30 30 00 |0.."...":.31500.|
00001530: 46 1D 70 7B 8B 5A B1 4E A7 99 22 91 91 91 22 3A |F.p{.Z.N.."...":|
00001540: 89 33 31 35 30 30 00 53 1D D4 7B 48 38 B2 48 25 |.31500.S..{H8.H%|
00001550: 28 5A 29 00 84 1D 38 7C 8F 20 50 52 49 4E 54 22 |(Z)...8|. PRINT"|
00001560: 93 48 45 54 20 47 45 56 52 41 41 47 44 45 20 41 |.HET GEVRAAGDE A|
00001570: 44 52 45 53 20 57 4F 52 44 54 20 4E 55 20 52 45 |DRES WORDT NU RE|
00001580: 47 45 4C 22 00 B9 1D 9C 7C 8F 20 50 52 49 4E 54 |GEL"....|. PRINT|
00001590: 22 11 4E 41 20 52 45 47 45 4C 20 47 45 54 4F 4F |".NA REGEL GETOO|
000015A0: 4E 44 2E 20 41 4C 53 20 45 45 4E 20 52 45 47 45 |ND. ALS EEN REGE|
000015B0: 4C 20 4F 50 20 48 45 54 22 00 F0 1D 00 7D 8F 20 |L OP HET"....}. |
000015C0: 50 52 49 4E 54 22 11 53 43 48 45 52 4D 20 56 45 |PRINT".SCHERM VE|
000015D0: 52 53 43 48 49 4A 4E 54 20 4B 55 4E 54 20 55 20 |RSCHIJNT KUNT U |
000015E0: 44 45 20 52 45 47 45 4C 20 4B 4F 52 52 49 2D 22 |DE REGEL KORRI-"|
000015F0: 00 1E 1E 64 7D 8F 20 50 52 49 4E 54 22 47 45 52 |...d}. PRINT"GER|
00001600: 45 4E 2E 20 44 52 55 4B 20 44 41 41 52 4E 41 20 |EN. DRUK DAARNA |
00001610: 4F 50 20 12 52 45 54 55 52 4E 92 20 2E 22 00 44 |OP .RETURN. .".D|
00001620: 1E 6E 7D 99 22 11 57 49 4A 5A 49 47 20 41 4C 20 |.n}.".WIJZIG AL |
00001630: 4F 46 20 4E 49 45 54 20 44 45 20 52 45 47 45 4C |OF NIET DE REGEL|
00001640: 20 45 4E 22 00 66 1E 78 7D 99 22 11 44 52 55 4B | EN".f.x}.".DRUK|
00001650: 20 44 41 41 52 4E 41 20 4F 50 20 12 52 45 54 55 | DAARNA OP .RETU|
00001660: 52 4E 92 20 2E 22 00 85 1E F4 7E 99 20 22 11 11 |RN. ."....~. "..|
00001670: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 4E | ";N|
00001680: 24 28 48 38 29 00 A1 1E 58 7F 85 20 22 91 4E 41 |$(H8)...X.. ".NA|
00001690: 41 4D 20 20 20 20 20 20 20 3A 20 9D 9D 22 3B 56 |AM : ..";V|
000016A0: 24 00 AF 1E 20 80 4E 24 28 48 38 29 B2 56 24 00 |$... .N$(H8).V$.|
000016B0: CC 1E 84 80 99 20 22 20 20 20 20 20 20 20 20 20 |..... " |
000016C0: 20 20 20 20 22 3B 41 24 28 48 38 29 00 E8 1E E8 | ";A$(H8)....|
000016D0: 80 85 20 22 91 41 44 52 45 53 20 20 20 20 20 20 |.. ".ADRES |
000016E0: 3A 20 9D 9D 22 3B 56 24 00 F6 1E B0 81 41 24 28 |: ..";V$.....A$(|
000016F0: 48 38 29 B2 56 24 00 13 1F 14 82 99 20 22 20 20 |H8).V$...... " |
00001700: 20 20 20 20 20 20 20 20 20 20 20 22 3B 50 24 28 | ";P$(|
00001710: 48 38 29 00 2F 1F 78 82 85 20 22 91 50 4F 53 54 |H8)./.x.. ".POST|
00001720: 43 4F 44 45 20 20 20 3A 20 9D 9D 22 3B 56 24 00 |CODE : ..";V$.|
00001730: 3D 1F 40 83 50 24 28 48 38 29 B2 56 24 00 5A 1F |=.@.P$(H8).V$.Z.|
00001740: A4 83 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " |
00001750: 20 20 22 3B 57 24 28 48 38 29 00 76 1F 08 84 85 | ";W$(H8).v....|
00001760: 20 22 91 57 4F 4F 4E 50 4C 41 41 54 53 20 3A 20 | ".WOONPLAATS : |
00001770: 9D 9D 22 3B 56 24 00 84 1F D0 84 57 24 28 48 38 |..";V$.....W$(H8|
00001780: 29 B2 56 24 00 A1 1F 34 85 99 20 22 20 20 20 20 |).V$...4.. " |
00001790: 20 20 20 20 20 20 20 20 20 22 3B 54 24 28 48 38 | ";T$(H8|
000017A0: 29 00 BD 1F 98 85 85 20 22 91 54 45 4C 45 46 4F |)...... ".TELEFO|
000017B0: 4F 4E 4E 52 20 3A 20 9D 9D 22 3B 56 24 00 DB 1F |ONNR : ..";V$...|
000017C0: FC 85 8B 20 C8 20 28 56 24 2C 32 29 20 B2 20 22 |... . (V$,2) . "|
000017D0: 24 24 22 20 89 20 33 34 35 30 30 00 E9 1F 60 86 |$$" . 34500...`.|
000017E0: 54 24 28 48 38 29 B2 56 24 00 0E 20 C4 86 99 22 |T$(H8).V$.. ..."|
000017F0: 11 11 31 2E 20 4E 4F 47 20 45 45 4E 20 41 44 52 |..1. NOG EEN ADR|
00001800: 45 53 20 56 45 52 41 4E 44 45 52 45 4E 22 00 2E |ES VERANDEREN"..|
00001810: 20 28 87 99 22 11 32 2E 20 54 45 52 55 47 20 4E | (..".2. TERUG N|
00001820: 41 41 52 20 48 4F 4F 46 44 4D 45 4E 55 22 00 3A |AAR HOOFDMENU".:|
00001830: 20 8C 87 8D 20 34 33 31 30 30 00 58 20 F0 87 8B | ... 43100.X ...|
00001840: 20 48 31 20 B3 20 31 20 B0 20 48 31 20 B1 20 32 | H1 . 1 . H1 . 2|
00001850: 20 89 20 33 34 37 30 30 00 69 20 54 88 8B 20 48 | . 34700.i T.. H|
00001860: 31 20 B2 20 32 20 A7 20 8E 00 75 20 B8 88 89 20 |1 . 2 . ..u ... |
00001870: 33 30 38 30 30 00 92 20 1C 89 99 22 93 11 11 2A |30800.. ..."...*|
00001880: 2A 2A 2A 2A 20 4C 41 42 45 4C 53 20 2A 2A 2A 2A |**** LABELS ****|
00001890: 2A 22 00 AD 20 80 89 99 22 3D 3D 3D 3D 3D 3D 3D |*".. ..."=======|
000018A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 C8 20 |============".. |
000018B0: E4 89 99 22 11 31 2E 20 41 4C 4C 45 53 20 41 46 |...".1. ALLES AF|
000018C0: 44 52 55 4B 4B 45 4E 22 00 EA 20 48 8A 99 22 11 |DRUKKEN".. H..".|
000018D0: 32 2E 20 53 45 4C 45 4B 54 49 45 20 4F 50 20 54 |2. SELEKTIE OP T|
000018E0: 45 4C 45 46 4F 4F 4E 4E 52 22 00 F6 20 AC 8A 8D |ELEFOONNR".. ...|
000018F0: 20 34 33 31 30 30 00 14 21 10 8B 8B 20 48 31 20 | 43100..!... H1 |
00001900: B3 20 31 20 B0 20 48 31 20 B1 20 32 20 89 20 33 |. 1 . H1 . 2 . 3|
00001910: 35 35 30 30 00 29 21 74 8B 8B 20 48 31 20 B2 20 |5500.)!t.. H1 . |
00001920: 32 20 89 20 33 37 32 30 30 00 35 21 D8 8B 8D 20 |2 . 37200.5!... |
00001930: 33 39 30 30 30 00 4D 21 3C 8C 8F 20 50 52 49 4E |39000.M!<.. PRIN|
00001940: 54 45 52 20 41 41 4E 52 4F 45 50 45 4E 00 61 21 |TER AANROEPEN.a!|
00001950: A0 8C 81 45 B2 31 A4 4E 3A 48 38 B2 48 25 28 45 |...E.1.N:H8.H%(E|
00001960: 29 00 6D 21 04 8D 8D 20 34 33 31 30 30 00 75 21 |).m!... 43100.u!|
00001970: 68 8D 99 3A 99 00 82 21 CC 8D 99 20 4E 24 28 48 |h..:...!... N$(H|
00001980: 38 29 00 8F 21 30 8E 99 20 41 24 28 48 38 29 00 |8)..!0.. A$(H8).|
00001990: A8 21 94 8E 99 20 50 24 28 48 38 29 3B 22 20 20 |.!... P$(H8);" |
000019A0: 22 3B 57 24 28 48 38 29 00 B4 21 F8 8E 99 3A 99 |";W$(H8)..!...:.|
000019B0: 3A 99 3A 99 00 BC 21 5C 8F 82 20 45 00 DE 21 C0 |:.:...!\.. E..!.|
000019C0: 8F 99 22 44 49 54 20 57 41 52 45 4E 20 22 3B 45 |.."DIT WAREN ";E|
000019D0: AB 31 3B 22 20 41 44 52 45 53 53 45 4E 22 00 EA |.1;" ADRESSEN"..|
000019E0: 21 24 90 8D 20 34 33 31 30 30 00 02 22 88 90 8F |!$.. 43100.."...|
000019F0: 20 50 52 49 4E 54 45 52 20 55 49 54 5A 45 54 54 | PRINTER UITZETT|
00001A00: 45 4E 00 08 22 EC 90 8E 00 33 22 50 91 85 22 11 |EN.."....3"P..".|
00001A10: 11 57 41 54 20 49 53 20 54 45 4C 45 46 4F 4F 4E |.WAT IS TELEFOON|
00001A20: 4E 52 20 4B 45 55 5A 45 20 3F 20 BF 9D 9D 9D 22 |NR KEUZE ? ...."|
00001A30: 3B 48 24 00 3F 22 B4 91 8D 20 33 39 30 30 30 00 |;H$.?"... 39000.|
00001A40: 57 22 18 92 8F 20 50 52 49 4E 54 45 52 20 41 41 |W"... PRINTER AA|
00001A50: 4E 52 4F 45 50 45 4E 00 5F 22 7C 92 45 B2 30 00 |NROEPEN._"|.E.0.|
00001A60: 73 22 E0 92 81 4B B2 31 A4 4E 3A 48 38 B2 48 25 |s"...K.1.N:H8.H%|
00001A70: 28 4B 29 00 8E 22 44 93 8B 20 54 24 28 48 38 29 |(K).."D.. T$(H8)|
00001A80: 20 B3 B1 20 48 24 20 89 20 33 38 35 30 30 00 9A | .. H$ . 38500..|
00001A90: 22 A8 93 8D 20 34 33 31 30 30 00 A4 22 0C 94 45 |"... 43100.."..E|
00001AA0: B2 45 AA 31 00 AC 22 70 94 99 3A 99 00 B9 22 D4 |.E.1.."p..:...".|
00001AB0: 94 99 20 4E 24 28 48 38 29 00 C6 22 38 95 99 20 |.. N$(H8).."8.. |
00001AC0: 41 24 28 48 38 29 00 DF 22 9C 95 99 20 50 24 28 |A$(H8).."... P$(|
00001AD0: 48 38 29 3B 22 20 20 22 3B 57 24 28 48 38 29 00 |H8);" ";W$(H8).|
00001AE0: EB 22 00 96 99 3A 99 3A 99 3A 99 00 F3 22 64 96 |."...:.:.:..."d.|
00001AF0: 82 20 4B 00 13 23 C8 96 99 22 44 49 54 20 57 41 |. K..#..."DIT WA|
00001B00: 52 45 4E 20 22 3B 45 3B 22 20 41 44 52 45 53 53 |REN ";E;" ADRESS|
00001B10: 45 4E 22 00 1F 23 2C 97 8D 20 34 33 31 30 30 00 |EN"..#,.. 43100.|
00001B20: 37 23 90 97 8F 20 50 52 49 4E 54 45 52 20 55 49 |7#... PRINTER UI|
00001B30: 54 5A 45 54 54 45 4E 00 3D 23 F4 97 8E 00 66 23 |TZETTEN.=#....f#|
00001B40: 58 98 99 22 93 11 11 45 52 20 57 4F 52 44 45 4E |X.."...ER WORDEN|
00001B50: 20 45 45 52 53 54 20 54 45 53 54 2D 45 54 49 4B | EERST TEST-ETIK|
00001B60: 45 54 54 45 4E 22 00 90 23 BC 98 99 22 11 41 46 |ETTEN"..#...".AF|
00001B70: 47 45 44 52 55 4B 54 20 4F 4D 20 44 45 20 49 4E |GEDRUKT OM DE IN|
00001B80: 53 54 45 4C 4C 49 4E 47 20 56 41 4E 20 44 45 22 |STELLING VAN DE"|
00001B90: 00 AF 23 20 99 99 22 11 50 52 49 4E 54 45 52 20 |..# ..".PRINTER |
00001BA0: 54 45 20 43 4F 4E 54 52 4F 4C 45 52 45 4E 22 00 |TE CONTROLEREN".|
00001BB0: C7 23 84 99 8F 20 50 52 49 4E 54 45 52 20 41 41 |.#... PRINTER AA|
00001BC0: 4E 52 4F 45 50 45 4E 00 CF 23 E8 99 99 3A 99 00 |NROEPEN..#...:..|
00001BD0: DF 23 4C 9A 81 20 44 20 B2 20 31 20 A4 20 33 00 |.#L.. D . 1 . 3.|
00001BE0: FC 23 B0 9A 99 22 58 58 58 58 58 58 58 58 58 58 |.#..."XXXXXXXXXX|
00001BF0: 58 58 58 58 58 58 58 58 58 58 58 22 00 04 24 14 |XXXXXXXXXXX"..$.|
00001C00: 9B 82 20 44 00 10 24 78 9B 99 3A 99 3A 99 3A 99 |.. D..$x..:.:.:.|
00001C10: 00 28 24 DC 9B 8F 20 50 52 49 4E 54 45 52 20 55 |.($... PRINTER U|
00001C20: 49 54 5A 45 54 54 45 4E 00 48 24 40 9C 99 22 11 |ITZETTEN.H$@..".|
00001C30: 11 31 2E 20 49 4E 53 54 45 4C 4C 49 4E 47 20 56 |.1. INSTELLING V|
00001C40: 45 52 4B 45 45 52 44 22 00 63 24 A4 9C 99 22 11 |ERKEERD".c$...".|
00001C50: 32 2E 20 49 4E 53 54 45 4C 4C 49 4E 47 20 4F 2E |2. INSTELLING O.|
00001C60: 4B 2E 22 00 6F 24 08 9D 8D 20 34 33 31 30 30 00 |K.".o$... 43100.|
00001C70: 8D 24 6C 9D 8B 20 48 31 20 B3 20 31 20 B0 20 48 |.$l.. H1 . 1 . H|
00001C80: 31 20 B1 20 32 20 89 20 34 30 32 30 30 00 A2 24 |1 . 2 . 40200..$|
00001C90: D0 9D 8B 20 48 31 20 B2 20 31 20 89 20 33 39 33 |... H1 . 1 . 393|
00001CA0: 30 30 00 A8 24 34 9E 8E 00 C6 24 98 9E 99 22 93 |00..$4....$...".|
00001CB0: 11 11 2A 2A 2A 2A 2A 20 42 45 57 41 52 45 4E 20 |..***** BEWAREN |
00001CC0: 2A 2A 2A 2A 2A 22 00 E1 24 FC 9E 99 22 3D 3D 3D |*****"..$..."===|
00001CD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001CE0: 22 00 0C 25 60 9F 99 22 11 11 47 45 45 46 20 4E |"..%`.."..GEEF N|
00001CF0: 41 41 4D 20 57 41 41 52 4F 4E 44 45 52 20 42 45 |AAM WAARONDER BE|
00001D00: 53 54 41 4E 44 20 4D 4F 45 54 20 22 00 38 25 C4 |STAND MOET ".8%.|
00001D10: 9F 85 22 11 57 4F 52 44 45 4E 20 4F 50 47 45 42 |..".WORDEN OPGEB|
00001D20: 4F 52 47 45 4E 20 3F 20 41 44 52 45 53 9D 9D 9D |ORGEN ? ADRES...|
00001D30: 9D 9D 9D 9D 22 3B 46 24 00 66 25 28 A0 99 22 11 |....";F$.f%(..".|
00001D40: 42 45 53 54 41 4E 44 20 22 3B 46 24 3B 22 20 57 |BESTAND ";F$;" W|
00001D50: 4F 52 44 54 20 4E 55 20 57 45 47 47 45 53 43 48 |ORDT NU WEGGESCH|
00001D60: 52 45 56 45 4E 22 00 75 25 8C A0 9F 20 32 2C 31 |REVEN".u%... 2,1|
00001D70: 2C 32 2C 46 24 00 7E 25 F0 A0 98 32 2C 4E 00 92 |,2,F$.~%...2,N..|
00001D80: 25 54 A1 81 4C B2 31 A4 4E 3A 48 38 B2 48 25 28 |%T..L.1.N:H8.H%(|
00001D90: 4C 29 00 A0 25 B8 A1 98 32 2C 4E 24 28 48 38 29 |L)..%...2,N$(H8)|
00001DA0: 00 AE 25 1C A2 98 32 2C 41 24 28 48 38 29 00 BC |..%...2,A$(H8)..|
00001DB0: 25 80 A2 98 32 2C 50 24 28 48 38 29 00 CA 25 E4 |%...2,P$(H8)..%.|
00001DC0: A2 98 32 2C 57 24 28 48 38 29 00 D8 25 48 A3 98 |..2,W$(H8)..%H..|
00001DD0: 32 2C 54 24 28 48 38 29 00 E0 25 AC A3 82 20 4C |2,T$(H8)..%... L|
00001DE0: 00 ED 25 10 A4 98 32 2C 22 45 4F 46 22 00 F5 25 |..%...2,"EOF"..%|
00001DF0: 74 A4 A0 20 32 00 FB 25 D8 A4 8E 00 17 26 3C A5 |t.. 2..%.....&<.|
00001E00: 99 22 93 11 11 2A 2A 2A 2A 2A 20 45 49 4E 44 45 |."...***** EINDE|
00001E10: 20 2A 2A 2A 2A 2A 22 00 30 26 A0 A5 99 22 3D 3D | *****".0&..."==|
00001E20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
00001E30: 00 58 26 04 A6 99 22 11 11 31 2E 20 42 45 53 54 |.X&..."..1. BEST|
00001E40: 41 4E 44 20 4E 4F 47 20 4E 49 45 54 20 4F 50 47 |AND NOG NIET OPG|
00001E50: 45 42 4F 52 47 45 4E 22 00 79 26 68 A6 99 22 11 |EBORGEN".y&h..".|
00001E60: 32 2E 20 42 45 53 54 41 4E 44 20 41 4C 20 4F 50 |2. BESTAND AL OP|
00001E70: 47 45 42 4F 52 47 45 4E 22 00 85 26 CC A6 8D 20 |GEBORGEN"..&... |
00001E80: 34 33 31 30 30 00 A3 26 30 A7 8B 20 48 31 20 B3 |43100..&0.. H1 .|
00001E90: 20 31 20 B0 20 48 31 20 B1 20 32 20 89 20 34 32 | 1 . H1 . 2 . 42|
00001EA0: 37 30 30 00 B5 26 94 A7 8B 20 48 31 20 B3 B1 20 |700..&... H1 .. |
00001EB0: 32 20 A7 20 8E 00 BB 26 F8 A7 80 00 D2 26 5C A8 |2 . ...&.....&\.|
00001EC0: A1 48 31 24 3A 8B 48 31 24 B2 22 22 A7 34 33 31 |.H1$:.H1$."".431|
00001ED0: 30 30 00 E2 26 C0 A8 48 31 B2 C5 28 48 31 24 29 |00..&..H1..(H1$)|
00001EE0: 3A 8E 00 00 00 |:.... |
....... ADRESSENBESTAND.*.... E.P.DIJKST
RA.@.2..53280,0:.53281,0.N.D.."......".[
.H)A1 . 100...L). N$(A1),A$(A1),P$(A1),W
$(A1),T$(A1),H%(A1),I%(2.A1)...0*. IN H%
-TABEL STAAT DE VOLGORDE-*DE INDEX*- VAN
DE DIVERSE TABELLEN....*.J.0.A1:H%(J).J
:.J....*.".*****************************
***".%.\+." ".G..+." ADRESBESTAND PRO
GRAMMA".P.$,." ".X..,."*****************
***************"....,." "...P-."KIES EEN
VAN DE VOLGENDE OPDRACHTEN:"....-."..1.
INVOERBESTAND MAKEN OF UITBREIDEN".....
.".2. INHOUD TONEN VAN HET BESTAND".".|.
.".3. ZOEK IN HET BESTAND".A....".4. SOR
TEER PER ELEMENT".`.D/.".5. VERANDER IN
BESTAND".{../.".6. LABELS PRINTEN "....0
.".7. SAVEN VAN BESTAND"...P0.".8. STOP
MET HET PROGRAMMA".F.T0. 43100...81. H1
. 1 . T . 8 . 12500....1. H1 . 12900,195
00,23800,27100,30800,35100,40600,42300.*
..2. 11000.G.D2."...***** INVOER *****".
A.H2."==================".U.,3. N . 0 .
16500....3."..1. NIEUW BESTAND OPBOUWEN"
....3."..2. OUD BESTAND OPHALEN".D.X4. 4
3100....4. H1$."1" . H1$."2" . 13700...
5. 13400....5. H1$."2" . 17800....5N.1..
.L6."..".;..6."U KUNT NU ADRESSEN INVOER
EN".L..7.".OM MET INVOER TE EINDIGEN: TI
K -STOP- IN".T.X7.""....7. P . N . A1...
@8.".<";P;">"....8."=======".D..9. "NAAM
: ....";N$(P)....9.N$(P)."." ..".
.":. 14600...L9.N$(P)."STOP".15900...P9.
"ADRES : ....";A$(P).8.Z9.A$(P).".
" .."..":. 14800.P.4:.A$(P)."STOP".15900
.P..:. "POSTCODE : ....";P$(P)....:.P$
(P)."." .."..":. 15000....:.P$(P)."STOP"
.15900.F.`;. "WOONPLAATS : ....";W$(P)..
.J;.W$(P)."." .."..":. 15200...D;.W$(P).
"STOP".15900...(<. "TELEFOONNR : ....";T
$(P).:.2<.T$(P)."." .."..":. 15400.R..<.
T$(P)."STOP".15900.Z..<."".B.T=. P.J..=.
""...>.".EINDE INVOER"....>N . P . 1...
.>.".ER ZIJN NU";N;"ADRESSEN IN HET BEST
AND".X.H?."..RAAK EEN TOETS AAN"....?. 4
3100....@....T@.".ER ZIT AL EEN BESTAND
IN HET GEHEUGEN".6.X@.".1. NIET OVERSCHR
IJVEN".S.<A.".2. WEL OVERSCHRIJVEN"._. A
. 43100.Y..B. H1.1 . H1.2 . 17100...HB.
16500...LB. H1.2 . 13800...0C.".3. BESTA
ND UITBREIDEN".Y..C.".4. BESTAND NIET UI
TBREIDEN"....C. 43100...\D. H1 . 4 . ...
..DN.N.1...$E. 13900.5..E."..KLAAR OM BE
STAND OP TE HALEN...".D..E.".WELK BESTAN
D KIEST U ? ADRES.......";F$...PF.".BEST
AND ";F$;" WORDT OPGEHAALD"....F. 1,1,0,
F$....G.".BESTAND ";F$;" GEVONDEN"...|G.
".BESTAND ";F$;" WORDT INGELEZEN"....G.1
,N...DH. X . 1 . N....H.1,N$(X)....I.1,A
$(X).!.PI.1,P$(X)...TI.1,W$(X).;.8J.1,T$
(X).C..J. X.K..K 1.B.DK.J.0.A1:H%(J).J:
.J.H.HK....,L."...***** INHOUD *****"...
.L."==================".E..L."..WELKE AD
RESSEN WILT U ZIEN ?".W.XM."..1. ALLES".
...M.".2. EEN"... N.".3. BEREIK"....N. 4
3100."..N. H1 . 1 . H1 . 3 . 20100.8.LO.
H1 .. 1 . 20600.F..OT1.1:T2.N.R..P. 224
00.H.XP. H1 .. 2 . 21100....P.".WELK ADR
ESNUMMER ? ....";T1$....PT1.E(T1$)....P.
T1$.".".T1.0.."...":. 20700.P.@Q. T1 . N
. 22100.Z..QT2.T1....R. 22400...LR.".WA
T IS HET EERSTE ADRESNR. ? ....";T1$.".V
RT1.E(T1$).C..R.T1$.".".T1.0.."...":. 21
100.W.PR. T1 . 1 . T1.1.L.4S. T1 . N . 2
2100....S.".WAT IS HET LAATSTE ADRESNR.
? ....";T2$....ST2.E(T2$).J..S.T2$.".".T
2.0.."...":. 21400....S. T2 . N . 22100.
..`T. T2 .. T1 . 22400.!.DT.".FOUT !! L
AATSTE ADRES KLEINER DAN".:.(U.".EERSTE
ADRES... ".J..U."..RAAK EEN TOETS AAN VO
OR NOG EEN POGING".V..U. 19500...TV.".BE
STAND HEEFT SLECHTS ";N;" ADRESSEN...".V
..V."..RAAK EEN TOETS AAN VOOR NOG EEN P
OGING"...BV. 43100....W. 19500....W.".".
...W. W . T1 . T2...HXH8.H%(W).%..X."<";
W;">".4..Y."=======".<.TY."".I.XY. N$(H8
).V.<Z. A$(H8).O. Z. P$(H8);" ";W$(H8).
|..[. T$(H8)...H[.""...L[. 43100...0\. W
....\.....\."...***** ZOEKEN *****".U.\]
."=================="....]."..WAAR MOET
NAAR GEZOCHT WORDEN,".'.$^.".OFWEL WAT I
S DE SLEUTEL ? ....";Z$.A..^.Z$.".".."..
.":.24100.J..^F1.0.X..^F . C(Z$).L.P_.Z.
1.N:H8.H%(Z)...._. H (N$(H8),F) . Z$ . 2
5900....`. H (A$(H8),F) . Z$ . 25900.L.|
`. H (P$(H8),F) . Z$ . 25900....`. H (W$
(H8),F) . Z$ . 25900...DA. H (T$(H8),F)
. Z$ . 25900....A. Z.%..B. F1 . 1 . ..R.
PB.".SLEUTEL KOMT NIET IN BESTAND VOOR..
."...TB.".1. WILT U EEN NIEUWE SLEUTEL I
NVOEREN". .8C.".2. TERUG NAAR HOOFDMENU"
....C. 43100.J..D. H1 . 1 . H1 . 2 . 255
00...DD. H1 . 2 . ....HD. 23800...,E."".
...EF1.1....E.".ADRES MET SLEUTELWOORD:"
.7.XF."-----------------------".F..F."<"
;Z;">".R. G.N$(H8).^..G.A$(H8).V..G.P$(H
8);" ";W$(H8)...LH."(";T$(H8);")"....H.
43100....I. Z . N . ....XI. 25000.Q..I.
"...***** SORTEREN *****"...@J."========
============"....J."..WAAROP MOET GESORT
EERD WORDEN ?".'..K."..1. NAAM".8.LK.".2
. ADRES".L.PK.".3. POSTCODE".B.4L.".4. W
OONPLAATS".X..L.".5. TELEFOONNR"....L. 4
3100...`M. H1 . 1 . H1 . 5 . 27900.S.DM.
".SORTEREN KOST ZELFS EEN COMPUTER TIJD.
.."...(N. 28700....N.".BESTAND GESORTEER
D "....N. 43100...TO../..O. ***** SORTEE
R ROUTINE *****.C..PN9.N.1:X.0:H9.0.`..P
B.N9.1:.J.0.B:I%(J).J:.J.R..P.J.0.N9.2.3
.2...HQB.B.1:I1.I%(J):I2.I%(J.1)....Q.30
200....RI%(B).I:.J.C.TRX.X.1:C.I%(B):.C.
0...X.XRH%(H9).C:H9.H9.1...<SI%(C).X...
SC%.C.2:J.C%.2:C.N9.C%:.C.B .29300."..TI
1.I%(J):I2.I%(J.1).8.HT.I1.0.I.I2:.30100
.N.LT.I2.0.I.I1:.30100.Y.0U.30200.L..UI%
(C).I:.29600....U.H1.1. I.I1:.N$(I2).N$(
I1).I.I2...\V.H1.2. I.I1:.A$(I2).A$(I1).
I.I2.X..V.H1.3. I.I1:.P$(I2).P$(I1).I.I2
...$W.H1.4. I.I1:.W$(I2).W$(I1).I.I2. ..
W.H1.5. I.I1:.T$(I2).T$(I1).I.I2.&..W..E
.PX."...***** VERANDER *****".A..X."====
================".U..Y. N . 0 . 31500...
|Y.".ER IS GEEN BESTAND IN DE COMPUTER..
."....Y."..RAAK EEN TOETS AAN".J.DZ. 431
00.P..Z.....{.".WELK ADRESNR. WILT U VER
ANDEREN ? ....";Z3$....{Z.E(Z3$)./. {.Z3
$.".".Z.0.."...":.31500.F.P{.Z.N.."...":
.31500.S.T{H8.H%(Z)...8|. PRINT".HET GEV
RAAGDE ADRES WORDT NU REGEL"....|. PRINT
".NA REGEL GETOOND. ALS EEN REGEL OP HET
"....}. PRINT".SCHERM VERSCHIJNT KUNT U
DE REGEL KORRI-"...D}. PRINT"GEREN. DRUK
DAARNA OP .RETURN. .".D.N}.".WIJZIG AL
OF NIET DE REGEL EN".F.X}.".DRUK DAARNA
OP .RETURN. ."....~. ".. ";N
$(H8)...X. ".NAAM : ..";V$... .N$
(H8).V$.L.... " ";A$(H8)....
.. ".ADRES : ..";V$.....A$(H8).V$..
.... " ";P$(H8)./.X.. ".POST
CODE : ..";V$.=.@.P$(H8).V$.Z.... "
";W$(H8).V.... ".WOONPLAATS :
..";V$...P.W$(H8).V$...4.. "
";T$(H8)...... ".TELEFOONNR : ..";V$...
... H (V$,2) . "$$" . 34500...`.T$(H8).V
$.. D.."..1. NOG EEN ADRES VERANDEREN"..
(..".2. TERUG NAAR HOOFDMENU".: ... 431
00.X ... H1 . 1 . H1 . 2 . 34700.I T.. H
1 . 2 . ..U ... 30800.. ..."...***** LAB
ELS *****".. ..."===================".H
...".1. ALLES AFDRUKKEN".. H..".2. SELEK
TIE OP TELEFOONNR".. ... 43100..!... H1
. 1 . H1 . 2 . 35500.)!T.. H1 . 2 . 3720
0.5!X.. 39000.M!<.. PRINTER AANROEPEN.A!
..E.1.N:H8.H%(E).M!... 43100.U!H..:...!
L.. N$(H8)..!0.. A$(H8)..!... P$(H8);"
";W$(H8)..!...:.:.:...!\.. E..!..."DIT W
AREN ";E.1;" ADRESSEN"..!$.. 43100.."...
PRINTER UITZETTEN.."....3"P.."..WAT IS
TELEFOONNR KEUZE ? ....";H$.?"... 39000.
W"... PRINTER AANROEPEN._"|.E.0.S"...K.1
.N:H8.H%(K).."D.. T$(H8) .. H$ . 38500..
"... 43100.."..E.E.1.."P..:..."T.. N$(H8
).F"8.. A$(H8).."... P$(H8);" ";W$(H8).
."...:.:.:..."D.. K..#H.."DIT WAREN ";E;
" ADRESSEN"..#,.. 43100.7#... PRINTER UI
TZETTEN.=#....F#X.."...ER WORDEN EERST T
EST-ETIKETTEN"..#...".AFGEDRUKT OM DE IN
STELLING VAN DE"..# ..".PRINTER TE CONTR
OLEREN".G#... PRINTER AANROEPEN.O#...:..
.#L.. D . 1 . 3..#..."XXXXXXXXXXXXXXXXXX
XXX"..$... D..$X..:.:.:..($... PRINTER U
ITZETTEN.H$@.."..1. INSTELLING VERKEERD"
.C$...".2. INSTELLING O.K.".O$... 43100.
.$L.. H1 . 1 . H1 . 2 . 40200..$P.. H1 .
1 . 39300..$4...F$..."...***** BEWAREN
*****"..$..."==================="..%`.."
..GEEF NAAM WAARONDER BESTAND MOET ".8%D
..".WORDEN OPGEBORGEN ? ADRES.......";F$
.F%( .".BESTAND ";F$;" WORDT NU WEGGESCH
REVEN".U%. . 2,1,2,F$.~%. .2,N..%T..L.1.
N:H8.H%(L). %...2,N$(H8)..%...2,A$(H8)..
%...2,P$(H8).J%...2,W$(H8).X%H..2,T$(H8)
..%... L..%...2,"EOF"..%T. 2..%X....&<.
."...***** EINDE *****".0& .."==========
=======".X&..."..1. BESTAND NOG NIET OPG
EBORGEN".Y&H..".2. BESTAND AL OPGEBORGEN
"..&L.. 43100..&0.. H1 . 1 . H1 . 2 . 42
700..&... H1 .. 2 . ...&....R&\..H1$:.H1
$."".43100..&..H1.E(H1$):....
> CLICK IMAGE PREVIEW FOR FULL MODAL