ADR.BESTAND TAPE
FILE INFORMATION
FILENAME(S): ADR.BESTAND TAPE
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 21:20:05
APPEARS ON: 1 disk(s)
FILE HASH
5f31d11f023e1af3108f7196731b528eb73524c0eea9e881de2b9e0fb548d669
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RP L ADMIN PRGS | ADR.BESTAND TAPE | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 97 35 33 32 38 30 2C 32 3A 97 |.......53280,2:.|
00000010: 35 33 32 38 31 2C 32 3A 99 C7 28 31 35 38 29 00 |53281,2:..(158).|
00000020: 2E 08 14 00 86 44 24 28 32 30 30 2C 38 29 00 45 |.....D$(200,8).E|
00000030: 08 1E 00 46 24 28 31 29 B2 22 54 49 54 45 4C 20 |...F$(1)."TITEL |
00000040: 20 20 20 20 22 00 5C 08 1F 00 46 24 28 32 29 B2 | ".\...F$(2).|
00000050: 22 56 4F 4F 52 4E 41 41 4D 20 20 22 00 73 08 20 |"VOORNAAM ".s. |
00000060: 00 46 24 28 33 29 B2 22 4E 41 41 4D 20 20 20 20 |.F$(3)."NAAM |
00000070: 20 20 22 00 8A 08 21 00 46 24 28 34 29 B2 22 53 | "...!.F$(4)."S|
00000080: 54 52 41 41 54 20 20 20 20 22 00 A1 08 22 00 46 |TRAAT "...".F|
00000090: 24 28 35 29 B2 22 50 4F 53 54 43 4F 44 45 20 20 |$(5)."POSTCODE |
000000A0: 22 00 B8 08 23 00 46 24 28 36 29 B2 22 50 4C 41 |"...#.F$(6)."PLA|
000000B0: 41 54 53 20 20 20 20 22 00 CF 08 24 00 46 24 28 |ATS "...$.F$(|
000000C0: 37 29 B2 22 54 45 4C 45 46 4F 4F 4E 20 20 22 00 |7)."TELEFOON ".|
000000D0: E6 08 25 00 46 24 28 38 29 B2 22 4F 50 4D 45 52 |..%.F$(8)."OPMER|
000000E0: 4B 49 4E 47 20 22 00 F0 08 63 00 89 31 30 30 30 |KING "...c..1000|
000000F0: 00 0B 09 64 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |...d.. =========|
00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 23 09 6E 00 |===========.#.n.|
00000110: 8F 20 20 20 20 50 52 4F 47 52 41 4D 4D 41 54 49 |. PROGRAMMATI|
00000120: 54 45 4C 00 3E 09 78 00 8F 20 3D 3D 3D 3D 3D 3D |TEL.>.x.. ======|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 4C |==============.L|
00000140: 09 82 00 99 20 C7 28 31 34 37 29 3B 00 61 09 8C |.... .(147);.a..|
00000150: 00 81 20 49 B2 31 A4 34 30 3A 99 22 3D 22 3B 3A |.. I.1.40:."=";:|
00000160: 82 00 84 09 96 00 99 20 22 20 20 20 20 20 20 20 |....... " |
00000170: 20 20 20 20 20 41 44 52 45 53 53 45 4E 42 45 48 | ADRESSENBEH|
00000180: 45 45 52 22 00 99 09 A0 00 81 20 49 B2 31 A4 34 |EER"...... I.1.4|
00000190: 30 3A 99 22 3D 22 3B 3A 82 00 A1 09 AA 00 99 3A |0:."=";:.......:|
000001A0: 99 00 A7 09 B4 00 8E 00 C1 09 C8 00 8F 20 3D 3D |............. ==|
000001B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001C0: 3D 00 D6 09 D2 00 8F 20 20 20 20 46 4F 55 54 4D |=...... FOUTM|
000001D0: 45 4C 44 49 4E 47 00 F0 09 DC 00 8F 20 3D 3D 3D |ELDING...... ===|
000001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001F0: 00 FD 09 E6 00 99 20 C7 28 31 39 29 3B 00 13 0A |...... .(19);...|
00000200: F0 00 81 58 B2 31 A4 32 34 3A 99 C7 28 31 37 29 |...X.1.24:..(17)|
00000210: 3B 3A 82 00 2F 0A F1 00 8F 20 32 34 20 4D 41 41 |;:../.... 24 MAA|
00000220: 4C 20 43 55 52 53 4F 52 20 4F 4D 4C 41 41 47 00 |L CURSOR OMLAAG.|
00000230: 46 0A FA 00 99 C7 28 31 38 29 3B 46 45 24 3B C7 |F.....(18);FE$;.|
00000240: 28 31 34 36 29 3B 00 59 0A 04 01 81 20 58 B2 31 |(146);.Y.... X.1|
00000250: 20 A4 20 33 30 30 30 3A 82 00 5F 0A 0E 01 8E 00 | . 3000:.._.....|
00000260: 7E 0A 2C 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |~.,.. ==========|
00000270: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 9A |==============..|
00000280: 0A 36 01 8F 20 54 49 54 45 4C 53 20 50 52 4F 47 |.6.. TITELS PROG|
00000290: 52 41 4D 4D 41 44 45 4C 45 4E 00 B9 0A 40 01 8F |RAMMADELEN...@..|
000002A0: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
000002B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 DB 0A 4A 01 50 54 |=========...J.PT|
000002C0: 24 28 31 29 B2 22 42 45 53 54 41 4E 44 20 20 20 |$(1)."BESTAND |
000002D0: 4C 41 44 45 4E 20 20 20 20 20 22 00 FD 0A 54 01 |LADEN "...T.|
000002E0: 50 54 24 28 32 29 B2 22 42 45 53 54 41 4E 44 20 |PT$(2)."BESTAND |
000002F0: 20 20 4F 50 53 4C 41 41 4E 20 20 20 22 00 1F 0B | OPSLAAN "...|
00000300: 5E 01 50 54 24 28 33 29 B2 22 41 44 52 45 53 53 |^.PT$(3)."ADRESS|
00000310: 45 4E 20 20 49 4E 56 4F 45 52 45 4E 20 20 22 00 |EN INVOEREN ".|
00000320: 41 0B 68 01 50 54 24 28 34 29 B2 22 41 44 52 45 |A.h.PT$(4)."ADRE|
00000330: 53 53 45 4E 20 20 56 45 52 41 4E 44 45 52 45 4E |SSEN VERANDEREN|
00000340: 22 00 63 0B 72 01 50 54 24 28 35 29 B2 22 41 44 |".c.r.PT$(5)."AD|
00000350: 52 45 53 53 45 4E 20 20 57 49 53 53 45 4E 20 20 |RESSEN WISSEN |
00000360: 20 20 22 00 85 0B 7C 01 50 54 24 28 36 29 B2 22 | "...|.PT$(6)."|
00000370: 41 44 52 45 53 53 45 4E 20 20 55 49 54 56 4F 45 |ADRESSEN UITVOE|
00000380: 52 45 4E 20 22 00 A7 0B 86 01 50 54 24 28 37 29 |REN ".....PT$(7)|
00000390: B2 22 50 52 4F 47 52 41 4D 4D 41 20 42 45 45 49 |."PROGRAMMA BEEI|
000003A0: 4E 44 49 47 45 4E 22 00 B0 0B 90 01 8D 31 30 30 |NDIGEN"......100|
000003B0: 00 C7 0B 9A 01 99 22 20 20 20 20 20 20 20 20 22 |......" "|
000003C0: 3B C7 28 33 30 29 3B 00 E6 0B A4 01 99 22 20 CE |;.(30);......" .|
000003D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000003E0: A3 A3 A3 A3 CD 22 00 24 0C AE 01 99 22 20 20 20 |.....".$...." |
000003F0: 20 20 20 20 20 20 A5 22 3B C7 28 31 35 38 29 3B | .";.(158);|
00000400: 50 54 24 28 46 29 3B C7 28 33 30 29 3B 22 20 20 |PT$(F);.(30);" |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 A7 22 00 52 0C B8 01 99 22 20 20 20 20 20 | .".R...." |
00000430: 20 20 20 20 CD AF AF AF AF AF AF AF AF AF AF AF | ............|
00000440: AF AF AF AF AF AF AF AF AF CE 22 3B C7 28 31 35 |..........";.(15|
00000450: 38 29 00 58 0C C2 01 8E 00 79 0C F4 01 8F 20 3D |8).X.....y.... =|
00000460: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000470: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 96 0C FE 01 8F 20 |=========...... |
00000480: 20 47 45 47 45 56 45 4E 53 20 49 4E 20 43 4F 4D | GEGEVENS IN COM|
00000490: 50 55 54 45 52 3F 00 B7 0C 08 02 8F 20 3D 3D 3D |PUTER?...... ===|
000004A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004B0: 3D 3D 3D 3D 3D 3D 3D 00 C6 0C 12 02 8B 20 5A B1 |=======...... Z.|
000004C0: 30 A7 20 35 36 30 00 EE 0C 1C 02 46 45 24 B2 22 |0. 560.....FE$."|
000004D0: 47 45 45 4E 20 47 45 47 45 56 45 4E 53 20 49 4E |GEEN GEGEVENS IN|
000004E0: 20 44 45 20 43 4F 4D 50 55 54 45 52 21 22 00 F7 | DE COMPUTER!"..|
000004F0: 0C 26 02 8D 32 30 30 00 FD 0C 30 02 8E 00 06 0D |.&..200...0.....|
00000500: E8 03 8D 31 30 30 00 11 0D EC 03 8D 33 30 30 3A |...100......300:|
00000510: 99 00 40 0D ED 03 99 20 C7 28 33 30 29 3B 22 20 |..@.... .(30);" |
00000520: 20 20 20 20 20 20 20 CE B7 B7 B7 B7 B7 B7 B7 B7 | .........|
00000530: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 CD 22 |..............."|
00000540: 00 7B 0D F2 03 99 22 20 20 20 20 20 20 20 20 B4 |.{...." .|
00000550: 22 3B C7 28 31 35 38 29 3B 22 50 52 4F 47 52 41 |";.(158);"PROGRA|
00000560: 4D 4D 41 46 55 4E 43 54 49 45 53 3A 22 3B C7 28 |MMAFUNCTIES:";.(|
00000570: 33 30 29 3B 22 20 20 20 20 A7 22 00 AA 0D F7 03 |30);" .".....|
00000580: 99 22 20 20 20 20 20 20 20 20 CD AF AF AF AF AF |." ......|
00000590: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000005A0: AF CE 22 3B C7 28 31 35 38 29 00 B0 0D 06 04 99 |..";.(158)......|
000005B0: 00 E0 0D 10 04 99 C7 28 31 34 34 29 3B 22 20 20 |.......(144);" |
000005C0: 20 20 20 20 2D 31 2D 20 22 3B C7 28 31 35 38 29 | -1- ";.(158)|
000005D0: 3B 22 42 45 53 54 41 4E 44 20 4C 41 44 45 4E 22 |;"BESTAND LADEN"|
000005E0: 00 12 0E 1A 04 99 C7 28 31 34 34 29 3B 22 20 20 |.......(144);" |
000005F0: 20 20 20 20 2D 32 2D 20 22 3B C7 28 31 35 38 29 | -2- ";.(158)|
00000600: 3B 22 42 45 53 54 41 4E 44 20 4F 50 53 4C 41 41 |;"BESTAND OPSLAA|
00000610: 4E 22 00 46 0E 24 04 99 C7 28 31 34 34 29 3B 22 |N".F.$...(144);"|
00000620: 20 20 20 20 20 20 2D 33 2D 20 22 3B C7 28 31 35 | -3- ";.(15|
00000630: 38 29 3B 22 41 44 52 45 53 53 45 4E 20 49 4E 56 |8);"ADRESSEN INV|
00000640: 4F 45 52 45 4E 22 00 7C 0E 2E 04 99 C7 28 31 34 |OEREN".|.....(14|
00000650: 34 29 3B 22 20 20 20 20 20 20 2D 34 2D 20 22 3B |4);" -4- ";|
00000660: C7 28 31 35 38 29 3B 22 41 44 52 45 53 53 45 4E |.(158);"ADRESSEN|
00000670: 20 56 45 52 41 4E 44 45 52 45 4E 22 00 AE 0E 38 | VERANDEREN"...8|
00000680: 04 99 C7 28 31 34 34 29 3B 22 20 20 20 20 20 20 |...(144);" |
00000690: 2D 35 2D 20 22 3B C7 28 31 35 38 29 3B 22 41 44 |-5- ";.(158);"AD|
000006A0: 52 45 53 53 45 4E 20 57 49 53 53 45 4E 22 00 E3 |RESSEN WISSEN"..|
000006B0: 0E 42 04 99 C7 28 31 34 34 29 3B 22 A0 A0 A0 A0 |.B...(144);"....|
000006C0: A0 A0 2D 36 2D 20 22 3B C7 28 31 35 38 29 3B 22 |..-6- ";.(158);"|
000006D0: 41 44 52 45 53 53 45 4E 20 55 49 54 56 4F 45 52 |ADRESSEN UITVOER|
000006E0: 45 4E 22 00 1A 0F 4C 04 99 C7 28 31 34 34 29 3B |EN"...L...(144);|
000006F0: 22 20 20 20 20 20 20 2D 37 2D 20 22 3B C7 28 31 |" -7- ";.(1|
00000700: 35 38 29 3B 22 50 52 4F 47 52 41 4D 4D 41 20 42 |58);"PROGRAMMA B|
00000710: 45 45 49 4E 44 49 47 45 4E 22 00 22 0F 51 04 99 |EEINDIGEN".".Q..|
00000720: 3A 99 00 45 0F 56 04 99 C7 28 31 34 34 29 3B 22 |:..E.V...(144);"|
00000730: 20 20 20 20 20 20 4B 45 55 5A 45 20 22 3B C7 28 | KEUZE ";.(|
00000740: 31 35 38 29 3B 00 4D 0F 5B 04 85 20 46 00 81 0F |158);.M.[.. F...|
00000750: 60 04 8B 20 46 B2 30 20 B0 20 46 B1 37 20 A7 20 |`.. F.0 . F.7 . |
00000760: 46 45 24 B2 22 4F 4E 47 45 4C 44 49 47 45 20 57 |FE$."ONGELDIGE W|
00000770: 41 41 52 44 45 22 3A 8D 32 30 30 3A 89 31 30 30 |AARDE":.200:.100|
00000780: 30 00 B4 0F 6A 04 91 20 46 20 89 20 35 30 30 30 |0...j.. F . 5000|
00000790: 2C 31 30 30 30 30 2C 31 35 30 30 30 2C 32 30 30 |,10000,15000,200|
000007A0: 30 30 2C 32 35 30 30 30 2C 33 30 30 30 30 2C 33 |00,25000,30000,3|
000007B0: 35 30 30 30 00 CF 0F 88 13 8F 20 3D 3D 3D 3D 3D |5000...... =====|
000007C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000007D0: E5 0F 92 13 8F 20 20 20 42 45 53 54 41 4E 44 20 |..... BESTAND |
000007E0: 4C 41 44 45 4E 00 00 10 9C 13 8F 20 3D 3D 3D 3D |LADEN...... ====|
000007F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000800: 00 0B 10 A6 13 8D 33 30 30 3A 99 00 2D 10 B0 13 |......300:..-...|
00000810: 99 22 44 41 54 41 53 45 54 54 45 20 4C 41 44 45 |."DATASETTE LADE|
00000820: 4E 20 45 4E 20 53 4C 55 49 54 45 4E 22 00 33 10 |N EN SLUITEN".3.|
00000830: BA 13 99 00 48 10 C4 13 99 22 54 45 52 55 47 53 |....H...."TERUGS|
00000840: 50 4F 45 4C 45 4E 21 22 00 68 10 CE 13 99 22 44 |POELEN!".h...."D|
00000850: 41 41 52 4E 41 20 52 45 54 55 52 4E 20 49 4E 44 |AARNA RETURN IND|
00000860: 52 55 4B 4B 45 4E 22 3B 00 70 10 D8 13 85 58 24 |RUKKEN";.p....X$|
00000870: 00 76 10 DD 13 99 00 8D 10 E2 13 9F 20 31 2C 31 |.v.......... 1,1|
00000880: 2C 30 2C 22 41 44 52 45 53 53 45 4E 22 00 96 10 |,0,"ADRESSEN"...|
00000890: EC 13 84 31 2C 5A 00 A2 10 F6 13 81 20 59 B2 31 |...1,Z...... Y.1|
000008A0: A4 5A 00 AE 10 00 14 81 20 49 B2 31 A4 38 00 BD |.Z...... I.1.8..|
000008B0: 10 0A 14 84 31 2C 44 24 28 59 2C 49 29 00 C5 10 |....1,D$(Y,I)...|
000008C0: 14 14 82 20 49 00 CD 10 1E 14 82 20 59 00 D5 10 |... I...... Y...|
000008D0: 28 14 A0 20 31 00 F3 10 32 14 99 22 47 45 47 45 |(.. 1...2.."GEGE|
000008E0: 56 45 4E 53 20 5A 49 4A 4E 20 47 45 4C 41 44 45 |VENS ZIJN GELADE|
000008F0: 4E 21 22 00 04 11 3C 14 81 20 58 B2 31 A4 38 30 |N!"...<.. X.1.80|
00000900: 30 30 3A 82 00 0F 11 46 14 89 20 31 30 30 30 00 |00:....F.. 1000.|
00000910: 29 11 10 27 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |)..'. ==========|
00000920: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 41 11 24 27 8F 20 |=========.A.$'. |
00000930: 20 20 42 45 53 54 41 4E 44 20 4F 50 53 4C 41 41 | BESTAND OPSLAA|
00000940: 4E 00 5B 11 2E 27 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |N.[..'. ========|
00000950: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 71 11 3D 27 |===========.q.='|
00000960: 8D 35 30 30 3A 8B 20 5A B2 30 20 A7 20 31 30 30 |.500:. Z.0 . 100|
00000970: 30 00 93 11 4C 27 99 22 44 41 54 41 53 45 54 54 |0...L'."DATASETT|
00000980: 45 20 4C 41 44 45 4E 20 45 4E 20 53 4C 55 49 54 |E LADEN EN SLUIT|
00000990: 45 4E 22 00 99 11 56 27 99 00 AE 11 60 27 99 22 |EN"...V'....`'."|
000009A0: 54 45 52 55 47 53 50 4F 45 4C 45 4E 21 22 00 B4 |TERUGSPOELEN!"..|
000009B0: 11 65 27 99 00 D4 11 6A 27 99 22 44 41 41 52 4E |.e'....j'."DAARN|
000009C0: 41 20 52 45 54 55 52 4E 20 49 4E 44 52 55 4B 4B |A RETURN INDRUKK|
000009D0: 45 4E 22 3B 00 DC 11 6F 27 85 58 24 00 F3 11 74 |EN";...o'.X$...t|
000009E0: 27 9F 20 31 2C 31 2C 31 2C 22 41 44 52 45 53 53 |'. 1,1,1,"ADRESS|
000009F0: 45 4E 22 00 FC 11 7E 27 98 31 2C 5A 00 08 12 88 |EN"...~'.1,Z....|
00000A00: 27 81 20 59 B2 31 A4 5A 00 14 12 92 27 81 20 49 |'. Y.1.Z....'. I|
00000A10: B2 31 A4 38 00 23 12 9C 27 98 31 2C 44 24 28 59 |.1.8.#..'.1,D$(Y|
00000A20: 2C 49 29 00 2B 12 A6 27 82 20 49 00 33 12 B0 27 |,I).+..'. I.3..'|
00000A30: 82 20 59 00 3A 12 B5 27 A0 31 00 5D 12 BA 27 99 |. Y.:..'.1.]..'.|
00000A40: 3A 99 22 47 45 47 45 56 45 4E 53 20 5A 49 4A 4E |:."GEGEVENS ZIJN|
00000A50: 20 4F 50 47 45 53 4C 41 47 45 4E 21 22 00 6E 12 | OPGESLAGEN!".n.|
00000A60: C4 27 81 20 58 B2 31 A4 38 30 30 30 3A 82 00 78 |.'. X.1.8000:..x|
00000A70: 12 CE 27 89 31 30 30 30 00 93 12 98 3A 8F 20 3D |..'.1000....:. =|
00000A80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A90: 3D 3D 3D 00 AB 12 A2 3A 8F 20 41 44 52 45 53 53 |===....:. ADRESS|
00000AA0: 45 4E 20 49 4E 56 4F 45 52 45 4E 00 C6 12 AC 3A |EN INVOEREN....:|
00000AB0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00000AC0: 3D 3D 3D 3D 3D 3D 00 CF 12 B6 3A 8D 33 30 30 00 |======....:.300.|
00000AD0: D9 12 C0 3A 5A B2 5A AA 31 00 DF 12 CA 3A 99 00 |...:Z.Z.1....:..|
00000AE0: EB 12 D4 3A 81 20 49 B2 31 A4 38 00 F7 12 DE 3A |...:. I.1.8....:|
00000AF0: 99 46 24 28 49 29 3B 00 05 13 E8 3A 85 20 44 24 |.F$(I);....:. D$|
00000B00: 28 5A 2C 49 29 00 0B 13 F2 3A 82 00 11 13 FC 3A |(Z,I)....:.....:|
00000B10: 99 00 38 13 06 3B 99 22 47 45 47 45 56 45 4E 53 |..8..;."GEGEVENS|
00000B20: 20 4A 55 49 53 54 20 49 4E 47 45 56 4F 45 52 44 | JUIST INGEVOERD|
00000B30: 20 28 4A CE 4E 29 22 3B 00 47 13 10 3B 58 24 B2 | (J.N)";.G..;X$.|
00000B40: 22 22 3A 85 20 58 24 00 5A 13 1A 3B 8B 20 58 24 |"":. X$.Z..;. X$|
00000B50: B2 22 4A 22 A7 31 35 31 36 30 00 74 13 24 3B 8B |."J".15160.t.$;.|
00000B60: 20 58 24 B2 22 4E 22 A7 5A B2 5A AB 31 3A 89 31 | X$."N".Z.Z.1:.1|
00000B70: 35 30 30 30 00 89 13 2E 3B 99 20 C7 28 31 34 35 |5000....;. .(145|
00000B80: 29 3B 3A 89 31 35 31 31 30 00 B1 13 38 3B 99 22 |);:.15110...8;."|
00000B90: 56 45 52 44 45 52 45 20 49 4E 56 4F 45 52 48 41 |VERDERE INVOERHA|
00000BA0: 4E 44 45 4C 49 4E 47 45 4E 20 28 4A CE 4E 29 22 |NDELINGEN (J.N)"|
00000BB0: 3B 00 C0 13 42 3B 58 24 B2 22 22 3A 85 20 58 24 |;...B;X$."":. X$|
00000BC0: 00 D5 13 4C 3B 8B 20 58 24 B2 22 4A 22 20 A7 20 |...L;. X$."J" . |
00000BD0: 31 35 30 30 30 00 E9 13 56 3B 8B 20 58 24 B2 22 |15000...V;. X$."|
00000BE0: 4E 22 20 A7 20 31 30 30 30 00 FE 13 60 3B 99 20 |N" . 1000...`;. |
00000BF0: C7 28 31 34 35 29 3B 3A 89 31 35 31 36 30 00 1D |.(145);:.15160..|
00000C00: 14 20 4E 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. N. ===========|
00000C10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 3A 14 |=============.:.|
00000C20: 2A 4E 8F 20 20 20 20 41 44 52 45 53 53 45 4E 20 |*N. ADRESSEN |
00000C30: 56 45 52 41 4E 44 45 52 45 4E 00 59 14 34 4E 8F |VERANDEREN.Y.4N.|
00000C40: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00000C50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 62 14 3E 4E 5A 5A |=========.b.>NZZ|
00000C60: B2 31 00 6B 14 48 4E 8D 33 30 30 00 71 14 52 4E |.1.k.HN.300.q.RN|
00000C70: 99 00 7D 14 5C 4E 81 20 49 B2 31 A4 38 00 94 14 |..}.\N. I.1.8...|
00000C80: 66 4E 99 20 49 3B 46 24 28 49 29 3B 44 24 28 5A |fN. I;F$(I);D$(Z|
00000C90: 5A 2C 49 29 00 9A 14 70 4E 82 00 B1 14 7A 4E A1 |Z,I)...pN....zN.|
00000CA0: 20 58 24 3A 8B 20 58 24 B2 22 22 A7 32 30 30 39 | X$:. X$."".2009|
00000CB0: 30 00 D3 14 84 4E 8B C6 28 58 24 29 B3 31 33 33 |0....N..(X$).133|
00000CC0: 20 B0 20 C6 28 58 24 29 B1 31 33 36 20 A7 32 30 | . .(X$).136 .20|
00000CD0: 30 39 30 00 E8 14 8E 4E 8B 20 C6 28 58 24 29 B2 |090....N. .(X$).|
00000CE0: 31 33 36 A7 31 30 30 30 00 0F 15 98 4E 8B 20 C6 |136.1000....N. .|
00000CF0: 28 58 24 29 B2 31 33 33 20 AF 20 5A 5A B3 5A 20 |(X$).133 . ZZ.Z |
00000D00: A7 5A 5A B2 5A 5A AA 31 3A 89 32 30 30 34 30 00 |.ZZ.ZZ.1:.20040.|
00000D10: 35 15 A2 4E 8B C6 28 58 24 29 B2 31 33 34 20 AF |5..N..(X$).134 .|
00000D20: 20 5A 5A B1 31 20 A7 5A 5A B2 5A 5A AB 31 3A 89 | ZZ.1 .ZZ.ZZ.1:.|
00000D30: 32 30 30 34 30 00 4C 15 AC 4E 8B 20 C6 28 58 24 |20040.L..N. .(X$|
00000D40: 29 B2 31 33 35 20 A7 32 30 31 36 30 00 57 15 B6 |).135 .20160.W..|
00000D50: 4E 89 32 30 30 39 30 00 5D 15 C0 4E 99 00 77 15 |N.20090.]..N..w.|
00000D60: CA 4E 85 22 56 45 4C 44 4E 55 4D 4D 45 52 28 31 |.N."VELDNUMMER(1|
00000D70: 2D 38 29 20 22 3B 58 00 98 15 D4 4E 8B 20 58 B3 |-8) ";X....N. X.|
00000D80: 31 B0 20 58 B1 38 20 A7 20 99 C7 28 31 34 35 29 |1. X.8 . ..(145)|
00000D90: 3B 3A 89 32 30 31 37 30 00 9E 15 DE 4E 99 00 BE |;:.20170....N...|
00000DA0: 15 E8 4E 85 22 4E 49 45 55 57 45 20 49 4E 48 4F |..N."NIEUWE INHO|
00000DB0: 55 44 3A 20 22 3B 44 24 28 5A 5A 2C 58 29 00 C9 |UD: ";D$(ZZ,X)..|
00000DC0: 15 F2 4E 89 32 30 30 34 30 00 E1 15 A8 61 8F 20 |..N.20040....a. |
00000DD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000DE0: 3D 00 F8 15 B2 61 8F 20 20 41 44 52 45 53 53 45 |=....a. ADRESSE|
00000DF0: 4E 20 57 49 53 53 45 4E 00 10 16 BC 61 8F 20 3D |N WISSEN....a. =|
00000E00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000E10: 00 22 16 C6 61 8D 20 33 30 30 3A 8F 20 54 49 54 |."..a. 300:. TIT|
00000E20: 45 4C 00 28 16 D0 61 99 00 4D 16 DA 61 8D 20 35 |EL.(..a..M..a. 5|
00000E30: 30 30 3A 8F 20 47 45 47 45 56 45 4E 53 20 49 4E |00:. GEGEVENS IN|
00000E40: 20 44 45 20 43 4F 4D 50 55 54 45 52 3F 00 5C 16 | DE COMPUTER?.\.|
00000E50: DF 61 8B 20 5A B2 30 A7 31 30 30 30 00 73 16 E4 |.a. Z.0.1000.s..|
00000E60: 61 85 20 22 56 4F 4F 52 4E 41 41 4D 3A 20 22 3B |a. "VOORNAAM: ";|
00000E70: 44 31 24 00 8A 16 EE 61 85 20 22 4E 41 41 4D 20 |D1$....a. "NAAM |
00000E80: 20 20 20 20 20 22 3B 44 32 24 00 92 16 F8 61 58 | ";D2$....aX|
00000E90: B2 31 00 B8 16 02 62 8B 20 44 24 28 58 2C 32 29 |.1....b. D$(X,2)|
00000EA0: B2 44 31 24 AF 20 44 24 28 58 2C 33 29 B2 44 32 |.D1$. D$(X,3).D2|
00000EB0: 24 20 A7 32 35 31 33 30 00 CF 16 0C 62 8B 20 58 |$ .25130....b. X|
00000EC0: B3 5A A7 58 B2 58 AA 31 3A 89 32 35 30 39 30 00 |.Z.X.X.1:.25090.|
00000ED0: EF 16 16 62 46 45 24 B2 22 20 4E 41 41 4D 20 4E |...bFE$." NAAM N|
00000EE0: 49 45 54 20 47 45 56 4F 4E 44 45 4E 21 20 22 00 |IET GEVONDEN! ".|
00000EF0: FE 16 20 62 8D 32 30 30 3A 89 31 30 30 30 00 09 |.. b.200:.1000..|
00000F00: 17 2A 62 8D 33 30 30 3A 99 00 15 17 2F 62 81 20 |.*b.300:..../b. |
00000F10: 49 B2 31 A4 38 00 28 17 34 62 99 46 24 28 49 29 |I.1.8.(.4b.F$(I)|
00000F20: 3B 44 24 28 58 2C 49 29 00 2E 17 3E 62 82 00 34 |;D$(X,I)...>b..4|
00000F30: 17 43 62 99 00 51 17 48 62 85 22 41 44 52 45 53 |.Cb..Q.Hb."ADRES|
00000F40: 20 57 49 53 53 45 4E 20 28 4A 2F 4E 29 22 3B 58 | WISSEN (J/N)";X|
00000F50: 24 00 66 17 52 62 8B 20 58 24 B2 22 4A 22 20 A7 |$.f.Rb. X$."J" .|
00000F60: 20 32 35 32 30 30 00 7A 17 5C 62 8B 20 58 24 B2 | 25200.z.\b. X$.|
00000F70: 22 4E 22 20 A7 20 31 30 30 30 00 8E 17 66 62 99 |"N" . 1000...fb.|
00000F80: C7 28 31 34 35 29 3B 3A 89 32 35 31 36 30 00 9E |.(145);:.25160..|
00000F90: 17 70 62 81 20 59 B2 58 20 A4 20 5A AB 31 00 AA |.pb. Y.X . Z.1..|
00000FA0: 17 7A 62 81 20 49 B2 31 A4 38 00 C0 17 84 62 44 |.zb. I.1.8....bD|
00000FB0: 24 28 59 2C 49 29 B2 44 24 28 59 AA 31 2C 49 29 |$(Y,I).D$(Y.1,I)|
00000FC0: 00 C7 17 8E 62 82 49 00 CE 17 98 62 82 59 00 D8 |....b.I....b.Y..|
00000FD0: 17 A2 62 5A B2 5A AB 31 00 E2 17 AC 62 89 31 30 |..bZ.Z.1....b.10|
00000FE0: 30 30 00 FF 17 30 75 8F 20 3D 3D 3D 3D 3D 3D 3D |00...0u. =======|
00000FF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00001000: 1A 18 3A 75 8F 20 20 20 41 44 52 45 53 53 45 4E |..:u. ADRESSEN|
00001010: 20 55 49 54 56 4F 45 52 45 4E 00 37 18 44 75 8F | UITVOEREN.7.Du.|
00001020: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00001030: 3D 3D 3D 3D 3D 3D 3D 00 42 18 4E 75 8D 33 30 30 |=======.B.Nu.300|
00001040: 3A 99 00 4C 18 58 75 8D 20 35 30 30 00 5D 18 62 |:..L.Xu. 500.].b|
00001050: 75 8B 20 5A B2 30 20 A7 20 31 30 30 30 00 85 18 |u. Z.0 . 1000...|
00001060: 6C 75 85 22 50 52 49 4E 54 45 52 20 4F 46 20 42 |lu."PRINTER OF B|
00001070: 45 45 4C 44 53 43 48 45 52 4D 20 28 44 2F 42 29 |EELDSCHERM (D/B)|
00001080: 20 22 3B 47 24 00 B0 18 76 75 8B 20 47 24 B3 B1 | ";G$...vu. G$..|
00001090: 22 42 22 20 AF 20 47 24 B3 B1 22 44 22 A7 20 99 |"B" . G$.."D". .|
000010A0: 20 C7 28 31 34 35 29 3B 3A 89 20 33 30 30 36 30 | .(145);:. 30060|
000010B0: 00 C4 18 7B 75 8B 20 47 24 B2 22 44 22 A7 20 9F |...{u. G$."D". .|
000010C0: 20 31 2C 34 00 CF 18 80 75 8D 33 30 30 3A 99 00 | 1,4....u.300:..|
000010D0: E3 18 8A 75 99 22 54 52 45 46 57 4F 4F 52 44 45 |...u."TREFWOORDE|
000010E0: 4E 3A 22 00 F7 18 94 75 99 22 2D 2D 2D 2D 2D 2D |N:"....u."------|
000010F0: 2D 2D 2D 2D 2D 2D 22 00 FD 18 9E 75 99 00 14 19 |------"....u....|
00001100: A8 75 81 20 49 B2 31 A4 38 3A 53 24 28 49 29 B2 |.u. I.1.8:S$(I).|
00001110: 22 22 3A 82 00 20 19 B2 75 81 20 49 B2 31 A4 38 |"":.. ..u. I.1.8|
00001120: 00 2C 19 BC 75 99 20 46 24 28 49 29 00 38 19 C6 |.,..u. F$(I).8..|
00001130: 75 85 20 53 24 28 49 29 00 3E 19 D0 75 82 00 4A |u. S$(I).>..u..J|
00001140: 19 DA 75 81 20 59 B2 31 A4 5A 00 52 19 E4 75 53 |..u. Y.1.Z.R..uS|
00001150: B2 30 00 5E 19 EE 75 81 20 49 B2 31 A4 38 00 7A |.0.^..u. I.1.8.z|
00001160: 19 F8 75 8B 20 53 24 28 49 29 B2 22 22 A7 53 B2 |..u. S$(I)."".S.|
00001170: 53 AA 31 3A 89 33 30 32 32 30 00 94 19 02 76 8B |S.1:.30220....v.|
00001180: 20 44 24 28 59 2C 49 29 B2 53 24 28 49 29 A7 53 | D$(Y,I).S$(I).S|
00001190: B2 53 AA 31 00 9C 19 0C 76 82 20 49 00 AF 19 16 |.S.1....v. I....|
000011A0: 76 8B 20 53 B3 B1 38 20 A7 20 33 30 33 30 30 00 |v. S..8 . 30300.|
000011B0: BF 19 20 76 8B 47 24 B2 22 44 22 A7 20 98 31 00 |.. v.G$."D". .1.|
000011C0: D2 19 25 76 8B 47 24 B2 22 42 22 A7 8D 33 30 30 |..%v.G$."B"..300|
000011D0: 3A 99 00 DE 19 2A 76 81 20 49 B2 31 A4 38 00 FB |:....*v. I.1.8..|
000011E0: 19 34 76 8B 20 47 24 B2 22 42 22 A7 20 99 46 24 |.4v. G$."B". .F$|
000011F0: 28 49 29 3B 44 24 28 59 2C 49 29 00 1A 1A 3E 76 |(I);D$(Y,I)...>v|
00001200: 8B 20 47 24 B2 22 44 22 A7 20 98 31 2C 46 24 28 |. G$."D". .1,F$(|
00001210: 49 29 3B 44 24 28 59 2C 49 29 00 22 1A 48 76 82 |I);D$(Y,I).".Hv.|
00001220: 20 49 00 36 1A 4D 76 8B 20 47 24 B2 22 44 22 A7 | I.6.Mv. G$."D".|
00001230: 20 33 30 33 30 30 00 51 1A 52 76 99 3A 85 22 44 | 30300.Q.Rv.:."D|
00001240: 52 55 4B 20 4F 50 20 52 45 54 55 52 4E 22 3B 58 |RUK OP RETURN";X|
00001250: 24 00 59 1A 5C 76 82 20 59 00 67 1A 66 76 8D 20 |$.Y.\v. Y.g.fv. |
00001260: 33 30 30 3A 99 3A 99 00 7C 1A 70 76 99 22 45 49 |300:.:..|.pv."EI|
00001270: 4E 44 45 20 42 45 53 54 41 4E 44 22 00 95 1A 7A |NDE BESTAND"...z|
00001280: 76 85 22 44 52 55 4B 20 4F 50 20 52 45 54 55 52 |v."DRUK OP RETUR|
00001290: 4E 22 3B 58 24 00 A6 1A 84 76 8B 20 47 24 B2 22 |N";X$....v. G$."|
000012A0: 44 22 A7 20 A0 31 00 B1 1A 8E 76 89 20 31 30 30 |D". .1....v. 100|
000012B0: 30 00 D0 1A B8 88 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |0...... ========|
000012C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000012D0: 00 ED 1A C2 88 8F 20 20 20 50 52 4F 47 52 41 4D |...... PROGRAM|
000012E0: 4D 41 20 42 45 45 49 4E 44 49 47 45 4E 00 0C 1B |MA BEEINDIGEN...|
000012F0: CC 88 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00001300: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 18 1B D6 |============....|
00001310: 88 8D 33 30 30 20 3A 99 00 2A 1B E0 88 8B 20 5A |..300 :..*.... Z|
00001320: B2 30 20 A7 20 33 35 31 35 30 00 53 1B EA 88 99 |.0 . 35150.S....|
00001330: 22 5A 49 4A 4E 20 41 4C 4C 45 20 47 45 47 45 56 |"ZIJN ALLE GEGEV|
00001340: 45 4E 53 20 47 45 4C 41 44 45 4E 20 28 4A 2F 4E |ENS GELADEN (J/N|
00001350: 29 22 3B 00 5B 1B F4 88 85 58 24 00 6E 1B FE 88 |)";.[....X$.n...|
00001360: 8B 20 58 24 B2 22 4E 22 A7 20 31 30 30 30 00 82 |. X$."N". 1000..|
00001370: 1B 08 89 8B 20 58 24 B2 22 4A 22 A7 20 33 35 31 |.... X$."J". 351|
00001380: 30 30 00 98 1B 12 89 99 20 C7 28 31 34 35 29 3B |00...... .(145);|
00001390: 3A 89 20 33 35 30 35 30 00 A2 1B 1C 89 8D 20 33 |:. 35050...... 3|
000013A0: 30 30 00 B7 1B 21 89 81 20 49 B2 31 A4 35 3A 99 |00...!.. I.1.5:.|
000013B0: C7 28 31 37 29 3A 82 00 E5 1B 26 89 99 22 48 45 |.(17):....&.."HE|
000013C0: 54 20 50 52 4F 47 52 41 4D 4D 41 20 4B 41 4E 20 |T PROGRAMMA KAN |
000013D0: 4D 45 54 20 27 47 4F 54 4F 20 31 30 30 30 27 20 |MET 'GOTO 1000' |
000013E0: 57 45 45 52 22 00 12 1C 30 89 99 22 20 20 47 45 |WEER"...0.." GE|
000013F0: 53 54 41 52 54 20 57 4F 52 44 45 4E 2C 20 5A 4F |START WORDEN, ZO|
00001400: 4E 44 45 52 20 44 41 54 20 47 45 47 45 56 45 4E |NDER DAT GEGEVEN|
00001410: 53 22 00 33 1C 3A 89 99 22 20 20 20 20 20 20 20 |S".3.:.." |
00001420: 20 20 20 20 56 45 52 4C 4F 52 45 4E 20 47 41 41 | VERLOREN GAA|
00001430: 4E 21 22 00 39 1C 44 89 99 00 3F 1C 4E 89 80 00 |N!".9.D...?.N...|
00001440: 00 00 |.. |
.......53280,2:.53281,2:.G(158)......D$(
200,8).E...F$(1)."TITEL ".\...F$(2).
"VOORNAAM ".S. .F$(3)."NAAM "...!.
F$(4)."STRAAT "...".F$(5)."POSTCODE
"...#.F$(6)."PLAATS ".O.$.F$(7)."TELE
FOON "...%.F$(8)."OPMERKING "...C..1000
...D.. ====================.#.N.. PRO
GRAMMATITEL.>.X.. ====================.L
.... G(147);.A.... I.1.40:."=";:.......
" ADRESSENBEHEER"... .. I.1.4
0:."=";:.......:........A.H.. ==========
=========.V.R.. FOUTMELDING...... ===
================...... G(19);......X.1.2
4:.G(17);:../.... 24 MAAL CURSOR OMLAAG.
F....G(18);FE$;G(146);.Y.... X.1 . 3000:
.._.....~.,.. ========================..
.6.. TITELS PROGRAMMADELEN...@.. =======
=================...J.PT$(1)."BESTAND
LADEN "...T.PT$(2)."BESTAND OPSLAA
N "...^.PT$(3)."ADRESSEN INVOEREN ".
A.H.PT$(4)."ADRESSEN VERANDEREN".C.R.PT
$(5)."ADRESSEN WISSEN "...|.PT$(6)."
ADRESSEN UITVOEREN ".....PT$(7)."PROGRA
MMA BEEINDIGEN"......100.G...." "
;G(30);......" N....................M".$
...." .";G(158);PT$(F);G(30);"
.".R...." M...
.................N";G(158).X.B...Y.... =
=========================...... GEGEVEN
S IN COMPUTER?...... ===================
=======.F.... Z.0. 560.....FE$."GEEN GEG
EVENS IN DE COMPUTER!"...&..200...0.....
...100......300:..@.... G(30);" N
......................M".{...." .
";G(158);"PROGRAMMAFUNCTIES:";G(30);"
."......" M.....................
.N";G(158)............G(144);" -1-
";G(158);"BESTAND LADEN"......G(144);"
-2- ";G(158);"BESTAND OPSLAAN".F.$..
G(144);" -3- ";G(158);"ADRESSEN INV
OEREN".|....G(144);" -4- ";G(158);"
ADRESSEN VERANDEREN"...8..G(144);"
-5- ";G(158);"ADRESSEN WISSEN"...B..G(14
4);" -6- ";G(158);"ADRESSEN UITVOER
EN"...L..G(144);" -7- ";G(158);"PRO
GRAMMA BEEINDIGEN".".Q..:..E.V..G(144);"
KEUZE ";G(158);.M.[.. F...`.. F.0
. F.7 . FE$."ONGELDIGE WAARDE":.200:.100
0...J.. F . 5000,10000,15000,20000,25000
,30000,35000.O.... ====================.
..... BESTAND LADEN...... ============
========......300:..-...."DATASETTE LADE
N EN SLUITEN".3.....H.D.."TERUGSPOELEN!"
.H.N.."DAARNA RETURN INDRUKKEN";.P.X..X$
.V.......... 1,1,0,"ADRESSEN"......1,Z..
.... Y.1.Z...... I.1.8......1,D$(Y,I).E.
... I.M.... Y.U.(. 1...2.."GEGEVENS ZIJ
N GELADEN!"...<.. X.1.8000:....F.. 1000.
)..'. ===================.A.$'. BESTAN
D OPSLAAN.[..'. ===================.Q.='
.500:. Z.0 . 1000...L'."DATASETTE LADEN
EN SLUITEN"...V'....`'."TERUGSPOELEN!"..
.E'..T.J'."DAARNA RETURN INDRUKKEN";...O
'.X$...T'. 1,1,1,"ADRESSEN"...~'.1,Z....
'. Y.1.Z....'. I.1.8.#..'.1,D$(Y,I).+..'
. I.3..'. Y.:..' 1.]..'.:."GEGEVENS ZIJN
OPGESLAGEN!".N.D'. X.1.8000:..X.N'.1000
....:. ====================....:. ADRESS
EN INVOEREN.F..:. ====================.O
..:.300.Y..:Z.Z.1...J:....T:. I.1.8....:
.F$(I);....:. D$(Z,I)....:.....:..8..;."
GEGEVENS JUIST INGEVOERD (JNN)";.G..;X$.
"":. X$.Z..;. X$."J".15160.T.$;. X$."N".
Z.Z.1:.15000....;. G(145);:.15110...8;."
VERDERE INVOERHANDELINGEN (JNN)";...B;X$
."":. X$.U.L;. X$."J" . 15000...V;. X$."
N" . 1000...`;. G(145);:.15160... N. ===
=====================.:.*N. ADRESSEN
VERANDEREN.Y.4N. =======================
=.B.>NZZ.1.K.HN.300.Q.RN..}.\N. I.1.8...
FN. I;F$(I);D$(ZZ,I)...PN....ZN. X$:. X$
."".20090.S..N.F(X$).133 . F(X$).136 .20
090....N. F(X$).136.1000....N. F(X$).133
. ZZ.Z .ZZ.ZZ.1:.20040.5..N.F(X$).134 .
ZZ.1 .ZZ.ZZ.1:.20040.L..N. F(X$).135 .2
0160.W..N.20090.]..N..W.JN."VELDNUMMER(1
-8) ";X...TN. X.1. X.8 . .G(145);:.20170
....N.....N."NIEUWE INHOUD: ";D$(ZZ,X).I
..N.20040....A. =================....A.
ADRESSEN WISSEN....A. =================
.".FA. 300:. TITEL.(.PA..M.ZA. 500:. GEG
EVENS IN DE COMPUTER?.\..A. Z.0.1000.S..
A. "VOORNAAM: ";D1$....A. "NAAM ";D
2$....AX.1....B. D$(X,2).D1$. D$(X,3).D2
$ .25130.O..B. X.Z.X.X.1:.25090....BFE$.
" NAAM NIET GEVONDEN! "... B.200:.1000..
.*B.300:..../B. I.1.8.(.4B.F$(I);D$(X,I)
...>B..4.CB..Q.HB."ADRES WISSEN (J/N)";X
$.F.RB. X$."J" . 25200.Z.\B. X$."N" . 10
00...FB.G(145);:.25160...PB. Y.X . Z.1..
.ZB. I.1.8....BD$(Y,I).D$(Y.1,I).G..B.I.
N..B.Y.X..BZ.Z.1....B.1000...0U. =======
===============...:U. ADRESSEN UITVOER
EN.7.DU. ======================.B.NU.300
:..L.XU. 500.].BU. Z.0 . 1000...LU."PRIN
TER OF BEELDSCHERM (D/B) ";G$...VU. G$..
"B" . G$.."D". . G(145);:. 30060.D.{U. G
$."D". . 1,4.O..U.300:.....U."TREFWOORDE
N:"....U."------------"....U.....U. I.1.
8:S$(I)."":.. ..U. I.1.8.,..U. F$(I).8.F
U. S$(I).>.PU..J.ZU. Y.1.Z.R..US.0.^..U.
I.1.8.Z..U. S$(I)."".S.S.1:.30220....V.
D$(Y,I).S$(I).S.S.1....V. I....V. S..8
. 30300... V.G$."D". .1.R.%V.G$."B"..300
:....*V. I.1.8...4V. G$."B". .F$(I);D$(Y
,I)...>V. G$."D". .1,F$(I);D$(Y,I).".HV.
I.6.MV. G$."D". 30300.Q.RV.:."DRUK OP R
ETURN";X$.Y.\V. Y.G.FV. 300:.:..|.PV."EI
NDE BESTAND"...ZV."DRUK OP RETURN";X$...
.V. G$."D". 1....V. 1000.P.... ========
================...B.. PROGRAMMA BEEIN
DIGEN...L.. ========================...V
..300 :..*.... Z.0 . 35150.S...."ZIJN AL
LE GEGEVENS GELADEN (J/N)";.[....X$.N...
. X$."N". 1000...... X$."J". 35100......
G(145);:. 35050...... 300...!.. I.1.5:.
G(17):....&.."HET PROGRAMMA KAN MET 'GOT
O 1000' WEER"...0.." GESTART WORDEN, ZO
NDER DAT GEGEVENS".3.:.." VERL
OREN GAAN!".9.D...?.N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL