DIRBES-9

00000000: 01 08 1D 08 E8 03 8D 20  31 30 30 30 30 3A 8F 20  |....... 10000:. |
00000010: 49 4E 49 54 49 41 4C 49  53 41 54 49 45 00 3A 08  |INITIALISATIE.:.|
00000020: F2 03 8D 20 31 31 30 30  30 3A 8F 20 4F 50 45 4E  |... 11000:. OPEN|
00000030: 45 4E 20 42 45 53 54 41  4E 44 00 4D 08 FC 03 8D  |EN BESTAND.M....|
00000040: 20 31 32 30 30 30 3A 8F  20 4D 45 4E 55 00 6B 08  | 12000:. MENU.k.|
00000050: 06 04 8D 20 31 33 30 30  30 3A 8F 20 53 4C 55 49  |... 13000:. SLUI|
00000060: 54 45 4E 20 42 45 53 54  41 4E 44 00 71 08 10 04  |TEN BESTAND.q...|
00000070: 80 00 85 08 10 27 8F 20  49 4E 49 54 49 41 4C 49  |.....'. INITIALI|
00000080: 53 41 54 49 45 00 98 08  1A 27 91 20 45 52 52 B0  |SATIE....'. ERR.|
00000090: 20 89 20 32 31 30 30 30  00 AF 08 24 27 9F 20 22  | . 21000...$'. "|
000000A0: 44 41 54 41 22 20 81 20  85 20 41 53 20 23 31 00  |DATA" . . AS #1.|
000000B0: C1 08 2E 27 85 20 23 31  2C 41 52 2C 54 4C 2C 41  |...'. #1,AR,TL,A|
000000C0: 49 00 F1 08 38 27 86 20  49 54 45 4D 4E 24 28 41  |I...8'. ITEMN$(A|
000000D0: 49 29 2C 49 54 45 4D 4C  28 41 49 29 2C 49 54 45  |I),ITEML(AI),ITE|
000000E0: 4D 57 24 28 41 49 29 2C  56 45 4C 44 24 28 41 49  |MW$(AI),VELD$(AI|
000000F0: 29 00 00 09 42 27 81 20  58 B2 31 20 A4 20 41 49  |)...B'. X.1 . AI|
00000100: 00 1C 09 4C 27 85 20 23  31 2C 49 54 45 4D 4E 24  |...L'. #1,ITEMN$|
00000110: 28 58 29 2C 49 54 45 4D  4C 28 58 29 00 24 09 56  |(X),ITEML(X).$.V|
00000120: 27 82 20 58 00 2D 09 60  27 A0 20 23 31 00 3A 09  |'. X.-.`'. #1.:.|
00000130: 6A 27 54 52 55 45 B2 31  B2 31 00 48 09 74 27 46  |j'TRUE.1.1.H.t'F|
00000140: 41 4C 53 45 B2 31 B2 30  00 4E 09 7E 27 8E 00 63  |ALSE.1.0.N.~'..c|
00000150: 09 F8 2A 8F 20 4F 50 45  4E 45 4E 20 42 45 53 54  |..*. OPENEN BEST|
00000160: 41 4E 44 00 7E 09 02 2B  9F 20 22 42 45 53 54 41  |AND.~..+. "BESTA|
00000170: 4E 44 22 20 41 53 20 23  31 20 C3 B2 54 4C 00 97  |ND" AS #1 ..TL..|
00000180: 09 0C 2B 46 49 45 4C 44  20 31 2C 54 4C 20 41 53  |..+FIELD 1,TL AS|
00000190: 20 A4 54 41 41 4C 24 00  A3 09 16 2B 88 20 53 4F  | .TAAL$....+. SO|
000001A0: 4D B2 30 00 B2 09 20 2B  81 20 58 B2 31 20 A4 20  |M.0... +. X.1 . |
000001B0: 41 49 00 E1 09 2A 2B 46  49 45 4C 44 20 31 2C 53  |AI...*+FIELD 1,S|
000001C0: 4F 4D 20 41 53 20 42 45  47 49 4E 24 2C 49 54 45  |OM AS BEGIN$,ITE|
000001D0: 4D 4C 28 58 29 20 41 53  20 56 45 4C 44 24 28 58  |ML(X) AS VELD$(X|
000001E0: 29 00 F8 09 34 2B 88 20  53 4F 4D B2 53 4F 4D AA  |)...4+. SOM.SOM.|
000001F0: 49 54 45 4D 4C 28 58 29  00 00 0A 3E 2B 82 20 58  |ITEML(X)...>+. X|
00000200: 00 06 0A 48 2B 8E 00 11  0A E0 2E 8F 20 4D 45 4E  |...H+....... MEN|
00000210: 55 00 1C 0A EA 2E 88 20  4B B2 AB 31 00 2B 0A F4  |U...... K..1.+..|
00000220: 2E 57 48 49 4C 45 20 4B  B3 B1 30 00 38 0A FE 2E  |.WHILE K..0.8...|
00000230: 4F 4B B2 46 41 4C 53 45  00 47 0A 08 2F 57 48 49  |OK.FALSE.G../WHI|
00000240: 4C 45 20 A8 20 4F 4B 00  64 0A 12 2F 43 4C 53 3A  |LE . OK.d../CLS:|
00000250: 8F 20 53 43 48 45 52 4D  20 53 43 48 4F 4F 4E 4D  |. SCHERM SCHOONM|
00000260: 41 4B 45 4E 00 7E 0A 1C  2F 88 20 4B 4F 50 24 B2  |AKEN.~../. KOP$.|
00000270: 22 4D 45 4E 55 22 3A 8D  20 31 39 30 30 30 00 9C  |"MENU":. 19000..|
00000280: 0A 26 2F 99 20 22 2D 31  2D 20 52 45 43 4F 52 44  |.&/. "-1- RECORD|
00000290: 53 20 54 4F 45 56 4F 45  47 45 4E 22 00 BC 0A 30  |S TOEVOEGEN"...0|
000002A0: 2F 99 20 22 2D 32 2D 20  52 45 43 4F 52 44 53 20  |/. "-2- RECORDS |
000002B0: 56 45 52 57 49 4A 44 45  52 45 4E 22 00 D9 0A 3A  |VERWIJDEREN"...:|
000002C0: 2F 99 20 22 2D 33 2D 20  52 45 43 4F 52 44 53 20  |/. "-3- RECORDS |
000002D0: 57 49 4A 5A 49 47 45 4E  22 00 F4 0A 44 2F 99 20  |WIJZIGEN"...D/. |
000002E0: 22 2D 34 2D 20 52 45 43  4F 52 44 53 20 5A 4F 45  |"-4- RECORDS ZOE|
000002F0: 4B 45 4E 22 00 10 0B 4E  2F 99 20 22 2D 35 2D 20  |KEN"...N/. "-5- |
00000300: 52 45 43 4F 52 44 53 20  50 52 49 4E 54 45 4E 22  |RECORDS PRINTEN"|
00000310: 00 16 0B 58 2F 99 00 38  0B 62 2F 99 20 22 2D 30  |...X/..8.b/. "-0|
00000320: 2D 20 50 52 4F 47 52 41  4D 4D 41 20 42 45 2D 45  |- PROGRAMMA BE-E|
00000330: 49 4E 44 49 47 45 4E 22  00 40 0B 6C 2F 99 3A 99  |INDIGEN".@.l/.:.|
00000340: 00 56 0B 76 2F 85 20 22  55 57 20 4B 45 55 5A 45  |.V.v/. "UW KEUZE|
00000350: 20 3A 20 22 3B 4B 00 72  0B 80 2F 4F 4B B2 4B B1  | : ";K.r../OK.K.|
00000360: B2 30 20 AF 20 4B B3 B2  35 20 AF 20 4B B2 B5 28  |.0 . K..5 . K..(|
00000370: 4B 29 00 79 0B 8A 2F 57  80 00 A1 0B 94 2F 91 20  |K).y../W...../. |
00000380: 4B 20 8D 20 31 34 30 30  30 2C 31 35 30 30 30 2C  |K . 14000,15000,|
00000390: 31 36 30 30 30 2C 31 37  30 30 30 2C 31 38 30 30  |16000,17000,1800|
000003A0: 30 00 A8 0B 9E 2F 57 80  00 AE 0B A8 2F 8E 00 C4  |0..../W...../...|
000003B0: 0B C8 32 8F 20 53 4C 55  49 54 45 4E 20 42 45 53  |..2. SLUITEN BES|
000003C0: 54 41 4E 44 00 CD 0B D2  32 A0 20 23 31 00 DC 0B  |TAND....2. #1...|
000003D0: DC 32 91 20 45 52 52 B0  20 89 20 30 00 E2 0B E6  |.2. ERR. . 0....|
000003E0: 32 8E 00 FA 0B B0 36 8F  20 52 45 43 4F 52 44 53  |2.....6. RECORDS|
000003F0: 20 54 4F 45 56 4F 45 47  45 4E 00 06 0C BA 36 88  | TOEVOEGEN....6.|
00000400: 20 52 4E B2 AB 31 00 16  0C C4 36 57 48 49 4C 45  | RN..1....6WHILE|
00000410: 20 52 4E B3 B1 30 00 23  0C CE 36 4F 4B B2 46 41  | RN..0.#..6OK.FA|
00000420: 4C 53 45 00 32 0C D8 36  57 48 49 4C 45 20 A8 20  |LSE.2..6WHILE . |
00000430: 4F 4B 00 59 0C E2 36 88  20 4B 4F 50 24 B2 22 52  |OK.Y..6. KOP$."R|
00000440: 45 43 4F 52 44 53 20 54  4F 45 56 4F 45 47 45 4E  |ECORDS TOEVOEGEN|
00000450: 22 3A 8D 20 31 39 30 30  30 00 7A 0C EC 36 85 20  |":. 19000.z..6. |
00000460: 22 52 45 43 4F 52 44 4E  55 4D 4D 45 52 20 20 28  |"RECORDNUMMER  (|
00000470: 4F 46 20 30 29 20 22 3B  52 4E 00 9B 0C F6 36 43  |OF 0) ";RN....6C|
00000480: 4E B2 52 4E B1 B2 30 20  AF 20 52 4E B3 B2 41 52  |N.RN..0 . RN..AR|
00000490: 20 AF 20 52 4E B2 B5 28  52 4E 29 00 D2 0C 00 37  | . RN..(RN)....7|
000004A0: 8B 20 A8 20 43 4E 20 A7  20 88 20 46 4F 55 54 24  |. . CN . . FOUT$|
000004B0: B2 22 52 45 43 4F 52 44  4E 55 4D 4D 45 52 20 4E  |."RECORDNUMMER N|
000004C0: 49 45 54 20 4A 55 49 53  54 22 3A 8D 20 32 30 30  |IET JUIST":. 200|
000004D0: 30 30 00 15 0D 0A 37 8B  20 43 4E 20 AF 20 52 4E  |00....7. CN . RN|
000004E0: B3 B1 30 20 A7 20 A1 20  31 2C 52 4E 3A 56 52 49  |..0 . . 1,RN:VRI|
000004F0: 4A B2 56 45 4C 44 24 28  31 29 B2 53 50 41 43 45  |J.VELD$(1).SPACE|
00000500: 24 28 49 54 45 4D 4C 28  31 29 29 20 45 4C 53 45  |$(ITEML(1)) ELSE|
00000510: 20 56 52 49 4A 00 35 0D  0B 37 8F 20 2A 2A 2A 56  | VRIJ.5..7. ***V|
00000520: 45 52 56 4F 4C 47 20 31  34 30 39 30 2A 2A 2A 20  |ERVOLG 14090*** |
00000530: 3D 54 52 55 45 00 70 0D  14 37 8B 20 A8 20 56 52  |=TRUE.p..7. . VR|
00000540: 49 4A 20 A7 20 88 20 46  4F 55 54 24 B2 22 52 45  |IJ . . FOUT$."RE|
00000550: 43 4F 52 44 22 AA C4 28  52 4E 29 AA 22 42 45 53  |CORD"..(RN)."BES|
00000560: 54 41 41 54 20 41 4C 22  3A 8D 20 32 30 30 30 30  |TAAT AL":. 20000|
00000570: 00 77 0D 28 37 57 80 00  99 0D 32 37 8B 20 52 4E  |.w.(7W....27. RN|
00000580: B3 B1 30 20 A7 20 8D 20  31 34 35 30 30 3A 8F 20  |..0 . . 14500:. |
00000590: 54 4F 45 56 4F 45 47 45  4E 00 A0 0D 3C 37 57 80  |TOEVOEGEN...<7W.|
000005A0: 00 A6 0D 46 37 8E 00 B6  0D A4 38 8F 20 54 4F 45  |...F7.....8. TOE|
000005B0: 56 4F 45 47 45 4E 00 C3  0D AE 38 4F 4B B2 46 41  |VOEGEN....8OK.FA|
000005C0: 4C 53 45 00 D2 0D B8 38  57 48 49 4C 45 20 A8 20  |LSE....8WHILE . |
000005D0: 4F 4B 00 01 0E C2 38 88  20 4B 4F 50 24 B2 22 52  |OK....8. KOP$."R|
000005E0: 45 43 4F 52 44 22 AA C4  28 52 4E 29 AA 22 20 54  |ECORD"..(RN)." T|
000005F0: 4F 45 56 4F 45 47 45 4E  22 3A 8D 20 31 39 30 30  |OEVOEGEN":. 1900|
00000600: 30 00 10 0E CC 38 81 20  58 B2 31 20 A4 20 41 49  |0....8. X.1 . AI|
00000610: 00 26 0E D6 38 99 20 49  54 45 4D 4E 24 28 58 29  |.&..8. ITEMN$(X)|
00000620: 3B A3 32 35 29 3B 00 3B  0E E0 38 4C 49 4E 45 20  |;.25);.;..8LINE |
00000630: 85 20 49 54 45 4D 57 24  28 58 29 00 43 0E EA 38  |. ITEMW$(X).C..8|
00000640: 82 20 58 00 49 0E F4 38  99 00 8D 0E FE 38 99 20  |. X.I..8.....8. |
00000650: 22 47 45 45 46 20 52 45  54 55 52 4E 20 49 4E 44  |"GEEF RETURN IND|
00000660: 49 45 4E 20 43 4F 52 52  45 43 54 2C 20 45 45 4E  |IEN CORRECT, EEN|
00000670: 20 41 4E 44 45 52 45 20  54 4F 45 54 53 20 49 4E  | ANDERE TOETS IN|
00000680: 44 49 45 4E 20 46 4F 55  54 49 45 46 22 00 9A 0E  |DIEN FOUTIEF"...|
00000690: 08 39 41 24 B2 85 24 28  31 29 00 AA 0E 12 39 4F  |.9A$..$(1)....9O|
000006A0: 4B B2 41 24 B2 C7 28 31  33 29 00 B1 0E 1C 39 57  |K.A$..(13)....9W|
000006B0: 80 00 C0 0E 26 39 81 20  58 B2 31 20 A4 20 41 49  |....&9. X.1 . AI|
000006C0: 00 DC 0E 30 39 4C 53 45  54 20 56 45 4C 44 24 28  |...09LSET VELD$(|
000006D0: 58 29 B2 49 54 45 4D 57  24 28 58 29 00 E4 0E 3A  |X).ITEMW$(X)...:|
000006E0: 39 82 20 58 00 F1 0E 44  39 50 55 54 20 31 2C 52  |9. X...D9PUT 1,R|
000006F0: 4E 00 F7 0E 4E 39 8E 00  11 0F 98 3A 8F 20 52 45  |N...N9.....:. RE|
00000700: 43 4F 52 44 53 20 56 45  52 57 49 4A 44 45 52 45  |CORDS VERWIJDERE|
00000710: 4E 00 1D 0F A2 3A 88 20  52 4E B2 AB 31 00 2D 0F  |N....:. RN..1.-.|
00000720: AC 3A 57 48 49 4C 45 20  52 4E B3 B1 30 00 3A 0F  |.:WHILE RN..0.:.|
00000730: B6 3A 4F 4B B2 46 41 4C  53 45 00 49 0F C0 3A 57  |.:OK.FALSE.I..:W|
00000740: 48 49 4C 45 20 A8 20 4F  4B 00 72 0F CA 3A 88 20  |HILE . OK.r..:. |
00000750: 4B 4F 50 24 B2 22 52 45  43 4F 52 44 53 20 56 45  |KOP$."RECORDS VE|
00000760: 52 57 49 4A 44 45 52 45  4E 22 3A 8D 20 31 39 30  |RWIJDEREN":. 190|
00000770: 30 30 00 94 0F D4 3A 85  20 22 52 45 43 4F 52 44  |00....:. "RECORD|
00000780: 4E 55 4D 4D 45 52 20 20  28 4F 46 20 30 29 20 20  |NUMMER  (OF 0)  |
00000790: 22 3B 52 4E 00 B5 0F DE  3A 43 4E B2 52 4E B1 B2  |";RN....:CN.RN..|
000007A0: 30 20 AF 20 52 4E B3 B2  41 52 20 AF 20 52 4E B2  |0 . RN..AR . RN.|
000007B0: B5 28 52 4E 29 00 EC 0F  E8 3A 8B 20 A8 20 43 4E  |.(RN)....:. . CN|
000007C0: 20 A7 20 88 20 46 4F 55  54 24 B2 22 52 45 43 4F  | . . FOUT$."RECO|
000007D0: 52 44 4E 55 4D 4D 45 52  20 4E 49 45 54 20 4A 55  |RDNUMMER NIET JU|
000007E0: 49 53 54 22 3A 8D 20 32  30 30 30 30 00 2F 10 F2  |IST":. 20000./..|
000007F0: 3A 8B 20 43 4E 20 AF 20  52 4E B3 B1 30 20 A7 20  |:. CN . RN..0 . |
00000800: A1 20 31 2C 52 4E 3A 56  52 49 4A B2 56 45 4C 44  |. 1,RN:VRIJ.VELD|
00000810: 24 28 31 29 B2 53 50 41  43 45 24 28 49 54 45 4D  |$(1).SPACE$(ITEM|
00000820: 4C 28 31 29 29 20 45 4C  53 45 20 56 52 49 4A 00  |L(1)) ELSE VRIJ.|
00000830: 50 10 F3 3A 8F 20 2A 2A  2A 2A 2A 20 56 45 52 56  |P..:. ***** VERV|
00000840: 4F 4C 47 20 31 35 30 39  30 20 3D 46 41 4C 53 45  |OLG 15090 =FALSE|
00000850: 00 74 10 1A 3B 8B 20 52  4E B3 B1 30 20 A7 20 8D  |.t..;. RN..0 . .|
00000860: 20 31 35 35 30 30 3A 8F  20 56 45 52 57 49 4A 44  | 15500:. VERWIJD|
00000870: 45 52 45 4E 00 7B 10 24  3B 57 80 00 81 10 2E 3B  |EREN.{.$;W.....;|
00000880: 8E 00 93 10 8C 3C 8F 20  56 45 52 57 49 4A 44 45  |.....<. VERWIJDE|
00000890: 52 45 4E 00 C4 10 96 3C  88 20 4B 4F 50 24 B2 22  |REN....<. KOP$."|
000008A0: 52 45 43 4F 52 44 22 AA  C4 28 52 4E 29 AA 22 20  |RECORD"..(RN)." |
000008B0: 56 45 52 57 49 4A 44 45  52 45 4E 22 3A 8D 20 31  |VERWIJDEREN":. 1|
000008C0: 39 30 30 30 00 D3 10 A0  3C 81 20 58 B2 31 20 A4  |9000....<. X.1 .|
000008D0: 20 41 49 00 F1 10 AA 3C  99 20 49 54 45 4D 4E 24  | AI....<. ITEMN$|
000008E0: 28 58 29 3B A3 32 35 29  3B 56 45 4C 44 24 28 58  |(X);.25);VELD$(X|
000008F0: 29 00 F9 10 B4 3C 82 20  58 00 FF 10 BE 3C 99 00  |)....<. X....<..|
00000900: 3E 11 C8 3C 99 20 22 47  45 45 46 20 52 45 54 55  |>..<. "GEEF RETU|
00000910: 52 4E 20 4F 4D 20 54 45  20 56 45 52 57 49 4A 44  |RN OM TE VERWIJD|
00000920: 45 52 45 4E 2C 20 41 4E  44 45 52 53 20 45 45 4E  |EREN, ANDERS EEN|
00000930: 20 41 4E 44 45 52 45 20  54 4F 45 54 53 22 00 4B  | ANDERE TOETS".K|
00000940: 11 D2 3C 41 24 B2 85 24  28 31 29 00 7C 11 DC 3C  |..<A$..$(1).|..<|
00000950: 8B 20 41 24 B2 C7 28 31  33 29 20 A7 20 4C 53 45  |. A$..(13) . LSE|
00000960: 54 20 A4 54 41 41 4C 24  B2 53 50 41 43 45 24 28  |T .TAAL$.SPACE$(|
00000970: 54 4C 29 3A 50 55 54 20  31 2C 52 4E 00 82 11 E6  |TL):PUT 1,RN....|
00000980: 3C 99 00 C2 11 F0 3C 8B  20 41 24 B2 C7 28 31 33  |<.....<. A$..(13|
00000990: 29 20 A7 20 99 20 22 44  49 54 20 52 45 43 4F 52  |) . . "DIT RECOR|
000009A0: 44 20 49 53 20 56 45 52  57 49 4A 44 45 52 44 22  |D IS VERWIJDERD"|
000009B0: 20 45 4C 53 45 20 99 20  22 44 49 54 20 52 45 43  | ELSE . "DIT REC|
000009C0: 4F 52 00 EF 11 F1 3C 8F  2A 2A 2A 20 56 45 52 56  |OR....<.*** VERV|
000009D0: 4F 4C 47 20 31 35 36 30  30 20 44 20 49 53 20 4E  |OLG 15600 D IS N|
000009E0: 49 45 54 20 56 45 52 57  49 4A 44 45 52 44 22 00  |IET VERWIJDERD".|
000009F0: 07 12 FA 3C 81 20 57 4C  B2 31 20 A4 20 31 30 30  |...<. WL.1 . 100|
00000A00: 30 3A 20 82 20 57 4C 00  0D 12 04 3D 8E 00 23 12  |0: . WL....=..#.|
00000A10: 80 3E 8F 20 52 45 43 4F  52 44 53 20 4D 55 54 45  |.>. RECORDS MUTE|
00000A20: 52 45 4E 00 2F 12 8A 3E  88 20 52 4E B2 AB 31 00  |REN./..>. RN..1.|
00000A30: 3F 12 94 3E 57 48 49 4C  45 20 52 4E B3 B1 30 00  |?..>WHILE RN..0.|
00000A40: 4E 12 9E 3E 88 20 4F 4B  B2 46 41 4C 53 45 00 5D  |N..>. OK.FALSE.]|
00000A50: 12 A8 3E 57 48 49 4C 45  20 A8 20 4F 4B 00 82 12  |..>WHILE . OK...|
00000A60: B2 3E 88 20 4B 4F 50 24  B2 22 52 45 43 4F 52 44  |.>. KOP$."RECORD|
00000A70: 53 20 4D 55 54 45 52 45  4E 22 3A 8D 20 31 39 30  |S MUTEREN":. 190|
00000A80: 30 30 00 A4 12 BC 3E 85  20 22 52 45 43 4F 52 44  |00....>. "RECORD|
00000A90: 4E 55 4D 4D 45 52 20 20  28 4F 46 20 30 29 20 20  |NUMMER  (OF 0)  |
00000AA0: 22 3B 52 4E 00 C5 12 C6  3E 43 4E B2 52 4E B1 B2  |";RN....>CN.RN..|
00000AB0: 30 20 AF 20 52 4E B3 B2  41 52 20 AF 20 52 4E B2  |0 . RN..AR . RN.|
00000AC0: B5 28 52 4E 29 00 FC 12  D0 3E 8B 20 A8 20 43 4E  |.(RN)....>. . CN|
00000AD0: 20 A7 20 88 20 46 4F 55  54 24 B2 22 52 45 43 4F  | . . FOUT$."RECO|
00000AE0: 52 44 4E 55 4D 4D 45 52  20 4E 49 45 54 20 4A 55  |RDNUMMER NIET JU|
00000AF0: 49 53 54 22 3A 8D 20 32  30 30 30 30 00 3F 13 DA  |IST":. 20000.?..|
00000B00: 3E 8B 20 43 4E 20 AF 20  52 4E B3 B1 30 20 A7 20  |>. CN . RN..0 . |
00000B10: A1 20 31 2C 52 4E 3A 56  52 49 4A B2 56 45 4C 44  |. 1,RN:VRIJ.VELD|
00000B20: 24 28 31 29 B2 53 50 41  43 45 24 28 49 54 45 4D  |$(1).SPACE$(ITEM|
00000B30: 4C 28 31 29 29 20 45 4C  53 45 20 56 52 49 4A 00  |L(1)) ELSE VRIJ.|
00000B40: 5D 13 DB 3E 8F 20 2A 2A  2A 2A 56 45 52 56 4F 4C  |]..>. ****VERVOL|
00000B50: 47 20 36 30 39 30 20 3D  46 41 4C 53 45 00 99 13  |G 6090 =FALSE...|
00000B60: E4 3E 8B 20 56 52 49 4A  20 A7 20 88 20 46 4F 55  |.>. VRIJ . . FOU|
00000B70: 54 24 B2 22 52 45 43 4F  52 44 22 AA C4 28 52 4E  |T$."RECORD"..(RN|
00000B80: 29 AA 22 20 42 45 53 54  41 41 54 20 4E 49 45 54  |)." BESTAAT NIET|
00000B90: 22 3A 8D 20 32 30 30 30  30 00 AC 13 EE 3E 4F 4B  |":. 20000....>OK|
00000BA0: B2 43 4E 20 AF 20 A8 20  56 52 49 4A 00 B3 13 F8  |.CN . . VRIJ....|
00000BB0: 3E 57 80 00 D3 13 02 3F  8B 20 52 4E B3 B1 30 20  |>W.....?. RN..0 |
00000BC0: A7 20 8D 20 31 36 35 30  30 3A 8F 20 4D 55 54 45  |. . 16500:. MUTE|
00000BD0: 52 45 4E 00 DA 13 0C 3F  57 80 00 E0 13 16 3F 8E  |REN....?W.....?.|
00000BE0: 00 EE 13 74 40 8F 20 4D  55 54 45 52 45 4E 00 1B  |...t@. MUTEREN..|
00000BF0: 14 7E 40 88 20 4B 4F 50  24 B2 22 52 45 43 4F 52  |.~@. KOP$."RECOR|
00000C00: 44 22 AA C4 28 52 4E 29  AA 22 20 4D 55 54 45 52  |D"..(RN)." MUTER|
00000C10: 45 4E 22 3A 8D 20 31 39  30 30 30 00 2A 14 88 40  |EN":. 19000.*..@|
00000C20: 81 20 58 B2 31 20 A4 20  41 49 00 48 14 92 40 99  |. X.1 . AI.H..@.|
00000C30: 20 49 54 45 4D 4E 24 28  58 29 3B A3 32 35 29 3B  | ITEMN$(X);.25);|
00000C40: 56 45 4C 44 24 28 58 29  00 69 14 9C 40 99 20 22  |VELD$(X).i..@. "|
00000C50: 57 4F 52 44 54 20 20 28  4F 46 20 52 45 54 55 52  |WORDT  (OF RETUR|
00000C60: 4E 29 22 3B A3 32 35 29  3B 00 77 14 A6 40 4C 49  |N)";.25);.w..@LI|
00000C70: 4E 45 20 85 20 48 24 00  AC 14 B0 40 8B 20 48 24  |NE . H$....@. H$|
00000C80: B2 22 22 20 A7 20 88 20  48 55 4C 50 24 28 58 29  |."" . . HULP$(X)|
00000C90: B2 56 45 4C 44 24 28 58  29 20 45 4C 53 45 20 88  |.VELD$(X) ELSE .|
00000CA0: 20 48 55 4C 50 24 28 58  29 B2 48 24 00 B4 14 BA  | HULP$(X).H$....|
00000CB0: 40 82 20 58 00 C0 14 C4  40 8D 20 31 39 30 30 30  |@. X....@. 19000|
00000CC0: 00 CF 14 CE 40 81 20 58  B2 31 20 A4 20 41 49 00  |....@. X.1 . AI.|
00000CD0: ED 14 D8 40 99 20 49 54  45 4D 4E 24 28 58 29 3B  |...@. ITEMN$(X);|
00000CE0: A3 32 35 29 3B 48 55 4C  50 24 28 58 29 00 F5 14  |.25);HULP$(X)...|
00000CF0: E2 40 82 20 58 00 FB 14  EC 40 99 00 37 15 F6 40  |.@. X....@..7..@|
00000D00: 99 20 22 47 45 45 46 20  52 45 54 55 52 4E 20 49  |. "GEEF RETURN I|
00000D10: 4E 44 49 45 4E 20 43 4F  52 52 45 43 54 2C 20 41  |NDIEN CORRECT, A|
00000D20: 4E 44 45 52 53 20 45 45  4E 20 41 4E 44 45 52 45  |NDERS EEN ANDERE|
00000D30: 20 54 4F 45 54 53 22 00  44 15 00 41 41 24 B2 85  | TOETS".D..AA$..|
00000D40: 24 28 31 29 00 84 15 0A  41 8B 20 41 24 B2 C7 28  |$(1)....A. A$..(|
00000D50: 31 33 29 20 A7 20 81 20  58 B2 31 20 A4 20 41 49  |13) . . X.1 . AI|
00000D60: 3A 4C 53 45 54 20 56 45  4C 44 24 28 58 29 B2 48  |:LSET VELD$(X).H|
00000D70: 55 4C 50 24 28 58 29 3A  82 20 58 3A 50 55 54 20  |ULP$(X):. X:PUT |
00000D80: 31 2C 52 4E 00 8A 15 14  41 99 00 CA 15 1E 41 8B  |1,RN....A.....A.|
00000D90: 20 41 24 B2 C7 28 31 33  29 20 A7 20 99 20 22 44  | A$..(13) . . "D|
00000DA0: 49 54 20 52 45 43 4F 52  44 20 49 53 20 47 45 4D  |IT RECORD IS GEM|
00000DB0: 55 54 45 45 52 44 22 20  45 4C 53 45 20 99 20 22  |UTEERD" ELSE . "|
00000DC0: 44 49 54 20 52 45 43 4F  52 44 00 F2 15 1F 41 8F  |DIT RECORD....A.|
00000DD0: 2A 2A 2A 56 45 52 56 4F  4C 47 20 31 36 36 37 30  |***VERVOLG 16670|
00000DE0: 20 49 53 20 4E 49 45 54  20 47 45 4D 55 54 45 45  | IS NIET GEMUTEE|
00000DF0: 52 44 00 06 16 28 41 81  20 57 4C B2 31 A4 31 30  |RD...(A. WL.1.10|
00000E00: 30 30 3A 82 57 4C 00 0C  16 32 41 8E 00 30 16 72  |00:.WL...2A..0.r|
00000E10: 42 88 20 4B 4F 50 24 B2  22 52 45 43 4F 52 44 53  |B. KOP$."RECORDS|
00000E20: 20 5A 4F 45 4B 45 4E 22  3A 8D 20 31 39 30 30 30  | ZOEKEN":. 19000|
00000E30: 00 4C 16 7C 42 99 20 22  42 4F 55 57 20 48 45 54  |.L.|B. "BOUW HET|
00000E40: 20 4D 41 53 4B 45 52 20  4F 50 3A 22 00 52 16 86  | MASKER OP:".R..|
00000E50: 42 99 00 61 16 90 42 81  20 58 B2 31 20 A4 20 41  |B..a..B. X.1 . A|
00000E60: 49 00 77 16 9A 42 99 20  49 54 45 4D 4E 24 28 58  |I.w..B. ITEMN$(X|
00000E70: 29 3B A3 32 35 29 3B 00  8B 16 A4 42 4C 49 4E 45  |);.25);....BLINE|
00000E80: 20 85 20 48 55 4C 50 24  28 58 29 00 93 16 AE 42  | . HULP$(X)....B|
00000E90: 82 20 58 00 A3 16 B8 42  56 45 52 44 45 52 B2 54  |. X....BVERDER.T|
00000EA0: 52 55 45 00 AC 16 C2 42  52 4E B2 31 00 C8 16 CC  |RUE....BRN.1....|
00000EB0: 42 57 48 49 4C 45 20 56  45 52 44 45 52 20 AF 20  |BWHILE VERDER . |
00000EC0: 52 4E B3 B1 41 52 AA 31  00 D3 16 D6 42 A1 20 31  |RN..AR.1....B. 1|
00000ED0: 2C 52 4E 00 0C 17 E0 42  8B 20 56 45 4C 44 24 28  |,RN....B. VELD$(|
00000EE0: 31 29 B3 B1 53 50 41 43  45 24 28 49 54 45 4D 4C  |1)..SPACE$(ITEML|
00000EF0: 28 31 29 29 20 A7 20 8D  20 31 37 35 30 30 3A 20  |(1)) . . 17500: |
00000F00: 20 8F 20 4F 4E 44 45 52  5A 4F 45 4B 00 1A 17 EA  | . ONDERZOEK....|
00000F10: 42 88 20 52 4E B2 52 4E  AA 31 00 21 17 F4 42 57  |B. RN.RN.1.!..BW|
00000F20: 80 00 27 17 FE 42 8E 00  37 17 5C 44 8F 20 4F 4E  |..'..B..7.\D. ON|
00000F30: 44 45 52 5A 4F 45 4B 00  43 17 66 44 4F 4B B2 54  |DERZOEK.C.fDOK.T|
00000F40: 52 55 45 00 4E 17 70 44  88 20 41 47 B2 30 00 64  |RUE.N.pD. AG.0.d|
00000F50: 17 7A 44 57 48 49 4C 45  20 4F 4B 20 AF 20 41 47  |.zDWHILE OK . AG|
00000F60: B3 B1 41 49 00 72 17 84  44 88 20 41 47 B2 41 47  |..AI.r..D. AG.AG|
00000F70: AA 31 00 A2 17 8E 44 4F  4B B2 4F 4B 20 AF 20 C8  |.1....DOK.OK . .|
00000F80: 28 56 45 4C 44 24 28 41  47 29 2C C3 28 48 55 4C  |(VELD$(AG),.(HUL|
00000F90: 50 24 28 41 47 29 29 29  B2 48 55 4C 50 24 28 41  |P$(AG))).HULP$(A|
00000FA0: 47 29 00 A9 17 98 44 57  80 00 C7 17 A2 44 8B 20  |G)....DW.....D. |
00000FB0: 4F 4B 20 A7 20 8D 20 31  37 37 35 30 3A 8F 20 47  |OK . . 17750:. G|
00000FC0: 45 56 4F 4E 44 45 4E 00  CD 17 AC 44 8E 00 DB 17  |EVONDEN....D....|
00000FD0: 56 45 8F 20 50 52 49 4E  54 45 4E 00 08 18 60 45  |VE. PRINTEN...`E|
00000FE0: 88 20 4B 4F 50 24 B2 22  52 45 43 4F 52 44 22 AA  |. KOP$."RECORD".|
00000FF0: C4 28 52 4E 29 AA 22 20  50 52 49 4E 54 45 4E 22  |.(RN)." PRINTEN"|
00001000: 3A 8D 20 31 39 30 30 30  00 17 18 6A 45 81 20 58  |:. 19000...jE. X|
00001010: B2 31 20 A4 20 41 49 00  35 18 74 45 99 20 49 54  |.1 . AI.5.tE. IT|
00001020: 45 4D 4E 24 28 58 29 3B  A3 32 35 29 3B 56 45 4C  |EMN$(X);.25);VEL|
00001030: 44 24 28 58 29 00 3D 18  7E 45 82 20 58 00 43 18  |D$(X).=.~E. X.C.|
00001040: 88 45 99 00 8B 18 92 45  99 20 22 47 45 45 46 20  |.E.....E. "GEEF |
00001050: 52 45 54 55 52 4E 20 4F  4D 20 56 45 52 44 45 52  |RETURN OM VERDER|
00001060: 20 54 45 20 5A 4F 45 4B  45 4E 2C 20 45 45 4E 20  | TE ZOEKEN, EEN |
00001070: 41 4E 44 45 52 45 20 54  4F 45 54 53 20 4F 4D 20  |ANDERE TOETS OM |
00001080: 54 45 20 53 54 4F 50 50  45 4E 22 00 A2 18 9C 45  |TE STOPPEN"....E|
00001090: 56 45 52 44 45 52 B2 85  24 28 31 29 B2 C7 28 31  |VERDER..$(1)..(1|
000010A0: 33 29 00 A8 18 A6 45 8E  00 BE 18 50 46 8F 20 52  |3)....E....PF. R|
000010B0: 45 43 4F 52 44 53 20 50  52 49 4E 54 45 4E 00 CA  |ECORDS PRINTEN..|
000010C0: 18 5A 46 88 20 52 4E B2  AB 31 00 DA 18 64 46 57  |.ZF. RN..1...dFW|
000010D0: 48 49 4C 45 20 52 4E B3  B1 30 00 E7 18 6E 46 4F  |HILE RN..0...nFO|
000010E0: 4B B2 46 41 4C 53 45 00  F6 18 78 46 57 48 49 4C  |K.FALSE...xFWHIL|
000010F0: 45 20 A8 20 4F 4B 00 1B  19 82 46 88 20 4B 4F 50  |E . OK....F. KOP|
00001100: 24 B2 22 52 45 43 4F 52  44 53 20 50 52 49 4E 54  |$."RECORDS PRINT|
00001110: 45 4E 22 3A 8D 20 31 39  30 30 30 00 3D 19 8C 46  |EN":. 19000.=..F|
00001120: 85 20 22 52 45 43 4F 52  44 4E 55 4D 4D 45 52 20  |. "RECORDNUMMER |
00001130: 20 28 4F 46 20 30 29 20  20 22 3B 52 4E 00 5E 19  | (OF 0)  ";RN.^.|
00001140: 96 46 43 4E B2 52 4E B1  B2 30 20 AF 20 52 4E B3  |.FCN.RN..0 . RN.|
00001150: B2 41 52 20 AF 20 52 4E  B2 B5 28 52 4E 29 00 95  |.AR . RN..(RN)..|
00001160: 19 A0 46 8B 20 A8 20 43  4E 20 A7 20 88 20 46 4F  |..F. . CN . . FO|
00001170: 55 54 24 B2 22 52 45 43  4F 52 44 4E 55 4D 4D 45  |UT$."RECORDNUMME|
00001180: 52 20 4E 49 45 54 20 4A  55 49 53 54 22 3A 8D 20  |R NIET JUIST":. |
00001190: 32 30 30 30 30 00 D8 19  AA 46 8B 20 43 4E 20 AF  |20000....F. CN .|
000011A0: 20 52 4E B3 B1 30 20 A7  20 A1 20 31 2C 52 4E 3A  | RN..0 . . 1,RN:|
000011B0: 56 52 49 4A B2 56 45 4C  44 24 28 31 29 B2 53 50  |VRIJ.VELD$(1).SP|
000011C0: 41 43 45 24 28 49 54 45  4D 4C 28 31 29 29 20 45  |ACE$(ITEML(1)) E|
000011D0: 4C 53 45 20 56 52 49 4A  00 F7 19 AB 46 8F 2A 2A  |LSE VRIJ....F.**|
000011E0: 2A 2A 20 56 45 52 56 4F  4C 47 20 31 38 30 39 30  |** VERVOLG 18090|
000011F0: 20 3D 46 41 4C 53 45 00  33 1A B4 46 8B 20 56 52  | =FALSE.3..F. VR|
00001200: 49 4A 20 A7 20 88 20 46  4F 55 54 24 B2 22 52 45  |IJ . . FOUT$."RE|
00001210: 43 4F 52 44 22 AA C4 28  52 4E 29 AA 22 20 42 45  |CORD"..(RN)." BE|
00001220: 53 54 41 41 54 20 4E 49  45 54 22 3A 8D 20 32 30  |STAAT NIET":. 20|
00001230: 30 30 30 00 3A 1A C8 46  57 80 00 5C 1A D2 46 8B  |000.:..FW..\..F.|
00001240: 20 52 4E B3 B1 30 20 A7  20 8D 20 31 38 35 30 30  | RN..0 . . 18500|
00001250: 3A 20 20 8F 20 50 52 49  4E 54 45 4E 00 63 1A DC  |:  . PRINTEN.c..|
00001260: 46 57 80 00 69 1A E6 46  8E 00 77 1A 44 48 8F 20  |FW..i..F..w.DH. |
00001270: 50 52 49 4E 54 45 4E 00  A4 1A 4E 48 88 20 4B 4F  |PRINTEN...NH. KO|
00001280: 50 24 B2 22 52 45 43 4F  52 44 22 AA C4 28 52 4E  |P$."RECORD"..(RN|
00001290: 29 AA 22 20 50 52 49 4E  54 45 4E 22 3A 8D 20 31  |)." PRINTEN":. 1|
000012A0: 39 30 30 30 00 B3 1A 58  48 81 20 58 B2 31 20 A4  |9000...XH. X.1 .|
000012B0: 20 41 49 00 D1 1A 62 48  99 20 49 54 45 4D 4E 24  | AI...bH. ITEMN$|
000012C0: 28 58 29 3B A3 32 35 29  3B 56 45 4C 44 24 28 58  |(X);.25);VELD$(X|
000012D0: 29 00 D9 1A 6C 48 82 20  58 00 DF 1A 76 48 99 00  |)...lH. X...vH..|
000012E0: F3 1A 80 48 99 20 22 47  45 45 46 20 52 45 54 55  |...H. "GEEF RETU|
000012F0: 52 4E 22 00 00 1B 8A 48  41 24 B2 85 24 28 31 29  |RN"....HA$..$(1)|
00001300: 00 06 1B 94 48 8E 00 16  1B 38 4A 8F 20 4B 4F 50  |....H....8J. KOP|
00001310: 20 52 45 47 45 4C 00 1E  1B 42 4A 43 4C 53 00 5A  | REGEL...BJCLS.Z|
00001320: 1B 4C 4A 99 20 22 44 41  54 41 20 42 41 53 45 20  |.LJ. "DATA BASE |
00001330: 50 52 4F 47 52 41 4D 4D  41 22 3B A3 32 34 29 3B  |PROGRAMMA";.24);|
00001340: 22 2D 22 3B 4B 4F 50 24  3B 22 2D 22 3B A3 35 30  |"-";KOP$;"-";.50|
00001350: 29 3B 22 54 45 4C 45 41  43 22 00 64 1B 56 4A 99  |);"TELEAC".d.VJ.|
00001360: 3A 99 3A 99 00 6A 1B 60  4A 8E 00 75 1B 20 4E 8F  |:.:..j.`J..u. N.|
00001370: 20 46 4F 55 54 00 92 1B  2A 4E 42 45 45 50 3A 99  | FOUT...*NBEEP:.|
00001380: 20 22 46 4F 55 54 20 2D  2D 2D 3E 22 3B 46 4F 55  | "FOUT --->";FOU|
00001390: 54 24 00 A9 1B 34 4E 81  20 57 4C B2 31 20 A4 20  |T$...4N. WL.1 . |
000013A0: 31 35 30 30 3A 82 20 57  4C 00 AF 1B 3E 4E 8E 00  |1500:. WL...>N..|
000013B0: BB 1B 08 52 8F 20 45 52  52 4F 52 00 C4 1B 12 52  |...R. ERROR....R|
000013C0: 42 45 45 50 00 07 1C 1C  52 8B 20 45 52 52 B2 35  |BEEP....R. ERR.5|
000013D0: 33 20 AF 20 28 45 52 4C  B2 31 30 30 32 30 20 B0  |3 . (ERL.10020 .|
000013E0: 20 45 52 4C B2 31 31 30  31 30 29 20 A7 20 99 20  | ERL.11010) . . |
000013F0: 22 45 45 52 53 54 20 43  52 45 41 54 49 45 50 52  |"EERST CREATIEPR|
00001400: 4F 47 52 41 4D 4D 41 00  33 1C 1D 52 8F 2A 2A 2A  |OGRAMMA.3..R.***|
00001410: 2A 56 45 52 56 4F 4C 47  20 32 31 30 31 30 20 53  |*VERVOLG 21010 S|
00001420: 54 41 52 54 45 4E 22 3A  52 45 53 55 4D 45 20 31  |TARTEN":RESUME 1|
00001430: 30 34 30 00 42 1C 26 52  91 20 45 52 52 B0 20 89  |040.B.&R. ERR. .|
00001440: 20 30 00 00 00                                    | 0...           |

....... 10000:. INITIALISATIE.:.... 1100
0:. OPENEN BESTAND.M.... 12000:. MENU.K.
... 13000:. SLUITEN BESTAND.Q........'. 
INITIALISATIE....'. ERR. . 21000...$'. "
DATA" . . AS #1.A..'. #1,AR,TL,AI...8'. 
ITEMN$(AI),ITEML(AI),ITEMW$(AI),VELD$(AI
)...B'. X.1 . AI...L'. #1,ITEMN$(X),ITEM
L(X).$.V'. X.-.`'  #1.:.J'TRUE.1.1.H.T'F
ALSE.1.0.N.~'..C..*. OPENEN BESTAND.~..+
. "BESTAND" AS #1 C.TL....+FIELD 1,TL AS
 .TAAL$....+. SOM.0... +. X.1 . AI...*+F
IELD 1,SOM AS BEGIN$,ITEML(X) AS VELD$(X
)...4+. SOM.SOM.ITEML(X)...>+. X...H+...
.... MENU...... K..1.+...WHILE K..0.8...
OK.FALSE.G../WHILE . OK.D../CLS:. SCHERM
 SCHOONMAKEN.~../. KOP$."MENU":. 19000..
.&/. "-1- RECORDS TOEVOEGEN"...0/. "-2- 
RECORDS VERWIJDEREN".Y.:/. "-3- RECORDS 
WIJZIGEN"...D/. "-4- RECORDS ZOEKEN"...N
/. "-5- RECORDS PRINTEN"...X/..8.B/. "-0
- PROGRAMMA BE-EINDIGEN".@.L/.:..V.V/. "
UW KEUZE : ";K.R../OK.K..0 . K..5 . K..(
K).Y../W...../. K . 14000,15000,16000,17
000,18000..../W...../..D.H2. SLUITEN BES
TAND.M.R2  #1....2. ERR. . 0....2.....6.
 RECORDS TOEVOEGEN....6. RN..1...D6WHILE
 RN..0.#.N6OK.FALSE.2.X6WHILE . OK.Y..6.
 KOP$."RECORDS TOEVOEGEN":. 19000.Z..6. 
"RECORDNUMMER  (OF 0) ";RN....6CN.RN..0 
. RN..AR . RN..(RN).R..7. . CN . . FOUT$
."RECORDNUMMER NIET JUIST":. 20000....7.
 CN . RN..0 . . 1,RN:VRIJ.VELD$(1).SPACE
$(ITEML(1)) ELSE VRIJ.5..7. ***VERVOLG 1
4090*** =TRUE.P..7. . VRIJ . . FOUT$."RE
CORD".D(RN)."BESTAAT AL":. 20000.W.(7W..
..27. RN..0 . . 14500:. TOEVOEGEN. .<7W.
...F7.....8. TOEVOEGEN.C..8OK.FALSE.R..8
WHILE . OK...B8. KOP$."RECORD".D(RN)." T
OEVOEGEN":. 19000...L8. X.1 . AI.&.V8. I
TEMN$(X);.25);.;..8LINE . ITEMW$(X).C..8
. X.I..8.....8. "GEEF RETURN INDIEN CORR
ECT, EEN ANDERE TOETS INDIEN FOUTIEF"...
.9A$..$(1)....9OK.A$.G(13)....9W....&9. 
X.1 . AI...09LSET VELD$(X).ITEMW$(X)...:
9. X...D9PUT 1,RN...N9.....:. RECORDS VE
RWIJDEREN....:. RN..1.-..:WHILE RN..0.:.
.:OK.FALSE.I..:WHILE . OK.R.J:. KOP$."RE
CORDS VERWIJDEREN":. 19000...T:. "RECORD
NUMMER  (OF 0)  ";RN....:CN.RN..0 . RN..
AR . RN..(RN)....:. . CN . . FOUT$."RECO
RDNUMMER NIET JUIST":. 20000./..:. CN . 
RN..0 . . 1,RN:VRIJ.VELD$(1).SPACE$(ITEM
L(1)) ELSE VRIJ.P..:. ***** VERVOLG 1509
0 =FALSE.T..;. RN..0 . . 15500:. VERWIJD
EREN.{.$;W.....;.....<. VERWIJDEREN.D..<
. KOP$."RECORD".D(RN)." VERWIJDEREN":. 1
9000.S. <. X.1 . AI....<. ITEMN$(X);.25)
;VELD$(X)....<. X....<..>.H<. "GEEF RETU
RN OM TE VERWIJDEREN, ANDERS EEN ANDERE 
TOETS".K.R<A$..$(1).|..<. A$.G(13) . LSE
T .TAAL$.SPACE$(TL):PUT 1,RN....<..B..<.
 A$.G(13) . . "DIT RECORD IS VERWIJDERD"
 ELSE . "DIT RECOR....<.*** VERVOLG 1560
0 D IS NIET VERWIJDERD"....<. WL.1 . 100
0: . WL....=..#..>. RECORDS MUTEREN./..>
. RN..1.?..>WHILE RN..0.N..>. OK.FALSE.]
..>WHILE . OK....>. KOP$."RECORDS MUTERE
N":. 19000....>. "RECORDNUMMER  (OF 0)  
";RN.E.F>CN.RN..0 . RN..AR . RN..(RN)...
P>. . CN . . FOUT$."RECORDNUMMER NIET JU
IST":. 20000.?.Z>. CN . RN..0 . . 1,RN:V
RIJ.VELD$(1).SPACE$(ITEML(1)) ELSE VRIJ.
]..>. ****VERVOLG 6090 =FALSE....>. VRIJ
 . . FOUT$."RECORD".D(RN)." BESTAAT NIET
":. 20000....>OK.CN . . VRIJ....>W..S..?
. RN..0 . . 16500:. MUTEREN.Z..?W.....?.
...T@. MUTEREN...~@. KOP$."RECORD".D(RN)
." MUTEREN":. 19000.*..@. X.1 . AI.H..@.
 ITEMN$(X);.25);VELD$(X).I..@. "WORDT  (
OF RETURN)";.25);.W..@LINE . H$....@. H$
."" . . HULP$(X).VELD$(X) ELSE . HULP$(X
).H$....@. X...D@. 19000.O.N@. X.1 . AI.
..X@. ITEMN$(X);.25);HULP$(X)....@. X...
.@..7..@. "GEEF RETURN INDIEN CORRECT, A
NDERS EEN ANDERE TOETS".D..AA$..$(1)....
A. A$.G(13) . . X.1 . AI:LSET VELD$(X).H
ULP$(X):. X:PUT 1,RN....A..J..A. A$.G(13
) . . "DIT RECORD IS GEMUTEERD" ELSE . "
DIT RECORD....A.***VERVOLG 16670 IS NIET
 GEMUTEERD...(A. WL.1.1000:.WL...2A..0.R
B. KOP$."RECORDS ZOEKEN":. 19000.L.|B. "
BOUW HET MASKER OP:".R..B..A..B. X.1 . A
I.W..B. ITEMN$(X);.25);....BLINE . HULP$
(X)....B. X....BVERDER.TRUE...BBRN.1.H.L
BWHILE VERDER . RN..AR.1.S.VB. 1,RN....B
. VELD$(1)..SPACE$(ITEML(1)) . . 17500: 
 . ONDERZOEK....B. RN.RN.1.!..BW..'..B..
7.\D. ONDERZOEK.C.FDOK.TRUE.N.PD. AG.0.D
.ZDWHILE OK . AG..AI.R..D. AG.AG.1....DO
K.OK . H(VELD$(AG),C(HULP$(AG))).HULP$(A
G)....DW..G..D. OK . . 17750:. GEVONDEN.
M..D....VE. PRINTEN...`E. KOP$."RECORD".
D(RN)." PRINTEN":. 19000...JE. X.1 . AI.
5.TE. ITEMN$(X);.25);VELD$(X).=.~E. X.C.
.E.....E. "GEEF RETURN OM VERDER TE ZOEK
EN, EEN ANDERE TOETS OM TE STOPPEN"....E
VERDER..$(1).G(13)....E....PF. RECORDS P
RINTEN.J.ZF. RN..1.Z.DFWHILE RN..0...NFO
K.FALSE...XFWHILE . OK....F. KOP$."RECOR
DS PRINTEN":. 19000.=..F. "RECORDNUMMER 
 (OF 0)  ";RN.^..FCN.RN..0 . RN..AR . RN
..(RN)... F. . CN . . FOUT$."RECORDNUMME
R NIET JUIST":. 20000.X..F. CN . RN..0 .
 . 1,RN:VRIJ.VELD$(1).SPACE$(ITEML(1)) E
LSE VRIJ....F.**** VERVOLG 18090 =FALSE.
3..F. VRIJ . . FOUT$."RECORD".D(RN)." BE
STAAT NIET":. 20000.:.HFW..\.RF. RN..0 .
 . 18500:  . PRINTEN.C..FW..I..F..W.DH. 
PRINTEN...NH. KOP$."RECORD".D(RN)." PRIN
TEN":. 19000...XH. X.1 . AI.Q.BH. ITEMN$
(X);.25);VELD$(X).Y.LH. X...VH.....H. "G
EEF RETURN"....HA$..$(1)....H....8J. KOP
 REGEL...BJCLS.Z.LJ. "DATA BASE PROGRAMM
A";.24);"-";KOP$;"-";.50);"TELEAC".D.VJ.
:.:..J.`J..U. N. FOUT...*NBEEP:. "FOUT -
-->";FOUT$...4N. WL.1 . 1500:. WL...>N..
...R. ERROR.D..RBEEP....R. ERR.53 . (ERL
.10020 . ERL.11010) . . "EERST CREATIEPR
OGRAMMA.3..R.****VERVOLG 21010 STARTEN":
RESUME 1040.B.&R. ERR. . 0...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL