|
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: 32864 (0x8060)
Types: TextFile
Notes: Mikados_K
Names: »SPECHOVE.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »SPECHOVE.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »SPECHOVE.K«
PROGRAM SPECHOVED;
(*TILPASSES TIL SPECIELLE REGISTERVEDLIGEHOLDELSER, HÆGTER OSV.*)
CONST LNGTH=20;
TIMER=120;
MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=3;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;
CLOCKRECORD = RECORD
DATE:PACKED ARRAY (1..10) OF CHAR;
TIME:PACKED ARRAY (1..8) OF CHAR
END;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
POSTADR=0..MAXRECSIZE;
COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)
POINTREC=^COMMBUF;
NAME =STRING(10);
PCB =^INTEGER;
MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,
INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS,
RETURNHEAD,RETURNSTAT);
MESSAGE =RECORD
KOMMANDO:MESSAGETYPE;
INFO,IREC:INTEGER
END;
AR=ARRAY (-4..-4) OF INTEGER;
VAR PARM:^PARMARRAY;
CLOCK:^CLOCKRECORD;
STIMER,SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;
TÆNDT,HOWL,ALARM,STOPWATCH:BOOLEAN;
ALARMTIME:PACKED ARRAY (1..8) OF CHAR;
DBUF:DIRECTBUF;
USERNIVEAU:NIVEAU;
F:STRING(18);
QUQ:^INTEGER;
IER,IREC,STATUSER,MODE,REMUSERS,
FILNR,I:INTEGER;
FNAVN,REGNAVN,DESCNAVN:STRING(18);
SEMAFOR:NAME;
FILEINIT:BOOLEAN;
SNYD:AR;
CPPCB:PCB;
COMREC:POINTREC;
BESKED:MESSAGE;
(*$P*)
(*$L-*)
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
GOTOXY(1,23);
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);
EXTERNAL;
FUNCTION AVAIL:BOOLEAN;
EXTERNAL;
FUNCTION NEXT:CHAR;
EXTERNAL;
PROCEDURE FINIS;
EXTERNAL;
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);
EXTERNAL;
PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);
EXTERNAL;
(*$P*)
(*$IUR*)
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
(*$L+*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
(*@@*)
MAXPOST=500;
MAXHÆGTER=9;
MAXHPOST=20;
MAXIDENT=9;
TYPE
NFELT=^FELTBESKRIVELSE;
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
BESKRIVELSESTYPE=(FELTDESC,VALIDESC);
FELTBESKRIVELSE=RECORD
NÆSTEVAL:NFELT;
FELTNAVN:STRING(8);
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS,
LÆNGDE,
HÆGTE,
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITETSTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)
PPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..MAXPOST) OF INTEGER
END;
HPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER
END;
VAR FELT:NFELT;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;
HÆGTER:ARRAY (1..MAXHÆGTER) OF NFELT;
IDENT:ARRAY (1..MAXIDENT) OF NFELT;
ANTALIDENT,
LINES,OPTION,I,J,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:INTEGER;
LINE:STRING;
POST:PPOST;
HÆGTEREC:ARRAY (1..MAXHÆGTER) OF HPOST;
(*$P*)
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
IF LINES>0 THEN PAGE(LIST); (*$R-*)
WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
ICLOSE(POST.A);
FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);
(*@@LUK EVT. ANDRE DATAFILER*)
EXIT(REGVEDL)
END;
PROCEDURE OFEJL(VAR REC:AR);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20); (*$R-*)
WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),
' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR(REC);
CLEARSCREEN
END;
(*$P*)
(*$L-*)
(*$IHLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE MAINTAIN;
VAR J,NØGLENR,HNR,HINDEKS:INTEGER;
HCHANGED,HÆGTSØG:BOOLEAN;
CH:STRING(1);
(*$P*)
(*$L-*)
(*$ISØGPOST*)
(*$P*)
(*$L+*)
PROCEDURE UDPÅLIST;
BEGIN
REPEAT
GOTOXY(1,23);
WRITELN('Antal poster, 0 for resten');
GOTOXY(28,23);
READLN;READ(J)
UNTIL (IORESULT=0) AND (J>=0);
REPEAT
IF (LINES+2+ANTALFELTER)>=72 THEN
BEGIN
IF LINES<>100 THEN PAGE(LIST);
WRITELN(LIST,REGNAVN,' UDSKRIFT');
WRITELN(LIST);
LINES:=2
END;
PRINTPOST;
J:=J-1;
WRITELN(LIST);WRITELN(LIST);LINES:=LINES+2;
NEXTREC(POST.A);
IF (IER=-2) AND (J>0) THEN IER:=0
UNTIL (J=0) OR (IER<>0);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(POST.A) ELSE IER:=0
END;
(*$P*)
PROCEDURE SLETPOST;
BEGIN
GOTOXY(1,20);
CH:='J';
WRITELN('Sletning korrekt J/N');
GOTOXY(22,20);EDIT(CH);
IF CH='J' THEN
BEGIN
FOR HNR:=1 TO ANTALHÆGTER DO
BEGIN
SÆTHÆGTE;
SÆTNØGLE
END;
DELETE(POST.A);
IF IER=-9 THEN
BEGIN
WRITELN('Eneste post, kan ikke slettes, RETURN');
READLN;
IER:=0
END
ELSE (*@@SLET EVT. ANDRE TILHØRENDE POSTER*)
FOR HNR:=1 TO ANTALHÆGTER DO
BEGIN
GETRECX(HÆGTEREC(HNR).A);
IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);
DELETE(HÆGTEREC(HNR).A);
IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);
IER:=0
END
END
ELSE GETREC(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END;
(*$P*)
BEGIN (*MAINTAIN*)
CLEARSCREEN;
IF OPTION<>4 THEN
BEGIN
HUSKNIV:=USERNIVEAU;
USERNIVEAU:=UMULIUS;
NULPOST;
HÆGTSØG:=FALSE;
IF ANTALHÆGTER>0 THEN SØGPOST;
IF NOT HÆGTSØG THEN
BEGIN
J:=1;
LÆSFELT(NØGLER(J));
WHILE (J<ANTALNØGLER) AND NOT EOF DO
BEGIN
J:=J+1;
LÆSFELT(NØGLER(J))
END;
USERNIVEAU:=HUSKNIV;
IF OPTION IN (.1,5.) THEN
GETRECX(POST.A)
ELSE
GETREC(POST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(POST.A);
IF EOF THEN
BEGIN
IF IER=-6 THEN
BEGIN
IF OPTION IN (.1,5.) THEN
NEXTRECX(POST.A)
ELSE
NEXTREC(POST.A);
IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(POST.A)
END;
REPEAT
SKRIVPOST;
GOTOXY(1,23);
CH:='F';
WRITELN('Rigtig post R, Flere poster F, Stop S');
GOTOXY(39,23);
EDIT(CH);
IF CH(1) IN (.'f','r','s'.) THEN
CH(1):=CHR(ORD(CH(1))-32);
IF CH='F' THEN
BEGIN
IF OPTION IN (.1,5.) THEN
NEXTRECX(POST.A)
ELSE
NEXTREC(POST.A);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(POST.A)
END
UNTIL CH<>'F';
GOTOXY(1,23);WRITELN(' ':77);
IF (OPTION IN (.1,5.)) AND (CH<>'R') THEN GETREC(POST.A);
(*FOR AT FJERNE XCLUSIV-STATUS*)
IF OPTION=2 THEN CH:='S'
END
ELSE
BEGIN
IF IER=0 THEN
BEGIN
CH:='R';
SKRIVPOST
END
ELSE
BEGIN
CH:='S';
GOTOXY(1,23);WRITELN('Posten findes ikke, RETURN');
GOTOXY(28,23);READLN
END
END
END
END;
IF (OPTION=4) OR (CH='R') THEN
CASE OPTION OF
1: BEGIN
REPEAT
REPEAT
GOTOXY(1,23);
J:=0;
WRITELN('Feltnr, 0 for færdig ',J,' ':57);
GOTOXY(22,23);READLN;
IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)
UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);
IF J>0 THEN BEGIN (*@@EVT. BEHANDLING AF ANDRE POSTER*)
HNR:=0;
IF PICTURE(J)^.HÆGTE>0 THEN
BEGIN
REPEAT
HNR:=HNR+1
UNTIL PICTURE(J)^.HÆGTE=HÆGTER(HNR)^.HÆGTE;
SÆTHÆGTE;
END;
LÆSFELT(PICTURE(J));SKRIVFELT(PICTURE(J));
IF HNR>0 THEN
BEGIN
HCHANGED:=FALSE;
CASE PICTURE(J)^.FELTTYPE OF (*$R-*)
HELTAL :HCHANGED:=(HÆGTEREC(HNR).A(1)<>
POST.A(PICTURE(J)^.INDEKS));
DOBBTAL:HCHANGED:=(
(HÆGTEREC(HNR).A(1)<>
POST.A(PICTURE(J)^.INDEKS)) OR
(HÆGTEREC(HNR).A(2)<>
POST.A(PICTURE(J)^.INDEKS+1)));
TEKST:FOR HINDEKS:=1 TO PICTURE(J)^.FORAN0 DO
IF HÆGTEREC(HNR).AA(HINDEKS)<>
POST.AA(PICTURE(J)^.INDEKS-1+HINDEKS)
THEN HCHANGED:=TRUE
END
END; (*$R+*)
IF HCHANGED THEN
BEGIN
SÆTNØGLE;
GETRECX(HÆGTEREC(HNR).A);
IF IER=0 THEN DELETE(HÆGTEREC(HNR).A);
SÆTHÆGTE;
SÆTNØGLE;
INSERT(HÆGTEREC(HNR).A);
IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A)
END
END
UNTIL J=0;
PUTREC(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END;
2: BEGIN GOTOXY(1,24);WRITE('Tryk RETURN ');READLN END;
3: UDPÅLIST;
4: BEGIN
NULPOST;
SKRIVPOST;
FOR J:=1 TO ANTALFELTER DO
BEGIN
IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN
BEGIN
HUSKNIV:=USERNIVEAU;
USERNIVEAU:=UMULIUS
END;
LÆSFELT(PICTURE(J));
SKRIVFELT(PICTURE(J));
IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN USERNIVEAU:=HUSKNIV
END;
USERNIVEAU:=HUSKNIV;
IF NOT FILEINIT THEN
BEGIN
FILEINIT:=TRUE;
REPEAT
GOTOXY(1,23);
WRITELN('ANTAL INITIALISERINGSPOSTER');
GOTOXY(30,23);
READLN;READ(IREC)
UNTIL (IORESULT=0) AND (IREC>0);
INITIATE(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END;
INSERT(POST.A);
IF IER<>0 THEN
IF IER=-7 THEN
BEGIN
WRITELN('Posten findes, RETURN');READLN
END
ELSE ERROR(POST.A)
ELSE (*@@EVT. INDSÆT/VEDL AF ANDRE POSTER*)
FOR HNR:=1 TO ANTALHÆGTER DO
BEGIN
SÆTHÆGTE;
SÆTNØGLE;
INSERT(HÆGTEREC(HNR).A);
IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A)
END
END;
5: SLETPOST
END
END;
(*$P*)
BEGIN (*REGVEDL*)
CLEARSCREEN;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)
LÆSDESC;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)
MODE:=3;(*SKRIV*)
FOR I:=1 TO ANTALHÆGTER DO
BEGIN
IOPEN(HÆGTEREC(I).A);
IF IER<>0 THEN OFEJL(HÆGTEREC(I).A)
END;
LINES:=100; (*$R-*)
POST.A(-3):=FILNR; (*$R+*)
IOPEN(POST.A);IF IER<>0 THEN OFEJL(POST.A);
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
REPEAT
CLEARSCREEN;
GOTOXY(10,10);
WRITELN(REGNAVN,' R E G I S T E R - V E D L I G E H O L D E L S E');
GOTOXY(10,12);
WRITELN('0 Færdig');
WRITELN(' ':9,'1 Ændring');
WRITELN(' ':9,'2 Udskrift på skærm');
WRITELN(' ':9,'3 Udskrift på printer');
WRITELN(' ':9,'4 Oprettelse');
WRITELN(' ':9,'5 Sletning');
REPEAT
GOTOXY(10,19);
WRITELN('Vælg 0-5');
GOTOXY(21,19);UR;
OPTION:=SV
UNTIL (OPTION>=0) AND (OPTION<=5);
IF OPTION>0 THEN MAINTAIN
UNTIL OPTION=0;
IF LINES<>100 THEN PAGE(LIST);
ICLOSE(POST.A);
FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);
(*@@EVT. LUKNING AF ANDRE DATAFILER*)
CLEARSCREEN;
IF IER<>0 THEN BAD(6,IER)
END;
(*$P*)
BEGIN
ALARM:=CLOCK^.DATE(9)='1';
IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);
HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;
SEMAFOR:='ALLOCOMBUF';
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END; (*$R-*)
SNYD(-3):=0;
FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;
IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)
UDFØR(PTILMELD,SNYD);
UDFØRT(PTILMELD,SNYD);
IF IER<>0 THEN BAD(1,IER);
(*@@TILPASSES*)
DESCNAVN:='????????:P?:05:J';
REGNAVN:='123456789012345678';
REGVEDL;
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0014 Line {l1=0x12, l2=»PROGRAM SPECHOVED;«, l3=0x12}
0x0014…0057 Line {l1=0x41, l2=»(*TILPASSES TIL SPECIELLE REGISTERVEDLIGEHOLDELSER, HÆGTER OSV.*)«, l3=0x41}
0x0057…0068 Line {l1=0x0f, l2=»CONST LNGTH=20;«, l3=0x0f}
0x0068…007a Line {l1=0x10, l2=» TIMER=120;«, l3=0x10}
0x007a…0092 Line {l1=0x16, l2=» MAXRECSIZE=1000;«, l3=0x16}
0x0092…009a Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x009a…00ae Line {l1=0x12, l2=» PROGRAMNR=3;«, l3=0x12}
0x00ae…00b4 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00b4…00dd Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00dd…0109 Line {l1=0x2a, l2=»DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;«, l3=0x2a}
0x0109…011f Line {l1=0x14, l2=»CLOCKRECORD = RECORD«, l3=0x14}
0x011f…0152 Line {l1=0x31, l2=» DATE:PACKED ARRAY (1..10) OF CHAR;«, l3=0x31}
0x0152…0183 Line {l1=0x2f, l2=» TIME:PACKED ARRAY (1..8) OF CHAR«, l3=0x2f}
0x0183…0197 Line {l1=0x12, l2=» END;«, l3=0x12}
0x0197…01e2 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x01e2…01fa Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x01fa…0245 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0245…0259 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0259…026f Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x026f…0283 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x0283…02cc Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x02cc…031c Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x031c…0366 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0366…0377 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0377…0399 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x0399…03b8 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x03b8…03c7 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x03c7…03e6 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x03e6…03ff Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x03ff…041b Line {l1=0x1a, l2=» CLOCK:^CLOCKRECORD;«, l3=0x1a}
0x041b…044f Line {l1=0x32, l2=» STIMER,SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;«, l3=0x32}
0x044f…047b Line {l1=0x2a, l2=» TÆNDT,HOWL,ALARM,STOPWATCH:BOOLEAN;«, l3=0x2a}
0x047b…04aa Line {l1=0x2d, l2=» ALARMTIME:PACKED ARRAY (1..8) OF CHAR;«, l3=0x2d}
0x04aa…04c2 Line {l1=0x16, l2=» DBUF:DIRECTBUF;«, l3=0x16}
0x04c2…04dd Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x04dd…04f3 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x04f3…0509 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0509…0532 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0532…054b Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x054b…0576 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x0576…058c Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x058c…05a6 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x05a6…05b7 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x05b7…05ca Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x05ca…05e3 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x05e3…05fb Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x05fb…0603 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0603…060c Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x060c…0632 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0632…0639 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0639…064a Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x064a…066c Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x066c…0676 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x0676…067c Line {l1=0x04, l2=»END;«, l3=0x04}
0x067c…0684 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0684…06bb Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x06bb…06c6 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06c6…06df Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x06df…06ea Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06ea…06ff Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x06ff…070a Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x070a…071c Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x071c…0727 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0727…075e Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x075e…0785 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0785…0790 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0790…07c8 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x07c8…07d3 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07d3…0807 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x0807…083c Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x083c…0847 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0847…087e Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x087e…08a5 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x08a5…08b0 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x08b0…08e8 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x08e8…090f Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x090f…091a Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x091a…094f Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x094f…095a Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x095a…0962 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0962…096c Line {l1=0x08, l2=»(*$IUR*)«, l3=0x08}
0x096c…0974 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0974…0981 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0981…0991 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x0991…0999 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0999…09a2 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x09a2…09b6 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x09b6…09cb Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x09cb…09df Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x09df…09e7 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x09e7…09fb Line {l1=0x12, l2=» MAXPOST=500;«, l3=0x12}
0x09fb…0a0f Line {l1=0x12, l2=» MAXHÆGTER=9;«, l3=0x12}
0x0a0f…0a23 Line {l1=0x12, l2=» MAXHPOST=20;«, l3=0x12}
0x0a23…0a36 Line {l1=0x11, l2=» MAXIDENT=9;«, l3=0x11}
0x0a36…0a3c Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0a3c…0a55 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0a55…0a66 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0a66…0a76 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0a76…0a7c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a7c…0aa0 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0aa0…0ad1 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0ad1…0af8 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0af8…0b10 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0b10…0b24 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0b24…0b3c Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0b3c…0b62 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0b62…0b70 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0b70…0b8b Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x0b8b…0baf Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x0baf…0bc6 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0bc6…0be7 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0be7…0bf3 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0bf3…0bff Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0bff…0c0a Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0c0a…0c1e Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0c1e…0c39 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0c39…0c51 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0c51…0c6f Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0c6f…0c7d Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0c7d…0c9e Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0c9e…0cc2 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0cc2…0cf2 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0cf2…0d15 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0d15…0d29 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0d29…0d2f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d2f…0d56 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0d56…0d71 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0d71…0d9e Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0d9e…0dac Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x0dac…0dbc Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0dbc…0dc9 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0dc9…0dd9 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0dd9…0e08 Line {l1=0x2d, l2=» CONTENTS: ARRAY (1..MAXPOST) OF INTEGER«, l3=0x2d}
0x0e08…0e0e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e0e…0e1c Line {l1=0x0c, l2=»HPOST=RECORD«, l3=0x0c}
0x0e1c…0e2c Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0e2c…0e39 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0e39…0e49 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0e49…0e79 Line {l1=0x2e, l2=» CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER«, l3=0x2e}
0x0e79…0e7f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e7f…0e90 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x0e90…0ea5 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x0ea5…0ed1 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x0ed1…0efc Line {l1=0x29, l2=» NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x29}
0x0efc…0f27 Line {l1=0x29, l2=» HÆGTER:ARRAY (1..MAXHÆGTER) OF NFELT;«, l3=0x29}
0x0f27…0f50 Line {l1=0x27, l2=» IDENT:ARRAY (1..MAXIDENT) OF NFELT;«, l3=0x27}
0x0f50…0f61 Line {l1=0x0f, l2=» ANTALIDENT,«, l3=0x0f}
0x0f61…0fa4 Line {l1=0x41, l2=» LINES,OPTION,I,J,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:INTEGER;«, l3=0x41}
0x0fa4…0fb6 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x0fb6…0fc7 Line {l1=0x0f, l2=» POST:PPOST;«, l3=0x0f}
0x0fc7…0ff4 Line {l1=0x2b, l2=» HÆGTEREC:ARRAY (1..MAXHÆGTER) OF HPOST;«, l3=0x2b}
0x0ff4…0ffc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0ffc…101a Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x101a…102d Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x102d…103d Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x103d…1044 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1044…1094 Line {l1=0x4e, l2=» IF LINES>0 THEN PAGE(LIST); (*$R-*)«, l3=0x4e}
0x1094…10e4 Line {l1=0x4e, l2=» WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4e}
0x10e4…10f9 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x10f9…110c Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x110c…1141 Line {l1=0x33, l2=» FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);«, l3=0x33}
0x1141…1161 Line {l1=0x1e, l2=»(*@@LUK EVT. ANDRE DATAFILER*)«, l3=0x1e}
0x1161…1172 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1172…1178 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1178…1196 Line {l1=0x1c, l2=»PROCEDURE OFEJL(VAR REC:AR);«, l3=0x1c}
0x1196…11a6 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x11a6…11ad Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11ad…11fd Line {l1=0x4e, l2=» GOTOXY(1,20); (*$R-*)«, l3=0x4e}
0x11fd…1246 Line {l1=0x47, l2=» WRITELN('REGISTERFEJL ',IER,' I ',REC(-3), «, l3=0x47}
0x1246…1296 Line {l1=0x4e, l2=» ' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)«, l3=0x4e}
0x1296…12df Line {l1=0x47, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES'); «, l3=0x47}
0x12df…1318 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1318…1334 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(REC);«, l3=0x1a}
0x1334…1343 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1343…1349 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1349…1351 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1351…135a Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x135a…136a Line {l1=0x0e, l2=»(*$IHLÆSDESC*)«, l3=0x0e}
0x136a…1372 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1372…1382 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x1382…138a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x138a…1393 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1393…13a8 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x13a8…13cc Line {l1=0x22, l2=»VAR J,NØGLENR,HNR,HINDEKS:INTEGER;«, l3=0x22}
0x13cc…13eb Line {l1=0x1d, l2=» HCHANGED,HÆGTSØG:BOOLEAN;«, l3=0x1d}
0x13eb…13fe Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x13fe…1406 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1406…140f Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x140f…141e Line {l1=0x0d, l2=»(*$ISØGPOST*)«, l3=0x0d}
0x141e…1426 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1426…142f Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x142f…1444 Line {l1=0x13, l2=»PROCEDURE UDPÅLIST;«, l3=0x13}
0x1444…144b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x144b…1460 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x1460…147e Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x147e…14b5 Line {l1=0x35, l2=» WRITELN('Antal poster, 0 for resten');«, l3=0x35}
0x14b5…14d4 Line {l1=0x1d, l2=» GOTOXY(28,23);«, l3=0x1d}
0x14d4…14f3 Line {l1=0x1d, l2=» READLN;READ(J)«, l3=0x1d}
0x14f3…1520 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (J>=0);«, l3=0x2b}
0x1520…1535 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x1535…1567 Line {l1=0x30, l2=» IF (LINES+2+ANTALFELTER)>=72 THEN«, l3=0x30}
0x1567…157d Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x157d…15ae Line {l1=0x2f, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x2f}
0x15ae…15e3 Line {l1=0x33, l2=» WRITELN(LIST,REGNAVN,' UDSKRIFT');«, l3=0x33}
0x15e3…1604 Line {l1=0x1f, l2=» WRITELN(LIST);«, l3=0x1f}
0x1604…161f Line {l1=0x19, l2=» LINES:=2«, l3=0x19}
0x161f…1634 Line {l1=0x13, l2=» END;«, l3=0x13}
0x1634…164f Line {l1=0x19, l2=» PRINTPOST;«, l3=0x19}
0x164f…1667 Line {l1=0x16, l2=» J:=J-1;«, l3=0x16}
0x1667…16a3 Line {l1=0x3a, l2=» WRITELN(LIST);WRITELN(LIST);LINES:=LINES+2;«, l3=0x3a}
0x16a3…16c4 Line {l1=0x1f, l2=» NEXTREC(POST.A);«, l3=0x1f}
0x16c4…16f6 Line {l1=0x30, l2=» IF (IER=-2) AND (J>0) THEN IER:=0«, l3=0x30}
0x16f6…171d Line {l1=0x25, l2=» UNTIL (J=0) OR (IER<>0);«, l3=0x25}
0x171d…1758 Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x39}
0x1758…1783 Line {l1=0x29, l2=» ERROR(POST.A) ELSE IER:=0«, l3=0x29}
0x1783…1789 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1789…1791 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1791…17a6 Line {l1=0x13, l2=»PROCEDURE SLETPOST;«, l3=0x13}
0x17a6…17ad Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x17ad…17c9 Line {l1=0x1a, l2=» GOTOXY(1,20);«, l3=0x1a}
0x17c9…17e0 Line {l1=0x15, l2=» CH:='J';«, l3=0x15}
0x17e0…180f Line {l1=0x2d, l2=» WRITELN('Sletning korrekt J/N');«, l3=0x2d}
0x180f…1835 Line {l1=0x24, l2=» GOTOXY(22,20);EDIT(CH);«, l3=0x24}
0x1835…1852 Line {l1=0x1b, l2=» IF CH='J' THEN«, l3=0x1b}
0x1852…1866 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x1866…1893 Line {l1=0x2b, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x2b}
0x1893…18a9 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x18a9…18c5 Line {l1=0x1a, l2=» SÆTHÆGTE;«, l3=0x1a}
0x18c5…18e0 Line {l1=0x19, l2=» SÆTNØGLE«, l3=0x19}
0x18e0…18f5 Line {l1=0x13, l2=» END;«, l3=0x13}
0x18f5…1915 Line {l1=0x1e, l2=» DELETE(POST.A);«, l3=0x1e}
0x1915…1934 Line {l1=0x1d, l2=» IF IER=-9 THEN«, l3=0x1d}
0x1934…194a Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x194a…198e Line {l1=0x42, l2=» WRITELN('Eneste post, kan ikke slettes, RETURN');«, l3=0x42}
0x198e…19a8 Line {l1=0x18, l2=» READLN;«, l3=0x18}
0x19a8…19c1 Line {l1=0x17, l2=» IER:=0«, l3=0x17}
0x19c1…19d6 Line {l1=0x13, l2=» END «, l3=0x13}
0x19d6…1a14 Line {l1=0x3c, l2=» ELSE (*@@SLET EVT. ANDRE TILHØRENDE POSTER*)«, l3=0x3c}
0x1a14…1a41 Line {l1=0x2b, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x2b}
0x1a41…1a57 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1a57…1a83 Line {l1=0x2a, l2=» GETRECX(HÆGTEREC(HNR).A);«, l3=0x2a}
0x1a83…1acb Line {l1=0x46, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x46}
0x1acb…1af6 Line {l1=0x29, l2=» DELETE(HÆGTEREC(HNR).A);«, l3=0x29}
0x1af6…1b3e Line {l1=0x46, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x46}
0x1b3e…1b57 Line {l1=0x17, l2=» IER:=0«, l3=0x17}
0x1b57…1b6b Line {l1=0x12, l2=» END«, l3=0x12}
0x1b6b…1b7d Line {l1=0x10, l2=» END«, l3=0x10}
0x1b7d…1ba0 Line {l1=0x21, l2=» ELSE GETREC(POST.A);«, l3=0x21}
0x1ba0…1bcb Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x29}
0x1bcb…1bd1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bd1…1bd9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1bd9…1bed Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x1bed…1c01 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x1c01…1c1a Line {l1=0x17, l2=» IF OPTION<>4 THEN«, l3=0x17}
0x1c1a…1c27 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c27…1c45 Line {l1=0x1c, l2=» HUSKNIV:=USERNIVEAU;«, l3=0x1c}
0x1c45…1c63 Line {l1=0x1c, l2=» USERNIVEAU:=UMULIUS;«, l3=0x1c}
0x1c63…1c75 Line {l1=0x10, l2=» NULPOST;«, l3=0x10}
0x1c75…1c8e Line {l1=0x17, l2=» HÆGTSØG:=FALSE;«, l3=0x17}
0x1c8e…1cb6 Line {l1=0x26, l2=» IF ANTALHÆGTER>0 THEN SØGPOST;«, l3=0x26}
0x1cb6…1cd3 Line {l1=0x1b, l2=» IF NOT HÆGTSØG THEN«, l3=0x1b}
0x1cd3…1ce2 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1ce2…1cf3 Line {l1=0x0f, l2=» J:=1;«, l3=0x0f}
0x1cf3…1d12 Line {l1=0x1d, l2=» LÆSFELT(NØGLER(J));«, l3=0x1d}
0x1d12…1d42 Line {l1=0x2e, l2=» WHILE (J<ANTALNØGLER) AND NOT EOF DO«, l3=0x2e}
0x1d42…1d53 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1d53…1d68 Line {l1=0x13, l2=» J:=J+1;«, l3=0x13}
0x1d68…1d88 Line {l1=0x1e, l2=» LÆSFELT(NØGLER(J))«, l3=0x1e}
0x1d88…1d98 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1d98…1db8 Line {l1=0x1e, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x1e}
0x1db8…1dde Line {l1=0x24, l2=» IF OPTION IN (.1,5.) THEN «, l3=0x24}
0x1dde…1dfc Line {l1=0x1c, l2=» GETRECX(POST.A) «, l3=0x1c}
0x1dfc…1e0c Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x1e0c…1e29 Line {l1=0x1b, l2=» GETREC(POST.A);«, l3=0x1b}
0x1e29…1e62 Line {l1=0x37, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(POST.A);«, l3=0x37}
0x1e62…1e79 Line {l1=0x15, l2=» IF EOF THEN«, l3=0x15}
0x1e79…1e8a Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1e8a…1ea6 Line {l1=0x1a, l2=» IF IER=-6 THEN«, l3=0x1a}
0x1ea6…1eb9 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x1eb9…1ee2 Line {l1=0x27, l2=» IF OPTION IN (.1,5.) THEN«, l3=0x27}
0x1ee2…1f05 Line {l1=0x21, l2=» NEXTRECX(POST.A) «, l3=0x21}
0x1f05…1f19 Line {l1=0x12, l2=» ELSE«, l3=0x12}
0x1f19…1f3b Line {l1=0x20, l2=» NEXTREC(POST.A);«, l3=0x20}
0x1f3b…1f78 Line {l1=0x3b, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3b}
0x1f78…1f97 Line {l1=0x1d, l2=» ERROR(POST.A)«, l3=0x1d}
0x1f97…1fa9 Line {l1=0x10, l2=» END;«, l3=0x10}
0x1fa9…1fbd Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x1fbd…1fd7 Line {l1=0x18, l2=» SKRIVPOST;«, l3=0x18}
0x1fd7…1ff4 Line {l1=0x1b, l2=» GOTOXY(1,23);«, l3=0x1b}
0x1ff4…200c Line {l1=0x16, l2=» CH:='F';«, l3=0x16}
0x200c…204d Line {l1=0x3f, l2=» WRITELN('Rigtig post R, Flere poster F, Stop S');«, l3=0x3f}
0x204d…206b Line {l1=0x1c, l2=» GOTOXY(39,23);«, l3=0x1c}
0x206b…2084 Line {l1=0x17, l2=» EDIT(CH);«, l3=0x17}
0x2084…20b4 Line {l1=0x2e, l2=» IF CH(1) IN (.'f','r','s'.) THEN«, l3=0x2e}
0x20b4…20e1 Line {l1=0x2b, l2=» CH(1):=CHR(ORD(CH(1))-32);«, l3=0x2b}
0x20e1…20ff Line {l1=0x1c, l2=» IF CH='F' THEN«, l3=0x1c}
0x20ff…2114 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x2114…213f Line {l1=0x29, l2=» IF OPTION IN (.1,5.) THEN«, l3=0x29}
0x213f…2164 Line {l1=0x23, l2=» NEXTRECX(POST.A) «, l3=0x23}
0x2164…217a Line {l1=0x14, l2=» ELSE«, l3=0x14}
0x217a…219e Line {l1=0x22, l2=» NEXTREC(POST.A);«, l3=0x22}
0x219e…21dc Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3c}
0x21dc…21fd Line {l1=0x1f, l2=» ERROR(POST.A)«, l3=0x1f}
0x21fd…2210 Line {l1=0x11, l2=» END«, l3=0x11}
0x2210…222c Line {l1=0x1a, l2=» UNTIL CH<>'F';«, l3=0x1a}
0x222c…2257 Line {l1=0x29, l2=» GOTOXY(1,23);WRITELN(' ':77);«, l3=0x29}
0x2257…229e Line {l1=0x45, l2=» IF (OPTION IN (.1,5.)) AND (CH<>'R') THEN GETREC(POST.A);«, l3=0x45}
0x229e…22cc Line {l1=0x2c, l2=» (*FOR AT FJERNE XCLUSIV-STATUS*)«, l3=0x2c}
0x22cc…22f2 Line {l1=0x24, l2=» IF OPTION=2 THEN CH:='S'«, l3=0x24}
0x22f2…2301 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2301…2311 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x2311…2322 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2322…233d Line {l1=0x19, l2=» IF IER=0 THEN«, l3=0x19}
0x233d…2350 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2350…2368 Line {l1=0x16, l2=» CH:='R';«, l3=0x16}
0x2368…2381 Line {l1=0x17, l2=» SKRIVPOST«, l3=0x17}
0x2381…2392 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2392…23a4 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x23a4…23b7 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x23b7…23cf Line {l1=0x16, l2=» CH:='S';«, l3=0x16}
0x23cf…2412 Line {l1=0x41, l2=» GOTOXY(1,23);WRITELN('Posten findes ikke, RETURN');«, l3=0x41}
0x2412…2436 Line {l1=0x22, l2=» GOTOXY(28,23);READLN«, l3=0x22}
0x2436…2447 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2447…2456 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2456…2463 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2463…246f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x246f…2495 Line {l1=0x24, l2=» IF (OPTION=4) OR (CH='R') THEN«, l3=0x24}
0x2495…24ab Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x24ab…24bd Line {l1=0x10, l2=» 1: BEGIN«, l3=0x10}
0x24bd…24d2 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x24d2…24e9 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x24e9…2509 Line {l1=0x1e, l2=» GOTOXY(1,23);«, l3=0x1e}
0x2509…2521 Line {l1=0x16, l2=» J:=0;«, l3=0x16}
0x2521…255e Line {l1=0x3b, l2=» WRITELN('Feltnr, 0 for færdig ',J,' ':57);«, l3=0x3b}
0x255e…2586 Line {l1=0x26, l2=» GOTOXY(22,23);READLN;«, l3=0x26}
0x2586…25c3 Line {l1=0x3b, l2=» IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)«, l3=0x3b}
0x25c3…2607 Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);«, l3=0x42}
0x2607…2652 Line {l1=0x49, l2=» IF J>0 THEN BEGIN (*@@EVT. BEHANDLING AF ANDRE POSTER*)«, l3=0x49}
0x2652…2678 Line {l1=0x24, l2=» HNR:=0;«, l3=0x24}
0x2678…26b2 Line {l1=0x38, l2=» IF PICTURE(J)^.HÆGTE>0 THEN«, l3=0x38}
0x26b2…26d6 Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x26d6…26fd Line {l1=0x25, l2=» REPEAT«, l3=0x25}
0x26fd…272a Line {l1=0x2b, l2=» HNR:=HNR+1«, l3=0x2b}
0x272a…2776 Line {l1=0x4a, l2=» UNTIL PICTURE(J)^.HÆGTE=HÆGTER(HNR)^.HÆGTE;«, l3=0x4a}
0x2776…27a1 Line {l1=0x29, l2=» SÆTHÆGTE; «, l3=0x29}
0x27a1…27c4 Line {l1=0x21, l2=» END;«, l3=0x21}
0x27c4…280d Line {l1=0x47, l2=» LÆSFELT(PICTURE(J));SKRIVFELT(PICTURE(J));«, l3=0x47}
0x280d…2839 Line {l1=0x2a, l2=» IF HNR>0 THEN«, l3=0x2a}
0x2839…285d Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x285d…288e Line {l1=0x2f, l2=» HCHANGED:=FALSE;«, l3=0x2f}
0x288e…28dd Line {l1=0x4d, l2=» CASE PICTURE(J)^.FELTTYPE OF (*$R-*)«, l3=0x4d}
0x28dd…2925 Line {l1=0x46, l2=» HELTAL :HCHANGED:=(HÆGTEREC(HNR).A(1)<>«, l3=0x46}
0x2925…2973 Line {l1=0x4c, l2=» POST.A(PICTURE(J)^.INDEKS));«, l3=0x4c}
0x2973…29a7 Line {l1=0x32, l2=» DOBBTAL:HCHANGED:=(«, l3=0x32}
0x29a7…29e7 Line {l1=0x3e, l2=» (HÆGTEREC(HNR).A(1)<>«, l3=0x3e}
0x29e7…2a33 Line {l1=0x4a, l2=» POST.A(PICTURE(J)^.INDEKS)) OR«, l3=0x4a}
0x2a33…2a73 Line {l1=0x3e, l2=» (HÆGTEREC(HNR).A(2)<>«, l3=0x3e}
0x2a73…2ac0 Line {l1=0x4b, l2=» POST.A(PICTURE(J)^.INDEKS+1)));«, l3=0x4b}
0x2ac0…2b0e Line {l1=0x4c, l2=» TEKST:FOR HINDEKS:=1 TO PICTURE(J)^.FORAN0 DO«, l3=0x4c}
0x2b0e…2b55 Line {l1=0x45, l2=» IF HÆGTEREC(HNR).AA(HINDEKS)<>«, l3=0x45}
0x2b55…2ba4 Line {l1=0x4d, l2=» POST.AA(PICTURE(J)^.INDEKS-1+HINDEKS)«, l3=0x4d}
0x2ba4…2be0 Line {l1=0x3a, l2=» THEN HCHANGED:=TRUE«, l3=0x3a}
0x2be0…2c04 Line {l1=0x22, l2=» END«, l3=0x22}
0x2c04…2c53 Line {l1=0x4d, l2=» END; (*$R+*)«, l3=0x4d}
0x2c53…2c82 Line {l1=0x2d, l2=» IF HCHANGED THEN«, l3=0x2d}
0x2c82…2ca6 Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x2ca6…2cd4 Line {l1=0x2c, l2=» SÆTNØGLE; «, l3=0x2c}
0x2cd4…2d0e Line {l1=0x38, l2=» GETRECX(HÆGTEREC(HNR).A);«, l3=0x38}
0x2d0e…2d55 Line {l1=0x45, l2=» IF IER=0 THEN DELETE(HÆGTEREC(HNR).A);«, l3=0x45}
0x2d55…2d7f Line {l1=0x28, l2=» SÆTHÆGTE;«, l3=0x28}
0x2d7f…2da9 Line {l1=0x28, l2=» SÆTNØGLE;«, l3=0x28}
0x2da9…2de2 Line {l1=0x37, l2=» INSERT(HÆGTEREC(HNR).A);«, l3=0x37}
0x2de2…2e29 Line {l1=0x45, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A) «, l3=0x45}
0x2e29…2e4b Line {l1=0x20, l2=» END«, l3=0x20}
0x2e4b…2e6b Line {l1=0x1e, l2=» END«, l3=0x1e}
0x2e6b…2e84 Line {l1=0x17, l2=» UNTIL J=0;«, l3=0x17}
0x2e84…2ea2 Line {l1=0x1c, l2=» PUTREC(POST.A);«, l3=0x1c}
0x2ea2…2ecd Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x29}
0x2ecd…2ede Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x2ede…2f1f Line {l1=0x3f, l2=» 2: BEGIN GOTOXY(1,24);WRITE('Tryk RETURN ');READLN END;«, l3=0x3f}
0x2f1f…2f35 Line {l1=0x14, l2=» 3: UDPÅLIST;«, l3=0x14}
0x2f35…2f47 Line {l1=0x10, l2=» 4: BEGIN«, l3=0x10}
0x2f47…2f5e Line {l1=0x15, l2=» NULPOST;«, l3=0x15}
0x2f5e…2f77 Line {l1=0x17, l2=» SKRIVPOST;«, l3=0x17}
0x2f77…2fa0 Line {l1=0x27, l2=» FOR J:=1 TO ANTALFELTER DO«, l3=0x27}
0x2fa0…2fb4 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x2fb4…2fec Line {l1=0x36, l2=» IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN«, l3=0x36}
0x2fec…3002 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x3002…302a Line {l1=0x26, l2=» HUSKNIV:=USERNIVEAU; «, l3=0x26}
0x302a…3052 Line {l1=0x26, l2=» USERNIVEAU:=UMULIUS «, l3=0x26}
0x3052…3067 Line {l1=0x13, l2=» END;«, l3=0x13}
0x3067…308c Line {l1=0x23, l2=» LÆSFELT(PICTURE(J));«, l3=0x23}
0x308c…30b3 Line {l1=0x25, l2=» SKRIVFELT(PICTURE(J));«, l3=0x25}
0x30b3…30ff Line {l1=0x4a, l2=» IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN USERNIVEAU:=HUSKNIV«, l3=0x4a}
0x30ff…3112 Line {l1=0x11, l2=» END;«, l3=0x11}
0x3112…3135 Line {l1=0x21, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x21}
0x3135…3158 Line {l1=0x21, l2=» IF NOT FILEINIT THEN«, l3=0x21}
0x3158…316c Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x316c…318c Line {l1=0x1e, l2=» FILEINIT:=TRUE;«, l3=0x1e}
0x318c…31a3 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x31a3…31dd Line {l1=0x38, l2=» GOTOXY(1,23); «, l3=0x38}
0x31dd…3217 Line {l1=0x38, l2=» WRITELN('ANTAL INITIALISERINGSPOSTER');«, l3=0x38}
0x3217…3251 Line {l1=0x38, l2=» GOTOXY(30,23); «, l3=0x38}
0x3251…328e Line {l1=0x3b, l2=» READLN;READ(IREC) «, l3=0x3b}
0x328e…32bf Line {l1=0x2f, l2=» UNTIL (IORESULT=0) AND (IREC>0);«, l3=0x2f}
0x32bf…32e1 Line {l1=0x20, l2=» INITIATE(POST.A);«, l3=0x20}
0x32e1…330e Line {l1=0x2b, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x2b}
0x330e…3321 Line {l1=0x11, l2=» END;«, l3=0x11}
0x3321…333f Line {l1=0x1c, l2=» INSERT(POST.A);«, l3=0x1c}
0x333f…335c Line {l1=0x1b, l2=» IF IER<>0 THEN«, l3=0x1b}
0x335c…3379 Line {l1=0x1b, l2=» IF IER=-7 THEN«, l3=0x1b}
0x3379…338d Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x338d…33c5 Line {l1=0x36, l2=» WRITELN('Posten findes, RETURN');READLN«, l3=0x36}
0x33c5…33d7 Line {l1=0x10, l2=» END«, l3=0x10}
0x33d7…33f8 Line {l1=0x1f, l2=» ELSE ERROR(POST.A)«, l3=0x1f}
0x33f8…3432 Line {l1=0x38, l2=» ELSE (*@@EVT. INDSÆT/VEDL AF ANDRE POSTER*)«, l3=0x38}
0x3432…345e Line {l1=0x2a, l2=» FOR HNR:=1 TO ANTALHÆGTER DO «, l3=0x2a}
0x345e…3472 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x3472…348c Line {l1=0x18, l2=» SÆTHÆGTE;«, l3=0x18}
0x348c…34a6 Line {l1=0x18, l2=» SÆTNØGLE;«, l3=0x18}
0x34a6…34cf Line {l1=0x27, l2=» INSERT(HÆGTEREC(HNR).A);«, l3=0x27}
0x34cf…3505 Line {l1=0x34, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A)«, l3=0x34}
0x3505…3517 Line {l1=0x10, l2=» END«, l3=0x10}
0x3517…3528 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x3528…353d Line {l1=0x13, l2=» 5: SLETPOST«, l3=0x13}
0x353d…3548 Line {l1=0x09, l2=» END«, l3=0x09}
0x3548…354e Line {l1=0x04, l2=»END;«, l3=0x04}
0x354e…3556 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3556…3569 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x3569…3579 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3579…35a9 Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x35a9…35b5 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x35b5…35ec Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x35ec…3601 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x3601…361f Line {l1=0x1c, l2=» FOR I:=1 TO ANTALHÆGTER DO«, l3=0x1c}
0x361f…3628 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3628…3643 Line {l1=0x19, l2=» IOPEN(HÆGTEREC(I).A);«, l3=0x19}
0x3643…366c Line {l1=0x27, l2=» IF IER<>0 THEN OFEJL(HÆGTEREC(I).A)«, l3=0x27}
0x366c…3674 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3674…36c4 Line {l1=0x4e, l2=» LINES:=100; (*$R-*)«, l3=0x4e}
0x36c4…3714 Line {l1=0x4e, l2=» POST.A(-3):=FILNR; (*$R+*)«, l3=0x4e}
0x3714…3743 Line {l1=0x2d, l2=» IOPEN(POST.A);IF IER<>0 THEN OFEJL(POST.A);«, l3=0x2d}
0x3743…376f Line {l1=0x2a, l2=»(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2a}
0x376f…3779 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3779…378b Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x378b…379f Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x379f…37e9 Line {l1=0x48, l2=» WRITELN(REGNAVN,' R E G I S T E R - V E D L I G E H O L D E L S E');«, l3=0x48}
0x37e9…37fd Line {l1=0x12, l2=» GOTOXY(10,12);«, l3=0x12}
0x37fd…3817 Line {l1=0x18, l2=» WRITELN('0 Færdig');«, l3=0x18}
0x3817…3838 Line {l1=0x1f, l2=» WRITELN(' ':9,'1 Ændring');«, l3=0x1f}
0x3838…3863 Line {l1=0x29, l2=» WRITELN(' ':9,'2 Udskrift på skærm');«, l3=0x29}
0x3863…3890 Line {l1=0x2b, l2=» WRITELN(' ':9,'3 Udskrift på printer');«, l3=0x2b}
0x3890…38b4 Line {l1=0x22, l2=» WRITELN(' ':9,'4 Oprettelse');«, l3=0x22}
0x38b4…38d6 Line {l1=0x20, l2=» WRITELN(' ':9,'5 Sletning');«, l3=0x20}
0x38d6…38e2 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x38e2…38f8 Line {l1=0x14, l2=» GOTOXY(10,19);«, l3=0x14}
0x38f8…3914 Line {l1=0x1a, l2=» WRITELN('Vælg 0-5');«, l3=0x1a}
0x3914…392d Line {l1=0x17, l2=» GOTOXY(21,19);UR;«, l3=0x17}
0x392d…393f Line {l1=0x10, l2=» OPTION:=SV«, l3=0x10}
0x393f…3967 Line {l1=0x26, l2=» UNTIL (OPTION>=0) AND (OPTION<=5);«, l3=0x26}
0x3967…3987 Line {l1=0x1e, l2=» IF OPTION>0 THEN MAINTAIN «, l3=0x1e}
0x3987…399a Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x399a…39bc Line {l1=0x20, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x20}
0x39bc…39cf Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x39cf…3a04 Line {l1=0x33, l2=» FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);«, l3=0x33}
0x3a04…3a2b Line {l1=0x25, l2=»(*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x25}
0x3a2b…3a3b Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3a3b…3a58 Line {l1=0x1b, l2=» IF IER<>0 THEN BAD(6,IER)«, l3=0x1b}
0x3a58…3a5e Line {l1=0x04, l2=»END;«, l3=0x04}
0x3a5e…3a66 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3a66…3a6d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3a6d…3a8b Line {l1=0x1c, l2=» ALARM:=CLOCK^.DATE(9)='1';«, l3=0x1c}
0x3a8b…3acb Line {l1=0x3e, l2=» IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);«, l3=0x3e}
0x3acb…3af9 Line {l1=0x2c, l2=» HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;«, l3=0x2c}
0x3af9…3b13 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x3b13…3b2b Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x3b2b…3b41 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x3b41…3b51 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x3b51…3b5a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3b5a…3b7d Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x3b7d…3b89 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x3b89…3bd9 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x3bd9…3be9 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x3be9…3c29 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x3c29…3c79 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x3c79…3c92 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x3c92…3cac Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x3cac…3cca Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x3cca…3cdb Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x3cdb…3cfc Line {l1=0x1f, l2=» DESCNAVN:='????????:P?:05:J';«, l3=0x1f}
0x3cfc…3d1e Line {l1=0x20, l2=» REGNAVN:='123456789012345678';«, l3=0x20}
0x3d1e…3d2a Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x3d2a…3d42 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x3d42…3d5b Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x3d5b…3d79 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x3d79…3d8e Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x3d8e…3db6 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x3db6…3dec Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);«, l3=0x34}
0x3dec…3e21 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x3e21…3e27 Line {l1=0x04, l2=»END.«, l3=0x04}
0x3e27…3e40 00 00 20 20 20 20 45 4c 53 45 20 4f 4b 3a 3d 46 41 4c 53 45 1c 09 20 20 20 ┆ ELSE OK:=FALSE ┆
0x3e40…3e60 20 20 20 45 4e 44 09 16 20 20 20 20 45 4e 44 20 45 4c 53 45 20 4f 4b 3a 3d 54 52 55 45 3b 16 05 ┆ END END ELSE OK:=TRUE; ┆
0x3e60…3e80 52 45 45 4c 3a 05 1a 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3e 30 20 54 48 45 ┆REEL: IF LENGTH(LINE)>0 THE┆
0x3e80…3ea0 4e 1a 09 20 20 20 20 42 45 47 49 4e 09 0b 20 20 20 20 20 20 49 3a 3d 30 3b 0b 11 20 20 20 20 20 ┆N BEGIN I:=0; ┆
0x3ea0…3ec0 20 46 4f 52 54 45 47 4e 3a 3d 31 3b 11 0f 20 20 20 20 20 20 44 45 43 53 3a 3d 2d 31 3b 0f 19 20 ┆ FORTEGN:=1; DECS:=-1; ┆
0x3ec0…3ee0 20 20 20 20 20 49 46 20 4c 49 4e 45 28 31 29 3d 27 2d 27 20 54 48 45 4e 19 0b 20 20 20 20 20 20 ┆ IF LINE(1)='-' THEN ┆
0x3ee0…3f00 42 45 47 49 4e 0b 14 20 20 20 20 20 20 20 20 46 4f 52 54 45 47 4e 3a 3d 2d 31 3b 14 0c 20 20 20 ┆BEGIN FORTEGN:=-1; ┆
0x3f00…3f20 20 20 20 20 20 49 3a 3d 31 0c 0a 20 20 20 20 20 20 45 4e 44 3b 0a 2c 20 20 20 20 20 20 57 48 49 ┆ I:=1 END; , WHI┆
0x3f20…3f40 4c 45 20 28 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3e 49 29 20 41 4e 44 20 28 44 45 43 53 3c 30 29 ┆LE (LENGTH(LINE)>I) AND (DECS<0)┆
0x3f40…3f60 20 44 4f 2c 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 11 20 20 20 20 20 20 20 20 4f 4b 3a 3d 54 52 ┆ DO, BEGIN OK:=TR┆
0x3f60…3f80 55 45 3b 11 0f 20 20 20 20 20 20 20 20 49 3a 3d 49 2b 31 3b 0f 27 20 20 20 20 20 20 20 20 49 46 ┆UE; I:=I+1; ' IF┆
0x3f80…3fa0 20 4c 49 4e 45 28 49 29 20 49 4e 20 28 2e 27 30 27 2e 2e 27 39 27 2e 29 20 54 48 45 4e 27 2b 20 ┆ LINE(I) IN (.'0'..'9'.) THEN'+ ┆
0x3fa0…3fc0 20 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 3a 3d 31 30 2a 52 45 53 55 4c 54 2b 4f 52 44 28 4c ┆ RESULT:=10*RESULT+ORD(L┆
0x3fc0…3fe0 49 4e 45 28 49 29 29 2d 34 38 2b 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 2e 20 20 20 20 20 20 ┆INE(I))-48+ ELSE . ┆
0x3fe0…4000 20 20 49 46 20 28 4c 49 4e 45 28 49 29 3d 27 2e 27 29 20 4f 52 20 28 4c 49 4e 45 28 49 29 3d 27 ┆ IF (LINE(I)='.') OR (LINE(I)='┆
0x4000…4020 2c 27 29 20 54 48 45 4e 2e 11 20 20 20 20 20 20 20 20 20 20 44 45 43 53 3a 3d 30 11 0c 20 20 20 ┆,') THEN. DECS:=0 ┆
0x4020…4040 20 20 20 20 20 45 4c 53 45 0c 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 14 20 20 20 20 20 20 ┆ ELSE BEGIN ┆
0x4040…4060 20 20 20 20 4f 4b 3a 3d 46 41 4c 53 45 3b 14 19 20 20 20 20 20 20 20 20 20 20 49 3a 3d 4c 45 4e ┆ OK:=FALSE; I:=LEN┆
0x4060…4080 47 54 48 28 4c 49 4e 45 29 19 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 0a 20 20 20 20 20 20 45 4e ┆GTH(LINE) END EN┆
0x4080…40a0 44 3b 0a 0e 20 20 20 20 20 20 44 4d 3a 3d 31 2e 30 3b 0e 1d 20 20 20 20 20 20 57 48 49 4c 45 20 ┆D; DM:=1.0; WHILE ┆
0x40a0…40c0 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3e 49 20 44 4f 1d 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 0f ┆LENGTH(LINE)>I DO BEGIN ┆
0x40c0…40e0 20 20 20 20 20 20 20 20 49 3a 3d 49 2b 31 3b 0f 14 20 20 20 20 20 20 20 20 44 4d 3a 3d 44 4d 2f ┆ I:=I+1; DM:=DM/┆
0x40e0…4100 31 30 2e 30 3b 14 27 20 20 20 20 20 20 20 20 49 46 20 4c 49 4e 45 28 49 29 20 49 4e 20 28 2e 27 ┆10.0; ' IF LINE(I) IN (.'┆
0x4100…4120 30 27 2e 2e 27 39 27 2e 29 20 54 48 45 4e 27 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 2e 20 ┆0'..'9'.) THEN' BEGIN . ┆
0x4120…4140 20 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 3a 3d 52 45 53 55 4c 54 2b 44 4d 2a 28 4f 52 44 28 ┆ RESULT:=RESULT+DM*(ORD(┆
0x4140…4160 4c 49 4e 45 28 49 29 29 2d 34 38 29 3b 2e 16 20 20 20 20 20 20 20 20 20 20 44 45 43 53 3a 3d 44 ┆LINE(I))-48);. DECS:=D┆
0x4160…4180 45 43 53 2b 31 16 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 0c 20 20 20 20 20 20 20 20 45 4c 53 45 ┆ECS+1 END ELSE┆
0x4180…41a0 0c 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 14 20 20 20 20 20 20 20 20 20 20 4f 4b 3a 3d 46 ┆ BEGIN OK:=F┆
0x41a0…41c0 41 4c 53 45 3b 14 19 20 20 20 20 20 20 20 20 20 20 49 3a 3d 4c 45 4e 47 54 48 28 4c 49 4e 45 29 ┆ALSE; I:=LENGTH(LINE)┆
0x41c0…41e0 19 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 0a 20 20 20 20 20 20 45 4e 44 3b 0a 1d 20 20 20 20 20 ┆ END END; ┆
0x41e0…4200 20 52 45 53 55 4c 54 3a 3d 46 4f 52 54 45 47 4e 2a 52 45 53 55 4c 54 3b 1d 23 20 20 20 20 20 20 ┆ RESULT:=FORTEGN*RESULT; # ┆
0x4200…4220 49 46 20 44 45 43 53 3e 46 5e 2e 44 45 43 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 23 07 20 ┆IF DECS>F^.DEC THEN OK:=FALSE# ┆
0x4220…4240 20 20 20 45 4e 44 07 11 20 20 20 20 45 4c 53 45 20 4f 4b 3a 3d 54 52 55 45 11 07 20 20 20 20 45 ┆ END ELSE OK:=TRUE E┆
0x4240…4260 4e 44 07 0a 20 20 55 4e 54 49 4c 20 4f 4b 0a 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 13 50 52 ┆ND UNTIL OK END; (*$P*) PR┆
0x4260…4280 4f 43 45 44 55 52 45 20 43 48 45 43 4b 56 41 4c 3b 13 23 56 41 52 20 49 2c 44 41 54 30 2c 4d 5d ┆OCEDURE CHECKVAL; #VAR I,DAT0,MÅ┆
0x4280…42a0 4e 45 44 2c 5d 52 2c 4d 4f 44 55 4c 43 3a 49 4e 54 45 47 45 52 3b 23 21 20 20 20 20 43 50 4e 3a ┆NED,ÅR,MODULC:INTEGER;#! CPN:┆
0x42a0…42c0 41 52 52 41 59 20 28 31 2e 2e 31 30 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 21 05 42 45 47 49 4e ┆ARRAY (1..10) OF INTEGER;! BEGIN┆
0x42c0…42e0 05 1d 20 20 43 41 53 45 20 56 41 4c 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 20 4f 46 1d ┆ CASE VAL^.VALIDITETSTYPE OF ┆
0x42e0…4300 0c 20 20 48 49 4e 54 45 52 56 41 4c 3a 0c 2f 20 20 20 20 42 55 4d 4d 45 44 3a 3d 28 28 54 41 4c ┆ HINTERVAL: / BUMMED:=((TAL┆
0x4300…4320 3c 56 41 4c 5e 2e 4d 49 4e 29 20 4f 52 20 28 54 41 4c 3e 56 41 4c 5e 2e 4d 41 58 29 29 3b 2f 0c ┆<VAL^.MIN) OR (TAL>VAL^.MAX));/ ┆
0x4320…4340 20 20 44 49 4e 54 45 52 56 41 4c 3a 0c 3e 20 20 20 20 42 55 4d 4d 45 44 3a 3d 28 28 54 41 4c 2a ┆ DINTERVAL: > BUMMED:=((TAL*┆
0x4340…4360 31 30 30 30 30 2e 30 2b 54 41 4c 31 3c 56 41 4c 5e 2e 4d 49 4e 31 2a 31 30 30 30 30 2e 30 2b 56 ┆10000.0+TAL1<VAL^.MIN1*10000.0+V┆
0x4360…4380 41 4c 5e 2e 4d 49 4e 32 29 20 4f 52 3e 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 41 4c 2a ┆AL^.MIN2) OR>= (TAL*┆
0x4380…43a0 31 30 30 30 30 2e 30 2b 54 41 4c 31 3e 56 41 4c 5e 2e 4d 41 58 31 2a 31 30 30 30 30 2e 30 2b 56 ┆10000.0+TAL1>VAL^.MAX1*10000.0+V┆
0x43a0…43c0 41 4c 5e 2e 4d 41 58 32 29 29 3b 3d 0c 20 20 52 49 4e 54 45 52 56 41 4c 3a 0c 37 20 20 20 20 42 ┆AL^.MAX2));= RINTERVAL: 7 B┆
0x43c0…43e0 55 4d 4d 45 44 3a 3d 28 28 52 45 53 55 4c 54 3c 56 41 4c 5e 2e 52 4d 49 4e 29 20 4f 52 20 28 52 ┆UMMED:=((RESULT<VAL^.RMIN) OR (R┆
0x43e0…4400 45 53 55 4c 54 3e 56 41 4c 5e 2e 52 4d 41 58 29 29 3b 37 07 20 20 44 41 54 4f 3a 07 1a 20 20 20 ┆ESULT>VAL^.RMAX));7 DATO: ┆
0x4400…4420 20 49 46 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3d 36 20 54 48 45 4e 1a 09 20 20 20 20 42 45 47 ┆ IF LENGTH(LINE)=6 THEN BEG┆
0x4420…4440 49 4e 09 2f 20 20 20 20 20 20 5d 52 3a 3d 31 30 2a 28 4f 52 44 28 4c 49 4e 45 28 31 29 29 2d 34 ┆IN / ÅR:=10*(ORD(LINE(1))-4┆
0x4440…4460 38 29 2b 4f 52 44 28 4c 49 4e 45 28 32 29 29 2d 34 38 3b 2f 32 20 20 20 20 20 20 4d 5d 4e 45 44 ┆8)+ORD(LINE(2))-48;/2 MÅNED┆
0x4460…4480 3a 3d 31 30 2a 28 4f 52 44 28 4c 49 4e 45 28 33 29 29 2d 34 38 29 2b 4f 52 44 28 4c 49 4e 45 28 ┆:=10*(ORD(LINE(3))-48)+ORD(LINE(┆
0x4480…44a0 34 29 29 2d 34 38 3b 32 31 20 20 20 20 20 20 44 41 54 30 3a 3d 31 30 2a 28 4f 52 44 28 4c 49 4e ┆4))-48;21 DAT0:=10*(ORD(LIN┆
0x44a0…44c0 45 28 35 29 29 2d 34 38 29 2b 4f 52 44 28 4c 49 4e 45 28 36 29 29 2d 34 38 3b 31 4c 20 20 20 20 ┆E(5))-48)+ORD(LINE(6))-48;1L ┆
0x44c0…44e0 20 20 49 46 20 28 44 41 54 30 3c 31 29 20 4f 52 20 28 4d 5d 4e 45 44 3c 31 29 20 4f 52 20 28 4d ┆ IF (DAT0<1) OR (MÅNED<1) OR (M┆
0x44e0…4500 5d 4e 45 44 3e 31 32 29 20 4f 52 20 28 44 41 54 30 3e 33 31 29 20 54 48 45 4e 20 42 55 4d 4d 45 ┆ÅNED>12) OR (DAT0>31) THEN BUMME┆
0x4500…4520 44 3a 3d 54 52 55 45 3b 4c 18 20 20 20 20 20 20 49 46 20 4e 4f 54 20 42 55 4d 4d 45 44 20 54 48 ┆D:=TRUE;L IF NOT BUMMED TH┆
0x4520…4540 45 4e 18 13 20 20 20 20 20 20 43 41 53 45 20 4d 5d 4e 45 44 20 4f 46 13 2d 20 20 20 20 20 20 34 ┆EN CASE MÅNED OF - 4┆
0x4540…4560 2c 36 2c 39 2c 31 31 3a 20 49 46 20 44 41 54 30 3e 33 30 20 54 48 45 4e 20 42 55 4d 4d 45 44 3a ┆,6,9,11: IF DAT0>30 THEN BUMMED:┆
0x4560…4580 3d 54 52 55 45 3b 2d 49 20 20 20 20 20 20 32 3a 20 49 46 20 28 44 41 54 30 3e 32 39 29 20 4f 52 ┆=TRUE;-I 2: IF (DAT0>29) OR┆
0x4580…45a0 20 28 28 44 41 54 30 3d 32 39 29 20 41 4e 44 20 28 5d 52 20 4d 4f 44 20 34 20 3c 3e 30 29 29 20 ┆ ((DAT0=29) AND (ÅR MOD 4 <>0)) ┆
0x45a0…45c0 54 48 45 4e 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 49 09 20 20 20 20 20 20 45 4e 44 09 07 20 20 ┆THEN BUMMED:=TRUEI END ┆
0x45c0…45e0 20 20 45 4e 44 07 16 20 20 20 20 45 4c 53 45 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 3b 16 06 20 ┆ END ELSE BUMMED:=TRUE; ┆
0x45e0…4600 20 43 50 52 3a 06 1b 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3d 31 30 20 54 48 ┆ CPR: IF LENGTH(LINE)=10 TH┆
0x4600…4620 45 4e 1b 09 20 20 20 20 42 45 47 49 4e 09 30 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆EN BEGIN 0 FOR I:=1 TO┆
0x4620…4640 20 31 30 20 44 4f 20 43 50 4e 28 49 29 3a 3d 4f 52 44 28 4c 49 4e 45 28 49 29 29 2d 34 38 3b 30 ┆ 10 DO CPN(I):=ORD(LINE(I))-48;0┆
0x4640…4660 1d 20 20 20 20 20 20 44 41 54 30 3a 3d 43 50 4e 28 31 29 2a 31 30 2b 43 50 4e 28 32 29 3b 1d 1e ┆ DAT0:=CPN(1)*10+CPN(2); ┆
0x4660…4680 20 20 20 20 20 20 4d 5d 4e 45 44 3a 3d 43 50 4e 28 33 29 2a 31 30 2b 43 50 4e 28 34 29 3b 1e 1b ┆ MÅNED:=CPN(3)*10+CPN(4); ┆
0x4680…46a0 20 20 20 20 20 20 5d 52 3a 3d 43 50 4e 28 35 29 2a 31 30 2b 43 50 4e 28 36 29 3b 1b 4c 20 20 20 ┆ ÅR:=CPN(5)*10+CPN(6); L ┆
0x46a0…46c0 20 20 20 49 46 20 28 44 41 54 30 3c 31 29 20 4f 52 20 28 4d 5d 4e 45 44 3c 31 29 20 4f 52 20 28 ┆ IF (DAT0<1) OR (MÅNED<1) OR (┆
0x46c0…46e0 4d 5d 4e 45 44 3e 31 32 29 20 4f 52 20 28 44 41 54 30 3e 33 31 29 20 54 48 45 4e 20 42 55 4d 4d ┆MÅNED>12) OR (DAT0>31) THEN BUMM┆
0x46e0…4700 45 44 3a 3d 54 52 55 45 3b 4c 18 20 20 20 20 20 20 49 46 20 4e 4f 54 20 42 55 4d 4d 45 44 20 54 ┆ED:=TRUE;L IF NOT BUMMED T┆
0x4700…4720 48 45 4e 18 13 20 20 20 20 20 20 43 41 53 45 20 4d 5d 4e 45 44 20 4f 46 13 2d 20 20 20 20 20 20 ┆HEN CASE MÅNED OF - ┆
0x4720…4740 34 2c 36 2c 39 2c 31 31 3a 20 49 46 20 44 41 54 30 3e 33 30 20 54 48 45 4e 20 42 55 4d 4d 45 44 ┆4,6,9,11: IF DAT0>30 THEN BUMMED┆
0x4740…4760 3a 3d 54 52 55 45 3b 2d 48 20 20 20 20 20 20 32 3a 20 49 46 20 28 44 41 54 30 3e 32 39 29 20 4f ┆:=TRUE;-H 2: IF (DAT0>29) O┆
0x4760…4780 52 20 28 28 44 41 54 30 3d 32 39 29 20 41 4e 44 20 28 5d 52 20 4d 4f 44 20 34 3c 3e 30 29 29 20 ┆R ((DAT0=29) AND (ÅR MOD 4<>0)) ┆
0x4780…47a0 54 48 45 4e 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 48 0a 20 20 20 20 20 20 45 4e 44 3b 0a 18 20 ┆THEN BUMMED:=TRUEH END; ┆
0x47a0…47c0 20 20 20 20 20 49 46 20 4e 4f 54 20 42 55 4d 4d 45 44 20 54 48 45 4e 18 0b 20 20 20 20 20 20 42 ┆ IF NOT BUMMED THEN B┆
0x47c0…47e0 45 47 49 4e 0b 4d 20 20 20 20 20 20 4d 4f 44 55 4c 43 3a 3d 43 50 4e 28 31 29 2a 34 2b 43 50 4e ┆EGIN M MODULC:=CPN(1)*4+CPN┆
0x47e0…4800 28 32 29 2a 33 2b 43 50 4e 28 33 29 2a 32 2b 43 50 4e 28 34 29 2a 37 2b 43 50 4e 28 35 29 2a 36 ┆(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6┆
0x4800…4820 2b 43 50 4e 28 36 29 2a 35 2b 43 50 4e 28 37 29 2a 34 2b 4d 28 20 20 20 20 20 20 20 20 20 20 20 ┆+CPN(6)*5+CPN(7)*4+M( ┆
0x4820…4840 20 20 20 43 50 4e 28 38 29 2a 33 2b 43 50 4e 28 39 29 2a 32 2b 43 50 4e 28 31 30 29 3b 28 2d 20 ┆ CPN(8)*3+CPN(9)*2+CPN(10);(- ┆
0x4840…4860 20 20 20 20 20 20 20 49 46 20 4d 4f 44 55 4c 43 20 4d 4f 44 20 31 31 3c 3e 30 20 54 48 45 4e 20 ┆ IF MODULC MOD 11<>0 THEN ┆
0x4860…4880 42 55 4d 4d 45 44 3a 3d 54 52 55 45 2d 09 20 20 20 20 20 20 45 4e 44 09 07 20 20 20 20 45 4e 44 ┆BUMMED:=TRUE- END END┆
0x4880…48a0 07 16 20 20 20 20 45 4c 53 45 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 3b 16 05 20 20 45 4e 44 05 ┆ ELSE BUMMED:=TRUE; END ┆
0x48a0…48c0 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 15 28 2a 50 52 4f 43 45 44 55 52 45 20 4c 5b 53 46 45 ┆ END; (*$P*) (*PROCEDURE LÆSFE┆
0x48c0…48e0 4c 54 2a 29 15 05 42 45 47 49 4e 05 23 20 49 46 20 55 53 45 52 4e 49 56 45 41 55 3e 3d 46 5e 2e ┆LT*) BEGIN # IF USERNIVEAU>=F^.┆
0x48e0…4900 5b 4e 44 52 45 4e 49 56 45 41 55 20 54 48 45 4e 23 06 20 42 45 47 49 4e 06 08 20 20 52 45 50 45 ┆ÆNDRENIVEAU THEN# BEGIN REPE┆
0x4900…4920 41 54 08 0d 20 20 20 20 4c 5b 53 4c 49 4e 49 45 3b 0d 15 20 20 20 20 56 41 4c 3a 3d 46 5e 2e 4e ┆AT LÆSLINIE; VAL:=F^.N┆
0x4920…4940 5b 53 54 45 56 41 4c 3b 15 12 20 20 20 20 42 55 4d 4d 45 44 3a 3d 46 41 4c 53 45 3b 12 28 20 20 ┆ÆSTEVAL; BUMMED:=FALSE; ( ┆
0x4940…4960 20 20 57 48 49 4c 45 20 28 56 41 4c 3c 3e 4e 49 4c 29 20 41 4e 44 20 28 4e 4f 54 20 42 55 4d 4d ┆ WHILE (VAL<>NIL) AND (NOT BUMM┆
0x4960…4980 45 44 29 20 44 4f 28 09 20 20 20 20 42 45 47 49 4e 09 0f 20 20 20 20 20 20 43 48 45 43 4b 56 41 ┆ED) DO( BEGIN CHECKVA┆
0x4980…49a0 4c 3b 0f 18 20 20 20 20 20 20 56 41 4c 3a 3d 56 41 4c 5e 2e 4e 5b 53 54 45 56 41 4c 18 07 20 20 ┆L; VAL:=VAL^.NÆSTEVAL ┆
0x49a0…49c0 20 20 45 4e 44 07 13 20 20 55 4e 54 49 4c 20 4e 4f 54 20 42 55 4d 4d 45 44 3b 13 4e 20 20 43 41 ┆ END UNTIL NOT BUMMED; N CA┆
0x49c0…49e0 53 45 20 46 5e 2e 46 45 4c 54 54 59 50 45 20 4f 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SE F^.FELTTYPE OF ┆
0x49e0…4a00 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 ┆ ┆
0x4a00…4a20 20 20 20 28 2a 24 52 2d 2a 29 4e 47 20 20 48 45 4c 54 41 4c 3a 50 4f 53 54 2e 41 28 46 5e 2e 49 ┆ (*$R-*)NG HELTAL:POST.A(F^.I┆
0x4a20…4a40 4e 44 45 4b 53 29 3a 3d 54 41 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NDEKS):=TAL; ┆
0x4a40…4a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 0f 20 20 44 4f 42 42 54 41 4c 3a 42 ┆ G DOBBTAL:B┆
0x4a60…4a80 45 47 49 4e 0f 23 20 20 20 20 20 20 20 20 20 20 20 20 50 4f 53 54 2e 41 28 46 5e 2e 49 4e 44 45 ┆EGIN # POST.A(F^.INDE┆
0x4a80…4aa0 4b 53 29 3a 3d 54 41 4c 3b 23 25 20 20 20 20 20 20 20 20 20 20 20 20 50 4f 53 54 2e 41 28 46 5e ┆KS):=TAL;#% POST.A(F^┆
0x4aa0…4ac0 2e 49 4e 44 45 4b 53 2b 31 29 3a 3d 54 41 4c 31 25 0e 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b ┆.INDEKS+1):=TAL1% END;┆
0x4ac0…4ae0 0e 23 20 20 52 45 45 4c 3a 50 4f 53 54 2e 41 41 41 28 46 5e 2e 49 4e 44 45 4b 53 29 3a 3d 52 45 ┆ # REEL:POST.AAA(F^.INDEKS):=RE┆
0x4ae0…4b00 53 55 4c 54 3b 23 47 20 20 54 45 4b 53 54 3a 46 4f 52 20 49 3a 3d 31 20 54 4f 20 46 5e 2e 4c 5b ┆SULT;#G TEKST:FOR I:=1 TO F^.LÆ┆
0x4b00…4b20 4e 47 44 45 20 44 4f 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 ┆NGDE DO ┆
0x4b20…4b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4e 20 20 20 20 20 20 20 20 20 20 20 20 50 4f 53 54 ┆ GN POST┆
0x4b40…4b60 2e 41 41 28 49 2b 46 5e 2e 49 4e 44 45 4b 53 2d 31 29 3a 3d 4c 49 4e 45 28 49 29 20 20 20 20 20 ┆.AA(I+F^.INDEKS-1):=LINE(I) ┆
0x4b60…4b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 52 2b 2a 29 4e 05 ┆ (*$R+*)N ┆
0x4b80…4ba0 20 20 45 4e 44 05 04 20 45 4e 44 04 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 07 28 2a 24 4c 2b ┆ END END END; (*$P*) (*$L+┆
0x4ba0…4bc0 2a 29 07 13 50 52 4f 43 45 44 55 52 45 20 4d 41 49 4e 54 41 49 4e 3b 13 0e 56 41 52 20 4a 3a 49 ┆*) PROCEDURE MAINTAIN; VAR J:I┆
0x4bc0…4be0 4e 54 45 47 45 52 3b 0e 11 20 20 20 20 43 48 3a 53 54 52 49 4e 47 28 31 29 3b 11 05 42 45 47 49 ┆NTEGER; CH:STRING(1); BEGI┆
0x4be0…4c00 4e 05 12 20 20 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 12 17 20 20 20 20 20 20 49 46 20 ┆N CLEARSCREEN; IF ┆
0x4c00…4c20 4f 50 54 49 4f 4e 3c 3e 34 20 54 48 45 4e 17 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 1c 20 20 20 ┆OPTION<>4 THEN BEGIN ┆
0x4c20…4c40 20 20 20 20 20 48 55 53 4b 4e 49 56 3a 3d 55 53 45 52 4e 49 56 45 41 55 3b 1c 1c 20 20 20 20 20 ┆ HUSKNIV:=USERNIVEAU; ┆
0x4c40…4c60 20 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 55 4d 55 4c 49 55 53 3b 1c 10 20 20 20 20 20 20 20 ┆ USERNIVEAU:=UMULIUS; ┆
0x4c60…4c80 20 4e 55 4c 50 4f 53 54 3b 10 0d 20 20 20 20 20 20 20 20 4a 3a 3d 31 3b 0d 1b 20 20 20 20 20 20 ┆ NULPOST; J:=1; ┆
0x4c80…4ca0 20 20 4c 5b 53 46 45 4c 54 28 4e 5c 47 4c 45 52 28 4a 29 29 3b 1b 2c 20 20 20 20 20 20 20 20 57 ┆ LÆSFELT(NØGLER(J)); , W┆
0x4ca0…4cc0 48 49 4c 45 20 28 4a 3c 41 4e 54 41 4c 4e 5c 47 4c 45 52 29 20 41 4e 44 20 4e 4f 54 20 45 4f 46 ┆HILE (J<ANTALNØGLER) AND NOT EOF┆
0x4cc0…4ce0 20 44 4f 2c 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 11 20 20 20 20 20 20 20 20 20 20 4a 3a ┆ DO, BEGIN J:┆
0x4ce0…4d00 3d 4a 2b 31 3b 11 1c 20 20 20 20 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 4e 5c 47 4c 45 52 28 ┆=J+1; LÆSFELT(NØGLER(┆
0x4d00…4d20 4a 29 29 1c 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 1c 20 20 20 20 20 20 20 20 55 53 45 52 4e ┆J)) END; USERN┆
0x4d20…4d40 49 56 45 41 55 3a 3d 48 55 53 4b 4e 49 56 3b 1c 22 20 20 20 20 20 20 20 20 49 46 20 4f 50 54 49 ┆IVEAU:=HUSKNIV; " IF OPTI┆
0x4d40…4d60 4f 4e 20 49 4e 20 28 2e 31 2c 35 2e 29 20 54 48 45 4e 20 22 1a 20 20 20 20 20 20 20 20 20 20 47 ┆ON IN (.1,5.) THEN " G┆
0x4d60…4d80 45 54 52 45 43 58 28 50 4f 53 54 2e 41 29 20 1a 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 19 20 ┆ETRECX(POST.A) ELSE ┆
0x4d80…4da0 20 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 50 4f 53 54 2e 41 29 3b 19 35 20 20 20 20 20 20 ┆ GETREC(POST.A); 5 ┆
0x4da0…4dc0 20 20 49 46 20 28 49 45 52 3c 3e 30 29 20 41 4e 44 20 28 49 45 52 3c 3e 2d 36 29 20 54 48 45 4e ┆ IF (IER<>0) AND (IER<>-6) THEN┆
0x4dc0…4de0 20 45 52 52 4f 52 28 50 4f 53 54 2e 41 29 3b 35 13 20 20 20 20 20 20 20 20 49 46 20 45 4f 46 20 ┆ ERROR(POST.A);5 IF EOF ┆
0x4de0…4e00 54 48 45 4e 13 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 18 20 20 20 20 20 20 20 20 20 20 49 ┆THEN BEGIN I┆
0x4e00…4e20 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 18 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 25 ┆F IER=-6 THEN BEGIN %┆
0x4e20…4e27 20 20 20 20 20 20 20 ┆ ┆
0x4e27…7060 […elided…]
0x7060…7080 4f 15 0e 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0e 28 20 20 20 20 20 20 20 20 20 20 20 55 53 ┆O BEGIN ( US┆
0x7080…70a0 45 52 4e 49 56 45 41 55 3a 3d 53 55 43 43 28 55 53 45 52 4e 49 56 45 41 55 29 3b 28 11 20 20 20 ┆ERNIVEAU:=SUCC(USERNIVEAU);( ┆
0x70a0…70c0 20 20 20 20 20 20 20 20 49 3a 3d 49 2d 31 11 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 0a 20 20 ┆ I:=I-1 END ┆
0x70c0…70e0 20 20 20 20 20 45 4e 44 0a 17 20 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 49 3d 31 20 54 48 45 ┆ END ELSE IF I=1 THE┆
0x70e0…7100 4e 17 0c 20 20 20 20 20 20 20 42 45 47 49 4e 0c 28 20 20 20 20 20 20 20 20 20 49 53 46 46 4e 41 ┆N BEGIN ( ISFFNA┆
0x7100…7120 56 4e 3a 3d 27 49 53 46 46 49 4c 45 53 3a 50 32 3a 30 30 30 30 3a 53 27 3b 28 26 20 20 20 20 20 ┆VN:='ISFFILES:P2:0000:S';(& ┆
0x7120…7140 20 20 20 20 52 45 53 45 54 28 49 53 46 46 49 4c 45 53 2c 49 53 46 46 4e 41 56 4e 29 3b 49 4f 43 ┆ RESET(ISFFILES,ISFFNAVN);IOC┆
0x7140…7160 3b 26 0f 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0f 17 20 20 20 20 20 20 20 20 20 20 20 43 ┆;& REPEAT C┆
0x7160…7180 4c 45 41 52 53 43 52 45 45 4e 3b 17 20 20 20 20 20 20 20 20 20 20 20 20 53 45 45 4b 28 49 53 46 ┆LEARSCREEN; SEEK(ISF┆
0x7180…71a0 46 49 4c 45 53 2c 31 29 3b 49 4f 43 3b 20 1d 20 20 20 20 20 20 20 20 20 20 20 47 45 54 28 49 53 ┆FILES,1);IOC; GET(IS┆
0x71a0…71c0 46 46 49 4c 45 53 29 3b 49 4f 43 3b 1d 14 20 20 20 20 20 20 20 20 20 20 20 46 49 4c 4e 52 3a 3d ┆FFILES);IOC; FILNR:=┆
0x71c0…71e0 30 3b 14 2d 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 49 53 46 46 49 4c 45 53 5e 2e 46 ┆0; - WHILE ISFFILES^.F┆
0x71e0…7200 49 4c 4e 41 56 4e 28 31 29 3c 3e 27 40 27 20 44 4f 2d 10 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆ILNAVN(1)<>'@' DO- BE┆
0x7200…7220 47 49 4e 10 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49 4c 4e 52 3a 3d 46 49 4c 4e 52 2b 31 ┆GIN FILNR:=FILNR+1┆
0x7220…7240 3b 1c 35 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 53 46 46 49 4c 45 53 5e 2e 56 45 44 ┆; 5 IF ISFFILES^.VED┆
0x7240…7260 4c 4e 49 56 45 41 55 3c 3d 55 53 45 52 4e 49 56 45 41 55 20 54 48 45 4e 35 42 20 20 20 20 20 20 ┆LNIVEAU<=USERNIVEAU THEN5B ┆
0x7260…7280 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 46 49 4c 4e 52 3a 34 2c 27 20 27 2c 49 53 46 ┆ WRITELN(FILNR:4,' ',ISF┆
0x7280…72a0 46 49 4c 45 53 5e 2e 52 45 47 4e 41 56 4e 2c 27 2d 72 65 67 69 73 74 65 72 27 29 3b 42 1e 20 20 ┆FILES^.REGNAVN,'-register');B ┆
0x72a0…72c0 20 20 20 20 20 20 20 20 20 20 20 47 45 54 28 49 53 46 46 49 4c 45 53 29 3b 49 4f 43 1e 0f 20 20 ┆ GET(ISFFILES);IOC ┆
0x72c0…72e0 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0f 31 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 ┆ END; 1 GOTOXY┆
0x72e0…7300 28 31 2c 32 33 29 3b 57 52 49 54 45 4c 4e 28 27 56 7b 6c 67 20 72 65 67 69 73 74 65 72 27 29 3b ┆(1,23);WRITELN('Vælg register');┆
0x7300…7320 31 11 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 11 2c 20 20 20 20 20 20 20 20 20 20 20 ┆1 REPEAT , ┆
0x7320…7340 20 20 47 4f 54 4f 58 59 28 31 35 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 41 4b 4e 52 ┆ GOTOXY(15,23);READLN;READ(AKNR┆
0x7340…7360 29 2c 3e 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 ┆),> UNTIL (IORESULT=0)┆
0x7360…7380 20 41 4e 44 20 28 41 4b 4e 52 3e 3d 30 29 20 41 4e 44 20 28 41 4b 4e 52 3c 3d 46 49 4c 4e 52 29 ┆ AND (AKNR>=0) AND (AKNR<=FILNR)┆
0x7380…73a0 3b 3e 19 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 4b 4e 52 3e 30 20 54 48 45 4e 19 10 20 20 ┆;> IF AKNR>0 THEN ┆
0x73a0…73c0 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 10 25 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 45 ┆ BEGIN % SEE┆
0x73c0…73e0 4b 28 49 53 46 46 49 4c 45 53 2c 41 4b 4e 52 29 3b 49 4f 43 3b 25 1e 20 20 20 20 20 20 20 20 20 ┆K(ISFFILES,AKNR);IOC;% ┆
0x73e0…7400 20 20 20 20 47 45 54 28 49 53 46 46 49 4c 45 53 29 3b 49 4f 43 1e 0e 20 20 20 20 20 20 20 20 20 ┆ GET(ISFFILES);IOC ┆
0x7400…7420 20 20 45 4e 44 0e 3e 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 41 4b 4e 52 3d 30 29 20 4f ┆ END > UNTIL (AKNR=0) O┆
0x7420…7440 52 20 28 49 53 46 46 49 4c 45 53 5e 2e 56 45 44 4c 4e 49 56 45 41 55 3c 3d 55 53 45 52 4e 49 56 ┆R (ISFFILES^.VEDLNIVEAU<=USERNIV┆
0x7440…7460 45 41 55 29 3b 3e 17 20 20 20 20 20 20 20 20 20 49 46 20 41 4b 4e 52 3e 30 20 54 48 45 4e 17 0e ┆EAU);> IF AKNR>0 THEN ┆
0x7460…7480 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0e 28 20 20 20 20 20 20 20 20 20 20 20 44 45 53 43 4e ┆ BEGIN ( DESCN┆
0x7480…74a0 41 56 4e 3a 3d 49 53 46 46 49 4c 45 53 5e 2e 44 45 53 43 4e 41 56 4e 3b 28 26 20 20 20 20 20 20 ┆AVN:=ISFFILES^.DESCNAVN;(& ┆
0x74a0…74c0 20 20 20 20 20 52 45 47 4e 41 56 4e 3a 3d 49 53 46 46 49 4c 45 53 5e 2e 52 45 47 4e 41 56 4e 3b ┆ REGNAVN:=ISFFILES^.REGNAVN;┆
0x74c0…74e0 26 17 20 20 20 20 20 20 20 20 20 20 20 46 49 4c 4e 52 3a 3d 41 4b 4e 52 3b 17 1f 20 20 20 20 20 ┆& FILNR:=AKNR; ┆
0x74e0…7500 20 20 20 20 20 20 43 4c 4f 53 45 28 49 53 46 46 49 4c 45 53 29 3b 49 4f 43 3b 1f 15 20 20 20 20 ┆ CLOSE(ISFFILES);IOC; ┆
0x7500…7520 20 20 20 20 20 20 20 4d 41 52 4b 28 51 55 51 29 3b 15 13 20 20 20 20 20 20 20 20 20 20 20 52 45 ┆ MARK(QUQ); RE┆
0x7520…7540 47 56 45 44 4c 3b 13 17 20 20 20 20 20 20 20 20 20 20 20 52 45 4c 45 41 53 45 28 51 55 51 29 17 ┆GVEDL; RELEASE(QUQ) ┆
0x7540…7560 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 0a 20 20 20 20 20 20 20 45 4e 44 0a 17 20 20 20 20 20 ┆ END END ┆
0x7560…7580 20 20 45 4c 53 45 20 49 46 20 49 3d 30 20 54 48 45 4e 17 12 20 20 20 20 20 20 20 20 20 46 3a 3d ┆ ELSE IF I=0 THEN F:=┆
0x7580…75a0 27 53 54 4f 50 27 12 1b 20 20 20 20 20 20 20 45 4c 53 45 20 46 3a 3d 27 43 50 4c 49 53 54 45 3a ┆'STOP' ELSE F:='CPLISTE:┆
0x75a0…75c0 50 31 27 1b 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 05 42 45 47 49 4e 05 1c 20 20 41 4c 41 52 ┆P1' END; (*$P*) BEGIN ALAR┆
0x75c0…75e0 4d 3a 3d 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 39 29 3d 27 31 27 3b 1c 3e 20 20 49 46 20 41 4c 41 ┆M:=CLOCK^.DATE(9)='1'; > IF ALA┆
0x75e0…7600 52 4d 20 54 48 45 4e 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 41 4c 41 52 4d 54 49 ┆RM THEN FOR I:=1 TO 8 DO ALARMTI┆
0x7600…7620 4d 45 28 49 29 3a 3d 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 49 29 3b 3e 2c 20 20 48 4f 57 4c 3a 3d ┆ME(I):=CLOCK^.DATE(I);>, HOWL:=┆
0x7620…7640 46 41 4c 53 45 3b 53 54 4f 50 57 41 54 43 48 3a 3d 46 41 4c 53 45 3b 54 5b 4e 44 54 3a 3d 46 41 ┆FALSE;STOPWATCH:=FALSE;TÆNDT:=FA┆
0x7640…7660 4c 53 45 3b 2c 18 20 20 53 45 4d 41 46 4f 52 3a 3d 27 41 4c 4c 4f 43 4f 4d 42 55 46 27 3b 18 16 ┆LSE;, SEMAFOR:='ALLOCOMBUF'; ┆
0x7660…7680 20 20 49 3a 3d 4f 52 44 28 50 41 52 4d 5e 28 31 29 29 2d 34 38 3b 16 14 20 20 55 53 45 52 4e 49 ┆ I:=ORD(PARM^(1))-48; USERNI┆
0x7680…76a0 56 45 41 55 3a 3d 4d 45 4e 49 47 3b 14 0e 20 20 57 48 49 4c 45 20 49 3e 30 20 44 4f 0e 07 20 20 ┆VEAU:=MENIG; WHILE I>0 DO ┆
0x76a0…76c0 42 45 47 49 4e 07 21 20 20 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 53 55 43 43 28 55 53 45 52 ┆BEGIN ! USERNIVEAU:=SUCC(USER┆
0x76c0…76e0 4e 49 56 45 41 55 29 3b 21 0a 20 20 20 20 49 3a 3d 49 2d 31 0a 4e 20 20 45 4e 44 3b 20 20 20 20 ┆NIVEAU);! I:=I-1 N END; ┆
0x76e0…7700 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 ┆ ┆
0x7700…7720 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 28 2a 24 ┆ (*$┆
0x7720…7740 52 2d 2a 29 4e 0e 20 20 53 4e 59 44 28 2d 33 29 3a 3d 30 3b 0e 3e 20 20 46 4f 52 20 49 3a 3d 36 ┆R-*)N SNYD(-3):=0; > FOR I:=6┆
0x7740…7760 20 44 4f 57 4e 54 4f 20 32 20 44 4f 20 53 4e 59 44 28 2d 33 29 3a 3d 31 30 2a 53 4e 59 44 28 2d ┆ DOWNTO 2 DO SNYD(-3):=10*SNYD(-┆
0x7760…7780 33 29 2b 4f 52 44 28 50 41 52 4d 5e 28 49 29 29 2d 34 38 3b 3e 4e 20 20 49 46 20 50 41 52 4d 5e ┆3)+ORD(PARM^(I))-48;>N IF PARM^┆
0x7780…77a0 28 37 29 3d 27 2d 27 20 54 48 45 4e 20 53 4e 59 44 28 2d 33 29 3a 3d 2d 53 4e 59 44 28 2d 33 29 ┆(7)='-' THEN SNYD(-3):=-SNYD(-3)┆
0x77a0…77c0 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 28 2a 24 ┆; (*$┆
0x77c0…77e0 52 2b 2a 29 4e 17 20 20 55 44 46 5c 52 28 50 54 49 4c 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 18 20 ┆R+*)N UDFØR(PTILMELD,SNYD); ┆
0x77e0…7800 20 55 44 46 5c 52 54 28 50 54 49 4c 4d 45 4c 44 2c 53 4e 59 44 29 3b 18 1c 20 20 49 46 20 49 45 ┆ UDFØRT(PTILMELD,SNYD); IF IE┆
0x7800…7820 52 3c 3e 30 20 54 48 45 4e 20 42 41 44 28 31 2c 49 45 52 29 3b 1c 08 20 20 52 45 50 45 41 54 08 ┆R<>0 THEN BAD(1,IER); REPEAT ┆
0x7820…7840 0b 20 20 20 20 46 3a 3d 27 20 27 3b 0b 10 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 10 09 ┆ F:=' '; CLEARSCREEN; ┆
0x7840…7860 20 20 20 20 44 4f 49 54 3b 09 0f 20 20 55 4e 54 49 4c 20 46 3c 3e 27 20 27 3b 0f 16 20 20 55 44 ┆ DOIT; UNTIL F<>' '; UD┆
0x7860…7880 46 5c 52 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 16 17 20 20 55 44 46 5c 52 54 28 50 41 46 ┆FØR(PAFMELD,SNYD); UDFØRT(PAF┆
0x7880…78a0 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 ┆MELD,SNYD); IF IER<>0 THEN BA┆
0x78a0…78c0 44 28 32 2c 49 45 52 29 3b 1c 13 20 20 49 46 20 46 3c 3e 27 53 54 4f 50 27 20 54 48 45 4e 13 07 ┆D(2,IER); IF F<>'STOP' THEN ┆
0x78c0…78e0 20 20 42 45 47 49 4e 07 15 20 20 20 20 46 4e 41 56 4e 3a 3d 27 20 20 20 20 20 20 20 27 3b 15 28 ┆ BEGIN FNAVN:=' '; (┆
0x78e0…7900 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 46 4e 41 56 4e 28 49 29 3a 3d 50 ┆ FOR I:=1 TO 7 DO FNAVN(I):=P┆
0x7900…7920 41 52 4d 5e 28 49 29 3b 28 30 20 20 20 20 43 48 41 49 4e 28 27 4c 20 20 20 20 20 20 20 2a 31 27 ┆ARM^(I);(0 CHAIN('L *1'┆
0x7920…7940 2c 43 4f 4e 43 41 54 28 46 2c 27 2c 27 2c 46 4e 41 56 4e 29 2c 51 55 51 29 3b 30 35 20 20 20 20 ┆,CONCAT(F,',',FNAVN),QUQ);05 ┆
0x7940…7960 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 ┆IF IORESULT<>0 THEN WRITELN('IOR┆
0x7960…7980 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 35 05 20 20 45 4e 44 05 06 20 20 45 4c 53 45 ┆ESULT ',IORESULT)5 END ELSE┆
0x7980…79a0 06 07 20 20 42 45 47 49 4e 07 18 20 20 20 20 55 44 46 5c 52 28 55 41 46 4d 45 4c 44 2c 53 4e 59 ┆ BEGIN UDFØR(UAFMELD,SNY┆
0x79a0…79c0 44 29 3b 18 19 20 20 20 20 55 44 46 5c 52 54 28 55 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 19 1d ┆D); UDFØRT(UAFMELD,SNYD); ┆
0x79c0…79e0 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 44 28 33 2c 49 45 52 29 1d 05 20 ┆ IF IER<>0 THEN BAD(3,IER) ┆
0x79e0…7a00 20 45 4e 44 05 04 45 4e 44 2e 04 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ END END. ccccccccccccccccccc┆
0x7a00…7a20 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┆
[…0x2…]
0x7a60…7a80 ec 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┆
0x7a80…7aa0 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…]
0x7b60…7b80 ec 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┆
0x7b80…7ba0 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…]
0x7c60…7c80 ec 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┆
0x7c80…7ca0 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…]
0x7d60…7d80 ec 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┆
0x7d80…7da0 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…]
0x7e60…7e80 fc 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┆
0x7e80…7ea0 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…]
0x7f60…7f80 fc 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┆
0x7f80…7fa0 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…]