|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 20480 (0x5000)
Names: »KATALOG.PAS«
└─⟦27a1d1812⟧ Bits:30002681 RC-Katalog over EDB-bøger og programmer
└─ ⟦this⟧ »KATALOG.PAS«
0x0000…0020 70 72 6f 67 72 61 6d 20 6b 61 74 61 6c 6f 67 3b 0d 0a 0d 0a 74 79 70 65 20 20 72 65 67 73 20 3d ┆program katalog; type regs =┆
0x0020…0040 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 78 2c 62 78 2c 63 78 2c ┆ record ax,bx,cx,┆
0x0040…0060 64 78 2c 62 70 2c 73 69 2c 64 69 2c 64 73 2c 65 73 2c 66 6c 61 67 73 3a 69 6e 74 65 67 65 72 3b ┆dx,bp,si,di,ds,es,flags:integer;┆
0x0060…0080 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 70 72 6f 64 75 6b 74 3d 72 65 ┆ end; produkt=re┆
0x0080…00a0 63 6f 72 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 6c 3a 20 61 72 72 61 79 28 2e ┆cord opl: array(.┆
0x00a0…00c0 31 2e 2e 31 30 2e 29 20 6f 66 20 73 74 72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 20 20 ┆1..10.) of string(.30.); ┆
0x00c0…00e0 20 20 20 20 20 20 20 20 6e 72 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ nr:integer; ┆
0x00e0…0100 20 20 20 6d 61 72 6b 3a 61 72 72 61 79 28 2e 31 2e 2e 37 2e 29 20 6f 66 20 62 6f 6f 6c 65 61 6e ┆ mark:array(.1..7.) of boolean┆
0x0100…0120 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 70 72 6f 64 70 74 72 3d 5e 70 72 ┆; end; prodptr=^pr┆
0x0120…0140 6f 64 75 6b 74 3b 0d 0a 20 20 20 20 20 20 73 74 72 65 6e 67 20 3d 20 73 74 72 69 6e 67 28 2e 33 ┆odukt; streng = string(.3┆
0x0140…0160 30 2e 29 3b 0d 0a 20 20 20 20 20 20 0d 0a 76 61 72 20 69 2c 6a 2c 6d 2c 6e 2c 70 2c 73 6f 72 74 ┆0.); var i,j,m,n,p,sort┆
0x0160…0180 6e 75 6d 6d 65 72 2c 6e 75 6d 6d 65 72 2c 61 6e 74 61 6c 6c 69 6e 69 65 72 2c 61 6e 74 61 6c 70 ┆nummer,nummer,antallinier,antalp┆
0x0180…01a0 6f 73 74 2c 6e 69 76 65 61 75 3a 69 6e 74 65 67 65 72 3b 0d 0a 70 6f 73 74 3a 70 72 6f 64 75 6b ┆ost,niveau:integer; post:produk┆
0x01a0…01c0 74 3b 0d 0a 70 6f 73 74 70 74 72 3a 61 72 72 61 79 28 2e 31 2e 2e 34 31 30 2e 29 20 6f 66 20 70 ┆t; postptr:array(.1..410.) of p┆
0x01c0…01e0 72 6f 64 70 74 72 3b 0d 0a 66 3a 66 69 6c 65 20 6f 66 20 70 72 6f 64 75 6b 74 3b 0d 0a 67 3a 66 ┆rodptr; f:file of produkt; g:f┆
0x01e0…0200 69 6c 65 20 6f 66 20 73 74 72 69 6e 67 28 2e 32 35 35 2e 29 3b 0d 0a 74 79 70 65 72 3a 61 72 72 ┆ile of string(.255.); typer:arr┆
0x0200…0220 61 79 28 2e 30 2e 2e 39 2e 29 20 6f 66 20 73 74 72 69 6e 67 28 2e 31 30 2e 29 3b 0d 0a 61 6b 74 ┆ay(.0..9.) of string(.10.); akt┆
0x0220…0240 69 76 65 2c 6d 61 73 6b 65 6d 67 64 3a 61 72 72 61 79 28 2e 31 2e 2e 37 2e 29 20 6f 66 20 69 6e ┆ive,maskemgd:array(.1..7.) of in┆
0x0240…0260 74 65 67 65 72 3b 20 20 20 20 20 20 0d 0a 6d 61 73 6b 65 2c 6c 69 73 74 65 74 65 6b 73 74 3a 61 ┆teger; maske,listetekst:a┆
0x0260…0280 72 72 61 79 28 2e 31 2e 2e 37 2e 29 20 6f 66 20 73 74 72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 63 ┆rray(.1..7.) of string(.30.); c┆
0x0280…02a0 68 2c 63 68 65 63 6b 3a 63 68 61 72 3b 20 20 20 20 20 20 0d 0a 75 64 76 69 64 2c 6d 65 64 2c 70 ┆h,check:char; udvid,med,p┆
0x02a0…02c0 72 3a 62 6f 6f 6c 65 61 6e 3b 0d 0a 75 2c 65 3a 74 65 78 74 3b 0d 0a 74 6f 6d 3a 73 74 72 69 6e ┆r:boolean; u,e:text; tom:strin┆
0x02c0…02e0 67 28 2e 32 30 2e 29 3b 0d 0a 73 74 3a 73 74 72 69 6e 67 28 2e 33 2e 29 3b 0d 0a 72 65 67 3a 72 ┆g(.20.); st:string(.3.); reg:r┆
0x02e0…0300 65 67 73 3b 0d 0a 0d 0a 20 20 20 20 20 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 4c 5f 64 65 74 61 ┆egs; procedure L_deta┆
0x0300…0320 63 68 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 72 65 67 2e 63 78 3a 3d 24 39 66 3b 0d 0a 20 20 73 77 ┆ch; begin reg.cx:=$9f; sw┆
0x0320…0340 69 6e 74 28 32 32 34 2c 72 65 67 29 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 ┆int(224,reg); end; function ┆
0x0340…0360 4c 5f 63 61 74 74 61 63 68 3a 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 72 65 67 ┆L_cattach:integer; begin reg┆
0x0360…0380 2e 63 78 3a 3d 24 61 31 3b 0d 0a 20 20 73 77 69 6e 74 28 32 32 34 2c 72 65 67 29 3b 0d 0a 20 20 ┆.cx:=$a1; swint(224,reg); ┆
0x0380…03a0 4c 5f 63 61 74 74 61 63 68 3a 3d 72 65 67 2e 61 78 3b 20 20 0d 0a 65 6e 64 3b 0d 0a 0d 0a 0d 0a ┆L_cattach:=reg.ax; end; ┆
0x03a0…03c0 70 72 6f 63 65 64 75 72 65 20 70 72 69 6e 74 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 63 6c ┆procedure printer; begin cl┆
0x03c0…03e0 6f 73 65 28 75 29 3b 0d 0a 20 20 20 69 66 20 70 72 20 74 68 65 6e 0d 0a 20 20 20 62 65 67 69 6e ┆ose(u); if pr then begin┆
0x03e0…0400 0d 0a 20 20 20 20 20 20 61 73 73 69 67 6e 28 75 2c 27 63 6f 6e 3a 27 29 3b 0d 0a 20 20 20 20 20 ┆ assign(u,'con:'); ┆
0x0400…0420 20 4c 5f 64 65 74 61 63 68 3b 0d 0a 20 20 20 65 6e 64 0d 0a 20 20 20 65 6c 73 65 0d 0a 20 20 20 ┆ L_detach; end else ┆
0x0420…0440 20 20 20 69 66 20 4c 5f 63 61 74 74 61 63 68 3c 3e 24 30 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 ┆ if L_cattach<>$0 then ┆
0x0440…0460 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 63 6c 72 68 6f 6d 29 3b ┆begin writeln(clrhom);┆
0x0460…0480 0d 0a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 30 2c 31 30 29 3b 77 72 69 74 65 28 27 ┆ gotoxy(10,10);write('┆
0x0480…04a0 50 52 49 4e 54 45 52 20 4f 50 54 41 47 45 54 20 41 46 20 41 4e 44 45 4e 20 50 52 4f 43 45 53 2e ┆PRINTER OPTAGET AF ANDEN PROCES.┆
0x04a0…04c0 20 49 4b 4b 45 20 54 49 4c 4f 52 44 4e 45 54 2e 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 67 ┆ IKKE TILORDNET. '); g┆
0x04c0…04e0 6f 74 6f 78 79 28 31 2c 32 33 29 3b 77 72 69 74 65 28 72 76 73 6f 6e 2c 27 20 54 52 59 4b 20 52 ┆otoxy(1,23);write(rvson,' TRYK R┆
0x04e0…0500 45 54 55 52 20 27 2c 72 76 73 6f 66 66 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 70 72 3a 3d 6e 6f ┆ETUR ',rvsoff); pr:=no┆
0x0500…0520 74 20 70 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 61 73 73 69 67 6e 28 75 2c 27 63 6f 6e 3a 27 29 ┆t pr; assign(u,'con:')┆
0x0520…0540 3b 0d 0a 20 20 20 20 20 20 20 20 20 72 65 61 64 28 63 68 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 ┆; read(ch); end┆
0x0540…0560 0d 0a 20 20 20 20 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 20 20 20 61 73 73 69 67 6e 28 75 2c 27 ┆ else assign(u,'┆
0x0560…0580 6c 73 74 3a 27 29 3b 0d 0a 20 20 20 72 65 77 72 69 74 65 28 75 29 3b 0d 0a 20 20 20 70 72 3a 3d ┆lst:'); rewrite(u); pr:=┆
0x0580…05a0 6e 6f 74 20 70 72 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 66 69 6e 64 76 61 ┆not pr; end; function findva┆
0x05a0…05c0 65 72 64 69 28 73 3a 73 74 72 65 6e 67 29 3a 69 6e 74 65 67 65 72 3b 0d 0a 76 61 72 20 69 2c 76 ┆erdi(s:streng):integer; var i,v┆
0x05c0…05e0 2c 70 3a 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 69 3a 3d 30 3b 0d 0a 20 20 ┆,p:integer; begin i:=0; ┆
0x05e0…0600 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 69 3a ┆ repeat repeat i:┆
0x0600…0620 3d 69 2b 31 3b 0d 0a 20 20 20 20 20 75 6e 74 69 6c 20 28 73 28 2e 69 2e 29 20 69 6e 20 28 2e 27 ┆=i+1; until (s(.i.) in (.'┆
0x0620…0640 30 27 2e 2e 27 39 27 2e 29 29 20 6f 72 20 28 69 3d 6c 65 6e 28 73 29 29 3b 0d 0a 20 20 20 20 20 ┆0'..'9'.)) or (i=len(s)); ┆
0x0640…0660 76 61 6c 28 63 6f 70 79 28 73 2c 69 2c 6c 65 6e 28 73 29 2d 69 29 2c 76 2c 70 29 3b 0d 0a 20 20 ┆val(copy(s,i,len(s)-i),v,p); ┆
0x0660…0680 20 20 20 69 66 20 70 3c 3e 30 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 66 69 6e 64 76 61 65 ┆ if p<>0 then findvae┆
0x0680…06a0 72 64 69 3a 3d 76 0d 0a 20 20 20 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 20 20 20 66 69 6e 64 76 ┆rdi:=v else findv┆
0x06a0…06c0 61 65 72 64 69 3a 3d 30 3b 0d 0a 20 20 75 6e 74 69 6c 20 28 70 3d 30 29 20 6f 72 20 28 76 3e 39 ┆aerdi:=0; until (p=0) or (v>9┆
0x06c0…06e0 29 3b 20 20 20 20 20 0d 0a 65 6e 64 3b 0d 0a 0d 0a 20 20 20 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 ┆); end; procedur┆
0x06e0…0700 65 20 73 74 72 71 75 69 63 6b 73 6f 72 74 28 76 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 76 61 72 20 ┆e strquicksort(v:integer); var ┆
0x0700…0720 67 6c 6f 70 6c 79 73 3a 73 74 72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 67 61 6d 6d 65 ┆gloplys:string(.30.); gamme┆
0x0720…0740 6c 2c 77 3a 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 73 6f 72 ┆l,w:integer; procedure sor┆
0x0740…0760 74 28 76 2c 6c 2c 72 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 20 20 20 76 61 72 20 69 2c 6a 3a 69 6e ┆t(v,l,r:integer); var i,j:in┆
0x0760…0780 74 65 67 65 72 3b 0d 0a 20 20 20 78 2c 77 3a 70 72 6f 64 70 74 72 3b 0d 0a 20 20 20 62 65 67 69 ┆teger; x,w:prodptr; begi┆
0x0780…07a0 6e 0d 0a 20 20 20 20 20 20 69 3a 3d 6c 3b 0d 0a 20 20 20 20 20 20 6a 3a 3d 72 3b 0d 0a 20 20 20 ┆n i:=l; j:=r; ┆
0x07a0…07c0 20 20 20 78 3a 3d 70 6f 73 74 70 74 72 28 2e 28 6c 2b 72 29 20 64 69 76 20 32 2e 29 3b 0d 0a 20 ┆ x:=postptr(.(l+r) div 2.); ┆
0x07c0…07e0 20 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 70 6f 73 74 ┆ repeat while post┆
0x07e0…0800 70 74 72 28 2e 69 2e 29 5e 2e 6f 70 6c 28 2e 76 2e 29 3c 78 5e 2e 6f 70 6c 28 2e 76 2e 29 20 64 ┆ptr(.i.)^.opl(.v.)<x^.opl(.v.) d┆
0x0800…0820 6f 20 69 3a 3d 69 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 78 5e 2e 6f 70 6c ┆o i:=i+1; while x^.opl┆
0x0820…0840 28 2e 76 2e 29 3c 70 6f 73 74 70 74 72 28 2e 6a 2e 29 5e 2e 6f 70 6c 28 2e 76 2e 29 20 64 6f 20 ┆(.v.)<postptr(.j.)^.opl(.v.) do ┆
0x0840…0860 6a 3a 3d 6a 2d 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 69 66 20 69 3c 3d 6a 20 74 68 65 6e 0d 0a ┆j:=j-1; if i<=j then ┆
0x0860…0880 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 3a 3d 70 ┆ begin w:=p┆
0x0880…08a0 6f 73 74 70 74 72 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 74 70 74 ┆ostptr(.i.); postpt┆
0x08a0…08c0 72 28 2e 69 2e 29 3a 3d 70 6f 73 74 70 74 72 28 2e 6a 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆r(.i.):=postptr(.j.); ┆
0x08c0…08e0 20 20 20 70 6f 73 74 70 74 72 28 2e 6a 2e 29 3a 3d 77 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ postptr(.j.):=w; ┆
0x08e0…0900 20 69 3a 3d 69 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6a 2d 31 3b 0d 0a 20 ┆ i:=i+1; j:=j-1; ┆
0x0900…0920 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 75 6e 74 69 6c 20 69 3e 6a 3b 0d 0a ┆ end; until i>j; ┆
0x0920…0940 20 20 20 20 20 20 69 66 20 6c 3c 6a 20 74 68 65 6e 20 73 6f 72 74 28 76 2c 6c 2c 6a 29 3b 0d 0a ┆ if l<j then sort(v,l,j); ┆
0x0940…0960 20 20 20 20 20 20 69 66 20 69 3c 72 20 74 68 65 6e 20 73 6f 72 74 28 76 2c 69 2c 72 29 3b 0d 0a ┆ if i<r then sort(v,i,r); ┆
0x0960…0980 20 20 20 65 6e 64 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 73 6f 72 74 28 76 2c 31 2c 61 6e 74 61 ┆ end; begin sort(v,1,anta┆
0x0980…09a0 6c 70 6f 73 74 29 3b 0d 0a 20 20 20 77 3a 3d 31 3b 0d 0a 20 20 20 67 6c 6f 70 6c 79 73 3a 3d 70 ┆lpost); w:=1; gloplys:=p┆
0x09a0…09c0 6f 73 74 70 74 72 28 2e 31 2e 29 5e 2e 6f 70 6c 28 2e 76 2e 29 3b 0d 0a 20 20 20 67 61 6d 6d 65 ┆ostptr(.1.)^.opl(.v.); gamme┆
0x09c0…09e0 6c 3a 3d 31 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 77 3a 3d 77 2b 31 3b 0d ┆l:=1; repeat w:=w+1; ┆
0x09e0…0a00 0a 20 20 20 20 20 20 69 66 20 70 6f 73 74 70 74 72 28 2e 77 2e 29 5e 2e 6f 70 6c 28 2e 76 2e 29 ┆ if postptr(.w.)^.opl(.v.)┆
0x0a00…0a20 3c 3e 67 6c 6f 70 6c 79 73 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 ┆<>gloplys then begin ┆
0x0a20…0a40 20 20 20 20 20 20 73 6f 72 74 28 31 2c 67 61 6d 6d 65 6c 2c 77 2d 31 29 3b 0d 0a 20 20 20 20 20 ┆ sort(1,gammel,w-1); ┆
0x0a40…0a60 20 20 20 20 67 61 6d 6d 65 6c 3a 3d 77 3b 0d 0a 20 20 20 20 20 20 20 20 20 67 6c 6f 70 6c 79 73 ┆ gammel:=w; gloplys┆
0x0a60…0a80 3a 3d 70 6f 73 74 70 74 72 28 2e 77 2e 29 5e 2e 6f 70 6c 28 2e 76 2e 29 3b 0d 0a 20 20 20 20 20 ┆:=postptr(.w.)^.opl(.v.); ┆
0x0a80…0aa0 20 65 6e 64 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 77 3d 61 6e 74 61 6c 70 6f 73 74 3b 0d 0a 20 20 ┆ end; until w=antalpost; ┆
0x0aa0…0ac0 20 73 6f 72 74 28 31 2c 67 61 6d 6d 65 6c 2c 77 29 3b 20 20 20 20 20 20 0d 0a 65 6e 64 3b 0d 0a ┆ sort(1,gammel,w); end; ┆
0x0ac0…0ae0 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6e 72 71 75 69 63 6b 73 6f 72 74 28 76 3a 69 6e 74 65 ┆ procedure nrquicksort(v:inte┆
0x0ae0…0b00 67 65 72 29 3b 0d 0a 76 61 72 20 67 6c 6f 70 6c 79 73 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 ┆ger); var gloplys:integer; ┆
0x0b00…0b20 20 67 61 6d 6d 65 6c 2c 77 3a 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 20 20 20 70 72 6f 63 65 64 75 ┆ gammel,w:integer; procedu┆
0x0b20…0b40 72 65 20 73 6f 72 74 28 76 2c 6c 2c 72 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 20 20 20 76 61 72 20 ┆re sort(v,l,r:integer); var ┆
0x0b40…0b60 69 2c 6a 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 78 2c 77 3a 70 72 6f 64 70 74 72 3b 0d 0a 20 ┆i,j:integer; x,w:prodptr; ┆
0x0b60…0b80 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 69 3a 3d 6c 3b 0d 0a 20 20 20 20 20 20 6a 3a 3d 72 ┆ begin i:=l; j:=r┆
0x0b80…0ba0 3b 0d 0a 20 20 20 20 20 20 78 3a 3d 70 6f 73 74 70 74 72 28 2e 28 6c 2b 72 29 20 64 69 76 20 32 ┆; x:=postptr(.(l+r) div 2┆
0x0ba0…0bc0 2e 29 3b 0d 0a 20 20 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 20 77 68 69 6c ┆.); repeat whil┆
0x0bc0…0be0 65 20 66 69 6e 64 76 61 65 72 64 69 28 70 6f 73 74 70 74 72 28 2e 69 2e 29 5e 2e 6f 70 6c 28 2e ┆e findvaerdi(postptr(.i.)^.opl(.┆
0x0be0…0c00 76 2e 29 29 3c 66 69 6e 64 76 61 65 72 64 69 28 78 5e 2e 6f 70 6c 28 2e 76 2e 29 29 20 64 6f 20 ┆v.))<findvaerdi(x^.opl(.v.)) do ┆
0x0c00…0c20 69 3a 3d 69 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 66 69 6e 64 76 61 65 72 ┆i:=i+1; while findvaer┆
0x0c20…0c40 64 69 28 78 5e 2e 6f 70 6c 28 2e 76 2e 29 29 3c 66 69 6e 64 76 61 65 72 64 69 28 70 6f 73 74 70 ┆di(x^.opl(.v.))<findvaerdi(postp┆
0x0c40…0c60 74 72 28 2e 6a 2e 29 5e 2e 6f 70 6c 28 2e 76 2e 29 29 20 64 6f 20 6a 3a 3d 6a 2d 31 3b 0d 0a 20 ┆tr(.j.)^.opl(.v.)) do j:=j-1; ┆
0x0c60…0c80 20 20 20 20 20 20 20 20 69 66 20 69 3c 3d 6a 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 62 ┆ if i<=j then b┆
0x0c80…0ca0 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 3a 3d 70 6f 73 74 70 74 72 28 2e 69 2e ┆egin w:=postptr(.i.┆
0x0ca0…0cc0 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 74 70 74 72 28 2e 69 2e 29 3a 3d 70 6f ┆); postptr(.i.):=po┆
0x0cc0…0ce0 73 74 70 74 72 28 2e 6a 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 74 70 74 72 ┆stptr(.j.); postptr┆
0x0ce0…0d00 28 2e 6a 2e 29 3a 3d 77 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0d 0a ┆(.j.):=w; i:=i+1; ┆
0x0d00…0d20 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6a 2d 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e ┆ j:=j-1; en┆
0x0d20…0d40 64 3b 0d 0a 20 20 20 20 20 20 75 6e 74 69 6c 20 69 3e 6a 3b 0d 0a 20 20 20 20 20 20 69 66 20 6c ┆d; until i>j; if l┆
0x0d40…0d60 3c 6a 20 74 68 65 6e 20 73 6f 72 74 28 76 2c 6c 2c 6a 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 69 ┆<j then sort(v,l,j); if i┆
0x0d60…0d80 3c 72 20 74 68 65 6e 20 73 6f 72 74 28 76 2c 69 2c 72 29 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 62 ┆<r then sort(v,i,r); end; b┆
0x0d80…0da0 65 67 69 6e 0d 0a 20 20 20 77 72 69 74 65 28 63 6c 72 68 6f 6d 29 3b 0d 0a 20 20 20 67 6f 74 6f ┆egin write(clrhom); goto┆
0x0da0…0dc0 78 79 28 35 2c 31 30 29 3b 0d 0a 20 20 20 77 72 69 74 65 28 27 45 54 20 5c 4a 45 42 4c 49 4b 20 ┆xy(5,10); write('ET ØJEBLIK ┆
0x0dc0…0de0 2d 20 4c 49 53 54 45 20 53 4f 52 54 45 52 45 53 20 45 46 54 45 52 20 27 2c 52 56 53 4f 4e 2c 27 ┆- LISTE SORTERES EFTER ',RVSON,'┆
0x0de0…0e00 20 50 52 49 53 20 27 2c 52 56 53 4f 46 46 2c 27 20 28 4c 41 4e 47 53 4f 4d 29 27 29 3b 0d 0a 20 ┆ PRIS ',RVSOFF,' (LANGSOM)'); ┆
0x0e00…0e20 20 20 73 6f 72 74 28 76 2c 31 2c 61 6e 74 61 6c 70 6f 73 74 29 3b 0d 0a 20 20 20 77 3a 3d 31 3b ┆ sort(v,1,antalpost); w:=1;┆
0x0e20…0e40 0d 0a 20 20 20 67 6c 6f 70 6c 79 73 3a 3d 66 69 6e 64 76 61 65 72 64 69 28 70 6f 73 74 70 74 72 ┆ gloplys:=findvaerdi(postptr┆
0x0e40…0e60 28 2e 31 2e 29 5e 2e 6f 70 6c 28 2e 76 2e 29 29 3b 0d 0a 20 20 20 67 61 6d 6d 65 6c 3a 3d 31 3b ┆(.1.)^.opl(.v.)); gammel:=1;┆
0x0e60…0e80 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 77 3a 3d 77 2b 31 3b 0d 0a 20 20 20 20 ┆ repeat w:=w+1; ┆
0x0e80…0ea0 20 20 69 66 20 66 69 6e 64 76 61 65 72 64 69 28 70 6f 73 74 70 74 72 28 2e 77 2e 29 5e 2e 6f 70 ┆ if findvaerdi(postptr(.w.)^.op┆
0x0ea0…0ec0 6c 28 2e 76 2e 29 29 3c 3e 67 6c 6f 70 6c 79 73 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 62 65 67 ┆l(.v.))<>gloplys then beg┆
0x0ec0…0ee0 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 73 6f 72 74 28 31 2c 67 61 6d 6d 65 6c 2c 77 2d 31 29 3b ┆in sort(1,gammel,w-1);┆
0x0ee0…0f00 0d 0a 20 20 20 20 20 20 20 20 20 67 61 6d 6d 65 6c 3a 3d 77 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ gammel:=w; ┆
0x0f00…0f20 67 6c 6f 70 6c 79 73 3a 3d 66 69 6e 64 76 61 65 72 64 69 28 70 6f 73 74 70 74 72 28 2e 77 2e 29 ┆gloplys:=findvaerdi(postptr(.w.)┆
0x0f20…0f40 5e 2e 6f 70 6c 28 2e 76 2e 29 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 75 6e 74 ┆^.opl(.v.)); end; unt┆
0x0f40…0f60 69 6c 20 77 3d 61 6e 74 61 6c 70 6f 73 74 3b 0d 0a 20 20 20 73 6f 72 74 28 31 2c 67 61 6d 6d 65 ┆il w=antalpost; sort(1,gamme┆
0x0f60…0f80 6c 2c 77 29 3b 20 20 20 20 20 20 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 71 ┆l,w); end; procedure q┆
0x0f80…0fa0 75 69 63 6b 73 6f 72 74 28 76 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 ┆uicksort(v:integer); begin ┆
0x0fa0…0fc0 69 66 20 76 3d 34 20 74 68 65 6e 20 0d 0a 20 20 20 20 20 20 6e 72 71 75 69 63 6b 73 6f 72 74 28 ┆if v=4 then nrquicksort(┆
0x0fc0…0fe0 76 29 0d 0a 20 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 20 73 74 72 71 75 69 63 6b 73 6f 72 74 28 ┆v) else strquicksort(┆
0x0fe0…1000 76 29 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 3b ┆v); end; procedure init;┆
0x1000…1020 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 20 74 79 70 65 72 28 2e 30 2e 29 3a 3d 27 72 65 74 75 72 20 ┆ begin typer(.0.):='retur ┆
0x1020…1040 27 3b 0d 0a 20 20 20 20 74 79 70 65 72 28 2e 31 2e 29 3a 3d 27 54 49 54 45 4c 20 20 27 3b 0d 0a ┆'; typer(.1.):='TITEL '; ┆
0x1040…1060 20 20 20 20 74 79 70 65 72 28 2e 32 2e 29 3a 3d 27 46 4f 52 46 2e 20 27 3b 0d 0a 20 20 20 20 74 ┆ typer(.2.):='FORF. '; t┆
0x1060…1080 79 70 65 72 28 2e 33 2e 29 3a 3d 27 46 4f 52 4c 41 47 20 27 3b 0d 0a 20 20 20 20 74 79 70 65 72 ┆yper(.3.):='FORLAG '; typer┆
0x1080…10a0 28 2e 34 2e 29 3a 3d 27 50 52 49 53 20 20 20 27 3b 0d 0a 20 20 20 20 74 79 70 65 72 28 2e 35 2e ┆(.4.):='PRIS '; typer(.5.┆
0x10a0…10c0 29 3a 3d 27 54 4c 46 20 20 20 27 3b 0d 0a 20 20 20 20 74 79 70 65 72 28 2e 36 2e 29 3a 3d 27 46 ┆):='TLF '; typer(.6.):='F┆
0x10c0…10e0 41 47 20 20 20 20 27 3b 0d 0a 20 20 20 20 74 79 70 65 72 28 2e 37 2e 29 3a 3d 27 4b 4c 41 53 2e ┆AG '; typer(.7.):='KLAS.┆
0x10e0…1100 20 27 3b 0d 0a 20 20 20 20 74 79 70 65 72 28 2e 38 2e 29 3a 3d 27 42 4f 47 2f 53 57 20 27 3b 0d ┆ '; typer(.8.):='BOG/SW '; ┆
0x1100…1120 0a 20 20 20 20 74 79 70 65 72 28 2e 39 2e 29 3a 3d 27 53 50 52 4f 47 20 27 3b 0d 0a 20 20 20 20 ┆ typer(.9.):='SPROG '; ┆
0x1120…1140 74 6f 6d 3a 3d 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 3b 0d 0a 20 20 ┆tom:=' '; ┆
0x1140…1160 20 20 66 6f 72 20 69 3a 3d 32 20 74 6f 20 37 20 64 6f 20 61 6b 74 69 76 65 28 2e 69 2e 29 3a 3d ┆ for i:=2 to 7 do aktive(.i.):=┆
0x1160…1180 30 3b 0d 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 37 20 64 6f 20 6c 69 73 74 65 74 65 ┆0; for i:=1 to 7 do listete┆
0x1180…11a0 6b 73 74 28 2e 69 2e 29 3a 3d 27 27 3b 0d 0a 20 20 20 20 75 64 76 69 64 3a 3d 66 61 6c 73 65 3b ┆kst(.i.):=''; udvid:=false;┆
0x11a0…11c0 0d 0a 20 20 20 20 70 72 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 70 72 69 6e 74 65 72 3b 0d 0a 20 ┆ pr:=true; printer; ┆
0x11c0…11e0 20 20 20 6e 69 76 65 61 75 3a 3d 31 3b 0d 0a 20 20 20 20 73 6f 72 74 6e 75 6d 6d 65 72 3a 3d 30 ┆ niveau:=1; sortnummer:=0┆
0x11e0…1200 3b 0d 0a 20 20 20 20 6d 61 73 6b 65 28 2e 31 2e 29 3a 3d 27 27 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a ┆; maske(.1.):=''; end; ┆
0x1200…1220 20 20 20 20 20 20 20 20 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 64 6c 61 65 73 3b 0d 0a 62 ┆ procedure indlaes; b┆
0x1220…1240 65 67 69 6e 0d 0a 20 20 20 61 73 73 69 67 6e 28 66 2c 27 6b 61 74 64 61 74 61 2e 64 61 74 27 29 ┆egin assign(f,'katdata.dat')┆
0x1240…1260 3b 0d 0a 20 20 20 72 65 73 65 74 28 66 29 3b 0d 0a 20 20 20 69 3a 3d 30 3b 0d 0a 20 20 20 77 68 ┆; reset(f); i:=0; wh┆
0x1260…1280 69 6c 65 20 6e 6f 74 20 65 6f 66 28 66 29 20 64 6f 20 0d 0a 20 20 20 62 65 67 69 6e 0d 0a 20 20 ┆ile not eof(f) do begin ┆
0x1280…12a0 20 20 20 20 69 3a 3d 69 2b 31 3b 0d 0a 20 20 20 20 20 20 72 65 61 64 28 66 2c 70 6f 73 74 29 3b ┆ i:=i+1; read(f,post);┆
0x12a0…12c0 0d 0a 20 20 20 20 20 20 61 6c 6c 6f 63 61 74 65 28 70 6f 73 74 70 74 72 28 2e 69 2e 29 2c 33 34 ┆ allocate(postptr(.i.),34┆
0x12c0…12e0 30 29 3b 0d 0a 20 20 20 20 20 20 70 6f 73 74 70 74 72 28 2e 69 2e 29 5e 3a 3d 70 6f 73 74 3b 0d ┆0); postptr(.i.)^:=post; ┆
0x12e0…1300 0a 20 20 20 65 6e 64 3b 0d 0a 20 20 20 61 6e 74 61 6c 70 6f 73 74 3a 3d 69 3b 0d 0a 20 20 20 61 ┆ end; antalpost:=i; a┆
0x1300…1320 6b 74 69 76 65 28 2e 31 2e 29 3a 3d 69 3b 0d 0a 20 20 20 63 6c 6f 73 65 28 66 29 3b 0d 0a 65 6e ┆ktive(.1.):=i; close(f); en┆
0x1320…1340 64 3b 0d 0a 20 20 20 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6d 61 73 6b 65 6c 69 73 74 65 3b ┆d; procedure maskeliste;┆
0x1340…1360 0d 0a 76 61 72 20 74 79 70 65 6c 69 73 74 3a 61 72 72 61 79 28 2e 31 2e 2e 34 31 30 2e 29 20 6f ┆ var typelist:array(.1..410.) o┆
0x1360…1380 66 20 73 74 72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 6b 3a 69 6e 74 65 67 65 72 3b 0d ┆f string(.30.); k:integer; ┆
0x1380…13a0 0a 62 65 67 69 6e 0d 0a 20 20 20 77 72 69 74 65 28 63 6c 72 68 6f 6d 29 3b 0d 0a 20 20 20 67 6f ┆ begin write(clrhom); go┆
0x13a0…13c0 74 6f 78 79 28 31 30 2c 31 30 29 3b 0d 0a 20 20 20 77 72 69 74 65 28 27 45 54 20 5c 4a 45 42 4c ┆toxy(10,10); write('ET ØJEBL┆
0x13c0…13e0 49 4b 20 27 29 3b 0d 0a 20 20 20 66 6f 72 20 6a 3a 3d 31 20 74 6f 20 34 31 30 20 64 6f 20 74 79 ┆IK '); for j:=1 to 410 do ty┆
0x13e0…1400 70 65 6c 69 73 74 28 2e 6a 2e 29 3a 3d 27 27 3b 0d 0a 20 20 20 69 66 20 6e 75 6d 6d 65 72 3c 3e ┆pelist(.j.):=''; if nummer<>┆
0x1400…1420 73 6f 72 74 6e 75 6d 6d 65 72 20 74 68 65 6e 20 71 75 69 63 6b 73 6f 72 74 28 6e 75 6d 6d 65 72 ┆sortnummer then quicksort(nummer┆
0x1420…1440 29 3b 0d 0a 20 20 20 77 72 69 74 65 6c 6e 3b 0d 0a 20 20 20 6b 3a 3d 30 3b 0d 0a 20 20 20 66 6f ┆); writeln; k:=0; fo┆
0x1440…1460 72 20 6a 3a 3d 31 20 74 6f 20 61 6e 74 61 6c 70 6f 73 74 20 64 6f 0d 0a 20 20 20 62 65 67 69 6e ┆r j:=1 to antalpost do begin┆
0x1460…1480 0d 0a 20 20 20 20 20 20 6d 65 64 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 20 20 6e 3a 3d 30 3b ┆ med:=false; n:=0;┆
0x1480…14a0 0d 0a 20 20 20 20 20 20 69 66 20 70 6f 73 74 70 74 72 28 2e 6a 2e 29 5e 2e 6d 61 72 6b 28 2e 6e ┆ if postptr(.j.)^.mark(.n┆
0x14a0…14c0 69 76 65 61 75 2d 31 2e 29 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 ┆iveau-1.) then begin ┆
0x14c0…14e0 20 20 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 6e 2b 31 ┆ repeat n:=n+1┆
0x14e0…1500 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 6f 73 74 70 74 72 28 2e 6a 2e 29 5e 2e ┆; if postptr(.j.)^.┆
0x1500…1520 6f 70 6c 28 2e 6e 75 6d 6d 65 72 2e 29 3d 74 79 70 65 6c 69 73 74 28 2e 6e 2e 29 20 74 68 65 6e ┆opl(.nummer.)=typelist(.n.) then┆
0x1520…1540 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 64 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 ┆ med:=true; ┆
0x1540…1560 20 20 20 75 6e 74 69 6c 20 28 6d 65 64 29 20 6f 72 20 28 6e 3e 3d 6b 29 3b 20 20 20 20 0d 0a 20 ┆ until (med) or (n>=k); ┆
0x1560…1580 20 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 6d 65 64 20 74 68 65 6e 20 0d 0a 20 20 20 20 20 20 ┆ if not med then ┆
0x1580…15a0 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6b 3a 3d 6b 2b 31 3b 0d 0a 20 ┆ begin k:=k+1; ┆
0x15a0…15c0 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 6c 69 73 74 28 2e 6b 2e 29 3a 3d 70 6f 73 74 70 74 ┆ typelist(.k.):=postpt┆
0x15c0…15e0 72 28 2e 6a 2e 29 5e 2e 6f 70 6c 28 2e 6e 75 6d 6d 65 72 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆r(.j.)^.opl(.nummer.); ┆
0x15e0…1600 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 20 20 20 77 ┆ end; end; end; w┆
0x1600…1620 72 69 74 65 28 63 6c 72 68 6f 6d 29 3b 0d 0a 20 20 20 66 6f 72 20 6e 3a 3d 31 20 74 6f 20 6b 20 ┆rite(clrhom); for n:=1 to k ┆
0x1620…1640 64 6f 20 0d 0a 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 69 66 20 28 28 6e 20 6d 6f 64 20 ┆do begin if ((n mod ┆
0x1640…1660 34 30 29 3d 31 29 20 61 6e 64 28 6e 3c 3e 31 29 20 74 68 65 6e 20 0d 0a 20 20 20 20 20 20 62 65 ┆40)=1) and(n<>1) then be┆
0x1660…1680 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 2c 32 33 29 3b 77 72 69 74 65 ┆gin gotoxy(1,23);write┆
0x1680…16a0 28 72 76 73 6f 6e 2c 27 54 52 59 4b 20 52 45 54 55 52 20 46 4f 52 20 44 45 20 4e 5b 53 54 45 20 ┆(rvson,'TRYK RETUR FOR DE NÆSTE ┆
0x16a0…16c0 3a 27 2c 72 76 73 6f 66 66 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 72 65 61 64 28 63 68 29 3b 0d ┆:',rvsoff); read(ch); ┆
0x16c0…16e0 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 63 6c 72 68 6f 6d 29 3b 0d 0a 20 20 20 20 20 20 ┆ write(clrhom); ┆
0x16e0…1700 65 6e 64 3b 0d 0a 20 20 20 20 20 20 69 66 20 6e 6f 74 28 6f 64 64 28 28 6e 2d 31 29 20 64 69 76 ┆end; if not(odd((n-1) div┆
0x1700…1720 20 32 30 29 29 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 2c 28 28 ┆ 20)) then gotoxy(1,((┆
0x1720…1740 6e 2d 31 29 20 6d 6f 64 20 32 30 29 2b 31 29 0d 0a 20 20 20 20 20 20 65 6c 73 65 0d 0a 20 20 20 ┆n-1) mod 20)+1) else ┆
0x1740…1760 20 20 20 20 20 20 67 6f 74 6f 78 79 28 34 31 2c 28 28 6e 2d 31 29 20 6d 6f 64 20 32 30 29 2b 31 ┆ gotoxy(41,((n-1) mod 20)+1┆
0x1760…1780 29 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 6e 2c 27 20 3a 20 27 2c 74 79 70 65 6c 69 ┆); writeln(n,' : ',typeli┆
0x1780…17a0 73 74 28 2e 6e 2e 29 29 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 20 20 20 67 6f 74 6f 78 79 28 31 2c ┆st(.n.)); end; gotoxy(1,┆
0x17a0…17c0 32 33 29 3b 77 72 69 74 65 28 72 76 73 6f 6e 2c 27 49 6e 64 74 61 73 74 20 6e 75 6d 6d 65 72 65 ┆23);write(rvson,'Indtast nummere┆
0x17c0…17e0 74 20 70 7d 20 7c 6e 73 6b 65 64 65 20 6d 61 73 6b 65 2c 20 52 45 54 55 52 20 68 76 69 73 20 69 ┆t på ønskede maske, RETUR hvis i┆
0x17e0…1800 6e 67 65 6e 20 3a 20 27 2c 72 76 73 6f 66 66 29 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 ┆ngen : ',rvsoff); repeat ┆
0x1800…1820 20 20 20 20 20 67 6f 74 6f 78 79 28 35 34 2c 32 33 29 3b 77 72 69 74 65 28 63 6c 72 65 6f 73 29 ┆ gotoxy(54,23);write(clreos)┆
0x1820…1840 3b 0d 0a 20 20 20 20 20 20 20 72 65 61 64 28 73 74 29 3b 0d 0a 20 20 20 20 20 20 20 76 61 6c 28 ┆; read(st); val(┆
0x1840…1860 73 74 2c 6e 2c 70 29 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 28 70 3d 30 29 20 3b 0d 0a 20 20 20 69 ┆st,n,p); until (p=0) ; i┆
0x1860…1880 66 20 28 6e 3d 30 29 20 6f 72 20 28 73 74 3d 27 27 29 20 74 68 65 6e 0d 0a 20 20 20 62 65 67 69 ┆f (n=0) or (st='') then begi┆
0x1880…18a0 6e 0d 0a 20 20 20 20 20 20 63 68 65 63 6b 3a 3d 27 4f 27 3b 0d 0a 20 20 20 20 20 20 69 66 20 6e ┆n check:='O'; if n┆
0x18a0…18c0 6f 74 20 75 64 76 69 64 20 74 68 65 6e 20 6e 69 76 65 61 75 3a 3d 6e 69 76 65 61 75 2d 31 3b 0d ┆ot udvid then niveau:=niveau-1; ┆
0x18c0…18e0 0a 20 20 20 65 6e 64 0d 0a 20 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 20 6d 61 73 6b 65 28 2e 6e ┆ end else maske(.n┆
0x18e0…1900 69 76 65 61 75 2e 29 3a 3d 74 79 70 65 6c 69 73 74 28 2e 6e 2e 29 3b 0d 0a 20 20 20 69 66 20 6e ┆iveau.):=typelist(.n.); if n┆
0x1900…1920 75 6d 6d 65 72 3c 3e 73 6f 72 74 6e 75 6d 6d 65 72 20 74 68 65 6e 20 71 75 69 63 6b 73 6f 72 74 ┆ummer<>sortnummer then quicksort┆
[…truncated at 200 lines…]