ADRESSEN NED

00000000: 01 08 14 08 0A 00 8F 20  2A 20 41 44 52 45 53 20  |....... * ADRES |
00000010: 36 34 20 2A 00 30 08 14  00 99 22 93 9A 22 3A 97  |64 *.0...."..":.|
00000020: 35 33 32 38 31 2C 30 3A  97 35 33 32 38 30 2C 30  |53281,0:.53280,0|
00000030: 00 44 08 1E 00 99 C7 28  31 34 29 3A 97 36 35 30  |.D.....(14):.650|
00000040: 2C 31 32 38 00 4E 08 28  00 89 31 35 34 30 00 5D  |,128.N.(..1540.]|
00000050: 08 32 00 A1 43 24 3A 8B  43 24 89 35 30 00 7A 08  |.2..C$:.C$.50.z.|
00000060: 3C 00 A1 43 24 3A 8B 43  24 A7 99 22 20 9D 22 3B  |<..C$:.C$.." .";|
00000070: 3A 43 B2 C6 28 43 24 29  3A 8E 00 89 08 46 00 99  |:C..(C$):....F..|
00000080: 22 A4 9D 22 3B 3A 89 36  30 00 9D 08 50 00 A0 31  |"..";:.60...P..1|
00000090: 3A 8F 20 4D 45 4E 55 20  45 4E 54 52 59 00 C7 08  |:. MENU ENTRY...|
000000A0: 5A 00 99 22 93 20 20 20  20 20 20 12 20 C3 4F 4D  |Z..".      . .OM|
000000B0: 4D 4F 44 4F 52 45 20 C1  C4 D2 C5 D3 D3 C5 CE 20  |MODORE ........ |
000000C0: 36 34 20 20 92 11 11 00  DC 08 64 00 99 22 C6 55  |64  ......d..".U|
000000D0: 4E 4B 54 49 45 53 20 20  3A 11 11 22 00 F5 08 6E  |NKTIES  :.."...n|
000000E0: 00 99 2C 22 12 C5 92 3D  44 41 54 41 20 49 4E 56  |..,"...=DATA INV|
000000F0: 4F 45 52 45 4E 00 0C 09  78 00 99 2C 22 12 C1 92  |OEREN...x..,"...|
00000100: 3D 5A 4F 45 4B 45 4E 20  4E 41 41 52 00 2B 09 82  |=ZOEKEN NAAR.+..|
00000110: 00 99 2C 22 12 C4 92 52  55 4B 4B 45 4E 20 56 41  |..,"...RUKKEN VA|
00000120: 4E 20 C5 54 49 4B 45 54  54 45 4E 00 4B 09 8C 00  |N .TIKETTEN.K...|
00000130: 99 2C 22 12 D2 92 4F 4E  44 53 43 48 52 49 4A 56  |.,"...ONDSCHRIJV|
00000140: 45 4E 2D C1 44 52 45 53  53 45 4E 00 6B 09 96 00  |EN-.DRESSEN.k...|
00000150: 99 2C 22 12 D4 92 45 4C  45 46 4F 4F 4E 42 4F 45  |.,"...ELEFOONBOE|
00000160: 4B 20 41 46 44 52 55 4B  4B 45 4E 00 8C 09 A0 00  |K AFDRUKKEN.....|
00000170: 99 2C 22 12 D3 92 41 56  45 4E 20 56 41 4E 20 44  |.,"...AVEN VAN D|
00000180: 45 20 CE 41 4D 45 4E 4C  49 4A 53 54 00 A5 09 AA  |E .AMENLIJST....|
00000190: 00 99 2C 22 12 D0 92 52  4F 47 52 41 4D 4D 41 20  |..,"...ROGRAMMA |
000001A0: 45 49 4E 44 45 00 CB 09  B4 00 99 22 11 D7 45 4C  |EINDE......"..EL|
000001B0: 4B 45 20 20 20 20 22 3B  3A 58 24 B2 22 50 45 41  |KE    ";:X$."PEA|
000001C0: 44 52 53 54 22 3A 8D 31  34 30 30 00 EC 09 BE 00  |DRST":.1400.....|
000001D0: 91 49 89 34 36 30 2C 37  37 30 2C 31 30 39 30 2C  |.I.460,770,1090,|
000001E0: 39 33 30 2C 33 31 30 2C  31 31 37 30 00 23 0A C8  |930,310,1170.#..|
000001F0: 00 99 22 93 D3 45 49 54  45 4E 56 4F 52 53 43 48  |.."..EITENVORSCH|
00000200: 55 42 22 3B 3A 8D 31 33  39 30 3A 8B 49 B2 30 A7  |UB";:.1390:.I.0.|
00000210: 9F 31 2C 30 34 3A 4C B2  2E 31 3A 8D 31 33 36 30  |.1,04:L..1:.1360|
00000220: 3A A0 31 00 5B 0A D2 00  8B 4F 46 A7 99 22 11 D3  |:.1.[....OF.."..|
00000230: 41 56 45 4E 20 56 41 4E  20 44 45 20 20 2A CE 41  |AVEN VAN DE  *.A|
00000240: 41 4D 20 CC 49 49 53 54  2A 22 3B 3A 8D 31 33 39  |AM .IIST*";:.139|
00000250: 30 3A 8B 49 B2 30 A7 8D  33 33 30 00 73 0A DC 00  |0:.I.0..330.s...|
00000260: A0 31 3A 99 22 93 11 D4  4F 54 5A 49 45 4E 53 21  |.1:."...OTZIENS!|
00000270: 22 3A A2 00 89 0A E6 00  8F 20 46 4F 52 4D 41 54  |":....... FORMAT|
00000280: 20 54 48 45 20 4C 49 4E  45 00 B9 0A F0 00 58 24  | THE LINE.....X$|
00000290: B2 54 24 28 54 2C 30 29  3A 59 24 B2 54 24 28 54  |.T$(T,0):Y$.T$(T|
000002A0: 2C 31 29 3A 8B C3 28 59  24 29 B1 31 A7 58 24 B2  |,1):..(Y$).1.X$.|
000002B0: 59 24 AA 22 20 22 AA 58  24 00 DE 0A FA 00 59 24  |Y$." ".X$.....Y$|
000002C0: B2 54 24 28 54 2C 32 29  3A 8B C3 28 59 24 29 B1  |.T$(T,2):..(Y$).|
000002D0: 31 A7 58 24 B2 59 24 AA  22 20 22 AA 58 24 00 04  |1.X$.Y$." ".X$..|
000002E0: 0B 04 01 59 24 B2 54 24  28 54 2C 33 29 3A 8B C3  |...Y$.T$(T,3):..|
000002F0: 28 59 24 29 B1 31 A7 58  24 B2 58 24 AA 22 2C 20  |(Y$).1.X$.X$.", |
00000300: 22 AA 59 24 00 46 0B 0E  01 41 24 28 4A 2C 30 29  |".Y$.F...A$(J,0)|
00000310: B2 58 24 3A 81 49 B2 31  A4 33 3A 41 24 28 4A 2C  |.X$:.I.1.3:A$(J,|
00000320: 49 29 B2 22 22 3A 59 24  B2 54 24 28 54 2C 49 AA  |I)."":Y$.T$(T,I.|
00000330: 33 29 3A 8B C3 28 59 24  29 B1 31 A7 41 24 28 4A  |3):..(Y$).1.A$(J|
00000340: 2C 49 29 B2 59 24 00 77  0B 18 01 82 3A 8B C3 28  |,I).Y$.w....:..(|
00000350: 54 24 28 54 2C 37 29 29  B1 31 A7 41 24 28 4A 2C  |T$(T,7)).1.A$(J,|
00000360: 33 29 B2 41 24 28 4A 2C  33 29 AA 22 2C 20 22 AA  |3).A$(J,3).", ".|
00000370: 54 24 28 54 2C 37 29 00  9E 0B 22 01 41 24 28 4A  |T$(T,7)...".A$(J|
00000380: 2C 34 29 B2 54 24 28 54  2C 38 29 3A 58 B2 C6 28  |,4).T$(T,8):X..(|
00000390: 54 24 28 54 2C 39 29 29  AF 31 32 37 3A 8E 00 AD  |T$(T,9)).127:...|
000003A0: 0B 2C 01 42 4C 4F 43 4B  53 20 B8 45 2E 00 BF 0B  |.,.BLOCKS .E....|
000003B0: 36 01 8F 20 4F 55 54 50  55 54 20 46 49 4C 45 00  |6.. OUTPUT FILE.|
000003C0: CC 0B 40 01 8D 33 33 30  3A 89 38 30 00 E7 0B 4A  |..@..330:.80...J|
000003D0: 01 59 24 B2 48 24 3A 8D  33 39 30 3A 8B C5 28 58  |.Y$.H$:.390:..(X|
000003E0: 24 29 89 31 39 33 30 00  F0 0B 54 01 8B 58 A7 8E  |$).1930...T..X..|
000003F0: 00 01 0C 5E 01 4F 46 B2  30 3A 98 31 2C 44 24 3A  |...^.OF.0:.1,D$:|
00000400: 99 00 1E 0C 68 01 81 49  B2 30 A4 4E 58 3A 54 B2  |....h..I.0.NX:T.|
00000410: 54 25 28 49 29 3A 99 54  24 28 54 2C 30 29 00 39  |T%(I):.T$(T,0).9|
00000420: 0C 72 01 81 4A B2 30 A4  39 3A 98 31 2C 54 24 28  |.r..J.0.9:.1,T$(|
00000430: 54 2C 4A 29 3A 82 4A 2C  49 00 51 0C 7C 01 98 31  |T,J):.J,I.Q.|..1|
00000440: 2C 22 5C 22 3A 8E 3A 8F  20 43 4F 4D 50 4C 45 54  |,"\":.:. COMPLET|
00000450: 45 00 6E 0C 86 01 8F 20  4F 50 45 4E 20 54 48 45  |E.n.... OPEN THE|
00000460: 20 46 49 4C 45 20 54 4F  20 57 52 49 54 45 00 A0  | FILE TO WRITE..|
00000470: 0C 90 01 44 46 B2 30 3A  58 B2 30 3A 58 24 B2 22  |...DF.0:X.0:X$."|
00000480: 22 3A 8B 43 46 B1 32 A7  99 22 93 CF 50 20 20 C4  |":.CF.2.."..P  .|
00000490: 41 54 41 53 45 54 54 45  22 3B 3A 8D 31 33 39 30  |ATASETTE";:.1390|
000004A0: 00 C1 0C 9A 01 8B 43 46  B2 32 B0 28 43 46 B2 33  |......CF.2.(CF.3|
000004B0: AF 49 B2 30 29 A7 9F 31  2C 31 2C 31 2C 59 24 3A  |.I.0)..1,1,1,Y$:|
000004C0: 8E 00 F0 0C A4 01 44 46  B2 AB 31 3A 4C 24 B2 22  |......DF..1:L$."|
000004D0: 30 3A 22 AA 59 24 3A 9F  31 2C 30 38 2C 32 2C 4C  |0:".Y$:.1,08,2,L|
000004E0: 24 3A 84 38 2C 58 3A A0  31 3A 8B 58 89 34 35 30  |$:.8,X:.1:.X.450|
000004F0: 00 2B 0D AE 01 99 3A 99  22 11 C4 41 54 41 20 42  |.+....:."..ATA B|
00000500: 45 53 54 41 41 54 20 41  4C 20 2D 20 4F 56 45 52  |ESTAAT AL - OVER|
00000510: 53 43 48 52 49 4A 56 45  4E 20 22 3B 3A 8D 31 33  |SCHRIJVEN ";:.13|
00000520: 39 30 3A 8B 49 A7 58 B2  31 3A 8E 00 3F 0D B8 01  |90:.I.X.1:..?...|
00000530: 98 38 2C 22 53 22 4C 24  3A 98 38 2C 22 49 30 00  |.8,"S"L$:.8,"I0.|
00000540: 5F 0D C2 01 9F 31 2C 30  38 2C 33 2C 4C 24 AA 22  |_....1,08,3,L$."|
00000550: 2C 53 2C 57 22 3A 84 38  2C 58 2C 58 24 3A 8E 00  |,S,W":.8,X,X$:..|
00000560: 75 0D CC 01 8F 20 43 52  45 41 54 45 20 41 4E 20  |u.... CREATE AN |
00000570: 45 4E 54 52 59 00 AD 0D  D6 01 8B 4E 58 B1 B2 56  |ENTRY......NX..V|
00000580: A7 99 22 11 12 20 C8 45  4C 41 41 53 20 47 45 45  |..".. .ELAAS GEE|
00000590: 4E 20 D0 4C 41 41 54 53  20 4D 45 45 52 20 56 52  |N .LAATS MEER VR|
000005A0: 49 4A 22 3A 8D 31 33 37  30 3A 89 38 30 00 D5 0D  |IJ":.1370:.80...|
000005B0: E0 01 4E 58 B2 4E 58 AA  31 3A 4B B2 4E 58 3A 54  |..NX.NX.1:K.NX:T|
000005C0: B2 54 25 28 4B 29 3A 54  24 28 54 2C 39 29 B2 C7  |.T%(K):T$(T,9)..|
000005D0: 28 31 32 38 29 00 FA 0D  EA 01 4F 46 B2 31 3A 4D  |(128).....OF.1:M|
000005E0: B2 33 39 3A 59 B2 30 3A  8F 20 47 45 54 20 4E 41  |.39:Y.0:. GET NA|
000005F0: 4D 45 2F 41 44 44 52 45  53 53 00 07 0E F4 01 4A  |ME/ADDRESS.....J|
00000600: B2 30 3A 8D 32 33 30 00  39 0E FE 01 99 22 93 20  |.0:.230.9....". |
00000610: 22 3B 3A 81 49 B2 31 A4  33 30 3A 99 22 A4 22 3B  |";:.I.1.30:.".";|
00000620: 3A 82 3A 81 49 B2 31 A4  35 3A 99 22 11 A5 9D 22  |:.:.I.1.5:."..."|
00000630: 3B 3A 82 3A 99 22 11 22  3B 00 64 0E 08 02 81 49  |;:.:.".";.d....I|
00000640: B2 31 A4 33 30 3A 99 22  9D A3 9D 22 3B 3A 82 3A  |.1.30:."...";:.:|
00000650: 81 49 B2 31 A4 35 3A 99  22 91 9D A7 22 3B 3A 82  |.I.1.5:."...";:.|
00000660: 3A 99 22 13 00 86 0E 12  02 81 49 B2 30 A4 34 3A  |:.".......I.0.4:|
00000670: 99 22 1D 22 41 24 28 4A  2C 49 29 3A 82 3A 8B 59  |."."A$(J,I):.:.Y|
00000680: B1 38 89 36 31 30 00 AC  0E 1C 02 99 22 13 11 11  |.8.610......"...|
00000690: 11 11 11 11 11 11 11 22  42 30 24 3A 99 22 91 22  |......."B0$:."."|
000006A0: 46 24 28 59 29 3A 99 42  30 24 22 91 00 C1 0E 26  |F$(Y):.B0$"....&|
000006B0: 02 8D 31 34 37 30 3A 8B  43 B3 B1 31 33 89 35 31  |..1470:.C..13.51|
000006C0: 30 00 EA 0E 30 02 99 3A  8B C9 28 58 24 2C 31 29  |0...0..:..(X$,1)|
000006D0: B2 22 20 22 A7 58 24 B2  C8 28 58 24 2C C3 28 58  |." ".X$..(X$,.(X|
000006E0: 24 29 AB 31 29 3A 89 35  36 30 00 17 0F 3A 02 8B  |$).1):.560...:..|
000006F0: 58 24 B2 22 22 AF 54 24  28 54 2C 59 29 B1 22 22  |X$."".T$(T,Y).""|
00000700: A7 59 B2 59 AA 31 3A 91  32 AA 28 59 B3 39 29 89  |.Y.Y.1:.2.(Y.9).|
00000710: 35 34 30 2C 35 30 30 00  28 0F 44 02 8B C3 28 58  |540,500.(.D...(X|
00000720: 24 29 B1 31 89 36 30 30  00 5B 0F 4E 02 58 24 B2  |$).1.600.[.N.X$.|
00000730: 22 2D 22 3A 8B 59 B2 30  A7 99 22 11 D6 45 52 57  |"-":.Y.0.."..ERW|
00000740: 49 4A 44 45 52 45 4E 22  3A 8D 31 33 39 30 3A 91  |IJDEREN":.1390:.|
00000750: 49 AA 31 89 37 34 30 2C  35 30 30 00 75 0F 58 02  |I.1.740,500.u.X.|
00000760: 54 24 28 54 2C 59 29 B2  58 24 3A 59 B2 59 AA 31  |T$(T,Y).X$:Y.Y.1|
00000770: 3A 89 35 30 30 00 9A 0F  62 02 58 24 B2 22 31 32  |:.500...b.X$."12|
00000780: 33 34 35 36 37 22 AA 52  24 3A 8F 20 47 45 54 20  |34567".R$:. GET |
00000790: 43 41 54 45 47 4F 52 49  45 53 00 B5 0F 6C 02 99  |CATEGORIES...l..|
000007A0: 22 13 11 11 11 11 11 11  11 11 CB 41 54 45 47 4F  |"..........ATEGO|
000007B0: 52 49 45 4E 3A 00 D0 0F  76 02 81 49 B2 30 A4 36  |RIEN:...v..I.0.6|
000007C0: 3A 99 2C 3A 8B 58 AF 32  AE 49 A7 99 22 12 22 3B  |:.,:.X.2.I..".";|
000007D0: 00 E3 0F 80 02 99 49 AA  31 22 92 22 4B 24 28 49  |......I.1"."K$(I|
000007E0: 29 3A 82 00 13 10 8A 02  99 22 11 C8 4F 45 20 4F  |):......."..OE O|
000007F0: 52 44 45 4E 45 4E 2F 56  45 52 57 49 4A 44 45 52  |RDENEN/VERWIJDER|
00000800: 45 4E 20 20 9D 22 3B 3A  8D 31 34 31 30 3A 49 B2  |EN  .";:.1410:I.|
00000810: 32 AE 49 00 31 10 94 02  58 B2 28 58 B0 49 29 AF  |2.I.1...X.(X.I).|
00000820: A8 28 58 AF 49 29 3A 8B  58 B3 31 32 38 89 36 32  |.(X.I):.X.128.62|
00000830: 30 00 52 10 9E 02 54 24  28 54 2C 39 29 B2 C7 28  |0.R...T$(T,9)..(|
00000840: 58 29 3A 8F 20 43 4F 4D  50 4C 45 54 45 20 45 44  |X):. COMPLETE ED|
00000850: 49 54 00 7C 10 A8 02 99  22 91 91 22 42 30 24 3A  |IT.|....".."B0$:|
00000860: 99 22 91 C1 43 43 45 50  54 41 42 45 4C 22 3B 3A  |."..CCEPTABEL";:|
00000870: 8D 31 33 39 30 3A 8B 49  89 34 39 30 00 9C 10 B2  |.1390:.I.490....|
00000880: 02 8B 4E 58 B3 31 89 38  30 3A 8F 20 4D 55 53 54  |..NX.1.80:. MUST|
00000890: 20 42 45 20 49 4E 20 4F  52 44 45 52 00 D6 10 BC  | BE IN ORDER....|
000008A0: 02 58 24 B2 54 24 28 54  2C 30 29 3A 8B 4B B3 4E  |.X$.T$(T,0):.K.N|
000008B0: 58 A7 81 49 B2 4B A4 4E  58 AB 31 3A 54 25 28 49  |X..I.K.NX.1:T%(I|
000008C0: 29 B2 54 25 28 49 AA 31  29 3A 82 3A 8F 20 52 45  |).T%(I.1):.:. RE|
000008D0: 4D 4F 56 45 20 54 00 08  11 C6 02 81 49 B2 30 A4  |MOVE T......I.0.|
000008E0: 4E 58 AB 31 3A 8B 54 24  28 54 25 28 49 29 2C 30  |NX.1:.T$(T%(I),0|
000008F0: 29 B3 58 24 A7 82 3A 8F  20 4C 4F 43 41 54 45 20  |).X$..:. LOCATE |
00000900: 54 27 53 20 53 4C 4F 54  00 45 11 D0 02 8B 49 B3  |T'S SLOT.E....I.|
00000910: 4E 58 A7 4A B2 49 AA 31  3A 81 49 B2 4E 58 A4 4A  |NX.J.I.1:.I.NX.J|
00000920: A9 AB 31 3A 54 25 28 49  29 B2 54 25 28 49 AB 31  |..1:T%(I).T%(I.1|
00000930: 29 3A 82 3A 8F 20 4D 41  4B 45 20 52 4F 4F 4D 20  |):.:. MAKE ROOM |
00000940: 46 4F 52 20 54 00 66 11  DA 02 54 25 28 49 29 B2  |FOR T.f...T%(I).|
00000950: 54 3A 89 38 30 3A 8F 20  49 4E 53 45 52 54 20 54  |T:.80:. INSERT T|
00000960: 2C 20 45 58 49 54 00 7E  11 E4 02 8F 20 43 4C 45  |, EXIT.~.... CLE|
00000970: 41 4E 20 55 50 20 44 45  4C 45 54 49 4F 4E 00 96  |AN UP DELETION..|
00000980: 11 EE 02 81 49 B2 30 A4  39 3A 54 24 28 54 2C 49  |....I.0.9:T$(T,I|
00000990: 29 B2 22 22 3A 82 00 C6  11 F8 02 4E 58 B2 4E 58  |)."":......NX.NX|
000009A0: AB 31 3A 81 49 B2 4B A4  4E 58 3A 54 25 28 49 29  |.1:.I.K.NX:T%(I)|
000009B0: B2 54 25 28 49 AA 31 29  3A 82 3A 54 25 28 49 29  |.T%(I.1):.:T%(I)|
000009C0: B2 54 3A 89 38 30 00 E1  11 02 03 8F 20 53 45 4C  |.T:.80...... SEL|
000009D0: 45 43 54 2F 45 44 49 54  20 41 4E 20 45 4E 54 52  |ECT/EDIT AN ENTR|
000009E0: 59 00 08 12 0C 03 99 22  93 22 3A 99 22 DA 4F 45  |Y......".":.".OE|
000009F0: 4B 45 4E 20 4E 41 41 52  3A 20 20 12 C1 92 43 48  |KEN NAAR:  ...CH|
00000A00: 54 45 52 4E 41 41 4D 22  00 1E 12 16 03 99 2C 22  |TERNAAM"......,"|
00000A10: 20 20 20 20 12 D6 92 4F  4F 52 4E 41 41 4D 00 32  |    ...OORNAAM.2|
00000A20: 12 20 03 99 2C 22 20 20  20 20 12 D0 92 CC C1 C1  |. ..,"    ......|
00000A30: D4 D3 00 45 12 2A 03 99  2C 22 20 20 20 20 12 D3  |...E.*..,"    ..|
00000A40: 92 54 41 41 54 00 5E 12  34 03 99 2C 22 20 20 20  |.TAAT.^.4..,"   |
00000A50: 20 12 D4 92 45 4C 45 46  4F 4F 4E 4E 52 2E 00 8A  | ...ELEFOONNR...|
00000A60: 12 3E 03 99 22 11 D7 45  4C 4B 45 20 20 20 20 22  |.>.."..ELKE    "|
00000A70: 3B 3A 58 24 B2 22 4E 56  4C 4C 4C 4C 50 53 54 22  |;:X$."NVLLLLPST"|
00000A80: 3A 8D 31 34 30 30 3A 46  B2 49 00 BD 12 48 03 4D  |:.1400:F.I...H.M|
00000A90: B2 34 30 3A 99 22 11 D3  4C 45 55 54 45 4C 57 4F  |.40:."..LEUTELWO|
00000AA0: 4F 52 44 20 20 3A 20 22  3B 3A 8D 31 34 37 30 3A  |ORD  : ";:.1470:|
00000AB0: 5A 24 B2 58 24 3A 5A B2  C3 28 5A 24 29 00 D8 12  |Z$.X$:Z..(Z$)...|
00000AC0: 52 03 4B B2 30 3A 8F 20  53 45 41 52 43 48 20 46  |R.K.0:. SEARCH F|
00000AD0: 4F 52 20 46 49 45 4C 44  00 F3 12 5C 03 54 B2 54  |OR FIELD...\.T.T|
00000AE0: 25 28 4B 29 3A 58 24 B2  54 24 28 54 2C 46 29 3A  |%(K):X$.T$(T,F):|
00000AF0: 59 B2 30 00 24 13 66 03  81 49 B2 31 A4 C3 28 58  |Y.0.$.f..I.1..(X|
00000B00: 24 29 AB 5A AA 31 3A 59  B2 28 CA 28 58 24 2C 49  |$).Z.1:Y.(.(X$,I|
00000B10: 2C 5A 29 B2 5A 24 29 B0  59 3A 82 3A 8B 59 B2 30  |,Z).Z$).Y:.:.Y.0|
00000B20: 89 39 30 30 00 48 13 70  03 4A B2 30 3A 8D 32 33  |.900.H.p.J.0:.23|
00000B30: 30 3A 99 22 93 22 3A 81  49 B2 30 A4 34 3A 99 41  |0:.".":.I.0.4:.A|
00000B40: 24 28 30 2C 49 29 3A 82  00 6F 13 7A 03 99 22 11  |$(0,I):..o.z..".|
00000B50: D6 45 52 44 45 52 5A 4F  45 4B 45 4E 20 20 20 20  |.ERDERZOEKEN    |
00000B60: 22 3B 3A 8D 31 33 39 30  3A 8B 49 89 39 32 30 00  |";:.1390:.I.920.|
00000B70: 84 13 84 03 4B B2 4B AA  31 3A 8B 4B B3 B2 4E 58  |....K.K.1:.K..NX|
00000B80: 89 38 36 30 00 B2 13 8E  03 99 3A 99 22 11 C1 4C  |.860......:."..L|
00000B90: 4C 45 20 C9 4E 50 55 54  20 56 4F 4C 4C 45 44 49  |LE .NPUT VOLLEDI|
00000BA0: 47 20 20 20 20 20 20 22  3A 8D 31 33 37 30 3A 89  |G      ":.1370:.|
00000BB0: 38 30 00 D6 13 98 03 99  22 11 D6 45 52 41 4E 44  |80......"..ERAND|
00000BC0: 45 52 45 4E 22 3A 8D 31  33 39 30 3A 91 49 89 38  |EREN":.1390:.I.8|
00000BD0: 30 3A 89 34 39 30 00 F2  13 A2 03 8F 20 46 49 4C  |0:.490...... FIL|
00000BE0: 45 20 46 4F 52 20 57 4F  52 44 20 4D 41 43 48 49  |E FOR WORD MACHI|
00000BF0: 4E 45 00 24 14 AC 03 99  22 93 CE 41 41 4D 20 42  |NE.$...."..AAM B|
00000C00: 45 53 54 41 4E 44 3A 20  20 20 20 20 22 3B 3A 4D  |ESTAND:     ";:M|
00000C10: B2 31 36 3A 8D 31 34 37  30 3A 8B 58 24 B2 22 22  |.16:.1470:.X$.""|
00000C20: 89 39 34 30 00 3F 14 B6  03 59 24 B2 58 24 3A 8D  |.940.?...Y$.X$:.|
00000C30: 33 39 30 3A 8B C5 28 58  24 29 89 31 39 33 30 00  |390:..(X$).1930.|
00000C40: 49 14 C0 03 8B 58 89 38  30 00 7F 14 CA 03 8D 31  |I....X.80......1|
00000C50: 32 31 30 3A 99 22 11 D3  50 45 43 49 46 49 45 4B  |210:."..PECIFIEK|
00000C60: 45 20 CB 45 55 5A 45 20  20 20 22 3B 3A 8D 31 33  |E .EUZE   ";:.13|
00000C70: 39 30 3A 53 46 B2 49 3A  4A B2 30 3A 4B B2 30 00  |90:SF.I:J.0:K.0.|
00000C80: A2 14 D4 03 54 B2 54 25  28 4B 29 3A 8B 28 46 AF  |....T.T%(K):.(F.|
00000C90: C6 28 54 24 28 54 2C 39  29 29 29 B2 30 89 31 30  |.(T$(T,9))).0.10|
00000CA0: 34 30 00 B9 14 DE 03 8B  53 46 A7 99 54 24 28 54  |40......SF..T$(T|
00000CB0: 2C 30 29 3A 89 31 30 32  30 00 D9 14 E8 03 8D 32  |,0):.1020......2|
00000CC0: 33 30 3A 99 22 93 22 3A  81 49 B2 30 A4 33 3A 99  |30:.".":.I.0.3:.|
00000CD0: 41 24 28 4A 2C 49 29 3A  82 00 01 15 F2 03 99 22  |A$(J,I):......."|
00000CE0: 11 CF 56 45 52 4E 45 4D  45 4E 20 20 20 20 20 20  |..VERNEMEN      |
00000CF0: 20 22 3B 3A 8D 31 33 39  30 3A 8B 49 89 31 30 34  | ";:.1390:.I.104|
00000D00: 30 00 17 15 FC 03 8F 20  4F 55 54 50 55 54 20 54  |0...... OUTPUT T|
00000D10: 48 45 20 46 49 4C 45 00  38 15 06 04 81 49 B2 30  |HE FILE.8....I.0|
00000D20: A4 37 3A 98 31 2C 54 24  28 54 2C 49 29 3A 82 3A  |.7:.1,T$(T,I):.:|
00000D30: 44 46 B2 B6 28 44 46 29  00 4D 15 10 04 4B B2 4B  |DF..(DF).M...K.K|
00000D40: AA 31 3A 8B 4B B3 B2 4E  58 89 39 38 30 00 82 15  |.1:.K..NX.980...|
00000D50: 1A 04 98 31 2C 22 5C 22  3A 8B 44 46 B1 AB 31 A7  |...1,"\":.DF..1.|
00000D60: 91 53 46 AA 31 89 31 30  38 30 2C 38 30 3A 8F 20  |.SF.1.1080,80:. |
00000D70: 20 2D 31 3D 45 4D 50 54  59 20 44 49 53 43 46 49  | -1=EMPTY DISCFI|
00000D80: 4C 45 00 A8 15 24 04 99  22 11 C7 45 45 4E 20 C1  |LE...$.."..EEN .|
00000D90: 44 52 45 53 20 49 4E 20  44 45 5A 45 20 CB 41 54  |DRES IN DEZE .AT|
00000DA0: 45 47 4F 52 49 45 2E 22  00 C1 15 2E 04 A0 31 3A  |EGORIE."......1:|
00000DB0: 98 38 2C 22 53 30 3A 22  59 24 3A 98 38 2C 22 49  |.8,"S0:"Y$:.8,"I|
00000DC0: 30 00 CF 15 38 04 8D 31  33 37 30 3A 89 38 30 00  |0...8..1370:.80.|
00000DD0: E2 15 42 04 8F 20 50 52  49 4E 54 20 4C 41 42 45  |..B.. PRINT LABE|
00000DE0: 4C 53 00 FF 15 4C 04 53  46 B2 AB 31 3A 4D B2 33  |LS...L.SF..1:M.3|
00000DF0: 30 3A 9F 31 2C 30 34 3A  4C 4C B2 39 39 39 39 00  |0:.1,04:LL.9999.|
00000E00: 29 16 56 04 99 22 11 C5  45 4E 2D 53 50 41 54 49  |).V.."..EN-SPATI|
00000E10: 45 20 20 20 C5 54 49 4B  45 54 54 45 4E 22 3B 3A  |E   .TIKETTEN";:|
00000E20: 8D 31 33 39 30 3A 59 B2  49 00 51 16 60 04 99 22  |.1390:Y.I.Q.`.."|
00000E30: 11 D0 52 4F 45 46 41 46  44 52 55 4B 20 20 20 20  |..ROEFAFDRUK    |
00000E40: 20 22 3B 3A 8D 31 33 39  30 3A 8B 49 89 31 31 36  | ";:.1390:.I.116|
00000E50: 30 00 80 16 6A 04 50 24  B2 22 2D 2D 2D 2D 2D 2D  |0...j.P$."------|
00000E60: 2D 2D 2D 2D 45 45 52 53  54 45 20 D2 45 47 45 4C  |----EERSTE .EGEL|
00000E70: 2D 2D 2D 2D 2D 2D 2D 2D  2D 22 3A 8D 31 33 34 30  |---------":.1340|
00000E80: 00 B7 16 74 04 81 49 B2  30 A4 31 3A 50 24 B2 22  |...t..I.0.1:P$."|
00000E90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000EA0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 22 3A  |--------------":|
00000EB0: 8D 31 33 34 30 3A 82 00  F4 16 7E 04 50 24 B2 22  |.1340:....~.P$."|
00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 4C 41 41 54 53 54  |----------LAATST|
00000ED0: 45 20 52 45 47 45 4C 2D  2D 2D 2D 2D 2D 2D 22 3A  |E REGEL-------":|
00000EE0: 81 49 B2 31 A4 33 3A 8D  31 33 34 30 3A 82 3A 89  |.I.1.3:.1340:.:.|
00000EF0: 31 31 32 30 00 18 17 88  04 8D 31 32 31 30 3A 8D  |1120......1210:.|
00000F00: 31 32 35 30 3A 89 38 30  3A 8F 20 4F 55 54 50 55  |1250:.80:. OUTPU|
00000F10: 54 20 4C 41 42 45 4C 53  00 2F 17 92 04 8F 20 50  |T LABELS./.... P|
00000F20: 52 49 4E 54 20 50 48 4F  4E 45 20 42 4F 4F 4B 00  |RINT PHONE BOOK.|
00000F30: 4B 17 9C 04 53 46 B2 30  3A 4D B2 33 36 3A 59 B2  |K...SF.0:M.36:Y.|
00000F40: 31 3A 9F 31 2C 30 34 3A  4C B2 30 00 73 17 A6 04  |1:.1,04:L.0.s...|
00000F50: 99 22 11 D2 45 47 45 4C  53 20 50 45 52 20 50 41  |."..EGELS PER PA|
00000F60: 47 49 4E 41 22 4C 30 22  9D 9D 9D 9D 9D 22 3B 3A  |GINA"L0".....";:|
00000F70: 85 4C 4C 00 8D 17 B0 04  8D 31 32 31 30 3A 8D 31  |.LL......1210:.1|
00000F80: 32 35 30 3A 8D 31 33 36  30 3A 89 38 30 00 A0 17  |250:.1360:.80...|
00000F90: BA 04 8F 20 47 45 54 20  43 41 54 45 47 4F 52 59  |... GET CATEGORY|
00000FA0: 00 D8 17 C4 04 99 22 93  DA 4F 45 4B 45 4E 20 4E  |......"..OEKEN N|
00000FB0: 41 41 52 3A 22 3A 81 49  B2 30 A4 36 3A 99 2C 22  |AAR:":.I.0.6:.,"|
00000FC0: 12 22 CA 28 C4 28 49 AA  31 29 2C 32 29 22 92 20  |.".(.(I.1),2)". |
00000FD0: 22 4B 24 28 49 29 3A 82  00 14 18 CE 04 99 2C 22  |"K$(I):.......,"|
00000FE0: 12 38 92 20 C1 4C 4C 45  22 3A 99 22 11 D5 57 20  |.8. .LLE":."..W |
00000FF0: CB 45 55 5A 45 20 20 20  22 3B 3A 58 24 B2 22 31  |.EUZE   ";:X$."1|
00001000: 32 33 34 35 36 37 38 22  3A 8D 31 34 30 30 3A 46  |2345678":.1400:F|
00001010: B2 32 AE 49 00 33 18 D8  04 8E 3A 8F 20 41 4C 4C  |.2.I.3....:. ALL|
00001020: 20 41 52 45 20 4F 52 2D  45 44 20 57 49 54 48 20  | ARE OR-ED WITH |
00001030: 31 32 38 00 46 18 E2 04  8F 20 50 52 49 4E 54 20  |128.F.... PRINT |
00001040: 45 49 54 48 45 52 00 75  18 EC 04 4A B2 59 3A 81  |EITHER.u...J.Y:.|
00001050: 4B B2 30 A4 4E 58 3A 54  B2 54 25 28 4B 29 3A 8B  |K.0.NX:T.T%(K):.|
00001060: 28 46 AF C6 28 54 24 28  54 2C 39 29 29 29 B2 30  |(F..(T$(T,9))).0|
00001070: 89 31 33 32 30 00 93 18  F6 04 4A B2 59 AB 4A 3A  |.1320.....J.Y.J:|
00001080: 8D 32 33 30 3A 8B 53 46  A7 41 24 28 4A 2C 34 29  |.230:.SF.A$(J,4)|
00001090: B2 22 22 00 A1 18 00 05  8B 4A B3 59 89 31 33 32  |.""......J.Y.132|
000010A0: 30 00 BC 18 0A 05 81 49  B2 30 A4 34 3A 50 24 B2  |0......I.0.4:P$.|
000010B0: C8 28 41 24 28 30 2C 49  29 2C 4D 29 00 E6 18 14  |.(A$(0,I),M)....|
000010C0: 05 8B 4A A7 50 24 B2 50  24 AA C8 28 42 24 2C 4D  |..J.P$.P$..(B$,M|
000010D0: AA 36 AB C3 28 50 24 29  29 AA C8 28 41 24 28 31  |.6..(P$))..(A$(1|
000010E0: 2C 49 29 2C 4D 29 00 F8  18 1E 05 8D 31 33 34 30  |,I),M)......1340|
000010F0: 3A 82 3A 8D 31 33 34 30  00 29 19 28 05 82 4B 3A  |:.:.1340.).(..K:|
00001100: 8B 4A B3 59 A7 81 49 B2  30 A4 34 3A 50 24 B2 C8  |.J.Y..I.0.4:P$..|
00001110: 28 41 24 28 30 2C 49 29  2C 4D 29 3A 8D 31 33 34  |(A$(0,I),M):.134|
00001120: 30 3A 82 3A 8D 31 33 34  30 00 2F 19 32 05 8E 00  |0:.:.1340./.2...|
00001130: 5C 19 3C 05 4C B2 4C AA  31 3A 98 31 2C 22 11 22  |\.<.L.L.1:.1,"."|
00001140: AA 50 24 3A 50 24 B2 22  22 3A 8B 4C B3 4C 4C A7  |.P$:P$."":.L.LL.|
00001150: 8E 3A 8F 20 4C 49 4E 45  20 4F 55 54 00 7E 19 46  |.:. LINE OUT.~.F|
00001160: 05 4C B2 4C AA 31 3A 98  31 2C 22 11 22 AA 50 24  |.L.L.1:.1,".".P$|
00001170: 3A 50 24 B2 22 22 3A 8B  4C B3 4C 4C A7 8E 00 AC  |:P$."":.L.LL....|
00001180: 19 50 05 8B 4C A7 81 4C  B2 4C A4 4C 50 AB 31 3A  |.P..L..L.L.LP.1:|
00001190: 98 31 3A 82 3A 4C B2 30  3A 8E 3A 8F 20 46 49 4E  |.1:.:L.0:.:. FIN|
000011A0: 49 53 48 20 54 48 45 20  50 41 47 45 00 BC 19 5A  |ISH THE PAGE...Z|
000011B0: 05 8F 20 55 54 49 4C 49  54 49 45 53 00 FF 19 64  |.. UTILITIES...d|
000011C0: 05 99 22 11 12 20 D6 45  52 44 45 52 20 4D 45 54  |..".. .ERDER MET|
000011D0: 20 45 45 4E 20 41 4E 44  45 52 45 20 4B 45 55 5A  | EEN ANDERE KEUZ|
000011E0: 45 3B 3A 47 4F 53 55 42  35 30 3A 50 52 49 4E 54  |E;:GOSUB50:PRINT|
000011F0: 3A 50 52 49 4E 54 22 22  3A 52 45 54 55 52 4E 00  |:PRINT"":RETURN.|
00001200: 0A 1A 6E 05 58 24 B2 22  4A 4E 00 15 1A 78 05 99  |..n.X$."JN...x..|
00001210: 22 3F 20 22 3B 00 3F 1A  82 05 8D 35 30 3A 81 49  |"? ";.?....50:.I|
00001220: B2 31 A4 C3 28 58 24 29  3A 8B 43 24 B3 B1 CA 28  |.1..(X$):.C$...(|
00001230: 58 24 2C 49 2C 31 29 A7  82 3A 89 31 34 31 30 00  |X$,I,1)..:.1410.|
00001240: 58 1A 8C 05 49 B2 49 AB  31 3A 99 43 24 3B 3A 8B  |X...I.I.1:.C$;:.|
00001250: 43 B2 31 33 A7 99 3A 8E  00 74 1A 96 05 A1 57 24  |C.13..:..t....W$|
00001260: 3A 8B 57 24 B2 22 22 A7  99 22 A4 9D 22 3B 3A 89  |:.W$."".."..";:.|
00001270: 31 34 33 30 00 8A 1A A0  05 99 22 20 9D 22 3B 3A  |1430......" .";:|
00001280: 8B 57 24 B2 52 24 A7 99  3A 8E 00 A3 1A AA 05 8B  |.W$.R$..:.......|
00001290: 57 24 B2 C7 28 32 30 29  A7 99 57 24 3B 3A 89 31  |W$..(20)..W$;:.1|
000012A0: 34 31 30 00 AD 1A B4 05  89 31 34 33 30 00 C8 1A  |410......1430...|
000012B0: BE 05 58 24 B2 22 22 3A  8F 20 49 4E 50 55 54 20  |..X$."":. INPUT |
000012C0: 41 20 53 54 52 49 4E 47  00 D9 1A C8 05 A1 43 24  |A STRING......C$|
000012D0: 3A 8B 43 24 89 31 34 38  30 00 E9 1A D2 05 8D 36  |:.C$.1480......6|
000012E0: 30 3A 8B 43 B2 31 33 A7  8E 00 18 1B DC 05 8B 43  |0:.C.13........C|
000012F0: B2 32 30 AF 58 24 B1 22  22 A7 99 43 24 3B 3A 58  |.20.X$.""..C$;:X|
00001300: 24 B2 C8 28 58 24 2C C3  28 58 24 29 AB 31 29 3A  |$..(X$,.(X$).1):|
00001310: 8F 20 44 45 4C 45 54 45  00 41 1B E6 05 8B 28 31  |. DELETE.A....(1|
00001320: 32 37 AF 43 29 B3 33 32  89 31 34 39 30 3A 8F 20  |27.C).32.1490:. |
00001330: 43 55 52 53 4F 52 20 43  48 41 52 41 43 54 45 52  |CURSOR CHARACTER|
00001340: 53 00 6A 1B F0 05 8B 28  4B 25 28 43 29 B0 47 29  |S.j....(K%(C).G)|
00001350: A7 99 43 24 3B 3A 58 24  B2 58 24 AA 43 24 3A 8B  |..C$;:X$.X$.C$:.|
00001360: C3 28 58 24 29 B1 B2 4D  A7 8E 00 74 1B FA 05 89  |.(X$)..M...t....|
00001370: 31 34 39 30 00 85 1B 04  06 8F 20 49 4E 49 54 49  |1490...... INITI|
00001380: 41 4C 49 5A 45 00 B2 1B  0E 06 4C 30 B2 36 30 3A  |ALIZE.....L0.60:|
00001390: 4C 50 B2 37 32 3A 4E 58  B2 AB 31 3A 52 24 B2 C7  |LP.72:NX..1:R$..|
000013A0: 28 31 33 29 3A 48 24 B2  22 CE 41 4D 45 20 CC 49  |(13):H$.".AME .I|
000013B0: 53 54 00 D3 1B 18 06 86  4B 25 28 32 35 35 29 2C  |ST......K%(255),|
000013C0: 41 24 28 31 2C 34 29 2C  4B 24 28 36 29 2C 46 24  |A$(1,4),K$(6),F$|
000013D0: 28 38 29 00 14 1C 22 06  99 22 93 8E 13 13 0F 11  |(8)...".."......|
000013E0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000013F0: 11 11 11 11 11 11 11 11  22 A6 33 39 29 22 8F 05  |........".39)"..|
00001400: 22 3A 97 35 39 34 36 38  2C 31 34 3A 8F 20 46 4F  |":.59468,14:. FO|
00001410: 52 4D 41 54 00 4D 1C 2C  06 97 35 33 32 37 32 2C  |RMAT.M.,..53272,|
00001420: 32 B0 C2 28 35 33 32 37  32 29 3A 99 22 93 20 20  |2..(53272):.".  |
00001430: 20 20 20 12 20 C3 4F 4D  4D 4F 44 4F 52 45 20 C1  |   . .OMMODORE .|
00001440: C4 D2 C5 D3 D3 C5 CE 20  36 34 20 20 92 00 67 1C  |....... 64  ..g.|
00001450: 36 06 8D 31 39 34 30 3A  20 8F 20 43 4F 4C 4F 52  |6..1940: . COLOR|
00001460: 20 43 48 41 4E 47 45 00  AC 1C 40 06 99 22 11 12  | CHANGE...@.."..|
00001470: CB 92 41 53 53 45 54 54  45 2C 20 12 C4 92 49 53  |..ASSETTE, ...IS|
00001480: 4B 45 54 54 45 2C 20 4F  46 20 20 20 12 42 92 45  |KETTE, OF   .B.E|
00001490: 49 44 45 4E 22 3B 3A 58  24 B2 22 44 4B 42 22 3A  |IDEN";:X$."DKB":|
000014A0: 8D 31 34 30 30 3A 43 46  B2 49 AA 31 00 E4 1C 4A  |.1400:CF.I.1...J|
000014B0: 06 81 49 B2 33 32 A4 39  30 3A 87 4B 25 28 49 29  |..I.32.90:.K%(I)|
000014C0: 3A 82 3A 81 49 B2 31 39  33 A4 32 31 38 3A 4B 25  |:.:.I.193.218:K%|
000014D0: 28 49 29 B2 31 3A 82 3A  8F 20 43 48 41 52 20 41  |(I).1:.:. CHAR A|
000014E0: 52 52 41 59 00 1B 1D 54  06 42 24 B2 22 20 20 20  |RRAY...T.B$."   |
000014F0: 20 20 22 3A 81 49 B2 31  A4 35 3A 42 24 B2 42 24  |  ":.I.1.5:B$.B$|
00001500: AA 42 24 3A 82 3A 42 30  24 B2 C8 28 42 24 2C 33  |.B$:.:B0$..(B$,3|
00001510: 39 29 3A 9F 38 2C 30 38  2C 31 35 00 56 1D 5E 06  |9):.8,08,15.V.^.|
00001520: 99 22 11 C4 C1 D4 D5 CD  20 20 20 20 20 3A 20 22  |."......     : "|
00001530: 3A 4D B2 36 30 3A 47 B2  31 3A 8D 31 34 37 30 3A  |:M.60:G.1:.1470:|
00001540: 47 B2 30 3A 44 24 B2 58  24 3A 8B 44 24 B2 22 22  |G.0:D$.X$:.D$.""|
00001550: A7 44 24 B2 22 2D 00 7A  1D 68 06 99 3A 81 49 B2  |.D$."-.z.h..:.I.|
00001560: 30 A4 38 3A 87 46 24 28  49 29 3A 82 3A 8F 20 46  |0.8:.F$(I):.:. F|
00001570: 49 45 4C 44 20 4E 41 4D  45 53 00 9B 1D 72 06 81  |IELD NAMES...r..|
00001580: 49 B2 30 A4 36 3A 87 4B  24 28 49 29 3A 82 3A 8F  |I.0.6:.K$(I):.:.|
00001590: 20 43 41 54 45 47 4F 52  49 45 53 00 D4 1D 7C 06  | CATEGORIES...|.|
000015A0: 56 B2 B5 28 28 B8 28 30  29 AB 32 30 30 30 29 AD  |V..((.(0).2000).|
000015B0: 31 37 30 29 3A 86 54 24  28 56 2C 39 29 2C 54 25  |170):.T$(V,9),T%|
000015C0: 28 56 29 3A 81 49 B2 30  A4 56 3A 54 25 28 49 29  |(V):.I.0.V:T%(I)|
000015D0: B2 49 3A 82 00 E5 1D 86  06 8F 20 49 4E 50 55 54  |.I:....... INPUT|
000015E0: 20 46 49 4C 45 00 08 1E  90 06 8B 43 46 B1 32 A7  | FILE......CF.2.|
000015F0: 99 22 11 D6 41 4E 20 C4  41 54 41 53 45 54 54 45  |."..AN .ATASETTE|
00001600: 22 3B 3A 8D 31 33 39 30  00 39 1E 9A 06 8B 43 46  |";:.1390.9....CF|
00001610: B2 32 B0 28 43 46 B2 33  AF 49 B2 30 29 A7 8D 31  |.2.(CF.3.I.0)..1|
00001620: 37 39 30 3A 91 49 89 38  30 3A 9F 31 2C 31 2C 30  |790:.I.80:.1,1,0|
00001630: 2C 48 24 3A 89 31 37 33  30 00 5D 1E A4 06 A0 31  |,H$:.1730.]....1|
00001640: 3A 9F 31 2C 30 38 2C 32  2C 48 24 3A 84 38 2C 58  |:.1,08,2,H$:.8,X|
00001650: 2C 58 24 3A 8B 58 B2 30  89 31 37 33 30 00 6D 1E  |,X$:.X.0.1730.m.|
00001660: AE 06 8D 31 37 39 30 3A  8B 49 89 38 30 00 A6 1E  |...1790:.I.80...|
00001670: B8 06 99 22 11 CC 41 41  44 54 20 D5 20 41 2E 55  |..."..AADT . A.U|
00001680: 2E 42 2E 20 20 44 45 20  20 C4 49 53 4B 45 54 54  |.B.  DE  .ISKETT|
00001690: 45 20 45 4E 20 20 20 20  20 22 3A 8D 31 33 37 30  |E EN     ":.1370|
000016A0: 3A 89 31 37 30 30 00 B0  1E C2 06 58 24 B2 22 22  |:.1700.....X$.""|
000016B0: 00 D2 1E CC 06 A1 23 31  2C 43 24 3A 8B 43 24 B3  |......#1,C$:.C$.|
000016C0: B1 52 24 A7 58 24 B2 58  24 AA 43 24 3A 89 31 37  |.R$.X$.X$.C$:.17|
000016D0: 34 30 00 FE 1E D6 06 99  22 93 C5 4E 54 45 52 45  |40......"..NTERE|
000016E0: 44 3A 20 12 22 58 24 3A  99 3A 8F 20 44 41 54 45  |D: ."X$:.:. DATE|
000016F0: 4C 49 4E 45 20 46 52 4F  4D 20 46 49 4C 45 00 34  |LINE FROM FILE.4|
00001700: 1F E0 06 81 49 B2 30 A4  56 3A 84 31 2C 58 24 3A  |....I.0.V:.1,X$:|
00001710: 8B 58 24 B2 22 5C 22 B0  53 54 B1 30 89 31 37 38  |.X$."\".ST.0.178|
00001720: 30 3A 8F 20 52 45 41 44  49 4E 47 20 43 4F 4D 50  |0:. READING COMP|
00001730: 4C 45 54 45 00 65 1F EA  06 99 58 24 3A 54 24 28  |LETE.e....X$:T$(|
00001740: 49 2C 30 29 B2 58 24 3A  81 4A B2 31 A4 39 3A 84  |I,0).X$:.J.1.9:.|
00001750: 31 2C 54 24 28 49 2C 4A  29 3A 82 3A 54 25 28 49  |1,T$(I,J):.:T%(I|
00001760: 29 B2 49 3A 82 00 7F 1F  F4 06 4E 58 B2 49 AB 31  |).I:......NX.I.1|
00001770: 3A 89 38 30 3A 8F 20 43  4F 4D 50 4C 45 54 45 00  |:.80:. COMPLETE.|
00001780: A2 1F FE 06 99 22 11 CE  49 45 55 57 45 20 C4 41  |....."..IEUWE .A|
00001790: 54 41 22 3B 3A 8D 31 33  39 30 3A 49 B2 31 AB 49  |TA";:.1390:I.1.I|
000017A0: 3A 8E 00 C4 1F 08 07 8F  20 41 43 43 45 50 54 41  |:....... ACCEPTA|
000017B0: 42 4C 45 20 43 48 41 52  41 43 54 45 52 53 20 33  |BLE CHARACTERS 3|
000017C0: 32 2D 39 30 00 09 20 12  07 83 31 2C 31 2C 30 2C  |2-90.. ...1,1,0,|
000017D0: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
000017E0: 31 2C 30 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,0,1,1,1,1,1,1,|
000017F0: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 30 2C  |1,1,1,1,1,1,1,0,|
00001800: 30 2C 31 2C 31 2C 31 2C  31 00 44 20 1C 07 83 31  |0,1,1,1,1.D ...1|
00001810: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001820: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001830: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001840: 2C 31 2C 31 00 8C 20 26  07 83 22 C1 43 48 54 45  |,1,1.. &..".CHTE|
00001850: 52 4E 41 41 4D 22 2C 22  D6 4F 4F 52 4E 41 41 4D  |RNAAM",".OORNAAM|
00001860: 22 2C 22 C1 41 4E 48 45  46 28 44 57 5A 20 C4 48  |",".ANHEF(DWZ .H|
00001870: 52 2C CD 45 56 52 2C C6  41 4D 2E 2C C6 49 52 4D  |R,.EVR,.AM.,.IRM|
00001880: 41 29 22 2C 22 54 49 54  45 4C 9D 22 00 C9 20 30  |A)","TITEL.".. 0|
00001890: 07 83 22 CF 52 47 41 4E  49 53 41 54 49 45 20 22  |..".RGANISATIE "|
000018A0: 2C 22 D3 54 52 41 41 54  20 22 2C 22 D0 CC C1 C1  |,".TRAAT ","....|
000018B0: D4 D3 20 22 2C 22 D3 54  41 41 54 22 2C 22 D4 45  |.. ",".TAAT",".E|
000018C0: 4C 45 46 4F 4F 4E 4E 52  2E 00 E0 20 3A 07 8F 20  |LEFOONNR... :.. |
000018D0: 53 45 56 45 4E 20 43 41  54 45 47 4F 52 49 45 53  |SEVEN CATEGORIES|
000018E0: 00 EF 20 44 07 83 20 22  C6 41 4D 49 4C 49 45 00  |.. D.. ".AMILIE.|
000018F0: FF 20 4E 07 83 20 22 D6  52 49 45 4E 44 45 4E 00  |. N.. ".RIENDEN.|
00001900: 16 21 58 07 83 20 22 C1  52 42 45 49 44 53 4B 4F  |.!X.. ".RBEIDSKO|
00001910: 4C 4C 45 47 41 53 00 24  21 62 07 83 20 22 C1 52  |LLEGAS.$!b.. ".R|
00001920: 54 53 45 4E 00 36 21 6C  07 83 20 22 C9 4E 53 54  |TSEN.6!l.. ".NST|
00001930: 49 54 55 54 45 4E 00 45  21 76 07 83 20 22 D3 43  |ITUTEN.E!v.. ".C|
00001940: 48 4F 4C 45 4E 00 55 21  80 07 83 20 22 CF 56 45  |HOLEN.U!... ".VE|
00001950: 52 49 47 45 4E 00 67 21  8A 07 99 58 24 3A 8D 31  |RIGEN.g!...X$:.1|
00001960: 33 37 30 3A 89 38 30 00  82 21 94 07 8F 20 43 4F  |370:.80..!... CO|
00001970: 4C 4F 52 20 43 48 41 4E  47 45 20 52 4F 55 54 49  |LOR CHANGE ROUTI|
00001980: 4E 45 00 A6 21 9E 07 96  A5 43 28 58 29 B2 C2 28  |NE..!....C(X)..(|
00001990: 58 29 AA 31 AA 31 36 AC  28 28 C2 28 58 29 AF 31  |X).1.16.((.(X).1|
000019A0: 35 29 B2 31 35 29 00 CC  21 A8 07 99 22 13 11 11  |5).15)..!..."...|
000019B0: 11 12 C6 31 92 3D 20 CB  4C 45 55 52 20 56 41 4E  |...1.= .LEUR VAN|
000019C0: 20 CF 4D 4C 49 4A 53 54  49 4E 47 22 00 ED 21 B2  | .MLIJSTING"..!.|
000019D0: 07 99 22 11 11 12 C6 33  92 3D 20 C1 43 48 54 45  |.."....3.= .CHTE|
000019E0: 52 47 52 4F 4E 44 2D CB  4C 45 55 52 22 00 11 22  |RGROND-.LEUR".."|
000019F0: BC 07 99 22 11 11 12 C6  35 92 3D 20 CB 4C 45 55  |..."....5.= .LEU|
00001A00: 52 20 56 41 4E 20 44 45  20 4C 45 54 54 45 52 53  |R VAN DE LETTERS|
00001A10: 22 00 2B 22 C6 07 99 22  11 11 12 D2 C5 D4 D5 D2  |".+"..."........|
00001A20: CE 92 3D 20 D6 45 52 44  45 52 22 00 3C 22 D0 07  |..= .ERDER".<"..|
00001A30: A1 43 24 3A 8B 43 24 89  32 30 30 30 00 50 22 DA  |.C$:.C$.2000.P".|
00001A40: 07 A1 43 24 3A 8B 43 24  B2 22 22 89 32 30 31 30  |..C$:.C$."".2010|
00001A50: 00 76 22 E4 07 43 B2 C6  28 43 24 29 3A 8B 43 B2  |.v"..C..(C$):.C.|
00001A60: 31 33 35 A7 97 36 34 36  2C A5 43 28 36 34 36 29  |135..646,.C(646)|
00001A70: 3A 89 31 39 36 30 00 A2  22 EE 07 43 B2 C6 28 43  |:.1960.."..C..(C|
00001A80: 24 29 3A 8B 43 B2 31 33  33 B0 43 B2 31 33 34 A7  |$):.C.133.C.134.|
00001A90: 58 B2 35 33 31 34 37 AA  43 3A 97 58 2C A5 43 28  |X.53147.C:.X,.C(|
00001AA0: 58 29 00 B2 22 F8 07 8B  43 B3 B1 31 33 89 32 30  |X).."...C..13.20|
00001AB0: 30 30 00 B8 22 02 08 8E  00 00 00                 |00.."......     |

....... * ADRES 64 *.0...."..":.53281,0:
.53280,0.D....G(14):.650,128.N.(..1540.]
.2..C$:.C$.50.Z.<..C$:.C$.." .";:C.F(C$)
:....F.."..";:.60...P. 1:. MENU ENTRY.G.
Z..".      . COMMODORE ADRESSEN 64  ....
..D.."FUNKTIES  :.."...N..,".E.=DATA INV
OEREN...X..,".A.=ZOEKEN NAAR.+....,".D.R
UKKEN VAN ETIKETTEN.K....,".R.ONDSCHRIJV
EN-ADRESSEN.K....,".T.ELEFOONBOEK AFDRUK
KEN... ..,".S.AVEN VAN DE NAMENLIJST....
..,".P.ROGRAMMA EINDE.K....".WELKE    ";
:X$."PEADRST":.1400......I.460,770,1090,
930,310,1170.#.H..".SEITENVORSCHUB";:.13
90:.I.0..1,04:L..1:.1360: 1.[.R..OF..".S
AVEN VAN DE  *NAAM LIIST*";:.1390:.I.0..
330.S... 1:."..TOTZIENS!":....... FORMAT
 THE LINE.....X$.T$(T,0):Y$.T$(T,1):.C(Y
$).1.X$.Y$." ".X$.....Y$.T$(T,2):.C(Y$).
1.X$.Y$." ".X$.....Y$.T$(T,3):.C(Y$).1.X
$.X$.", ".Y$.F...A$(J,0).X$:.I.1.3:A$(J,
I)."":Y$.T$(T,I.3):.C(Y$).1.A$(J,I).Y$.W
....:.C(T$(T,7)).1.A$(J,3).A$(J,3).", ".
T$(T,7)...".A$(J,4).T$(T,8):X.F(T$(T,9))
.127:....,.BLOCKS .E....6.. OUTPUT FILE.
L.@..330:.80...J.Y$.H$:.390:.E(X$).1930.
..T..X.....^.OF.0:.1,D$:....H..I.0.NX:T.
T%(I):.T$(T,0).9.R..J.0.9:.1,T$(T,J):.J,
I.Q.|..1,"\":.:. COMPLETE.N.... OPEN THE
 FILE TO WRITE. ...DF.0:X.0:X$."":.CF.2.
.".OP  DATASETTE";:.1390.A....CF.2.(CF.3
.I.0)..1,1,1,Y$:......DF..1:L$."0:".Y$:.
1,08,2,L$:.8,X: 1:.X.450.+....:.".DATA B
ESTAAT AL - OVERSCHRIJVEN ";:.1390:.I.X.
1:..?....8,"S"L$:.8,"I0._.B..1,08,3,L$."
,S,W":.8,X,X$:..U.L.. CREATE AN ENTRY...
V..NX..V..".. HELAAS GEEN PLAATS MEER VR
IJ":.1370:.80.U...NX.NX.1:K.NX:T.T%(K):T
$(T,9).G(128).....OF.1:M.39:Y.0:. GET NA
ME/ADDRESS.....J.0:.230.9....". ";:.I.1.
30:.".";:.:.I.1.5:."...";:.:.".";.D....I
.1.30:."...";:.:.I.1.5:."...";:.:.".....
..I.0.4:."."A$(J,I):.:.Y.8.610......"...
......."B0$:."."F$(Y):.B0$"..A.&..1470:.
C..13.510...0..:.I(X$,1)." ".X$.H(X$,C(X
$).1):.560...:..X$."".T$(T,Y)."".Y.Y.1:.
2.(Y.9).540,500.(.D..C(X$).1.600.[.N.X$.
"-":.Y.0..".VERWIJDEREN":.1390:.I.1.740,
500.U.X.T$(T,Y).X$:Y.Y.1:.500...B.X$."12
34567".R$:. GET CATEGORIES...L..".......
..KATEGORIEN:.P.V..I.0.6:.,:.X.2.I..".";
......I.1"."K$(I):.......".HOE ORDENEN/V
ERWIJDEREN  .";:.1410:I.2.I.1...X.(X.I).
.(X.I):.X.128.620.R...T$(T,9).G(X):. COM
PLETE EDIT.|....".."B0$:.".ACCEPTABEL";:
.1390:.I.490......NX.1.80:. MUST BE IN O
RDER.V...X$.T$(T,0):.K.NX..I.K.NX.1:T%(I
).T%(I.1):.:. REMOVE T...F..I.0.NX.1:.T$
(T%(I),0).X$..:. LOCATE T'S SLOT.E.P..I.
NX.J.I.1:.I.NX.J..1:T%(I).T%(I.1):.:. MA
KE ROOM FOR T.F.Z.T%(I).T:.80:. INSERT T
, EXIT.~.... CLEAN UP DELETION......I.0.
9:T$(T,I)."":..F...NX.NX.1:.I.K.NX:T%(I)
.T%(I.1):.:T%(I).T:.80...... SELECT/EDIT
 AN ENTRY......".":."ZOEKEN NAAR:  .A.CH
TERNAAM"......,"    .V.OORNAAM.2. ..,"  
  .P.LAATS.E.*..,"    .S.TAAT.^.4..,"   
 .T.ELEFOONNR....>..".WELKE    ";:X$."NV
LLLLPST":.1400:F.I...H.M.40:.".SLEUTELWO
ORD  : ";:.1470:Z$.X$:Z.C(Z$).X.R.K.0:. 
SEARCH FOR FIELD...\.T.T%(K):X$.T$(T,F):
Y.0.$.F..I.1.C(X$).Z.1:Y.(J(X$,I,Z).Z$).
Y:.:.Y.0.900.H.P.J.0:.230:.".":.I.0.4:.A
$(0,I):..O.Z..".VERDERZOEKEN    ";:.1390
:.I.920.....K.K.1:.K..NX.860......:.".AL
LE INPUT VOLLEDIG      ":.1370:.80.V....
".VERANDEREN":.1390:.I.80:.490...... FIL
E FOR WORD MACHINE.$....".NAAM BESTAND: 
    ";:M.16:.1470:.X$."".940.?...Y$.X$:.
390:.E(X$).1930.I....X.80..J..1210:.".S
PECIFIEKE KEUZE   ";:.1390:SF.I:J.0:K.0.
..T.T.T%(K):.(F.F(T$(T,9))).0.1040......
SF..T$(T,0):.1020.Y....230:.".":.I.0.3:.
A$(J,I):.......".OVERNEMEN       ";:.139
0:.I.1040...... OUTPUT THE FILE.8....I.0
.7:.1,T$(T,I):.:DF..(DF).M...K.K.1:.K..N
X.980......1,"\":.DF..1..SF.1.1080,80:. 
 -1=EMPTY DISCFILE...$..".GEEN ADRES IN 
DEZE KATEGORIE.".A... 1:.8,"S0:"Y$:.8,"I
0.O.8..1370:.80...B.. PRINT LABELS...L.S
F..1:M.30:.1,04:LL.9999.).V..".EEN-SPATI
E   ETIKETTEN";:.1390:Y.I.Q.`..".PROEFAF
DRUK     ";:.1390:.I.1160...J.P$."------
----EERSTE REGEL---------":.1340...T..I.
0.1:P$."------------------------------":
.1340:....~.P$."----------LAATSTE REGEL-
------":.I.1.3:.1340:.:.1120......1210:.
1250:.80:. OUTPUT LABELS./.... PRINT PHO
NE BOOK.K...SF.0:M.36:Y.1:.1,04:L.0.S...
.".REGELS PER PAGINA"L0".....";:.LL.....
.1210:.1250:.1360:.80. .... GET CATEGORY
.X.D..".ZOEKEN NAAR:":.I.0.6:.,"."J(D(I.
1),2)". "K$(I):....N..,".8. ALLE":.".UW 
KEUZE   ";:X$."12345678":.1400:F.2.I.3.X
..:. ALL ARE OR-ED WITH 128.F.... PRINT 
EITHER.U...J.Y:.K.0.NX:T.T%(K):.(F.F(T$(
T,9))).0.1320.....J.Y.J:.230:.SF.A$(J,4)
.""......J.Y.1320......I.0.4:P$.H(A$(0,I
),M)......J.P$.P$.H(B$,M.6.C(P$)).H(A$(1
,I),M)......1340:.:.1340.).(..K:.J.Y..I.
0.4:P$.H(A$(0,I),M):.1340:.:.1340./.2...
\.<.L.L.1:.1,".".P$:P$."":.L.LL..:. LINE
 OUT.~.F.L.L.1:.1,".".P$:P$."":.L.LL....
.P..L..L.L.LP.1:.1:.:L.0:.:. FINISH THE 
PAGE...Z.. UTILITIES...D..".. VERDER MET
 EEN ANDERE KEUZE;:GOSUB50:PRINT:PRINT""
:RETURN...N.X$."JN...X.."? ";.?....50:.I
.1.C(X$):.C$..J(X$,I,1)..:.1410.X...I.I.
1:.C$;:.C.13..:..T....W$:.W$."".."..";:.
1430... .." .";:.W$.R$..:.......W$.G(20)
..W$;:.1410......1430.H...X$."":. INPUT 
A STRING.Y.H..C$:.C$.1480...R..60:.C.13.
.......C.20.X$.""..C$;:X$.H(X$,C(X$).1):
. DELETE.A....(127.C).32.1490:. CURSOR C
HARACTERS.J....(K%(C).G)..C$;:X$.X$.C$:.
C(X$)..M...T....1490...... INITIALIZE...
..L0.60:LP.72:NX..1:R$.G(13):H$."NAME LI
ST.S....K%(255),A$(1,4),K$(6),F$(8)...".
."..............................".39)"..
":.59468,14:. FORMAT.M.,..53272,2.B(5327
2):.".     . COMMODORE ADRESSEN 64  ..G.
6..1940: . COLOR CHANGE...@.."..K.ASSETT
E, .D.ISKETTE, OF   .B.EIDEN";:X$."DKB":
.1400:CF.I.1...J..I.32.90:.K%(I):.:.I.19
3.218:K%(I).1:.:. CHAR ARRAY...T.B$."   
  ":.I.1.5:B$.B$.B$:.:B0$.H(B$,39):.8,08
,15.V.^..".DATUM     : ":M.60:G.1:.1470:
G.0:D$.X$:.D$."".D$."-.Z.H..:.I.0.8:.F$(
I):.:. FIELD NAMES...R..I.0.6:.K$(I):.:.
 CATEGORIES.T.|.V..((.(0).2000).170):.T$
(V,9),T%(V):.I.0.V:T%(I).I:....... INPUT
 FILE......CF.2..".VAN DATASETTE";:.1390
.9....CF.2.(CF.3.I.0)..1790:.I.80:.1,1,0
,H$:.1730.]... 1:.1,08,2,H$:.8,X,X$:.X.0
.1730.M....1790:.I.80......".LAADT U A.U
.B.  DE  DISKETTE EN     ":.1370:.1700..
.B.X$."".R.L..#1,C$:.C$..R$.X$.X$.C$:.17
40...V..".ENTERED: ."X$:.:. DATELINE FRO
M FILE.4....I.0.V:.1,X$:.X$."\".ST.0.178
0:. READING COMPLETE.E....X$:T$(I,0).X$:
.J.1.9:.1,T$(I,J):.:T%(I).I:.....NX.I.1
:.80:. COMPLETE......".NIEUWE DATA";:.13
90:I.1.I:..D.... ACCEPTABLE CHARACTERS 3
2-90.. ...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.D ...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.. &.."ACHTERNAAM","VOORNAAM
","AANHEF(DWZ DHR,MEVR,FAM.,FIRMA)","TIT
EL.".I 0.."ORGANISATIE ","STRAAT ","PLAA
TS ","STAAT","TELEFOONNR... :.. SEVEN CA
TEGORIES.. D.. "FAMILIE.. N.. "VRIENDEN.
.!X.. "ARBEIDSKOLLEGAS.$!B.. "ARTSEN.6!L
.. "INSTITUTEN.E!V.. "SCHOLEN.U!... "OVE
RIGEN.G!...X$:.1370:.80..!... COLOR CHAN
GE ROUTINE..!....C(X).B(X).1.16.((B(X).1
5).15).L!...".....F1.= KLEUR VAN OMLIJST
ING"..!..."...F3.= ACHTERGROND-KLEUR".."
..."...F5.= KLEUR VAN DE LETTERS".+"F.."
...RETURN.= VERDER".<"P..C$:.C$.2000.P"Z
..C$:.C$."".2010.V"..C.F(C$):.C.135..646
,.C(646):.1960.."..C.F(C$):.C.133.C.134.
X.53147.C:.X,.C(X).."...C..13.2000.."...
...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL