ADMINISTRATIE
FILE INFORMATION
FILENAME(S): ADMINISTRATIE
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:20:06
APPEARS ON: 1 disk(s)
FILE HASH
9cb63f71a66ef2fc65fbfe83d6bf12b184ec0a9c40b3852c059f5d0f34baf74c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RP L ADMIN PRGS | ADMINISTRATIE | PRG | DuncanTwain | 21 | 6 | 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 36 3A 97 |.......53280,6:.|
00000010: 35 33 32 38 31 2C 36 3A 99 C7 28 31 35 38 29 00 |53281,6:..(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 32 30 30 30 3A 82 00 5F 0A 0E 01 8E 00 | . 2000:.._.....|
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 B6 0B 9A 01 99 00 BC 0B C2 01 8E 00 DD 0B F4 |................|
000003C0: 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
000003D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 FA 0B |=============...|
000003E0: FE 01 8F 20 20 47 45 47 45 56 45 4E 53 20 49 4E |... GEGEVENS IN|
000003F0: 20 43 4F 4D 50 55 54 45 52 3F 00 1B 0C 08 02 8F | COMPUTER?......|
00000400: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00000410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 2A 0C 12 02 |===========.*...|
00000420: 8B 20 5A B1 30 A7 20 35 36 30 00 52 0C 1C 02 46 |. Z.0. 560.R...F|
00000430: 45 24 B2 22 47 45 45 4E 20 47 45 47 45 56 45 4E |E$."GEEN GEGEVEN|
00000440: 53 20 49 4E 20 44 45 20 43 4F 4D 50 55 54 45 52 |S IN DE COMPUTER|
00000450: 21 22 00 5B 0C 26 02 8D 32 30 30 00 61 0C 30 02 |!".[.&..200.a.0.|
00000460: 8E 00 6A 0C E8 03 8D 31 30 30 00 75 0C EC 03 8D |..j....100.u....|
00000470: 33 30 30 3A 99 00 81 0C ED 03 99 20 C7 28 33 30 |300:....... .(30|
00000480: 29 00 AE 0C F2 03 99 A3 31 30 29 C7 28 31 35 38 |).......10).(158|
00000490: 29 3B 22 50 52 4F 47 52 41 4D 4D 41 46 55 4E 43 |);"PROGRAMMAFUNC|
000004A0: 54 49 45 53 3A 22 3B C7 28 33 30 29 3B 22 00 B8 |TIES:";.(30);"..|
000004B0: 0C 06 04 99 3A 99 3A 99 00 EA 0C 10 04 99 C7 28 |....:.:........(|
000004C0: 31 34 34 29 3B 22 20 20 20 20 20 20 2D 31 2D 20 |144);" -1- |
000004D0: 22 3B C7 28 31 35 38 29 3B 22 42 45 53 54 41 4E |";.(158);"BESTAN|
000004E0: 44 20 20 20 4C 41 44 45 4E 22 00 1E 0D 1A 04 99 |D LADEN"......|
000004F0: C7 28 31 34 34 29 3B 22 20 20 20 20 20 20 2D 32 |.(144);" -2|
00000500: 2D 20 22 3B C7 28 31 35 38 29 3B 22 42 45 53 54 |- ";.(158);"BEST|
00000510: 41 4E 44 20 20 20 4F 50 53 4C 41 41 4E 22 00 53 |AND OPSLAAN".S|
00000520: 0D 24 04 99 C7 28 31 34 34 29 3B 22 20 20 20 20 |.$...(144);" |
00000530: 20 20 2D 33 2D 20 22 3B C7 28 31 35 38 29 3B 22 | -3- ";.(158);"|
00000540: 41 44 52 45 53 53 45 4E 20 20 49 4E 56 4F 45 52 |ADRESSEN INVOER|
00000550: 45 4E 22 00 8A 0D 2E 04 99 C7 28 31 34 34 29 3B |EN".......(144);|
00000560: 22 20 20 20 20 20 20 2D 34 2D 20 22 3B C7 28 31 |" -4- ";.(1|
00000570: 35 38 29 3B 22 41 44 52 45 53 53 45 4E 20 20 56 |58);"ADRESSEN V|
00000580: 45 52 41 4E 44 45 52 45 4E 22 00 BD 0D 38 04 99 |ERANDEREN"...8..|
00000590: C7 28 31 34 34 29 3B 22 20 20 20 20 20 20 2D 35 |.(144);" -5|
000005A0: 2D 20 22 3B C7 28 31 35 38 29 3B 22 41 44 52 45 |- ";.(158);"ADRE|
000005B0: 53 53 45 4E 20 20 57 49 53 53 45 4E 22 00 F3 0D |SSEN WISSEN"...|
000005C0: 42 04 99 C7 28 31 34 34 29 3B 22 A0 A0 A0 A0 A0 |B...(144);".....|
000005D0: A0 2D 36 2D 20 22 3B C7 28 31 35 38 29 3B 22 41 |.-6- ";.(158);"A|
000005E0: 44 52 45 53 53 45 4E 20 20 55 49 54 56 4F 45 52 |DRESSEN UITVOER|
000005F0: 45 4E 22 00 2A 0E 4C 04 99 C7 28 31 34 34 29 3B |EN".*.L...(144);|
00000600: 22 20 20 20 20 20 20 2D 37 2D 20 22 3B C7 28 31 |" -7- ";.(1|
00000610: 35 38 29 3B 22 50 52 4F 47 52 41 4D 4D 41 20 42 |58);"PROGRAMMA B|
00000620: 45 45 49 4E 44 49 47 45 4E 22 00 32 0E 51 04 99 |EEINDIGEN".2.Q..|
00000630: 3A 99 00 55 0E 56 04 99 C7 28 31 34 34 29 3B 22 |:..U.V...(144);"|
00000640: 20 20 20 55 57 20 4B 45 55 5A 45 20 22 3B C7 28 | UW KEUZE ";.(|
00000650: 31 35 38 29 3B 00 5D 0E 5B 04 85 20 46 00 91 0E |158);.].[.. F...|
00000660: 60 04 8B 20 46 B2 30 20 B0 20 46 B1 37 20 A7 20 |`.. F.0 . F.7 . |
00000670: 46 45 24 B2 22 4F 4E 47 45 4C 44 49 47 45 20 57 |FE$."ONGELDIGE W|
00000680: 41 41 52 44 45 22 3A 8D 32 30 30 3A 89 31 30 30 |AARDE":.200:.100|
00000690: 30 00 9F 0E 6A 04 8B 46 B2 31 A7 35 30 30 30 00 |0...j..F.1.5000.|
000006A0: AE 0E 6B 04 8B 46 B2 32 A7 31 30 30 30 30 00 BD |..k..F.2.10000..|
000006B0: 0E 6C 04 8B 46 B2 33 A7 31 35 30 30 30 00 CC 0E |.l..F.3.15000...|
000006C0: 6D 04 8B 46 B2 34 A7 32 30 30 30 30 00 DB 0E 6E |m..F.4.20000...n|
000006D0: 04 8B 46 B2 35 A7 32 35 30 30 30 00 EA 0E 6F 04 |..F.5.25000...o.|
000006E0: 8B 46 B2 36 A7 33 30 30 30 30 00 F9 0E 70 04 8B |.F.6.30000...p..|
000006F0: 46 B2 37 A7 33 35 30 30 30 00 14 0F 88 13 8F 20 |F.7.35000...... |
00000700: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000710: 3D 3D 3D 3D 00 2A 0F 92 13 8F 20 20 20 42 45 53 |====.*.... BES|
00000720: 54 41 4E 44 20 4C 41 44 45 4E 00 45 0F 9C 13 8F |TAND LADEN.E....|
00000730: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00000740: 3D 3D 3D 3D 3D 00 50 0F A6 13 8D 33 30 30 3A 99 |=====.P....300:.|
00000750: 00 79 0F B0 13 99 22 50 4C 41 41 54 53 20 44 49 |.y...."PLAATS DI|
00000760: 53 4B 20 45 4E 20 44 52 55 4B 20 4F 50 20 45 45 |SK EN DRUK OP EE|
00000770: 4E 20 54 4F 45 54 53 2E 22 00 8B 0F BA 13 97 31 |N TOETS."......1|
00000780: 39 38 2C 30 3A 92 31 39 38 2C 31 00 AB 0F E2 13 |98,0:.198,1.....|
00000790: 8B 46 B2 31 A7 9F 20 38 2C 38 2C 31 2C 22 41 44 |.F.1.. 8,8,1,"AD|
000007A0: 52 45 53 53 45 4E 3A 22 AA 44 24 00 B4 0F EC 13 |RESSEN:".D$.....|
000007B0: 84 38 2C 5A 00 C0 0F F6 13 81 20 59 B2 31 A4 5A |.8,Z...... Y.1.Z|
000007C0: 00 CC 0F 00 14 81 20 49 B2 31 A4 38 00 DB 0F 0A |...... I.1.8....|
000007D0: 14 84 38 2C 44 24 28 59 2C 49 29 00 E7 0F 28 14 |..8,D$(Y,I)...(.|
000007E0: A0 20 38 2C 38 2C 31 00 0A 10 32 14 99 22 11 11 |. 8,8,1...2.."..|
000007F0: 11 11 11 47 45 47 45 56 45 4E 53 20 5A 49 4A 4E |...GEGEVENS ZIJN|
00000800: 20 47 45 4C 41 44 45 4E 21 22 00 1B 10 3C 14 81 | GELADEN!"...<..|
00000810: 20 58 B2 31 A4 32 30 30 30 3A 82 00 26 10 46 14 | X.1.2000:..&.F.|
00000820: 89 20 31 30 30 30 00 40 10 10 27 8F 20 3D 3D 3D |. 1000.@..'. ===|
00000830: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000840: 00 58 10 24 27 8F 20 20 20 42 45 53 54 41 4E 44 |.X.$'. BESTAND|
00000850: 20 4F 50 53 4C 41 41 4E 00 72 10 2E 27 8F 20 3D | OPSLAAN.r..'. =|
00000860: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000870: 3D 3D 00 88 10 3D 27 8D 35 30 30 3A 8B 20 5A B2 |==...='.500:. Z.|
00000880: 30 20 A7 20 31 30 30 30 00 BB 10 4C 27 99 22 93 |0 . 1000...L'.".|
00000890: 22 3A 8B 46 B2 32 A7 99 22 50 4C 41 41 54 53 20 |":.F.2.."PLAATS |
000008A0: 44 49 53 4B 20 45 4E 20 44 52 55 4B 20 4F 50 20 |DISK EN DRUK OP |
000008B0: 45 45 4E 20 54 4F 45 54 53 2E 22 00 CC 10 56 27 |EEN TOETS."...V'|
000008C0: 99 22 11 11 11 11 11 11 11 11 11 22 00 DE 10 6F |."........."...o|
000008D0: 27 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 00 FE |'.198,0:.198,1..|
000008E0: 10 74 27 8B 46 B2 32 A7 9F 20 31 2C 38 2C 31 2C |.t'.F.2.. 1,8,1,|
000008F0: 22 41 44 52 45 53 53 45 4E 3A 22 AA 44 24 00 07 |"ADRESSEN:".D$..|
00000900: 11 7E 27 98 31 2C 5A 00 13 11 88 27 81 20 59 B2 |.~'.1,Z....'. Y.|
00000910: 31 A4 5A 00 1F 11 92 27 81 20 49 B2 31 A4 38 00 |1.Z....'. I.1.8.|
00000920: 2E 11 9C 27 98 31 2C 44 24 28 59 2C 49 29 00 36 |...'.1,D$(Y,I).6|
00000930: 11 A6 27 82 20 49 00 3E 11 B0 27 82 20 59 00 49 |..'. I.>..'. Y.I|
00000940: 11 B5 27 A0 31 2C 38 2C 31 00 76 11 BA 27 99 22 |..'.1,8,1.v..'."|
00000950: 11 11 11 11 11 3A 50 52 49 4E 54 22 47 45 47 45 |.....:PRINT"GEGE|
00000960: 56 45 4E 53 20 5A 49 4A 4E 20 4F 50 47 45 53 4C |VENS ZIJN OPGESL|
00000970: 41 47 45 4E 21 22 00 87 11 C4 27 81 20 58 B2 31 |AGEN!"....'. X.1|
00000980: A4 32 30 30 30 3A 82 00 91 11 CE 27 89 31 30 30 |.2000:.....'.100|
00000990: 30 00 AC 11 98 3A 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |0....:. ========|
000009A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 C4 11 A2 |============....|
000009B0: 3A 8F 20 41 44 52 45 53 53 45 4E 20 49 4E 56 4F |:. ADRESSEN INVO|
000009C0: 45 52 45 4E 00 DF 11 AC 3A 8F 20 3D 3D 3D 3D 3D |EREN....:. =====|
000009D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000009E0: E8 11 B6 3A 8D 33 30 30 00 F2 11 C0 3A 5A B2 5A |...:.300....:Z.Z|
000009F0: AA 31 00 F8 11 CA 3A 99 00 04 12 D4 3A 81 20 49 |.1....:.....:. I|
00000A00: B2 31 A4 38 00 10 12 DE 3A 99 46 24 28 49 29 3B |.1.8....:.F$(I);|
00000A10: 00 1E 12 E8 3A 85 20 44 24 28 5A 2C 49 29 00 24 |....:. D$(Z,I).$|
00000A20: 12 F2 3A 82 00 2A 12 FC 3A 99 00 51 12 06 3B 99 |..:..*..:..Q..;.|
00000A30: 22 47 45 47 45 56 45 4E 53 20 4A 55 49 53 54 20 |"GEGEVENS JUIST |
00000A40: 49 4E 47 45 56 4F 45 52 44 20 28 4A CE 4E 29 22 |INGEVOERD (J.N)"|
00000A50: 3B 00 60 12 10 3B 58 24 B2 22 22 3A 85 20 58 24 |;.`..;X$."":. X$|
00000A60: 00 73 12 1A 3B 8B 20 58 24 B2 22 4A 22 A7 31 35 |.s..;. X$."J".15|
00000A70: 31 36 30 00 8D 12 24 3B 8B 20 58 24 B2 22 4E 22 |160...$;. X$."N"|
00000A80: A7 5A B2 5A AB 31 3A 89 31 35 30 30 30 00 A2 12 |.Z.Z.1:.15000...|
00000A90: 2E 3B 99 20 C7 28 31 34 35 29 3B 3A 89 31 35 31 |.;. .(145);:.151|
00000AA0: 31 30 00 CA 12 38 3B 99 22 56 45 52 44 45 52 45 |10...8;."VERDERE|
00000AB0: 20 49 4E 56 4F 45 52 48 41 4E 44 45 4C 49 4E 47 | INVOERHANDELING|
00000AC0: 45 4E 20 28 4A CE 4E 29 22 3B 00 D9 12 42 3B 58 |EN (J.N)";...B;X|
00000AD0: 24 B2 22 22 3A 85 20 58 24 00 EE 12 4C 3B 8B 20 |$."":. X$...L;. |
00000AE0: 58 24 B2 22 4A 22 20 A7 20 31 35 30 30 30 00 02 |X$."J" . 15000..|
00000AF0: 13 56 3B 8B 20 58 24 B2 22 4E 22 20 A7 20 31 30 |.V;. X$."N" . 10|
00000B00: 30 30 00 17 13 60 3B 99 20 C7 28 31 34 35 29 3B |00...`;. .(145);|
00000B10: 3A 89 31 35 31 36 30 00 36 13 20 4E 8F 20 3D 3D |:.15160.6. N. ==|
00000B20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B30: 3D 3D 3D 3D 3D 3D 00 53 13 2A 4E 8F 20 20 20 20 |======.S.*N. |
00000B40: 41 44 52 45 53 53 45 4E 20 56 45 52 41 4E 44 45 |ADRESSEN VERANDE|
00000B50: 52 45 4E 00 72 13 34 4E 8F 20 3D 3D 3D 3D 3D 3D |REN.r.4N. ======|
00000B60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B70: 3D 3D 00 7B 13 3E 4E 5A 5A B2 31 00 84 13 48 4E |==.{.>NZZ.1...HN|
00000B80: 8D 33 30 30 00 8A 13 52 4E 99 00 96 13 5C 4E 81 |.300...RN....\N.|
00000B90: 20 49 B2 31 A4 38 00 AD 13 66 4E 99 20 49 3B 46 | I.1.8...fN. I;F|
00000BA0: 24 28 49 29 3B 44 24 28 5A 5A 2C 49 29 00 B3 13 |$(I);D$(ZZ,I)...|
00000BB0: 70 4E 82 00 CA 13 7A 4E A1 20 58 24 3A 8B 20 58 |pN....zN. X$:. X|
00000BC0: 24 B2 22 22 A7 32 30 30 39 30 00 EC 13 84 4E 8B |$."".20090....N.|
00000BD0: C6 28 58 24 29 B3 31 33 33 20 B0 20 C6 28 58 24 |.(X$).133 . .(X$|
00000BE0: 29 B1 31 33 36 20 A7 32 30 30 39 30 00 01 14 8E |).136 .20090....|
00000BF0: 4E 8B 20 C6 28 58 24 29 B2 31 33 36 A7 31 30 30 |N. .(X$).136.100|
00000C00: 30 00 28 14 98 4E 8B 20 C6 28 58 24 29 B2 31 33 |0.(..N. .(X$).13|
00000C10: 33 20 AF 20 5A 5A B3 5A 20 A7 5A 5A B2 5A 5A AA |3 . ZZ.Z .ZZ.ZZ.|
00000C20: 31 3A 89 32 30 30 34 30 00 4E 14 A2 4E 8B C6 28 |1:.20040.N..N..(|
00000C30: 58 24 29 B2 31 33 34 20 AF 20 5A 5A B1 31 20 A7 |X$).134 . ZZ.1 .|
00000C40: 5A 5A B2 5A 5A AB 31 3A 89 32 30 30 34 30 00 65 |ZZ.ZZ.1:.20040.e|
00000C50: 14 AC 4E 8B 20 C6 28 58 24 29 B2 31 33 35 20 A7 |..N. .(X$).135 .|
00000C60: 32 30 31 36 30 00 70 14 B6 4E 89 32 30 30 39 30 |20160.p..N.20090|
00000C70: 00 76 14 C0 4E 99 00 90 14 CA 4E 85 22 56 45 4C |.v..N.....N."VEL|
00000C80: 44 4E 55 4D 4D 45 52 28 31 2D 38 29 20 22 3B 58 |DNUMMER(1-8) ";X|
00000C90: 00 B1 14 D4 4E 8B 20 58 B3 31 B0 20 58 B1 38 20 |....N. X.1. X.8 |
00000CA0: A7 20 99 C7 28 31 34 35 29 3B 3A 89 32 30 31 37 |. ..(145);:.2017|
00000CB0: 30 00 B7 14 DE 4E 99 00 D7 14 E8 4E 85 22 4E 49 |0....N.....N."NI|
00000CC0: 45 55 57 45 20 49 4E 48 4F 55 44 3A 20 22 3B 44 |EUWE INHOUD: ";D|
00000CD0: 24 28 5A 5A 2C 58 29 00 E2 14 F2 4E 89 32 30 30 |$(ZZ,X)....N.200|
00000CE0: 34 30 00 FA 14 A8 61 8F 20 3D 3D 3D 3D 3D 3D 3D |40....a. =======|
00000CF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 11 15 B2 61 8F |==========....a.|
00000D00: 20 20 41 44 52 45 53 53 45 4E 20 57 49 53 53 45 | ADRESSEN WISSE|
00000D10: 4E 00 29 15 BC 61 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |N.)..a. ========|
00000D20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 3B 15 C6 61 8D 20 |=========.;..a. |
00000D30: 33 30 30 3A 8F 20 54 49 54 45 4C 00 41 15 D0 61 |300:. TITEL.A..a|
00000D40: 99 00 66 15 DA 61 8D 20 35 30 30 3A 8F 20 47 45 |..f..a. 500:. GE|
00000D50: 47 45 56 45 4E 53 20 49 4E 20 44 45 20 43 4F 4D |GEVENS IN DE COM|
00000D60: 50 55 54 45 52 3F 00 75 15 DF 61 8B 20 5A B2 30 |PUTER?.u..a. Z.0|
00000D70: A7 31 30 30 30 00 8C 15 E4 61 85 20 22 56 4F 4F |.1000....a. "VOO|
00000D80: 52 4E 41 41 4D 3A 20 22 3B 44 31 24 00 A3 15 EE |RNAAM: ";D1$....|
00000D90: 61 85 20 22 4E 41 41 4D 20 20 20 20 20 20 22 3B |a. "NAAM ";|
00000DA0: 44 32 24 00 AB 15 F8 61 58 B2 31 00 D1 15 02 62 |D2$....aX.1....b|
00000DB0: 8B 20 44 24 28 58 2C 32 29 B2 44 31 24 AF 20 44 |. D$(X,2).D1$. D|
00000DC0: 24 28 58 2C 33 29 B2 44 32 24 20 A7 32 35 31 33 |$(X,3).D2$ .2513|
00000DD0: 30 00 E8 15 0C 62 8B 20 58 B3 5A A7 58 B2 58 AA |0....b. X.Z.X.X.|
00000DE0: 31 3A 89 32 35 30 39 30 00 08 16 16 62 46 45 24 |1:.25090....bFE$|
00000DF0: B2 22 20 4E 41 41 4D 20 4E 49 45 54 20 47 45 56 |." NAAM NIET GEV|
00000E00: 4F 4E 44 45 4E 21 20 22 00 17 16 20 62 8D 32 30 |ONDEN! "... b.20|
00000E10: 30 3A 89 31 30 30 30 00 22 16 2A 62 8D 33 30 30 |0:.1000.".*b.300|
00000E20: 3A 99 00 2E 16 2F 62 81 20 49 B2 31 A4 38 00 41 |:..../b. I.1.8.A|
00000E30: 16 34 62 99 46 24 28 49 29 3B 44 24 28 58 2C 49 |.4b.F$(I);D$(X,I|
00000E40: 29 00 47 16 3E 62 82 00 4D 16 43 62 99 00 6A 16 |).G.>b..M.Cb..j.|
00000E50: 48 62 85 22 41 44 52 45 53 20 57 49 53 53 45 4E |Hb."ADRES WISSEN|
00000E60: 20 28 4A 2F 4E 29 22 3B 58 24 00 7F 16 52 62 8B | (J/N)";X$...Rb.|
00000E70: 20 58 24 B2 22 4A 22 20 A7 20 32 35 32 30 30 00 | X$."J" . 25200.|
00000E80: 93 16 5C 62 8B 20 58 24 B2 22 4E 22 20 A7 20 31 |..\b. X$."N" . 1|
00000E90: 30 30 30 00 A7 16 66 62 99 C7 28 31 34 35 29 3B |000...fb..(145);|
00000EA0: 3A 89 32 35 31 36 30 00 B7 16 70 62 81 20 59 B2 |:.25160...pb. Y.|
00000EB0: 58 20 A4 20 5A AB 31 00 C3 16 7A 62 81 20 49 B2 |X . Z.1...zb. I.|
00000EC0: 31 A4 38 00 D9 16 84 62 44 24 28 59 2C 49 29 B2 |1.8....bD$(Y,I).|
00000ED0: 44 24 28 59 AA 31 2C 49 29 00 E0 16 8E 62 82 49 |D$(Y.1,I)....b.I|
00000EE0: 00 E7 16 98 62 82 59 00 F1 16 A2 62 5A B2 5A AB |....b.Y....bZ.Z.|
00000EF0: 31 00 FB 16 AC 62 89 31 30 30 30 00 18 17 30 75 |1....b.1000...0u|
00000F00: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00000F10: 3D 3D 3D 3D 3D 3D 3D 3D 00 33 17 3A 75 8F 20 20 |========.3.:u. |
00000F20: 20 41 44 52 45 53 53 45 4E 20 55 49 54 56 4F 45 | ADRESSEN UITVOE|
00000F30: 52 45 4E 00 50 17 44 75 8F 20 3D 3D 3D 3D 3D 3D |REN.P.Du. ======|
00000F40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000F50: 00 5B 17 4E 75 8D 33 30 30 3A 99 00 65 17 58 75 |.[.Nu.300:..e.Xu|
00000F60: 8D 20 35 30 30 00 76 17 62 75 8B 20 5A B2 30 20 |. 500.v.bu. Z.0 |
00000F70: A7 20 31 30 30 30 00 9E 17 6C 75 85 22 50 52 49 |. 1000...lu."PRI|
00000F80: 4E 54 45 52 20 4F 46 20 42 45 45 4C 44 53 43 48 |NTER OF BEELDSCH|
00000F90: 45 52 4D 20 28 44 2F 42 29 20 22 3B 47 24 00 C9 |ERM (D/B) ";G$..|
00000FA0: 17 76 75 8B 20 47 24 B3 B1 22 42 22 20 AF 20 47 |.vu. G$.."B" . G|
00000FB0: 24 B3 B1 22 44 22 A7 20 99 20 C7 28 31 34 35 29 |$.."D". . .(145)|
00000FC0: 3B 3A 89 20 33 30 30 36 30 00 DD 17 7B 75 8B 20 |;:. 30060...{u. |
00000FD0: 47 24 B2 22 44 22 A7 20 9F 20 31 2C 34 00 E8 17 |G$."D". . 1,4...|
00000FE0: 80 75 8D 33 30 30 3A 99 00 FC 17 8A 75 99 22 54 |.u.300:.....u."T|
00000FF0: 52 45 46 57 4F 4F 52 44 45 4E 3A 22 00 10 18 94 |REFWOORDEN:"....|
00001000: 75 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |u."------------"|
00001010: 00 16 18 9E 75 99 00 2D 18 A8 75 81 20 49 B2 31 |....u..-..u. I.1|
00001020: A4 38 3A 53 24 28 49 29 B2 22 22 3A 82 00 39 18 |.8:S$(I)."":..9.|
00001030: B2 75 81 20 49 B2 31 A4 38 00 45 18 BC 75 99 20 |.u. I.1.8.E..u. |
00001040: 46 24 28 49 29 00 51 18 C6 75 85 20 53 24 28 49 |F$(I).Q..u. S$(I|
00001050: 29 00 57 18 D0 75 82 00 63 18 DA 75 81 20 59 B2 |).W..u..c..u. Y.|
00001060: 31 A4 5A 00 6B 18 E4 75 53 B2 30 00 77 18 EE 75 |1.Z.k..uS.0.w..u|
00001070: 81 20 49 B2 31 A4 38 00 93 18 F8 75 8B 20 53 24 |. I.1.8....u. S$|
00001080: 28 49 29 B2 22 22 A7 53 B2 53 AA 31 3A 89 33 30 |(I)."".S.S.1:.30|
00001090: 32 32 30 00 AD 18 02 76 8B 20 44 24 28 59 2C 49 |220....v. D$(Y,I|
000010A0: 29 B2 53 24 28 49 29 A7 53 B2 53 AA 31 00 B5 18 |).S$(I).S.S.1...|
000010B0: 0C 76 82 20 49 00 C8 18 16 76 8B 20 53 B3 B1 38 |.v. I....v. S..8|
000010C0: 20 A7 20 33 30 33 30 30 00 D8 18 20 76 8B 47 24 | . 30300... v.G$|
000010D0: B2 22 44 22 A7 20 98 31 00 EB 18 25 76 8B 47 24 |."D". .1...%v.G$|
000010E0: B2 22 42 22 A7 8D 33 30 30 3A 99 00 F7 18 2A 76 |."B"..300:....*v|
000010F0: 81 20 49 B2 31 A4 38 00 14 19 34 76 8B 20 47 24 |. I.1.8...4v. G$|
00001100: B2 22 42 22 A7 20 99 46 24 28 49 29 3B 44 24 28 |."B". .F$(I);D$(|
00001110: 59 2C 49 29 00 33 19 3E 76 8B 20 47 24 B2 22 44 |Y,I).3.>v. G$."D|
00001120: 22 A7 20 98 31 2C 46 24 28 49 29 3B 44 24 28 59 |". .1,F$(I);D$(Y|
00001130: 2C 49 29 00 3B 19 48 76 82 20 49 00 4F 19 4D 76 |,I).;.Hv. I.O.Mv|
00001140: 8B 20 47 24 B2 22 44 22 A7 20 33 30 33 30 30 00 |. G$."D". 30300.|
00001150: 6A 19 52 76 99 3A 85 22 44 52 55 4B 20 4F 50 20 |j.Rv.:."DRUK OP |
00001160: 52 45 54 55 52 4E 22 3B 58 24 00 72 19 5C 76 82 |RETURN";X$.r.\v.|
00001170: 20 59 00 80 19 66 76 8D 20 33 30 30 3A 99 3A 99 | Y...fv. 300:.:.|
00001180: 00 95 19 70 76 99 22 45 49 4E 44 45 20 42 45 53 |...pv."EINDE BES|
00001190: 54 41 4E 44 22 00 AE 19 7A 76 85 22 44 52 55 4B |TAND"...zv."DRUK|
000011A0: 20 4F 50 20 52 45 54 55 52 4E 22 3B 58 24 00 BF | OP RETURN";X$..|
000011B0: 19 84 76 8B 20 47 24 B2 22 44 22 A7 20 A0 31 00 |..v. G$."D". .1.|
000011C0: CA 19 8E 76 89 20 31 30 30 30 00 E9 19 B8 88 8F |...v. 1000......|
000011D0: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
000011E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 06 1A C2 88 8F 20 |=========...... |
000011F0: 20 20 50 52 4F 47 52 41 4D 4D 41 20 42 45 45 49 | PROGRAMMA BEEI|
00001200: 4E 44 49 47 45 4E 00 25 1A CC 88 8F 20 3D 3D 3D |NDIGEN.%.... ===|
00001210: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001220: 3D 3D 3D 3D 3D 00 31 1A D6 88 8D 33 30 30 20 3A |=====.1....300 :|
00001230: 99 00 43 1A E0 88 8B 20 5A B2 30 20 A7 20 33 35 |..C.... Z.0 . 35|
00001240: 31 35 30 00 6C 1A EA 88 99 22 5A 49 4A 4E 20 41 |150.l...."ZIJN A|
00001250: 4C 4C 45 20 47 45 47 45 56 45 4E 53 20 47 45 4C |LLE GEGEVENS GEL|
00001260: 41 44 45 4E 20 28 4A 2F 4E 29 22 3B 00 74 1A F4 |ADEN (J/N)";.t..|
00001270: 88 85 58 24 00 87 1A FE 88 8B 20 58 24 B2 22 4E |..X$...... X$."N|
00001280: 22 A7 20 31 30 30 30 00 9B 1A 08 89 8B 20 58 24 |". 1000...... X$|
00001290: B2 22 4A 22 A7 20 33 35 31 30 30 00 B1 1A 12 89 |."J". 35100.....|
000012A0: 99 20 C7 28 31 34 35 29 3B 3A 89 20 33 35 30 35 |. .(145);:. 3505|
000012B0: 30 00 BB 1A 1C 89 8D 20 33 30 30 00 D0 1A 21 89 |0...... 300...!.|
000012C0: 81 20 49 B2 31 A4 35 3A 99 C7 28 31 37 29 3A 82 |. I.1.5:..(17):.|
000012D0: 00 FE 1A 26 89 99 22 48 45 54 20 50 52 4F 47 52 |...&.."HET PROGR|
000012E0: 41 4D 4D 41 20 4B 41 4E 20 4D 45 54 20 27 47 4F |AMMA KAN MET 'GO|
000012F0: 54 4F 20 31 30 30 30 27 20 57 45 45 52 22 00 2B |TO 1000' WEER".+|
00001300: 1B 30 89 99 22 20 20 47 45 53 54 41 52 54 20 57 |.0.." GESTART W|
00001310: 4F 52 44 45 4E 2C 20 5A 4F 4E 44 45 52 20 44 41 |ORDEN, ZONDER DA|
00001320: 54 20 47 45 47 45 56 45 4E 53 22 00 4C 1B 3A 89 |T GEGEVENS".L.:.|
00001330: 99 22 20 20 20 20 20 20 20 20 20 20 20 56 45 52 |." VER|
00001340: 4C 4F 52 45 4E 20 47 41 41 4E 21 22 00 52 1B 44 |LOREN GAAN!".R.D|
00001350: 89 99 00 58 1B 4E 89 80 00 00 00 |...X.N..... |
.......53280,6:.53281,6:.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 . 2000:
.._.....~.,.. ========================..
.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.........B......
.. ==========================...... GEG
EVENS IN COMPUTER?...... ===============
===========.*.... Z.0. 560.R...FE$."GEEN
GEGEVENS IN DE COMPUTER!".[.&..200.A.0.
..J....100.U....300:....... G(30).......
10)G(158);"PROGRAMMAFUNCTIES:";G(30);"..
....:.:.......G(144);" -1- ";G(158)
;"BESTAND LADEN"......G(144);" -2
- ";G(158);"BESTAND OPSLAAN".S.$..G(14
4);" -3- ";G(158);"ADRESSEN INVOER
EN"......G(144);" -4- ";G(158);"ADR
ESSEN VERANDEREN"...8..G(144);" -5
- ";G(158);"ADRESSEN WISSEN"...B..G(144
);" -6- ";G(158);"ADRESSEN UITVOER
EN".*.L..G(144);" -7- ";G(158);"PRO
GRAMMA BEEINDIGEN".2.Q..:..U.V..G(144);"
UW KEUZE ";G(158);.].[.. F...`.. F.0
. F.7 . FE$."ONGELDIGE WAARDE":.200:.100
0...J..F.1.5000...K..F.2.10000...L..F.3.
15000.L.M..F.4.20000...N..F.5.25000...O.
.F.6.30000...P..F.7.35000...... ========
============.*.... BESTAND LADEN.E....
====================.P....300:..Y...."P
LAATS DISK EN DRUK OP EEN TOETS."......1
98,0:.198,1......F.1.. 8,8,1,"ADRESSEN:"
.D$......8,Z...... Y.1.Z.L.... I.1.8....
..8,D$(Y,I)...(. 8,8,1...2..".....GEGEV
ENS ZIJN GELADEN!"...<.. X.1.2000:..&.F.
. 1000.@..'. ===================.X.$'.
BESTAND OPSLAAN.R..'. =================
==...='.500:. Z.0 . 1000...L'.".":.F.2..
"PLAATS DISK EN DRUK OP EEN TOETS.".L.V'
."........."...O'.198,0:.198,1...T'.F.2.
. 1,8,1,"ADRESSEN:".D$...~'.1,Z....'. Y.
1.Z....'. I.1.8....'.1,D$(Y,I).6..'. I.>
..'. Y.I..' 1,8,1.V..'.".....:PRINT"GEGE
VENS ZIJN OPGESLAGEN!"...D'. X.1.2000:..
..N'.1000....:. ====================.D..
:. ADRESSEN INVOEREN....:. =============
=======....:.300....:Z.Z.1...J:....T:. I
.1.8....:.F$(I);....:. D$(Z,I).$..:..*..
:..Q..;."GEGEVENS JUIST INGEVOERD (JNN)"
;.`..;X$."":. X$.S..;. X$."J".15160...$;
. X$."N".Z.Z.1:.15000....;. G(145);:.151
10.J.8;."VERDERE INVOERHANDELINGEN (JNN)
";.Y.B;X$."":. X$...L;. X$."J" . 15000..
.V;. X$."N" . 1000...`;. G(145);:.15160.
6. N. ========================.S.*N.
ADRESSEN VERANDEREN.R.4N. ==============
==========.{.>NZZ.1...HN.300...RN....\N.
I.1.8...FN. I;F$(I);D$(ZZ,I)...PN..J.ZN
. X$:. X$."".20090....N.F(X$).133 . F(X$
).136 .20090....N. F(X$).136.1000.(..N.
F(X$).133 . ZZ.Z .ZZ.ZZ.1:.20040.N..N.F(
X$).134 . ZZ.1 .ZZ.ZZ.1:.20040.E..N. F(X
$).135 .20160.P..N.20090.V..N....JN."VEL
DNUMMER(1-8) ";X...TN. X.1. X.8 . .G(145
);:.20170....N..W..N."NIEUWE INHOUD: ";D
$(ZZ,X)....N.20040....A. ===============
==....A. ADRESSEN WISSEN.)..A. ========
=========.;.FA. 300:. TITEL.A.PA..F.ZA.
500:. GEGEVENS IN DE COMPUTER?.U..A. Z.0
.1000....A. "VOORNAAM: ";D1$....A. "NAAM
";D2$....AX.1.Q..B. D$(X,2).D1$. D
$(X,3).D2$ .25130....B. X.Z.X.X.1:.25090
....BFE$." NAAM NIET GEVONDEN! "... B.20
0:.1000.".*B.300:..../B. I.1.8.A.4B.F$(I
);D$(X,I).G.>B..M.CB..J.HB."ADRES WISSEN
(J/N)";X$..RB. X$."J" . 25200...\B. X$
."N" . 1000...FB.G(145);:.25160...PB. Y.
X . Z.1.C.ZB. I.1.8.Y..BD$(Y,I).D$(Y.1,I
)....B.I....B.Y....BZ.Z.1....B.1000...0U
. ======================.3.:U. ADRESSE
N UITVOEREN.P.DU. ======================
.[.NU.300:..E.XU. 500.V.BU. Z.0 . 1000..
.LU."PRINTER OF BEELDSCHERM (D/B) ";G$.I
.VU. G$.."B" . G$.."D". . G(145);:. 3006
0...{U. G$."D". . 1,4....U.300:.....U."T
REFWOORDEN:"....U."------------"....U..-
..U. I.1.8:S$(I)."":..9..U. I.1.8.E..U.
F$(I).Q.FU. S$(I).W.PU..C.ZU. Y.1.Z.K..U
S.0.W..U. I.1.8....U. S$(I)."".S.S.1:.30
220....V. D$(Y,I).S$(I).S.S.1....V. I.H.
.V. S..8 . 30300.X. V.G$."D". .1...%V.G$
."B"..300:....*V. I.1.8...4V. G$."B". .F
$(I);D$(Y,I).3.>V. G$."D". .1,F$(I);D$(Y
,I).;.HV. I.O.MV. G$."D". 30300.J.RV.:."
DRUK OP RETURN";X$.R.\V. Y...FV. 300:.:.
...PV."EINDE BESTAND"...ZV."DRUK OP RETU
RN";X$....V. G$."D". 1.J..V. 1000......
========================...B.. PROGRA
MMA BEEINDIGEN.%.L.. ===================
=====.1.V..300 :..C.... Z.0 . 35150.L...
."ZIJN ALLE GEGEVENS GELADEN (J/N)";.T..
..X$...... X$."N". 1000...... X$."J". 35
100...... G(145);:. 35050...... 300.P.!.
. I.1.5:.G(17):....&.."HET PROGRAMMA KAN
MET 'GOTO 1000' WEER".+.0.." GESTART W
ORDEN, ZONDER DAT GEGEVENS".L.:.."
VERLOREN GAAN!".R.D...X.N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL