|
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: 25280 (0x62c0)
Types: TextFile
Notes: Mikados_K
Names: »HOVED.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »HOVED.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »HOVED.K«
PROGRAM HOVED;
CONST LNGTH=20;
TIMER=120;
MAXRECSIZE=1000;
PROGRAMNR=1;
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*)
PROCEDURE D23;
BEGIN
GOTOXY(1,23);WRITE(' ':79);GOTOXY(1,23)
END;
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
D23;
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE KODEVEDL;
TYPE
ENTRY=RECORD
KODE:STRING(9);
NIV:INTEGER
END;
KODER=ARRAY (1..20) OF ENTRY;
KODEFIL=FILE OF KODER;
VAR F:KODEFIL;
FNAVN:STRING(20);
USERKODE:STRING(9);
NIVEAUD:ARRAY (0..6) OF STRING(8);
I,J:INTEGER;
BEGIN
NIVEAUD(0):='MENIG ';
NIVEAUD(1):='SERGENT ';
NIVEAUD(2):='LØJTNANT';
NIVEAUD(3):='KAPTAJN ';
NIVEAUD(4):='MAJOR ';
NIVEAUD(5):='OBERST ';
NIVEAUD(6):='GENERAL ';
FNAVN:='KODEFIL:P2:0:J';
REPEAT
(*$C-*)
REWRITE(F,FNAVN);
(*$C+*)
I:=IORESULT;
IF NOT (I IN (.0,6.)) THEN BAD(4,I)
UNTIL I=0;
SEEK(F,1);
GET(F);
CLEARSCREEN;
(*$XO*) FOR I:=1 TO 20 DO BEGIN F^(I).KODE:=' ';F^(I).NIV:=0 END;
(*$X-*)
IF PARM^(1)='0' THEN
BEGIN
USERKODE:=' ';
REPEAT
GOTOXY(1,1);
WRITELN('Indtast kode');
GOTOXY(14,1);EDIT(USERKODE:9);
FOR I:=1 TO 20 DO
IF F^(I).KODE=USERKODE THEN
BEGIN
PARM^(1):=CHR(F^(I).NIV+48);
I:=30
END
UNTIL I>30
END
ELSE
BEGIN
FOR I:=1 TO 20 DO WRITELN(F^(I).KODE,' ':10,NIVEAUD(F^(I).NIV));
REPEAT
D23;
WRITELN('Kode nr 0 for færdig');
GOTOXY(9,23);
READLN;READ(I);
IF (I>0) AND (I<21) THEN
BEGIN
GOTOXY(1,22);
USERKODE:=F^(I).KODE;
EDIT(USERKODE:9);
F^(I).KODE:=USERKODE;
REPEAT
GOTOXY(20,22);
USERKODE:=NIVEAUD(F^(I).NIV);
EDIT(USERKODE:8);
FOR J:=0 TO 6 DO
IF NIVEAUD(J)=USERKODE THEN
BEGIN
F^(I).NIV:=J;
J:=20
END
UNTIL J>20
END
UNTIL I=0;
SEEK(F,1);
PUT(F)
END;
(*$C-*)
CLOSE(F);
(*$C+*)
I:=IORESULT;
IF I<>0 THEN BAD(5,I)
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;
(*$IRESPRINT*)
(*$P*)
(*$IUR*)
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
MAXPOST=150;
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;
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
D23;
(*$R-*)
WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;
ICLOSE(POST.A);
FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);
EXIT(REGVEDL)
END;
(*$P*)
(*$IHLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE GETSTATUS;
TYPE
ISFHEAD =RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NBUC,NBLK,NREC,
BLKPRBUC,RECPRBUC,RECPRBLK,
KEYFLDS,
AZSIZE,BUTSIZE,BLTSIZE,BLKSIZE,RECSIZE,KEYSIZE,
SEGINFLH,SEGINBUT,SEGINBUC,SEGINBLT,SEGINBLK,
INITREC,BUCINUSE,BLKINUSE,RECINUSE,
FILEINIT,FILEOPEN:INTEGER;
KEYS : ARRAY (1..9,1..3) OF INTEGER
END;
VAR ISFPOST:ISFHEAD;
N:INTEGER;
PROCEDURE W(T:STRING;NR:INTEGER);
BEGIN
N:=N+1;
WRITE(' ',T,NR:6);
IF N=3 THEN
BEGIN
WRITELN;
N:=0
END
END;
BEGIN
WITH ISFPOST DO
BEGIN
(*$R-*)
A(-4):=51;
A(-3):=POST.A(-3);
(*$R+*)
UDFØR(RETURNHEAD,A);
UDFØRT(RETURNHEAD,A);
CLEARSCREEN;
WRITELN('FILEHEAD-INFORMATION');
N:=0;
W('NBUC :',NBUC);W('NBLK :',NBLK);
W('NREC :',NREC);
W('BLKPRBUC:',BLKPRBUC);
W('RECPRBUC:',RECPRBUC);
W('RECPRBLK:',RECPRBLK);
W('KEYFLDS :',KEYFLDS);
W('AZSIZE :',AZSIZE);
W('BUTSIZE :',BUTSIZE);
W('BLTSIZE :',BLTSIZE);
W('BLKSIZE :',BLKSIZE);
W('RECSIZE :',RECSIZE);
W('KEYSIZE :',KEYSIZE);
W('SEGINFLH:',SEGINFLH);
W('SEGINBUT:',SEGINBUT);
W('SEGINBUC:',SEGINBUC);
W('SEGINBLT:',SEGINBLT);
W('SEGINBLK:',SEGINBLK);
WRITELN('FILE-STATUS');
W('INITREC :',INITREC);
W('BUCINUSE:',BUCINUSE);
W('BLKINUSE:',BLKINUSE);
N:=2;
W('RECINUSE:',RECINUSE);
WRITE(' FILEINIT: ');
(*$R-*)
IF FILEINIT=1 THEN WRITE(' TRUE') ELSE WRITE('FALSE');
WRITE(' FILEOPEN: ');
IF FILEOPEN=1 THEN WRITELN(' TRUE') ELSE WRITELN('FALSE');
(*$R+*)
WRITELN;
WRITELN('KEY-DESCRIPTION');
WRITELN(' KEYFLD KEYPOS KEYLNG KEYSGN');
FOR I:=1 TO KEYFLDS DO
WRITELN(I:9,KEYS(I,1):9,KEYS(I,2):9,KEYS(I,3):9);
WRITE('Return ');READLN
END
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR J,NØGLENR,HNR,HINDEKS:INTEGER;
HCHANGED,HÆGTSØG:BOOLEAN;
CH:STRING(1);
(*$P*)
(*$ISØGPOST*)
(*$P*)
PROCEDURE UDPÅLIST;
BEGIN
REPEAT
D23;
WRITE('Antal poster, 0 for resten ');
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
REPEAT
D23;
CH:='J';
WRITE('Sletning korrekt J/N ');
EDIT(CH)
UNTIL CH(1) IN (.'J','N','j','n'.);
IF CH(1) IN (.'J','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
D23;
WRITE('Eneste post, kan ikke slettes, RETURN');
READLN;
IER:=0
END
ELSE
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*)
PROCEDURE OPRET;
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
D23;
WRITE('ANTAL INITIALISERINGSPOSTER ');
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
D23;
WRITE('Posten findes, RETURN ');READLN
END
ELSE ERROR(POST.A)
ELSE
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;
(*$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;
D23;
CH:='F';
WRITE('Rigtig post R, Flere poster F, Stop S ');
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';
D23;
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';
D23;WRITE('Posten findes ikke, RETURN ');
READLN
END
END
END
END;
IF (OPTION=4) OR (CH='R') THEN
CASE OPTION OF
1: BEGIN
REPEAT
REPEAT
D23;
J:=0;
WRITELN('Feltnr, 0 for færdig ',J);
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
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));
HCHANGED:=FALSE;
IF HNR>0 THEN
BEGIN
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: OPRET;
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 ERROR(HÆGTEREC(I).A)
END;
LINES:=100; (*$R-*)
POST.A(-3):=FILNR; (*$R+*)
IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);
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');
IF USERNIVEAU>=GENERAL THEN
WRITELN(' ':9,'6 Status');
REPEAT
GOTOXY(10,19);
WRITE('Vælg 0-');IF USERNIVEAU<GENERAL THEN WRITE('5') ELSE WRITE('6');
GOTOXY(21,19);UR;
OPTION:=SV
UNTIL (OPTION>=0) AND ((OPTION<=5) OR
((OPTION=6) AND (USERNIVEAU>=GENERAL)));
IF OPTION=6 THEN GETSTATUS ELSE
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);
CLEARSCREEN;
IF IER<>0 THEN BAD(6,IER)
END;
(*$P*)
PROCEDURE DOIT;
TYPE
FILDESC=RECORD
FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);
VEDLNIVEAU:NIVEAU;
ZONESIZE:INTEGER
END;
FILEDESC=FILE OF FILDESC;
PROGDESC=RECORD
PROGFIL,PROGNAVN:STRING(18);
PROGNIVEAU:NIVEAU
END;
PROGFILE=FILE OF PROGDESC;
VAR ISFFILES:FILEDESC;
PROGS:PROGFILE;
ISFFNAVN:STRING(18);
SCH:STRING(1);
J,I,AKNR:INTEGER;
PROCEDURE IOC;
VAR CH:STRING(1);
IOR:INTEGER;
BEGIN
IOR:=IORESULT;
IF IOR<>0 THEN
BEGIN
CLEARSCREEN;
D23;
WRITE('Pladefejl ',IOR:5,' RETURN ');
CH:=' ';
EDIT(CH);
IF CH<>'R' THEN EXIT(DOIT)
END
END;
(*$P*)
BEGIN
ISFFNAVN:='PROGFILE:P2:0000:S';
RESET(PROGS,ISFFNAVN);IOC;
REPEAT
SEEK(PROGS,1);IOC;
GET(PROGS);
CLEARSCREEN;
FILNR:=2;
WRITELN(' ':20,' 0 Stop');
WRITELN;
WRITELN(' ':20,' 1 Kartoteksvedligeholdelse');
WRITELN(' ':20,' 2 Listeprogrammer');
WHILE PROGS^.PROGNAVN(1)<>'@' DO
BEGIN
FILNR:=FILNR+1;
IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN
WRITELN(' ':20,FILNR:3,PROGS^.PROGNAVN);
GET(PROGS);IOC
END;
WRITELN(' ':20,FILNR+1:3,' Indtast ny adgangskode');
IF USERNIVEAU>=GENERAL THEN
BEGIN
WRITELN;
WRITELN(' ':20,FILNR+2:3,' Privilegerede funktioner')
END;
GOTOXY(1,22);WRITELN('Vælg funktion');
GOTOXY(15,22);
STIMER:=TIMER;
UR;
IF STIMER=0 THEN BEGIN USERNIVEAU:=MENIG;PARM^(1):='0' END;
I:=SV;
IF (I>2) AND (I<=FILNR) THEN
BEGIN
SEEK(PROGS,I-2);IOC;
GET(PROGS);IOC;
IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN
BEGIN
F:='';
SCH:=' ';
J:=0;
WHILE J<18 DO
BEGIN
J:=J+1;
IF PROGS^.PROGFIL(J)<>' ' THEN
BEGIN
SCH(1):=PROGS^.PROGFIL(J);
F:=CONCAT(F,SCH)
END
ELSE J:=18
END
END
END;
UNTIL (I IN (.0..2.)) OR (I=FILNR+1) OR (F<>' ') OR
((I=FILNR+2) AND (USERNIVEAU>=GENERAL));
CLOSE(PROGS);IOC;
IF I=FILNR+2 THEN
BEGIN
CLEARSCREEN;
IF USERNIVEAU>=HSM THEN
BEGIN
WRITELN(' ':20,'1 Skærmbilledopbygning');
WRITELN(' ':20,'2 Listedefinition')
END;
WRITELN(' ':20,'3 Ændring af adgangskoder');
GOTOXY(1,20);
WRITELN('Vælg funktion');
REPEAT
GOTOXY(15,20);
READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<4);
CASE I OF
1: IF USERNIVEAU>=HSM THEN F:='INTRE,SKÆRMBIL:P2';
2: IF USERNIVEAU>=HSM THEN F:='INTRE,LISTEGEN:P2';
3: KODEVEDL;
END
END
ELSE
IF I=FILNR+1 THEN
BEGIN
PARM^(1):='0';
KODEVEDL;
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END
END
ELSE
CASE I OF
1:IF RESPRINT THEN
BEGIN
ISFFNAVN:='ISFFILES:P2:0000:S';
RESET(ISFFILES,ISFFNAVN);IOC;
REPEAT
CLEARSCREEN;
SEEK(ISFFILES,1);IOC;
GET(ISFFILES);IOC;
FILNR:=0;
WHILE ISFFILES^.FILNAVN(1)<>'@' DO
BEGIN
FILNR:=FILNR+1;
IF ISFFILES^.VEDLNIVEAU<=USERNIVEAU THEN
WRITELN(FILNR:4,' ',ISFFILES^.REGNAVN,'-register');
GET(ISFFILES);IOC
END;
REPEAT
D23;WRITE('Vælg register ');
READLN;READ(AKNR)
UNTIL (IORESULT=0) AND (AKNR>=0) AND (AKNR<=FILNR);
IF AKNR>0 THEN
BEGIN
SEEK(ISFFILES,AKNR);IOC;
GET(ISFFILES);IOC
END
UNTIL (AKNR=0) OR (ISFFILES^.VEDLNIVEAU<=USERNIVEAU);
CLOSE(ISFFILES);IOC;
IF AKNR>0 THEN
BEGIN
DESCNAVN:=ISFFILES^.DESCNAVN;
REGNAVN:=ISFFILES^.REGNAVN;
IF ISFFILES^.FILNAVN(1)='#' THEN
BEGIN
AKNR:=0;
I:=2;
WHILE ISFFILES^.FILNAVN(I) IN (.'0'..'9'.) DO
BEGIN
AKNR:=10*AKNR+ORD(ISFFILES^.FILNAVN(I))-48;
I:=I+1
END
END;
FILNR:=AKNR;
MARK(QUQ);
REGVEDL;
RELEASE(QUQ)
END;
FREEPR
END;
0:F:='STOP';
2:F:='CPLISTE *1'
END
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);
REPEAT
F:=' ';
CLEARSCREEN;
DOIT
UNTIL F<>' ';
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
IF F<>'STOP' THEN
BEGIN
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
IF LENGTH(F)>10 THEN
CHAIN('L *1',CONCAT(F,',',FNAVN),QUQ)
ELSE
CHAIN(F,FNAVN,QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END
ELSE
BEGIN
UDFØR(UAFMELD,SNYD);
UDFØRT(UAFMELD,SNYD);
IF IER<>0 THEN BAD(3,IER)
END
END.
0x0000…0010 Line {l1=0x0e, l2=»PROGRAM HOVED;«, l3=0x0e}
0x0010…0021 Line {l1=0x0f, l2=»CONST LNGTH=20;«, l3=0x0f}
0x0021…0033 Line {l1=0x10, l2=» TIMER=120;«, l3=0x10}
0x0033…004b Line {l1=0x16, l2=» MAXRECSIZE=1000;«, l3=0x16}
0x004b…005f Line {l1=0x12, l2=» PROGRAMNR=1;«, l3=0x12}
0x005f…0065 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0065…008e Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x008e…00ba Line {l1=0x2a, l2=»DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;«, l3=0x2a}
0x00ba…00d0 Line {l1=0x14, l2=»CLOCKRECORD = RECORD«, l3=0x14}
0x00d0…0103 Line {l1=0x31, l2=» DATE:PACKED ARRAY (1..10) OF CHAR;«, l3=0x31}
0x0103…0134 Line {l1=0x2f, l2=» TIME:PACKED ARRAY (1..8) OF CHAR«, l3=0x2f}
0x0134…0148 Line {l1=0x12, l2=» END;«, l3=0x12}
0x0148…0193 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0193…01ab Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x01ab…01f6 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x01f6…020a Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x020a…0220 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0220…0234 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x0234…027d Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x027d…02cd Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x02cd…0317 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0317…0328 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0328…034a Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x034a…0369 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x0369…0378 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x0378…0397 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0397…03b0 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x03b0…03cc Line {l1=0x1a, l2=» CLOCK:^CLOCKRECORD;«, l3=0x1a}
0x03cc…0400 Line {l1=0x32, l2=» STIMER,SV,TT,OFFSET,MIN,SEC,SEC100:INTEGER;«, l3=0x32}
0x0400…042c Line {l1=0x2a, l2=» TÆNDT,HOWL,ALARM,STOPWATCH:BOOLEAN;«, l3=0x2a}
0x042c…045b Line {l1=0x2d, l2=» ALARMTIME:PACKED ARRAY (1..8) OF CHAR;«, l3=0x2d}
0x045b…0473 Line {l1=0x16, l2=» DBUF:DIRECTBUF;«, l3=0x16}
0x0473…048e Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x048e…04a4 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x04a4…04ba Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x04ba…04e3 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x04e3…04fc Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x04fc…0527 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x0527…053d Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x053d…0557 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x0557…0568 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0568…057b Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x057b…0594 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0594…05ac Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x05ac…05b4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05b4…05c4 Line {l1=0x0e, l2=»PROCEDURE D23;«, l3=0x0e}
0x05c4…05cb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05cb…05f6 Line {l1=0x29, l2=» GOTOXY(1,23);WRITE(' ':79);GOTOXY(1,23)«, l3=0x29}
0x05f6…05fc Line {l1=0x04, l2=»END;«, l3=0x04}
0x05fc…0622 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0622…0629 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0629…0631 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x0631…0653 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x0653…065d Line {l1=0x08, l2=» READLN«, l3=0x08}
0x065d…0663 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0663…066b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x066b…0680 Line {l1=0x13, l2=»PROCEDURE KODEVEDL;«, l3=0x13}
0x0680…0686 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0686…0694 Line {l1=0x0c, l2=»ENTRY=RECORD«, l3=0x0c}
0x0694…06ad Line {l1=0x17, l2=» KODE:STRING(9);«, l3=0x17}
0x06ad…06c2 Line {l1=0x13, l2=» NIV:INTEGER«, l3=0x13}
0x06c2…06c8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06c8…06e7 Line {l1=0x1d, l2=»KODER=ARRAY (1..20) OF ENTRY;«, l3=0x1d}
0x06e7…06ff Line {l1=0x16, l2=»KODEFIL=FILE OF KODER;«, l3=0x16}
0x06ff…070f Line {l1=0x0e, l2=»VAR F:KODEFIL;«, l3=0x0e}
0x070f…0726 Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x0726…073f Line {l1=0x17, l2=» USERKODE:STRING(9);«, l3=0x17}
0x073f…0767 Line {l1=0x26, l2=» NIVEAUD:ARRAY (0..6) OF STRING(8);«, l3=0x26}
0x0767…0779 Line {l1=0x10, l2=» I,J:INTEGER;«, l3=0x10}
0x0779…0780 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0780…079b Line {l1=0x19, l2=» NIVEAUD(0):='MENIG ';«, l3=0x19}
0x079b…07b6 Line {l1=0x19, l2=» NIVEAUD(1):='SERGENT ';«, l3=0x19}
0x07b6…07d1 Line {l1=0x19, l2=» NIVEAUD(2):='LØJTNANT';«, l3=0x19}
0x07d1…07ec Line {l1=0x19, l2=» NIVEAUD(3):='KAPTAJN ';«, l3=0x19}
0x07ec…0807 Line {l1=0x19, l2=» NIVEAUD(4):='MAJOR ';«, l3=0x19}
0x0807…0822 Line {l1=0x19, l2=» NIVEAUD(5):='OBERST ';«, l3=0x19}
0x0822…083d Line {l1=0x19, l2=» NIVEAUD(6):='GENERAL ';«, l3=0x19}
0x083d…0859 Line {l1=0x1a, l2=» FNAVN:='KODEFIL:P2:0:J';«, l3=0x1a}
0x0859…0863 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0863…0870 Line {l1=0x0b, l2=» (*$C-*)«, l3=0x0b}
0x0870…0887 Line {l1=0x15, l2=» REWRITE(F,FNAVN);«, l3=0x15}
0x0887…0894 Line {l1=0x0b, l2=» (*$C+*)«, l3=0x0b}
0x0894…08a6 Line {l1=0x10, l2=» I:=IORESULT;«, l3=0x10}
0x08a6…08cf Line {l1=0x27, l2=» IF NOT (I IN (.0,6.)) THEN BAD(4,I)«, l3=0x27}
0x08cf…08dd Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x08dd…08eb Line {l1=0x0c, l2=» SEEK(F,1);«, l3=0x0c}
0x08eb…08f6 Line {l1=0x09, l2=» GET(F);«, l3=0x09}
0x08f6…0906 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0906…0951 Line {l1=0x49, l2=»(*$XO*) FOR I:=1 TO 20 DO BEGIN F^(I).KODE:=' ';F^(I).NIV:=0 END;«, l3=0x49}
0x0951…095a Line {l1=0x07, l2=»(*$X-*)«, l3=0x07}
0x095a…0972 Line {l1=0x16, l2=» IF PARM^(1)='0' THEN«, l3=0x16}
0x0972…097b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x097b…0997 Line {l1=0x1a, l2=» USERKODE:=' ';«, l3=0x1a}
0x0997…09a3 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x09a3…09b7 Line {l1=0x12, l2=» GOTOXY(1,1);«, l3=0x12}
0x09b7…09d7 Line {l1=0x1e, l2=» WRITELN('Indtast kode');«, l3=0x1e}
0x09d7…09fd Line {l1=0x24, l2=» GOTOXY(14,1);EDIT(USERKODE:9);«, l3=0x24}
0x09fd…0a16 Line {l1=0x17, l2=» FOR I:=1 TO 20 DO«, l3=0x17}
0x0a16…0a39 Line {l1=0x21, l2=» IF F^(I).KODE=USERKODE THEN«, l3=0x21}
0x0a39…0a46 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a46…0a6c Line {l1=0x24, l2=» PARM^(1):=CHR(F^(I).NIV+48);«, l3=0x24}
0x0a6c…0a7b Line {l1=0x0d, l2=» I:=30«, l3=0x0d}
0x0a7b…0a86 Line {l1=0x09, l2=» END«, l3=0x09}
0x0a86…0a96 Line {l1=0x0e, l2=» UNTIL I>30«, l3=0x0e}
0x0a96…0a9d Line {l1=0x05, l2=» END«, l3=0x05}
0x0a9d…0aa5 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x0aa5…0aae Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0aae…0af4 Line {l1=0x44, l2=» FOR I:=1 TO 20 DO WRITELN(F^(I).KODE,' ':10,NIVEAUD(F^(I).NIV));«, l3=0x44}
0x0af4…0b00 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0b00…0b0c Line {l1=0x0a, l2=» D23;«, l3=0x0a}
0x0b0c…0b38 Line {l1=0x2a, l2=» WRITELN('Kode nr 0 for færdig');«, l3=0x2a}
0x0b38…0b4d Line {l1=0x13, l2=» GOTOXY(9,23);«, l3=0x13}
0x0b4d…0b64 Line {l1=0x15, l2=» READLN;READ(I);«, l3=0x15}
0x0b64…0b84 Line {l1=0x1e, l2=» IF (I>0) AND (I<21) THEN«, l3=0x1e}
0x0b84…0b91 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b91…0ba8 Line {l1=0x15, l2=» GOTOXY(1,22);«, l3=0x15}
0x0ba8…0bc7 Line {l1=0x1d, l2=» USERKODE:=F^(I).KODE;«, l3=0x1d}
0x0bc7…0be2 Line {l1=0x19, l2=» EDIT(USERKODE:9);«, l3=0x19}
0x0be2…0c01 Line {l1=0x1d, l2=» F^(I).KODE:=USERKODE;«, l3=0x1d}
0x0c01…0c11 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0c11…0c2b Line {l1=0x18, l2=» GOTOXY(20,22);«, l3=0x18}
0x0c2b…0c54 Line {l1=0x27, l2=» USERKODE:=NIVEAUD(F^(I).NIV);«, l3=0x27}
0x0c54…0c71 Line {l1=0x1b, l2=» EDIT(USERKODE:8);«, l3=0x1b}
0x0c71…0c8d Line {l1=0x1a, l2=» FOR J:=0 TO 6 DO«, l3=0x1a}
0x0c8d…0cb4 Line {l1=0x25, l2=» IF NIVEAUD(J)=USERKODE THEN«, l3=0x25}
0x0cb4…0cc5 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0cc5…0ce0 Line {l1=0x19, l2=» F^(I).NIV:=J;«, l3=0x19}
0x0ce0…0cf3 Line {l1=0x11, l2=» J:=20«, l3=0x11}
0x0cf3…0d02 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0d02…0d16 Line {l1=0x12, l2=» UNTIL J>20«, l3=0x12}
0x0d16…0d21 Line {l1=0x09, l2=» END«, l3=0x09}
0x0d21…0d31 Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x0d31…0d41 Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x0d41…0d4d Line {l1=0x0a, l2=» PUT(F)«, l3=0x0a}
0x0d4d…0d55 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d55…0d60 Line {l1=0x09, l2=» (*$C-*)«, l3=0x09}
0x0d60…0d6d Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x0d6d…0d78 Line {l1=0x09, l2=» (*$C+*)«, l3=0x09}
0x0d78…0d88 Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x0d88…0da1 Line {l1=0x17, l2=» IF I<>0 THEN BAD(5,I)«, l3=0x17}
0x0da1…0da7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0da7…0daf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0daf…0de6 Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x0de6…0df1 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0df1…0e0a Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x0e0a…0e15 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0e15…0e2a Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x0e2a…0e35 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0e35…0e47 Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x0e47…0e52 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0e52…0e89 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x0e89…0eb0 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0eb0…0ebb Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0ebb…0ef3 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x0ef3…0efe Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0efe…0f32 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x0f32…0f67 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x0f67…0f72 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0f72…0fa9 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0fa9…0fd0 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0fd0…0fdb Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0fdb…1013 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x1013…103a Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x103a…1045 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x1045…107a Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x107a…1085 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x1085…1095 Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x1095…109d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x109d…10a7 Line {l1=0x08, l2=»(*$IUR*)«, l3=0x08}
0x10a7…10af Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x10af…10bc Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x10bc…10cc Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x10cc…10d4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x10d4…10e8 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x10e8…10fd Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x10fd…1111 Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x1111…1125 Line {l1=0x12, l2=» MAXPOST=150;«, l3=0x12}
0x1125…1139 Line {l1=0x12, l2=» MAXHÆGTER=9;«, l3=0x12}
0x1139…114d Line {l1=0x12, l2=» MAXHPOST=20;«, l3=0x12}
0x114d…1160 Line {l1=0x11, l2=» MAXIDENT=9;«, l3=0x11}
0x1160…1166 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x1166…117f Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x117f…1190 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x1190…11a0 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x11a0…11a6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x11a6…11ca Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x11ca…11fb Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x11fb…1222 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x1222…123a Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x123a…124e Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x124e…1266 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x1266…128c Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x128c…129a Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x129a…12b5 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x12b5…12d9 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x12d9…12f0 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x12f0…1311 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x1311…131d Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x131d…1329 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x1329…1334 Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x1334…1348 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x1348…1363 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x1363…137b Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x137b…1399 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x1399…13a7 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x13a7…13c8 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x13c8…13ec Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x13ec…141c Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x141c…143f Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x143f…1453 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x1453…1459 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1459…1480 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x1480…149b Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x149b…14a9 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x14a9…14b9 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x14b9…14c6 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x14c6…14d6 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x14d6…1505 Line {l1=0x2d, l2=» CONTENTS: ARRAY (1..MAXPOST) OF INTEGER«, l3=0x2d}
0x1505…150b Line {l1=0x04, l2=»END;«, l3=0x04}
0x150b…1519 Line {l1=0x0c, l2=»HPOST=RECORD«, l3=0x0c}
0x1519…1529 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x1529…1536 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x1536…1546 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x1546…1576 Line {l1=0x2e, l2=» CONTENTS: ARRAY (1..MAXHPOST) OF INTEGER«, l3=0x2e}
0x1576…157c Line {l1=0x04, l2=»END;«, l3=0x04}
0x157c…158d Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x158d…15a2 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x15a2…15ce Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x15ce…15f9 Line {l1=0x29, l2=» NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x29}
0x15f9…1624 Line {l1=0x29, l2=» HÆGTER:ARRAY (1..MAXHÆGTER) OF NFELT;«, l3=0x29}
0x1624…164d Line {l1=0x27, l2=» IDENT:ARRAY (1..MAXIDENT) OF NFELT;«, l3=0x27}
0x164d…165e Line {l1=0x0f, l2=» ANTALIDENT,«, l3=0x0f}
0x165e…16a1 Line {l1=0x41, l2=» LINES,OPTION,I,J,ANTALFELTER,ANTALNØGLER,ANTALHÆGTER:INTEGER;«, l3=0x41}
0x16a1…16b3 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x16b3…16c4 Line {l1=0x0f, l2=» POST:PPOST;«, l3=0x0f}
0x16c4…16f1 Line {l1=0x2b, l2=» HÆGTEREC:ARRAY (1..MAXHÆGTER) OF HPOST;«, l3=0x2b}
0x16f1…16f9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x16f9…1717 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x1717…172a Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x172a…173a Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x173a…1741 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1741…1749 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x1749…1797 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x1797…17e5 Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x17e5…17fa Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x17fa…182a Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x182a…183d Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x183d…1872 Line {l1=0x33, l2=» FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);«, l3=0x33}
0x1872…1883 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1883…1889 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1889…1891 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1891…18a1 Line {l1=0x0e, l2=»(*$IHLÆSDESC*)«, l3=0x0e}
0x18a1…18a9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x18a9…18b9 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x18b9…18c1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x18c1…18ca Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x18ca…18e0 Line {l1=0x14, l2=»PROCEDURE GETSTATUS;«, l3=0x14}
0x18e0…18e6 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x18e6…18f7 Line {l1=0x0f, l2=»ISFHEAD =RECORD«, l3=0x0f}
0x18f7…190c Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x190c…191e Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x191e…1933 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x1933…194f Line {l1=0x1a, l2=» NBUC,NBLK,NREC,«, l3=0x1a}
0x194f…1977 Line {l1=0x26, l2=» BLKPRBUC,RECPRBUC,RECPRBLK,«, l3=0x26}
0x1977…198c Line {l1=0x13, l2=» KEYFLDS,«, l3=0x13}
0x198c…19c8 Line {l1=0x3a, l2=» AZSIZE,BUTSIZE,BLTSIZE,BLKSIZE,RECSIZE,KEYSIZE,«, l3=0x3a}
0x19c8…1a02 Line {l1=0x38, l2=» SEGINFLH,SEGINBUT,SEGINBUC,SEGINBLT,SEGINBLK,«, l3=0x38}
0x1a02…1a32 Line {l1=0x2e, l2=» INITREC,BUCINUSE,BLKINUSE,RECINUSE,«, l3=0x2e}
0x1a32…1a59 Line {l1=0x25, l2=» FILEINIT,FILEOPEN:INTEGER;«, l3=0x25}
0x1a59…1a89 Line {l1=0x2e, l2=» KEYS : ARRAY (1..9,1..3) OF INTEGER«, l3=0x2e}
0x1a89…1a98 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x1a98…1aae Line {l1=0x14, l2=»VAR ISFPOST:ISFHEAD;«, l3=0x14}
0x1aae…1abe Line {l1=0x0e, l2=» N:INTEGER;«, l3=0x0e}
0x1abe…1ac1 Line {l1=0x01, l2=» «, l3=0x01}
0x1ac1…1ae4 Line {l1=0x21, l2=»PROCEDURE W(T:STRING;NR:INTEGER);«, l3=0x21}
0x1ae4…1aeb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1aeb…1af6 Line {l1=0x09, l2=» N:=N+1;«, l3=0x09}
0x1af6…1b0d Line {l1=0x15, l2=» WRITE(' ',T,NR:6);«, l3=0x15}
0x1b0d…1b1c Line {l1=0x0d, l2=» IF N=3 THEN«, l3=0x0d}
0x1b1c…1b25 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b25…1b33 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x1b33…1b3d Line {l1=0x08, l2=» N:=0«, l3=0x08}
0x1b3d…1b44 Line {l1=0x05, l2=» END«, l3=0x05}
0x1b44…1b4a Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b4a…1b4d Line {l1=0x01, l2=» «, l3=0x01}
0x1b4d…1b54 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b54…1b67 Line {l1=0x11, l2=» WITH ISFPOST DO«, l3=0x11}
0x1b67…1b70 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b70…1b7d Line {l1=0x0b, l2=» (*$R-*)«, l3=0x0b}
0x1b7d…1b8d Line {l1=0x0e, l2=» A(-4):=51;«, l3=0x0e}
0x1b8d…1ba5 Line {l1=0x16, l2=» A(-3):=POST.A(-3);«, l3=0x16}
0x1ba5…1bb2 Line {l1=0x0b, l2=» (*$R+*)«, l3=0x0b}
0x1bb2…1bcc Line {l1=0x18, l2=» UDFØR(RETURNHEAD,A);«, l3=0x18}
0x1bcc…1be7 Line {l1=0x19, l2=» UDFØRT(RETURNHEAD,A);«, l3=0x19}
0x1be7…1bf9 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1bf9…1c1f Line {l1=0x24, l2=» WRITELN('FILEHEAD-INFORMATION');«, l3=0x24}
0x1c1f…1c2a Line {l1=0x09, l2=» N:=0;«, l3=0x09}
0x1c2a…1c58 Line {l1=0x2c, l2=» W('NBUC :',NBUC);W('NBLK :',NBLK);«, l3=0x2c}
0x1c58…1c72 Line {l1=0x18, l2=» W('NREC :',NREC);«, l3=0x18}
0x1c72…1c90 Line {l1=0x1c, l2=» W('BLKPRBUC:',BLKPRBUC);«, l3=0x1c}
0x1c90…1cae Line {l1=0x1c, l2=» W('RECPRBUC:',RECPRBUC);«, l3=0x1c}
0x1cae…1ccc Line {l1=0x1c, l2=» W('RECPRBLK:',RECPRBLK);«, l3=0x1c}
0x1ccc…1ce9 Line {l1=0x1b, l2=» W('KEYFLDS :',KEYFLDS);«, l3=0x1b}
0x1ce9…1d05 Line {l1=0x1a, l2=» W('AZSIZE :',AZSIZE);«, l3=0x1a}
0x1d05…1d22 Line {l1=0x1b, l2=» W('BUTSIZE :',BUTSIZE);«, l3=0x1b}
0x1d22…1d3f Line {l1=0x1b, l2=» W('BLTSIZE :',BLTSIZE);«, l3=0x1b}
0x1d3f…1d5c Line {l1=0x1b, l2=» W('BLKSIZE :',BLKSIZE);«, l3=0x1b}
0x1d5c…1d79 Line {l1=0x1b, l2=» W('RECSIZE :',RECSIZE);«, l3=0x1b}
0x1d79…1d96 Line {l1=0x1b, l2=» W('KEYSIZE :',KEYSIZE);«, l3=0x1b}
0x1d96…1db4 Line {l1=0x1c, l2=» W('SEGINFLH:',SEGINFLH);«, l3=0x1c}
0x1db4…1dd2 Line {l1=0x1c, l2=» W('SEGINBUT:',SEGINBUT);«, l3=0x1c}
0x1dd2…1df0 Line {l1=0x1c, l2=» W('SEGINBUC:',SEGINBUC);«, l3=0x1c}
0x1df0…1e0e Line {l1=0x1c, l2=» W('SEGINBLT:',SEGINBLT);«, l3=0x1c}
0x1e0e…1e2c Line {l1=0x1c, l2=» W('SEGINBLK:',SEGINBLK);«, l3=0x1c}
0x1e2c…1e49 Line {l1=0x1b, l2=» WRITELN('FILE-STATUS');«, l3=0x1b}
0x1e49…1e66 Line {l1=0x1b, l2=» W('INITREC :',INITREC);«, l3=0x1b}
0x1e66…1e84 Line {l1=0x1c, l2=» W('BUCINUSE:',BUCINUSE);«, l3=0x1c}
0x1e84…1ea2 Line {l1=0x1c, l2=» W('BLKINUSE:',BLKINUSE);«, l3=0x1c}
0x1ea2…1ead Line {l1=0x09, l2=» N:=2;«, l3=0x09}
0x1ead…1ecb Line {l1=0x1c, l2=» W('RECINUSE:',RECINUSE);«, l3=0x1c}
0x1ecb…1ee7 Line {l1=0x1a, l2=» WRITE(' FILEINIT: ');«, l3=0x1a}
0x1ee7…1ef4 Line {l1=0x0b, l2=» (*$R-*)«, l3=0x0b}
0x1ef4…1f30 Line {l1=0x3a, l2=» IF FILEINIT=1 THEN WRITE(' TRUE') ELSE WRITE('FALSE');«, l3=0x3a}
0x1f30…1f4c Line {l1=0x1a, l2=» WRITE(' FILEOPEN: ');«, l3=0x1a}
0x1f4c…1f8c Line {l1=0x3e, l2=» IF FILEOPEN=1 THEN WRITELN(' TRUE') ELSE WRITELN('FALSE');«, l3=0x3e}
0x1f8c…1f99 Line {l1=0x0b, l2=» (*$R+*)«, l3=0x0b}
0x1f99…1fa7 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x1fa7…1fc8 Line {l1=0x1f, l2=» WRITELN('KEY-DESCRIPTION');«, l3=0x1f}
0x1fc8…1ffe Line {l1=0x34, l2=» WRITELN(' KEYFLD KEYPOS KEYLNG KEYSGN');«, l3=0x34}
0x1ffe…201a Line {l1=0x1a, l2=» FOR I:=1 TO KEYFLDS DO«, l3=0x1a}
0x201a…2054 Line {l1=0x38, l2=» WRITELN(I:9,KEYS(I,1):9,KEYS(I,2):9,KEYS(I,3):9);«, l3=0x38}
0x2054…2071 Line {l1=0x1b, l2=» WRITE('Return ');READLN«, l3=0x1b}
0x2071…2078 Line {l1=0x05, l2=» END«, l3=0x05}
0x2078…207e Line {l1=0x04, l2=»END;«, l3=0x04}
0x207e…2086 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2086…209b Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x209b…20bf Line {l1=0x22, l2=»VAR J,NØGLENR,HNR,HINDEKS:INTEGER;«, l3=0x22}
0x20bf…20de Line {l1=0x1d, l2=» HCHANGED,HÆGTSØG:BOOLEAN;«, l3=0x1d}
0x20de…20f1 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x20f1…20f9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x20f9…2108 Line {l1=0x0d, l2=»(*$ISØGPOST*)«, l3=0x0d}
0x2108…2110 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2110…2125 Line {l1=0x13, l2=»PROCEDURE UDPÅLIST;«, l3=0x13}
0x2125…212c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x212c…2141 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x2141…2156 Line {l1=0x13, l2=» D23;«, l3=0x13}
0x2156…218c Line {l1=0x34, l2=» WRITE('Antal poster, 0 for resten ');«, l3=0x34}
0x218c…21ab Line {l1=0x1d, l2=» READLN;READ(J)«, l3=0x1d}
0x21ab…21d8 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (J>=0);«, l3=0x2b}
0x21d8…21ed Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x21ed…221f Line {l1=0x30, l2=» IF (LINES+2+ANTALFELTER)>=72 THEN«, l3=0x30}
0x221f…2235 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2235…2266 Line {l1=0x2f, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x2f}
0x2266…229b Line {l1=0x33, l2=» WRITELN(LIST,REGNAVN,' UDSKRIFT');«, l3=0x33}
0x229b…22bc Line {l1=0x1f, l2=» WRITELN(LIST);«, l3=0x1f}
0x22bc…22d7 Line {l1=0x19, l2=» LINES:=2«, l3=0x19}
0x22d7…22ec Line {l1=0x13, l2=» END;«, l3=0x13}
0x22ec…2307 Line {l1=0x19, l2=» PRINTPOST;«, l3=0x19}
0x2307…231f Line {l1=0x16, l2=» J:=J-1;«, l3=0x16}
0x231f…235b Line {l1=0x3a, l2=» WRITELN(LIST);WRITELN(LIST);LINES:=LINES+2;«, l3=0x3a}
0x235b…237c Line {l1=0x1f, l2=» NEXTREC(POST.A);«, l3=0x1f}
0x237c…23ae Line {l1=0x30, l2=» IF (IER=-2) AND (J>0) THEN IER:=0«, l3=0x30}
0x23ae…23d5 Line {l1=0x25, l2=» UNTIL (J=0) OR (IER<>0);«, l3=0x25}
0x23d5…2410 Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x39}
0x2410…243b Line {l1=0x29, l2=» ERROR(POST.A) ELSE IER:=0«, l3=0x29}
0x243b…2441 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2441…2449 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2449…245e Line {l1=0x13, l2=»PROCEDURE SLETPOST;«, l3=0x13}
0x245e…2465 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2465…2478 Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x2478…248b Line {l1=0x11, l2=» D23;«, l3=0x11}
0x248b…24a2 Line {l1=0x15, l2=» CH:='J';«, l3=0x15}
0x24a2…24d0 Line {l1=0x2c, l2=» WRITE('Sletning korrekt J/N ');«, l3=0x2c}
0x24d0…24e8 Line {l1=0x16, l2=» EDIT(CH) «, l3=0x16}
0x24e8…2518 Line {l1=0x2e, l2=» UNTIL CH(1) IN (.'J','N','j','n'.);«, l3=0x2e}
0x2518…2543 Line {l1=0x29, l2=» IF CH(1) IN (.'J','j'.) THEN«, l3=0x29}
0x2543…2557 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x2557…2584 Line {l1=0x2b, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x2b}
0x2584…259a Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x259a…25b6 Line {l1=0x1a, l2=» SÆTHÆGTE;«, l3=0x1a}
0x25b6…25d1 Line {l1=0x19, l2=» SÆTNØGLE«, l3=0x19}
0x25d1…25e6 Line {l1=0x13, l2=» END;«, l3=0x13}
0x25e6…2606 Line {l1=0x1e, l2=» DELETE(POST.A);«, l3=0x1e}
0x2606…2625 Line {l1=0x1d, l2=» IF IER=-9 THEN«, l3=0x1d}
0x2625…263b Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x263b…2652 Line {l1=0x15, l2=» D23;«, l3=0x15}
0x2652…2694 Line {l1=0x40, l2=» WRITE('Eneste post, kan ikke slettes, RETURN');«, l3=0x40}
0x2694…26ae Line {l1=0x18, l2=» READLN;«, l3=0x18}
0x26ae…26c7 Line {l1=0x17, l2=» IER:=0«, l3=0x17}
0x26c7…26dc Line {l1=0x13, l2=» END «, l3=0x13}
0x26dc…26f1 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x26f1…271e Line {l1=0x2b, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x2b}
0x271e…2734 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2734…2760 Line {l1=0x2a, l2=» GETRECX(HÆGTEREC(HNR).A);«, l3=0x2a}
0x2760…27a8 Line {l1=0x46, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x46}
0x27a8…27d3 Line {l1=0x29, l2=» DELETE(HÆGTEREC(HNR).A);«, l3=0x29}
0x27d3…281b Line {l1=0x46, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(HÆGTEREC(HNR).A);«, l3=0x46}
0x281b…2834 Line {l1=0x17, l2=» IER:=0«, l3=0x17}
0x2834…2848 Line {l1=0x12, l2=» END«, l3=0x12}
0x2848…285a Line {l1=0x10, l2=» END«, l3=0x10}
0x285a…287d Line {l1=0x21, l2=» ELSE GETREC(POST.A);«, l3=0x21}
0x287d…28a8 Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x29}
0x28a8…28ae Line {l1=0x04, l2=»END;«, l3=0x04}
0x28ae…28b7 Line {l1=0x07, l2=»(*$P*) «, l3=0x07}
0x28b7…28c9 Line {l1=0x10, l2=»PROCEDURE OPRET;«, l3=0x10}
0x28c9…28d0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x28d0…28dc Line {l1=0x0a, l2=» NULPOST;«, l3=0x0a}
0x28dc…28ea Line {l1=0x0c, l2=» SKRIVPOST;«, l3=0x0c}
0x28ea…2908 Line {l1=0x1c, l2=» FOR J:=1 TO ANTALFELTER DO«, l3=0x1c}
0x2908…2911 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2911…293e Line {l1=0x2b, l2=» IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN«, l3=0x2b}
0x293e…2949 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2949…2966 Line {l1=0x1b, l2=» HUSKNIV:=USERNIVEAU; «, l3=0x1b}
0x2966…2983 Line {l1=0x1b, l2=» USERNIVEAU:=UMULIUS «, l3=0x1b}
0x2983…298d Line {l1=0x08, l2=» END;«, l3=0x08}
0x298d…29a7 Line {l1=0x18, l2=» LÆSFELT(PICTURE(J));«, l3=0x18}
0x29a7…29c3 Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(J));«, l3=0x1a}
0x29c3…2a04 Line {l1=0x3f, l2=» IF PICTURE(J)^.ÆNDRENIVEAU=UMULIUS THEN USERNIVEAU:=HUSKNIV«, l3=0x3f}
0x2a04…2a0c Line {l1=0x06, l2=» END;«, l3=0x06}
0x2a0c…2a24 Line {l1=0x16, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x16}
0x2a24…2a3c Line {l1=0x16, l2=» IF NOT FILEINIT THEN«, l3=0x16}
0x2a3c…2a45 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2a45…2a5a Line {l1=0x13, l2=» FILEINIT:=TRUE;«, l3=0x13}
0x2a5a…2a66 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2a66…2a72 Line {l1=0x0a, l2=» D23;«, l3=0x0a}
0x2a72…2aa0 Line {l1=0x2c, l2=» WRITE('ANTAL INITIALISERINGSPOSTER ');«, l3=0x2c}
0x2aa0…2ad2 Line {l1=0x30, l2=» READLN;READ(IREC) «, l3=0x30}
0x2ad2…2af8 Line {l1=0x24, l2=» UNTIL (IORESULT=0) AND (IREC>0);«, l3=0x24}
0x2af8…2b0f Line {l1=0x15, l2=» INITIATE(POST.A);«, l3=0x15}
0x2b0f…2b31 Line {l1=0x20, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x20}
0x2b31…2b39 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2b39…2b4c Line {l1=0x11, l2=» INSERT(POST.A);«, l3=0x11}
0x2b4c…2b5e Line {l1=0x10, l2=» IF IER<>0 THEN«, l3=0x10}
0x2b5e…2b70 Line {l1=0x10, l2=» IF IER=-7 THEN«, l3=0x10}
0x2b70…2b79 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2b79…2b83 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x2b83…2baf Line {l1=0x2a, l2=» WRITE('Posten findes, RETURN ');READLN«, l3=0x2a}
0x2baf…2bb6 Line {l1=0x05, l2=» END«, l3=0x05}
0x2bb6…2bcc Line {l1=0x14, l2=» ELSE ERROR(POST.A)«, l3=0x14}
0x2bcc…2bd4 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x2bd4…2bf4 Line {l1=0x1e, l2=» FOR HNR:=1 TO ANTALHÆGTER DO«, l3=0x1e}
0x2bf4…2bfd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2bfd…2c0c Line {l1=0x0d, l2=» SÆTHÆGTE;«, l3=0x0d}
0x2c0c…2c1b Line {l1=0x0d, l2=» SÆTNØGLE;«, l3=0x0d}
0x2c1b…2c39 Line {l1=0x1c, l2=» INSERT(HÆGTEREC(HNR).A);«, l3=0x1c}
0x2c39…2c65 Line {l1=0x2a, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A) «, l3=0x2a}
0x2c65…2c6c Line {l1=0x05, l2=» END«, l3=0x05}
0x2c6c…2c72 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2c72…2c7a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2c7a…2c8e Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x2c8e…2ca2 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x2ca2…2cbb Line {l1=0x17, l2=» IF OPTION<>4 THEN«, l3=0x17}
0x2cbb…2cc8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2cc8…2ce6 Line {l1=0x1c, l2=» HUSKNIV:=USERNIVEAU;«, l3=0x1c}
0x2ce6…2d04 Line {l1=0x1c, l2=» USERNIVEAU:=UMULIUS;«, l3=0x1c}
0x2d04…2d16 Line {l1=0x10, l2=» NULPOST;«, l3=0x10}
0x2d16…2d2f Line {l1=0x17, l2=» HÆGTSØG:=FALSE;«, l3=0x17}
0x2d2f…2d57 Line {l1=0x26, l2=» IF ANTALHÆGTER>0 THEN SØGPOST;«, l3=0x26}
0x2d57…2d74 Line {l1=0x1b, l2=» IF NOT HÆGTSØG THEN«, l3=0x1b}
0x2d74…2d83 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2d83…2d94 Line {l1=0x0f, l2=» J:=1;«, l3=0x0f}
0x2d94…2db3 Line {l1=0x1d, l2=» LÆSFELT(NØGLER(J));«, l3=0x1d}
0x2db3…2de3 Line {l1=0x2e, l2=» WHILE (J<ANTALNØGLER) AND NOT EOF DO«, l3=0x2e}
0x2de3…2df4 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2df4…2e09 Line {l1=0x13, l2=» J:=J+1;«, l3=0x13}
0x2e09…2e29 Line {l1=0x1e, l2=» LÆSFELT(NØGLER(J))«, l3=0x1e}
0x2e29…2e39 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2e39…2e59 Line {l1=0x1e, l2=» USERNIVEAU:=HUSKNIV;«, l3=0x1e}
0x2e59…2e7f Line {l1=0x24, l2=» IF OPTION IN (.1,5.) THEN «, l3=0x24}
0x2e7f…2e9d Line {l1=0x1c, l2=» GETRECX(POST.A) «, l3=0x1c}
0x2e9d…2ead Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x2ead…2eca Line {l1=0x1b, l2=» GETREC(POST.A);«, l3=0x1b}
0x2eca…2f03 Line {l1=0x37, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(POST.A);«, l3=0x37}
0x2f03…2f1a Line {l1=0x15, l2=» IF EOF THEN«, l3=0x15}
0x2f1a…2f2b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2f2b…2f47 Line {l1=0x1a, l2=» IF IER=-6 THEN«, l3=0x1a}
0x2f47…2f5a Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2f5a…2f83 Line {l1=0x27, l2=» IF OPTION IN (.1,5.) THEN«, l3=0x27}
0x2f83…2fa6 Line {l1=0x21, l2=» NEXTRECX(POST.A) «, l3=0x21}
0x2fa6…2fba Line {l1=0x12, l2=» ELSE«, l3=0x12}
0x2fba…2fdc Line {l1=0x20, l2=» NEXTREC(POST.A);«, l3=0x20}
0x2fdc…3019 Line {l1=0x3b, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3b}
0x3019…3038 Line {l1=0x1d, l2=» ERROR(POST.A)«, l3=0x1d}
0x3038…304a Line {l1=0x10, l2=» END;«, l3=0x10}
0x304a…305e Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x305e…3078 Line {l1=0x18, l2=» SKRIVPOST;«, l3=0x18}
0x3078…308c Line {l1=0x12, l2=» D23;«, l3=0x12}
0x308c…30a4 Line {l1=0x16, l2=» CH:='F';«, l3=0x16}
0x30a4…30e4 Line {l1=0x3e, l2=» WRITE('Rigtig post R, Flere poster F, Stop S ');«, l3=0x3e}
0x30e4…30fd Line {l1=0x17, l2=» EDIT(CH);«, l3=0x17}
0x30fd…312d Line {l1=0x2e, l2=» IF CH(1) IN (.'f','r','s'.) THEN«, l3=0x2e}
0x312d…315a Line {l1=0x2b, l2=» CH(1):=CHR(ORD(CH(1))-32);«, l3=0x2b}
0x315a…3178 Line {l1=0x1c, l2=» IF CH='F' THEN«, l3=0x1c}
0x3178…318d Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x318d…31b8 Line {l1=0x29, l2=» IF OPTION IN (.1,5.) THEN«, l3=0x29}
0x31b8…31dd Line {l1=0x23, l2=» NEXTRECX(POST.A) «, l3=0x23}
0x31dd…31f3 Line {l1=0x14, l2=» ELSE«, l3=0x14}
0x31f3…3217 Line {l1=0x22, l2=» NEXTREC(POST.A);«, l3=0x22}
0x3217…3255 Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x3c}
0x3255…3276 Line {l1=0x1f, l2=» ERROR(POST.A)«, l3=0x1f}
0x3276…3289 Line {l1=0x11, l2=» END«, l3=0x11}
0x3289…32a5 Line {l1=0x1a, l2=» UNTIL CH<>'F';«, l3=0x1a}
0x32a5…32b7 Line {l1=0x10, l2=» D23;«, l3=0x10}
0x32b7…32fe Line {l1=0x45, l2=» IF (OPTION IN (.1,5.)) AND (CH<>'R') THEN GETREC(POST.A);«, l3=0x45}
0x32fe…332c Line {l1=0x2c, l2=» (*FOR AT FJERNE XCLUSIV-STATUS*)«, l3=0x2c}
0x332c…3352 Line {l1=0x24, l2=» IF OPTION=2 THEN CH:='S'«, l3=0x24}
0x3352…3361 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x3361…3371 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x3371…3382 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3382…339d Line {l1=0x19, l2=» IF IER=0 THEN«, l3=0x19}
0x339d…33b0 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x33b0…33c8 Line {l1=0x16, l2=» CH:='R';«, l3=0x16}
0x33c8…33e1 Line {l1=0x17, l2=» SKRIVPOST«, l3=0x17}
0x33e1…33f2 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x33f2…3404 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x3404…3417 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x3417…342f Line {l1=0x16, l2=» CH:='S';«, l3=0x16}
0x342f…3468 Line {l1=0x37, l2=» D23;WRITE('Posten findes ikke, RETURN ');«, l3=0x37}
0x3468…347e Line {l1=0x14, l2=» READLN«, l3=0x14}
0x347e…348f Line {l1=0x0f, l2=» END«, l3=0x0f}
0x348f…349e Line {l1=0x0d, l2=» END«, l3=0x0d}
0x349e…34ab Line {l1=0x0b, l2=» END«, l3=0x0b}
0x34ab…34b7 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x34b7…34dd Line {l1=0x24, l2=» IF (OPTION=4) OR (CH='R') THEN«, l3=0x24}
0x34dd…34f3 Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x34f3…3505 Line {l1=0x10, l2=» 1: BEGIN«, l3=0x10}
0x3505…351a Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x351a…3531 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x3531…3548 Line {l1=0x15, l2=» D23;«, l3=0x15}
0x3548…3560 Line {l1=0x16, l2=» J:=0;«, l3=0x16}
0x3560…3596 Line {l1=0x34, l2=» WRITELN('Feltnr, 0 for færdig ',J);«, l3=0x34}
0x3596…35be Line {l1=0x26, l2=» GOTOXY(22,23);READLN;«, l3=0x26}
0x35be…35fb Line {l1=0x3b, l2=» IF NOT (EOLN OR (INPUT^=' ')) THEN READ(J)«, l3=0x3b}
0x35fb…363f Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<=ANTALFELTER);«, l3=0x42}
0x363f…3661 Line {l1=0x20, l2=» IF J>0 THEN BEGIN«, l3=0x20}
0x3661…3687 Line {l1=0x24, l2=» HNR:=0;«, l3=0x24}
0x3687…36c1 Line {l1=0x38, l2=» IF PICTURE(J)^.HÆGTE>0 THEN«, l3=0x38}
0x36c1…36e5 Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x36e5…370c Line {l1=0x25, l2=» REPEAT«, l3=0x25}
0x370c…3739 Line {l1=0x2b, l2=» HNR:=HNR+1«, l3=0x2b}
0x3739…3785 Line {l1=0x4a, l2=» UNTIL PICTURE(J)^.HÆGTE=HÆGTER(HNR)^.HÆGTE;«, l3=0x4a}
0x3785…37b0 Line {l1=0x29, l2=» SÆTHÆGTE; «, l3=0x29}
0x37b0…37d3 Line {l1=0x21, l2=» END;«, l3=0x21}
0x37d3…381c Line {l1=0x47, l2=» LÆSFELT(PICTURE(J));SKRIVFELT(PICTURE(J));«, l3=0x47}
0x381c…384b Line {l1=0x2d, l2=» HCHANGED:=FALSE;«, l3=0x2d}
0x384b…3877 Line {l1=0x2a, l2=» IF HNR>0 THEN«, l3=0x2a}
0x3877…389b Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x389b…38ea Line {l1=0x4d, l2=» CASE PICTURE(J)^.FELTTYPE OF (*$R-*)«, l3=0x4d}
0x38ea…3932 Line {l1=0x46, l2=» HELTAL :HCHANGED:=(HÆGTEREC(HNR).A(1)<>«, l3=0x46}
0x3932…3980 Line {l1=0x4c, l2=» POST.A(PICTURE(J)^.INDEKS));«, l3=0x4c}
0x3980…39b4 Line {l1=0x32, l2=» DOBBTAL:HCHANGED:=(«, l3=0x32}
0x39b4…39f4 Line {l1=0x3e, l2=» (HÆGTEREC(HNR).A(1)<>«, l3=0x3e}
0x39f4…3a40 Line {l1=0x4a, l2=» POST.A(PICTURE(J)^.INDEKS)) OR«, l3=0x4a}
0x3a40…3a80 Line {l1=0x3e, l2=» (HÆGTEREC(HNR).A(2)<>«, l3=0x3e}
0x3a80…3acd Line {l1=0x4b, l2=» POST.A(PICTURE(J)^.INDEKS+1)));«, l3=0x4b}
0x3acd…3b1b Line {l1=0x4c, l2=» TEKST:FOR HINDEKS:=1 TO PICTURE(J)^.FORAN0 DO«, l3=0x4c}
0x3b1b…3b62 Line {l1=0x45, l2=» IF HÆGTEREC(HNR).AA(HINDEKS)<>«, l3=0x45}
0x3b62…3bb1 Line {l1=0x4d, l2=» POST.AA(PICTURE(J)^.INDEKS-1+HINDEKS)«, l3=0x4d}
0x3bb1…3bed Line {l1=0x3a, l2=» THEN HCHANGED:=TRUE«, l3=0x3a}
0x3bed…3c11 Line {l1=0x22, l2=» END«, l3=0x22}
0x3c11…3c60 Line {l1=0x4d, l2=» END; (*$R+*)«, l3=0x4d}
0x3c60…3c8f Line {l1=0x2d, l2=» IF HCHANGED THEN«, l3=0x2d}
0x3c8f…3cb3 Line {l1=0x22, l2=» BEGIN«, l3=0x22}
0x3cb3…3ce1 Line {l1=0x2c, l2=» SÆTNØGLE; «, l3=0x2c}
0x3ce1…3d1b Line {l1=0x38, l2=» GETRECX(HÆGTEREC(HNR).A);«, l3=0x38}
0x3d1b…3d62 Line {l1=0x45, l2=» IF IER=0 THEN DELETE(HÆGTEREC(HNR).A);«, l3=0x45}
0x3d62…3d8c Line {l1=0x28, l2=» SÆTHÆGTE;«, l3=0x28}
0x3d8c…3db6 Line {l1=0x28, l2=» SÆTNØGLE;«, l3=0x28}
0x3db6…3def Line {l1=0x37, l2=» INSERT(HÆGTEREC(HNR).A);«, l3=0x37}
0x3def…3e36 Line {l1=0x45, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(HNR).A) «, l3=0x45}
0x3e36…3e58 Line {l1=0x20, l2=» END«, l3=0x20}
0x3e58…3e78 Line {l1=0x1e, l2=» END«, l3=0x1e}
0x3e78…3e91 Line {l1=0x17, l2=» UNTIL J=0;«, l3=0x17}
0x3e91…3eaf Line {l1=0x1c, l2=» PUTREC(POST.A);«, l3=0x1c}
0x3eaf…3eda Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x29}
0x3eda…3eeb Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x3eeb…3f2c Line {l1=0x3f, l2=» 2: BEGIN GOTOXY(1,24);WRITE('Tryk RETURN ');READLN END;«, l3=0x3f}
0x3f2c…3f42 Line {l1=0x14, l2=» 3: UDPÅLIST;«, l3=0x14}
0x3f42…3f55 Line {l1=0x11, l2=» 4: OPRET;«, l3=0x11}
0x3f55…3f6a Line {l1=0x13, l2=» 5: SLETPOST«, l3=0x13}
0x3f6a…3f75 Line {l1=0x09, l2=» END«, l3=0x09}
0x3f75…3f7b Line {l1=0x04, l2=»END;«, l3=0x04}
0x3f7b…3f83 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3f83…3f96 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x3f96…3fa6 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3fa6…3fd6 Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x3fd6…3fe2 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x3fe2…4019 Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x4019…402e Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x402e…404c Line {l1=0x1c, l2=» FOR I:=1 TO ANTALHÆGTER DO«, l3=0x1c}
0x404c…4055 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4055…4070 Line {l1=0x19, l2=» IOPEN(HÆGTEREC(I).A);«, l3=0x19}
0x4070…4099 Line {l1=0x27, l2=» IF IER<>0 THEN ERROR(HÆGTEREC(I).A)«, l3=0x27}
0x4099…40a1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x40a1…40f1 Line {l1=0x4e, l2=» LINES:=100; (*$R-*)«, l3=0x4e}
0x40f1…4141 Line {l1=0x4e, l2=» POST.A(-3):=FILNR; (*$R+*)«, l3=0x4e}
0x4141…4170 Line {l1=0x2d, l2=» IOPEN(POST.A);IF IER<>0 THEN ERROR(POST.A);«, l3=0x2d}
0x4170…417a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x417a…418c Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x418c…41a0 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x41a0…41ea 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}
0x41ea…41fe Line {l1=0x12, l2=» GOTOXY(10,12);«, l3=0x12}
0x41fe…4218 Line {l1=0x18, l2=» WRITELN('0 Færdig');«, l3=0x18}
0x4218…4239 Line {l1=0x1f, l2=» WRITELN(' ':9,'1 Ændring');«, l3=0x1f}
0x4239…4264 Line {l1=0x29, l2=» WRITELN(' ':9,'2 Udskrift på skærm');«, l3=0x29}
0x4264…4291 Line {l1=0x2b, l2=» WRITELN(' ':9,'3 Udskrift på printer');«, l3=0x2b}
0x4291…42b5 Line {l1=0x22, l2=» WRITELN(' ':9,'4 Oprettelse');«, l3=0x22}
0x42b5…42d7 Line {l1=0x20, l2=» WRITELN(' ':9,'5 Sletning');«, l3=0x20}
0x42d7…42f8 Line {l1=0x1f, l2=» IF USERNIVEAU>=GENERAL THEN«, l3=0x1f}
0x42f8…431a Line {l1=0x20, l2=» WRITELN(' ':9,'6 Status');«, l3=0x20}
0x431a…4326 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x4326…433c Line {l1=0x14, l2=» GOTOXY(10,19);«, l3=0x14}
0x433c…438b Line {l1=0x4d, l2=» WRITE('Vælg 0-');IF USERNIVEAU<GENERAL THEN WRITE('5') ELSE WRITE('6');«, l3=0x4d}
0x438b…43a4 Line {l1=0x17, l2=» GOTOXY(21,19);UR;«, l3=0x17}
0x43a4…43b6 Line {l1=0x10, l2=» OPTION:=SV«, l3=0x10}
0x43b6…43e1 Line {l1=0x29, l2=» UNTIL (OPTION>=0) AND ((OPTION<=5) OR«, l3=0x29}
0x43e1…4415 Line {l1=0x32, l2=» ((OPTION=6) AND (USERNIVEAU>=GENERAL)));«, l3=0x32}
0x4415…443a Line {l1=0x23, l2=» IF OPTION=6 THEN GETSTATUS ELSE«, l3=0x23}
0x443a…445a Line {l1=0x1e, l2=» IF OPTION>0 THEN MAINTAIN «, l3=0x1e}
0x445a…446d Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x446d…448f Line {l1=0x20, l2=» IF LINES<>100 THEN PAGE(LIST);«, l3=0x20}
0x448f…44a2 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x44a2…44d7 Line {l1=0x33, l2=» FOR I:=1 TO ANTALHÆGTER DO ICLOSE(HÆGTEREC(I).A);«, l3=0x33}
0x44d7…44e7 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x44e7…4504 Line {l1=0x1b, l2=» IF IER<>0 THEN BAD(6,IER)«, l3=0x1b}
0x4504…450a Line {l1=0x04, l2=»END;«, l3=0x04}
0x450a…4512 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4512…4523 Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x4523…4529 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x4529…4539 Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x4539…456a Line {l1=0x2f, l2=» FILNAVN,DESCNAVN,POSTNAVN,REGNAVN:STRING(18);«, l3=0x2f}
0x456a…4580 Line {l1=0x14, l2=» VEDLNIVEAU:NIVEAU;«, l3=0x14}
0x4580…4594 Line {l1=0x12, l2=» ZONESIZE:INTEGER«, l3=0x12}
0x4594…459a Line {l1=0x04, l2=»END;«, l3=0x04}
0x459a…45b5 Line {l1=0x19, l2=»FILEDESC=FILE OF FILDESC;«, l3=0x19}
0x45b5…45c6 Line {l1=0x0f, l2=»PROGDESC=RECORD«, l3=0x0f}
0x45c6…45e6 Line {l1=0x1e, l2=» PROGFIL,PROGNAVN:STRING(18);«, l3=0x1e}
0x45e6…45fb Line {l1=0x13, l2=» PROGNIVEAU:NIVEAU«, l3=0x13}
0x45fb…4601 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4601…461d Line {l1=0x1a, l2=»PROGFILE=FILE OF PROGDESC;«, l3=0x1a}
0x461d…4635 Line {l1=0x16, l2=»VAR ISFFILES:FILEDESC;«, l3=0x16}
0x4635…464a Line {l1=0x13, l2=» PROGS:PROGFILE;«, l3=0x13}
0x464a…4664 Line {l1=0x18, l2=» ISFFNAVN:STRING(18);«, l3=0x18}
0x4664…4678 Line {l1=0x12, l2=» SCH:STRING(1);«, l3=0x12}
0x4678…468f Line {l1=0x15, l2=» J,I,AKNR:INTEGER;«, l3=0x15}
0x468f…469f Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x469f…46b2 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x46b2…46c4 Line {l1=0x10, l2=» IOR:INTEGER;«, l3=0x10}
0x46c4…46cb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x46cb…46dd Line {l1=0x10, l2=» IOR:=IORESULT;«, l3=0x10}
0x46dd…46ef Line {l1=0x10, l2=» IF IOR<>0 THEN«, l3=0x10}
0x46ef…46f8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x46f8…470a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x470a…4714 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x4714…473f Line {l1=0x29, l2=» WRITE('Pladefejl ',IOR:5,' RETURN ');«, l3=0x29}
0x473f…474d Line {l1=0x0c, l2=» CH:=' ';«, l3=0x0c}
0x474d…475c Line {l1=0x0d, l2=» EDIT(CH);«, l3=0x0d}
0x475c…477c Line {l1=0x1e, l2=» IF CH<>'R' THEN EXIT(DOIT)«, l3=0x1e}
0x477c…4783 Line {l1=0x05, l2=» END«, l3=0x05}
0x4783…4789 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4789…4791 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4791…4798 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4798…47bd Line {l1=0x23, l2=» ISFFNAVN:='PROGFILE:P2:0000:S';«, l3=0x23}
0x47bd…47dd Line {l1=0x1e, l2=» RESET(PROGS,ISFFNAVN);IOC;«, l3=0x1e}
0x47dd…47e9 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x47e9…4803 Line {l1=0x18, l2=» SEEK(PROGS,1);IOC;«, l3=0x18}
0x4803…4816 Line {l1=0x11, l2=» GET(PROGS);«, l3=0x11}
0x4816…482a Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x482a…483b Line {l1=0x0f, l2=» FILNR:=2;«, l3=0x0f}
0x483b…485e Line {l1=0x21, l2=» WRITELN(' ':20,' 0 Stop');«, l3=0x21}
0x485e…486e Line {l1=0x0e, l2=» WRITELN;«, l3=0x0e}
0x486e…48a5 Line {l1=0x35, l2=» WRITELN(' ':20,' 1 Kartoteksvedligeholdelse');«, l3=0x35}
0x48a5…48d3 Line {l1=0x2c, l2=» WRITELN(' ':20,' 2 Listeprogrammer');«, l3=0x2c}
0x48d3…48fb Line {l1=0x26, l2=» WHILE PROGS^.PROGNAVN(1)<>'@' DO«, l3=0x26}
0x48fb…4908 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4908…4921 Line {l1=0x17, l2=» FILNR:=FILNR+1;«, l3=0x17}
0x4921…4950 Line {l1=0x2d, l2=» IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN«, l3=0x2d}
0x4950…4984 Line {l1=0x32, l2=» WRITELN(' ':20,FILNR:3,PROGS^.PROGNAVN);«, l3=0x32}
0x4984…499c Line {l1=0x16, l2=» GET(PROGS);IOC«, l3=0x16}
0x499c…49a8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x49a8…49e4 Line {l1=0x3a, l2=» WRITELN(' ':20,FILNR+1:3,' Indtast ny adgangskode');«, l3=0x3a}
0x49e4…4a07 Line {l1=0x21, l2=» IF USERNIVEAU>=GENERAL THEN«, l3=0x21}
0x4a07…4a14 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4a14…4a26 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x4a26…4a65 Line {l1=0x3d, l2=» WRITELN(' ':20,FILNR+2:3,' Privilegerede funktioner')«, l3=0x3d}
0x4a65…4a71 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4a71…4a9f Line {l1=0x2c, l2=» GOTOXY(1,22);WRITELN('Vælg funktion');«, l3=0x2c}
0x4a9f…4ab5 Line {l1=0x14, l2=» GOTOXY(15,22);«, l3=0x14}
0x4ab5…4acb Line {l1=0x14, l2=» STIMER:=TIMER;«, l3=0x14}
0x4acb…4ad6 Line {l1=0x09, l2=» UR;«, l3=0x09}
0x4ad6…4b19 Line {l1=0x41, l2=» IF STIMER=0 THEN BEGIN USERNIVEAU:=MENIG;PARM^(1):='0' END;«, l3=0x41}
0x4b19…4b27 Line {l1=0x0c, l2=» I:=SV;«, l3=0x0c}
0x4b27…4b4b Line {l1=0x22, l2=» IF (I>2) AND (I<=FILNR) THEN«, l3=0x22}
0x4b4b…4b58 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4b58…4b76 Line {l1=0x1c, l2=» SEEK(PROGS,I-2);IOC;«, l3=0x1c}
0x4b76…4b8f Line {l1=0x17, l2=» GET(PROGS);IOC;«, l3=0x17}
0x4b8f…4bbe Line {l1=0x2d, l2=» IF PROGS^.PROGNIVEAU<=USERNIVEAU THEN«, l3=0x2d}
0x4bbe…4bcd Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x4bcd…4bdf Line {l1=0x10, l2=» F:='';«, l3=0x10}
0x4bdf…4bf4 Line {l1=0x13, l2=» SCH:=' ';«, l3=0x13}
0x4bf4…4c05 Line {l1=0x0f, l2=» J:=0;«, l3=0x0f}
0x4c05…4c1e Line {l1=0x17, l2=» WHILE J<18 DO«, l3=0x17}
0x4c1e…4c2f Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x4c2f…4c44 Line {l1=0x13, l2=» J:=J+1;«, l3=0x13}
0x4c44…4c70 Line {l1=0x2a, l2=» IF PROGS^.PROGFIL(J)<>' ' THEN«, l3=0x2a}
0x4c70…4c83 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x4c83…4cad Line {l1=0x28, l2=» SCH(1):=PROGS^.PROGFIL(J);«, l3=0x28}
0x4cad…4ccd Line {l1=0x1e, l2=» F:=CONCAT(F,SCH)«, l3=0x1e}
0x4ccd…4cde Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4cde…4cf6 Line {l1=0x16, l2=» ELSE J:=18«, l3=0x16}
0x4cf6…4d05 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x4d05…4d12 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4d12…4d1e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4d1e…4d57 Line {l1=0x37, l2=» UNTIL (I IN (.0..2.)) OR (I=FILNR+1) OR (F<>' ') OR«, l3=0x37}
0x4d57…4d8b Line {l1=0x32, l2=» ((I=FILNR+2) AND (USERNIVEAU>=GENERAL));«, l3=0x32}
0x4d8b…4da2 Line {l1=0x15, l2=» CLOSE(PROGS);IOC;«, l3=0x15}
0x4da2…4db9 Line {l1=0x15, l2=» IF I=FILNR+2 THEN«, l3=0x15}
0x4db9…4dc7 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x4dc7…4dde Line {l1=0x15, l2=» CLEARSCREEN;«, l3=0x15}
0x4dde…4e00 Line {l1=0x20, l2=» IF USERNIVEAU>=HSM THEN«, l3=0x20}
0x4e00…4e10 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x4e10…4e44 Line {l1=0x32, l2=» WRITELN(' ':20,'1 Skærmbilledopbygning');«, l3=0x32}
0x4e44…4e72 Line {l1=0x2c, l2=» WRITELN(' ':20,'2 Listedefinition')«, l3=0x2c}
0x4e72…4e81 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x4e81…4eb8 Line {l1=0x35, l2=» WRITELN(' ':20,'3 Ændring af adgangskoder');«, l3=0x35}
0x4eb8…4ed0 Line {l1=0x16, l2=» GOTOXY(1,20);«, l3=0x16}
0x4ed0…4ef4 Line {l1=0x22, l2=» WRITELN('Vælg funktion');«, l3=0x22}
0x4ef4…4f05 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x4f05…4f1e Line {l1=0x17, l2=» GOTOXY(15,20);«, l3=0x17}
0x4f1e…4f37 Line {l1=0x17, l2=» READLN;READ(I)«, l3=0x17}
0x4f37…4f69 Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<4);«, l3=0x30}
0x4f69…4f7d Line {l1=0x12, l2=» CASE I OF«, l3=0x12}
0x4f7d…4fba Line {l1=0x3b, l2=» 1: IF USERNIVEAU>=HSM THEN F:='INTRE,SKÆRMBIL:P2';«, l3=0x3b}
0x4fba…4ff7 Line {l1=0x3b, l2=» 2: IF USERNIVEAU>=HSM THEN F:='INTRE,LISTEGEN:P2';«, l3=0x3b}
0x4ff7…500e Line {l1=0x15, l2=» 3: KODEVEDL;«, l3=0x15}
0x500e…501c Line {l1=0x0c, l2=» END«, l3=0x0c}
0x501c…5028 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x5028…5035 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x5035…504f Line {l1=0x18, l2=» IF I=FILNR+1 THEN«, l3=0x18}
0x504f…505d Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x505d…5076 Line {l1=0x17, l2=» PARM^(1):='0';«, l3=0x17}
0x5076…508a Line {l1=0x12, l2=» KODEVEDL;«, l3=0x12}
0x508a…50a9 Line {l1=0x1d, l2=» I:=ORD(PARM^(1))-48;«, l3=0x1d}
0x50a9…50c6 Line {l1=0x1b, l2=» USERNIVEAU:=MENIG;«, l3=0x1b}
0x50c6…50dd Line {l1=0x15, l2=» WHILE I>0 DO«, l3=0x15}
0x50dd…50ed Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x50ed…5117 Line {l1=0x28, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x28}
0x5117…512a Line {l1=0x11, l2=» I:=I-1«, l3=0x11}
0x512a…5138 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x5138…5144 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x5144…5152 Line {l1=0x0c, l2=» ELSE «, l3=0x0c}
0x5152…5164 Line {l1=0x10, l2=» CASE I OF«, l3=0x10}
0x5164…517d Line {l1=0x17, l2=» 1:IF RESPRINT THEN«, l3=0x17}
0x517d…518b Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x518b…51b5 Line {l1=0x28, l2=» ISFFNAVN:='ISFFILES:P2:0000:S';«, l3=0x28}
0x51b5…51dd Line {l1=0x26, l2=» RESET(ISFFILES,ISFFNAVN);IOC;«, l3=0x26}
0x51dd…51ee Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x51ee…5207 Line {l1=0x17, l2=» CLEARSCREEN;«, l3=0x17}
0x5207…5229 Line {l1=0x20, l2=» SEEK(ISFFILES,1);IOC;«, l3=0x20}
0x5229…5248 Line {l1=0x1d, l2=» GET(ISFFILES);IOC;«, l3=0x1d}
0x5248…525e Line {l1=0x14, l2=» FILNR:=0;«, l3=0x14}
0x525e…528d Line {l1=0x2d, l2=» WHILE ISFFILES^.FILNAVN(1)<>'@' DO«, l3=0x2d}
0x528d…529f Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x529f…52bd Line {l1=0x1c, l2=» FILNR:=FILNR+1;«, l3=0x1c}
0x52bd…52f4 Line {l1=0x35, l2=» IF ISFFILES^.VEDLNIVEAU<=USERNIVEAU THEN«, l3=0x35}
0x52f4…5338 Line {l1=0x42, l2=» WRITELN(FILNR:4,' ',ISFFILES^.REGNAVN,'-register');«, l3=0x42}
0x5338…5358 Line {l1=0x1e, l2=» GET(ISFFILES);IOC«, l3=0x1e}
0x5358…5369 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x5369…537c Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x537c…53a7 Line {l1=0x29, l2=» D23;WRITE('Vælg register ');«, l3=0x29}
0x53a7…53c7 Line {l1=0x1e, l2=» READLN;READ(AKNR)«, l3=0x1e}
0x53c7…5407 Line {l1=0x3e, l2=» UNTIL (IORESULT=0) AND (AKNR>=0) AND (AKNR<=FILNR);«, l3=0x3e}
0x5407…5422 Line {l1=0x19, l2=» IF AKNR>0 THEN«, l3=0x19}
0x5422…5434 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x5434…545b Line {l1=0x25, l2=» SEEK(ISFFILES,AKNR);IOC;«, l3=0x25}
0x545b…547b Line {l1=0x1e, l2=» GET(ISFFILES);IOC«, l3=0x1e}
0x547b…548b Line {l1=0x0e, l2=» END«, l3=0x0e}
0x548b…54cb Line {l1=0x3e, l2=» UNTIL (AKNR=0) OR (ISFFILES^.VEDLNIVEAU<=USERNIVEAU);«, l3=0x3e}
0x54cb…54ea Line {l1=0x1d, l2=» CLOSE(ISFFILES);IOC;«, l3=0x1d}
0x54ea…5503 Line {l1=0x17, l2=» IF AKNR>0 THEN«, l3=0x17}
0x5503…5513 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x5513…553d Line {l1=0x28, l2=» DESCNAVN:=ISFFILES^.DESCNAVN;«, l3=0x28}
0x553d…5565 Line {l1=0x26, l2=» REGNAVN:=ISFFILES^.REGNAVN;«, l3=0x26}
0x5565…5592 Line {l1=0x2b, l2=» IF ISFFILES^.FILNAVN(1)='#' THEN«, l3=0x2b}
0x5592…55a4 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x55a4…55bb Line {l1=0x15, l2=» AKNR:=0;«, l3=0x15}
0x55bb…55cf Line {l1=0x12, l2=» I:=2;«, l3=0x12}
0x55cf…560b Line {l1=0x3a, l2=» WHILE ISFFILES^.FILNAVN(I) IN (.'0'..'9'.) DO«, l3=0x3a}
0x560b…561f Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x561f…565b Line {l1=0x3a, l2=» AKNR:=10*AKNR+ORD(ISFFILES^.FILNAVN(I))-48;«, l3=0x3a}
0x565b…5672 Line {l1=0x15, l2=» I:=I+1«, l3=0x15}
0x5672…5684 Line {l1=0x10, l2=» END«, l3=0x10}
0x5684…5695 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x5695…56ae Line {l1=0x17, l2=» FILNR:=AKNR;«, l3=0x17}
0x56ae…56c5 Line {l1=0x15, l2=» MARK(QUQ);«, l3=0x15}
0x56c5…56da Line {l1=0x13, l2=» REGVEDL;«, l3=0x13}
0x56da…56f3 Line {l1=0x17, l2=» RELEASE(QUQ)«, l3=0x17}
0x56f3…5702 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x5702…5713 Line {l1=0x0f, l2=» FREEPR«, l3=0x0f}
0x5713…5720 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x5720…5733 Line {l1=0x11, l2=» 0:F:='STOP';«, l3=0x11}
0x5733…574b Line {l1=0x16, l2=» 2:F:='CPLISTE *1'«, l3=0x16}
0x574b…5757 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x5757…575d Line {l1=0x04, l2=»END;«, l3=0x04}
0x575d…5765 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5765…576c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x576c…578a Line {l1=0x1c, l2=» ALARM:=CLOCK^.DATE(9)='1';«, l3=0x1c}
0x578a…57ca Line {l1=0x3e, l2=» IF ALARM THEN FOR I:=1 TO 8 DO ALARMTIME(I):=CLOCK^.DATE(I);«, l3=0x3e}
0x57ca…57f8 Line {l1=0x2c, l2=» HOWL:=FALSE;STOPWATCH:=FALSE;TÆNDT:=FALSE;«, l3=0x2c}
0x57f8…5812 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x5812…582a Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x582a…5840 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x5840…5850 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x5850…5859 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5859…587c Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x587c…5888 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x5888…58d8 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x58d8…58e8 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x58e8…5928 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x5928…5978 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x5978…5991 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x5991…59ab Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x59ab…59c9 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x59c9…59d3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x59d3…59e0 Line {l1=0x0b, l2=» F:=' ';«, l3=0x0b}
0x59e0…59f2 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x59f2…59fc Line {l1=0x08, l2=» DOIT«, l3=0x08}
0x59fc…5a0d Line {l1=0x0f, l2=» UNTIL F<>' ';«, l3=0x0f}
0x5a0d…5a25 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x5a25…5a3e Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x5a3e…5a5c Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x5a5c…5a71 Line {l1=0x13, l2=» IF F<>'STOP' THEN«, l3=0x13}
0x5a71…5a7a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5a7a…5a91 Line {l1=0x15, l2=» FNAVN:=' ';«, l3=0x15}
0x5a91…5abb Line {l1=0x28, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x28}
0x5abb…5ad5 Line {l1=0x18, l2=» IF LENGTH(F)>10 THEN«, l3=0x18}
0x5ad5…5b09 Line {l1=0x32, l2=» CHAIN('L *1',CONCAT(F,',',FNAVN),QUQ) «, l3=0x32}
0x5b09…5b13 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x5b13…5b2e Line {l1=0x19, l2=» CHAIN(F,FNAVN,QUQ);«, l3=0x19}
0x5b2e…5b65 Line {l1=0x35, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x35}
0x5b65…5b6c Line {l1=0x05, l2=» END«, l3=0x05}
0x5b6c…5b74 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x5b74…5b7d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5b7d…5b97 Line {l1=0x18, l2=» UDFØR(UAFMELD,SNYD);«, l3=0x18}
0x5b97…5bb2 Line {l1=0x19, l2=» UDFØRT(UAFMELD,SNYD);«, l3=0x19}
0x5bb2…5bd1 Line {l1=0x1d, l2=» IF IER<>0 THEN BAD(3,IER)«, l3=0x1d}
0x5bd1…5bd8 Line {l1=0x05, l2=» END«, l3=0x05}
0x5bd8…5bde Line {l1=0x04, l2=»END.«, l3=0x04}
0x5bde…5be0 00 00 ┆ ┆
0x5be0…5c00 44 05 04 45 4e 44 2e 04 00 00 3b 11 13 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 3a 34 39 29 ┆D END. ; WRITELN(' ':49)┆
0x5c00…5c20 13 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 11 50 52 4f 43 45 44 55 52 45 ┆ END END; (*$P*) PROCEDURE┆
0x5c20…5c40 20 43 48 45 43 4b 53 3b 11 0e 56 41 52 20 49 3a 49 4e 54 45 47 45 52 3b 0e 05 42 45 47 49 4e 05 ┆ CHECKS; VAR I:INTEGER; BEGIN ┆
0x5c40…5c60 16 20 20 53 54 41 4e 44 2e 4e 52 3a 3d 50 4f 53 54 2e 53 54 4e 52 3b 16 12 20 20 47 45 54 52 45 ┆ STAND.NR:=POST.STNR; GETRE┆
0x5c60…5c80 43 28 53 54 41 4e 44 2e 41 29 3b 12 2f 20 20 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 ┆C(STAND.A); / IF NOT (-IER IN (┆
0x5c80…5ca0 2e 30 2c 36 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 53 54 41 4e 44 2e 41 29 3b 2f 10 20 20 ┆.0,6.)) THEN ERROR(STAND.A);/ ┆
0x5ca0…5cc0 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 10 07 20 20 42 45 47 49 4e 07 11 20 20 20 20 47 4f 54 ┆IF IER=-6 THEN BEGIN GOT┆
0x5cc0…5ce0 4f 58 59 28 33 30 2c 31 29 3b 11 32 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 74 61 6e 64 61 72 ┆OXY(30,1); 2 WRITELN('Standar┆
0x5ce0…5d00 64 74 61 73 6b 65 20 66 69 6e 64 65 73 20 69 6b 6b 65 2c 20 69 6e 64 74 61 73 74 27 29 3b 32 22 ┆dtaske findes ikke, indtast');2"┆
0x5d00…5d20 20 20 20 20 46 49 4c 4c 43 48 41 52 28 50 4f 53 54 2e 53 42 45 54 45 47 4e 2c 33 36 2c 27 20 27 ┆ FILLCHAR(POST.SBETEGN,36,' '┆
0x5d20…5d40 29 3b 22 2e 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 35 29 29 3b 53 4b 52 49 ┆);". LÆSFELT(PICTURE(5));SKRI┆
0x5d40…5d60 56 46 45 4c 54 28 50 49 43 54 55 52 45 28 35 29 29 3b 2e 1f 20 20 20 20 53 54 41 4e 44 2e 42 45 ┆VFELT(PICTURE(5));. STAND.BE┆
0x5d60…5d80 54 45 47 4e 3a 3d 50 4f 53 54 2e 53 42 45 54 45 47 4e 3b 1f 14 20 20 20 20 49 4e 53 45 52 54 28 ┆TEGN:=POST.SBETEGN; INSERT(┆
0x5d80…5da0 53 54 41 4e 44 2e 41 29 3b 14 31 20 20 20 20 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 ┆STAND.A); 1 IF NOT (-IER IN (┆
0x5da0…5dc0 2e 30 2c 37 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 53 54 41 4e 44 2e 41 29 3b 31 11 20 20 ┆.0,7.)) THEN ERROR(STAND.A);1 ┆
0x5dc0…5de0 20 20 47 4f 54 4f 58 59 28 33 30 2c 31 29 3b 11 14 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 ┆ GOTOXY(30,1); WRITELN(' '┆
0x5de0…5e00 3a 34 39 29 20 14 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 15 50 52 4f 43 ┆:49) END END; (*$P*) PROC┆
0x5e00…5e20 45 44 55 52 45 20 53 4b 52 49 56 53 54 41 4e 44 3b 15 0f 43 4f 4e 53 54 20 53 49 44 45 4c 3d 35 ┆EDURE SKRIVSTAND; CONST SIDEL=5┆
0x5e20…5e40 31 3b 0f 24 56 41 52 20 53 55 4d 2c 54 4f 54 53 55 4d 3a 41 52 52 41 59 20 28 31 2e 2e 38 29 20 ┆1; $VAR SUM,TOTSUM:ARRAY (1..8) ┆
0x5e40…5e60 4f 46 20 52 45 41 4c 3b 24 11 20 20 20 20 4c 48 4e 52 3a 49 4e 54 45 47 45 52 3b 11 27 20 20 20 ┆OF REAL;$ LHNR:INTEGER; ' ┆
0x5e60…5e80 20 4c 48 46 4f 52 4b 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 32 29 20 4f 46 20 43 ┆ LHFORK:PACKED ARRAY (1..2) OF C┆
0x5e80…5ea0 48 41 52 3b 27 06 28 2a 24 50 2a 29 06 14 50 52 4f 43 45 44 55 52 45 20 53 4b 52 49 56 48 45 41 ┆HAR;' (*$P*) PROCEDURE SKRIVHEA┆
0x5ea0…5ec0 44 3b 14 05 42 45 47 49 4e 05 16 20 20 49 46 20 44 45 56 49 43 45 3d 53 4b 5b 52 4d 20 54 48 45 ┆D; BEGIN IF DEVICE=SKÆRM THE┆
0x5ec0…5ee0 4e 16 07 20 20 42 45 47 49 4e 07 10 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 10 30 20 20 ┆N BEGIN CLEARSCREEN; 0 ┆
0x5ee0…5f00 20 20 57 52 49 54 45 4c 4e 28 27 48 6f 76 65 64 6e 72 2d 6f 70 64 65 6c 74 20 73 74 61 6e 64 61 ┆ WRITELN('Hovednr-opdelt standa┆
0x5f00…5f20 72 64 66 6f 72 73 6b 72 69 66 74 27 29 3b 30 37 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4e 72 27 ┆rdforskrift');07 WRITELN('Nr'┆
0x5f20…5f40 2c 53 54 41 4e 44 2e 4e 52 28 31 29 2a 31 30 30 30 30 2e 30 2b 53 54 41 4e 44 2e 4e 52 28 32 29 ┆,STAND.NR(1)*10000.0+STAND.NR(2)┆
0x5f40…5f60 3a 31 30 3a 2d 32 2c 37 2a 20 20 20 20 20 20 20 20 20 20 20 20 27 20 20 42 65 74 65 67 6e 65 6c ┆:10:-2,7* ' Betegnel┆
0x5f60…5f80 73 65 20 27 2c 53 54 41 4e 44 2e 42 45 54 45 47 4e 29 3b 2a 0c 20 20 20 20 4c 49 4e 45 53 3a 3d ┆se ',STAND.BETEGN);* LINES:=┆
0x5f80…5fa0 32 0c 05 20 20 45 4e 44 05 06 20 20 45 4c 53 45 06 07 20 20 42 45 47 49 4e 07 18 20 20 20 20 57 ┆2 END ELSE BEGIN W┆
0x5fa0…5fc0 48 49 4c 45 20 4c 49 4e 45 53 3c 53 49 44 45 4c 20 44 4f 18 09 20 20 20 20 42 45 47 49 4e 09 14 ┆HILE LINES<SIDEL DO BEGIN ┆
0x5fc0…5fe0 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 14 14 20 20 20 20 20 20 4c 49 4e 45 ┆ WRITELN(LIST); LINE┆
0x5fe0…6000 53 3a 3d 4c 49 4e 45 53 2b 31 14 08 20 20 20 20 45 4e 44 3b 08 12 20 20 20 20 57 52 49 54 45 4c ┆S:=LINES+1 END; WRITEL┆
0x6000…6020 4e 28 4c 49 53 54 29 3b 12 35 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 48 4f 56 45 ┆N(LIST); 5 WRITELN(LIST,'HOVE┆
0x6020…6040 44 4e 52 2d 4f 50 44 45 4c 54 20 53 54 41 4e 44 41 52 44 46 4f 52 53 4b 52 49 46 54 27 29 3b 35 ┆DNR-OPDELT STANDARDFORSKRIFT');5┆
0x6040…6060 12 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 12 3c 20 20 20 20 57 52 49 54 45 4c 4e ┆ WRITELN(LIST); < WRITELN┆
0x6060…6080 28 4c 49 53 54 2c 27 4e 52 27 2c 53 54 41 4e 44 2e 4e 52 28 31 29 2a 31 30 30 30 30 2e 30 2b 53 ┆(LIST,'NR',STAND.NR(1)*10000.0+S┆
0x6080…60a0 54 41 4e 44 2e 4e 52 28 32 29 3a 31 30 3a 2d 32 2c 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 27 ┆TAND.NR(2):10:-2,<* '┆
0x60a0…60c0 20 20 42 45 54 45 47 4e 45 4c 53 45 20 27 2c 53 54 41 4e 44 2e 42 45 54 45 47 4e 29 3b 2a 0c 20 ┆ BETEGNELSE ',STAND.BETEGN);* ┆
0x60c0…60e0 20 20 20 4c 49 4e 45 53 3a 3d 34 0c 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 ┆ LINES:=4 END END; (*$P*)┆
0x60e0…6100 06 15 50 52 4f 43 45 44 55 52 45 20 4f 56 45 52 53 4b 52 49 46 54 3b 15 05 42 45 47 49 4e 05 3e ┆ PROCEDURE OVERSKRIFT; BEGIN >┆
0x6100…6120 20 20 49 46 20 44 45 56 49 43 45 3d 50 52 49 4e 54 20 54 48 45 4e 20 42 45 47 49 4e 20 57 52 49 ┆ IF DEVICE=PRINT THEN BEGIN WRI┆
0x6120…6140 54 45 4c 4e 28 4c 49 53 54 29 3b 4c 49 4e 45 53 3a 3d 4c 49 4e 45 53 2b 31 20 45 4e 44 3b 3e 15 ┆TELN(LIST);LINES:=LINES+1 END;> ┆
0x6140…6160 20 20 48 4f 56 45 44 2e 4e 52 3a 3d 50 4f 53 54 2e 48 4e 52 3b 15 19 20 20 48 4f 56 45 44 2e 46 ┆ HOVED.NR:=POST.HNR; HOVED.F┆
0x6160…6180 4f 52 4b 3a 3d 50 4f 53 54 2e 48 46 4f 52 4b 3b 19 3f 20 20 47 45 54 52 45 43 28 48 4f 56 45 44 ┆ORK:=POST.HFORK; ? GETREC(HOVED┆
0x6180…61a0 2e 41 29 3b 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c 36 2e 29 29 20 54 48 45 ┆.A);IF NOT (-IER IN (.0,6.)) THE┆
0x61a0…61c0 4e 20 45 52 52 4f 52 28 48 4f 56 45 44 2e 41 29 3b 3f 16 20 20 49 46 20 44 45 56 49 43 45 3d 53 ┆N ERROR(HOVED.A);? IF DEVICE=S┆
0x61c0…61e0 4b 5b 52 4d 20 54 48 45 4e 16 11 20 20 20 20 49 46 20 49 45 52 3d 30 20 54 48 45 4e 11 3d 20 20 ┆KÆRM THEN IF IER=0 THEN = ┆
0x61e0…6200 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 3a 35 2c 48 4f 56 45 44 2e 42 45 54 45 47 4e 2c 27 ┆ WRITELN(' ':5,HOVED.BETEGN,'┆
0x6200…6220 20 27 3a 34 2c 48 4f 56 45 44 2e 46 4f 52 4b 2c 48 4f 56 45 44 2e 4e 52 3a 33 29 3d 08 20 20 20 ┆ ':4,HOVED.FORK,HOVED.NR:3)= ┆
0x6220…6240 20 45 4c 53 45 08 38 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 49 6b 6b 65 20 6f 70 72 65 74 ┆ ELSE 8 WRITELN('Ikke opret┆
0x6240…6260 74 65 74 27 3a 34 30 2c 50 4f 53 54 2e 48 46 4f 52 4b 2c 50 4f 53 54 2e 48 4e 52 3a 33 29 20 38 ┆tet':40,POST.HFORK,POST.HNR:3) 8┆
0x6260…6280 06 20 20 45 4c 53 45 06 07 20 20 42 45 47 49 4e 07 11 20 20 20 20 49 46 20 49 45 52 3d 30 20 54 ┆ ELSE BEGIN IF IER=0 T┆
0x6280…62a0 48 45 4e 11 3a 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 48 4f 56 45 44 2e 42 45 54 45 ┆HEN : WRITE(LIST,HOVED.BETE┆
0x62a0…62c0 47 4e 2c 27 20 27 3a 34 2c 48 4f 56 45 44 2e 46 4f 52 4b 2c 48 4f 56 45 44 2e 4e 52 3a 33 29 63 ┆GN,' ':4,HOVED.FORK,HOVED.NR:3)c┆