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

SSIMUL│♠     

FILE INFORMATION

FILENAME(S): SSIMUL│♠     

FILE TYPE(S): SEQ

FILE SIZE: 5.3K

FIRST SEEN: 2025-12-02 02:15:42

APPEARS ON: 1 disk(s)

FILE HASH

7294d7461168e640d36fb6b0969cd27423392289eb58d06106b92a3eac2f3dda

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
BAMIGA SECTOR 1 SSIMUL│♠      SEQ The BAM Archive 23 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 62 69 6A 6E 61 20 20  20 20 20 FA 14 80 80 C9  |.bijna     .....|
00000010: 13 00 0A 14 00 F1 77 61  63 68 74 65 6E 3D 38 31  |......wachten=81|
00000020: 30 30 0E 00 00 A4 1F 00  0D 00 14 11 00 F1 6D 65  |00............me|
00000030: 6E 75 3D 39 30 30 30 0E  00 00 28 23 00 0D 00 1E  |nu=9000...(#....|
00000040: 16 00 F1 70 72 69 6E 74  6E 61 61 6D 3D 38 33 30  |...printnaam=830|
00000050: 30 0E 00 00 6C 20 00 0D  00 28 0D 00 F1 74 65 6C  |0...l ...(...tel|
00000060: 3D 30 0E 00 00 00 00 00  0D 00 64 02 00 FB 0D 00  |=0........d.....|
00000070: 69 24 00 F5 AD 35 0E 00  00 05 00 00 3B 22 50 72  |i$...5......;"Pr|
00000080: 6F 67 72 61 6D 6D 61 20  69 6E 72 69 63 68 74 65  |ogramma inrichte|
00000090: 6E 2E 22 27 27 27 0D 00  6E 16 00 F5 22 48 6F 65  |n."'''..n..."Hoe|
000000A0: 76 65 65 6C 20 6E 61 6D  65 6E 20 3F 20 20 22 3B  |veel namen ?  ";|
000000B0: 0D 00 70 0B 00 EE 61 61  6E 74 6E 61 6D 65 6E 0D  |..p...aantnamen.|
000000C0: 00 72 0B 00 F5 61 61 6E  74 6E 61 6D 65 6E 0D 00  |.r...aantnamen..|
000000D0: 73 18 00 E9 6E 24 28 61  61 6E 74 6E 61 6D 65 6E  |s...n$(aantnamen|
000000E0: 2C 35 36 0E 00 00 38 00  00 29 0D 00 78 22 00 F5  |,56...8..)..x"..|
000000F0: 22 55 69 74 20 68 6F 65  76 65 65 6C 20 6B 65 6E  |"Uit hoeveel ken|
00000100: 6E 69 73 73 65 6E 6B 72  69 6E 67 65 6E 20 22 3B  |nissenkringen ";|
00000110: 0D 00 79 0A 00 EE 61 61  6E 74 73 65 74 73 0D 00  |..y...aantsets..|
00000120: 7A 0A 00 F5 61 61 6E 74  73 65 74 73 0D 00 7D 18  |z...aantsets..}.|
00000130: 00 E9 73 24 28 61 61 6E  74 6E 61 6D 65 6E 2C 61  |..s$(aantnamen,a|
00000140: 61 6E 74 73 65 74 73 29  0D 00 7E 17 00 E9 6F 24  |antsets)..~...o$|
00000150: 28 61 61 6E 74 73 65 74  73 2C 31 35 0E 00 00 0F  |(aantsets,15....|
00000160: 00 00 29 0D 00 82 14 00  EB 6E 3D 31 0E 00 00 01  |..)......n=1....|
00000170: 00 00 CC 61 61 6E 74 73  65 74 73 0D 00 8C 16 00  |...aantsets.....|
00000180: F5 22 4B 72 69 6E 67 6E  61 61 6D 20 22 3B 6E 3B  |."Kringnaam ";n;|
00000190: 22 20 20 22 3B 0D 00 91  07 00 EE 6F 24 28 6E 29  |"  ";......o$(n)|
000001A0: 0D 00 92 07 00 F5 6F 24  28 6E 29 0D 00 96 03 00  |......o$(n).....|
000001B0: F3 6E 0D 00 A0 04 00 F5  3A F5 0D 00 AA 39 00 F5  |.n......:....9..|
000001C0: 22 48 6F 65 76 65 65 6C  20 76 65 72 73 63 68 69  |"Hoeveel verschi|
000001D0: 6C 6C 65 6E 64 65 22 3B  22 77 6F 6F 6E 70 6C 61  |llende";"woonpla|
000001E0: 61 74 73 65 6E 20 67 61  20 6A 65 20 69 6E 76 6F  |atsen ga je invo|
000001F0: 65 72 65 6E 20 3F 22 0D  00 AF 0C 00 EE 61 61 6E  |eren ?"......aan|
00000200: 74 77 6F 6F 6E 70 6C 0D  00 B4 37 00 FA C3 28 61  |twoonpl...7...(a|
00000210: 61 6E 74 77 6F 6F 6E 70  6C 3D 30 0E 00 00 00 00  |antwoonpl=0.....|
00000220: 00 C5 61 61 6E 74 77 6F  6F 6E 70 6C 3E 32 35 35  |..aantwoonpl>255|
00000230: 0E 00 00 FF 00 00 29 CB  EC 32 30 30 0E 00 00 C8  |......)..200....|
00000240: 00 00 0D 00 B9 2A 00 F5  61 61 6E 74 77 6F 6F 6E  |.....*..aantwoon|
00000250: 70 6C 3B 22 20 6B 61 6E  20 6E 69 65 74 20 69 6E  |pl;" kan niet in|
00000260: 20 64 69 74 20 70 72 6F  67 72 61 6D 6D 61 2E 22  | dit programma."|
00000270: 0D 00 BE 0B 00 EC 31 37  30 0E 00 00 AA 00 00 0D  |......170.......|
00000280: 00 C8 19 00 E9 77 24 28  61 61 6E 74 77 6F 6F 6E  |.....w$(aantwoon|
00000290: 70 6C 2C 32 30 0E 00 00  14 00 00 29 0D 03 DE 07  |pl,20......)....|
000002A0: 00 20 EC 6D 65 6E 75 0D  03 E8 3E 00 FB 3A F5 AD  |. .menu...>..:..|
000002B0: 38 0E 00 00 08 00 00 3B  22 4E 61 6D 65 6E 20 69  |8......;"Namen i|
000002C0: 6E 76 6F 65 72 65 6E 2E  22 2C 2C 2C 2C 2C 3A ED  |nvoeren.",,,,,:.|
000002D0: 38 30 30 30 0E 00 00 40  1F 00 3A FA 6E 3E 61 61  |8000...@..:.n>aa|
000002E0: 6E 74 6E 61 6D 65 6E CB  FE 0D 03 F2 42 00 F5 22  |ntnamen.....B.."|
000002F0: 4E 61 61 6D 22 3A F5 22  53 74 72 61 61 74 2B 6E  |Naam":."Straat+n|
00000300: 72 22 3A F5 22 50 6F 73  74 63 6F 64 65 22 3A F5  |r":."Postcode":.|
00000310: 22 57 6F 6F 6E 70 6C 61  61 74 73 22 3A F5 22 54  |"Woonplaats":."T|
00000320: 65 6C 65 66 6F 6F 6E 20  6E 72 22 3A EE 69 24 0D  |elefoon nr":.i$.|
00000330: 04 30 0D 00 FA 69 24 3D  22 6D 65 6E 75 22 CB FE  |.0...i$="menu"..|
00000340: 0D 04 31 14 00 F1 6E 24  28 6E 2C CC 31 35 0E 00  |..1...n$(n,.15..|
00000350: 00 0F 00 00 29 3D 69 24  0D 04 33 23 00 F5 AC 33  |....)=i$..3#...3|
00000360: 0E 00 00 03 00 00 2C 31  32 0E 00 00 0C 00 00 3B  |......,12......;|
00000370: 6E 24 28 6E 2C CC 31 35  0E 00 00 0F 00 00 29 0D  |n$(n,.15......).|
00000380: 04 38 19 00 EE 6E 24 28  6E 2C 31 36 0E 00 00 10  |.8...n$(n,16....|
00000390: 00 00 CC 33 36 0E 00 00  24 00 00 29 0D 04 3D 2B  |...36...$..)..=+|
000003A0: 00 F5 AC 34 0E 00 00 04  00 00 2C 31 32 0E 00 00  |...4......,12...|
000003B0: 0C 00 00 3B 6E 24 28 6E  2C 31 36 0E 00 00 10 00  |...;n$(n,16.....|
000003C0: 00 CC 33 35 0E 00 00 23  00 00 29 0D 04 42 19 00  |..35...#..)..B..|
000003D0: EE 6E 24 28 6E 2C 33 37  0E 00 00 25 00 00 CC 34  |.n$(n,37...%...4|
000003E0: 34 0E 00 00 2C 00 00 29  0D 04 47 2B 00 F5 AC 35  |4...,..)..G+...5|
000003F0: 0E 00 00 05 00 00 2C 31  32 0E 00 00 0C 00 00 3B  |......,12......;|
00000400: 6E 24 28 6E 2C 33 37 0E  00 00 25 00 00 CC 34 34  |n$(n,37...%...44|
00000410: 0E 00 00 2C 00 00 29 0D  04 49 0E 00 E9 64 24 28  |...,..)..I...d$(|
00000420: 32 30 0E 00 00 14 00 00  29 0D 04 4C 04 00 EE 64  |20......)..L...d|
00000430: 24 0D 04 4D 0C 00 ED 38  34 30 30 0E 00 00 D0 20  |$..M...8400.... |
00000440: 00 0D 04 4E 10 00 FA 77  3E 61 61 6E 74 77 6F 6F  |...N...w>aantwoo|
00000450: 6E 70 6C CB FE 0D 04 4F  13 00 F1 6E 24 28 6E 2C  |npl....O...n$(n,|
00000460: 34 35 0E 00 00 2D 00 00  29 3D C2 77 0D 04 50 0A  |45...-..)=.w..P.|
00000470: 00 F1 77 24 28 77 29 3D  64 24 0D 04 51 19 00 F5  |..w$(w)=d$..Q...|
00000480: AC 36 0E 00 00 06 00 00  2C 31 32 0E 00 00 0C 00  |.6......,12.....|
00000490: 00 3B 77 24 28 77 29 0D  04 56 70 00 EE 6E 24 28  |.;w$(w)..Vp..n$(|
000004A0: 6E 2C 34 36 0E 00 00 2E  00 00 CC 35 36 0E 00 00  |n,46.......56...|
000004B0: 38 00 00 29 3A F5 AC 37  0E 00 00 07 00 00 2C 31  |8..):..7......,1|
000004C0: 32 0E 00 00 0C 00 00 3B  6E 24 28 6E 2C 34 36 0E  |2......;n$(n,46.|
000004D0: 00 00 2E 00 00 CC 35 36  0E 00 00 38 00 00 29 3A  |......56...8..):|
000004E0: F5 3A F5 3A EB 6D 3D 31  0E 00 00 01 00 00 CC 61  |.:.:.m=1.......a|
000004F0: 61 6E 74 73 65 74 73 3A  F5 6F 24 28 6D 29 3B 22  |antsets:.o$(m);"|
00000500: 20 6A 2F 6E 20 22 3B 3A  EE 69 24 0D 04 CE 1E 00  | j/n ";:.i$.....|
00000510: FA C3 28 69 24 3D 22 6A  22 C5 69 24 3D 22 6E 22  |..(i$="j".i$="n"|
00000520: 29 CB EC 31 32 32 30 0E  00 00 C4 04 00 0D 04 D3  |)..1220.........|
00000530: 04 00 F5 69 24 0D 04 D8  0C 00 F1 73 24 28 6E 2C  |...i$......s$(n,|
00000540: 6D 29 3D 69 24 0D 04 E2  03 00 F3 6D 0D 07 6C 2F  |m)=i$......m..l/|
00000550: 00 F5 AC 32 30 0E 00 00  14 00 00 2C 30 0E 00 00  |...20......,0...|
00000560: 00 00 00 3B 22 4E 6F 67  20 65 65 6E 20 6E 61 61  |...;"Nog een naa|
00000570: 6D 20 69 6E 76 6F 65 72  65 6E 20 6A 2F 6E 22 0D  |m invoeren j/n".|
00000580: 07 76 04 00 EE 69 24 0D  07 80 1E 00 FA C3 28 69  |.v...i$.......(i|
00000590: 24 3D 22 6A 22 C5 69 24  3D 22 6E 22 29 CB EC 31  |$="j".i$="n")..1|
000005A0: 39 30 30 0E 00 00 6C 07  00 0D 07 8A 0A 00 FA 69  |900...l........i|
000005B0: 24 3D 22 6E 22 CB FE 0D  07 9E 0C 00 EC 31 30 30  |$="n"........100|
000005C0: 30 0E 00 00 E8 03 00 0D  07 D4 17 00 FB 3A F5 22  |0............:."|
000005D0: 47 65 67 65 76 65 6E 73  20 77 69 6A 7A 69 67 65  |Gegevens wijzige|
000005E0: 6E 22 0D 07 E4 0D 00 F1  74 65 6C 3D 30 0E 00 00  |n"......tel=0...|
000005F0: 00 00 00 0D 07 E9 0C 00  ED 33 30 32 30 0E 00 00  |.........3020...|
00000600: CC 0B 00 0D 07 EB 0D 00  FA 69 24 3D 22 6D 65 6E  |.........i$="men|
00000610: 75 22 CB FE 0D 07 EE 25  00 FA 74 65 6C 3D 30 0E  |u".....%..tel=0.|
00000620: 00 00 00 00 00 C5 74 65  6C 3E 31 0E 00 00 01 00  |......tel>1.....|
00000630: 00 CB EC 32 30 30 34 0E  00 00 D4 07 00 0D 07 F3  |...2004.........|
00000640: 06 00 F1 6E 3D 6E 6E 0D  08 02 47 00 F5 3A F5 22  |...n=nn...G..:."|
00000650: 4E 61 61 6D 22 3A F5 22  53 74 72 61 61 74 20 2B  |Naam":."Straat +|
00000660: 20 6E 72 2E 22 3A F5 22  50 6F 73 74 63 6F 64 65  | nr.":."Postcode|
00000670: 22 3A F5 22 57 6F 6F 6E  70 6C 61 61 74 73 22 3A  |":."Woonplaats":|
00000680: F5 22 54 65 6C 65 66 6F  6F 6E 20 6E 72 22 3A EE  |."Telefoon nr":.|
00000690: 69 24 0D 08 7C 1B 00 FA  69 24 C9 22 22 CB F1 6E  |i$..|...i$.""..n|
000006A0: 24 28 6E 2C CC 31 35 0E  00 00 0F 00 00 29 3D 69  |$(n,.15......)=i|
000006B0: 24 0D 08 7F 77 00 F5 AC  31 32 0E 00 00 0C 00 00  |$...w...12......|
000006C0: 2C 31 32 0E 00 00 0C 00  00 3B 6E 24 28 6E 2C CC  |,12......;n$(n,.|
000006D0: 31 35 0E 00 00 0F 00 00  29 3A EE 69 24 3A FA 69  |15......):.i$:.i|
000006E0: 24 C9 22 22 CB F1 6E 24  28 6E 2C 31 36 0E 00 00  |$.""..n$(n,16...|
000006F0: 10 00 00 CC 33 36 0E 00  00 24 00 00 29 3D 69 24  |....36...$..)=i$|
00000700: 3A F5 AC 31 33 0E 00 00  0D 00 00 2C 31 32 0E 00  |:..13......,12..|
00000710: 00 0C 00 00 3B 6E 24 28  6E 2C 31 36 0E 00 00 10  |....;n$(n,16....|
00000720: 00 00 CC 33 35 0E 00 00  23 00 00 29 0D 08 8E 5E  |...35...#..)...^|
00000730: 00 EE 69 24 3A FA 69 24  C9 22 22 CB F1 6E 24 28  |..i$:.i$.""..n$(|
00000740: 6E 2C 33 37 0E 00 00 25  00 00 CC 34 34 0E 00 00  |n,37...%...44...|
00000750: 2C 00 00 29 3D 69 24 3A  F5 AC 31 34 0E 00 00 0E  |,..)=i$:..14....|
00000760: 00 00 2C 31 32 0E 00 00  0C 00 00 3B 6E 24 28 6E  |..,12......;n$(n|
00000770: 2C 33 37 0E 00 00 25 00  00 CC 34 34 0E 00 00 2C  |,37...%...44...,|
00000780: 00 00 29 3A EE 69 24 3A  F1 64 24 3D 69 24 0D 08  |..):.i$:.d$=i$..|
00000790: 99 2B 00 FA 69 24 3D 22  22 CB F1 64 24 3D 77 24  |.+..i$=""..d$=w$|
000007A0: 28 AF 6E 24 28 6E 2C 34  35 0E 00 00 2D 00 00 29  |(.n$(n,45...-..)|
000007B0: 29 3A ED 38 34 30 30 0E  00 00 D0 20 00 0D 08 9B  |):.8400.... ....|
000007C0: 13 00 F1 6E 24 28 6E 2C  34 35 0E 00 00 2D 00 00  |...n$(n,45...-..|
000007D0: 29 3D C2 77 0D 08 9C 0A  00 F1 77 24 28 77 29 3D  |)=.w......w$(w)=|
000007E0: 64 24 0D 08 9D 1A 00 F5  AC 31 35 0E 00 00 0F 00  |d$.......15.....|
000007F0: 00 2C 31 32 0E 00 00 0C  00 00 3B 77 24 28 77 29  |.,12......;w$(w)|
00000800: 0D 08 A2 A1 00 EE 69 24  3A FA 69 24 C9 22 22 CB  |......i$:.i$."".|
00000810: F1 6E 24 28 6E 2C 34 36  0E 00 00 2E 00 00 CC 35  |.n$(n,46.......5|
00000820: 36 0E 00 00 38 00 00 29  3D 69 24 3A F5 AC 31 36  |6...8..)=i$:..16|
00000830: 0E 00 00 10 00 00 2C 31  32 0E 00 00 0C 00 00 3B  |......,12......;|
00000840: 6E 24 28 6E 2C 34 36 0E  00 00 2E 00 00 CC 35 36  |n$(n,46.......56|
00000850: 0E 00 00 38 00 00 29 3A  F5 3A ED 77 61 63 68 74  |...8..):.:.wacht|
00000860: 65 6E 3A EB 6D 3D 31 32  0E 00 00 0C 00 00 CC 31  |en:.m=12.......1|
00000870: 36 0E 00 00 10 00 00 3A  F5 AC 6D 2C 30 0E 00 00  |6......:..m,0...|
00000880: 00 00 00 3B 22 20 20 20  20 20 20 20 20 20 20 20  |...;"           |
00000890: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008A0: 20 20 20 20 22 0D 08 C4  44 00 F3 6D 3A F5 AC 31  |    "...D..m:..1|
000008B0: 32 0E 00 00 0C 00 00 2C  30 0E 00 00 00 00 00 3B  |2......,0......;|
000008C0: 3A EB 6D 3D 31 0E 00 00  01 00 00 CC 61 61 6E 74  |:.m=1.......aant|
000008D0: 73 65 74 73 3A F5 6F 24  28 6D 29 3B 22 20 6A 2F  |sets:.o$(m);" j/|
000008E0: 6E 20 6F 66 20 72 65 74  75 72 6E 22 3B 0D 08 E8  |n of return";...|
000008F0: 35 00 EE 69 24 3A FA 69  24 3D 22 22 CB EC 32 33  |5..i$:.i$=""..23|
00000900: 32 30 0E 00 00 10 09 00  3A FA C3 28 69 24 3D 22  |20......:..(i$="|
00000910: 6A 22 C5 69 24 3D 22 6E  22 29 CB EC 32 32 38 30  |j".i$="n")..2280|
00000920: 0E 00 00 E8 08 00 0D 09  06 3B 00 F1 73 24 28 6E  |.........;..s$(n|
00000930: 2C 6D 29 3D 69 24 3A F5  69 24 3A F3 6D 3A F5 3A  |,m)=i$:.i$:.m:.:|
00000940: F5 22 47 65 77 69 6A 7A  69 67 64 2E 22 3A ED 77  |."Gewijzigd.":.w|
00000950: 61 63 68 74 65 6E 3A ED  77 61 63 68 74 65 6E 3A  |achten:.wachten:|
00000960: EC 6D 65 6E 75 0D 0B B8  73 00 FB 3A F5 AD 38 0E  |.menu...s..:..8.|
00000970: 00 00 08 00 00 3B 22 5A  6F 65 6B 65 6E 20 6F 70  |.....;"Zoeken op|
00000980: 20 6E 61 61 6D 22 3A F5  2C 2C 2C 2C 22 57 65 6C  | naam":.,,,,"Wel|
00000990: 6B 65 20 6E 61 61 6D 20  6F 66 20 67 65 64 65 65  |ke naam of gedee|
000009A0: 6C 74 65 20 76 61 6E 20  77 65 6C 6B 65 20 6E 61  |lte van welke na|
000009B0: 61 6D 20 3F 22 3A F1 74  65 6C 3D 30 0E 00 00 00  |am ?":.tel=0....|
000009C0: 00 00 3A EE 69 24 3A FA  69 24 3D 22 6D 65 6E 75  |..:.i$:.i$="menu|
000009D0: 22 CB FE 3A FA 69 24 3D  22 22 CB FE 0D 0B DB 2F  |"..:.i$=""...../|
000009E0: 00 F5 AC 32 30 0E 00 00  14 00 00 2C 30 0E 00 00  |...20......,0...|
000009F0: 00 00 00 3B 22 20 20 20  20 20 20 20 20 20 20 20  |...;"           |
00000A00: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 0D  |              ".|
00000A10: 0B DD A0 00 F5 AC 35 0E  00 00 05 00 00 2C 30 0E  |......5......,0.|
00000A20: 00 00 00 00 00 3B 3A FA  B1 69 24 3C 31 36 0E 00  |.....;:..i$<16..|
00000A30: 00 10 00 00 CB EC 33 31  30 30 0E 00 00 1C 0C 00  |......3100......|
00000A40: 3A F5 AC 32 30 0E 00 00  14 00 00 2C 30 0E 00 00  |:..20......,0...|
00000A50: 00 00 00 3B 22 4F 70 67  65 67 65 76 65 6E 20 6E  |...;"Opgegeven n|
00000A60: 61 61 6D 20 69 73 20 74  65 20 6C 61 6E 67 22 3A  |aam is te lang":|
00000A70: EC 31 39 31 30 0E 00 00  76 07 00 3A EB 6E 3D 31  |.1910...v..:.n=1|
00000A80: 0E 00 00 01 00 00 CC 61  61 6E 74 6E 61 6D 65 6E  |.......aantnamen|
00000A90: 3A FA 6E 24 28 6E 2C 31  0E 00 00 01 00 00 CC 28  |:.n$(n,1.......(|
00000AA0: B1 69 24 29 29 3D 69 24  CB ED 70 72 69 6E 74 6E  |.i$))=i$..printn|
00000AB0: 61 61 6D 0D 0C 30 0E 00  F3 6E 3A ED 77 61 63 68  |aam..0...n:.wach|
00000AC0: 74 65 6E 3A FE 0D 0F A5  8A 00 FB 3A F5 AD 36 0E  |ten:.......:..6.|
00000AD0: 00 00 06 00 00 3B 22 5A  6F 65 6B 65 6E 20 6F 70  |.....;"Zoeken op|
00000AE0: 20 6B 65 6E 6D 65 72 6B  22 3A F5 3A F5 3A EB 73  | kenmerk":.:.:.s|
00000AF0: 3D 31 0E 00 00 01 00 00  CC 61 61 6E 74 73 65 74  |=1.......aantset|
00000B00: 73 3A F5 6F 24 28 73 29  3A F3 73 3A F5 3A F5 22  |s:.o$(s):.s:.:."|
00000B10: 76 61 6E 20 77 65 6C 6B  20 6B 65 6E 6D 65 72 6B  |van welk kenmerk|
00000B20: 20 77 69 6C 20 6A 65 20  61 6C 6C 65 20 6E 61 6D  | wil je alle nam|
00000B30: 65 6E 20 67 65 6C 69 73  74 20 7A 69 65 6E 20 3F  |en gelist zien ?|
00000B40: 22 3A E9 64 24 28 31 35  0E 00 00 0F 00 00 29 3A  |":.d$(15......):|
00000B50: EE 69 24 0D 0F F2 2A 00  FA 69 24 3D 22 6D 65 6E  |.i$...*..i$="men|
00000B60: 75 22 CB FE 3A F1 64 24  3D 69 24 3A F5 3A EB 73  |u"..:.d$=i$:.:.s|
00000B70: 3D 31 0E 00 00 01 00 00  CC 61 61 6E 74 73 65 74  |=1.......aantset|
00000B80: 73 0D 10 0E 16 00 FA 6F  24 28 73 29 3D 64 24 CB  |s......o$(s)=d$.|
00000B90: ED 34 32 30 30 0E 00 00  68 10 00 0D 10 18 0E 00  |.4200...h.......|
00000BA0: F3 73 3A F5 3A ED 77 61  63 68 74 65 6E 0D 10 45  |.s:.:.wachten..E|
00000BB0: 0C 00 ED 38 31 30 30 0E  00 00 A4 1F 00 0D 10 4A  |...8100........J|
00000BC0: 02 00 FE 0D 10 68 2D 00  EB 6E 3D 31 0E 00 00 01  |.....h-..n=1....|
00000BD0: 00 00 CC 61 61 6E 74 6E  61 6D 65 6E 3A FA 73 24  |...aantnamen:.s$|
00000BE0: 28 6E 2C 73 29 3D 22 6A  22 CB ED 70 72 69 6E 74  |(n,s)="j"..print|
00000BF0: 6E 61 61 6D 0D 10 7C 05  00 F3 6E 3A FE 0D 13 8D  |naam..|...n:....|
00000C00: 5C 00 FB 3A F5 AD 34 0E  00 00 04 00 00 3B 22 5A  |\..:..4......;"Z|
00000C10: 6F 65 6B 65 6E 20 6F 70  20 77 6F 6F 6E 70 6C 61  |oeken op woonpla|
00000C20: 61 74 73 22 3A F5 2C 2C  2C 2C 22 56 61 6E 20 77  |ats":.,,,,"Van w|
00000C30: 65 6C 6B 65 20 77 6F 6F  6E 70 6C 61 61 74 73 20  |elke woonplaats |
00000C40: 77 69 6C 20 6A 65 22 2C  22 61 6C 6C 65 20 6E 61  |wil je","alle na|
00000C50: 6D 65 6E 20 6C 69 73 74  65 6E 20 3F 22 0D 13 A6  |men listen ?"...|
00000C60: 11 00 EE 69 24 3A FA 69  24 3D 22 6D 65 6E 75 22  |...i$:.i$="menu"|
00000C70: CB FE 0D 13 AB 40 00 FA  B1 69 24 3D 30 0E 00 00  |.....@...i$=0...|
00000C80: 00 00 00 C5 B1 69 24 3E  B1 77 24 28 31 0E 00 00  |.....i$>.w$(1...|
00000C90: 01 00 00 29 CB EC 35 30  33 30 0E 00 00 A6 13 00  |...)..5030......|
00000CA0: 3A EB 77 3D 31 0E 00 00  01 00 00 CC 61 61 6E 74  |:.w=1.......aant|
00000CB0: 77 6F 6F 6E 70 6C 0D 13  BA 53 00 FA 77 24 28 77  |woonpl...S..w$(w|
00000CC0: 2C CC 28 B1 69 24 29 29  3D 69 24 CB EC 35 31 30  |,.(.i$))=i$..510|
00000CD0: 30 0E 00 00 EC 13 00 3A  F3 77 3A F5 2C 2C 2C 3B  |0......:.w:.,,,;|
00000CE0: 22 4B 6F 6D 74 20 6E 69  65 74 20 76 6F 6F 72 20  |"Komt niet voor |
00000CF0: 69 6E 20 64 69 72 20 70  72 6F 67 72 61 6D 6D 61  |in dir programma|
00000D00: 2E 22 3A ED 77 61 63 68  74 65 6E 3A FE 0D 13 F1  |.":.wachten:....|
00000D10: 45 00 EB 6E 3D 31 0E 00  00 01 00 00 CC 61 61 6E  |E..n=1.......aan|
00000D20: 74 6E 61 6D 65 6E 3A FA  AF 6E 24 28 6E 2C 34 35  |tnamen:..n$(n,45|
00000D30: 0E 00 00 2D 00 00 29 3D  77 CB EC 70 72 69 6E 74  |...-..)=w..print|
00000D40: 6E 61 61 6D 3A F3 6E 3A  ED 77 61 63 68 74 65 6E  |naam:.n:.wachten|
00000D50: 3A EC 6D 65 6E 75 0D 17  75 81 00 FB 3A F5 AD 33  |:.menu..u...:..3|
00000D60: 0E 00 00 03 00 00 3B 22  5A 4F 45 4B 20 4F 50 20  |......;"ZOEK OP |
00000D70: 54 45 4C 45 46 4F 4F 4E  20 4E 55 4D 4D 45 52 22  |TELEFOON NUMMER"|
00000D80: 2C 2C 2C 3B 3A F5 22 56  61 6E 20 77 65 6C 6B 20  |,,,;:."Van welk |
00000D90: 74 65 6C 65 66 6F 6F 6E  6E 75 6D 6D 65 72 20 7A  |telefoonnummer z|
00000DA0: 6F 75 20 55 22 2C 22 64  65 20 62 69 6A 62 65 68  |ou U","de bijbeh|
00000DB0: 6F 72 65 6E 64 65 20 6E  61 61 6D 20 77 69 6C 6C  |orende naam will|
00000DC0: 65 6E 22 2C 22 77 65 74  65 6E 28 6D 65 74 20 6E  |en","weten(met n|
00000DD0: 65 74 6E 75 6D 6D 65 72  29 2E 22 0D 17 8E 3D 00  |etnummer)."...=.|
00000DE0: E9 64 24 28 31 31 0E 00  00 0B 00 00 29 3A EE 69  |.d$(11......):.i|
00000DF0: 24 3A FA 69 24 3D 22 6D  65 6E 75 22 CB FE 3A F1  |$:.i$="menu"..:.|
00000E00: 64 24 3D 69 24 3A F5 3A  EB 6E 3D 31 0E 00 00 01  |d$=i$:.:.n=1....|
00000E10: 00 00 CC 61 61 6E 74 6E  61 6D 65 6E 0D 17 B6 27  |...aantnamen...'|
00000E20: 00 FA 6E 24 28 6E 2C 34  36 0E 00 00 2E 00 00 CC  |..n$(n,46.......|
00000E30: 35 36 0E 00 00 38 00 00  29 3D 64 24 CB ED 70 72  |56...8..)=d$..pr|
00000E40: 69 6E 74 6E 61 61 6D 0D  17 C0 03 00 F3 6E 0D 17  |intnaam......n..|
00000E50: CA 09 00 ED 77 61 63 68  74 65 6E 0D 18 2E 02 00  |....wachten.....|
00000E60: FE 0D 1F 45 15 00 EB 6E  3D 31 0E 00 00 01 00 00  |...E...n=1......|
00000E70: CC 61 61 6E 74 6E 61 6D  65 6E 0D 1F 4A 20 00 FA  |.aantnamen..J ..|
00000E80: 6E 24 28 6E 2C CC 31 30  0E 00 00 0A 00 00 29 3D  |n$(n,.10......)=|
00000E90: 22 20 20 20 20 20 20 20  20 20 20 22 CB FE 0D 1F  |"          "....|
00000EA0: 54 03 00 F3 6E 0D 1F 68  4C 00 F5 AC 35 0E 00 00  |T...n..hL...5...|
00000EB0: 05 00 00 2C 30 0E 00 00  00 00 00 3B 22 50 72 6F  |...,0......;"Pro|
00000EC0: 67 72 61 6D 6D 61 20 76  6F 6C 22 2C 2C 22 67 65  |gramma vol",,"ge|
00000ED0: 65 6E 20 70 6C 61 61 74  73 20 6D 65 65 72 22 2C  |en plaats meer",|
00000EE0: 22 76 6F 6F 72 20 6E 6F  67 20 6D 65 65 72 20 6E  |"voor nog meer n|
00000EF0: 61 6D 65 6E 22 0D 1F 72  09 00 ED 77 61 63 68 74  |amen"..r...wacht|
00000F00: 65 6E 0D 1F 7C 02 00 FE  0D 1F AE 0B 00 F2 31 30  |en..|.........10|
00000F10: 30 0E 00 00 64 00 00 0D  1F B8 02 00 FE 0D 20 71  |0...d......... q|
00000F20: 78 00 F5 2C 2C 6E 24 28  6E 2C 31 0E 00 00 01 00  |x..,,n$(n,1.....|
00000F30: 00 CC 31 35 0E 00 00 0F  00 00 29 2C 2C 6E 24 28  |..15......),,n$(|
00000F40: 6E 2C 31 36 0E 00 00 10  00 00 CC 33 36 0E 00 00  |n,16.......36...|
00000F50: 24 00 00 29 2C 6E 24 28  6E 2C 33 37 0E 00 00 25  |$..),n$(n,37...%|
00000F60: 00 00 CC 34 34 0E 00 00  2C 00 00 29 2C 2C 77 24  |...44...,..),,w$|
00000F70: 28 AF 6E 24 28 6E 2C 34  35 0E 00 00 2D 00 00 29  |(.n$(n,45...-..)|
00000F80: 29 2C 6E 24 28 6E 2C 34  36 0E 00 00 2E 00 00 CC  |),n$(n,46.......|
00000F90: 35 36 0E 00 00 38 00 00  29 0D 20 76 19 00 F1 74  |56...8..). v...t|
00000FA0: 65 6C 3D 74 65 6C 2B 31  0E 00 00 01 00 00 3A F1  |el=tel+1......:.|
00000FB0: 6E 6E 3D 6E 3A FE 0D 20  D5 B0 00 EB 77 3D 31 0E  |nn=n:.. ....w=1.|
00000FC0: 00 00 01 00 00 CC 61 61  6E 74 77 6F 6F 6E 70 6C  |......aantwoonpl|
00000FD0: 3A FA 77 24 28 77 29 3D  22 20 20 20 20 20 20 20  |:.w$(w)="       |
00000FE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 C5 77  |             ".w|
00000FF0: 24 28 77 29 3D 64 24 CB  FE 3A F3 77 3A F5 AC 31  |$(w)=d$..:.w:..1|
00001000: 37 0E 00 00 11 00 00 2C  30 0E 00 00 00 00 00 3B  |7......,0......;|
00001010: 22 47 65 65 6E 20 70 6C  61 61 74 73 20 6D 65 65  |"Geen plaats mee|
00001020: 72 20 76 6F 6F 72 20 6E  6F 67 20 65 65 6E 22 2C  |r voor nog een",|
00001030: 22 77 6F 6F 6E 70 6C 61  61 74 73 2E 20 44 65 7A  |"woonplaats. Dez|
00001040: 65 20 6E 61 61 6D 20 77  6F 72 64 74 22 2C 22 67  |e naam wordt","g|
00001050: 65 77 69 73 74 22 3A ED  77 61 63 68 74 65 6E 3A  |ewist":.wachten:|
00001060: ED 77 61 63 68 74 65 6E  3A FE 0D 23 2A 37 00 FB  |.wachten:..#*7..|
00001070: 3A F5 AD 39 0E 00 00 09  00 00 3B 22 48 4F 4F 46  |:..9......;"HOOF|
00001080: 44 4D 45 4E 55 22 3A F5  3A F5 3A F5 22 31 20 69  |DMENU":.:.:."1 i|
00001090: 6E 76 6F 65 72 65 6E 20  6E 69 65 75 77 65 20 6E  |nvoeren nieuwe n|
000010A0: 61 6D 65 6E 22 0D 23 3C  14 00 F5 22 32 20 77 69  |amen".#<..."2 wi|
000010B0: 6A 7A 69 67 65 6E 20 6E  61 6D 65 6E 22 0D 23 46  |jzigen namen".#F|
000010C0: 14 00 F5 22 33 20 7A 6F  65 6B 65 6E 2C 6F 70 20  |..."3 zoeken,op |
000010D0: 6E 61 61 6D 22 0D 23 50  19 00 F5 22 34 20 7A 6F  |naam".#P..."4 zo|
000010E0: 65 6B 65 6E 2C 6F 70 20  6B 65 6E 6D 65 72 6B 65  |eken,op kenmerke|
000010F0: 6E 22 0D 23 5A 1A 00 F5  22 35 20 7A 6F 65 6B 65  |n".#Z..."5 zoeke|
00001100: 6E 2C 6F 70 20 77 6F 6F  6E 70 6C 61 61 74 73 22  |n,op woonplaats"|
00001110: 0D 23 64 1C 00 F5 22 36  20 7A 6F 65 6B 65 6E 2C  |.#d..."6 zoeken,|
00001120: 6F 70 20 74 65 6C 65 66  6F 6F 6E 20 6E 72 2E 22  |op telefoon nr."|
00001130: 0D 23 6E 15 00 F5 22 37  20 73 61 76 65 6E 20 70  |.#n..."7 saven p|
00001140: 72 6F 67 72 61 6D 6D 61  22 0D 23 8C 03 00 EE 6E  |rogramma".#....n|
00001150: 0D 23 96 1B 00 FA 6E 3C  31 0E 00 00 01 00 00 C5  |.#....n<1.......|
00001160: 6E 3E 37 0E 00 00 07 00  00 CB EC 6D 65 6E 75 0D  |n>7........menu.|
00001170: 23 A0 0E 00 ED 6E 2A 31  30 30 30 0E 00 00 E8 03  |#....n*1000.....|
00001180: 00 0D 23 BE 06 00 EC 6D  65 6E 75 0D FF FF FF FF  |..#....menu.....|
00001190: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000011A0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000011B0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000011C0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000011D0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000011E0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000011F0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001200: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001210: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001220: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001230: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001240: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001250: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001260: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001270: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001280: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001290: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000012A0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000012B0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000012C0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000012D0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000012E0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000012F0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001300: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001310: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001320: FF FF FF FF FF FF FF FF  FF FF F8 00 01 D1 95 B1  |................|
00001330: 95 99 BD BD B8 80 83 F4  4C A0 8F 10 48 8C 00 03  |........L...H...|
00001340: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001350: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001360: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001370: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001380: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00001390: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000013A0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000013B0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000013C0: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
000013D0: FF FF FF FF FF FF FF FF  FF FF B7 61 63 68 74 65  |...........achte|
000013E0: EE 00 00 A4 1F 00 AD 65  6E F5 00 00 28 23 00 B0  |.......en...(#..|
000013F0: 72 69 6E 74 6E 61 61 ED  00 00 6C 20 00 B4 65 EC  |rintnaa...l ..e.|
00001400: 00 00 00 00 00 A1 61 6E  74 6E 61 6D 65 EE 00 00  |......antname...|
00001410: 01 00 00 CE 3D 00 02 01  00 38 00 6C 61 67 72 6F  |....=....8.lagro|
00001420: 75 77 20 20 20 20 20 20  20 20 6C 6C 6C 6C 20 20  |uw        llll  |
00001430: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 64  |               d|
00001440: 64 64 64 64 20 20 20 01  30 30 30 30 30 30 20 20  |dddd   .000000  |
00001450: 20 20 20 A1 61 6E 74 73  65 74 F3 00 00 01 00 00  |   .antset......|
00001460: D3 06 00 02 01 00 01 00  6E CF 14 00 02 01 00 0F  |........n.......|
00001470: 00 65 65 20 20 20 20 20  20 20 20 20 20 20 20 20  |.ee             |
00001480: EE 00 00 04 00 00 00 00  01 00 00 00 00 01 00 00  |................|
00001490: F1 13 02 A1 61 6E 74 77  6F 6F 6E 70 EC 00 00 01  |....antwoonp....|
000014A0: 00 00 D7 19 00 02 01 00  14 00 6A 6A 6A 6A 6A 20  |..........jjjjj |
000014B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 C4 17  |              ..|
000014C0: 00 01 14 00 6A 6A 6A 6A  6A 20 20 20 20 20 20 20  |....jjjjj       |
000014D0: 20 20 20 20 20 20 20 20  F7 00 00 01 00 00 00 00  |        ........|
000014E0: 01 00 00 00 00 01 00 00  D5 20 02 ED 00 00 02 00  |......... ......|
000014F0: 00 00 00 01 00 00 00 00  01 00 00 56 04 06 AE EE  |...........V....|
00001500: 00 00 01 00 00 49 03 00  6C 61 67                 |.....I..lag     |
.BIJNA     ....I......WACHTEN=8100......
......MENU=9000...(#.......PRINTNAAM=830
0...L ...(...TEL=0........D.....I$...5..
....;"PROGRAMMA INRICHTEN."'''..N..."HOE
VEEL NAMEN ?  ";..P...AANTNAMEN..R...AAN
TNAMEN..S...N$(AANTNAMEN,56...8..)..X"..
"UIT HOEVEEL KENNISSENKRINGEN ";..Y...AA
NTSETS..Z...AANTSETS..}...S$(AANTNAMEN,A
ANTSETS)..~...O$(AANTSETS,15......).....
.N=1......LAANTSETS......"KRINGNAAM ";N;
"  ";......O$(N)......O$(N)......N.. ...
:....9.."HOEVEEL VERSCHILLENDE";"WOONPLA
ATSEN GA JE INVOEREN ?"......AANTWOONPL.
..7..C(AANTWOONPL=0......EAANTWOONPL>255
......)K.200...H.....*..AANTWOONPL;" KAN
 NIET IN DIT PROGRAMMA."......170.......
.H...W$(AANTWOONPL,20......)..... .MENU.
..>..:..8......;"NAMEN INVOEREN.",,,,,:.
8000...@..:.N>AANTNAMENK....B.."NAAM":."
STRAAT+NR":."POSTCODE":."WOONPLAATS":."T
ELEFOON NR":.I$..0...I$="MENU"K...1...N$
(N,L15......)=I$..3#...3......,12......;
N$(N,L15......)..8...N$(N,16......L36...
$..)..=+...4......,12......;N$(N,16.....
.L35...#..)..B...N$(N,37...%..L44...,..)
..G+...5......,12......;N$(N,37...%..L44
...,..)..I...D$(20......)..L...D$..M...8
400...P ...N...W>AANTWOONPLK...O...N$(N,
45...-..)=BW..P...W$(W)=D$..Q....6......
,12......;W$(W)..VP..N$(N,46......L56...
8..):..7......,12......;N$(N,46......L56
...8..):.:.:.M=1......LAANTSETS:.O$(M);"
 J/N ";:.I$..N...C(I$="J"EI$="N")K.1220.
..D....S...I$..X...S$(N,M)=I$......M..L/
...20......,0......;"NOG EEN NAAM INVOER
EN J/N"..V...I$......C(I$="J"EI$="N")K.1
900...L........I$="N"K.......1000.......
.T...:."GEGEVENS WIJZIGEN"......TEL=0...
.........3020...L........I$="MENU"K....%
..TEL=0......ETEL>1......K.2004...T.....
...N=NN...G..:."NAAM":."STRAAT + NR.":."
POSTCODE":."WOONPLAATS":."TELEFOON NR":.
I$..|...I$I""K.N$(N,L15......)=I$..W...
12......,12......;N$(N,L15......):.I$:.I
$I""K.N$(N,16......L36...$..)=I$:..13...
...,12......;N$(N,16......L35...#..)...^
..I$:.I$I""K.N$(N,37...%..L44...,..)=I$:
..14......,12......;N$(N,37...%..L44...,
..):.I$:.D$=I$...+..I$=""K.D$=W$(.N$(N,4
5...-..)):.8400...P .......N$(N,45...-..
)=BW......W$(W)=D$.......15......,12....
..;W$(W)......I$:.I$I""K.N$(N,46......L5
6...8..)=I$:..16......,12......;N$(N,46.
.....L56...8..):.:.WACHTEN:.M=12......L1
6......:..M,0......;"                   
            "..DD..M:..12......,0......;
:.M=1......LAANTSETS:.O$(M);" J/N OF RET
URN";...5..I$:.I$=""K.2320......:.C(I$="
J"EI$="N")K.2280.........;..S$(N,M)=I$:.
I$:.M:.:."GEWIJZIGD.":.WACHTEN:.WACHTEN:
.MENU...S..:..8......;"ZOEKEN OP NAAM":.
,,,,"WELKE NAAM OF GEDEELTE VAN WELKE NA
AM ?":.TEL=0......:.I$:.I$="MENU"K.:.I$=
""K..../...20......,0......;"           
              "... ...5......,0......;:.
.I$<16......K.3100......:..20......,0...
...;"OPGEGEVEN NAAM IS TE LANG":.1910...
V..:.N=1......LAANTNAMEN:.N$(N,1......L(
.I$))=I$K.PRINTNAAM..0...N:.WACHTEN:....
...:..6......;"ZOEKEN OP KENMERK":.:.:.S
=1......LAANTSETS:.O$(S):.S:.:."VAN WELK
 KENMERK WIL JE ALLE NAMEN GELIST ZIEN ?
":.D$(15......):.I$...*..I$="MENU"K.:.D$
=I$:.:.S=1......LAANTSETS......O$(S)=D$K
.4200...H........S:.:.WACHTEN..E...8100.
.......J.....H-..N=1......LAANTNAMEN:.S$
(N,S)="J"K.PRINTNAAM..|...N:....\..:..4.
.....;"ZOEKEN OP WOONPLAATS":.,,,,"VAN W
ELKE WOONPLAATS WIL JE","ALLE NAMEN LIST
EN ?"......I$:.I$="MENU"K....@...I$=0...
...E.I$>.W$(1......)K.5030......:.W=1...
...LAANTWOONPL...S..W$(W,L(.I$))=I$K.510
0......:.W:.,,,;"KOMT NIET VOOR IN DIR P
ROGRAMMA.":.WACHTEN:....E..N=1......LAAN
TNAMEN:..N$(N,45...-..)=WK.PRINTNAAM:.N:
.WACHTEN:.MENU..U...:..3......;"ZOEK OP 
TELEFOON NUMMER",,,;:."VAN WELK TELEFOON
NUMMER ZOU U","DE BIJBEHORENDE NAAM WILL
EN","WETEN(MET NETNUMMER)."...=..D$(11..
....):.I$:.I$="MENU"K.:.D$=I$:.:.N=1....
..LAANTNAMEN...'..N$(N,46......L56...8..
)=D$K.PRINTNAAM......N..J...WACHTEN.....
...E...N=1......LAANTNAMEN..J ..N$(N,L10
......)="          "K...T...N..HL...5...
...,0......;"PROGRAMMA VOL",,"GEEN PLAAT
S MEER","VOOR NOG MEER NAMEN"..R...WACHT
EN..|.........100...D......... QX..,,N$(
N,1......L15......),,N$(N,16......L36...
$..),N$(N,37...%..L44...,..),,W$(.N$(N,4
5...-..)),N$(N,46......L56...8..). V...T
EL=TEL+1......:.NN=N:.. U...W=1......LAA
NTWOONPL:.W$(W)="                    "EW
$(W)=D$K.:.W:..17......,0......;"GEEN PL
AATS MEER VOOR NOG EEN","WOONPLAATS. DEZ
E NAAM WORDT","GEWIST":.WACHTEN:.WACHTEN
:..#*7..:..9......;"HOOFDMENU":.:.:."1 I
NVOEREN NIEUWE NAMEN".#<..."2 WIJZIGEN N
AMEN".#F..."3 ZOEKEN,OP NAAM".#P..."4 ZO
EKEN,OP KENMERKEN".#Z..."5 ZOEKEN,OP WOO
NPLAATS".#D..."6 ZOEKEN,OP TELEFOON NR."
.#N..."7 SAVEN PROGRAMMA".#....N.#....N<
1......EN>7......K.MENU.# ...N*1000.....
..#....MENU.............................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
.............................Q..........
L ..H...................................
........................................
........................................
........................................
...ACHTE.......EN...(#..RINTNAA...L ..E.
......ANTNAME......N=....8.LAGROUW      
  LLLL                 DDDDD   .000000  
   .ANTSET......S.......NO.......EE     
        ....................ANTWOONP....
..W.......JJJJJ               D.....JJJJ
J               ................U ......
...........V.........I..LAG
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL