FILEBES3
FILE INFORMATION
FILENAME(S): FILEBES3
FILE TYPE(S): SEQ
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 21:10:02
APPEARS ON: 1 disk(s)
FILE HASH
44c1bc384fafab237d17ed5e318dfc35c04e02062717ea8ee4bcee242a043de0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SUPERBASE | FILEBES3 | SEQ | DuncanTwain | 17 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 70 72 6F 67 72 61 6D 20 66 69 6C 65 62 65 73 74 |program filebest|
00000010: 61 6E 64 20 28 69 6E 70 75 74 2C 6F 75 74 70 75 |and (input,outpu|
00000020: 74 29 3B 0D 20 63 6F 6E 73 74 20 6D 61 78 69 64 |t);. const maxid|
00000030: 20 20 20 20 20 20 20 3D 35 30 3B 0D 20 20 20 20 | =50;. |
00000040: 20 20 20 6D 61 78 66 69 6C 65 20 20 20 20 20 3D | maxfile =|
00000050: 39 30 30 3B 0D 20 74 79 70 65 20 20 66 69 6C 65 |900;. type file|
00000060: 73 6F 6F 72 74 20 20 20 3D 28 70 72 67 2C 75 73 |soort =(prg,us|
00000070: 72 2C 73 65 71 2C 72 65 6C 2C 64 65 6C 29 3B 0D |r,seq,rel,del);.|
00000080: 20 20 20 20 20 20 20 73 74 72 69 6E 67 20 20 20 | string |
00000090: 20 20 20 3D 70 61 63 6B 65 64 20 61 72 72 61 79 | =packed array|
000000A0: 5B 31 2E 2E 31 36 5D 20 6F 66 20 63 68 61 72 3B |[1..16] of char;|
000000B0: 0D 20 20 20 20 20 20 20 64 65 66 64 69 73 6B 6E |. defdiskn|
000000C0: 61 61 6D 20 3D 72 65 63 6F 72 64 20 6E 61 61 6D |aam =record naam|
000000D0: 20 3A 73 74 72 69 6E 67 3B 0D 20 20 20 20 20 20 | :string;. |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 69 64 20 20 20 3A 61 72 72 61 79 | id :array|
00000100: 5B 31 2E 2E 32 5D 20 6F 66 20 63 68 61 72 3B 0D |[1..2] of char;.|
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 20 20 20 64 6F 73 20 20 | dos |
00000130: 3A 61 72 72 61 79 5B 31 2E 2E 32 5D 20 6F 66 20 |:array[1..2] of |
00000140: 63 68 61 72 3B 0D 20 20 20 20 20 20 20 20 20 20 |char;. |
00000150: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 20 | end;. |
00000160: 20 20 20 20 20 20 64 65 66 66 69 6C 65 6E 61 61 | deffilenaa|
00000170: 6D 20 3D 72 65 63 6F 72 64 20 6E 61 61 6D 20 3A |m =record naam :|
00000180: 73 74 72 69 6E 67 3B 0D 20 20 20 20 20 20 20 20 |string;. |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 69 64 20 20 20 3A 61 72 72 61 79 5B 31 | id :array[1|
000001B0: 2E 2E 32 5D 20 6F 66 20 63 68 61 72 3B 0D 20 20 |..2] of char;. |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 73 6F 6F 72 74 3A 66 | soort:f|
000001E0: 69 6C 65 73 6F 6F 72 74 3B 0D 20 20 20 20 20 20 |ilesoort;. |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 62 6C 6F 63 6B 3A 69 6E 74 65 67 | block:integ|
00000210: 65 72 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 |er;. |
00000220: 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 20 76 61 | end;. va|
00000230: 72 20 20 20 66 69 6C 65 62 65 73 74 61 6E 64 20 |r filebestand |
00000240: 20 3A 61 72 72 61 79 5B 30 2E 2E 6D 61 78 66 69 | :array[0..maxfi|
00000250: 6C 65 5D 20 6F 66 20 64 65 66 66 69 6C 65 6E 61 |le] of deffilena|
00000260: 61 6D 3B 0D 20 20 20 20 20 20 20 69 64 62 65 73 |am;. idbes|
00000270: 74 61 6E 64 20 20 20 20 3A 61 72 72 61 79 5B 30 |tand :array[0|
00000280: 2E 2E 6D 61 78 69 64 5D 20 6F 66 20 64 65 66 64 |..maxid] of defd|
00000290: 69 73 6B 6E 61 61 6D 3B 0D 20 20 20 20 20 20 20 |isknaam;. |
000002A0: 62 65 73 6E 61 6D 65 6E 20 20 20 20 20 3A 66 69 |besnamen :fi|
000002B0: 6C 65 20 6F 66 20 64 65 66 66 69 6C 65 6E 61 61 |le of deffilenaa|
000002C0: 6D 3B 0D 20 20 20 20 20 20 20 62 65 73 69 64 73 |m;. besids|
000002D0: 20 20 20 20 20 20 20 3A 66 69 6C 65 20 6F 66 20 | :file of |
000002E0: 64 65 66 64 69 73 6B 6E 61 61 6D 3B 0D 20 20 20 |defdisknaam;. |
000002F0: 20 20 20 20 69 64 6E 61 61 6D 20 20 20 20 20 20 | idnaam |
00000300: 20 3A 73 74 72 69 6E 67 3B 0D 20 20 20 20 20 20 | :string;. |
00000310: 20 66 69 6C 65 6E 61 61 6D 20 20 20 20 20 3A 73 | filenaam :s|
00000320: 74 72 69 6E 67 3B 0D 20 20 20 20 20 20 20 69 64 |tring;. id|
00000330: 61 61 6E 74 61 6C 20 20 20 20 20 3A 69 6E 74 65 |aantal :inte|
00000340: 67 65 72 3B 0D 20 20 20 20 20 20 20 66 69 6C 65 |ger;. file|
00000350: 61 61 6E 74 61 6C 20 20 20 3A 69 6E 74 65 67 65 |aantal :intege|
00000360: 72 3B 0D 20 20 20 20 20 20 20 66 69 6C 65 73 77 |r;. filesw|
00000370: 69 74 63 68 20 20 20 3A 62 6F 6F 6C 65 61 6E 3B |itch :boolean;|
00000380: 0D 20 20 20 20 20 20 20 63 68 61 6E 67 65 20 20 |. change |
00000390: 20 20 20 20 20 3A 62 6F 6F 6C 65 61 6E 3B 0D 20 | :boolean;. |
000003A0: 70 72 6F 63 65 64 75 72 65 20 69 6E 69 74 69 61 |procedure initia|
000003B0: 6C 69 7A 65 3B 0D 20 20 76 61 72 20 6E 61 61 6D |lize;. var naam|
000003C0: 20 20 20 20 3A 73 74 72 69 6E 67 3B 0D 20 20 20 | :string;. |
000003D0: 20 20 20 74 65 6C 6C 65 72 20 20 3A 69 6E 74 65 | teller :inte|
000003E0: 67 65 72 3B 0D 20 20 20 20 20 20 6B 61 72 20 20 |ger;. kar |
000003F0: 20 20 20 3A 63 68 61 72 3B 0D 20 20 62 65 67 69 | :char;. begi|
00000400: 6E 0D 20 20 20 20 69 6F 74 72 61 70 28 66 61 6C |n. iotrap(fal|
00000410: 73 65 29 3B 0D 20 20 20 20 6E 61 61 6D 3A 3D 27 |se);. naam:='|
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 27 3B 0D 20 20 20 20 66 6F 72 20 74 65 6C 6C 65 |';. for telle|
00000440: 72 3A 3D 30 20 74 6F 20 6D 61 78 69 64 20 20 20 |r:=0 to maxid |
00000450: 64 6F 20 20 20 69 64 62 65 73 74 61 6E 64 5B 74 |do idbestand[t|
00000460: 65 6C 6C 65 72 5D 2E 6E 61 61 6D 3A 3D 6E 61 61 |eller].naam:=naa|
00000470: 6D 3B 0D 20 20 20 20 66 6F 72 20 74 65 6C 6C 65 |m;. for telle|
00000480: 72 3A 3D 30 20 74 6F 20 6D 61 78 66 69 6C 65 20 |r:=0 to maxfile |
00000490: 64 6F 20 66 69 6C 65 62 65 73 74 61 6E 64 5B 74 |do filebestand[t|
000004A0: 65 6C 6C 65 72 5D 2E 6E 61 61 6D 3A 3D 6E 61 61 |eller].naam:=naa|
000004B0: 6D 3B 0D 20 20 20 20 66 69 6C 65 73 77 69 74 63 |m;. fileswitc|
000004C0: 68 3A 3D 66 61 6C 73 65 3B 0D 20 20 20 20 63 68 |h:=false;. ch|
000004D0: 61 6E 67 65 20 20 20 20 3A 3D 66 61 6C 73 65 3B |ange :=false;|
000004E0: 0D 20 20 20 20 66 69 6C 65 61 61 6E 74 61 6C 3A |. fileaantal:|
000004F0: 3D 30 3B 0D 20 20 20 20 69 64 61 61 6E 74 61 6C |=0;. idaantal|
00000500: 20 20 3A 3D 30 3B 0D 20 20 20 20 77 72 69 74 65 | :=0;. write|
00000510: 6C 6E 3B 0D 20 20 20 20 77 72 69 74 65 6C 6E 28 |ln;. writeln(|
00000520: 27 20 20 73 63 68 69 6A 66 20 61 64 6D 69 6E 69 |' schijf admini|
00000530: 73 74 72 61 74 69 65 20 20 27 29 3B 0D 20 20 20 |stratie ');. |
00000540: 20 77 72 69 74 65 6C 6E 3B 0D 20 20 20 20 77 72 | writeln;. wr|
00000550: 69 74 65 6C 6E 3B 0D 20 20 20 20 77 72 69 74 65 |iteln;. write|
00000560: 28 27 20 20 20 20 6E 6F 72 6D 61 6C 20 62 65 73 |(' normal bes|
00000570: 74 61 6E 64 20 3A 5B 72 65 74 5D 20 27 29 3B 0D |tand :[ret] ');.|
00000580: 20 20 20 20 72 65 61 64 6C 6E 28 6B 61 72 29 3B | readln(kar);|
00000590: 0D 20 20 20 20 69 66 20 6B 61 72 3D 27 6E 27 0D |. if kar='n'.|
000005A0: 20 20 20 20 20 74 68 65 6E 20 62 65 67 69 6E 0D | then begin.|
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 | writ|
000005C0: 65 28 27 20 6E 61 61 6D 20 66 69 6C 65 20 66 6F |e(' naam file fo|
000005D0: 72 20 69 64 73 20 3A 27 29 3B 0D 20 20 20 20 20 |r ids :');. |
000005E0: 20 20 20 20 20 20 20 72 65 61 64 6C 6E 28 69 64 | readln(id|
000005F0: 6E 61 61 6D 29 3B 0D 20 20 20 20 20 20 20 20 20 |naam);. |
00000600: 20 20 20 77 72 69 74 65 28 27 20 6E 61 61 6D 20 | write(' naam |
00000610: 66 69 6C 65 20 66 6F 72 20 66 69 6C 65 73 20 3A |file for files :|
00000620: 27 29 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 |');. |
00000630: 72 65 61 64 6C 6E 28 66 69 6C 65 6E 61 61 6D 29 |readln(filenaam)|
00000640: 3B 0D 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D |;. end.|
00000650: 20 20 20 20 20 65 6C 73 65 20 62 65 67 69 6E 0D | else begin.|
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6C 65 | file|
00000670: 6E 61 61 6D 3A 3D 27 62 65 73 74 61 6E 64 2F 66 |naam:='bestand/f|
00000680: 69 20 20 20 20 20 20 27 3B 0D 20 20 20 20 20 20 |i ';. |
00000690: 20 20 20 20 20 20 69 64 6E 61 61 6D 20 20 3A 3D | idnaam :=|
000006A0: 27 62 65 73 74 61 6E 64 2F 69 64 20 20 20 20 20 |'bestand/id |
000006B0: 20 27 3B 0D 20 20 20 20 20 20 20 20 20 20 65 6E | ';. en|
000006C0: 64 3B 0D 20 20 20 20 72 65 73 65 74 28 62 65 73 |d;. reset(bes|
000006D0: 6E 61 6D 65 6E 2C 66 69 6C 65 6E 61 61 6D 29 3B |namen,filenaam);|
000006E0: 0D 20 20 20 20 77 68 69 6C 65 20 6E 6F 74 28 65 |. while not(e|
000006F0: 6F 66 28 62 65 73 6E 61 6D 65 6E 29 20 6F 72 20 |of(besnamen) or |
00000700: 28 66 69 6C 65 61 61 6E 74 61 6C 3E 6D 61 78 66 |(fileaantal>maxf|
00000710: 69 6C 65 29 29 0D 20 20 20 20 20 64 6F 20 62 65 |ile)). do be|
00000720: 67 69 6E 0D 20 20 20 20 20 20 20 20 20 20 72 65 |gin. re|
00000730: 61 64 28 62 65 73 6E 61 6D 65 6E 2C 20 66 69 6C |ad(besnamen, fil|
00000740: 65 62 65 73 74 61 6E 64 5B 66 69 6C 65 61 61 6E |ebestand[fileaan|
00000750: 74 61 6C 5D 29 3B 0D 20 20 20 20 20 20 20 20 20 |tal]);. |
00000760: 20 66 69 6C 65 61 61 6E 74 61 6C 3A 3D 66 69 6C | fileaantal:=fil|
00000770: 65 61 61 6E 74 61 6C 2B 31 3B 0D 20 20 20 20 20 |eaantal+1;. |
00000780: 20 20 20 65 6E 64 3B 0D 20 20 20 20 72 65 73 65 | end;. rese|
00000790: 74 28 62 65 73 69 64 73 2C 69 64 6E 61 61 6D 29 |t(besids,idnaam)|
000007A0: 3B 0D 20 20 20 20 77 68 69 6C 65 20 6E 6F 74 28 |;. while not(|
000007B0: 65 6F 66 28 62 65 73 69 64 73 29 20 6F 72 20 28 |eof(besids) or (|
000007C0: 69 64 61 61 6E 74 61 6C 3E 6D 61 78 69 64 29 29 |idaantal>maxid))|
000007D0: 0D 20 20 20 20 20 64 6F 20 62 65 67 69 6E 0D 20 |. do begin. |
000007E0: 20 20 20 20 20 20 20 20 20 72 65 61 64 28 62 65 | read(be|
000007F0: 73 69 64 73 2C 20 69 64 62 65 73 74 61 6E 64 5B |sids, idbestand[|
00000800: 69 64 61 61 6E 74 61 6C 5D 29 3B 0D 20 20 20 20 |idaantal]);. |
00000810: 20 20 20 20 20 20 69 64 61 61 6E 74 61 6C 3A 3D | idaantal:=|
00000820: 69 64 61 61 6E 74 61 6C 2B 31 3B 0D 20 20 20 20 |idaantal+1;. |
00000830: 20 20 20 20 65 6E 64 3B 0D 20 20 20 20 63 6C 6F | end;. clo|
00000840: 73 65 28 62 65 73 6E 61 6D 65 6E 29 3B 0D 20 20 |se(besnamen);. |
00000850: 20 20 63 6C 6F 73 65 28 62 65 73 69 64 73 29 3B | close(besids);|
00000860: 0D 20 20 65 6E 64 3B 0D 20 70 72 6F 63 65 64 75 |. end;. procedu|
00000870: 72 65 20 72 65 6D 6F 76 65 69 64 28 76 61 72 20 |re removeid(var |
00000880: 69 64 3A 61 72 72 61 79 5B 31 2E 2E 32 5D 20 6F |id:array[1..2] o|
00000890: 66 20 63 68 61 72 29 3B 0D 20 20 76 61 72 20 74 |f char);. var t|
000008A0: 65 6C 6C 65 72 20 20 3A 69 6E 74 65 67 65 72 3B |eller :integer;|
000008B0: 0D 20 20 62 65 67 69 6E 0D 20 20 20 20 74 65 6C |. begin. tel|
000008C0: 6C 65 72 3A 3D 31 3B 0D 20 20 20 20 77 68 69 6C |ler:=1;. whil|
000008D0: 65 20 74 65 6C 6C 65 72 20 3C 20 66 69 6C 65 61 |e teller < filea|
000008E0: 61 6E 74 61 6C 0D 20 20 20 20 20 64 6F 20 62 65 |antal. do be|
000008F0: 67 69 6E 0D 20 20 20 20 20 20 20 20 20 20 69 66 |gin. if|
00000900: 20 66 69 6C 65 62 65 73 74 61 6E 64 5B 74 65 6C | filebestand[tel|
00000910: 6C 65 72 5D 2E 69 64 5B 31 5D 3D 69 64 5B 31 5D |ler].id[1]=id[1]|
00000920: 20 61 6E 64 0D 20 20 20 20 20 20 20 20 20 20 20 | and. |
00000930: 20 20 66 69 6C 65 62 65 73 74 61 6E 64 5B 74 65 | filebestand[te|
00000940: 6C 6C 65 72 5D 2E 69 64 5B 32 5D 3D 69 64 5B 32 |ller].id[2]=id[2|
00000950: 5D 0D 20 20 20 20 20 20 20 20 20 20 20 74 68 65 |]. the|
00000960: 6E 20 62 65 67 69 6E 0D 20 20 20 20 20 20 20 20 |n begin. |
00000970: 20 20 20 20 20 20 20 20 20 20 66 69 6C 65 61 61 | fileaa|
00000980: 6E 74 61 6C 3A 3D 66 69 6C 65 61 61 6E 74 61 6C |ntal:=fileaantal|
00000990: 2D 31 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 |-1;. |
000009A0: 20 20 20 20 20 20 66 69 6C 65 62 65 73 74 61 6E | filebestan|
000009B0: 64 5B 74 65 6C 6C 65 72 5D 3A 3D 66 69 6C 65 62 |d[teller]:=fileb|
000009C0: 65 73 74 61 6E 64 5B 66 69 6C 65 61 61 6E 74 61 |estand[fileaanta|
000009D0: 6C 5D 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 |l];. |
000009E0: 20 20 20 20 65 6E 64 0D 20 20 20 20 20 20 20 20 | end. |
000009F0: 20 20 20 65 6C 73 65 20 74 65 6C 6C 65 72 3A 3D | else teller:=|
00000A00: 74 65 6C 6C 65 72 2B 31 3B 0D 20 20 20 20 20 20 |teller+1;. |
00000A10: 20 20 65 6E 64 3B 0D 20 20 20 20 74 65 6C 6C 65 | end;. telle|
00000A20: 72 3A 3D 31 3B 0D 20 20 20 20 77 68 69 6C 65 20 |r:=1;. while |
00000A30: 74 65 6C 6C 65 72 20 3C 20 69 64 61 61 6E 74 61 |teller < idaanta|
00000A40: 6C 0D 20 20 20 20 20 64 6F 20 62 65 67 69 6E 0D |l. do begin.|
00000A50: 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 62 | if idb|
00000A60: 65 73 74 61 6E 64 5B 74 65 6C 6C 65 72 5D 2E 69 |estand[teller].i|
00000A70: 64 5B 31 5D 3D 69 64 5B 31 5D 20 61 6E 64 0D 20 |d[1]=id[1] and. |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 69 64 62 65 | idbe|
00000A90: 73 74 61 6E 64 5B 74 65 6C 6C 65 72 5D 2E 69 64 |stand[teller].id|
00000AA0: 5B 32 5D 3D 69 64 5B 32 5D 0D 20 20 20 20 20 20 |[2]=id[2]. |
00000AB0: 20 20 20 20 20 74 68 65 6E 20 62 65 67 69 6E 0D | then begin.|
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 69 64 61 61 6E 74 61 6C 3A 3D 69 64 61 61 | idaantal:=idaa|
00000AE0: 6E 74 61 6C 2D 31 3B 0D 20 20 20 20 20 20 20 20 |ntal-1;. |
00000AF0: 20 20 20 20 20 20 20 20 20 20 69 64 62 65 73 74 | idbest|
00000B00: 61 6E 64 5B 74 65 6C 6C 65 72 5D 3A 3D 69 64 62 |and[teller]:=idb|
00000B10: 65 73 74 61 6E 64 5B 69 64 61 61 6E 74 61 6C 5D |estand[idaantal]|
00000B20: 3B 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;. |
00000B30: 20 20 65 6E 64 0D 20 20 20 20 20 20 20 20 20 20 | end. |
00000B40: 20 65 6C 73 65 20 74 65 6C 6C 65 72 3A 3D 74 65 | else teller:=te|
00000B50: 6C 6C 65 72 2B 31 3B 0D 20 20 20 20 20 20 20 20 |ller+1;. |
00000B60: 65 6E 64 3B 0D 20 20 65 6E 64 3B 0D 33 |end;. end;.3 |
PROGRAM FILEBESTAND (INPUT,OUTPUT);. CON
ST MAXID =50;. MAXFILE =
900;. TYPE FILESOORT =(PRG,USR,SEQ,RE
L,DEL);. STRING =PACKED ARRAY
[1..16] OF CHAR;. DEFDISKNAAM =REC
ORD NAAM :STRING;.
ID :ARRAY[1..2] OF CHAR;.
DOS :ARRAY[1..2] OF
CHAR;. END;. DE
FFILENAAM =RECORD NAAM :STRING;.
ID :ARRAY[1..2] OF
CHAR;. SOORT:F
ILESOORT;. BLO
CK:INTEGER;. END;. VA
R FILEBESTAND :ARRAY[0..MAXFILE] OF D
EFFILENAAM;. IDBESTAND :ARRAY[0
..MAXID] OF DEFDISKNAAM;. BESNAMEN
:FILE OF DEFFILENAAM;. BESIDS
:FILE OF DEFDISKNAAM;. IDNA
AM :STRING;. FILENAAM :S
TRING;. IDAANTAL :INTEGER;.
FILEAANTAL :INTEGER;. FILESW
ITCH :BOOLEAN;. CHANGE :BO
OLEAN;. PROCEDURE INITIALIZE;. VAR NAAM
:STRING;. TELLER :INTEGER;.
KAR :CHAR;. BEGIN. IOTRAP(FAL
SE);. NAAM:=' ';. F
OR TELLER:=0 TO MAXID DO IDBESTAND[T
ELLER].NAAM:=NAAM;. FOR TELLER:=0 TO
MAXFILE DO FILEBESTAND[TELLER].NAAM:=NAA
M;. FILESWITCH:=FALSE;. CHANGE
:=FALSE;. FILEAANTAL:=0;. IDAANTAL
:=0;. WRITELN;. WRITELN(' SCHIJ
F ADMINISTRATIE ');. WRITELN;. WR
ITELN;. WRITE(' NORMAL BESTAND :[R
ET] ');. READLN(KAR);. IF KAR='N'.
THEN BEGIN. WRITE(' NAAM
FILE FOR IDS :');. READLN(ID
NAAM);. WRITE(' NAAM FILE FOR
FILES :');. READLN(FILENAAM)
;. END. ELSE BEGIN.
FILENAAM:='BESTAND/FI ';.
IDNAAM :='BESTAND/ID ';.
END;. RESET(BESNAMEN,FILENAAM);
. WHILE NOT(EOF(BESNAMEN) OR (FILEAAN
TAL>MAXFILE)). DO BEGIN. RE
AD(BESNAMEN, FILEBESTAND[FILEAANTAL]);.
FILEAANTAL:=FILEAANTAL+1;.
END;. RESET(BESIDS,IDNAAM);. WH
ILE NOT(EOF(BESIDS) OR (IDAANTAL>MAXID))
. DO BEGIN. READ(BESIDS, ID
BESTAND[IDAANTAL]);. IDAANTAL:=
IDAANTAL+1;. END;. CLOSE(BESNA
MEN);. CLOSE(BESIDS);. END;. PROCEDU
RE REMOVEID(VAR ID:ARRAY[1..2] OF CHAR);
. VAR TELLER :INTEGER;. BEGIN. TEL
LER:=1;. WHILE TELLER < FILEAANTAL.
DO BEGIN. IF FILEBESTAND[TEL
LER].ID[1]=ID[1] AND. FILEBE
STAND[TELLER].ID[2]=ID[2]. THE
N BEGIN. FILEAANTAL:=FI
LEAANTAL-1;. FILEBESTAN
D[TELLER]:=FILEBESTAND[FILEAANTAL];.
END. ELSE TELLER:=
TELLER+1;. END;. TELLER:=1;.
WHILE TELLER < IDAANTAL. DO BEGIN.
IF IDBESTAND[TELLER].ID[1]=ID[
1] AND. IDBESTAND[TELLER].ID
[2]=ID[2]. THEN BEGIN.
IDAANTAL:=IDAANTAL-1;.
IDBESTAND[TELLER]:=IDBESTAND[I
DAANTAL];. END.
ELSE TELLER:=TELLER+1;. END;. E
ND;.3
> CLICK IMAGE PREVIEW FOR FULL MODAL