|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 13888 (0x3640)
Types: TextFile
Notes: Mikados_K
Names: »OBEY.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »OBEY.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »OBEY.K«
(*$P*)
PROCEDURE OBEY;
VAR RZ,RS,NS,I,SIZE,REST,PREDKEY,SUCCKEY:INTEGER;
PROCEDURE PEXTRACT(RESPOS:INTEGER);
(*UDTRÆK NØGLE AF POST , OG GEM I KEY*)
VAR I:INTEGER;
J,KP :POSTADR;
BEGIN
WITH FILEHEAD(CURRHEAD) DO
FOR I:=1 TO KEYFLDS DO
BEGIN
KP:=KEYPOS(I)-1;
FOR J:=1 TO KEYLNG(I) DO
BEGIN
KEY(RESPOS):=REC^(KP+J);
RESPOS:=RESPOS+1
END
END
END;
(*$P*)
PROCEDURE RELEASKEY;
BEGIN
WITH USER(CURRUSER) DO
WITH FILES(CURRHEAD) DO
BEGIN
IF KEYSTART<AVAILKEY THEN
BEGIN
RZ:=0;
IF FILEHEAD(CURRHEAD).KEYSIZE>1 THEN
BEGIN
KEY(KEYSTART):=AVAILKEY;
KEY(KEYSTART+1):=FILEHEAD(CURRHEAD).KEYSIZE
END
ELSE KEY(KEYSTART):=-AVAILKEY;
AVAILKEY:=KEYSTART
END
ELSE
BEGIN
RZ:=AVAILKEY;
WHILE ABS(KEY(RZ))<KEYSTART DO RZ:=ABS(KEY(RZ));
IF FILEHEAD(CURRHEAD).KEYSIZE>1 THEN
BEGIN
KEY(KEYSTART):=ABS(KEY(RZ));
KEY(KEYSTART+1):=FILEHEAD(CURRHEAD).KEYSIZE
END
ELSE KEY(KEYSTART):=-ABS(KEY(RZ));
IF KEY(RZ)<0 THEN
KEY(RZ):=-KEYSTART
ELSE
KEY(RZ):=KEYSTART
END;
IF ABS(KEY(KEYSTART))<TOTALKEYSIZE THEN
IF KEYSTART+FILEHEAD(CURRHEAD).KEYSIZE=ABS(KEY(KEYSTART)) THEN
BEGIN
IF KEY(ABS(KEY(KEYSTART)))<0 THEN
RS:=1
ELSE
RS:=KEY(ABS(KEY(KEYSTART))+1);
KEY(KEYSTART):=ABS(KEY(ABS(KEY(KEYSTART))));
KEY(KEYSTART+1):=FILEHEAD(CURRHEAD).KEYSIZE+RS
END;
IF RZ>0 THEN
BEGIN
IF KEY(RZ)<0 THEN RS:=1 ELSE RS:=KEY(RZ+1);
IF RZ+RS=ABS(KEY(RZ)) THEN
BEGIN
IF KEY(ABS(KEY(RZ)))<0 THEN
NS:=1
ELSE
NS:=KEY(ABS(KEY(RZ))+1);
KEY(RZ):=ABS(KEY(ABS(KEY(RZ))));
KEY(RZ+1):=RS+NS
END
END;
KEYSTART:=0
END
END;
(*$P*)
PROCEDURE OUVRIR;
BEGIN
WITH USER(CURRUSER) DO
IF FILES(CURRHEAD).STATUS=LUKKET THEN
BEGIN
CASE BESKED.IREC OF
2:FILES(CURRHEAD).STATUS:=LÆS;
3:
BEGIN
FILES(CURRHEAD).STATUS:=SKRIV;
FOR I:=1 TO MAXUSERS DO
IF USER(I).FILES(CURRHEAD).STATUS=XXCLUSIV THEN
BEGIN
IER:=-26;
I:=MAXUSERS
END
END;
5:
BEGIN
FILES(CURRHEAD).STATUS:=XXCLUSIV;
FOR I:=1 TO MAXUSERS DO
IF USER(I).FILES(CURRHEAD).STATUS IN (.SKRIV..XXCLUSIV.) THEN
BEGIN
IER:=-27;
I:=MAXUSERS
END
END
OTHERWISE IER:=-28;
IF IER<>0 THEN BEGIN FILES(CURRHEAD).STATUS:=LUKKET;EXIT(OBEY) END;
IF NOT FILEHEAD(CURRHEAD).FILEOPEN THEN UDFØR;
IF NOT (-IER IN (.0,18,19.)) THEN EXIT(OBEY);
IF NOT FILEHEAD(CURRHEAD).FILEINIT THEN IER:=-12;
PREDKEY:=0;
I:=AVAILKEY;
WHILE I<=TOTALKEYSIZE DO
BEGIN
IF KEY(I)<0 THEN SIZE:=1 ELSE SIZE:=KEY(I+1);
IF SIZE>=FILEHEAD(CURRHEAD).KEYSIZE THEN
BEGIN
FILES(CURRHEAD).KEYSTART:=I;
SUCCKEY:=ABS(KEY(I));
REST:=SIZE-FILEHEAD(CURRHEAD).KEYSIZE;
IF REST>0 THEN
BEGIN
I:=I+FILEHEAD(CURRHEAD).KEYSIZE;
IF REST>1 THEN
BEGIN
KEY(I):=SUCCKEY;
KEY(I+1):=REST
END
ELSE KEY(I):=-SUCCKEY
END
ELSE I:=SUCCKEY;
IF PREDKEY=0 THEN AVAILKEY:=I ELSE
IF KEY(PREDKEY)>0 THEN KEY(PREDKEY):=I ELSE KEY(PREDKEY):=-I;
I:=TOTALKEYSIZE+1
END
ELSE
BEGIN
PREDKEY:=I;
I:=ABS(KEY(I))
END
END;
IF FILES(CURRHEAD).KEYSTART=0 THEN
BEGIN
IER:=-29;
EXIT(OBEY)
END
END ELSE IER:=-25;
END;
(*$P*)
PROCEDURE FERMEZ;
BEGIN
WITH USER(CURRUSER) DO
BEGIN
FILES(CURRHEAD).STATUS:=LUKKET;
FOR I:=1 TO MAXUSERS DO
IF USER(I).FILES(CURRHEAD).STATUS<>LUKKET THEN I:=MAXUSERS+10;
IF I<MAXUSERS+10 THEN
BEGIN
UDFØR;
IF IER<>0 THEN EXIT(OBEY);
FILEHEAD(CURRHEAD).NBUC:=AVAILHEAD;
AVAILHEAD:=CURRHEAD;
HEADBASE(CURRFILE):=0;
CURRZONE:=FILEHEAD(CURRHEAD).BUT;
IF CURRZONE<AVAILZONE THEN
BEGIN
RZ:=0;
Z(CURRZONE):=AVAILZONE;
Z(CURRZONE+1):=FILEHEAD(CURRHEAD).AZSIZE;
AVAILZONE:=CURRZONE
END
ELSE
BEGIN
RZ:=AVAILZONE;
WHILE Z(RZ)<CURRZONE DO RZ:=Z(RZ);
Z(CURRZONE):=Z(RZ);
Z(CURRZONE+1):=FILEHEAD(CURRHEAD).AZSIZE;
Z(RZ):=CURRZONE
END;
IF Z(CURRZONE)<MZONESIZE THEN
IF CURRZONE+Z(CURRZONE+1)=Z(CURRZONE) THEN
BEGIN
Z(CURRZONE+1):=Z(CURRZONE+1)+Z(Z(CURRZONE)+1);
Z(CURRZONE):=Z(Z(CURRZONE))
END;
IF RZ>0 THEN
BEGIN
IF RZ+Z(RZ+1)=Z(RZ) THEN
BEGIN
Z(RZ+1):=Z(RZ+1)+Z(Z(RZ)+1);
Z(RZ):=Z(Z(RZ))
END
END
END;
RELEASKEY
END
END;
(*$P*)
PROCEDURE REED;
VAR I,J:INTEGER;
BEGIN
WITH USER(CURRUSER) DO
BEGIN
PEXTRACT(FILES(CURRHEAD).KEYSTART);
IF CURRFUNC=LÆSPOSTX THEN
BEGIN
FOR I:=1 TO MAXUSERS DO
IF (USER(I).FILES(CURRHEAD).STATUS=XCLUSIV) AND (I<>CURRUSER) THEN
BEGIN
FOR J:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO
IF KEY(J-1+USER(I).FILES(CURRHEAD).KEYSTART)<>
KEY(J-1+USER(CURRUSER).FILES(CURRHEAD).KEYSTART) THEN J:=10000;
IF J<10000 THEN
BEGIN
FILES(CURRHEAD).STATUS:=SKRIV;
IER:=-31;
EXIT(OBEY)
END
END
END;
UDFØR;
IF CURRFUNC=LÆSPOSTX THEN
BEGIN
IF FILES(CURRHEAD).STATUS=SKRIV THEN FILES(CURRHEAD).STATUS:=XCLUSIV
END
ELSE
IF FILES(CURRHEAD).STATUS=XCLUSIV THEN FILES(CURRHEAD).STATUS:=SKRIV
END
END;
(*$P*)
PROCEDURE NÆKST;
VAR I,J:INTEGER;
BEGIN
WITH USER(CURRUSER) DO
BEGIN
UDFØR;
PEXTRACT(FILES(CURRHEAD).KEYSTART);
IF CURRFUNC=NÆSTEX THEN
BEGIN
FOR I:=1 TO MAXUSERS DO
IF (USER(I).FILES(CURRHEAD).STATUS=XCLUSIV) AND (I<>CURRUSER) THEN
BEGIN
FOR J:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO
IF KEY(J-1+USER(I).FILES(CURRHEAD).KEYSTART)<>
KEY(J-1+USER(CURRUSER).FILES(CURRHEAD).KEYSTART) THEN J:=10000;
IF J<10000 THEN
BEGIN
FILES(CURRHEAD).STATUS:=SKRIV;
IER:=-31;
EXIT(OBEY)
END
END
END;
IF CURRFUNC=NÆSTEX THEN
BEGIN
IF FILES(CURRHEAD).STATUS=SKRIV THEN FILES(CURRHEAD).STATUS:=XCLUSIV
END
ELSE
IF FILES(CURRHEAD).STATUS=XCLUSIV THEN FILES(CURRHEAD).STATUS:=SKRIV
END
END;
(*$P*)
PROCEDURE ERASAVE;
VAR I,J:INTEGER;
HKEY:ARRAY (.1..MAXKEYSIZE.) OF INTEGER;
BEGIN
WITH USER(CURRUSER) DO
BEGIN
IF FILES(CURRHEAD).STATUS=XCLUSIV THEN
BEGIN
FOR I:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO
HKEY(I):=KEY(I-1+FILES(CURRHEAD).KEYSTART);
PEXTRACT(FILES(CURRHEAD).KEYSTART);
FOR I:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO
IF KEY(I-1+FILES(CURRHEAD).KEYSTART)<>HKEY(I) THEN I:=10000;
IF I>10000 THEN
BEGIN
FILES(CURRHEAD).STATUS:=SKRIV;
IER:=-33;
EXIT(OBEY)
END
END;
UDFØR;
IF CURRFUNC<>GEMPOST THEN
BEGIN
PEXTRACT(FILES(CURRHEAD).KEYSTART);
IF CURRFUNC=SLETX THEN
BEGIN
FOR I:=1 TO MAXUSERS DO
IF (USER(I).FILES(CURRHEAD).STATUS=XCLUSIV) AND (I<>CURRUSER) THEN
BEGIN
FOR J:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO
IF KEY(J-1+USER(I).FILES(CURRHEAD).KEYSTART)<>
KEY(J-1+USER(CURRUSER).FILES(CURRHEAD).KEYSTART) THEN J:=10000;
IF J<10000 THEN
BEGIN
FILES(CURRHEAD).STATUS:=SKRIV;
IER:=-31;
EXIT(OBEY)
END
END
END
END;
IF CURRFUNC IN (.SLET,GEMPOST.) THEN
IF FILES(CURRHEAD).STATUS=XCLUSIV THEN FILES(CURRHEAD).STATUS:=SKRIV
END
END;
(*$P*)
BEGIN
WITH USER(CURRUSER) DO
BEGIN
(*PAS PÅ DATASTRUKTUR NÅR OBEY MISLYKKES*)
CASE PROGRAMNR OF
-1:IF CURRFUNC IN
(.ÅBEN..INITIER,UAFMELD..PAFMELD,RETURNHEAD,RETURNSTAT.) THEN IER:=-22;
0:IF CURRFUNC IN
(.ÅBEN..INITIER,PAFMELD,RETURNHEAD,RETURNSTAT.) THEN IER:=-24
ELSE IF CURRFUNC IN (.UTILMELD,STOPSYS.) THEN IER:=-21
OTHERWISE
IF CURRFUNC IN (.UTILMELD..PTILMELD,STOPSYS.) THEN IER:=-23;
IF IER<>0 THEN EXIT(OBEY);
IF CURRFUNC IN (.LUK..INITIER,RETURNHEAD.) THEN
IF FILES(CURRHEAD).STATUS=LUKKET THEN BEGIN IER:=-3;EXIT(OBEY) END;
IF CURRFUNC IN (.LÆSPOSTX,NÆSTEX,INDSÆT,INITIER.) THEN
IF FILES(CURRHEAD).STATUS=LÆS THEN BEGIN IER:=-30;EXIT(OBEY) END;
IF CURRFUNC IN (.SLET,SLETX,GEMPOST.) THEN
IF NOT (FILES(CURRHEAD).STATUS IN (.XCLUSIV,XXCLUSIV.)) THEN
BEGIN
IER:=-32;
EXIT(OBEY)
END;
CASE CURRFUNC OF
ÅBEN:OUVRIR;
LUK :FERMEZ;
LÆSPOST,LÆSPOSTX:REED;
NÆSTE,NÆSTEX:NÆKST;
SLET,SLETX,GEMPOST:ERASAVE;
INDSÆT:WITH FILES(CURRHEAD) DO
BEGIN
UDFØR;
PEXTRACT(KEYSTART);
IF STATUS=XCLUSIV THEN STATUS:=SKRIV
END;
INITIER:BEGIN
IREC:=BESKED.IREC;
UDFØR
END;
UTILMELD:
BEGIN
PROGRAMNR:=0;
IF NROFUSERS=MAXUSERS THEN
BEGIN
IER:=-34;
EXIT(OBEY)
END;
NROFUSERS:=NROFUSERS+1
END;
UAFMELD:
BEGIN
PROGRAMNR:=-1;
NROFUSERS:=NROFUSERS-1;
FOR CURRHEAD:=1 TO MAXOPENFILES DO WITH FILES(CURRHEAD) DO
IF STATUS<>LUKKET THEN
BEGIN
STATUS:=LUKKET;
RELEASKEY
END
END;
PTILMELD:PROGRAMNR:=BESKED.INFO;
PAFMELD:PROGRAMNR:=0;
STOPSYS:BEGIN
IF BESKED.INFO=1 THEN NROFUSERS:=0;
IER:=NROFUSERS
END;
RETURNHEAD:RETURNEZ;
RETURNSTAT:
BEGIN
REC^(1):=USER(STATUSER).PROGRAMNR;
FOR CURRFILE:=1 TO MAXFILES DO
IF HEADBASE(CURRFILE)=0 THEN REC^(CURRFILE+1):=ORD(LUKKET)
ELSE
REC^(CURRFILE+1):=ORD(USER(STATUSER).FILES(HEADBASE(CURRFILE)).STATUS)
END
END (*CASE CURRFUNC*)
END
END;
0x0000…0008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0008…0019 Line {l1=0x0f, l2=»PROCEDURE OBEY;«, l3=0x0f}
0x0019…004c Line {l1=0x31, l2=»VAR RZ,RS,NS,I,SIZE,REST,PREDKEY,SUCCKEY:INTEGER;«, l3=0x31}
0x004c…0071 Line {l1=0x23, l2=»PROCEDURE PEXTRACT(RESPOS:INTEGER);«, l3=0x23}
0x0071…009a Line {l1=0x27, l2=»(*UDTRÆK NØGLE AF POST , OG GEM I KEY*)«, l3=0x27}
0x009a…00aa Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x00aa…00be Line {l1=0x12, l2=» J,KP :POSTADR;«, l3=0x12}
0x00be…00c5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00c5…00e3 Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x00e3…0109 Line {l1=0x24, l2=» FOR I:=1 TO KEYFLDS DO «, l3=0x24}
0x0109…012f Line {l1=0x24, l2=» BEGIN «, l3=0x24}
0x012f…0155 Line {l1=0x24, l2=» KP:=KEYPOS(I)-1; «, l3=0x24}
0x0155…017b Line {l1=0x24, l2=» FOR J:=1 TO KEYLNG(I) DO «, l3=0x24}
0x017b…01a1 Line {l1=0x24, l2=» BEGIN «, l3=0x24}
0x01a1…01c9 Line {l1=0x26, l2=» KEY(RESPOS):=REC^(KP+J); «, l3=0x26}
0x01c9…01ef Line {l1=0x24, l2=» RESPOS:=RESPOS+1 «, l3=0x24}
0x01ef…0215 Line {l1=0x24, l2=» END «, l3=0x24}
0x0215…023b Line {l1=0x24, l2=» END «, l3=0x24}
0x023b…0241 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0241…0249 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0249…025f Line {l1=0x14, l2=»PROCEDURE RELEASKEY;«, l3=0x14}
0x025f…0266 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0266…0280 Line {l1=0x18, l2=» WITH USER(CURRUSER) DO«, l3=0x18}
0x0280…029b Line {l1=0x19, l2=» WITH FILES(CURRHEAD) DO«, l3=0x19}
0x029b…02a4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x02a4…02c3 Line {l1=0x1d, l2=» IF KEYSTART<AVAILKEY THEN«, l3=0x1d}
0x02c3…02ce Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x02ce…02dc Line {l1=0x0c, l2=» RZ:=0;«, l3=0x0c}
0x02dc…0308 Line {l1=0x2a, l2=» IF FILEHEAD(CURRHEAD).KEYSIZE>1 THEN«, l3=0x2a}
0x0308…0315 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0315…0337 Line {l1=0x20, l2=» KEY(KEYSTART):=AVAILKEY;«, l3=0x20}
0x0337…036c Line {l1=0x33, l2=» KEY(KEYSTART+1):=FILEHEAD(CURRHEAD).KEYSIZE«, l3=0x33}
0x036c…0377 Line {l1=0x09, l2=» END«, l3=0x09}
0x0377…039d Line {l1=0x24, l2=» ELSE KEY(KEYSTART):=-AVAILKEY;«, l3=0x24}
0x039d…03b8 Line {l1=0x19, l2=» AVAILKEY:=KEYSTART «, l3=0x19}
0x03b8…03c2 Line {l1=0x08, l2=» END «, l3=0x08}
0x03c2…03cc Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x03cc…03d7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x03d7…03ec Line {l1=0x13, l2=» RZ:=AVAILKEY;«, l3=0x13}
0x03ec…0424 Line {l1=0x36, l2=» WHILE ABS(KEY(RZ))<KEYSTART DO RZ:=ABS(KEY(RZ));«, l3=0x36}
0x0424…0450 Line {l1=0x2a, l2=» IF FILEHEAD(CURRHEAD).KEYSIZE>1 THEN«, l3=0x2a}
0x0450…045d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x045d…0483 Line {l1=0x24, l2=» KEY(KEYSTART):=ABS(KEY(RZ));«, l3=0x24}
0x0483…04b8 Line {l1=0x33, l2=» KEY(KEYSTART+1):=FILEHEAD(CURRHEAD).KEYSIZE«, l3=0x33}
0x04b8…04c3 Line {l1=0x09, l2=» END«, l3=0x09}
0x04c3…04ed Line {l1=0x28, l2=» ELSE KEY(KEYSTART):=-ABS(KEY(RZ));«, l3=0x28}
0x04ed…0506 Line {l1=0x17, l2=» IF KEY(RZ)<0 THEN«, l3=0x17}
0x0506…0522 Line {l1=0x1a, l2=» KEY(RZ):=-KEYSTART«, l3=0x1a}
0x0522…052e Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x052e…054a Line {l1=0x1a, l2=» KEY(RZ):=KEYSTART «, l3=0x1a}
0x054a…0554 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0554…0581 Line {l1=0x2b, l2=» IF ABS(KEY(KEYSTART))<TOTALKEYSIZE THEN«, l3=0x2b}
0x0581…05c5 Line {l1=0x42, l2=» IF KEYSTART+FILEHEAD(CURRHEAD).KEYSIZE=ABS(KEY(KEYSTART)) THEN«, l3=0x42}
0x05c5…05d0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x05d0…05f9 Line {l1=0x27, l2=» IF KEY(ABS(KEY(KEYSTART)))<0 THEN«, l3=0x27}
0x05f9…0608 Line {l1=0x0d, l2=» RS:=1«, l3=0x0d}
0x0608…0614 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0614…063c Line {l1=0x26, l2=» RS:=KEY(ABS(KEY(KEYSTART))+1);«, l3=0x26}
0x063c…0670 Line {l1=0x32, l2=» KEY(KEYSTART):=ABS(KEY(ABS(KEY(KEYSTART))));«, l3=0x32}
0x0670…06a6 Line {l1=0x34, l2=» KEY(KEYSTART+1):=FILEHEAD(CURRHEAD).KEYSIZE+RS«, l3=0x34}
0x06a6…06b0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x06b0…06c2 Line {l1=0x10, l2=» IF RZ>0 THEN«, l3=0x10}
0x06c2…06cd Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x06cd…0700 Line {l1=0x31, l2=» IF KEY(RZ)<0 THEN RS:=1 ELSE RS:=KEY(RZ+1);«, l3=0x31}
0x0700…0722 Line {l1=0x20, l2=» IF RZ+RS=ABS(KEY(RZ)) THEN«, l3=0x20}
0x0722…072f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x072f…0754 Line {l1=0x23, l2=» IF KEY(ABS(KEY(RZ)))<0 THEN«, l3=0x23}
0x0754…0765 Line {l1=0x0f, l2=» NS:=1«, l3=0x0f}
0x0765…0773 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0773…0797 Line {l1=0x22, l2=» NS:=KEY(ABS(KEY(RZ))+1);«, l3=0x22}
0x0797…07c1 Line {l1=0x28, l2=» KEY(RZ):=ABS(KEY(ABS(KEY(RZ))));«, l3=0x28}
0x07c1…07db Line {l1=0x18, l2=» KEY(RZ+1):=RS+NS«, l3=0x18}
0x07db…07e6 Line {l1=0x09, l2=» END«, l3=0x09}
0x07e6…07f0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x07f0…0801 Line {l1=0x0f, l2=» KEYSTART:=0«, l3=0x0f}
0x0801…0808 Line {l1=0x05, l2=» END«, l3=0x05}
0x0808…080e Line {l1=0x04, l2=»END;«, l3=0x04}
0x080e…0816 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0816…0829 Line {l1=0x11, l2=»PROCEDURE OUVRIR;«, l3=0x11}
0x0829…0831 Line {l1=0x06, l2=»BEGIN «, l3=0x06}
0x0831…084b Line {l1=0x18, l2=» WITH USER(CURRUSER) DO«, l3=0x18}
0x084b…0874 Line {l1=0x27, l2=» IF FILES(CURRHEAD).STATUS=LUKKET THEN«, l3=0x27}
0x0874…087d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x087d…0896 Line {l1=0x17, l2=» CASE BESKED.IREC OF«, l3=0x17}
0x0896…08ba Line {l1=0x22, l2=» 2:FILES(CURRHEAD).STATUS:=LÆS;«, l3=0x22}
0x08ba…08c2 Line {l1=0x06, l2=» 3:«, l3=0x06}
0x08c2…08cd Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x08cd…08f3 Line {l1=0x24, l2=» FILES(CURRHEAD).STATUS:=SKRIV;«, l3=0x24}
0x08f3…0912 Line {l1=0x1d, l2=» FOR I:=1 TO MAXUSERS DO«, l3=0x1d}
0x0912…0949 Line {l1=0x35, l2=» IF USER(I).FILES(CURRHEAD).STATUS=XXCLUSIV THEN«, l3=0x35}
0x0949…0956 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0956…0969 Line {l1=0x11, l2=» IER:=-26;«, l3=0x11}
0x0969…097e Line {l1=0x13, l2=» I:=MAXUSERS«, l3=0x13}
0x097e…098a Line {l1=0x0a, l2=» END «, l3=0x0a}
0x098a…0994 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0994…099c Line {l1=0x06, l2=» 5:«, l3=0x06}
0x099c…09a7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x09a7…09d0 Line {l1=0x27, l2=» FILES(CURRHEAD).STATUS:=XXCLUSIV;«, l3=0x27}
0x09d0…09ef Line {l1=0x1d, l2=» FOR I:=1 TO MAXUSERS DO«, l3=0x1d}
0x09ef…0a34 Line {l1=0x43, l2=» IF USER(I).FILES(CURRHEAD).STATUS IN (.SKRIV..XXCLUSIV.) THEN«, l3=0x43}
0x0a34…0a41 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a41…0a54 Line {l1=0x11, l2=» IER:=-27;«, l3=0x11}
0x0a54…0a69 Line {l1=0x13, l2=» I:=MAXUSERS«, l3=0x13}
0x0a69…0a75 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x0a75…0a7f Line {l1=0x08, l2=» END «, l3=0x08}
0x0a7f…0a98 Line {l1=0x17, l2=» OTHERWISE IER:=-28;«, l3=0x17}
0x0a98…0ae1 Line {l1=0x47, l2=» IF IER<>0 THEN BEGIN FILES(CURRHEAD).STATUS:=LUKKET;EXIT(OBEY) END;«, l3=0x47}
0x0ae1…0b15 Line {l1=0x32, l2=» IF NOT FILEHEAD(CURRHEAD).FILEOPEN THEN UDFØR;«, l3=0x32}
0x0b15…0b48 Line {l1=0x31, l2=» IF NOT (-IER IN (.0,18,19.)) THEN EXIT(OBEY);«, l3=0x31}
0x0b48…0b7f Line {l1=0x35, l2=» IF NOT FILEHEAD(CURRHEAD).FILEINIT THEN IER:=-12;«, l3=0x35}
0x0b7f…0b90 Line {l1=0x0f, l2=» PREDKEY:=0;«, l3=0x0f}
0x0b90…0ba2 Line {l1=0x10, l2=» I:=AVAILKEY;«, l3=0x10}
0x0ba2…0bc0 Line {l1=0x1c, l2=» WHILE I<=TOTALKEYSIZE DO«, l3=0x1c}
0x0bc0…0bcb Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0bcb…0c00 Line {l1=0x33, l2=» IF KEY(I)<0 THEN SIZE:=1 ELSE SIZE:=KEY(I+1);«, l3=0x33}
0x0c00…0c30 Line {l1=0x2e, l2=» IF SIZE>=FILEHEAD(CURRHEAD).KEYSIZE THEN«, l3=0x2e}
0x0c30…0c3d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c3d…0c63 Line {l1=0x24, l2=» FILES(CURRHEAD).KEYSTART:=I;«, l3=0x24}
0x0c63…0c82 Line {l1=0x1d, l2=» SUCCKEY:=ABS(KEY(I));«, l3=0x1d}
0x0c82…0cb2 Line {l1=0x2e, l2=» REST:=SIZE-FILEHEAD(CURRHEAD).KEYSIZE;«, l3=0x2e}
0x0cb2…0cca Line {l1=0x16, l2=» IF REST>0 THEN«, l3=0x16}
0x0cca…0cd9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0cd9…0d05 Line {l1=0x2a, l2=» I:=I+FILEHEAD(CURRHEAD).KEYSIZE;«, l3=0x2a}
0x0d05…0d1f Line {l1=0x18, l2=» IF REST>1 THEN«, l3=0x18}
0x0d1f…0d30 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0d30…0d4e Line {l1=0x1c, l2=» KEY(I):=SUCCKEY;«, l3=0x1c}
0x0d4e…0d6a Line {l1=0x1a, l2=» KEY(I+1):=REST«, l3=0x1a}
0x0d6a…0d79 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0d79…0d9a Line {l1=0x1f, l2=» ELSE KEY(I):=-SUCCKEY«, l3=0x1f}
0x0d9a…0da7 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0da7…0dc1 Line {l1=0x18, l2=» ELSE I:=SUCCKEY;«, l3=0x18}
0x0dc1…0dee Line {l1=0x2b, l2=» IF PREDKEY=0 THEN AVAILKEY:=I ELSE «, l3=0x2b}
0x0dee…0e35 Line {l1=0x45, l2=» IF KEY(PREDKEY)>0 THEN KEY(PREDKEY):=I ELSE KEY(PREDKEY):=-I;«, l3=0x45}
0x0e35…0e50 Line {l1=0x19, l2=» I:=TOTALKEYSIZE+1«, l3=0x19}
0x0e50…0e5b Line {l1=0x09, l2=» END«, l3=0x09}
0x0e5b…0e67 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0e67…0e74 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0e74…0e89 Line {l1=0x13, l2=» PREDKEY:=I;«, l3=0x13}
0x0e89…0ea1 Line {l1=0x16, l2=» I:=ABS(KEY(I))«, l3=0x16}
0x0ea1…0eac Line {l1=0x09, l2=» END«, l3=0x09}
0x0eac…0eb6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0eb6…0ede Line {l1=0x26, l2=» IF FILES(CURRHEAD).KEYSTART=0 THEN«, l3=0x26}
0x0ede…0ee9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0ee9…0efa Line {l1=0x0f, l2=» IER:=-29;«, l3=0x0f}
0x0efa…0f0c Line {l1=0x10, l2=» EXIT(OBEY)«, l3=0x10}
0x0f0c…0f15 Line {l1=0x07, l2=» END«, l3=0x07}
0x0f15…0f18 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x0f1e…0f34 Line {l1=0x14, l2=» END ELSE IER:=-25;«, l3=0x14}
0x0f34…0f3a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f3a…0f42 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0f42…0f55 Line {l1=0x11, l2=»PROCEDURE FERMEZ;«, l3=0x11}
0x0f55…0f5c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f5c…0f76 Line {l1=0x18, l2=» WITH USER(CURRUSER) DO«, l3=0x18}
0x0f76…0f7f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f7f…0fa4 Line {l1=0x23, l2=» FILES(CURRHEAD).STATUS:=LUKKET;«, l3=0x23}
0x0fa4…0fc1 Line {l1=0x1b, l2=» FOR I:=1 TO MAXUSERS DO«, l3=0x1b}
0x0fc1…1005 Line {l1=0x42, l2=» IF USER(I).FILES(CURRHEAD).STATUS<>LUKKET THEN I:=MAXUSERS+10;«, l3=0x42}
0x1005…1020 Line {l1=0x19, l2=» IF I<MAXUSERS+10 THEN«, l3=0x19}
0x1020…102b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x102b…1039 Line {l1=0x0c, l2=» UDFØR;«, l3=0x0c}
0x1039…105b Line {l1=0x20, l2=» IF IER<>0 THEN EXIT(OBEY);«, l3=0x20}
0x105b…1086 Line {l1=0x29, l2=» FILEHEAD(CURRHEAD).NBUC:=AVAILHEAD;«, l3=0x29}
0x1086…10a2 Line {l1=0x1a, l2=» AVAILHEAD:=CURRHEAD;«, l3=0x1a}
0x10a2…10c0 Line {l1=0x1c, l2=» HEADBASE(CURRFILE):=0;«, l3=0x1c}
0x10c0…10e9 Line {l1=0x27, l2=» CURRZONE:=FILEHEAD(CURRHEAD).BUT;«, l3=0x27}
0x10e9…110b Line {l1=0x20, l2=» IF CURRZONE<AVAILZONE THEN«, l3=0x20}
0x110b…1118 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1118…1128 Line {l1=0x0e, l2=» RZ:=0;«, l3=0x0e}
0x1128…1149 Line {l1=0x1f, l2=» Z(CURRZONE):=AVAILZONE;«, l3=0x1f}
0x1149…117c Line {l1=0x31, l2=» Z(CURRZONE+1):=FILEHEAD(CURRHEAD).AZSIZE;«, l3=0x31}
0x117c…1199 Line {l1=0x1b, l2=» AVAILZONE:=CURRZONE«, l3=0x1b}
0x1199…11a4 Line {l1=0x09, l2=» END«, l3=0x09}
0x11a4…11b0 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x11b0…11bd Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x11bd…11d5 Line {l1=0x16, l2=» RZ:=AVAILZONE;«, l3=0x16}
0x11d5…1201 Line {l1=0x2a, l2=» WHILE Z(RZ)<CURRZONE DO RZ:=Z(RZ);«, l3=0x2a}
0x1201…121e Line {l1=0x1b, l2=» Z(CURRZONE):=Z(RZ);«, l3=0x1b}
0x121e…1251 Line {l1=0x31, l2=» Z(CURRZONE+1):=FILEHEAD(CURRHEAD).AZSIZE;«, l3=0x31}
0x1251…126a Line {l1=0x17, l2=» Z(RZ):=CURRZONE«, l3=0x17}
0x126a…1276 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1276…129b Line {l1=0x23, l2=» IF Z(CURRZONE)<MZONESIZE THEN«, l3=0x23}
0x129b…12cd Line {l1=0x30, l2=» IF CURRZONE+Z(CURRZONE+1)=Z(CURRZONE) THEN«, l3=0x30}
0x12cd…12da Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x12da…1312 Line {l1=0x36, l2=» Z(CURRZONE+1):=Z(CURRZONE+1)+Z(Z(CURRZONE)+1);«, l3=0x36}
0x1312…1337 Line {l1=0x23, l2=» Z(CURRZONE):=Z(Z(CURRZONE))«, l3=0x23}
0x1337…1343 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1343…1357 Line {l1=0x12, l2=» IF RZ>0 THEN«, l3=0x12}
0x1357…1364 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1364…1386 Line {l1=0x20, l2=» IF RZ+Z(RZ+1)=Z(RZ) THEN«, l3=0x20}
0x1386…1395 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1395…13bd Line {l1=0x26, l2=» Z(RZ+1):=Z(RZ+1)+Z(Z(RZ)+1);«, l3=0x26}
0x13bd…13d8 Line {l1=0x19, l2=» Z(RZ):=Z(Z(RZ))«, l3=0x19}
0x13d8…13e5 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x13e5…13f1 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x13f1…13fb Line {l1=0x08, l2=» END;«, l3=0x08}
0x13fb…140a Line {l1=0x0d, l2=» RELEASKEY«, l3=0x0d}
0x140a…1411 Line {l1=0x05, l2=» END«, l3=0x05}
0x1411…1417 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1417…141f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x141f…1430 Line {l1=0x0f, l2=»PROCEDURE REED;«, l3=0x0f}
0x1430…1442 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x1442…1449 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1449…1463 Line {l1=0x18, l2=» WITH USER(CURRUSER) DO«, l3=0x18}
0x1463…146c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x146c…1495 Line {l1=0x27, l2=» PEXTRACT(FILES(CURRHEAD).KEYSTART);«, l3=0x27}
0x1495…14b4 Line {l1=0x1d, l2=» IF CURRFUNC=LÆSPOSTX THEN«, l3=0x1d}
0x14b4…14bf Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x14bf…14de Line {l1=0x1d, l2=» FOR I:=1 TO MAXUSERS DO«, l3=0x1d}
0x14de…1528 Line {l1=0x48, l2=» IF (USER(I).FILES(CURRHEAD).STATUS=XCLUSIV) AND (I<>CURRUSER) THEN«, l3=0x48}
0x1528…1535 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1535…1568 Line {l1=0x31, l2=» FOR J:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO«, l3=0x31}
0x1568…15a0 Line {l1=0x36, l2=» IF KEY(J-1+USER(I).FILES(CURRHEAD).KEYSTART)<>«, l3=0x36}
0x15a0…15ec Line {l1=0x4a, l2=» KEY(J-1+USER(CURRUSER).FILES(CURRHEAD).KEYSTART) THEN J:=10000;«, l3=0x4a}
0x15ec…1605 Line {l1=0x17, l2=» IF J<10000 THEN«, l3=0x17}
0x1605…1614 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1614…163e Line {l1=0x28, l2=» FILES(CURRHEAD).STATUS:=SKRIV;«, l3=0x28}
0x163e…1653 Line {l1=0x13, l2=» IER:=-31;«, l3=0x13}
0x1653…1669 Line {l1=0x14, l2=» EXIT(OBEY)«, l3=0x14}
0x1669…1676 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1676…1681 Line {l1=0x09, l2=» END«, l3=0x09}
0x1681…168b Line {l1=0x08, l2=» END;«, l3=0x08}
0x168b…169a Line {l1=0x0d, l2=» UDFØR; «, l3=0x0d}
0x169a…16b9 Line {l1=0x1d, l2=» IF CURRFUNC=LÆSPOSTX THEN«, l3=0x1d}
0x16b9…16c4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x16c4…1710 Line {l1=0x4a, l2=» IF FILES(CURRHEAD).STATUS=SKRIV THEN FILES(CURRHEAD).STATUS:=XCLUSIV«, l3=0x4a}
0x1710…1719 Line {l1=0x07, l2=» END«, l3=0x07}
0x1719…1723 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1723…176f Line {l1=0x4a, l2=» IF FILES(CURRHEAD).STATUS=XCLUSIV THEN FILES(CURRHEAD).STATUS:=SKRIV«, l3=0x4a}
0x176f…1779 Line {l1=0x08, l2=» END «, l3=0x08}
0x1779…177f Line {l1=0x04, l2=»END;«, l3=0x04}
0x177f…1787 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1787…1799 Line {l1=0x10, l2=»PROCEDURE NÆKST;«, l3=0x10}
0x1799…17ab Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x17ab…17b2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x17b2…17cc Line {l1=0x18, l2=» WITH USER(CURRUSER) DO«, l3=0x18}
0x17cc…17d5 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x17d5…17e1 Line {l1=0x0a, l2=» UDFØR;«, l3=0x0a}
0x17e1…180a Line {l1=0x27, l2=» PEXTRACT(FILES(CURRHEAD).KEYSTART);«, l3=0x27}
0x180a…1827 Line {l1=0x1b, l2=» IF CURRFUNC=NÆSTEX THEN«, l3=0x1b}
0x1827…1832 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1832…1851 Line {l1=0x1d, l2=» FOR I:=1 TO MAXUSERS DO«, l3=0x1d}
0x1851…189b Line {l1=0x48, l2=» IF (USER(I).FILES(CURRHEAD).STATUS=XCLUSIV) AND (I<>CURRUSER) THEN«, l3=0x48}
0x189b…18a8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x18a8…18db Line {l1=0x31, l2=» FOR J:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO«, l3=0x31}
0x18db…1913 Line {l1=0x36, l2=» IF KEY(J-1+USER(I).FILES(CURRHEAD).KEYSTART)<>«, l3=0x36}
0x1913…195f Line {l1=0x4a, l2=» KEY(J-1+USER(CURRUSER).FILES(CURRHEAD).KEYSTART) THEN J:=10000;«, l3=0x4a}
0x195f…1978 Line {l1=0x17, l2=» IF J<10000 THEN«, l3=0x17}
0x1978…1987 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1987…19b1 Line {l1=0x28, l2=» FILES(CURRHEAD).STATUS:=SKRIV;«, l3=0x28}
0x19b1…19c6 Line {l1=0x13, l2=» IER:=-31;«, l3=0x13}
0x19c6…19dc Line {l1=0x14, l2=» EXIT(OBEY)«, l3=0x14}
0x19dc…19e9 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x19e9…19f4 Line {l1=0x09, l2=» END«, l3=0x09}
0x19f4…19fe Line {l1=0x08, l2=» END;«, l3=0x08}
0x19fe…1a1b Line {l1=0x1b, l2=» IF CURRFUNC=NÆSTEX THEN«, l3=0x1b}
0x1a1b…1a26 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1a26…1a72 Line {l1=0x4a, l2=» IF FILES(CURRHEAD).STATUS=SKRIV THEN FILES(CURRHEAD).STATUS:=XCLUSIV«, l3=0x4a}
0x1a72…1a7b Line {l1=0x07, l2=» END«, l3=0x07}
0x1a7b…1a85 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1a85…1ad1 Line {l1=0x4a, l2=» IF FILES(CURRHEAD).STATUS=XCLUSIV THEN FILES(CURRHEAD).STATUS:=SKRIV«, l3=0x4a}
0x1ad1…1adb Line {l1=0x08, l2=» END «, l3=0x08}
0x1adb…1ae1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ae1…1ae9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1ae9…1aff Line {l1=0x14, l2=»PROCEDURE ERASAVE; «, l3=0x14}
0x1aff…1b11 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x1b11…1b3f Line {l1=0x2c, l2=» HKEY:ARRAY (.1..MAXKEYSIZE.) OF INTEGER;«, l3=0x2c}
0x1b3f…1b46 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b46…1b60 Line {l1=0x18, l2=» WITH USER(CURRUSER) DO«, l3=0x18}
0x1b60…1b69 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b69…1b95 Line {l1=0x2a, l2=» IF FILES(CURRHEAD).STATUS=XCLUSIV THEN«, l3=0x2a}
0x1b95…1ba0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1ba0…1bd1 Line {l1=0x2f, l2=» FOR I:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO«, l3=0x2f}
0x1bd1…1c08 Line {l1=0x35, l2=» HKEY(I):=KEY(I-1+FILES(CURRHEAD).KEYSTART);«, l3=0x35}
0x1c08…1c33 Line {l1=0x29, l2=» PEXTRACT(FILES(CURRHEAD).KEYSTART);«, l3=0x29}
0x1c33…1c64 Line {l1=0x2f, l2=» FOR I:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO«, l3=0x2f}
0x1c64…1cac Line {l1=0x46, l2=» IF KEY(I-1+FILES(CURRHEAD).KEYSTART)<>HKEY(I) THEN I:=10000;«, l3=0x46}
0x1cac…1cc4 Line {l1=0x16, l2=» IF I>10000 THEN «, l3=0x16}
0x1cc4…1cd1 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1cd1…1cf9 Line {l1=0x26, l2=» FILES(CURRHEAD).STATUS:=SKRIV;«, l3=0x26}
0x1cf9…1d0c Line {l1=0x11, l2=» IER:=-33;«, l3=0x11}
0x1d0c…1d20 Line {l1=0x12, l2=» EXIT(OBEY)«, l3=0x12}
0x1d20…1d2b Line {l1=0x09, l2=» END«, l3=0x09}
0x1d2b…1d35 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1d35…1d41 Line {l1=0x0a, l2=» UDFØR;«, l3=0x0a}
0x1d41…1d60 Line {l1=0x1d, l2=» IF CURRFUNC<>GEMPOST THEN«, l3=0x1d}
0x1d60…1d6b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1d6b…1db9 Line {l1=0x4c, l2=» PEXTRACT(FILES(CURRHEAD).KEYSTART); «, l3=0x4c}
0x1db9…1e06 Line {l1=0x4b, l2=» IF CURRFUNC=SLETX THEN «, l3=0x4b}
0x1e06…1e54 Line {l1=0x4c, l2=» BEGIN «, l3=0x4c}
0x1e54…1ea2 Line {l1=0x4c, l2=» FOR I:=1 TO MAXUSERS DO «, l3=0x4c}
0x1ea2…1ef0 Line {l1=0x4c, l2=» IF (USER(I).FILES(CURRHEAD).STATUS=XCLUSIV) AND (I<>CURRUSER) THEN «, l3=0x4c}
0x1ef0…1f3e Line {l1=0x4c, l2=» BEGIN «, l3=0x4c}
0x1f3e…1f8c Line {l1=0x4c, l2=» FOR J:=1 TO FILEHEAD(CURRHEAD).KEYSIZE DO «, l3=0x4c}
0x1f8c…1fda Line {l1=0x4c, l2=» IF KEY(J-1+USER(I).FILES(CURRHEAD).KEYSTART)<> «, l3=0x4c}
0x1fda…2028 Line {l1=0x4c, l2=» KEY(J-1+USER(CURRUSER).FILES(CURRHEAD).KEYSTART) THEN J:=10000;«, l3=0x4c}
0x2028…2076 Line {l1=0x4c, l2=» IF J<10000 THEN «, l3=0x4c}
0x2076…20c4 Line {l1=0x4c, l2=» BEGIN «, l3=0x4c}
0x20c4…2112 Line {l1=0x4c, l2=» FILES(CURRHEAD).STATUS:=SKRIV; «, l3=0x4c}
0x2112…2160 Line {l1=0x4c, l2=» IER:=-31; «, l3=0x4c}
0x2160…21ae Line {l1=0x4c, l2=» EXIT(OBEY) «, l3=0x4c}
0x21ae…21fc Line {l1=0x4c, l2=» END «, l3=0x4c}
0x21fc…224a Line {l1=0x4c, l2=» END «, l3=0x4c}
0x224a…2298 Line {l1=0x4c, l2=» END «, l3=0x4c}
0x2298…22a2 Line {l1=0x08, l2=» END;«, l3=0x08}
0x22a2…22cc Line {l1=0x28, l2=» IF CURRFUNC IN (.SLET,GEMPOST.) THEN«, l3=0x28}
0x22cc…2319 Line {l1=0x4b, l2=» IF FILES(CURRHEAD).STATUS=XCLUSIV THEN FILES(CURRHEAD).STATUS:=SKRIV«, l3=0x4b}
0x2319…2320 Line {l1=0x05, l2=» END«, l3=0x05}
0x2320…2326 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2326…232e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x232e…2335 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2335…2356 Line {l1=0x1f, l2=» WITH USER(CURRUSER) DO «, l3=0x1f}
0x2356…235f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x235f…238b Line {l1=0x2a, l2=»(*PAS PÅ DATASTRUKTUR NÅR OBEY MISLYKKES*)«, l3=0x2a}
0x238b…23a2 Line {l1=0x15, l2=» CASE PROGRAMNR OF«, l3=0x15}
0x23a2…23b9 Line {l1=0x15, l2=» -1:IF CURRFUNC IN«, l3=0x15}
0x23b9…2409 Line {l1=0x4e, l2=» (.ÅBEN..INITIER,UAFMELD..PAFMELD,RETURNHEAD,RETURNSTAT.) THEN IER:=-22;«, l3=0x4e}
0x2409…2459 Line {l1=0x4e, l2=» 0:IF CURRFUNC IN «, l3=0x4e}
0x2459…24a0 Line {l1=0x45, l2=» (.ÅBEN..INITIER,PAFMELD,RETURNHEAD,RETURNSTAT.) THEN IER:=-24 «, l3=0x45}
0x24a0…24e0 Line {l1=0x3e, l2=» ELSE IF CURRFUNC IN (.UTILMELD,STOPSYS.) THEN IER:=-21 «, l3=0x3e}
0x24e0…24ef Line {l1=0x0d, l2=» OTHERWISE«, l3=0x0d}
0x24ef…2534 Line {l1=0x43, l2=» IF CURRFUNC IN (.UTILMELD..PTILMELD,STOPSYS.) THEN IER:=-23;«, l3=0x43}
0x2534…2554 Line {l1=0x1e, l2=» IF IER<>0 THEN EXIT(OBEY);«, l3=0x1e}
0x2554…2557 Line {l1=0x01, l2=» «, l3=0x01}
0x2557…258c Line {l1=0x33, l2=» IF CURRFUNC IN (.LUK..INITIER,RETURNHEAD.) THEN«, l3=0x33}
0x258c…25d8 Line {l1=0x4a, l2=» IF FILES(CURRHEAD).STATUS=LUKKET THEN BEGIN IER:=-3;EXIT(OBEY) END;«, l3=0x4a}
0x25d8…25df Line {l1=0x05, l2=» «, l3=0x05}
0x25df…261b Line {l1=0x3a, l2=» IF CURRFUNC IN (.LÆSPOSTX,NÆSTEX,INDSÆT,INITIER.) THEN«, l3=0x3a}
0x261b…2665 Line {l1=0x48, l2=» IF FILES(CURRHEAD).STATUS=LÆS THEN BEGIN IER:=-30;EXIT(OBEY) END;«, l3=0x48}
0x2665…2668 Line {l1=0x01, l2=» «, l3=0x01}
0x2668…2698 Line {l1=0x2e, l2=» IF CURRFUNC IN (.SLET,SLETX,GEMPOST.) THEN«, l3=0x2e}
0x2698…26dd Line {l1=0x43, l2=» IF NOT (FILES(CURRHEAD).STATUS IN (.XCLUSIV,XXCLUSIV.)) THEN«, l3=0x43}
0x26dd…26eb Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x26eb…26ff Line {l1=0x12, l2=» IER:=-32;«, l3=0x12}
0x26ff…2714 Line {l1=0x13, l2=» EXIT(OBEY)«, l3=0x13}
0x2714…2721 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x2721…2724 Line {l1=0x01, l2=» «, l3=0x01}
0x2724…2774 Line {l1=0x4e, l2=» CASE CURRFUNC OF «, l3=0x4e}
0x2774…2786 Line {l1=0x10, l2=» ÅBEN:OUVRIR;«, l3=0x10}
0x2786…2798 Line {l1=0x10, l2=» LUK :FERMEZ;«, l3=0x10}
0x2798…27b4 Line {l1=0x1a, l2=» LÆSPOST,LÆSPOSTX:REED;«, l3=0x1a}
0x27b4…27cd Line {l1=0x17, l2=» NÆSTE,NÆSTEX:NÆKST;«, l3=0x17}
0x27cd…27ee Line {l1=0x1f, l2=» SLET,SLETX,GEMPOST:ERASAVE;«, l3=0x1f}
0x27ee…27f1 Line {l1=0x01, l2=» «, l3=0x01}
0x27f1…2815 Line {l1=0x22, l2=» INDSÆT:WITH FILES(CURRHEAD) DO«, l3=0x22}
0x2815…2827 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x2827…283c Line {l1=0x13, l2=» UDFØR;«, l3=0x13}
0x283c…285e Line {l1=0x20, l2=» PEXTRACT(KEYSTART);«, l3=0x20}
0x285e…2891 Line {l1=0x31, l2=» IF STATUS=XCLUSIV THEN STATUS:=SKRIV«, l3=0x31}
0x2891…28a2 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x28a2…28a5 Line {l1=0x01, l2=» «, l3=0x01}
0x28a5…28b8 Line {l1=0x11, l2=» INITIER:BEGIN«, l3=0x11}
0x28b8…28da Line {l1=0x20, l2=» IREC:=BESKED.IREC;«, l3=0x20}
0x28da…28ef Line {l1=0x13, l2=» UDFØR«, l3=0x13}
0x28ef…2901 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2901…2904 Line {l1=0x01, l2=» «, l3=0x01}
0x2904…2954 Line {l1=0x4e, l2=» UTILMELD: «, l3=0x4e}
0x2954…29a4 Line {l1=0x4e, l2=» BEGIN «, l3=0x4e}
0x29a4…29e5 Line {l1=0x3f, l2=» PROGRAMNR:=0; «, l3=0x3f}
0x29e5…2a07 Line {l1=0x20, l2=» IF NROFUSERS=MAXUSERS THEN«, l3=0x20}
0x2a07…2a14 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2a14…2a27 Line {l1=0x11, l2=» IER:=-34;«, l3=0x11}
0x2a27…2a3b Line {l1=0x12, l2=» EXIT(OBEY)«, l3=0x12}
0x2a3b…2a47 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2a47…2a97 Line {l1=0x4e, l2=» NROFUSERS:=NROFUSERS+1 «, l3=0x4e}
0x2a97…2aa1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2aa1…2aa4 Line {l1=0x01, l2=» «, l3=0x01}
0x2aa4…2af4 Line {l1=0x4e, l2=» UAFMELD: «, l3=0x4e}
0x2af4…2b44 Line {l1=0x4e, l2=» BEGIN «, l3=0x4e}
0x2b44…2b85 Line {l1=0x3f, l2=» PROGRAMNR:=-1; «, l3=0x3f}
0x2b85…2bd5 Line {l1=0x4e, l2=» NROFUSERS:=NROFUSERS-1; «, l3=0x4e}
0x2bd5…2c17 Line {l1=0x40, l2=» FOR CURRHEAD:=1 TO MAXOPENFILES DO WITH FILES(CURRHEAD) DO«, l3=0x40}
0x2c17…2c67 Line {l1=0x4e, l2=» IF STATUS<>LUKKET THEN «, l3=0x4e}
0x2c67…2cb1 Line {l1=0x48, l2=» BEGIN «, l3=0x48}
0x2cb1…2cfb Line {l1=0x48, l2=» STATUS:=LUKKET; «, l3=0x48}
0x2cfb…2d0e Line {l1=0x11, l2=» RELEASKEY«, l3=0x11}
0x2d0e…2d58 Line {l1=0x48, l2=» END «, l3=0x48}
0x2d58…2d62 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2d62…2d65 Line {l1=0x01, l2=» «, l3=0x01}
0x2d65…2d8b Line {l1=0x24, l2=» PTILMELD:PROGRAMNR:=BESKED.INFO;«, l3=0x24}
0x2d8b…2d8e Line {l1=0x01, l2=» «, l3=0x01}
0x2d8e…2da9 Line {l1=0x19, l2=» PAFMELD:PROGRAMNR:=0;«, l3=0x19}
0x2da9…2dac Line {l1=0x01, l2=» «, l3=0x01}
0x2dac…2dbf Line {l1=0x11, l2=» STOPSYS:BEGIN«, l3=0x11}
0x2dbf…2df2 Line {l1=0x31, l2=» IF BESKED.INFO=1 THEN NROFUSERS:=0;«, l3=0x31}
0x2df2…2e11 Line {l1=0x1d, l2=» IER:=NROFUSERS «, l3=0x1d}
0x2e11…2e23 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2e23…2e26 Line {l1=0x01, l2=» «, l3=0x01}
0x2e26…2e40 Line {l1=0x18, l2=» RETURNHEAD:RETURNEZ;«, l3=0x18}
0x2e40…2e47 Line {l1=0x05, l2=» «, l3=0x05}
0x2e47…2e58 Line {l1=0x0f, l2=» RETURNSTAT:«, l3=0x0f}
0x2e58…2e63 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2e63…2e8d Line {l1=0x28, l2=» REC^(1):=USER(STATUSER).PROGRAMNR;«, l3=0x28}
0x2e8d…2eb3 Line {l1=0x24, l2=» FOR CURRFILE:=1 TO MAXFILES DO«, l3=0x24}
0x2eb3…2ef7 Line {l1=0x42, l2=» IF HEADBASE(CURRFILE)=0 THEN REC^(CURRFILE+1):=ORD(LUKKET)«, l3=0x42}
0x2ef7…2f06 Line {l1=0x0d, l2=» ELSE «, l3=0x0d}
0x2f06…2f56 Line {l1=0x4e, l2=» REC^(CURRFILE+1):=ORD(USER(STATUSER).FILES(HEADBASE(CURRFILE)).STATUS)«, l3=0x4e}
0x2f56…2f60 Line {l1=0x08, l2=» END «, l3=0x08}
0x2f60…2f63 Line {l1=0x01, l2=» «, l3=0x01}
0x2f63…2f7e Line {l1=0x19, l2=» END (*CASE CURRFUNC*)«, l3=0x19}
0x2f7e…2f88 Line {l1=0x08, l2=» END «, l3=0x08}
0x2f88…2f8e Line {l1=0x04, l2=»END;«, l3=0x04}
0x2f8e…2fa0 00 00 28 53 54 41 54 55 53 45 52 29 2e 46 49 4c 45 53 ┆ (STATUSER).FILES┆
0x2fa0…2fc0 28 48 45 41 44 42 41 53 45 28 43 55 52 52 46 49 4c 45 29 29 2e 53 54 41 54 55 53 29 4e 08 20 20 ┆(HEADBASE(CURRFILE)).STATUS)N ┆
0x2fc0…2fe0 20 20 45 4e 44 20 08 01 20 01 19 20 20 20 20 45 4e 44 20 28 2a 43 41 53 45 20 43 55 52 52 46 55 ┆ END END (*CASE CURRFU┆
0x2fe0…3000 4e 43 2a 29 19 08 20 20 45 4e 44 20 20 20 08 04 45 4e 44 3b 04 00 00 43 55 52 52 46 49 4c 45 29 ┆NC*) END END; CURRFILE)┆
0x3000…3020 29 2e 53 54 41 54 55 53 29 4e 08 20 20 20 20 45 4e 44 20 08 01 20 01 19 20 20 20 20 45 4e 44 20 ┆).STATUS)N END END ┆
0x3020…3040 28 2a 43 41 53 45 20 43 55 52 52 46 55 4e 43 2a 29 19 08 20 20 45 4e 44 20 20 20 08 04 45 4e 44 ┆(*CASE CURRFUNC*) END END┆
0x3040…3060 3b 04 00 00 20 20 20 4b 45 59 28 4b 45 59 53 54 41 52 54 29 3a 3d 41 56 41 49 4c 4b 45 59 3b 20 ┆; KEY(KEYSTART):=AVAILKEY; ┆
0x3060…3080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3080…30a0 20 20 20 20 20 48 48 20 20 20 20 20 20 20 20 20 20 4b 45 59 28 4b 45 59 53 54 41 52 54 2b 31 29 ┆ HH KEY(KEYSTART+1)┆
0x30a0…30c0 3a 3d 46 49 4c 45 48 45 41 44 28 43 55 52 52 48 45 41 44 29 2e 4b 45 59 53 49 5a 45 20 20 20 20 ┆:=FILEHEAD(CURRHEAD).KEYSIZE ┆
0x30c0…30e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 48 20 20 20 20 20 20 20 20 45 4e 44 20 20 20 20 ┆ HH END ┆
0x30e0…3100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3100…3120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 48 20 20 20 20 20 ┆ HH ┆
0x3120…3140 20 20 20 45 4c 53 45 20 4b 45 59 28 4b 45 59 53 54 41 52 54 29 3a 3d 2d 41 56 41 49 4c 4b 45 59 ┆ ELSE KEY(KEYSTART):=-AVAILKEY┆
0x3140…3160 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ┆
0x3160…3180 20 20 20 48 48 20 20 20 20 20 20 20 20 41 56 41 49 4c 4b 45 59 3a 3d 4b 45 59 53 54 41 52 54 3b ┆ HH AVAILKEY:=KEYSTART;┆
0x3180…31a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x31a0…31c0 20 20 20 20 20 20 20 20 20 20 20 20 20 48 13 20 20 20 20 20 20 20 20 4b 45 59 53 54 41 52 54 3a ┆ H KEYSTART:┆
0x31c0…31e0 3d 30 13 48 20 20 20 20 20 20 45 4e 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=0 H END ┆
0x31e0…3200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3200…3220 20 20 20 20 20 20 20 20 20 20 20 20 48 08 20 20 20 20 45 4e 44 3b 08 01 20 01 24 20 20 20 20 50 ┆ H END; $ P┆
0x3220…3240 54 49 4c 4d 45 4c 44 3a 50 52 4f 47 52 41 4d 4e 52 3a 3d 42 45 53 4b 45 44 2e 49 4e 46 4f 3b 24 ┆TILMELD:PROGRAMNR:=BESKED.INFO;$┆
0x3240…3260 01 20 01 19 20 20 20 20 50 41 46 4d 45 4c 44 3a 50 52 4f 47 52 41 4d 4e 52 3a 3d 30 3b 19 01 20 ┆ PAFMELD:PROGRAMNR:=0; ┆
0x3260…3280 01 11 20 20 20 20 53 54 4f 50 53 59 53 3a 42 45 47 49 4e 11 31 20 20 20 20 20 20 20 20 20 20 20 ┆ STOPSYS:BEGIN 1 ┆
0x3280…32a0 20 20 20 49 46 20 42 45 53 4b 45 44 2e 49 4e 46 4f 3d 31 20 54 48 45 4e 20 4e 52 4f 46 55 53 45 ┆ IF BESKED.INFO=1 THEN NROFUSE┆
0x32a0…32c0 52 53 3a 3d 30 3b 31 1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 45 52 3a 3d 4e 52 4f 46 55 ┆RS:=0;1 IER:=NROFU┆
0x32c0…32e0 53 45 52 53 20 1d 10 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 10 01 20 01 18 20 20 20 20 ┆SERS END; ┆
0x32e0…3300 52 45 54 55 52 4e 48 45 41 44 3a 52 45 54 55 52 4e 45 5a 3b 18 05 20 20 20 20 20 05 0f 20 20 20 ┆RETURNHEAD:RETURNEZ; ┆
0x3300…3320 20 52 45 54 55 52 4e 53 54 41 54 3a 0f 09 20 20 20 20 42 45 47 49 4e 09 28 20 20 20 20 20 20 52 ┆ RETURNSTAT: BEGIN ( R┆
0x3320…3340 45 43 5e 28 31 29 3a 3d 55 53 45 52 28 53 54 41 54 55 53 45 52 29 2e 50 52 4f 47 52 41 4d 4e 52 ┆EC^(1):=USER(STATUSER).PROGRAMNR┆
0x3340…3360 3b 28 24 20 20 20 20 20 20 46 4f 52 20 43 55 52 52 46 49 4c 45 3a 3d 31 20 54 4f 20 4d 41 58 46 ┆;($ FOR CURRFILE:=1 TO MAXF┆
0x3360…3380 49 4c 45 53 20 44 4f 24 42 20 20 20 20 20 20 20 20 49 46 20 48 45 41 44 42 41 53 45 28 43 55 52 ┆ILES DO$B IF HEADBASE(CUR┆
0x3380…33a0 52 46 49 4c 45 29 3d 30 20 54 48 45 4e 20 52 45 43 5e 28 43 55 52 52 46 49 4c 45 2b 31 29 3a 3d ┆RFILE)=0 THEN REC^(CURRFILE+1):=┆
0x33a0…33c0 4f 52 44 28 4c 55 4b 4b 45 54 29 42 0d 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 4e 20 20 20 20 ┆ORD(LUKKET)B ELSE N ┆
0x33c0…33e0 20 20 20 20 52 45 43 5e 28 43 55 52 52 46 49 4c 45 2b 31 29 3a 3d 4f 52 44 28 55 53 45 52 28 53 ┆ REC^(CURRFILE+1):=ORD(USER(S┆
0x33e0…3400 54 41 54 55 53 45 52 29 2e 46 49 4c 45 53 28 48 45 41 44 42 41 53 45 28 43 55 52 52 46 49 4c 45 ┆TATUSER).FILES(HEADBASE(CURRFILE┆
0x3400…3420 29 29 2e 53 54 41 54 55 53 29 4e 08 20 20 20 20 45 4e 44 20 08 01 20 01 19 20 20 20 20 45 4e 44 ┆)).STATUS)N END END┆
0x3420…3440 20 28 2a 43 41 53 45 20 43 55 52 52 46 55 4e 43 2a 29 19 08 20 20 45 4e 44 20 20 20 08 04 45 4e ┆ (*CASE CURRFUNC*) END EN┆
0x3440…3460 44 3b 04 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆D; ccccccccccccccccccccccccccc┆
0x3460…3480 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x3540…3560 dc 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x3560…3580 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]