TELEFOON CASS
FILE INFORMATION
FILENAME(S): TELEFOON CASS
FILE TYPE(S): DEL
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 21:06:31
APPEARS ON: 1 disk(s)
FILE HASH
25f7796c9af1f5236ad7c53e90d6e01effe9a0962a8f138952b60abdac5c1330
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C P MULDER | TELEFOON CASS | DEL | DuncanTwain | 3 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 26 08 01 00 99 22 93 22 3A 8F 20 20 20 20 |..&....".":. | 00000010: 20 20 54 45 4C 45 46 4F 4F 4E 4B 4C 41 50 50 45 | TELEFOONKLAPPE| 00000020: 52 20 20 20 20 3A 00 4F 08 02 00 8F 20 20 20 20 |R :.O.... | 00000030: 20 20 20 43 4F 4D 4D 4F 44 4F 52 45 3D 3D 36 34 | COMMODORE==64| 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 | :.| 00000050: 78 08 03 00 8F 20 20 20 20 20 20 20 47 45 4D 41 |x.... GEMA| 00000060: 41 4B 54 20 44 4F 4F 52 20 20 20 20 20 20 20 20 |AKT DOOR | 00000070: 20 20 20 20 20 20 20 3A 00 A1 08 04 00 8F 20 20 | :...... | 00000080: 20 20 20 20 20 20 4A 2E 56 2E 44 4F 4E 47 45 4E | J.V.DONGEN| 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 3A 00 CA 08 05 00 8F 20 20 20 20 20 20 20 4F 50 |:...... OP| 000000B0: 20 32 35 2D 31 2D 31 39 38 36 20 20 20 20 20 20 | 25-1-1986 | 000000C0: 20 20 20 20 20 20 20 20 20 3A 00 F3 08 06 00 8F | :......| 000000D0: 20 20 20 20 20 20 20 53 50 45 43 49 41 41 4C 20 | SPECIAAL | 000000E0: 56 4F 4F 52 20 20 20 20 20 20 20 20 20 20 20 20 |VOOR | 000000F0: 20 20 3A 00 1C 09 07 00 8F 20 20 20 20 20 20 4C | :...... L| 00000100: 45 44 45 4E 20 56 41 4E 20 43 2E 56 2E 4C 2E 20 |EDEN VAN C.V.L. | 00000110: 20 20 20 20 20 20 20 20 20 20 20 3A 00 3C 09 0A | :.<..| 00000120: 00 8F 20 20 20 3E 44 45 43 4C 41 52 41 54 49 45 |.. >DECLARATIE| 00000130: 20 56 41 52 49 41 42 45 4C 45 4E 3C 00 4E 09 14 | VARIABELEN<.N..| 00000140: 00 88 20 4E 41 41 4D 20 20 20 B2 20 32 30 00 60 |.. NAAM . 20.`| 00000150: 09 1E 00 88 20 41 44 52 45 53 20 20 B2 20 32 30 |.... ADRES . 20| 00000160: 00 72 09 28 00 88 20 50 43 4F 44 45 20 20 B2 20 |.r.(.. PCODE . | 00000170: 20 37 00 84 09 32 00 88 20 57 50 4C 41 41 54 53 | 7...2.. WPLAATS| 00000180: B2 20 32 30 00 96 09 3C 00 88 20 54 45 4C 4E 52 |. 20...<.. TELNR| 00000190: 20 20 B2 20 31 34 00 A8 09 46 00 88 20 41 41 4E | . 14...F.. AAN| 000001A0: 54 41 4C 20 B2 31 32 30 00 BA 09 50 00 88 20 45 |TAL .120...P.. E| 000001B0: 49 4E 44 20 20 20 B2 20 20 30 00 CC 09 5A 00 88 |IND . 0...Z..| 000001C0: 20 4D 45 4E 55 20 20 20 B2 35 30 30 00 EB 09 64 | MENU .500...d| 000001D0: 00 8F 20 20 20 3E 44 49 4D 45 4E 53 49 4F 4E 45 |.. >DIMENSIONE| 000001E0: 52 45 4E 20 41 52 52 41 59 53 3C 00 FB 09 6E 00 |REN ARRAYS<...n.| 000001F0: 86 52 24 28 41 41 4E 54 41 4C 29 00 0C 0A 78 00 |.R$(AANTAL)...x.| 00000200: 81 4E B2 31 A4 20 41 41 4E 54 41 4C 00 1C 0A 82 |.N.1. AANTAL....| 00000210: 00 88 52 24 28 4E 29 20 B2 20 22 22 00 23 0A 8C |..R$(N) . "".#..| 00000220: 00 82 4E 00 40 0A C8 00 8F 20 20 20 3E 53 55 42 |..N.@.... >SUB| 00000230: 52 4F 55 54 49 4E 45 20 4E 55 4D 4D 45 52 53 3C |ROUTINE NUMMERS<| 00000240: 00 58 0A D2 00 8F 20 49 4E 56 4F 45 52 45 4E 20 |.X.... INVOEREN | 00000250: 20 20 20 20 20 3D 20 31 00 70 0A DC 00 8F 20 54 | = 1.p.... T| 00000260: 4F 4E 45 4E 20 20 20 20 20 20 20 20 20 3D 20 32 |ONEN = 2| 00000270: 00 88 0A E6 00 8F 20 53 4F 52 54 45 52 45 4E 20 |...... SORTEREN | 00000280: 20 20 20 20 20 3D 20 33 00 A0 0A F0 00 8F 20 5A | = 3...... Z| 00000290: 4F 45 4B 45 4E 20 20 20 20 20 20 20 20 3D 20 34 |OEKEN = 4| 000002A0: 00 B8 0A FA 00 8F 20 4D 55 54 45 52 45 4E 20 20 |...... MUTEREN | 000002B0: 20 20 20 20 20 3D 20 35 00 D0 0A 04 01 8F 20 56 | = 5...... V| 000002C0: 45 52 57 49 4A 44 45 52 45 4E 20 20 20 3D 20 36 |ERWIJDEREN = 6| 000002D0: 00 E8 0A 0E 01 8F 20 50 52 49 4E 54 45 4E 20 20 |...... PRINTEN | 000002E0: 20 20 20 20 20 3D 20 37 00 00 0B 18 01 8F 20 43 | = 7...... C| 000002F0: 41 53 53 20 4C 45 5A 45 4E 20 20 20 20 3D 20 38 |ASS LEZEN = 8| 00000300: 00 18 0B 22 01 8F 20 43 41 53 53 20 53 43 48 52 |...".. CASS SCHR| 00000310: 49 4A 56 45 4E 3D 20 39 00 2D 0B F4 01 8F 20 20 |IJVEN= 9.-.... | 00000320: 20 3E 20 48 45 54 20 4D 45 4E 55 20 3C 00 45 0B | > HET MENU <.E.| 00000330: F9 01 88 20 53 55 42 52 4F 55 54 49 4E 45 20 B2 |... SUBROUTINE .| 00000340: 20 4D 45 4E 55 00 59 0B FE 01 99 22 93 22 3A 8F | MENU.Y....".":.| 00000350: 20 43 4C 52 20 48 4F 4D 45 00 77 0B 12 02 99 A3 | CLR HOME.w.....| 00000360: 31 33 29 3B 22 20 54 45 4C 45 46 4F 4F 4E 20 4B |13);" TELEFOON K| 00000370: 4C 41 50 50 45 52 22 00 95 0B 1C 02 99 A3 31 33 |LAPPER".......13| 00000380: 29 3B 22 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |);" ============| 00000390: 3D 3D 3D 3D 22 00 9B 0B 26 02 99 00 BD 0B 30 02 |===="...&.....0.| 000003A0: 99 A3 31 31 29 3B 22 20 55 20 48 45 45 46 54 20 |..11);" U HEEFT | 000003B0: 44 45 20 4B 45 55 53 20 55 49 54 3A 22 00 C3 0B |DE KEUS UIT:"...| 000003C0: 3A 02 99 00 E5 0B 44 02 99 A3 31 33 29 3B 22 31 |:.....D...13);"1| 000003D0: 2E 29 20 49 4E 56 4F 45 52 45 4E 22 20 20 20 20 |.) INVOEREN" | 000003E0: 20 20 20 20 3A 00 07 0C 4E 02 99 A3 31 33 29 3B | :...N...13);| 000003F0: 22 32 2E 29 20 54 4F 4E 45 4E 22 20 20 20 20 20 |"2.) TONEN" | 00000400: 20 20 20 20 20 20 3A 00 29 0C 58 02 99 A3 31 33 | :.).X...13| 00000410: 29 3B 22 33 2E 29 20 53 4F 52 54 45 52 45 4E 22 |);"3.) SORTEREN"| 00000420: 20 20 20 20 20 20 20 20 3A 00 4B 0C 62 02 99 A3 | :.K.b...| 00000430: 31 33 29 3B 22 34 2E 29 20 5A 4F 45 4B 45 4E 22 |13);"4.) ZOEKEN"| 00000440: 20 20 20 20 20 20 20 20 20 20 3A 00 6D 0C 6C 02 | :.m.l.| 00000450: 99 A3 31 33 29 3B 22 35 2E 29 20 4D 55 54 45 52 |..13);"5.) MUTER| 00000460: 45 4E 22 20 20 20 20 20 20 20 20 20 3A 00 8F 0C |EN" :...| 00000470: 76 02 99 A3 31 33 29 3B 22 36 2E 29 20 56 45 52 |v...13);"6.) VER| 00000480: 57 49 4A 44 45 52 45 4E 22 20 20 20 20 20 3A 00 |WIJDEREN" :.| 00000490: B1 0C 80 02 99 A3 31 33 29 3B 22 37 2E 29 20 50 |......13);"7.) P| 000004A0: 52 49 4E 54 45 4E 22 20 20 20 20 20 20 20 20 20 |RINTEN" | 000004B0: 3A 00 D3 0C 8A 02 99 A3 31 33 29 3B 22 38 2E 29 |:.......13);"8.)| 000004C0: 20 43 41 53 53 20 4C 45 5A 45 4E 22 20 20 20 20 | CASS LEZEN" | 000004D0: 20 20 3A 00 F5 0C 94 02 99 A3 31 33 29 3B 22 39 | :.......13);"9| 000004E0: 2E 29 20 43 41 53 53 20 53 43 48 52 49 4A 56 45 |.) CASS SCHRIJVE| 000004F0: 4E 22 20 20 3A 00 17 0D 9E 02 99 A3 31 33 29 3B |N" :.......13);| 00000500: 22 30 2E 29 20 53 54 4F 50 50 45 4E 22 20 20 20 |"0.) STOPPEN" | 00000510: 20 20 20 20 20 20 3A 00 27 0D A8 02 81 49 B2 31 | :.'....I.1| 00000520: A4 32 3A 99 3A 82 49 00 4F 0D B2 02 85 20 22 20 |.2:.:.I.O.... " | 00000530: 20 20 20 20 20 20 20 20 20 57 41 54 20 57 49 4C | WAT WIL| 00000540: 54 20 55 20 44 4F 45 4E 22 3B 20 20 20 49 24 00 |T U DOEN"; I$.| 00000550: 6C 0D BC 02 8F 20 20 20 3E 20 56 4F 45 52 4F 50 |l.... > VOEROP| 00000560: 44 52 41 43 48 54 20 55 49 54 20 3C 00 81 0D C6 |DRACHT UIT <....| 00000570: 02 8B 20 49 24 B2 22 31 22 20 A7 8D 20 31 30 30 |.. I$."1" .. 100| 00000580: 30 00 96 0D D0 02 8B 20 49 24 B2 22 32 22 20 A7 |0...... I$."2" .| 00000590: 8D 20 32 30 30 30 00 AB 0D DA 02 8B 20 49 24 B2 |. 2000...... I$.| 000005A0: 22 33 22 20 A7 8D 20 33 30 30 30 00 C0 0D E4 02 |"3" .. 3000.....| 000005B0: 8B 20 49 24 B2 22 34 22 20 A7 8D 20 34 30 30 30 |. I$."4" .. 4000| 000005C0: 00 D5 0D EE 02 8B 20 49 24 B2 22 35 22 20 A7 8D |...... I$."5" ..| 000005D0: 20 35 30 30 30 00 EA 0D F8 02 8B 20 49 24 B2 22 | 5000...... I$."| 000005E0: 36 22 20 A7 8D 20 36 30 30 30 00 FF 0D 02 03 8B |6" .. 6000......| 000005F0: 20 49 24 B2 22 37 22 20 A7 8D 20 37 30 30 30 00 | I$."7" .. 7000.| 00000600: 14 0E 0C 03 8B 20 49 24 B2 22 38 22 20 A7 8D 20 |..... I$."8" .. | 00000610: 38 30 30 30 00 29 0E 16 03 8B 20 49 24 B2 22 39 |8000.).... I$."9| 00000620: 22 20 A7 8D 20 39 30 30 30 00 44 0E 20 03 8B 20 |" .. 9000.D. .. | 00000630: 49 24 B2 22 30 22 20 A7 99 22 93 22 3A 89 20 31 |I$."0" ..".":. 1| 00000640: 30 30 30 30 00 4D 0E 2A 03 89 35 30 30 00 64 0E |0000.M.*..500.d.| 00000650: 34 03 8F 20 20 20 3E 20 20 48 45 54 20 4D 45 4E |4.. > HET MEN| 00000660: 55 20 20 3C 00 7A 0E E8 03 8F 20 20 3E 20 20 49 |U <.z.... > I| 00000670: 4E 56 4F 45 52 45 4E 20 20 3C 00 99 0E F2 03 8B |NVOEREN <......| 00000680: 20 53 55 42 52 4F 55 54 49 4E 45 B2 20 4D 45 4E | SUBROUTINE. MEN| 00000690: 55 20 A7 20 99 20 22 93 22 00 B7 0E FC 03 8B 20 |U . . "."...... | 000006A0: 45 49 4E 44 20 B3 41 41 4E 54 41 4C AB 31 20 A7 |EIND .AANTAL.1 .| 000006B0: 20 89 20 31 31 30 30 00 DB 0E 06 04 99 A3 34 29 | . 1100.......4)| 000006C0: 3B 53 B0 52 59 2C 20 44 45 20 83 42 41 4E 4B 20 |;S.RY, DE .BANK | 000006D0: 49 53 20 4E 55 20 56 4F 4C 2E 22 00 EC 0E 10 04 |IS NU VOL.".....| 000006E0: 81 49 B2 31 A4 32 30 3A 99 3A 82 49 00 09 0F 1A |.I.1.20:.:.I....| 000006F0: 04 99 A3 31 33 29 3B 22 44 52 55 4B 20 4F 50 20 |...13);"DRUK OP | 00000700: 3C 52 45 54 55 52 4E 3E 22 00 14 0F 24 04 88 49 |<RETURN>"...$..I| 00000710: 24 B2 22 22 00 2A 0F 2E 04 A1 49 24 3A 8B 49 24 |$."".*....I$:.I$| 00000720: B2 22 22 20 A7 89 31 30 36 30 00 30 0F 38 04 8E |."" ..1060.0.8..| 00000730: 00 3B 0F 4C 04 88 49 24 B2 22 22 00 57 0F 56 04 |.;.L..I$."".W.V.| 00000740: 85 20 22 20 4E 41 41 4D 20 20 20 20 20 20 20 20 |. " NAAM | 00000750: 20 20 3A 22 3B 4E 24 00 91 0F 60 04 8B C3 28 4E | :";N$...`...(N| 00000760: 24 29 20 B1 4E 41 41 4D 20 A7 20 20 20 20 20 20 |$) .NAAM . | 00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000780: 88 20 4E 24 20 B2 20 C8 28 4E 24 2C 4E 41 41 4D |. N$ . .(N$,NAAM| 00000790: 29 00 B7 0F 6A 04 8F 20 20 20 20 20 20 20 20 20 |)...j.. | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007B0: 20 20 20 20 20 20 3A 00 F5 0F 74 04 8B C3 28 4E | :...t...(N| 000007C0: 24 29 20 B3 4E 41 41 4D 20 A7 20 20 20 20 20 20 |$) .NAAM . | 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007E0: 88 20 4E 24 20 B2 20 4E 24 20 AA 20 22 20 22 3A |. N$ . N$ . " ":| 000007F0: 89 31 31 33 30 00 1B 10 7E 04 8F 20 20 20 20 20 |.1130...~.. | 00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000810: 20 20 20 20 20 20 20 20 20 20 3A 00 26 10 B0 04 | :.&...| 00000820: 88 53 24 B2 22 22 00 41 10 BA 04 85 22 20 53 54 |.S$."".A...." ST| 00000830: 52 41 41 54 20 20 20 20 20 20 20 20 3A 22 3B 53 |RAAT :";S| 00000840: 24 00 7C 10 C4 04 8B C3 28 53 24 29 20 B1 20 41 |$.|.....(S$) . A| 00000850: 44 52 45 53 20 A7 20 20 20 20 20 20 20 20 20 20 |DRES . | 00000860: 20 20 20 20 20 20 20 20 20 20 88 20 53 24 20 B2 | . S$ .| 00000870: 20 C8 28 53 24 2C 41 44 52 45 53 29 00 A2 10 CE | .(S$,ADRES)....| 00000880: 04 8F 20 20 20 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 3A 00 E0 10 D8 04 8B C3 28 53 24 29 20 B3 20 | :.......(S$) . | 000008B0: 41 44 52 45 53 20 A7 20 20 20 20 20 20 20 20 20 |ADRES . | 000008C0: 20 20 20 20 20 20 20 20 20 20 20 88 20 53 24 20 | . S$ | 000008D0: B2 20 53 24 20 AA 20 22 20 22 3A 89 31 32 33 30 |. S$ . " ":.1230| 000008E0: 00 06 11 E2 04 8F 20 20 20 20 20 20 20 20 20 20 |...... | 000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000900: 20 20 20 20 20 3A 00 11 11 14 05 88 50 24 B2 22 | :......P$."| 00000910: 22 00 2D 11 1E 05 85 20 22 20 50 4F 53 54 43 4F |".-.... " POSTCO| 00000920: 44 45 20 20 20 20 20 20 3A 22 3B 50 24 00 67 11 |DE :";P$.g.| 00000930: 28 05 8B C3 28 50 24 29 20 B1 20 50 43 4F 44 45 |(...(P$) . PCODE| 00000940: 20 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00000950: 20 20 20 20 20 20 88 20 50 24 20 B2 C8 28 50 24 | . P$ ..(P$| 00000960: 2C 50 43 4F 44 45 29 00 8D 11 32 05 8F 20 20 20 |,PCODE)...2.. | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000980: 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 CA 11 | :...| 00000990: 3C 05 8B C3 20 28 50 24 29 20 B3 20 50 43 4F 44 |<... (P$) . PCOD| 000009A0: 45 20 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 |E . | 000009B0: 20 20 20 20 20 20 88 20 50 24 20 B2 20 50 24 20 | . P$ . P$ | 000009C0: AA 22 20 22 3A 89 31 33 33 30 00 F0 11 46 05 8F |." ":.1330...F..| 000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 000009F0: 00 FD 11 78 05 88 57 24 20 B2 20 22 22 00 20 12 |...x..W$ . "". .| 00000A00: 82 05 85 20 22 20 57 4F 4F 4E 50 4C 41 41 54 53 |... " WOONPLAATS| 00000A10: 20 20 20 20 3A 22 3B 57 24 20 20 20 20 20 20 3A | :";W$ :| 00000A20: 00 5D 12 8C 05 8B C3 28 57 24 29 20 B1 20 57 50 |.].....(W$) . WP| 00000A30: 4C 41 41 54 53 20 A7 20 20 20 20 20 20 20 20 20 |LAATS . | 00000A40: 20 20 20 20 20 20 20 20 20 88 20 57 24 20 B2 20 | . W$ . | 00000A50: C8 28 57 24 2C 57 50 4C 41 41 54 53 29 00 83 12 |.(W$,WPLAATS)...| 00000A60: 96 05 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A80: 20 20 3A 00 C0 12 A0 05 8B C3 28 57 24 29 20 B3 | :.......(W$) .| 00000A90: 20 57 50 4C 41 41 54 53 20 A7 20 20 20 20 20 20 | WPLAATS . | 00000AA0: 20 20 20 20 20 20 20 20 20 20 20 20 88 20 57 24 | . W$| 00000AB0: 20 B2 20 57 24 20 AA 22 20 22 3A 89 31 34 33 30 | . W$ ." ":.1430| 00000AC0: 00 E6 12 AA 05 8F 20 20 20 20 20 20 20 20 20 20 |...... | 00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AE0: 20 20 20 20 20 3A 00 F2 12 DC 05 88 54 24 20 B2 | :......T$ .| 00000AF0: 22 22 00 0E 13 E6 05 85 20 22 20 54 45 4C 45 46 |""...... " TELEF| 00000B00: 4F 4F 4E 4E 55 4D 4D 45 52 3A 22 3B 54 24 00 48 |OONNUMMER:";T$.H| 00000B10: 13 F0 05 8B C3 28 54 24 29 20 B1 54 45 4C 4E 52 |.....(T$) .TELNR| 00000B20: 20 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00000B30: 20 20 20 20 20 20 20 88 20 54 24 20 B2 C8 28 54 | . T$ ..(T| 00000B40: 24 2C 54 45 4C 4E 52 29 00 6E 13 FA 05 8F 20 20 |$,TELNR).n.... | 00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 AC | :..| 00000B70: 13 04 06 8B C3 28 54 24 29 20 B3 54 45 4C 4E 52 |.....(T$) .TELNR| 00000B80: 20 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00000B90: 20 20 20 20 20 20 20 88 20 54 24 20 B2 20 54 24 | . T$ . T$| 00000BA0: 20 AA 20 22 20 22 3A 89 31 35 33 30 00 D2 13 0E | . " ":.1530....| 00000BB0: 06 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BD0: 20 3A 00 EF 13 18 06 8B 20 53 55 42 52 4F 55 54 | :...... SUBROUT| 00000BE0: 49 4E 45 20 B2 20 35 A7 20 89 20 31 36 38 30 00 |INE . 5. . 1680.| 00000BF0: 03 14 40 06 88 20 45 49 4E 44 20 B2 20 45 49 4E |..@.. EIND . EIN| 00000C00: 44 AA 31 00 20 14 4A 06 88 52 24 28 45 49 4E 44 |D.1. .J..R$(EIND| 00000C10: 29 B2 4E 24 AA 53 24 AA 50 24 AA 57 24 AA 54 24 |).N$.S$.P$.W$.T$| 00000C20: 00 29 14 54 06 99 22 93 22 00 54 14 5E 06 85 20 |.).T..".".T.^.. | 00000C30: 22 20 20 20 20 20 20 42 45 4E 54 20 55 20 4B 4C |" BENT U KL| 00000C40: 41 41 52 20 28 4A 2F 4E 29 20 22 3B 20 20 20 20 |AAR (J/N) "; | 00000C50: 20 20 49 24 00 64 14 68 06 8B 49 24 B2 20 22 4A | I$.d.h..I$. "J| 00000C60: 22 20 A7 8E 00 79 14 72 06 8B 49 24 B2 20 22 4E |" ...y.r..I$. "N| 00000C70: 22 20 A7 20 89 31 30 30 30 00 9F 14 7C 06 8F 20 |" . .1000...|.. | 00000C80: 20 20 20 20 20 20 3E 20 20 49 4E 56 4F 45 52 45 | > INVOERE| 00000C90: 4E 20 20 3C 20 20 20 20 20 20 20 20 20 20 3A 00 |N < :.| 00000CA0: A9 14 86 06 89 31 36 32 30 00 C4 14 90 06 88 52 |.....1620......R| 00000CB0: 24 28 4E 29 20 B2 4E 24 AA 53 24 AA 50 24 AA 57 |$(N) .N$.S$.P$.W| 00000CC0: 24 AA 54 24 00 CA 14 9A 06 8E 00 F0 14 C6 07 8F |$.T$............| 00000CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 00000CF0: 00 0C 15 D0 07 8F 20 20 3E 20 20 20 54 4F 4E 45 |...... > TONE| 00000D00: 4E 20 20 20 3C 20 20 3C 3D 28 32 29 00 15 15 DA |N < <=(2)....| 00000D10: 07 99 22 93 22 00 25 15 E4 07 8B 20 45 49 4E 44 |..".".%.... EIND| 00000D20: B2 30 20 A7 8E 00 5B 15 EE 07 8B 20 53 55 42 52 |.0 ...[.... SUBR| 00000D30: 4F 55 54 49 4E 45 20 B2 4D 45 4E 55 20 A7 20 20 |OUTINE .MENU . | 00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D50: 20 81 4E B2 31 A4 20 45 49 4E 44 00 72 15 F8 07 | .N.1. EIND.r...| 00000D60: 99 20 A3 31 37 29 3B 22 2D 20 22 3B 4E 3B 22 20 |. .17);"- ";N;" | 00000D70: 2D 22 00 78 15 02 08 99 00 B9 15 0C 08 99 20 22 |-".x.......... "| 00000D80: 20 4E 41 41 4D 20 20 20 20 20 20 20 20 20 20 20 | NAAM | 00000D90: 20 3A 22 3B 20 20 20 20 20 20 20 20 20 20 20 20 | :"; | 00000DA0: 20 20 20 20 20 20 20 20 20 CA 28 52 24 28 4E 29 | .(R$(N)| 00000DB0: 2C 20 31 2C 4E 41 41 4D 29 00 FB 15 16 08 99 20 |, 1,NAAM)...... | 00000DC0: 22 20 53 54 52 41 41 54 20 20 20 20 20 20 20 20 |" STRAAT | 00000DD0: 20 20 3A 22 3B 20 20 20 20 20 20 20 20 20 20 20 | :"; | 00000DE0: 20 20 20 20 20 20 20 20 20 20 CA 28 52 24 28 4E | .(R$(N| 00000DF0: 29 2C 32 31 2C 41 44 52 45 53 29 00 3D 16 20 08 |),21,ADRES).=. .| 00000E00: 99 20 22 20 50 4F 53 54 43 4F 44 45 20 20 20 20 |. " POSTCODE | 00000E10: 20 20 20 20 3A 22 3B 20 20 20 20 20 20 20 20 20 | :"; | 00000E20: 20 20 20 20 20 20 20 20 20 20 20 20 CA 28 52 24 | .(R$| 00000E30: 28 4E 29 2C 34 31 2C 50 43 4F 44 45 29 00 81 16 |(N),41,PCODE)...| 00000E40: 2A 08 99 20 22 20 57 4F 4F 4E 50 4C 41 41 54 53 |*.. " WOONPLAATS| 00000E50: 20 20 20 20 20 20 3A 22 3B 20 20 20 20 20 20 20 | :"; | 00000E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CA 28 | .(| 00000E70: 52 24 28 4E 29 2C 34 38 2C 57 50 4C 41 41 54 53 |R$(N),48,WPLAATS| 00000E80: 29 00 C3 16 34 08 99 20 22 20 54 45 4C 45 46 4F |)...4.. " TELEFO| 00000E90: 4F 4E 4E 55 4D 4D 45 52 20 20 3A 22 3B 20 20 20 |ONNUMMER :"; | 00000EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000EB0: 20 20 CA 28 52 24 28 4E 29 2C 36 38 2C 54 45 4C | .(R$(N),68,TEL| 00000EC0: 4E 52 29 00 E0 16 3E 08 8B 20 53 55 42 52 4F 55 |NR)...>.. SUBROU| 00000ED0: 54 49 4E 45 20 B3 B1 20 4D 45 4E 55 20 A7 20 8E |TINE .. MENU . .| 00000EE0: 00 F1 16 48 08 81 49 B2 31 A4 31 33 3A 99 3A 82 |...H..I.1.13:.:.| 00000EF0: 49 00 0D 17 52 08 99 A3 31 33 29 22 44 52 55 4B |I...R...13)"DRUK| 00000F00: 20 4F 50 20 3C 52 45 54 55 52 4E 3E 22 00 18 17 | OP <RETURN>"...| 00000F10: 5C 08 88 49 24 B2 22 22 00 30 17 66 08 A1 49 24 |\..I$."".0.f..I$| 00000F20: 3A 8B 49 24 B2 22 22 20 A7 20 89 20 32 31 35 30 |:.I$."" . . 2150| 00000F30: 00 39 17 70 08 99 22 93 22 00 40 17 7A 08 82 4E |.9.p..".".@.z..N| 00000F40: 00 46 17 84 08 8E 00 6C 17 AE 0B 8F 20 20 20 20 |.F.....l.... | 00000F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000F60: 20 20 20 20 20 20 20 20 20 20 20 3A 00 8F 17 B8 | :....| 00000F70: 0B 8F 20 20 20 3E 20 20 20 20 20 53 4F 52 54 45 |.. > SORTE| 00000F80: 52 45 4E 20 20 20 20 20 3C 20 3C 3D 28 33 29 00 |REN < <=(3).| 00000F90: 98 17 C2 0B 99 22 93 22 00 AD 17 CC 0B 99 A3 31 |.....".".......1| 00000FA0: 36 29 3B 22 53 4F 52 54 45 52 45 4E 22 00 C2 17 |6);"SORTEREN"...| 00000FB0: D6 0B 99 A3 31 36 29 3B 22 3D 3D 3D 3D 3D 3D 3D |....16);"=======| 00000FC0: 3D 22 00 C8 17 E0 0B 99 00 E8 17 EA 0B 99 A3 31 |=".............1| 00000FD0: 31 29 3B 22 55 20 4B 55 4E 54 20 53 4F 52 54 45 |1);"U KUNT SORTE| 00000FE0: 52 45 4E 20 4F 50 3A 22 00 EE 17 F4 0B 99 00 F4 |REN OP:"........| 00000FF0: 17 FE 0B 99 00 16 18 08 0C 99 A3 31 31 29 3B 22 |...........11);"| 00001000: 31 2E 29 20 4E 41 41 4D 20 20 20 20 20 20 20 20 |1.) NAAM | 00001010: 20 20 20 20 20 22 00 1C 18 12 0C 99 00 3E 18 1C | ".......>..| 00001020: 0C 99 A3 31 31 29 3B 22 32 2E 29 20 53 54 52 41 |...11);"2.) STRA| 00001030: 41 54 20 20 20 20 20 20 20 20 20 20 20 22 00 44 |AT ".D| 00001040: 18 26 0C 99 00 66 18 30 0C 99 A3 31 31 29 3B 22 |.&...f.0...11);"| 00001050: 33 2E 29 20 50 4F 53 54 43 4F 44 45 20 20 20 20 |3.) POSTCODE | 00001060: 20 20 20 20 20 22 00 6C 18 3A 0C 99 00 8E 18 44 | ".l.:.....D| 00001070: 0C 99 A3 31 31 29 3B 22 34 2E 29 20 57 4F 4F 4E |...11);"4.) WOON| 00001080: 50 4C 41 41 54 53 20 20 20 20 20 20 20 22 00 94 |PLAATS "..| 00001090: 18 4E 0C 99 00 B6 18 58 0C 99 A3 31 31 29 3B 22 |.N.....X...11);"| 000010A0: 35 2E 29 20 54 45 4C 45 46 4F 4F 4E 4E 55 4D 4D |5.) TELEFOONNUMM| 000010B0: 45 52 20 20 20 22 00 C6 18 62 0C 81 49 B2 31 A4 |ER "...b..I.1.| 000010C0: 36 3A 99 3A 82 49 00 05 19 6C 0C 85 20 22 20 20 |6:.:.I...l.. " | 000010D0: 20 20 20 20 20 57 41 54 20 4B 49 45 53 54 20 55 | WAT KIEST U| 000010E0: 20 22 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 | "; | 000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001100: 20 4B 45 55 53 00 24 19 76 0C 8B 20 4B 45 55 53 | KEUS.$.v.. KEUS| 00001110: B3 31 20 B0 20 4B 45 55 53 B1 35 20 A7 20 89 20 |.1 . KEUS.5 . . | 00001120: 33 30 30 30 00 2D 19 80 0C 99 22 93 22 00 44 19 |3000.-....".".D.| 00001130: 8A 0C 8B 20 4B 45 55 53 20 B2 20 31 20 A7 20 89 |... KEUS . 1 . .| 00001140: 33 32 36 30 00 5B 19 94 0C 8B 20 4B 45 55 53 20 |3260.[.... KEUS | 00001150: B2 20 32 20 A7 20 89 33 32 39 30 00 72 19 9E 0C |. 2 . .3290.r...| 00001160: 8B 20 4B 45 55 53 20 B2 20 33 20 A7 20 89 33 33 |. KEUS . 3 . .33| 00001170: 32 30 00 89 19 A8 0C 8B 20 4B 45 55 53 20 B2 20 |20...... KEUS . | 00001180: 34 20 A7 20 89 33 33 35 30 00 A0 19 B2 0C 8B 20 |4 . .3350...... | 00001190: 4B 45 55 53 20 B2 20 35 20 A7 20 89 33 33 38 30 |KEUS . 5 . .3380| 000011A0: 00 B2 19 BC 0C 88 20 45 45 52 53 54 45 20 20 B2 |...... EERSTE .| 000011B0: 20 31 00 C7 19 C6 0C 88 20 48 4F 45 4C 41 4E 47 | 1...... HOELANG| 000011C0: 20 B2 20 4E 41 41 4D 00 D1 19 D0 0C 89 33 34 31 | . NAAM......341| 000011D0: 30 00 E4 19 DA 0C 88 20 45 45 52 53 54 45 20 20 |0...... EERSTE | 000011E0: B2 20 32 31 00 FA 19 E4 0C 88 20 48 4F 45 4C 41 |. 21...... HOELA| 000011F0: 4E 47 20 B2 20 41 44 52 45 53 00 04 1A EE 0C 89 |NG . ADRES......| 00001200: 33 34 31 30 00 17 1A F8 0C 88 20 45 45 52 53 54 |3410...... EERST| 00001210: 45 20 20 B2 20 34 31 00 2D 1A 02 0D 88 20 48 4F |E . 41.-.... HO| 00001220: 45 4C 41 4E 47 20 B2 20 50 43 4F 44 45 00 37 1A |ELANG . PCODE.7.| 00001230: 0C 0D 89 33 34 31 30 00 4A 1A 16 0D 88 20 45 45 |...3410.J.... EE| 00001240: 52 53 54 45 20 20 B2 20 34 38 00 62 1A 20 0D 88 |RSTE . 48.b. ..| 00001250: 20 48 4F 45 4C 41 4E 47 20 B2 20 57 50 4C 41 41 | HOELANG . WPLAA| 00001260: 54 53 00 6C 1A 2A 0D 89 33 34 31 30 00 7F 1A 34 |TS.l.*..3410...4| 00001270: 0D 88 20 45 45 52 53 54 45 20 20 B2 20 36 37 00 |.. EERSTE . 67.| 00001280: 95 1A 3E 0D 88 20 48 4F 45 4C 41 4E 47 20 B2 20 |..>.. HOELANG . | 00001290: 54 45 4C 4E 52 00 9F 1A 48 0D 89 33 34 31 30 00 |TELNR...H..3410.| 000012A0: B0 1A 52 0D 81 49 B2 31 A4 20 45 49 4E 44 AB 31 |..R..I.1. EIND.1| 000012B0: 00 C1 1A 5C 0D 81 4A B2 49 AA 31 A4 20 45 49 4E |...\..J.I.1. EIN| 000012C0: 44 00 E2 1A 66 0D 88 20 58 24 B2 CA 28 52 24 28 |D...f.. X$..(R$(| 000012D0: 49 29 2C 45 45 52 53 54 45 2C 48 4F 45 4C 41 4E |I),EERSTE,HOELAN| 000012E0: 47 29 00 03 1B 70 0D 88 20 59 24 B2 CA 28 52 24 |G)...p.. Y$..(R$| 000012F0: 28 4A 29 2C 45 45 52 53 54 45 2C 48 4F 45 4C 41 |(J),EERSTE,HOELA| 00001300: 4E 47 29 00 0C 1B 7A 0D 99 22 93 22 00 19 1B 84 |NG)...z.."."....| 00001310: 0D 99 A3 31 30 29 3B 58 24 00 2D 1B 8E 0D 8B 58 |...10);X$.-....X| 00001320: 24 B3 B2 59 24 20 A7 20 89 33 35 31 30 00 40 1B |$..Y$ . .3510.@.| 00001330: 98 0D 88 20 5A 24 20 20 20 20 B2 52 24 28 49 29 |... Z$ .R$(I)| 00001340: 00 53 1B A2 0D 88 20 52 24 28 49 29 20 B2 52 24 |.S.... R$(I) .R$| 00001350: 28 4A 29 00 63 1B AC 0D 88 20 52 24 28 4A 29 20 |(J).c.... R$(J) | 00001360: B2 5A 24 00 6A 1B B6 0D 82 4A 00 71 1B C0 0D 82 |.Z$.j....J.q....| 00001370: 49 00 77 1B CA 0D 8E 00 9D 1B D4 0D 8F 20 20 20 |I.w.......... | 00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001390: 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 BA 1B | :...| 000013A0: A0 0F 8F 20 20 20 3E 20 20 20 5A 4F 45 4B 45 4E |... > ZOEKEN| 000013B0: 20 20 20 3C 20 3C 3D 28 34 29 00 CF 1B AA 0F 88 | < <=(4)......| 000013C0: 20 53 55 42 52 4F 55 54 49 4E 45 20 B2 20 34 00 | SUBROUTINE . 4.| 000013D0: D8 1B B4 0F 99 22 93 22 00 EB 1B BE 0F 99 A3 31 |.....".".......1| 000013E0: 37 29 20 22 5A 4F 45 4B 45 4E 22 00 FE 1B C8 0F |7) "ZOEKEN".....| 000013F0: 99 A3 31 37 29 20 22 3D 3D 3D 3D 3D 3D 22 00 10 |..17) "======"..| 00001400: 1C D2 0F 85 20 22 20 4E 41 41 4D 3A 22 3B 56 24 |.... " NAAM:";V$| 00001410: 00 25 1C DC 0F 88 20 48 4F 45 4C 41 4E 47 20 B2 |.%.... HOELANG .| 00001420: C3 28 56 24 29 00 34 1C E6 0F 81 4E B2 31 A4 20 |.(V$).4....N.1. | 00001430: 45 49 4E 44 00 64 1C F0 0F 8B 20 56 24 B3 B1 20 |EIND.d.... V$.. | 00001440: CA 28 52 24 28 4E 29 2C 31 2C 48 4F 45 4C 41 4E |.(R$(N),1,HOELAN| 00001450: 47 29 20 20 20 20 20 20 20 20 20 20 20 A7 20 89 |G) . .| 00001460: 34 31 39 30 00 6A 1C FA 0F 8F 00 75 1C 04 10 8D |4190.j.....u....| 00001470: 20 32 30 30 30 00 8F 1C 0E 10 8F 20 20 20 20 20 | 2000...... | 00001480: 20 20 3E 20 20 20 54 4F 4E 45 4E 20 20 20 3C 00 | > TONEN <.| 00001490: 95 1C 18 10 99 00 C0 1C 22 10 85 20 22 20 20 20 |........".. " | 000014A0: 42 45 44 4F 45 4C 54 20 55 20 44 45 5A 45 20 20 |BEDOELT U DEZE | 000014B0: 28 4A 2F 4E 29 22 3B 20 20 20 20 20 20 20 49 24 |(J/N)"; I$| 000014C0: 00 D7 1C 2C 10 8B 49 24 20 B3 B1 20 22 4A 22 20 |...,..I$ .. "J" | 000014D0: A7 20 89 34 31 39 30 00 DD 1C 36 10 99 00 FA 1C |. .4190...6.....| 000014E0: 40 10 99 A3 37 29 20 22 44 52 55 4B 20 4F 50 20 |@...7) "DRUK OP | 000014F0: 3C 52 45 54 55 52 4E 3E 20 22 00 11 1D 4A 10 A1 |<RETURN> "...J..| 00001500: 49 24 3A 8B 49 24 B2 22 22 20 A7 20 89 34 31 37 |I$:.I$."" . .417| 00001510: 30 00 17 1D 54 10 8E 00 20 1D 5E 10 99 22 93 22 |0...T... .^.."."| 00001520: 00 27 1D 68 10 82 4E 00 4F 1D 72 10 99 20 22 20 |.'.h..N.O.r.. " | 00001530: 4E 41 41 4D 20 4F 4E 42 45 4B 45 4E 44 3B 44 52 |NAAM ONBEKEND;DR| 00001540: 55 4B 20 4F 50 20 3C 52 45 54 55 52 4E 3E 22 00 |UK OP <RETURN>".| 00001550: 66 1D 7C 10 A1 49 24 3A 8B 49 24 B2 22 22 20 A7 |f.|..I$:.I$."" .| 00001560: 20 89 34 32 32 30 00 6C 1D 86 10 8E 00 8B 1D 88 | .4220.l........| 00001570: 13 8F 20 20 20 3E 20 20 20 4D 55 54 45 52 45 4E |.. > MUTEREN| 00001580: 20 20 20 3C 20 20 3C 3D 28 35 29 00 A0 1D 92 13 | < <=(5).....| 00001590: 88 20 53 55 42 52 4F 55 54 49 4E 45 20 B2 20 35 |. SUBROUTINE . 5| 000015A0: 00 A9 1D 9C 13 99 22 93 22 00 BD 1D A6 13 99 A3 |......".".......| 000015B0: 31 37 29 3B 22 4D 55 54 45 52 45 4E 22 00 D1 1D |17);"MUTEREN"...| 000015C0: B0 13 99 A3 31 37 29 3B 22 3D 3D 3D 3D 3D 3D 3D |....17);"=======| 000015D0: 22 00 E3 1D BA 13 85 22 20 4E 41 41 4D 3A 20 22 |"......" NAAM: "| 000015E0: 3B 56 24 00 F9 1D C4 13 88 20 48 4F 45 4C 41 4E |;V$...... HOELAN| 000015F0: 47 20 B2 20 C3 28 56 24 29 00 08 1E CE 13 81 4E |G . .(V$)......N| 00001600: B2 31 A4 20 45 49 4E 44 00 39 1E D8 13 8B 20 56 |.1. EIND.9.... V| 00001610: 24 B3 B1 CA 28 52 24 28 4E 29 2C 31 2C 48 4F 45 |$...(R$(N),1,HOE| 00001620: 4C 41 4E 47 29 20 20 20 20 20 20 20 20 20 20 20 |LANG) | 00001630: 20 A7 20 89 20 35 31 39 30 00 3F 1E E2 13 8F 00 | . . 5190.?.....| 00001640: 4A 1E EC 13 8D 20 32 30 30 30 00 60 1E F6 13 8F |J.... 2000.`....| 00001650: 20 20 20 20 3E 20 20 54 4F 4E 45 4E 20 20 20 3C | > TONEN <| 00001660: 00 66 1E 00 14 99 00 91 1E 0A 14 85 20 22 20 20 |.f.......... " | 00001670: 20 20 20 42 45 44 4F 45 4C 54 20 55 20 44 45 5A | BEDOELT U DEZ| 00001680: 45 20 28 4A 2F 4E 29 22 3B 20 20 20 20 20 20 49 |E (J/N)"; I| 00001690: 24 00 A8 1E 14 14 8B 49 24 B2 B3 B1 20 22 4A 22 |$......I$... "J"| 000016A0: 20 A7 20 89 35 31 39 30 00 AE 1E 1E 14 99 00 B9 | . .5190........| 000016B0: 1E 28 14 8D 20 31 30 30 30 00 D0 1E 32 14 8F 20 |.(.. 1000...2.. | 000016C0: 20 20 20 3E 20 20 49 4E 56 4F 45 52 20 20 20 3C | > INVOER <| 000016D0: 00 D6 1E 3C 14 8E 00 DF 1E 46 14 99 22 93 22 00 |...<.....F..".".| 000016E0: E6 1E 50 14 82 4E 00 0E 1F 5A 14 99 20 22 20 4E |..P..N...Z.. " N| 000016F0: 41 41 4D 20 4F 4E 42 45 4B 45 4E 44 3B 44 52 55 |AAM ONBEKEND;DRU| 00001700: 4B 20 4F 50 20 3C 52 45 54 55 52 4E 3E 22 00 25 |K OP <RETURN>".%| 00001710: 1F 64 14 A1 49 24 3A 8B 49 24 B2 22 22 20 A7 20 |.d..I$:.I$."" . | 00001720: 89 35 32 32 30 00 2B 1F 6E 14 8E 00 4D 1F 70 17 |.5220.+.n...M.p.| 00001730: 8F 20 20 3E 20 20 20 56 45 52 57 49 4A 44 45 52 |. > VERWIJDER| 00001740: 45 4E 20 20 20 3C 20 20 3C 3D 28 36 29 00 62 1F |EN < <=(6).b.| 00001750: 7A 17 88 20 53 55 42 52 4F 55 54 49 4E 45 20 B2 |z.. SUBROUTINE .| 00001760: 20 36 00 6B 1F 84 17 99 22 93 22 00 83 1F 8E 17 | 6.k....".".....| 00001770: 99 A3 31 35 29 3B 22 56 45 52 57 49 4A 44 45 52 |..15);"VERWIJDER| 00001780: 45 4E 22 00 9B 1F 98 17 99 A3 31 35 29 3B 22 3D |EN".......15);"=| 00001790: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 A1 1F A2 17 |==========".....| 000017A0: 99 00 B4 1F AC 17 85 22 20 4E 41 41 4D 20 20 3A |......." NAAM :| 000017B0: 22 3B 56 24 00 CA 1F B6 17 88 20 48 4F 45 4C 41 |";V$...... HOELA| 000017C0: 4E 47 20 B2 20 C3 28 56 24 29 00 D9 1F C0 17 81 |NG . .(V$)......| 000017D0: 49 B2 31 A4 20 45 49 4E 44 00 0A 20 CA 17 8B 56 |I.1. EIND.. ...V| 000017E0: 24 20 B3 B1 20 CA 28 52 24 28 4E 29 2C 31 2C 48 |$ .. .(R$(N),1,H| 000017F0: 4F 45 4C 41 4E 47 29 20 20 20 20 20 20 20 20 20 |OELANG) | 00001800: 20 20 A7 20 89 20 36 32 31 30 00 10 20 D4 17 8F | . . 6210.. ...| 00001810: 00 1B 20 DE 17 8D 20 32 30 30 30 00 31 20 E8 17 |.. ... 2000.1 ..| 00001820: 8F 20 20 20 3E 20 20 20 54 4F 4E 45 4E 20 20 20 |. > TONEN | 00001830: 3C 00 37 20 F2 17 99 00 62 20 FC 17 85 22 20 20 |<.7 ....b ..." | 00001840: 20 20 42 45 44 4F 45 4C 54 20 55 20 44 45 5A 45 | BEDOELT U DEZE| 00001850: 20 20 28 4A 2F 4E 29 22 3B 20 20 20 20 20 20 20 | (J/N)"; | 00001860: 49 24 00 78 20 06 18 8B 49 24 20 B3 B1 22 4A 22 |I$.x ...I$ .."J"| 00001870: 20 A7 20 89 36 32 31 30 00 89 20 10 18 81 4B B2 | . .6210.. ...K.| 00001880: 4E AA 31 A4 20 45 49 4E 44 00 9D 20 1A 18 88 52 |N.1. EIND.. ...R| 00001890: 24 28 4B AB 31 29 20 B2 52 24 28 4B 29 00 AE 20 |$(K.1) .R$(K).. | 000018A0: 24 18 88 52 24 28 45 49 4E 44 29 B2 22 22 00 C1 |$..R$(EIND).""..| 000018B0: 20 2E 18 88 20 45 49 4E 44 B2 20 45 49 4E 44 AB | ... EIND. EIND.| 000018C0: 31 00 C7 20 38 18 8E 00 D0 20 42 18 99 22 93 22 |1.. 8.... B.."."| 000018D0: 00 D7 20 4C 18 82 4E 00 FE 20 56 18 99 22 20 4E |.. L..N.. V.." N| 000018E0: 41 41 4D 20 4F 4E 42 45 4B 45 4E 44 3B 44 52 55 |AAM ONBEKEND;DRU| 000018F0: 4B 20 4F 50 20 3C 52 45 54 55 52 4E 3E 22 00 15 |K OP <RETURN>"..| 00001900: 21 60 18 A1 49 24 3A 8B 49 24 B2 22 22 20 A7 20 |!`..I$:.I$."" . | 00001910: 89 36 32 34 30 00 1B 21 6A 18 8E 00 33 21 58 1B |.6240..!j...3!X.| 00001920: 8F 20 20 20 3E 20 20 20 50 52 49 4E 54 45 4E 20 |. > PRINTEN | 00001930: 20 20 3C 00 55 21 62 1B 9F 20 33 2C 34 20 3A 8F | <.U!b.. 3,4 :.| 00001940: 20 55 49 54 56 4F 45 52 20 4E 41 41 52 20 50 52 | UITVOER NAAR PR| 00001950: 49 4E 54 45 52 00 64 21 6C 1B 81 4E B2 31 A4 20 |INTER.d!l..N.1. | 00001960: 45 49 4E 44 00 A8 21 76 1B 98 33 2C 22 20 20 20 |EIND..!v..3," | 00001970: 4E 41 41 4D 20 20 20 20 20 20 20 22 3B 20 20 20 |NAAM "; | 00001980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001990: 20 20 20 20 20 20 20 20 CA 28 52 24 28 4E 29 2C | .(R$(N),| 000019A0: 20 31 2C 4E 41 41 4D 29 00 ED 21 80 1B 98 33 2C | 1,NAAM)..!...3,| 000019B0: 22 20 20 20 53 54 52 41 41 54 20 20 20 20 20 22 |" STRAAT "| 000019C0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 000019D0: 20 20 20 20 20 20 20 20 20 20 20 20 CA 28 52 24 | .(R$| 000019E0: 28 4E 29 2C 32 31 2C 41 44 52 45 53 29 00 32 22 |(N),21,ADRES).2"| 000019F0: 8A 1B 98 33 2C 22 20 20 20 50 4F 53 54 43 4F 44 |...3," POSTCOD| 00001A00: 45 20 20 20 22 3B 20 20 20 20 20 20 20 20 20 20 |E "; | 00001A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A20: 20 CA 28 52 24 28 4E 29 2C 34 31 2C 50 43 4F 44 | .(R$(N),41,PCOD| 00001A30: 45 29 00 79 22 94 1B 98 33 2C 22 20 20 20 57 4F |E).y"...3," WO| 00001A40: 4F 4E 50 4C 41 41 54 53 20 22 3B 20 20 20 20 20 |ONPLAATS "; | 00001A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001A60: 20 20 20 20 20 20 CA 28 52 24 28 4E 29 2C 34 38 | .(R$(N),48| 00001A70: 2C 57 50 4C 41 41 54 53 29 00 BE 22 9E 1B 98 33 |,WPLAATS).."...3| 00001A80: 2C 22 20 20 20 54 45 4C 45 46 4F 4F 4E 4E 52 2E |," TELEFOONNR.| 00001A90: 22 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |"; | 00001AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 CA 28 52 | .(R| 00001AB0: 24 28 4E 29 2C 36 38 2C 54 45 4C 4E 52 29 00 E1 |$(N),68,TELNR)..| 00001AC0: 22 A8 1B 98 33 2C 22 20 22 20 20 20 20 20 20 20 |"...3," " | 00001AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AE0: 3A 00 E8 22 B2 1B 82 4E 00 F0 22 BC 1B A0 20 33 |:.."...N.."... 3| 00001AF0: 00 F6 22 C6 1B 8E 00 11 23 40 1F 8F 20 20 20 3E |..".....#@.. >| 00001B00: 20 20 20 43 41 53 53 2D 4C 45 5A 45 4E 20 20 20 | CASS-LEZEN | 00001B10: 3C 00 1A 23 4A 1F 99 22 93 22 00 3C 23 54 1F 85 |<..#J..".".<#T..| 00001B20: 22 20 20 20 20 20 20 20 20 20 20 4E 41 41 4D 20 |" NAAM | 00001B30: 44 41 54 41 42 41 4E 4B 22 3B 49 24 00 4B 23 5E |DATABANK";I$.K#^| 00001B40: 1F 9F 20 31 2C 31 2C 30 2C 49 24 00 89 23 68 1F |.. 1,1,0,I$..#h.| 00001B50: 8F 20 4F 50 45 4E 20 44 45 20 43 41 53 53 2D 46 |. OPEN DE CASS-F| 00001B60: 49 4C 45 20 49 24 20 20 20 20 20 20 20 20 20 20 |ILE I$ | 00001B70: 20 20 20 20 20 20 45 4E 20 4C 45 45 53 20 52 24 | EN LEES R$| 00001B80: 20 56 41 4E 20 44 49 53 43 00 9A 23 72 1F 81 4E | VAN DISC..#r..N| 00001B90: B2 31 A4 20 41 41 4E 54 41 4C 00 A7 23 7C 1F 84 |.1. AANTAL..#|..| 00001BA0: 31 2C 52 24 28 4E 29 00 CD 23 86 1F 8B 52 24 28 |1,R$(N)..#...R$(| 00001BB0: 4E 29 B2 22 53 54 4F 50 22 20 A7 20 88 20 45 49 |N)."STOP" . . EI| 00001BC0: 4E 44 20 B2 4E AB 31 3A 89 38 30 39 30 00 D4 23 |ND .N.1:.8090..#| 00001BD0: 90 1F 82 4E 00 F0 23 9A 1F A0 20 31 20 3A 8F 20 |...N..#... 1 :. | 00001BE0: 53 4C 55 49 54 20 44 45 20 46 49 4C 45 20 49 24 |SLUIT DE FILE I$| 00001BF0: 00 F6 23 A4 1F 8E 00 1B 24 28 23 8F 20 20 20 3E |..#.....$(#. >| 00001C00: 20 20 20 43 41 53 53 2D 53 43 48 52 49 4A 56 45 | CASS-SCHRIJVE| 00001C10: 4E 20 20 20 3C 20 3C 3D 28 39 29 00 24 24 32 23 |N < <=(9).$$2#| 00001C20: 99 22 93 22 00 46 24 3C 23 85 22 20 20 20 20 20 |.".".F$<#." | 00001C30: 20 20 20 20 20 4E 41 41 4D 20 44 41 54 41 42 41 | NAAM DATABA| 00001C40: 4E 4B 22 3B 49 24 00 55 24 46 23 9F 20 31 2C 31 |NK";I$.U$F#. 1,1| 00001C50: 2C 31 2C 49 24 00 88 24 50 23 8F 20 4F 50 45 4E |,1,I$..$P#. OPEN| 00001C60: 20 44 45 20 43 41 53 53 2D 46 49 4C 45 20 49 24 | DE CASS-FILE I$| 00001C70: 20 20 45 4E 20 53 43 48 52 49 4A 46 20 52 24 20 | EN SCHRIJF R$ | 00001C80: 4F 50 20 43 41 53 53 2E 00 A1 24 5A 23 88 52 24 |OP CASS...$Z#.R$| 00001C90: 28 45 49 4E 44 AA 31 29 20 B2 20 22 53 54 4F 50 |(EIND.1) . "STOP| 00001CA0: 22 00 B2 24 64 23 81 4E B2 31 A4 20 45 49 4E 44 |"..$d#.N.1. EIND| 00001CB0: AA 31 00 BF 24 6E 23 98 31 2C 52 24 28 4E 29 00 |.1..$n#.1,R$(N).| 00001CC0: C6 24 78 23 82 4E 00 E1 24 82 23 A0 20 31 3A 8F |.$x#.N..$.#. 1:.| 00001CD0: 20 53 4C 55 49 54 20 44 45 20 46 49 4C 45 20 49 | SLUIT DE FILE I| 00001CE0: 24 00 E7 24 8C 23 8E 00 F9 24 10 27 99 3A 99 3A |$..$.#...$.'.:.:| 00001CF0: 99 3A 99 3A 99 3A 99 3A 99 00 11 25 1A 27 99 A3 |.:.:.:.:...%.'..| 00001D00: 31 33 29 22 47 45 4D 41 41 4B 54 20 44 4F 4F 52 |13)"GEMAAKT DOOR| 00001D10: 22 00 29 25 24 27 99 A3 31 33 29 22 4A 20 56 20 |".)%$'..13)"J V | 00001D20: 44 4F 4E 47 45 4E 20 20 22 00 41 25 2E 27 99 A3 |DONGEN ".A%.'..| 00001D30: 31 33 29 22 4F 50 20 32 35 2D 31 2D 31 39 38 36 |13)"OP 25-1-1986| 00001D40: 22 00 5A 25 38 27 99 A3 31 33 29 22 53 50 45 43 |".Z%8'..13)"SPEC| 00001D50: 49 41 41 4C 20 56 4F 4F 52 22 00 72 25 42 27 99 |IAAL VOOR".r%B'.| 00001D60: A3 31 33 29 22 4C 45 44 45 4E 20 56 41 4E 20 20 |.13)"LEDEN VAN | 00001D70: 20 22 00 8C 25 4C 27 99 3A 99 A3 31 33 29 22 20 | "..%L'.:..13)" | 00001D80: 20 20 20 43 2E 56 2E 4C 2E 20 20 22 00 9C 25 56 | C.V.L. "..%V| 00001D90: 27 99 3A 99 3A 99 3A 99 3A 99 3A 99 00 00 00 |'.:.:.:.:.:.... |
..&....".":. TELEFOONKLAPPER :.O
.... COMMODORE==64 :.
X.... GEMAAKT DOOR :
...... J.V.DONGEN
:.J.... OP 25-1-1986
:...... SPECIAAL VOOR
:...... LEDEN VAN C.V.L.
:.<.... >DECLARATIE VARIABELEN<.N..
.. NAAM . 20.`.... ADRES . 20.R.(.. P
CODE . 7...2.. WPLAATS. 20...<.. TELNR
. 14...F.. AANTAL .120...P.. EIND .
0.L.Z.. MENU .500...D.. >DIMENSIONE
REN ARRAYS<...N..R$(AANTAL)...X..N.1. AA
NTAL......R$(N) . "".#....N.@.H.. >SUB
ROUTINE NUMMERS<.X.R.. INVOEREN = 1
.P.... TONEN = 2...... SORTEREN
= 3. .... ZOEKEN = 4...... M
UTEREN = 5.P.... VERWIJDEREN = 6
...... PRINTEN = 7...... CASS LEZE
N = 8...".. CASS SCHRIJVEN= 9.-....
> HET MENU <.E.... SUBROUTINE . MENU.Y.
...".":. CLR HOME.W.....13);" TELEFOON K
LAPPER".......13);" ================"...
&.....0...11);" U HEEFT DE KEUS UIT:".C.
:.....D...13);"1.) INVOEREN" :...
N...13);"2.) TONEN" :.).X...13
);"3.) SORTEREN" :.K.B...13);"4.)
ZOEKEN" :.M.L...13);"5.) MUTER
EN" :...V...13);"6.) VERWIJDEREN
" :.......13);"7.) PRINTEN"
:.S.....13);"8.) CASS LEZEN" :.....
..13);"9.) CASS SCHRIJVEN" :.......13);
"0.) STOPPEN" :.'....I.1.2:.:.I.
O.... " WAT WILT U DOEN"; I$.
L.... > VOEROPDRACHT UIT <...F.. I$."1
" .. 1000...P.. I$."2" .. 2000...Z.. I$.
"3" .. 3000...... I$."4" .. 4000.U.... I
$."5" .. 5000...... I$."6" .. 6000......
I$."7" .. 7000...... I$."8" .. 8000.)..
.. I$."9" .. 9000.D. .. I$."0" ..".":. 1
0000.M.*..500.D.4.. > HET MENU <.Z..
.. > INVOEREN <...... SUBROUTINE. MEN
U . . "."...... EIND .AANTAL.1 . . 1100.
......4);S.RY, DE .BANK IS NU VOL.".....
.I.1.20:.:.I.......13);"DRUK OP <RETURN>
"...$..I$."".*....I$:.I$."" ..1060.0.8..
.;.L..I$."".W.V.. " NAAM :";N$.
..`..C(N$) .NAAM .
. N$ . H(N$,NAAM)...J..
:...T..C(N$) .NAAM .
. N$ . N$ . " ":.1130...
~.. :.&...
.S$."".A...." STRAAT :";S$.|.D..C
(S$) . ADRES . . S$ .
H(S$,ADRES)...N..
:...X..C(S$) . ADRES .
. S$ . S$ . " ":.1230......
:......P$."
".-.... " POSTCODE :";P$.G.(..C(P$)
. PCODE . . P$ .H(P$
,PCODE)...2..
:.J.<..C (P$) . PCODE .
. P$ . P$ ." ":.1330...F..
:...X..W$ . "". .
... " WOONPLAATS :";W$ :.]....C(
W$) . WPLAATS . . W$ .
H(W$,WPLAATS)......
:... ..C(W$) . WPLAATS .
. W$ . W$ ." ":.1430......
:......T$ .
""...... " TELEFOONNUMMER:";T$.H....C(T$
) .TELNR . . T$ .H(T
$,TELNR).N....
:......C(T$) .TELNR .
. T$ . T$ . " ":.1530.R....
:...... SUBROUT
INE . 5. . 1680...@.. EIND . EIND.1. .J.
.R$(EIND).N$.S$.P$.W$.T$.).T..".".T.^..
" BENT U KLAAR (J/N) "; I$.D.H
..I$. "J" ...Y.R..I$. "N" . .1000...|..
> INVOEREN < :......162
0.D....R$(N) .N$.S$.P$.W$.T$.J.......F..
:...P..
> TONEN < <=(2)...Z..".".%.... EIND
.0 ...[.... SUBROUTINE .MENU .
.N.1. EIND.R.... .17);"- ";N;"
-".X.......... " NAAM :";
J(R$(N), 1,NAAM)......
" STRAAT :";
J(R$(N),21,ADRES).=. .. " POSTCODE
:"; J(R$(N),41,P
CODE)...*.. " WOONPLAATS :";
J(R$(N),48,WPLAATS).C.4..
" TELEFOONNUMMER :";
J(R$(N),68,TELNR)...>.. SUBROUTINE ..
MENU . ....H..I.1.13:.:.I...R...13)"DRUK
OP <RETURN>"...\..I$."".0.F..I$:.I$.""
. . 2150.9.P..".".@.Z..N.F.....L....
:...... >
SORTEREN < <=(3)...B.."."...L...1
6);"SORTEREN".B.V...16);"========".H....
.......11);"U KUNT SORTEREN OP:"........
...........11);"1.) NAAM "..
.....>.....11);"2.) STRAAT ".D
.&...F.0...11);"3.) POSTCODE ".L
.:.....D...11);"4.) WOONPLAATS "..
.N.....X...11);"5.) TELEFOONNUMMER ".F
.B..I.1.6:.:.I...L.. " WAT KIEST U
"; KEUS.$.
V.. KEUS.1 . KEUS.5 . . 3000.-....".".D.
... KEUS . 1 . .3260.[.... KEUS . 2 . .3
290.R.... KEUS . 3 . .3320...... KEUS .
4 . .3350. .... KEUS . 5 . .3380...... E
ERSTE . 1.G.F.. HOELANG . NAAM.Q.P..341
0...Z.. EERSTE . 21...... HOELANG . ADR
ES......3410...... EERSTE . 41.-.... HO
ELANG . PCODE.7....3410.J.... EERSTE .
48.B. .. HOELANG . WPLAATS.L.*..3410..4
.. EERSTE . 67...>.. HOELANG . TELNR...
H..3410...R..I.1. EIND.1.A.\..J.I.1. EIN
D...F.. X$.J(R$(I),EERSTE,HOELANG)...P..
Y$.J(R$(J),EERSTE,HOELANG)...Z.."."....
...10);X$.-....X$..Y$ . .3510.@.... Z$
.R$(I).S.... R$(I) .R$(J).C.... R$(J)
.Z$.J....J.Q....I.W.J.....T..
:... .. > ZOEKEN
< <=(4).O.... SUBROUTINE . 4.X...."."
.......17) "ZOEKEN"...H...17) "======"..
.R.. " NAAM:";V$.%.... HOELANG .C(V$).4.
...N.1. EIND.D.... V$.. J(R$(N),1,HOELAN
G) . .4190.J.....U.... 2000...
... > TONEN <.........".. "
BEDOELT U DEZE (J/N)"; I$.W.,..I$
.. "J" . .4190...6.....@...7) "DRUK OP
<RETURN> "...J..I$:.I$."" . .4170...T...
.^..".".'.H..N.O.R.. " NAAM ONBEKEND;DR
UK OP <RETURN>".F.|..I$:.I$."" . .4220.L
.......... > MUTEREN < <=(5). ...
. SUBROUTINE . 5......".".......17);"MUT
EREN".Q.....17);"======="......" NAAM: "
;V$...D.. HOELANG . C(V$)...N..N.1. EIND
.9.X.. V$..J(R$(N),1,HOELANG)
. . 5190.?.....J.... 2000.`.... > T
ONEN <.F.......... " BEDOELT U DEZ
E (J/N)"; I$......I$... "J" . .5190
.........(.. 1000.P.2.. > INVOER <
.V.<.....F.."."...P..N...Z.. " NAAM ONBE
KEND;DRUK OP <RETURN>".%.D..I$:.I$."" .
.5220.+.N...M.P.. > VERWIJDEREN <
<=(6).B.Z.. SUBROUTINE . 6.K....".".....
..15);"VERWIJDEREN".......15);"=========
=="............" NAAM :";V$.J.... HOELA
NG . C(V$).Y....I.1. EIND.. J..V$ .. J(R
$(N),1,HOELANG) . . 6210.. T..
.. ... 2000.1 ... > TONEN <.7 ....
B ..." BEDOELT U DEZE (J/N)";
I$.X ...I$ .."J" . .6210.. ...K.N.1. EIN
D.. ...R$(K.1) .R$(K).. $..R$(EIND)."".A
... EIND. EIND.1.G 8...P B..".".W L..N.
. V.." NAAM ONBEKEND;DRUK OP <RETURN>"..
!`..I$:.I$."" . .6240..!J...3!X.. >
PRINTEN <.U!B.. 3,4 :. UITVOER NAAR PR
INTER.D!L..N.1. EIND..!V..3," NAAM
"; J(R$(N),
1,NAAM)..!...3," STRAAT ";
J(R$(N),21,ADRES).2"
...3," POSTCODE ";
J(R$(N),41,PCODE).Y"...3," WO
ONPLAATS "; J(
R$(N),48,WPLAATS).."...3," TELEFOONNR.
"; J(R$(N),68,
TELNR).."...3," "
:.."...N..".. 3.."F....#@.. > CASS-
LEZEN <..#J..".".<#T.." NAAM
DATABANK";I$.K#^.. 1,1,0,I$..#H.. OPEN D
E CASS-FILE I$ EN LEES R$
VAN DISC..#R..N.1. AANTAL..#|..1,R$(N).
M#...R$(N)."STOP" . . EIND .N.1:.8090.T#
...N..#.. 1 :. SLUIT DE FILE I$..#.....
$(#. > CASS-SCHRIJVEN < <=(9).$$2#
.".".F$<#." NAAM DATABANK";I$.U
$F#. 1,1,1,I$..$P#. OPEN DE CASS-FILE I$
EN SCHRIJF R$ OP CASS...$Z#.R$(EIND.1)
. "STOP"..$D#.N.1. EIND.1..$N#.1,R$(N).
F$X#.N..$.# 1:. SLUIT DE FILE I$..$.#..
.$.'.:.:.:.:.:.:...%.'..13)"GEMAAKT DOOR
".)%$'..13)"J V DONGEN ".A%.'..13)"OP 2
5-1-1986".Z%8'..13)"SPECIAAL VOOR".R%B'.
.13)"LEDEN VAN "..%L'.:..13)" C.V.L
. "..%V'.:.:.:.:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL