ADRESSENBESTAND

00000000: 01 08 1D 08 05 00 99 C7  28 31 34 29 3A 97 36 35  |........(14):.65|
00000010: 37 2C 31 32 38 3A 97 37  38 38 2C 35 32 00 3A 08  |7,128:.788,52.:.|
00000020: 0A 00 89 39 30 30 30 3A  8F 20 28 43 29 20 42 59  |...9000:. (C) BY|
00000030: 20 48 45 49 54 52 4F 4E  49 43 00 60 08 0B 00 8F  | HEITRONIC.`....|
00000040: 20 56 45 52 41 4E 44 45  52 49 4E 47 45 4E 20 44  | VERANDERINGEN D|
00000050: 4F 4F 52 20 42 2E 20 56  2E 44 2E 20 48 4F 45 4B  |OOR B. V.D. HOEK|
00000060: 00 82 08 0C 00 8F 20 2A  2A 2A 20 4A 41 4E 2E 20  |...... *** JAN. |
00000070: 27 38 34 20 20 44 52 45  49 53 43 48 4F 52 20 2A  |'84  DREISCHOR *|
00000080: 2A 2A 00 91 08 14 00 A1  43 24 3A 8B 43 24 89 32  |**......C$:.C$.2|
00000090: 30 00 AE 08 19 00 A1 43  24 3A 8B 43 24 A7 99 22  |0......C$:.C$.."|
000000A0: 20 9D 22 3B 3A 43 B2 C6  28 43 24 29 3A 8E 00 BD  | .";:C..(C$):...|
000000B0: 08 1B 00 99 22 A4 9D 22  3B 3A 89 32 35 00 D1 08  |...."..";:.25...|
000000C0: 64 00 A0 31 3A 8F 20 4D  45 4E 55 20 45 4E 54 52  |d..1:. MENU ENTR|
000000D0: 59 00 06 09 6E 00 99 22  93 12 20 20 20 20 20 20  |Y...n.."..      |
000000E0: 20 20 20 20 20 20 20 20  20 C1 44 52 45 53 53 20  |         .DRESS |
000000F0: 36 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |64              |
00000100: 20 20 92 11 11 22 00 19  09 78 00 99 22 C6 55 4E  |  ..."...x..".UN|
00000110: 43 54 49 45 53 3A 11 11  22 00 3E 09 7D 00 99 2C  |CTIES:..".>.}..,|
00000120: 22 12 C9 92 4E 56 4F 45  52 45 4E 20 56 41 4E 20  |"...NVOEREN VAN |
00000130: CE 41 41 4D 20 45 4E 20  C1 44 52 45 53 22 00 62  |.AAM EN .DRES".b|
00000140: 09 82 00 99 2C 22 12 DA  92 4F 45 4B 45 4E 20 56  |....,"...OEKEN V|
00000150: 41 4E 20 45 45 4E 20 CE  41 41 4D 2F C1 44 52 45  |AN EEN .AAM/.DRE|
00000160: 53 22 00 89 09 8C 00 99  2C 22 12 C1 92 46 44 52  |S"......,"...FDR|
00000170: 55 4B 4B 45 4E 20 56 41  4E 20 45 45 4E 20 CE 41  |UKKEN VAN EEN .A|
00000180: 41 4D 2F C1 44 52 45 53  22 00 A4 09 96 00 99 2C  |AM/.DRES"......,|
00000190: 22 12 CD 92 41 49 4C 49  4E 47 20 41 44 52 45 53  |"...AILING ADRES|
000001A0: 53 45 4E 22 00 C5 09 A0  00 99 2C 22 12 D4 92 45  |SEN"......,"...E|
000001B0: 4C 45 46 4F 4F 4E 42 4F  45 4B 20 41 46 44 52 55  |LEFOONBOEK AFDRU|
000001C0: 4B 4B 45 4E 22 00 ED 09  AA 00 99 2C 22 12 CF 92  |KKEN"......,"...|
000001D0: 50 53 4C 41 41 4E 20 56  41 4E 20 44 45 20 CE 41  |PSLAAN VAN DE .A|
000001E0: 4D 45 4E 2F 41 44 52 45  53 53 45 4E 22 00 07 0A  |MEN/ADRESSEN"...|
000001F0: B4 00 99 2C 22 12 C5 92  49 4E 44 45 20 50 52 4F  |...,"...INDE PRO|
00000200: 47 52 41 4D 4D 41 22 00  2D 0A BE 00 99 22 11 CB  |GRAMMA".-...."..|
00000210: 45 55 5A 45 20 20 20 20  22 3B 3A 58 24 B2 22 45  |EUZE    ";:X$."E|
00000220: 49 5A 41 4D 4F 54 22 3A  8D 38 30 36 30 00 52 0A  |IZAMOT":.8060.R.|
00000230: FA 00 91 49 89 34 30 30  30 2C 35 30 30 30 2C 37  |...I.4000,5000,7|
00000240: 30 30 30 2C 36 30 30 30  2C 33 30 30 30 2C 37 31  |000,6000,3000,71|
00000250: 30 30 00 8C 0A 04 01 99  22 93 11 C2 4C 41 44 20  |00......"...LAD |
00000260: 55 49 54 20 50 52 49 4E  54 45 52 22 3B 3A 8D 38  |UIT PRINTER";:.8|
00000270: 30 35 30 3A 8B 49 B2 30  A7 9F 31 2C 30 34 3A 4C  |050:.I.0..1,04:L|
00000280: B2 2E 31 3A 8D 37 39 35  30 3A A0 31 00 C5 0A 0E  |..1:.7950:.1....|
00000290: 01 8B 4F 46 A7 99 22 11  CF 50 53 4C 41 41 4E 20  |..OF.."..PSLAAN |
000002A0: 56 41 4E 20 44 45 20 2A  CE 41 4D 45 20 CC 49 53  |VAN DE *.AME .IS|
000002B0: 54 2A 22 3B 3A 8D 38 30  35 30 3A 8B 49 B2 30 A7  |T*";:.8050:.I.0.|
000002C0: 8D 33 30 32 30 00 DD 0A  18 01 A0 31 3A 99 22 93  |.3020......1:.".|
000002D0: 11 C4 41 41 41 41 41 41  47 21 22 3A 80 00 F3 0A  |..AAAAAAG!":....|
000002E0: 2C 01 8F 20 46 4F 52 4D  41 54 20 54 48 45 20 4C  |,.. FORMAT THE L|
000002F0: 49 4E 45 00 23 0B 36 01  58 24 B2 54 24 28 54 2C  |INE.#.6.X$.T$(T,|
00000300: 30 29 3A 59 24 B2 54 24  28 54 2C 31 29 3A 8B C3  |0):Y$.T$(T,1):..|
00000310: 28 59 24 29 B1 31 A7 58  24 B2 59 24 AA 22 20 22  |(Y$).1.X$.Y$." "|
00000320: AA 58 24 00 48 0B 40 01  59 24 B2 54 24 28 54 2C  |.X$.H.@.Y$.T$(T,|
00000330: 32 29 3A 8B C3 28 59 24  29 B1 31 A7 58 24 B2 59  |2):..(Y$).1.X$.Y|
00000340: 24 AA 22 20 22 AA 58 24  00 6E 0B 4A 01 59 24 B2  |$." ".X$.n.J.Y$.|
00000350: 54 24 28 54 2C 33 29 3A  8B C3 28 59 24 29 B1 31  |T$(T,3):..(Y$).1|
00000360: A7 58 24 B2 58 24 AA 22  2C 20 22 AA 59 24 00 B0  |.X$.X$.", ".Y$..|
00000370: 0B 5E 01 41 24 28 4A 2C  30 29 B2 58 24 3A 81 49  |.^.A$(J,0).X$:.I|
00000380: B2 31 A4 33 3A 41 24 28  4A 2C 49 29 B2 22 22 3A  |.1.3:A$(J,I)."":|
00000390: 59 24 B2 54 24 28 54 2C  49 AA 33 29 3A 8B C3 28  |Y$.T$(T,I.3):..(|
000003A0: 59 24 29 B1 31 A7 41 24  28 4A 2C 49 29 B2 59 24  |Y$).1.A$(J,I).Y$|
000003B0: 00 E1 0B 68 01 82 3A 8B  C3 28 54 24 28 54 2C 37  |...h..:..(T$(T,7|
000003C0: 29 29 B1 31 A7 41 24 28  4A 2C 33 29 B2 41 24 28  |)).1.A$(J,3).A$(|
000003D0: 4A 2C 33 29 AA 22 2C 20  22 AA 54 24 28 54 2C 37  |J,3).", ".T$(T,7|
000003E0: 29 00 08 0C 72 01 41 24  28 4A 2C 34 29 B2 54 24  |)...r.A$(J,4).T$|
000003F0: 28 54 2C 38 29 3A 58 B2  C6 28 54 24 28 54 2C 39  |(T,8):X..(T$(T,9|
00000400: 29 29 AF 31 32 37 3A 8E  00 17 0C 4B 02 42 4C 4F  |)).127:....K.BLO|
00000410: 43 4B 53 20 B8 45 2E 00  29 0C B8 0B 8F 20 4F 55  |CKS .E..).... OU|
00000420: 54 50 55 54 20 46 49 4C  45 00 38 0C C2 0B 8D 33  |TPUT FILE.8....3|
00000430: 30 32 30 3A 89 31 30 30  00 55 0C CC 0B 59 24 B2  |020:.100.U...Y$.|
00000440: 48 24 3A 8D 33 35 30 30  3A 8B C5 28 58 24 29 89  |H$:.3500:..(X$).|
00000450: 36 30 30 30 30 00 5E 0C  D6 0B 8B 58 A7 8E 00 6F  |60000.^....X...o|
00000460: 0C 1C 0C 4F 46 B2 30 3A  98 31 2C 44 24 3A 99 00  |...OF.0:.1,D$:..|
00000470: 8C 0C 4E 0C 81 49 B2 30  A4 4E 58 3A 54 B2 54 25  |..N..I.0.NX:T.T%|
00000480: 28 49 29 3A 99 54 24 28  54 2C 30 29 00 A7 0C 58  |(I):.T$(T,0)...X|
00000490: 0C 81 4A B2 30 A4 39 3A  98 31 2C 54 24 28 54 2C  |..J.0.9:.1,T$(T,|
000004A0: 4A 29 3A 82 4A 2C 49 00  BF 0C 76 0C 98 31 2C 22  |J):.J,I...v..1,"|
000004B0: 5C 22 3A 8E 3A 8F 20 43  4F 4D 50 4C 45 54 45 00  |\":.:. COMPLETE.|
000004C0: DC 0C AC 0D 8F 20 4F 50  45 4E 20 54 48 45 20 46  |..... OPEN THE F|
000004D0: 49 4C 45 20 54 4F 20 57  52 49 54 45 00 0E 0D C0  |ILE TO WRITE....|
000004E0: 0D 44 46 B2 30 3A 58 B2  30 3A 58 24 B2 22 22 3A  |.DF.0:X.0:X$."":|
000004F0: 8B 43 46 B1 32 A7 99 22  93 CF 50 20 43 41 53 53  |.CF.2.."..P CASS|
00000500: 45 54 54 45 20 20 22 3B  3A 8D 38 30 35 30 00 2F  |ETTE  ";:.8050./|
00000510: 0D CA 0D 8B 43 46 B2 32  B0 28 43 46 B2 33 AF 49  |....CF.2.(CF.3.I|
00000520: B2 30 29 A7 9F 31 2C 31  2C 31 2C 59 24 3A 8E 00  |.0)..1,1,1,Y$:..|
00000530: 61 0D DE 0D 44 46 B2 AB  31 3A 4C 24 B2 22 30 3A  |a...DF..1:L$."0:|
00000540: 22 AA 59 24 3A 9F 31 2C  30 38 2C 32 2C 4C 24 3A  |".Y$:.1,08,2,L$:|
00000550: 84 38 2C 58 3A 20 20 A0  31 3A 8B 58 89 33 35 38  |.8,X:  .1:.X.358|
00000560: 30 00 9D 0D E8 0D 99 3A  99 22 11 C2 45 53 54 41  |0......:."..ESTA|
00000570: 4E 44 20 42 45 53 54 41  41 54 20 41 4C 2D 20 4F  |ND BESTAAT AL- O|
00000580: 56 45 52 53 43 48 52 49  4A 56 45 4E 22 3B 3A 8D  |VERSCHRIJVEN";:.|
00000590: 38 30 35 30 3A 8B 49 A7  58 B2 31 3A 8E 00 B1 0D  |8050:.I.X.1:....|
000005A0: F2 0D 98 38 2C 22 53 22  4C 24 3A 98 38 2C 22 49  |...8,"S"L$:.8,"I|
000005B0: 30 00 D1 0D FC 0D 9F 31  2C 30 38 2C 33 2C 4C 24  |0......1,08,3,L$|
000005C0: AA 22 2C 53 2C 57 22 3A  84 38 2C 58 2C 58 24 3A  |.",S,W":.8,X,X$:|
000005D0: 8E 00 E7 0D A0 0F 8F 20  43 52 45 41 54 45 20 41  |....... CREATE A|
000005E0: 4E 20 45 4E 54 52 59 00  17 0E AA 0F 8B 4E 58 B1  |N ENTRY......NX.|
000005F0: B2 56 A7 99 22 11 12 20  C7 45 45 4E 20 52 55 49  |.V..".. .EEN RUI|
00000600: 4D 54 45 20 4D 45 45 52  20 20 21 22 3A 8D 38 30  |MTE MEER  !":.80|
00000610: 30 30 3A 89 31 30 30 00  3F 0E B4 0F 4E 58 B2 4E  |00:.100.?...NX.N|
00000620: 58 AA 31 3A 4B B2 4E 58  3A 54 B2 54 25 28 4B 29  |X.1:K.NX:T.T%(K)|
00000630: 3A 54 24 28 54 2C 39 29  B2 C7 28 31 32 38 29 00  |:T$(T,9)..(128).|
00000640: 64 0E 04 10 4F 46 B2 31  3A 4D B2 33 39 3A 59 B2  |d...OF.1:M.39:Y.|
00000650: 30 3A 8F 20 47 45 54 20  4E 41 4D 45 2F 41 44 44  |0:. GET NAME/ADD|
00000660: 52 45 53 53 00 71 0E 0E  10 4A B2 30 3A 8D 33 30  |RESS.q...J.0:.30|
00000670: 30 00 A3 0E 18 10 99 22  93 20 22 3B 3A 81 49 B2  |0......". ";:.I.|
00000680: 31 A4 33 30 3A 99 22 A4  22 3B 3A 82 3A 81 49 B2  |1.30:.".";:.:.I.|
00000690: 31 A4 35 3A 99 22 11 A5  9D 22 3B 3A 82 3A 99 22  |1.5:."...";:.:."|
000006A0: 11 22 3B 00 CE 0E 1A 10  81 49 B2 31 A4 33 30 3A  |.";......I.1.30:|
000006B0: 99 22 9D A3 9D 22 3B 3A  82 3A 81 49 B2 31 A4 35  |."...";:.:.I.1.5|
000006C0: 3A 99 22 91 9D A7 22 3B  3A 82 3A 99 22 13 00 F1  |:."...";:.:."...|
000006D0: 0E 22 10 81 49 B2 30 A4  34 3A 99 22 1D 22 41 24  |."..I.0.4:."."A$|
000006E0: 28 4A 2C 49 29 3A 82 3A  8B 59 B1 38 89 34 32 30  |(J,I):.:.Y.8.420|
000006F0: 30 00 17 0F 36 10 99 22  13 11 11 11 11 11 11 11  |0...6.."........|
00000700: 11 11 22 42 30 24 3A 99  22 91 22 46 24 28 59 29  |.."B0$:."."F$(Y)|
00000710: 3A 99 42 30 24 22 91 00  2D 0F 3B 10 8D 38 32 30  |:.B0$"..-.;..820|
00000720: 30 3A 8B 43 B3 B1 31 33  89 34 31 32 30 00 57 0F  |0:.C..13.4120.W.|
00000730: 3D 10 99 3A 8B C9 28 58  24 2C 31 29 B2 22 20 22  |=..:..(X$,1)." "|
00000740: A7 58 24 B2 C8 28 58 24  2C C3 28 58 24 29 AB 31  |.X$..(X$,.(X$).1|
00000750: 29 3A 89 34 31 35 37 00  86 0F 40 10 8B 58 24 B2  |):.4157...@..X$.|
00000760: 22 22 AF 54 24 28 54 2C  59 29 B1 22 22 A7 59 B2  |"".T$(T,Y)."".Y.|
00000770: 59 AA 31 3A 91 32 AA 28  59 B3 39 29 89 34 31 35  |Y.1:.2.(Y.9).415|
00000780: 30 2C 34 31 31 30 00 98  0F 4A 10 8B C3 28 58 24  |0,4110...J...(X$|
00000790: 29 B1 31 89 34 31 39 30  00 CB 0F 54 10 58 24 B2  |).1.4190...T.X$.|
000007A0: 22 2D 22 3A 8B 59 B2 30  A7 99 22 11 D7 49 53 53  |"-":.Y.0.."..ISS|
000007B0: 45 4E 20 20 22 3B 3A 8D  38 30 35 30 3A 91 49 AA  |EN  ";:.8050:.I.|
000007C0: 31 89 34 39 30 30 2C 34  31 31 30 00 E6 0F 5E 10  |1.4900,4110...^.|
000007D0: 54 24 28 54 2C 59 29 B2  58 24 3A 59 B2 59 AA 31  |T$(T,Y).X$:Y.Y.1|
000007E0: 3A 89 34 31 31 30 00 0B  10 68 10 58 24 B2 22 31  |:.4110...h.X$."1|
000007F0: 32 33 34 35 36 37 22 AA  52 24 3A 8F 20 47 45 54  |234567".R$:. GET|
00000800: 20 43 41 54 45 47 4F 52  49 45 53 00 28 10 72 10  | CATEGORIES.(.r.|
00000810: 99 22 13 11 11 11 11 11  11 11 11 C3 41 54 45 47  |."..........ATEG|
00000820: 4F 52 49 45 45 4E 3A 22  00 43 10 7C 10 81 49 B2  |ORIEEN:".C.|..I.|
00000830: 30 A4 36 3A 99 2C 3A 8B  58 AF 32 AE 49 A7 99 22  |0.6:.,:.X.2.I.."|
00000840: 12 22 3B 00 56 10 86 10  99 49 AA 31 22 92 22 4B  |.";.V....I.1"."K|
00000850: 24 28 49 29 3A 82 00 86  10 90 10 99 22 11 C8 4F  |$(I):......."..O|
00000860: 45 20 54 4F 45 57 49 4A  5A 45 4E 2F 57 49 53 53  |E TOEWIJZEN/WISS|
00000870: 45 4E 20 3F 20 20 20 9D  22 3B 3A 8D 38 30 37 30  |EN ?   .";:.8070|
00000880: 3A 49 B2 32 AE 49 00 A5  10 9A 10 58 B2 28 58 B0  |:I.2.I.....X.(X.|
00000890: 49 29 AF A8 28 58 AF 49  29 3A 8B 58 B3 31 32 38  |I)..(X.I):.X.128|
000008A0: 89 34 32 31 30 00 C6 10  CC 10 54 24 28 54 2C 39  |.4210.....T$(T,9|
000008B0: 29 B2 C7 28 58 29 3A 8F  20 43 4F 4D 50 4C 45 54  |)..(X):. COMPLET|
000008C0: 45 20 45 44 49 54 00 F1  10 D6 10 99 22 91 91 22  |E EDIT......".."|
000008D0: 42 30 24 3A 99 22 91 C1  4C 4C 45 53 20 4F 4B 20  |B0$:."..LLES OK |
000008E0: 20 22 3B 3A 8D 38 30 35  30 3A 8B 49 89 34 31 30  | ";:.8050:.I.410|
000008F0: 30 00 12 11 E0 10 8B 4E  58 B3 31 89 31 30 30 3A  |0......NX.1.100:|
00000900: 8F 20 4D 55 53 54 20 42  45 20 49 4E 20 4F 52 44  |. MUST BE IN ORD|
00000910: 45 52 00 4C 11 EA 10 58  24 B2 54 24 28 54 2C 30  |ER.L...X$.T$(T,0|
00000920: 29 3A 8B 4B B3 4E 58 A7  81 49 B2 4B A4 4E 58 AB  |):.K.NX..I.K.NX.|
00000930: 31 3A 54 25 28 49 29 B2  54 25 28 49 AA 31 29 3A  |1:T%(I).T%(I.1):|
00000940: 82 3A 8F 20 52 45 4D 4F  56 45 20 54 00 7E 11 F4  |.:. REMOVE T.~..|
00000950: 10 81 49 B2 30 A4 4E 58  AB 31 3A 8B 54 24 28 54  |..I.0.NX.1:.T$(T|
00000960: 25 28 49 29 2C 30 29 B3  58 24 A7 82 3A 8F 20 4C  |%(I),0).X$..:. L|
00000970: 4F 43 41 54 45 20 54 27  53 20 53 4C 4F 54 00 BB  |OCATE T'S SLOT..|
00000980: 11 FE 10 8B 49 B3 4E 58  A7 4A B2 49 AA 31 3A 81  |....I.NX.J.I.1:.|
00000990: 49 B2 4E 58 A4 4A A9 AB  31 3A 54 25 28 49 29 B2  |I.NX.J..1:T%(I).|
000009A0: 54 25 28 49 AB 31 29 3A  82 3A 8F 20 4D 41 4B 45  |T%(I.1):.:. MAKE|
000009B0: 20 52 4F 4F 4D 20 46 4F  52 20 54 00 DD 11 08 11  | ROOM FOR T.....|
000009C0: 54 25 28 49 29 B2 54 3A  89 31 30 30 3A 8F 20 49  |T%(I).T:.100:. I|
000009D0: 4E 53 45 52 54 20 54 2C  20 45 58 49 54 00 F5 11  |NSERT T, EXIT...|
000009E0: 24 13 8F 20 43 4C 45 41  4E 20 55 50 20 44 45 4C  |$.. CLEAN UP DEL|
000009F0: 45 54 49 4F 4E 00 0D 12  2E 13 81 49 B2 30 A4 39  |ETION......I.0.9|
00000A00: 3A 54 24 28 54 2C 49 29  B2 22 22 3A 82 00 3E 12  |:T$(T,I)."":..>.|
00000A10: 38 13 4E 58 B2 4E 58 AB  31 3A 81 49 B2 4B A4 4E  |8.NX.NX.1:.I.K.N|
00000A20: 58 3A 54 25 28 49 29 B2  54 25 28 49 AA 31 29 3A  |X:T%(I).T%(I.1):|
00000A30: 82 3A 54 25 28 49 29 B2  54 3A 89 31 30 30 00 59  |.:T%(I).T:.100.Y|
00000A40: 12 88 13 8F 20 53 45 4C  45 43 54 2F 45 44 49 54  |.... SELECT/EDIT|
00000A50: 20 41 4E 20 45 4E 54 52  59 00 80 12 92 13 99 22  | AN ENTRY......"|
00000A60: 93 22 3A 99 22 DA 4F 45  4B 45 4E 20 4E 41 41 52  |.":.".OEKEN NAAR|
00000A70: 3A 20 20 12 C1 92 43 48  54 45 52 4E 41 41 4D 22  |:  ...CHTERNAAM"|
00000A80: 00 97 12 9C 13 99 2C 22  20 20 20 20 12 D6 92 4F  |......,"    ...O|
00000A90: 4F 52 4E 41 41 4D 22 00  B2 12 A6 13 99 2C 22 20  |ORNAAM"......," |
00000AA0: 20 20 20 12 D0 92 4C 41  41 54 53 2F 41 44 52 45  |   ...LAATS/ADRE|
00000AB0: 53 22 00 C5 12 B0 13 99  2C 22 20 20 20 20 12 CC  |S"......,"    ..|
00000AC0: 92 41 4E 44 22 00 DC 12  BA 13 99 2C 22 20 20 20  |.AND"......,"   |
00000AD0: 20 12 D4 92 45 4C 45 46  4F 4F 4E 22 00 08 13 CE  | ...ELEFOON"....|
00000AE0: 13 99 22 11 CB 45 55 5A  45 20 20 20 20 22 3B 3A  |.."..EUZE    ";:|
00000AF0: 58 24 B2 22 41 56 58 58  58 58 50 4C 54 22 3A 8D  |X$."AVXXXXPLT":.|
00000B00: 38 30 36 30 3A 46 B2 49  00 37 13 D8 13 4D B2 34  |8060:F.I.7...M.4|
00000B10: 30 3A 99 22 11 DA 4F 45  4B 45 4E 20 4E 41 41 52  |0:."..OEKEN NAAR|
00000B20: 3A 22 3B 3A 8D 38 32 30  30 3A 5A 24 B2 58 24 3A  |:";:.8200:Z$.X$:|
00000B30: 5A B2 C3 28 5A 24 29 00  52 13 EC 13 4B B2 30 3A  |Z..(Z$).R...K.0:|
00000B40: 8F 20 53 45 41 52 43 48  20 46 4F 52 20 46 49 45  |. SEARCH FOR FIE|
00000B50: 4C 44 00 6D 13 F6 13 54  B2 54 25 28 4B 29 3A 58  |LD.m...T.T%(K):X|
00000B60: 24 B2 54 24 28 54 2C 46  29 3A 59 B2 30 00 9F 13  |$.T$(T,F):Y.0...|
00000B70: 00 14 81 49 B2 31 A4 C3  28 58 24 29 AB 5A AA 31  |...I.1..(X$).Z.1|
00000B80: 3A 59 B2 28 CA 28 58 24  2C 49 2C 5A 29 B2 5A 24  |:Y.(.(X$,I,Z).Z$|
00000B90: 29 B0 59 3A 82 3A 8B 59  B2 30 89 35 31 35 30 00  |).Y:.:.Y.0.5150.|
00000BA0: C3 13 0A 14 4A B2 30 3A  8D 33 30 30 3A 99 22 93  |....J.0:.300:.".|
00000BB0: 22 3A 81 49 B2 30 A4 34  3A 99 41 24 28 30 2C 49  |":.I.0.4:.A$(0,I|
00000BC0: 29 3A 82 00 EB 13 14 14  99 22 11 D6 45 52 44 45  |):......."..ERDE|
00000BD0: 52 20 5A 4F 45 4B 45 4E  20 20 20 22 3B 3A 8D 38  |R ZOEKEN   ";:.8|
00000BE0: 30 35 30 3A 8B 49 89 35  31 38 30 00 01 14 1E 14  |050:.I.5180.....|
00000BF0: 4B B2 4B AA 31 3A 8B 4B  B3 B2 4E 58 89 35 31 31  |K.K.1:.K..NX.511|
00000C00: 30 00 24 14 28 14 99 3A  99 22 11 C1 4C 4C 45 53  |0.$.(..:."..LLES|
00000C10: 20 47 45 54 45 53 54 20  22 3A 8D 38 30 30 30 3A  | GETEST ":.8000:|
00000C20: 89 31 30 30 00 49 14 3C  14 99 22 11 D7 49 4A 5A  |.100.I.<.."..IJZ|
00000C30: 49 47 45 4E 22 3B 3A 8D  38 30 35 30 3A 91 49 89  |IGEN";:.8050:.I.|
00000C40: 31 30 30 3A 89 34 31 30  30 00 65 14 70 17 8F 20  |100:.4100.e.p.. |
00000C50: 46 49 4C 45 20 46 4F 52  20 57 4F 52 44 20 4D 41  |FILE FOR WORD MA|
00000C60: 43 48 49 4E 45 00 9B 14  7A 17 99 22 93 CE 41 41  |CHINE...z.."..AA|
00000C70: 4D 20 56 41 4E 20 48 45  54 20 42 45 53 54 41 4E  |M VAN HET BESTAN|
00000C80: 44 3A 22 3B 3A 4D B2 31  36 3A 8D 38 32 30 30 3A  |D:";:M.16:.8200:|
00000C90: 8B 58 24 B2 22 22 89 36  30 31 30 00 B8 14 84 17  |.X$."".6010.....|
00000CA0: 59 24 B2 58 24 3A 8D 33  35 30 30 3A 8B C5 28 58  |Y$.X$:.3500:..(X|
00000CB0: 24 29 89 36 30 30 30 30  00 C3 14 8E 17 8B 58 89  |$).60000......X.|
00000CC0: 31 30 30 00 F5 14 A2 17  8D 37 32 30 30 3A 99 22  |100......7200:."|
00000CD0: 11 D3 50 45 43 49 41 4C  45 20 4B 45 55 5A 45 20  |..PECIALE KEUZE |
00000CE0: 22 3B 3A 8D 38 30 35 30  3A 53 46 B2 49 3A 4A B2  |";:.8050:SF.I:J.|
00000CF0: 30 3A 4B B2 30 00 18 15  AC 17 54 B2 54 25 28 4B  |0:K.0.....T.T%(K|
00000D00: 29 3A 8B 28 46 AF C6 28  54 24 28 54 2C 39 29 29  |):.(F..(T$(T,9))|
00000D10: 29 B2 30 89 36 31 38 30  00 2F 15 B6 17 8B 53 46  |).0.6180./....SF|
00000D20: A7 99 54 24 28 54 2C 30  29 3A 89 36 31 30 30 00  |..T$(T,0):.6100.|
00000D30: 4F 15 C0 17 8D 33 30 30  3A 99 22 93 22 3A 81 49  |O....300:.".":.I|
00000D40: B2 30 A4 33 3A 99 41 24  28 4A 2C 49 29 3A 82 00  |.0.3:.A$(J,I):..|
00000D50: 77 15 CA 17 99 22 11 CF  56 45 52 4E 45 4D 45 4E  |w...."..VERNEMEN|
00000D60: 20 20 20 20 20 20 20 22  3B 3A 8D 38 30 35 30 3A  |       ";:.8050:|
00000D70: 8B 49 89 36 31 38 30 00  8D 15 D4 17 8F 20 4F 55  |.I.6180...... OU|
00000D80: 54 50 55 54 20 54 48 45  20 46 49 4C 45 00 AE 15  |TPUT THE FILE...|
00000D90: DE 17 81 49 B2 30 A4 37  3A 98 31 2C 54 24 28 54  |...I.0.7:.1,T$(T|
00000DA0: 2C 49 29 3A 82 3A 44 46  B2 B6 28 44 46 29 00 C4  |,I):.:DF..(DF)..|
00000DB0: 15 24 18 4B B2 4B AA 31  3A 8B 4B B3 B2 4E 58 89  |.$.K.K.1:.K..NX.|
00000DC0: 36 30 36 30 00 FA 15 2E  18 98 31 2C 22 5C 22 3A  |6060......1,"\":|
00000DD0: 8B 44 46 B1 AB 31 A7 91  53 46 AA 31 89 36 32 32  |.DF..1..SF.1.622|
00000DE0: 30 2C 31 30 30 3A 8F 20  20 2D 31 3D 45 4D 50 54  |0,100:.  -1=EMPT|
00000DF0: 59 20 44 49 53 43 46 49  4C 45 00 23 16 38 18 99  |Y DISCFILE.#.8..|
00000E00: 22 11 C7 45 45 4E 20 41  44 52 45 53 53 45 4E 20  |"..EEN ADRESSEN |
00000E10: 49 4E 20 44 45 5A 45 20  43 41 54 45 47 4F 52 49  |IN DEZE CATEGORI|
00000E20: 45 2E 22 00 3C 16 42 18  A0 31 3A 98 38 2C 22 53  |E.".<.B..1:.8,"S|
00000E30: 30 3A 22 59 24 3A 98 38  2C 22 49 30 00 4B 16 4C  |0:"Y$:.8,"I0.K.L|
00000E40: 18 8D 38 30 30 30 3A 89  31 30 30 00 5E 16 58 1B  |..8000:.100.^.X.|
00000E50: 8F 20 50 52 49 4E 54 20  4C 41 42 45 4C 53 00 7B  |. PRINT LABELS.{|
00000E60: 16 62 1B 53 46 B2 AB 31  3A 4D B2 33 30 3A 9F 31  |.b.SF..1:M.30:.1|
00000E70: 2C 30 34 3A 4C 4C B2 39  39 39 39 00 A5 16 6C 1B  |,04:LL.9999...l.|
00000E80: 99 22 11 C5 4E 4B 45 4C  45 20 4B 4F 4C 4F 4D 20  |."..NKELE KOLOM |
00000E90: 45 54 49 4B 45 54 54 45  4E 22 3B 3A 8D 38 30 35  |ETIKETTEN";:.805|
00000EA0: 30 3A 59 B2 49 00 CD 16  8A 1B 99 22 11 D0 52 4F  |0:Y.I......"..RO|
00000EB0: 45 46 41 46 44 52 55 4B  20 20 20 20 20 22 3B 3A  |EFAFDRUK     ";:|
00000EC0: 8D 38 30 35 30 3A 8B 49  89 37 30 39 30 00 FB 16  |.8050:.I.7090...|
00000ED0: 94 1B 50 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..P$."----------|
00000EE0: 45 45 52 53 54 45 20 52  45 47 45 4C 2D 2D 2D 2D  |EERSTE REGEL----|
00000EF0: 2D 2D 2D 2D 22 3A 8D 37  39 30 30 00 32 17 9E 1B  |----":.7900.2...|
00000F00: 81 49 B2 30 A4 31 3A 50  24 B2 22 2D 2D 2D 2D 2D  |.I.0.1:P$."-----|
00000F10: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000F20: 2D 2D 2D 2D 2D 2D 2D 2D  2D 22 3A 8D 37 39 30 30  |---------":.7900|
00000F30: 3A 82 00 6F 17 A8 1B 50  24 B2 22 2D 2D 2D 2D 2D  |:..o...P$."-----|
00000F40: 2D 2D 2D 2D 2D 4C 41 41  54 53 54 45 20 52 45 47  |-----LAATSTE REG|
00000F50: 45 4C 2D 2D 2D 2D 2D 2D  2D 22 3A 81 49 B2 31 A4  |EL-------":.I.1.|
00000F60: 33 3A 8D 37 39 30 30 3A  82 3A 89 37 30 35 30 00  |3:.7900:.:.7050.|
00000F70: 94 17 B2 1B 8D 37 32 30  30 3A 8D 37 33 30 30 3A  |.....7200:.7300:|
00000F80: 89 31 30 30 3A 8F 20 4F  55 54 50 55 54 20 4C 41  |.100:. OUTPUT LA|
00000F90: 42 45 4C 53 00 AB 17 BC  1B 8F 20 50 52 49 4E 54  |BELS...... PRINT|
00000FA0: 20 50 48 4F 4E 45 20 42  4F 4F 4B 00 C7 17 C6 1B  | PHONE BOOK.....|
00000FB0: 53 46 B2 30 3A 4D B2 33  36 3A 59 B2 31 3A 9F 31  |SF.0:M.36:Y.1:.1|
00000FC0: 2C 30 34 3A 4C B2 30 00  EF 17 D0 1B 99 22 11 D2  |,04:L.0......"..|
00000FD0: 45 47 45 4C 53 20 50 45  52 20 42 4C 41 44 20 20  |EGELS PER BLAD  |
00000FE0: 22 4C 30 22 9D 9D 9D 9D  9D 22 3B 3A 85 4C 4C 00  |"L0".....";:.LL.|
00000FF0: 0A 18 DA 1B 8D 37 32 30  30 3A 8D 37 33 30 30 3A  |.....7200:.7300:|
00001000: 8D 37 39 35 30 3A 89 31  30 30 00 1D 18 20 1C 8F  |.7950:.100... ..|
00001010: 20 47 45 54 20 43 41 54  45 47 4F 52 59 00 55 18  | GET CATEGORY.U.|
00001020: 2A 1C 99 22 93 DA 4F 45  4B 45 4E 20 4E 41 41 52  |*.."..OEKEN NAAR|
00001030: 3A 22 3A 81 49 B2 30 A4  36 3A 99 2C 22 12 22 CA  |:":.I.0.6:.,".".|
00001040: 28 C4 28 49 AA 31 29 2C  32 29 22 92 20 22 4B 24  |(.(I.1),2)". "K$|
00001050: 28 49 29 3A 82 00 90 18  34 1C 99 2C 22 12 38 92  |(I):....4..,".8.|
00001060: 20 C1 4C 4C 45 4E 22 3A  99 22 11 D5 57 20 4B 45  | .LLEN":."..W KE|
00001070: 55 5A 45 20 22 3B 3A 58  24 B2 22 31 32 33 34 35  |UZE ";:X$."12345|
00001080: 36 37 38 22 3A 8D 38 30  36 30 3A 46 B2 32 AE 49  |678":.8060:F.2.I|
00001090: 00 AF 18 3E 1C 8E 3A 8F  20 41 4C 4C 20 41 52 45  |...>..:. ALL ARE|
000010A0: 20 4F 52 2D 45 44 20 57  49 54 48 20 31 32 38 00  | OR-ED WITH 128.|
000010B0: C2 18 84 1C 8F 20 50 52  49 4E 54 20 45 49 54 48  |..... PRINT EITH|
000010C0: 45 52 00 F1 18 8E 1C 4A  B2 59 3A 81 4B B2 30 A4  |ER.....J.Y:.K.0.|
000010D0: 4E 58 3A 54 B2 54 25 28  4B 29 3A 8B 28 46 AF C6  |NX:T.T%(K):.(F..|
000010E0: 28 54 24 28 54 2C 39 29  29 29 B2 30 89 37 33 38  |(T$(T,9))).0.738|
000010F0: 30 00 0F 19 98 1C 4A B2  59 AB 4A 3A 8D 33 30 30  |0.....J.Y.J:.300|
00001100: 3A 8B 53 46 A7 41 24 28  4A 2C 34 29 B2 22 22 00  |:.SF.A$(J,4)."".|
00001110: 1D 19 A2 1C 8B 4A B3 59  89 37 33 38 30 00 38 19  |.....J.Y.7380.8.|
00001120: B6 1C 81 49 B2 30 A4 34  3A 50 24 B2 C8 28 41 24  |...I.0.4:P$..(A$|
00001130: 28 30 2C 49 29 2C 4D 29  00 62 19 C0 1C 8B 4A A7  |(0,I),M).b....J.|
00001140: 50 24 B2 50 24 AA C8 28  42 24 2C 4D AA 36 AB C3  |P$.P$..(B$,M.6..|
00001150: 28 50 24 29 29 AA C8 28  41 24 28 31 2C 49 29 2C  |(P$))..(A$(1,I),|
00001160: 4D 29 00 74 19 CA 1C 8D  37 39 30 30 3A 82 3A 8D  |M).t....7900:.:.|
00001170: 37 39 30 30 00 A5 19 D4  1C 82 4B 3A 8B 4A B3 59  |7900......K:.J.Y|
00001180: A7 81 49 B2 30 A4 34 3A  50 24 B2 C8 28 41 24 28  |..I.0.4:P$..(A$(|
00001190: 30 2C 49 29 2C 4D 29 3A  8D 37 39 30 30 3A 82 3A  |0,I),M):.7900:.:|
000011A0: 8D 37 39 30 30 00 AB 19  DE 1C 8E 00 D8 19 DC 1E  |.7900...........|
000011B0: 4C B2 4C AA 31 3A 98 31  2C 22 11 22 AA 50 24 3A  |L.L.1:.1,".".P$:|
000011C0: 50 24 B2 22 22 3A 8B 4C  B3 4C 4C A7 8E 3A 8F 20  |P$."":.L.LL..:. |
000011D0: 4C 49 4E 45 20 4F 55 54  00 FA 19 E6 1E 4C B2 4C  |LINE OUT.....L.L|
000011E0: AA 31 3A 98 31 2C 22 11  22 AA 50 24 3A 50 24 B2  |.1:.1,".".P$:P$.|
000011F0: 22 22 3A 8B 4C B3 4C 4C  A7 8E 00 28 1A 0E 1F 8B  |"":.L.LL...(....|
00001200: 4C A7 81 4C B2 4C A4 4C  50 AB 31 3A 98 31 3A 82  |L..L.L.LP.1:.1:.|
00001210: 3A 4C B2 30 3A 8E 3A 8F  20 46 49 4E 49 53 48 20  |:L.0:.:. FINISH |
00001220: 54 48 45 20 50 41 47 45  00 38 1A 40 1F 8F 20 55  |THE PAGE.8.@.. U|
00001230: 54 49 4C 49 54 49 45 53  00 6F 1A 4A 1F 99 22 11  |TILITIES.o.J..".|
00001240: 12 20 C4 52 55 4B 20 45  45 4E 20 57 49 4C 4C 45  |. .RUK EEN WILLE|
00001250: 4B 45 55 52 49 47 45 20  54 4F 45 54 53 20 49 4E  |KEURIGE TOETS IN|
00001260: 22 3B 3A 8D 32 30 3A 99  3A 99 22 93 22 3A 8E 00  |";:.20:.:.".":..|
00001270: 7A 1A 72 1F 58 24 B2 22  4A 4E 00 85 1A 7C 1F 99  |z.r.X$."JN...|..|
00001280: 22 3F 20 22 3B 00 AF 1A  86 1F 8D 32 30 3A 81 49  |"? ";......20:.I|
00001290: B2 31 A4 C3 28 58 24 29  3A 8B 43 24 B3 B1 CA 28  |.1..(X$):.C$...(|
000012A0: 58 24 2C 49 2C 31 29 A7  82 3A 89 38 30 37 30 00  |X$,I,1)..:.8070.|
000012B0: C8 1A 8B 1F 49 B2 49 AB  31 3A 99 43 24 3B 3A 8B  |....I.I.1:.C$;:.|
000012C0: 43 B2 31 33 A7 99 3A 8E  00 E4 1A 90 1F A1 57 24  |C.13..:.......W$|
000012D0: 3A 8B 57 24 B2 22 22 A7  99 22 A4 9D 22 3B 3A 89  |:.W$."".."..";:.|
000012E0: 38 30 38 30 00 FA 1A 95  1F 99 22 20 9D 22 3B 3A  |8080......" .";:|
000012F0: 8B 57 24 B2 52 24 A7 99  3A 8E 00 13 1B 9A 1F 8B  |.W$.R$..:.......|
00001300: 57 24 B2 C7 28 32 30 29  A7 99 57 24 3B 3A 89 38  |W$..(20)..W$;:.8|
00001310: 30 37 30 00 1D 1B 9F 1F  89 38 30 38 30 00 38 1B  |070......8080.8.|
00001320: 08 20 58 24 B2 22 22 3A  8F 20 49 4E 50 55 54 20  |. X$."":. INPUT |
00001330: 41 20 53 54 52 49 4E 47  00 49 1B 12 20 A1 43 24  |A STRING.I.. .C$|
00001340: 3A 8B 43 24 89 38 32 31  30 00 59 1B 1C 20 8D 32  |:.C$.8210.Y.. .2|
00001350: 35 3A 8B 43 B2 31 33 A7  8E 00 88 1B 26 20 8B 43  |5:.C.13.....& .C|
00001360: B2 32 30 AF 58 24 B1 22  22 A7 99 43 24 3B 3A 58  |.20.X$.""..C$;:X|
00001370: 24 B2 C8 28 58 24 2C C3  28 58 24 29 AB 31 29 3A  |$..(X$,.(X$).1):|
00001380: 8F 20 44 45 4C 45 54 45  00 B1 1B 2B 20 8B 28 31  |. DELETE...+ .(1|
00001390: 32 37 AF 43 29 B3 33 32  89 38 32 32 30 3A 8F 20  |27.C).32.8220:. |
000013A0: 43 55 52 53 4F 52 20 43  48 41 52 41 43 54 45 52  |CURSOR CHARACTER|
000013B0: 53 00 DA 1B 30 20 8B 28  4B 25 28 43 29 B0 47 29  |S...0 .(K%(C).G)|
000013C0: A7 99 43 24 3B 3A 58 24  B2 58 24 AA 43 24 3A 8B  |..C$;:X$.X$.C$:.|
000013D0: C3 28 58 24 29 B1 B2 4D  A7 8E 00 E4 1B 3A 20 89  |.(X$)..M.....: .|
000013E0: 38 32 32 30 00 EA 1B 28  23 8F 00 1C 1C 2D 23 4C  |8220...(#....-#L|
000013F0: 30 B2 36 30 3A 4C 50 B2  37 32 3A 4E 58 B2 AB 31  |0.60:LP.72:NX..1|
00001400: 3A 52 24 B2 C7 28 31 33  29 3A 48 24 B2 22 41 44  |:R$..(13):H$."AD|
00001410: 52 45 53 53 45 4E 4C 49  4A 53 54 22 00 3D 1C 32  |RESSENLIJST".=.2|
00001420: 23 86 4B 25 28 32 35 35  29 2C 41 24 28 31 2C 34  |#.K%(255),A$(1,4|
00001430: 29 2C 4B 24 28 36 29 2C  46 24 28 38 29 00 7E 1C  |),K$(6),F$(8).~.|
00001440: 3C 23 99 22 93 8E 13 13  0F 11 11 11 11 11 11 11  |<#."............|
00001450: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001460: 11 11 22 A6 33 39 29 22  8F 05 22 3A 97 35 39 34  |..".39)"..":.594|
00001470: 36 38 2C 31 34 3A 8F 20  46 4F 52 4D 41 54 00 C3  |68,14:. FORMAT..|
00001480: 1C 41 23 97 35 33 32 37  32 2C 32 B0 C2 28 35 33  |.A#.53272,2..(53|
00001490: 32 37 32 29 3A 99 22 93  12 20 20 20 20 20 20 20  |272):."..       |
000014A0: 20 20 20 20 20 20 20 20  C1 44 52 45 53 53 20 36  |        .DRESS 6|
000014B0: 34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
000014C0: 20 92 22 00 DE 1C 43 23  8D 36 31 30 30 30 3A 20  | ."...C#.61000: |
000014D0: 8F 20 43 4F 4C 4F 52 20  43 48 41 4E 47 45 00 20  |. COLOR CHANGE. |
000014E0: 1D 46 23 99 22 11 12 C3  92 41 53 53 45 54 54 45  |.F#."....ASSETTE|
000014F0: 2C 20 12 C4 92 49 53 4B  45 54 54 45 2C 4F 46 20  |, ...ISKETTE,OF |
00001500: 12 42 92 45 49 44 45 4E  22 3B 3A 58 24 B2 22 44  |.B.EIDEN";:X$."D|
00001510: 43 42 22 3A 8D 38 30 36  30 3A 43 46 B2 49 AA 31  |CB":.8060:CF.I.1|
00001520: 00 58 1D 4B 23 81 49 B2  33 32 A4 39 30 3A 87 4B  |.X.K#.I.32.90:.K|
00001530: 25 28 49 29 3A 82 3A 81  49 B2 31 39 33 A4 32 31  |%(I):.:.I.193.21|
00001540: 38 3A 4B 25 28 49 29 B2  31 3A 82 3A 8F 20 43 48  |8:K%(I).1:.:. CH|
00001550: 41 52 20 41 52 52 41 59  00 8F 1D 50 23 42 24 B2  |AR ARRAY...P#B$.|
00001560: 22 20 20 20 20 20 22 3A  81 49 B2 31 A4 35 3A 42  |"     ":.I.1.5:B|
00001570: 24 B2 42 24 AA 42 24 3A  82 3A 42 30 24 B2 C8 28  |$.B$.B$:.:B0$..(|
00001580: 42 24 2C 33 39 29 3A 9F  38 2C 30 38 2C 31 35 00  |B$,39):.8,08,15.|
00001590: C6 1D 55 23 99 22 11 44  41 54 55 4D 20 3A 20 22  |..U#.".DATUM : "|
000015A0: 3A 4D B2 36 30 3A 47 B2  31 3A 8D 38 32 30 30 3A  |:M.60:G.1:.8200:|
000015B0: 47 B2 30 3A 44 24 B2 58  24 3A 8B 44 24 B2 22 22  |G.0:D$.X$:.D$.""|
000015C0: A7 44 24 B2 22 2D 00 EA  1D 6E 23 99 3A 81 49 B2  |.D$."-...n#.:.I.|
000015D0: 30 A4 38 3A 87 46 24 28  49 29 3A 82 3A 8F 20 46  |0.8:.F$(I):.:. F|
000015E0: 49 45 4C 44 20 4E 41 4D  45 53 00 0B 1E 78 23 81  |IELD NAMES...x#.|
000015F0: 49 B2 30 A4 36 3A 87 4B  24 28 49 29 3A 82 3A 8F  |I.0.6:.K$(I):.:.|
00001600: 20 43 41 54 45 47 4F 52  49 45 53 00 44 1E 82 23  | CATEGORIES.D..#|
00001610: 56 B2 B5 28 28 B8 28 30  29 AB 32 30 30 30 29 AD  |V..((.(0).2000).|
00001620: 31 37 30 29 3A 86 54 24  28 56 2C 39 29 2C 54 25  |170):.T$(V,9),T%|
00001630: 28 56 29 3A 81 49 B2 30  A4 56 3A 54 25 28 49 29  |(V):.I.0.V:T%(I)|
00001640: B2 49 3A 82 00 55 1E 1C  25 8F 20 49 4E 50 55 54  |.I:..U..%. INPUT|
00001650: 20 46 49 4C 45 00 78 1E  26 25 8B 43 46 B1 32 A7  | FILE.x.&%.CF.2.|
00001660: 99 22 11 D6 41 4E 20 43  41 53 53 45 54 54 45 20  |."..AN CASSETTE |
00001670: 22 3B 3A 8D 38 30 35 30  00 AA 1E 30 25 8B 43 46  |";:.8050...0%.CF|
00001680: B2 32 B0 28 43 46 B2 33  AF 49 B2 30 29 A7 8D 39  |.2.(CF.3.I.0)..9|
00001690: 37 30 30 3A 91 49 89 31  30 30 3A 9F 31 2C 31 2C  |700:.I.100:.1,1,|
000016A0: 30 2C 48 24 3A 89 39 36  30 30 00 CD 1E 4E 25 A0  |0,H$:.9600...N%.|
000016B0: 31 3A 9F 31 2C 38 2C 32  2C 48 24 3A 84 38 2C 58  |1:.1,8,2,H$:.8,X|
000016C0: 2C 58 24 3A 8B 58 B2 30  89 39 36 30 30 00 DE 1E  |,X$:.X.0.9600...|
000016D0: 58 25 8D 39 37 30 30 3A  8B 49 89 31 30 30 00 0F  |X%.9700:.I.100..|
000016E0: 1F 62 25 99 22 11 D6 4F  45 52 20 44 45 20 47 4F  |.b%."..OER DE GO|
000016F0: 45 44 45 20 44 49 53 4B  45 54 54 45 20 49 4E 20  |EDE DISKETTE IN |
00001700: 45 4E 22 3A 8D 38 30 30  30 3A 89 39 35 35 30 00  |EN":.8000:.9550.|
00001710: 19 1F 80 25 58 24 B2 22  22 00 3B 1F 83 25 A1 23  |...%X$."".;..%.#|
00001720: 31 2C 43 24 3A 8B 43 24  B3 B1 52 24 A7 58 24 B2  |1,C$:.C$..R$.X$.|
00001730: 58 24 AA 43 24 3A 89 39  36 30 33 00 67 1F 85 25  |X$.C$:.9603.g..%|
00001740: 99 22 93 C5 4E 54 45 52  45 44 3A 20 12 22 58 24  |."..NTERED: ."X$|
00001750: 3A 99 3A 8F 20 44 41 54  45 4C 49 4E 45 20 46 52  |:.:. DATELINE FR|
00001760: 4F 4D 20 46 49 4C 45 00  9D 1F 8A 25 81 49 B2 30  |OM FILE....%.I.0|
00001770: A4 56 3A 84 31 2C 58 24  3A 8B 58 24 B2 22 5C 22  |.V:.1,X$:.X$."\"|
00001780: B0 53 54 B1 30 89 39 36  35 30 3A 8F 20 52 45 41  |.ST.0.9650:. REA|
00001790: 44 49 4E 47 20 43 4F 4D  50 4C 45 54 45 00 CE 1F  |DING COMPLETE...|
000017A0: 94 25 99 58 24 3A 54 24  28 49 2C 30 29 B2 58 24  |.%.X$:T$(I,0).X$|
000017B0: 3A 81 4A B2 31 A4 39 3A  84 31 2C 54 24 28 49 2C  |:.J.1.9:.1,T$(I,|
000017C0: 4A 29 3A 82 3A 54 25 28  49 29 B2 49 3A 82 00 E9  |J):.:T%(I).I:...|
000017D0: 1F B2 25 4E 58 B2 49 AB  31 3A 89 31 30 30 3A 8F  |..%NX.I.1:.100:.|
000017E0: 20 43 4F 4D 50 4C 45 54  45 00 0E 20 E4 25 99 22  | COMPLETE.. .%."|
000017F0: 11 CE 49 45 55 57 20 42  45 53 54 41 4E 44 22 3B  |..IEUW BESTAND";|
00001800: 3A 8D 38 30 35 30 3A 49  B2 31 AB 49 3A 8E 00 30  |:.8050:I.1.I:..0|
00001810: 20 AC 26 8F 20 41 43 43  45 50 54 41 42 4C 45 20  | .&. ACCEPTABLE |
00001820: 43 48 41 52 41 43 54 45  52 53 20 33 32 2D 39 30  |CHARACTERS 32-90|
00001830: 00 75 20 B6 26 83 31 2C  31 2C 30 2C 31 2C 31 2C  |.u .&.1,1,0,1,1,|
00001840: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 30 2C  |1,1,1,1,1,1,1,0,|
00001850: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001860: 31 2C 31 2C 31 2C 31 2C  31 2C 30 2C 30 2C 31 2C  |1,1,1,1,1,0,0,1,|
00001870: 31 2C 31 2C 31 00 B0 20  C0 26 83 31 2C 31 2C 31  |1,1,1.. .&.1,1,1|
00001880: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001890: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
000018A0: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
000018B0: 00 FB 20 CA 26 83 22 C1  43 48 54 45 52 4E 41 41  |.. .&.".CHTERNAA|
000018C0: 4D 22 2C 22 D6 4F 4F 52  4E 41 41 4D 20 22 2C 22  |M",".OORNAAM ","|
000018D0: C1 41 4E 48 45 46 20 28  42 2E 56 2E 20 CD 49 4A  |.ANHEF (B.V. .IJ|
000018E0: 4E 48 45 45 52 2C C6 41  4D 2E 2C C6 49 52 4D 41  |NHEER,.AM.,.IRMA|
000018F0: 20 29 22 2C 22 D4 49 54  45 4C 22 00 37 21 D4 26  | )",".ITEL".7!.&|
00001900: 83 22 D6 45 52 4A 41 41  52 44 41 47 45 4E 20 22  |.".ERJAARDAGEN "|
00001910: 2C 22 D3 54 52 41 41 54  20 22 2C 22 D0 4C 41 41  |,".TRAAT ",".LAA|
00001920: 54 53 20 22 2C 22 CC 41  4E 44 20 22 2C 22 D4 45  |TS ",".AND ",".E|
00001930: 4C 45 46 4F 4F 4E 22 00  4E 21 10 27 8F 20 53 45  |LEFOON".N!.'. SE|
00001940: 56 45 4E 20 43 41 54 45  47 4F 52 49 45 53 00 5E  |VEN CATEGORIES.^|
00001950: 21 1A 27 83 20 22 C6 41  4D 49 4C 49 45 22 00 6F  |!.'. ".AMILIE".o|
00001960: 21 24 27 83 20 22 D6 52  49 45 4E 44 45 4E 22 00  |!$'. ".RIENDEN".|
00001970: 81 21 2E 27 83 20 22 CB  45 4E 4E 49 53 53 45 4E  |.!.'. ".ENNISSEN|
00001980: 22 00 93 21 38 27 83 20  22 C3 4F 4C 4C 45 47 41  |"..!8'. ".OLLEGA|
00001990: 27 53 22 00 A5 21 42 27  83 20 22 C2 45 44 52 49  |'S"..!B'. ".EDRI|
000019A0: 4A 56 45 4E 22 00 BA 21  4C 27 83 20 22 C9 4E 53  |JVEN"..!L'. ".NS|
000019B0: 54 45 4C 4C 49 4E 47 45  4E 22 00 D1 21 56 27 83  |TELLINGEN"..!V'.|
000019C0: 20 22 C1 52 54 53 45 4E  2F D0 4F 4C 49 54 49 45  | ".RTSEN/.OLITIE|
000019D0: 22 00 E4 21 60 EA 99 58  24 3A 8D 38 30 30 30 3A  |"..!`..X$:.8000:|
000019E0: 89 31 30 30 00 FF 21 48  EE 8F 20 43 4F 4C 4F 52  |.100..!H.. COLOR|
000019F0: 20 43 48 41 4E 47 45 20  52 4F 55 54 49 4E 45 00  | CHANGE ROUTINE.|
00001A00: 23 22 49 EE 96 A5 43 28  58 29 B2 C2 28 58 29 AA  |#"I...C(X)..(X).|
00001A10: 31 AA 31 36 AC 28 28 C2  28 58 29 AF 31 35 29 B2  |1.16.((.(X).15).|
00001A20: 31 35 29 00 46 22 4A EE  99 22 13 11 11 11 12 C6  |15).F"J.."......|
00001A30: 31 92 3D 20 CB 4C 45 55  52 20 56 41 4E 20 44 45  |1.= .LEUR VAN DE|
00001A40: 20 52 41 4E 44 22 00 67  22 4B EE 99 22 11 11 12  | RAND".g"K.."...|
00001A50: C6 33 92 3D 20 C1 43 48  54 45 52 47 52 4F 4E 44  |.3.= .CHTERGROND|
00001A60: 2D 4B 4C 45 55 52 22 00  8A 22 4C EE 99 22 11 11  |-KLEUR".."L.."..|
00001A70: 12 C6 35 92 3D 20 CB 4C  45 55 52 20 56 41 4E 20  |..5.= .LEUR VAN |
00001A80: 44 45 20 54 45 4B 45 4E  53 22 00 A4 22 4D EE 99  |DE TEKENS".."M..|
00001A90: 22 11 11 12 D2 C5 D4 D5  D2 CE 92 3D 20 D6 45 52  |"..........= .ER|
00001AA0: 44 45 52 22 00 B6 22 52  EE A1 43 24 3A 8B 43 24  |DER".."R..C$:.C$|
00001AB0: 89 36 31 30 31 30 00 CB  22 5C EE A1 43 24 3A 8B  |.61010.."\..C$:.|
00001AC0: 43 24 B2 22 22 89 36 31  30 32 30 00 F2 22 66 EE  |C$."".61020.."f.|
00001AD0: 43 B2 C6 28 43 24 29 3A  8B 43 B2 31 33 35 A7 97  |C..(C$):.C.135..|
00001AE0: 36 34 36 2C A5 43 28 36  34 36 29 3A 89 36 31 30  |646,.C(646):.610|
00001AF0: 30 32 00 1E 23 7A EE 43  B2 C6 28 43 24 29 3A 8B  |02..#z.C..(C$):.|
00001B00: 43 B2 31 33 33 B0 43 B2  31 33 34 A7 58 B2 35 33  |C.133.C.134.X.53|
00001B10: 31 34 37 AA 43 3A 97 58  2C A5 43 28 58 29 00 2F  |147.C:.X,.C(X)./|
00001B20: 23 84 EE 8B 43 B3 B1 31  33 89 36 31 30 31 30 00  |#...C..13.61010.|
00001B30: 35 23 8E EE 8E 00 00 00                           |5#......        |

.......G(14):.657,128:.788,52.:....9000:
. (C) BY HEITRONIC.`.... VERANDERINGEN D
OOR B. V.D. HOEK...... *** JAN. '84  DRE
ISCHOR ***......C$:.C$.20......C$:.C$.."
 .";:C.F(C$):......."..";:.25.Q.D. 1:. M
ENU ENTRY...N.."..               ADRESS 
64                ..."...X.."FUNCTIES:..
".>.}..,".I.NVOEREN VAN NAAM EN ADRES".B
....,".Z.OEKEN VAN EEN NAAM/ADRES"......
,".A.FDRUKKEN VAN EEN NAAM/ADRES"......,
".M.AILING ADRESSEN".E. ..,".T.ELEFOONBO
EK AFDRUKKEN"......,".O.PSLAAN VAN DE NA
MEN/ADRESSEN"......,".E.INDE PROGRAMMA".
-....".KEUZE    ";:X$."EIZAMOT":.8060.R.
...I.4000,5000,7000,6000,3000,7100......
"..BLAD UIT PRINTER";:.8050:.I.0..1,04:L
..1:.7950: 1.E....OF..".OPSLAAN VAN DE *
NAME LIST*";:.8050:.I.0..3020..... 1:.".
.DAAAAAAG!":....,.. FORMAT THE LINE.#.6.
X$.T$(T,0):Y$.T$(T,1):.C(Y$).1.X$.Y$." "
.X$.H.@.Y$.T$(T,2):.C(Y$).1.X$.Y$." ".X$
.N.J.Y$.T$(T,3):.C(Y$).1.X$.X$.", ".Y$..
.^.A$(J,0).X$:.I.1.3:A$(J,I)."":Y$.T$(T,
I.3):.C(Y$).1.A$(J,I).Y$...H..:.C(T$(T,7
)).1.A$(J,3).A$(J,3).", ".T$(T,7)...R.A$
(J,4).T$(T,8):X.F(T$(T,9)).127:....K.BLO
CKS .E..).... OUTPUT FILE.8.B..3020:.100
.U.L.Y$.H$:.3500:.E(X$).60000.^.V..X...O
...OF.0:.1,D$:....N..I.0.NX:T.T%(I):.T$(
T,0)...X..J.0.9:.1,T$(T,J):.J,I...V..1,"
\":.:. COMPLETE...... OPEN THE FILE TO W
RITE.....DF.0:X.0:X$."":.CF.2..".OP CASS
ETTE  ";:.8050./.J..CF.2.(CF.3.I.0)..1,1
,1,Y$:..A...DF..1:L$."0:".Y$:.1,08,2,L$:
.8,X:   1:.X.3580......:.".BESTAND BESTA
AT AL- OVERSCHRIJVEN";:.8050:.I.X.1:....
...8,"S"L$:.8,"I0.Q....1,08,3,L$.",S,W":
.8,X,X$:.... .. CREATE AN ENTRY......NX.
.V..".. GEEN RUIMTE MEER  !":.8000:.100.
?...NX.NX.1:K.NX:T.T%(K):T$(T,9).G(128).
D...OF.1:M.39:Y.0:. GET NAME/ADDRESS.Q..
.J.0:.300......". ";:.I.1.30:.".";:.:.I.
1.5:."...";:.:.".";.N....I.1.30:."...";:
.:.I.1.5:."...";:.:."...."..I.0.4:."."A$
(J,I):.:.Y.8.4200...6..".........."B0$:.
"."F$(Y):.B0$"..-.;..8200:.C..13.4120.W.
=..:.I(X$,1)." ".X$.H(X$,C(X$).1):.4157.
..@..X$."".T$(T,Y)."".Y.Y.1:.2.(Y.9).415
0,4110...J..C(X$).1.4190.K.T.X$."-":.Y.0
..".WISSEN  ";:.8050:.I.1.4900,4110...^.
T$(T,Y).X$:Y.Y.1:.4110...H.X$."1234567".
R$:. GET CATEGORIES.(.R..".........CATEG
ORIEEN:".C.|..I.0.6:.,:.X.2.I..".";.V...
.I.1"."K$(I):.......".HOE TOEWIJZEN/WISS
EN ?   .";:.8070:I.2.I.....X.(X.I)..(X.I
):.X.128.4210.F.L.T$(T,9).G(X):. COMPLET
E EDIT...V..".."B0$:.".ALLES OK  ";:.805
0:.I.4100......NX.1.100:. MUST BE IN ORD
ER.L...X$.T$(T,0):.K.NX..I.K.NX.1:T%(I).
T%(I.1):.:. REMOVE T.~....I.0.NX.1:.T$(T
%(I),0).X$..:. LOCATE T'S SLOT......I.NX
.J.I.1:.I.NX.J..1:T%(I).T%(I.1):.:. MAKE
 ROOM FOR T.....T%(I).T:.100:. INSERT T,
 EXIT...$.. CLEAN UP DELETION......I.0.9
:T$(T,I)."":..>.8.NX.NX.1:.I.K.NX:T%(I).
T%(I.1):.:T%(I).T:.100.Y.... SELECT/EDIT
 AN ENTRY......".":."ZOEKEN NAAR:  .A.CH
TERNAAM"......,"    .V.OORNAAM"......," 
   .P.LAATS/ADRES".E....,"    .L.AND"...
...,"    .T.ELEFOON"...N..".KEUZE    ";:
X$."AVXXXXPLT":.8060:F.I.7.X.M.40:.".ZOE
KEN NAAR:";:.8200:Z$.X$:Z.C(Z$).R...K.0:
. SEARCH FOR FIELD.M...T.T%(K):X$.T$(T,F
):Y.0......I.1.C(X$).Z.1:Y.(J(X$,I,Z).Z$
).Y:.:.Y.0.5150.C...J.0:.300:.".":.I.0.4
:.A$(0,I):.......".VERDER ZOEKEN   ";:.8
050:.I.5180.....K.K.1:.K..NX.5110.$.(..:
.".ALLES GETEST ":.8000:.100.I.<..".WIJZ
IGEN";:.8050:.I.100:.4100.E.P.. FILE FOR
 WORD MACHINE...Z..".NAAM VAN HET BESTAN
D:";:M.16:.8200:.X$."".6010.....Y$.X$:.3
500:.E(X$).60000.C....X.100......7200:."
.SPECIALE KEUZE ";:.8050:SF.I:J.0:K.0...
..T.T%(K):.(F.F(T$(T,9))).0.6180./....SF
..T$(T,0):.6100.O....300:.".":.I.0.3:.A$
(J,I):..W.J..".OVERNEMEN       ";:.8050:
.I.6180...T.. OUTPUT THE FILE......I.0.7
:.1,T$(T,I):.:DF..(DF).D.$.K.K.1:.K..NX.
6060......1,"\":.DF..1..SF.1.6220,100:. 
 -1=EMPTY DISCFILE.#.8..".GEEN ADRESSEN 
IN DEZE CATEGORIE.".<.B. 1:.8,"S0:"Y$:.8
,"I0.K.L..8000:.100.^.X.. PRINT LABELS.{
.B.SF..1:M.30:.1,04:LL.9999...L..".ENKEL
E KOLOM ETIKETTEN";:.8050:Y.I.M....".PRO
EFAFDRUK     ";:.8050:.I.7090.....P$."--
--------EERSTE REGEL--------":.7900.2...
.I.0.1:P$."-----------------------------
-":.7900:..O...P$."----------LAATSTE REG
EL-------":.I.1.3:.7900:.:.7050......720
0:.7300:.100:. OUTPUT LABELS...... PRINT
 PHONE BOOK.G.F.SF.0:M.36:Y.1:.1,04:L.0.
..P..".REGELS PER BLAD  "L0".....";:.LL.
..Z..7200:.7300:.7950:.100... .. GET CAT
EGORY.U.*..".ZOEKEN NAAR:":.I.0.6:.,"."J
(D(I.1),2)". "K$(I):....4..,".8. ALLEN":
.".UW KEUZE ";:X$."12345678":.8060:F.2.I
...>..:. ALL ARE OR-ED WITH 128.B.... PR
INT EITHER.....J.Y:.K.0.NX:T.T%(K):.(F.F
(T$(T,9))).0.7380.....J.Y.J:.300:.SF.A$(
J,4).""......J.Y.7380.8....I.0.4:P$.H(A$
(0,I),M).B....J.P$.P$.H(B$,M.6.C(P$)).H(
A$(1,I),M).T.J..7900:.:.7900...T..K:.J.Y
..I.0.4:P$.H(A$(0,I),M):.7900:.:.7900...
....X...L.L.1:.1,".".P$:P$."":.L.LL..:. 
LINE OUT.....L.L.1:.1,".".P$:P$."":.L.LL
...(....L..L.L.LP.1:.1:.:L.0:.:. FINISH 
THE PAGE.8.@.. UTILITIES.O.J..".. DRUK E
EN WILLEKEURIGE TOETS IN";:.20:.:.".":..
Z.R.X$."JN...|.."? ";......20:.I.1.C(X$)
:.C$..J(X$,I,1)..:.8070.H...I.I.1:.C$;:.
C.13..:.......W$:.W$."".."..";:.8080....
.." .";:.W$.R$..:.......W$.G(20)..W$;:.8
070......8080.8.. X$."":. INPUT A STRING
.I.. .C$:.C$.8210.Y.. .25:.C.13.....& .C
.20.X$.""..C$;:X$.H(X$,C(X$).1):. DELETE
...+ .(127.C).32.8220:. CURSOR CHARACTER
S.Z.0 .(K%(C).G)..C$;:X$.X$.C$:.C(X$)..M
.....: .8220...(#....-#L0.60:LP.72:NX..1
:R$.G(13):H$."ADRESSENLIJST".=.2#.K%(255
),A$(1,4),K$(6),F$(8).~.<#."............
..................".39)"..":.59468,14:. 
FORMAT.C.A#.53272,2.B(53272):."..       
        ADRESS 64                ."...C#
.61000: . COLOR CHANGE. .F#."..C.ASSETTE
, .D.ISKETTE,OF .B.EIDEN";:X$."DCB":.806
0:CF.I.1.X.K#.I.32.90:.K%(I):.:.I.193.21
8:K%(I).1:.:. CHAR ARRAY...P#B$."     ":
.I.1.5:B$.B$.B$:.:B0$.H(B$,39):.8,08,15.
F.U#.".DATUM : ":M.60:G.1:.8200:G.0:D$.X
$:.D$."".D$."-...N#.:.I.0.8:.F$(I):.:. F
IELD NAMES...X#.I.0.6:.K$(I):.:. CATEGOR
IES.D..#V..((.(0).2000).170):.T$(V,9),T%
(V):.I.0.V:T%(I).I:..U..%. INPUT FILE.X.
&%.CF.2..".VAN CASSETTE ";:.8050...0%.CF
.2.(CF.3.I.0)..9700:.I.100:.1,1,0,H$:.96
00.M.N% 1:.1,8,2,H$:.8,X,X$:.X.0.9600...
X%.9700:.I.100...B%.".VOER DE GOEDE DISK
ETTE IN EN":.8000:.9550....%X$."".;..%.#
1,C$:.C$..R$.X$.X$.C$:.9603.G..%.".ENTER
ED: ."X$:.:. DATELINE FROM FILE....%.I.0
.V:.1,X$:.X$."\".ST.0.9650:. READING COM
PLETE.N..%.X$:T$(I,0).X$:.J.1.9:.1,T$(I,
J):.:T%(I).I:.....%NX.I.1:.100:. COMPLET
E.. .%.".NIEUW BESTAND";:.8050:I.1.I:..0
 .&. ACCEPTABLE CHARACTERS 32-90.U .&.1,
1,0,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,
1,1,1,1,1,0,0,1,1,1,1.. .&.1,1,1,1,1,1,1
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
.. J&."ACHTERNAAM","VOORNAAM ","AANHEF (
B.V. MIJNHEER,FAM.,FIRMA )","TITEL".7!T&
."VERJAARDAGEN ","STRAAT ","PLAATS ","LA
ND ","TELEFOON".N!.'. SEVEN CATEGORIES.^
!.'. "FAMILIE".O!$'. "VRIENDEN"..!.'. "K
ENNISSEN"..!8'. "COLLEGA'S"..!B'. "BEDRI
JVEN"..!L'. "INSTELLINGEN".Q!V'. "ARTSEN
/POLITIE"..!`..X$:.8000:.100..!H.. COLOR
 CHANGE ROUTINE.#"I...C(X).B(X).1.16.((B
(X).15).15).F"J..".....F1.= KLEUR VAN DE
 RAND".G"K.."...F3.= ACHTERGROND-KLEUR".
."L.."...F5.= KLEUR VAN DE TEKENS".."M..
"...RETURN.= VERDER".."R..C$:.C$.61010.K
"\..C$:.C$."".61020.."F.C.F(C$):.C.135..
646,.C(646):.61002..#Z.C.F(C$):.C.133.C.
134.X.53147.C:.X,.C(X)./#...C..13.61010.
5#......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL