|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »SØGPOST.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »SØGPOST.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »SØGPOST.K«
PROCEDURE SÆTHÆGTE;
BEGIN
CASE HÆGTER(HNR)^.FELTTYPE OF (*$R-*)
HELTAL :HÆGTEREC(HNR).A(1):=POST.A(HÆGTER(HNR)^.INDEKS);
DOBBTAL:BEGIN
HÆGTEREC(HNR).A(1):=POST.A(HÆGTER(HNR)^.INDEKS);
HÆGTEREC(HNR).A(2):=POST.A(HÆGTER(HNR)^.INDEKS+1)
END;
TEKST :FOR HINDEKS:=1 TO HÆGTER(HNR)^.FORAN0 DO
HÆGTEREC(HNR).AA(HINDEKS):=POST.AA(HÆGTER(HNR)^.INDEKS-1+HINDEKS)
END (*$R+*)
END;
(*$P*)
PROCEDURE SÆTNØGLE;
BEGIN
CASE HÆGTER(HNR)^.FELTTYPE OF
HELTAL :HINDEKS:=1;
DOBBTAL:HINDEKS:=2;
TEKST :HINDEKS:=HÆGTER(HNR)^.FORAN0 DIV 2
END;
FOR NØGLENR:=1 TO ANTALNØGLER DO
IF NØGLER(NØGLENR)^.HÆGTE<>HÆGTER(HNR)^.HÆGTE THEN
CASE NØGLER(NØGLENR)^.FELTTYPE OF
HELTAL :BEGIN (*$R-*)
HINDEKS:=HINDEKS+1;
HÆGTEREC(HNR).A(HINDEKS):=POST.A(NØGLER(NØGLENR)^.INDEKS)
END;
DOBBTAL:BEGIN
HINDEKS:=HINDEKS+1;
HÆGTEREC(HNR).A(HINDEKS):=POST.A(NØGLER(NØGLENR)^.INDEKS);
HÆGTEREC(HNR).A(HINDEKS+1):=POST.A(NØGLER(NØGLENR)^.INDEKS+1);
HINDEKS:=HINDEKS+1
END;
TEKST :BEGIN
HINDEKS:=2*HINDEKS;
FOR I:=1 TO NØGLER(NØGLENR)^.LÆNGDE DO
HÆGTEREC(HNR).AA(HINDEKS+I):=POST.AA(NØGLER(NØGLENR)^.INDEKS-1+I);
HINDEKS:=(HINDEKS+NØGLER(NØGLENR)^.LÆNGDE) DIV 2
END (*$R+*)
END
END;
(*$P*)
PROCEDURE OMVNØGLE;
BEGIN
CASE HÆGTER(HNR)^.FELTTYPE OF
HELTAL :BEGIN
HINDEKS:=1; (*$R-*)
POST.A(HÆGTER(HNR)^.INDEKS):=HÆGTEREC(HNR).A(1);
END;
DOBBTAL:BEGIN
HINDEKS:=2;
POST.A(HÆGTER(HNR)^.INDEKS):=HÆGTEREC(HNR).A(1);
POST.A(HÆGTER(HNR)^.INDEKS+1):=HÆGTEREC(HNR).A(2)
END;
TEKST :BEGIN
FOR HINDEKS:=1 TO HÆGTER(HNR)^.FORAN0 DO
POST.AA(HÆGTER(HNR)^.INDEKS-1+HINDEKS):=HÆGTEREC(HNR).AA(HINDEKS);
HINDEKS:=HÆGTER(HNR)^.FORAN0 DIV 2 (*$R+*)
END;
END;
FOR NØGLENR:=1 TO ANTALNØGLER DO
IF NØGLER(NØGLENR)^.HÆGTE<>HÆGTER(HNR)^.HÆGTE THEN
CASE NØGLER(NØGLENR)^.FELTTYPE OF
HELTAL :BEGIN (*$R-*)
HINDEKS:=HINDEKS+1;
POST.A(NØGLER(NØGLENR)^.INDEKS):=HÆGTEREC(HNR).A(HINDEKS)
END;
DOBBTAL:BEGIN
HINDEKS:=HINDEKS+1;
POST.A(NØGLER(NØGLENR)^.INDEKS):=HÆGTEREC(HNR).A(HINDEKS);
POST.A(NØGLER(NØGLENR)^.INDEKS+1):=HÆGTEREC(HNR).A(HINDEKS+1);
HINDEKS:=HINDEKS+1
END;
TEKST :BEGIN
HINDEKS:=2*HINDEKS;
FOR I:=1 TO NØGLER(NØGLENR)^.LÆNGDE DO
POST.AA(NØGLER(NØGLENR)^.INDEKS-1+I):=HÆGTEREC(HNR).AA(HINDEKS+I);
HINDEKS:=(HINDEKS+NØGLER(NØGLENR)^.LÆNGDE) DIV 2
END (*$R+*)
END
END;
(*$P*)
PROCEDURE SØGPOST;
VAR LINIE:INTEGER;
FOUND:BOOLEAN;
HUSKHÆGT:ARRAY (1..20) OF HPOST;
(*$P*)
FUNCTION CHECKHÆGT:BOOLEAN;
VAR I:INTEGER;
BEGIN
CHECKHÆGT:=TRUE; (*$R-*)
CASE HÆGTER(HNR)^.FELTTYPE OF
HELTAL :CHECKHÆGT:=(HÆGTEREC(HNR).A(1)=POST.A(HÆGTER(HNR)^.INDEKS));
DOBBTAL:CHECKHÆGT:=((HÆGTEREC(HNR).A(1)=POST.A(HÆGTER(HNR)^.INDEKS)) AND
(HÆGTEREC(HNR).A(2)=POST.A(HÆGTER(HNR)^.INDEKS+1)));
TEKST :FOR I:=1 TO HÆGTER(HNR)^.FORAN0 DO
IF HÆGTEREC(HNR).AA(I)<>POST.AA(HÆGTER(HNR)^.INDEKS-1+I) THEN
CHECKHÆGT:=FALSE
END (*$R+*)
END;
(*$P*)
PROCEDURE SKRIVHÆGT;
VAR I:INTEGER;
BEGIN
IF LINIE=0 THEN
BEGIN
CLEARSCREEN;
WRITE('Nr ');
FOR I:=1 TO ANTALHÆGTER DO WRITE(HÆGTER(I)^.LEDETEKST,
' ':HÆGTER(I)^.LÆNGDE-LENGTH(HÆGTER(I)^.LEDETEKST)+1);
FOR I:=1 TO ANTALIDENT DO WRITE(IDENT(I)^.LEDETEKST,
' ':IDENT(I)^.LÆNGDE)
END;
LINIE:=LINIE+1;
HUSKHÆGT(LINIE):=HÆGTEREC(HNR);
GOTOXY(1,LINIE+1);
WRITE(LINIE:3,' ':3);
FOR I:=1 TO ANTALHÆGTER DO
BEGIN
MOVETOLINE(HÆGTER(I));
WRITE(' ',LINE,' ':HÆGTER(I)^.LÆNGDE-LENGTH(LINE))
END;
FOR I:=1 TO ANTALIDENT DO
BEGIN
MOVETOLINE(IDENT(I));
WRITE(LINE)
END
END;
(*$P*)
PROCEDURE VÆLG;
VAR I:INTEGER;
BEGIN
REPEAT
I:=-2;
GOTOXY(1,23);
WRITE('Tast: 0 for færdig, RETURN for flere eller valgt NR ');
READLN;
IF EOLN THEN
I:=-1
ELSE
READ(I)
UNTIL (I>=-1) AND (I<=LINIE);
IF I>=0 THEN
BEGIN
FOUND:=TRUE;
IF I>0 THEN
BEGIN
HÆGTEREC(HNR):=HUSKHÆGT(I);
OMVNØGLE;
CH:='R';
IF OPTION IN (.1,5.) THEN
GETRECX(POST.A)
ELSE
GETREC(POST.A);
IF IER<>0 THEN ERROR(POST.A);
SKRIVPOST
END;
END;
LINIE:=0
END;
(*$P*)
BEGIN (*SØGPOST*)
WRITELN('Søgning via');
WRITELN(' ':10,' 0 ',NØGLER(1)^.LEDETEKST);
FOR HNR:=1 TO ANTALHÆGTER DO
WRITELN(' ':10,HNR:3,' ',HÆGTER(HNR)^.LEDETEKST);
REPEAT
GOTOXY(1,23);
WRITE('Vælg 0-',ANTALHÆGTER,' ');
READLN;IF EOLN THEN HNR:=0
ELSE READ(HNR)
UNTIL (IORESULT=0) AND (HNR>=0) AND (HNR<=ANTALHÆGTER);
IF HNR>0 THEN
BEGIN
HÆGTSØG:=TRUE;
CLEARSCREEN;
LÆSFELT(HÆGTER(HNR));
USERNIVEAU:=HUSKNIV;
SÆTHÆGTE;
SÆTNØGLE;
LINIE:=0;
FOUND:=FALSE;
CH:='S';
REPEAT
NEXTREC(HÆGTEREC(HNR).A);
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(HÆGTEREC(HNR).A);
IF IER=-1 THEN IER:=0;
IF (IER=0) AND CHECKHÆGT THEN
BEGIN
OMVNØGLE;
GETREC(POST.A);
IF IER<>0 THEN ERROR(POST.A);
SKRIVHÆGT;
IF LINIE=20 THEN VÆLG
END
ELSE
BEGIN
IF LINIE>0 THEN VÆLG;
FOUND:=TRUE
END
UNTIL FOUND;
END
END;
(*$P*)
0x0000…0015 Line {l1=0x13, l2=»PROCEDURE SÆTHÆGTE;«, l3=0x13}
0x0015…001c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x001c…0066 Line {l1=0x48, l2=» CASE HÆGTER(HNR)^.FELTTYPE OF (*$R-*)«, l3=0x48}
0x0066…00a2 Line {l1=0x3a, l2=» HELTAL :HÆGTEREC(HNR).A(1):=POST.A(HÆGTER(HNR)^.INDEKS);«, l3=0x3a}
0x00a2…00b3 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x00b3…00f1 Line {l1=0x3c, l2=» HÆGTEREC(HNR).A(1):=POST.A(HÆGTER(HNR)^.INDEKS);«, l3=0x3c}
0x00f1…0131 Line {l1=0x3e, l2=» HÆGTEREC(HNR).A(2):=POST.A(HÆGTER(HNR)^.INDEKS+1) «, l3=0x3e}
0x0131…0141 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0141…0175 Line {l1=0x32, l2=» TEKST :FOR HINDEKS:=1 TO HÆGTER(HNR)^.FORAN0 DO«, l3=0x32}
0x0175…01c2 Line {l1=0x4b, l2=» HÆGTEREC(HNR).AA(HINDEKS):=POST.AA(HÆGTER(HNR)^.INDEKS-1+HINDEKS)«, l3=0x4b}
0x01c2…020c Line {l1=0x48, l2=» END (*$R+*)«, l3=0x48}
0x020c…0212 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0212…021a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x021a…022f Line {l1=0x13, l2=»PROCEDURE SÆTNØGLE;«, l3=0x13}
0x022f…0236 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0236…0263 Line {l1=0x2b, l2=» CASE HÆGTER(HNR)^.FELTTYPE OF «, l3=0x2b}
0x0263…027a Line {l1=0x15, l2=» HELTAL :HINDEKS:=1;«, l3=0x15}
0x027a…0291 Line {l1=0x15, l2=» DOBBTAL:HINDEKS:=2;«, l3=0x15}
0x0291…02bf Line {l1=0x2c, l2=» TEKST :HINDEKS:=HÆGTER(HNR)^.FORAN0 DIV 2«, l3=0x2c}
0x02bf…02c7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x02c7…02eb Line {l1=0x22, l2=» FOR NØGLENR:=1 TO ANTALNØGLER DO«, l3=0x22}
0x02eb…0321 Line {l1=0x34, l2=» IF NØGLER(NØGLENR)^.HÆGTE<>HÆGTER(HNR)^.HÆGTE THEN«, l3=0x34}
0x0321…0346 Line {l1=0x23, l2=» CASE NØGLER(NØGLENR)^.FELTTYPE OF«, l3=0x23}
0x0346…0393 Line {l1=0x4b, l2=» HELTAL :BEGIN (*$R-*) «, l3=0x4b}
0x0393…03b4 Line {l1=0x1f, l2=» HINDEKS:=HINDEKS+1;«, l3=0x1f}
0x03b4…03fb Line {l1=0x45, l2=» HÆGTEREC(HNR).A(HINDEKS):=POST.A(NØGLER(NØGLENR)^.INDEKS)«, l3=0x45}
0x03fb…040b Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x040b…041c Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x041c…043d Line {l1=0x1f, l2=» HINDEKS:=HINDEKS+1;«, l3=0x1f}
0x043d…0485 Line {l1=0x46, l2=» HÆGTEREC(HNR).A(HINDEKS):=POST.A(NØGLER(NØGLENR)^.INDEKS);«, l3=0x46}
0x0485…04d1 Line {l1=0x4a, l2=» HÆGTEREC(HNR).A(HINDEKS+1):=POST.A(NØGLER(NØGLENR)^.INDEKS+1);«, l3=0x4a}
0x04d1…04f1 Line {l1=0x1e, l2=» HINDEKS:=HINDEKS+1«, l3=0x1e}
0x04f1…0501 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0501…0512 Line {l1=0x0f, l2=» TEKST :BEGIN«, l3=0x0f}
0x0512…0533 Line {l1=0x1f, l2=» HINDEKS:=2*HINDEKS;«, l3=0x1f}
0x0533…0567 Line {l1=0x32, l2=» FOR I:=1 TO NØGLER(NØGLENR)^.LÆNGDE DO«, l3=0x32}
0x0567…05b7 Line {l1=0x4e, l2=» HÆGTEREC(HNR).AA(HINDEKS+I):=POST.AA(NØGLER(NØGLENR)^.INDEKS-1+I);«, l3=0x4e}
0x05b7…05f5 Line {l1=0x3c, l2=» HINDEKS:=(HINDEKS+NØGLER(NØGLENR)^.LÆNGDE) DIV 2«, l3=0x3c}
0x05f5…063f Line {l1=0x48, l2=» END (*$R+*)«, l3=0x48}
0x063f…0646 Line {l1=0x05, l2=» END«, l3=0x05}
0x0646…064c Line {l1=0x04, l2=»END;«, l3=0x04}
0x064c…0654 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0654…0669 Line {l1=0x13, l2=»PROCEDURE OMVNØGLE;«, l3=0x13}
0x0669…0670 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0670…069d Line {l1=0x2b, l2=» CASE HÆGTER(HNR)^.FELTTYPE OF «, l3=0x2b}
0x069d…06ae Line {l1=0x0f, l2=» HELTAL :BEGIN«, l3=0x0f}
0x06ae…06f8 Line {l1=0x48, l2=» HINDEKS:=1; (*$R-*)«, l3=0x48}
0x06f8…0738 Line {l1=0x3e, l2=» POST.A(HÆGTER(HNR)^.INDEKS):=HÆGTEREC(HNR).A(1); «, l3=0x3e}
0x0738…0748 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0748…0759 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x0759…0772 Line {l1=0x17, l2=» HINDEKS:=2;«, l3=0x17}
0x0772…07b2 Line {l1=0x3e, l2=» POST.A(HÆGTER(HNR)^.INDEKS):=HÆGTEREC(HNR).A(1); «, l3=0x3e}
0x07b2…07f4 Line {l1=0x40, l2=» POST.A(HÆGTER(HNR)^.INDEKS+1):=HÆGTEREC(HNR).A(2) «, l3=0x40}
0x07f4…0804 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0804…0815 Line {l1=0x0f, l2=» TEKST :BEGIN«, l3=0x0f}
0x0815…084b Line {l1=0x34, l2=» FOR HINDEKS:=1 TO HÆGTER(HNR)^.FORAN0 DO«, l3=0x34}
0x084b…089b Line {l1=0x4e, l2=» POST.AA(HÆGTER(HNR)^.INDEKS-1+HINDEKS):=HÆGTEREC(HNR).AA(HINDEKS); «, l3=0x4e}
0x089b…08e5 Line {l1=0x48, l2=» HINDEKS:=HÆGTER(HNR)^.FORAN0 DIV 2 (*$R+*)«, l3=0x48}
0x08e5…08f5 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x08f5…08fd Line {l1=0x06, l2=» END;«, l3=0x06}
0x08fd…0921 Line {l1=0x22, l2=» FOR NØGLENR:=1 TO ANTALNØGLER DO«, l3=0x22}
0x0921…0957 Line {l1=0x34, l2=» IF NØGLER(NØGLENR)^.HÆGTE<>HÆGTER(HNR)^.HÆGTE THEN«, l3=0x34}
0x0957…097c Line {l1=0x23, l2=» CASE NØGLER(NØGLENR)^.FELTTYPE OF«, l3=0x23}
0x097c…09c9 Line {l1=0x4b, l2=» HELTAL :BEGIN (*$R-*) «, l3=0x4b}
0x09c9…09ea Line {l1=0x1f, l2=» HINDEKS:=HINDEKS+1;«, l3=0x1f}
0x09ea…0a33 Line {l1=0x47, l2=» POST.A(NØGLER(NØGLENR)^.INDEKS):=HÆGTEREC(HNR).A(HINDEKS) «, l3=0x47}
0x0a33…0a43 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0a43…0a54 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x0a54…0a75 Line {l1=0x1f, l2=» HINDEKS:=HINDEKS+1;«, l3=0x1f}
0x0a75…0abe Line {l1=0x47, l2=» POST.A(NØGLER(NØGLENR)^.INDEKS):=HÆGTEREC(HNR).A(HINDEKS); «, l3=0x47}
0x0abe…0b0c Line {l1=0x4c, l2=» POST.A(NØGLER(NØGLENR)^.INDEKS+1):=HÆGTEREC(HNR).A(HINDEKS+1); «, l3=0x4c}
0x0b0c…0b2c Line {l1=0x1e, l2=» HINDEKS:=HINDEKS+1«, l3=0x1e}
0x0b2c…0b3c Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0b3c…0b4d Line {l1=0x0f, l2=» TEKST :BEGIN«, l3=0x0f}
0x0b4d…0b6e Line {l1=0x1f, l2=» HINDEKS:=2*HINDEKS;«, l3=0x1f}
0x0b6e…0ba2 Line {l1=0x32, l2=» FOR I:=1 TO NØGLER(NØGLENR)^.LÆNGDE DO«, l3=0x32}
0x0ba2…0bf2 Line {l1=0x4e, l2=» POST.AA(NØGLER(NØGLENR)^.INDEKS-1+I):=HÆGTEREC(HNR).AA(HINDEKS+I);«, l3=0x4e}
0x0bf2…0c30 Line {l1=0x3c, l2=» HINDEKS:=(HINDEKS+NØGLER(NØGLENR)^.LÆNGDE) DIV 2«, l3=0x3c}
0x0c30…0c7a Line {l1=0x48, l2=» END (*$R+*)«, l3=0x48}
0x0c7a…0c81 Line {l1=0x05, l2=» END«, l3=0x05}
0x0c81…0c87 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c87…0c8f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0c8f…0ca3 Line {l1=0x12, l2=»PROCEDURE SØGPOST;«, l3=0x12}
0x0ca3…0cb7 Line {l1=0x12, l2=»VAR LINIE:INTEGER;«, l3=0x12}
0x0cb7…0ccb Line {l1=0x12, l2=» FOUND:BOOLEAN;«, l3=0x12}
0x0ccb…0cf1 Line {l1=0x24, l2=» HUSKHÆGT:ARRAY (1..20) OF HPOST;«, l3=0x24}
0x0cf1…0cf9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0cf9…0d16 Line {l1=0x1b, l2=»FUNCTION CHECKHÆGT:BOOLEAN;«, l3=0x1b}
0x0d16…0d26 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0d26…0d2e Line {l1=0x06, l2=»BEGIN «, l3=0x06}
0x0d2e…0d78 Line {l1=0x48, l2=» CHECKHÆGT:=TRUE; (*$R-*)«, l3=0x48}
0x0d78…0d99 Line {l1=0x1f, l2=» CASE HÆGTER(HNR)^.FELTTYPE OF«, l3=0x1f}
0x0d99…0de1 Line {l1=0x46, l2=» HELTAL :CHECKHÆGT:=(HÆGTEREC(HNR).A(1)=POST.A(HÆGTER(HNR)^.INDEKS));«, l3=0x46}
0x0de1…0e2d Line {l1=0x4a, l2=» DOBBTAL:CHECKHÆGT:=((HÆGTEREC(HNR).A(1)=POST.A(HÆGTER(HNR)^.INDEKS)) AND«, l3=0x4a}
0x0e2d…0e79 Line {l1=0x4a, l2=» (HÆGTEREC(HNR).A(2)=POST.A(HÆGTER(HNR)^.INDEKS+1)));«, l3=0x4a}
0x0e79…0ea7 Line {l1=0x2c, l2=» TEKST :FOR I:=1 TO HÆGTER(HNR)^.FORAN0 DO«, l3=0x2c}
0x0ea7…0ef0 Line {l1=0x47, l2=» IF HÆGTEREC(HNR).AA(I)<>POST.AA(HÆGTER(HNR)^.INDEKS-1+I) THEN«, l3=0x47}
0x0ef0…0f0e Line {l1=0x1c, l2=» CHECKHÆGT:=FALSE«, l3=0x1c}
0x0f0e…0f58 Line {l1=0x48, l2=» END (*$R+*)«, l3=0x48}
0x0f58…0f5e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f5e…0f66 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0f66…0f7c Line {l1=0x14, l2=»PROCEDURE SKRIVHÆGT;«, l3=0x14}
0x0f7c…0f8c Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0f8c…0f93 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f93…0fa6 Line {l1=0x11, l2=» IF LINIE=0 THEN«, l3=0x11}
0x0fa6…0faf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0faf…0fc1 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0fc1…0fd5 Line {l1=0x12, l2=» WRITE('Nr ');«, l3=0x12}
0x0fd5…1011 Line {l1=0x3a, l2=» FOR I:=1 TO ANTALHÆGTER DO WRITE(HÆGTER(I)^.LEDETEKST,«, l3=0x3a}
0x1011…1055 Line {l1=0x42, l2=» ' ':HÆGTER(I)^.LÆNGDE-LENGTH(HÆGTER(I)^.LEDETEKST)+1);«, l3=0x42}
0x1055…1090 Line {l1=0x39, l2=» FOR I:=1 TO ANTALIDENT DO WRITE(IDENT(I)^.LEDETEKST, «, l3=0x39}
0x1090…10c6 Line {l1=0x34, l2=» ' ':IDENT(I)^.LÆNGDE)«, l3=0x34}
0x10c6…10ce Line {l1=0x06, l2=» END;«, l3=0x06}
0x10ce…10e1 Line {l1=0x11, l2=» LINIE:=LINIE+1;«, l3=0x11}
0x10e1…1104 Line {l1=0x21, l2=» HUSKHÆGT(LINIE):=HÆGTEREC(HNR);«, l3=0x21}
0x1104…111a Line {l1=0x14, l2=» GOTOXY(1,LINIE+1);«, l3=0x14}
0x111a…1133 Line {l1=0x17, l2=» WRITE(LINIE:3,' ':3);«, l3=0x17}
0x1133…1151 Line {l1=0x1c, l2=» FOR I:=1 TO ANTALHÆGTER DO«, l3=0x1c}
0x1151…115a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x115a…1176 Line {l1=0x1a, l2=» MOVETOLINE(HÆGTER(I));«, l3=0x1a}
0x1176…11ae Line {l1=0x36, l2=» WRITE(' ',LINE,' ':HÆGTER(I)^.LÆNGDE-LENGTH(LINE))«, l3=0x36}
0x11ae…11b6 Line {l1=0x06, l2=» END;«, l3=0x06}
0x11b6…11d3 Line {l1=0x1b, l2=» FOR I:=1 TO ANTALIDENT DO«, l3=0x1b}
0x11d3…11dc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x11dc…11f7 Line {l1=0x19, l2=» MOVETOLINE(IDENT(I));«, l3=0x19}
0x11f7…1208 Line {l1=0x0f, l2=» WRITE(LINE)«, l3=0x0f}
0x1208…1210 Line {l1=0x06, l2=» END «, l3=0x06}
0x1210…1216 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1216…121e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x121e…122f Line {l1=0x0f, l2=»PROCEDURE VÆLG;«, l3=0x0f}
0x122f…123f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x123f…1246 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1246…1250 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1250…125c Line {l1=0x0a, l2=» I:=-2;«, l3=0x0a}
0x125c…126f Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x126f…12b3 Line {l1=0x42, l2=» WRITE('Tast: 0 for færdig, RETURN for flere eller valgt NR ');«, l3=0x42}
0x12b3…12c0 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x12c0…12d2 Line {l1=0x10, l2=» IF EOLN THEN«, l3=0x10}
0x12d2…12df Line {l1=0x0b, l2=» I:=-1«, l3=0x0b}
0x12df…12e9 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x12e9…12f8 Line {l1=0x0d, l2=» READ(I)«, l3=0x0d}
0x12f8…1319 Line {l1=0x1f, l2=» UNTIL (I>=-1) AND (I<=LINIE);«, l3=0x1f}
0x1319…132a Line {l1=0x0f, l2=» IF I>=0 THEN «, l3=0x0f}
0x132a…1333 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1333…1345 Line {l1=0x10, l2=» FOUND:=TRUE;«, l3=0x10}
0x1345…1356 Line {l1=0x0f, l2=» IF I>0 THEN«, l3=0x0f}
0x1356…1361 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1361…1384 Line {l1=0x21, l2=» HÆGTEREC(HNR):=HUSKHÆGT(I);«, l3=0x21}
0x1384…1395 Line {l1=0x0f, l2=» OMVNØGLE;«, l3=0x0f}
0x1395…13a5 Line {l1=0x0e, l2=» CH:='R';«, l3=0x0e}
0x13a5…13c6 Line {l1=0x1f, l2=» IF OPTION IN (.1,5.) THEN«, l3=0x1f}
0x13c6…13df Line {l1=0x17, l2=» GETRECX(POST.A)«, l3=0x17}
0x13df…13eb Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x13eb…1404 Line {l1=0x17, l2=» GETREC(POST.A);«, l3=0x17}
0x1404…1429 Line {l1=0x23, l2=» IF IER<>0 THEN ERROR(POST.A);«, l3=0x23}
0x1429…143b Line {l1=0x10, l2=» SKRIVPOST «, l3=0x10}
0x143b…1445 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1445…144d Line {l1=0x06, l2=» END;«, l3=0x06}
0x144d…1459 Line {l1=0x0a, l2=» LINIE:=0«, l3=0x0a}
0x1459…145f Line {l1=0x04, l2=»END;«, l3=0x04}
0x145f…1467 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1467…147a Line {l1=0x11, l2=»BEGIN (*SØGPOST*)«, l3=0x11}
0x147a…1495 Line {l1=0x19, l2=» WRITELN('Søgning via');«, l3=0x19}
0x1495…14c5 Line {l1=0x2e, l2=» WRITELN(' ':10,' 0 ',NØGLER(1)^.LEDETEKST);«, l3=0x2e}
0x14c5…14e5 Line {l1=0x1e, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x1e}
0x14e5…151c Line {l1=0x35, l2=» WRITELN(' ':10,HNR:3,' ',HÆGTER(HNR)^.LEDETEKST);«, l3=0x35}
0x151c…1526 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1526…1539 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x1539…1560 Line {l1=0x25, l2=» WRITE('Vælg 0-',ANTALHÆGTER,' ');«, l3=0x25}
0x1560…1580 Line {l1=0x1e, l2=» READLN;IF EOLN THEN HNR:=0«, l3=0x1e}
0x1580…1594 Line {l1=0x12, l2=» ELSE READ(HNR)«, l3=0x12}
0x1594…15cf Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (HNR>=0) AND (HNR<=ANTALHÆGTER);«, l3=0x39}
0x15cf…15e0 Line {l1=0x0f, l2=» IF HNR>0 THEN«, l3=0x0f}
0x15e0…15e9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x15e9…15fd Line {l1=0x12, l2=» HÆGTSØG:=TRUE;«, l3=0x12}
0x15fd…160f Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x160f…162a Line {l1=0x19, l2=» LÆSFELT(HÆGTER(HNR));«, l3=0x19}
0x162a…1644 Line {l1=0x18, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x18}
0x1644…1653 Line {l1=0x0d, l2=» SÆTHÆGTE;«, l3=0x0d}
0x1653…1662 Line {l1=0x0d, l2=» SÆTNØGLE;«, l3=0x0d}
0x1662…1671 Line {l1=0x0d, l2=» LINIE:=0;«, l3=0x0d}
0x1671…1684 Line {l1=0x11, l2=» FOUND:=FALSE;«, l3=0x11}
0x1684…1692 Line {l1=0x0c, l2=» CH:='S';«, l3=0x0c}
0x1692…169e Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x169e…16bf Line {l1=0x1f, l2=» NEXTREC(HÆGTEREC(HNR).A);«, l3=0x1f}
0x16bf…16ff Line {l1=0x3e, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x3e}
0x16ff…171d Line {l1=0x1c, l2=» IF IER=-1 THEN IER:=0;«, l3=0x1c}
0x171d…1742 Line {l1=0x23, l2=» IF (IER=0) AND CHECKHÆGT THEN«, l3=0x23}
0x1742…174f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x174f…1762 Line {l1=0x11, l2=» OMVNØGLE;«, l3=0x11}
0x1762…177b Line {l1=0x17, l2=» GETREC(POST.A);«, l3=0x17}
0x177b…17a2 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR(POST.A);«, l3=0x25}
0x17a2…17b6 Line {l1=0x12, l2=» SKRIVHÆGT;«, l3=0x12}
0x17b6…17d6 Line {l1=0x1e, l2=» IF LINIE=20 THEN VÆLG «, l3=0x1e}
0x17d6…17e1 Line {l1=0x09, l2=» END«, l3=0x09}
0x17e1…17ed Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x17ed…17fa Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x17fa…1819 Line {l1=0x1d, l2=» IF LINIE>0 THEN VÆLG;«, l3=0x1d}
0x1819…182e Line {l1=0x13, l2=» FOUND:=TRUE«, l3=0x13}
0x182e…183a Line {l1=0x0a, l2=» END «, l3=0x0a}
0x183a…184c Line {l1=0x10, l2=» UNTIL FOUND;«, l3=0x10}
0x184c…1853 Line {l1=0x05, l2=» END«, l3=0x05}
0x1853…1859 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1859…1861 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1861…1880 00 00 20 20 46 4f 55 4e 44 3a 3d 54 52 55 45 13 0a 20 20 20 20 20 20 45 4e 44 20 0a 10 20 20 ┆ FOUND:=TRUE END ┆
0x1880…18a0 20 20 55 4e 54 49 4c 20 46 4f 55 4e 44 3b 10 1b 20 20 20 20 49 43 4c 4f 53 45 28 48 5b 47 54 45 ┆ UNTIL FOUND; ICLOSE(HÆGTE┆
0x18a0…18c0 52 45 43 28 48 4e 52 29 2e 41 29 1b 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 ┆REC(HNR).A) END END; (*$P*)┆
0x18c0…18e0 06 00 00 61 a7 8b 29 01 00 c7 e8 03 88 a4 01 a5 04 a7 8b 2e 01 02 88 01 95 a4 15 f8 9a d5 85 62 ┆ a ) . b┆
0x18e0…1900 01 01 14 88 ab 8b 2d 14 01 14 88 cc 07 a7 8b 2d de c8 a1 6c d5 85 63 a5 8b 14 a7 8b 2d 01 14 88 ┆ - - l c - ┆
0x1900…1920 01 95 a4 01 f8 00 c3 a1 16 d5 85 63 a7 8b 29 a7 8b 2d 01 82 00 c7 e8 03 88 a4 01 00 9a b9 37 d5 ┆ c ) - 7 ┆
0x1920…1940 85 65 a7 8b 29 a7 8b 2d 01 82 00 c7 e8 03 88 a4 01 a5 04 a7 8b 2e 01 02 88 01 95 a4 15 a2 02 a5 ┆ e ) - . ┆
0x1940…1960 8b 14 a7 8b 2d 01 14 88 01 95 a4 01 f8 01 0a 88 01 95 a4 02 f8 9a a7 8b 2d 01 82 ab 8b 2d b9 f0 ┆ - - - ┆
0x1960…1980 b9 2c ac 04 00 00 11 00 b9 24 39 02 34 02 2f 02 31 02 2c 02 2e 02 29 02 2b 02 2d 02 28 02 f8 01 ┆ , $9 4 / 1 , . ) + - ( ┆
0x1980…19a0 e7 01 b7 01 ea 00 e2 00 dc 00 d3 00 ce 00 ad 00 02 00 30 00 a7 00 fe 00 a8 01 47 03 10 00 00 00 ┆ 0 G ┆
0x19a0…19c0 12 00 b6 03 22 01 d5 85 70 01 01 02 88 ab 8b 2f 02 01 02 88 cc 01 a7 8b 2f d8 c8 a1 69 d5 85 70 ┆ " p / / i p┆
0x19c0…19e0 a5 04 a7 8b 2f 01 02 88 01 95 a4 15 cc 02 d5 85 71 d5 85 72 d9 01 91 9a d5 85 73 01 01 0a 88 ab ┆ / q r s ┆
0x19e0…1a00 8b 30 0a 01 0a 88 cc 03 a7 8b 30 da c8 a1 2d d5 85 73 d9 a2 02 a7 8b 30 01 0a 88 01 95 a4 02 cc ┆ 0 0 - s 0 ┆
0x1a00…1a20 04 d5 85 74 d5 85 75 db 00 9a d5 85 76 db a2 02 00 9a a7 8b 30 01 82 ab 8b 30 b9 f6 a7 8b 2f 01 ┆ t u v 0 0 / ┆
0x1a20…1a40 82 ab 8b 2f b9 f4 d5 85 79 01 01 0a 88 ab 8b 30 0a 01 0a 88 cc 01 a7 8b 30 d8 c8 a1 31 d5 85 7a ┆ / y 0 0 1 z┆
0x1a40…1a60 a5 88 62 a7 8b 30 01 0a 88 01 95 a4 45 cc 02 d5 85 7a d5 85 7a d9 a7 8b 30 01 82 9a d5 85 7a d9 ┆ b 0 E z z 0 z ┆
0x1a60…1a80 a2 44 00 9a a7 8b 30 01 82 ab 8b 30 b9 f2 d5 85 7b 01 01 14 88 ab 8b 2d 14 01 14 88 cc 01 a7 8b ┆ D 0 0 æ - ┆
0x1a80…1aa0 2d d8 c8 a1 1c d5 85 7b a5 8b 14 a7 8b 2d 01 14 88 01 95 a4 01 00 9a a7 8b 2d 01 82 ab 8b 2d b9 ┆- æ - - - ┆
0x1aa0…1ac0 f0 d5 85 7c 01 ab 9f 34 d5 85 7d 01 ab 9f 31 d5 85 7e 01 ab 9f 32 d5 85 7f a5 2e 01 01 c7 d0 07 ┆ ø 4 å 1 ü 2 . ┆
0x1ac0…1ae0 88 01 95 a4 01 c7 d0 07 01 82 9a d5 85 80 a5 2e 02 01 c7 d0 07 88 01 95 a4 01 c7 d0 07 9a d5 85 ┆ . ┆
0x1ae0…1b00 81 a5 87 fe 01 01 64 88 01 95 a4 01 64 01 82 9a d5 85 82 a5 87 fe 02 01 64 88 01 95 a4 01 64 9a ┆ d d d d ┆
0x1b00…1b20 d5 85 83 00 ab 9f 35 ad 00 2b 8c 00 d6 00 58 01 28 01 08 00 00 00 0f 00 72 01 2a 01 d5 85 8a d5 ┆ 5 + X ( r * ┆
0x1b20…1b40 85 8b 00 ab 9f 38 d5 85 8c a5 8b 2a a5 9f 3b a5 9f 36 cd 53 d5 85 8d a5 8b 2b 10 a5 9f 37 cd 54 ┆ 8 * ; 6 S + 7 T┆
0x1b40…1b60 d5 85 8e a7 9f 37 00 cb a1 30 d5 85 8f d5 85 90 e9 a6 0c 41 4c 4c 4f 43 41 53 54 41 54 55 53 00 ┆ 7 0 ALLOCASTATUS ┆
0x1b60…1b80 d2 13 9e 00 e9 a7 9f 37 05 d2 0d 9e 00 e9 d2 16 9e 00 d5 85 91 e8 d2 15 9e 00 d5 85 94 cf 21 d5 ┆ 7 ! ┆
0x1b80…1ba0 85 96 a7 9f 38 00 c3 a1 05 d5 85 96 cf 22 d5 85 98 a7 8b 2b a5 9f 37 cd 55 d5 85 99 a7 9f 37 00 ┆ 8 " + 7 U 7 ┆
0x1ba0…1bc0 cb a1 30 d5 85 9a d5 85 9b e9 a6 0c 44 45 41 4c 4c 4f 53 54 41 54 55 53 00 d2 13 9e 00 e9 a7 9f ┆ 0 DEALLOSTATUS ┆
0x1bc0…1be0 37 05 d2 0d 9e 00 e9 d2 16 9e 00 d5 85 9c e8 d2 15 9e 00 d5 85 9e a7 9f 38 ab 9f 3c d5 85 9f a7 ┆7 8 < ┆
0x1be0…1c00 8b 2c 00 c3 a1 29 d5 85 a0 d5 85 a1 a5 88 62 a7 8b 30 01 0a 88 01 95 a4 45 a3 0b ab 9f 3d d5 85 ┆ , ) b 0 E = ┆
0x1c00…1c20 a2 a7 8b 2a a5 9f 3b 06 a5 9f 37 cd 52 b9 0f d5 85 a4 a7 8b 2a a5 9f 3b 04 a5 9f 37 cd 52 d5 85 ┆ * ; 7 R * ; 7 R ┆
0x1c20…1c40 a5 a7 9f 37 00 cb a1 2f d5 85 a6 d5 85 a7 e9 a6 0b 53 45 4e 44 4d 53 54 41 54 55 53 00 d2 13 9e ┆ 7 / SENDMSTATUS ┆
0x1c40…1c60 00 e9 a7 9f 37 05 d2 0d 9e 00 e9 d2 16 9e 00 d5 85 a8 e8 d2 15 9e 00 a7 8b 2c 0f c3 a7 9f 35 00 ┆ 7 , 5 ┆
0x1c60…1c80 c3 84 a1 f6 ad 00 47 01 00 00 00 00 08 00 52 01 2b 01 d5 85 b0 ad 00 8b 00 00 00 00 07 00 0c 00 ┆ G R + ┆
0x1c80…1ca0 2c 01 c6 9f 3e c6 a0 56 65 d2 03 c6 8b 31 c6 8c 49 c7 e8 00 d2 03 c6 8d 31 c6 8e 49 c7 e8 00 d2 ┆, > Ve 1 I 1 I ┆
0x1ca0…1cc0 03 c6 8f 31 c6 90 49 c7 e8 00 d2 03 c6 91 31 c6 92 49 c7 e8 00 d2 03 c6 93 31 c6 94 49 c7 e8 00 ┆ 1 I 1 I 1 I ┆
0x1cc0…1ce0 d2 03 c6 95 31 c6 96 49 c7 e8 00 d2 03 c6 97 31 c6 98 49 c7 e8 00 d2 03 c6 99 31 c6 9a 49 c7 e8 ┆ 1 I 1 I 1 I ┆
0x1ce0…1d00 00 d2 03 c6 9b 31 c6 9c 49 c7 e8 00 d2 03 c6 9d 31 c6 9e 49 c7 e8 00 d2 03 d5 85 b3 05 04 07 88 ┆ 1 I 1 I ┆
0x1d00…1d20 cd 56 d5 85 b4 ce 2a d5 85 b5 ce 2b d5 85 b6 ce 2c d5 85 b7 06 04 07 88 cd 56 c6 9f 3e 00 d2 06 ┆ V * + , V > ┆
0x1d20…1d40 c6 8b 31 00 d2 06 c6 8d 31 00 d2 06 c6 8f 31 00 d2 06 c6 91 31 00 d2 06 c6 93 31 00 d2 06 c6 95 ┆ 1 1 1 1 1 ┆
0x1d40…1d60 31 00 d2 06 c6 97 31 00 d2 06 c6 99 31 00 d2 06 c6 9b 31 00 d2 06 c6 9d 31 00 d2 06 c1 00 6e 41 ┆1 1 1 1 1 nA┆
0x1d60…1d80 06 00 48 00 e2 00 01 00 e8 00 fa 00 52 02 84 07 1c 0a a0 0c 38 0e d0 0f 68 11 0e 15 d8 03 b8 15 ┆ H R 8 h ┆
0x1d80…1da0 d6 17 60 18 0e 1b ae 1d de 20 8e 23 4c 24 9c 25 4c 27 36 28 b8 2d 9e 30 46 33 c2 33 8a 34 bc 63 ┆ ` #L$ %L'6( - 0F3 3 4 c┆