|
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: »CP1LISTE.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »CP1LISTE.K«
PROGRAM CPLISTE;
CONST LNGTH=20;
MAXRECSIZE=1000;
PROGRAMNR=2;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;
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;
USERNIVEAU:NIVEAU;
F:STRING(11);
DBUF:DIRECTBUF;
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;
FELTYPE:ARRAY (0..3) OF PACKED ARRAY (1..7) OF CHAR;
ELTYPE:ARRAY (0..9) OF PACKED ARRAY (1..11) OF CHAR;
GENTYPE:ARRAY (0..1) OF PACKED ARRAY (1..6) OF CHAR;
QUQ:^INTEGER;
(*$P*)
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*)
(*$IUDFØR*)
(*$P*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE INITLIST;
CONST MAXPOST=150;
MAXZONES=2;
SIDEBRED=80;
TYPE
ELEMENT=^ELEMENTBESKRIVELSE;
POSITION=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
ETYPE=(LISTEDESC,PICTURE,FELT,INDKOMMANDO,UDKOMMANDO,VALIDITET,GENTAG,BEREGN,
NØGLE,KSLOP);
REPTYPE=(REPETE,WAILE);
FACTTYP=(CONSTVAR,LPEXPRP,NOTFACT);
SYMBOLTYPE=(PERIOD,EQL,LSS,GTR,NEQ,LEQ,GEQ,LPAREN,RPAREN,OTHERSYM,
PLUS,MINUS,OROP,CONSTSYM,POSTSYM,IDENTSYM,NOTOP,TEKSTSYM,
TIMES,SLASH,DIVOP,MODOP,ANDOP,SLUTSYM);
KSLOPTYPE=(EXPRESSION,SIMPLEX,TERM,FACTOR);
ELEMENTBESKRIVELSE=RECORD
NEXTELEMENT :ELEMENT;
CASE ELEMENTTYPE:ETYPE OF
LISTEDESC:
(FILES :ARRAY (.1..8.) OF INTEGER;
LINESPP :INTEGER
);
PICTURE:
(PICTPOS :POSITION;
FØRSTFELT :ELEMENT;
PICTNAVN :STRING(8)
);
INDKOMMANDO:
(GETFILREF,
GETMODE :INTEGER;
FØRSTNØGL :ELEMENT
);
UDKOMMANDO:
(PUTFILREF,
PUTMODE :INTEGER
);
NØGLE:
(NØGLETYPE :FTYPE;
NØGLEREF,
PINDEKS,
GINDEKS :INTEGER
);
GENTAG:
(LØKKETYPE :REPTYPE;
FIRSTFELT,
BETINGELSE :ELEMENT;
POSINCR :POSITION
);
BEREGN:
(UDTRYK :ELEMENT;
GEMREF, (*<0 => UDSKRIFT JVNF. FOREGÅENDE UDFELT*)
GEMINDEKS :INTEGER;
UDTRYKTYPE :FTYPE
);
VALIDITET:
(CASE VALIDITYTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:()
);
FELT:
(INDPOS :POSITION;
EDITERING, (*<0 => UDFELT*)
POSTREF, (*VÆRDI FÅS FRA NEXTELEMENT, BEREGNING*)
INDEKS, (*NÅR POSTREF=0 OG INDEKS<0*)
LÆNGDE,
FORAN0 :INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:()
);
KSLOP:
(SECOND :ELEMENT;
CASE POLISH:KSLOPTYPE OF
EXPRESSION:(EXPOP:SYMBOLTYPE);
SIMPLEX :(SIMOP1,SIMOP2:SYMBOLTYPE);
TERM :(TRMOP:SYMBOLTYPE);
FACTOR :(CASE FACTTYPE:FACTTYP OF
CONSTVAR:(CVREF,CVDEKS:INTEGER;
CVTYPE :FTYPE);
LPEXPRP,NOTFACT:())
);
END;
ELEMENTFIL=FILE OF ELEMENTBESKRIVELSE;
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;
LISTTYPE=RECORD
NAVN:STRING(30); (*LISTENS BETEGNELSE*)
DESCLIST:STRING(18); (*NAVN PÅ LISTEDEFINITIONSFILEN*)
LISTENIVEAU:NIVEAU; (*ADGANGSNIVEAUET TIL LISTEN*)
BLANKTYP, (*BLANKETTYPE*)
ZPOSTNR:INTEGER (*KONSTANTPOSTENS NR*)
END;
LISTFILE=FILE OF LISTTYPE; (*FORTEGNELSE OVER ALLE DEFINEREDE LISTER*)
ZEROFIL=FILE OF PPOST;
FILDESC=RECORD
FILNAVN:STRING(18); (*ISF-FILENS NAVN*)
DESCNAVN:STRING(18); (*NAVNET PÅ DEN ENKELTE ISF-FILS BESKRIVELSESFIL*)
POSTNAVN: STRING(18); (*NAVNET PÅ ET INDIVID I FILEN*)
REGNAVN:STRING(18); (*FILENS BETEGNELSE*)
VEDLNIVEAU:NIVEAU;(*ADGANGSNIVEAU FOR GENERELT VEDLIGEHOLDELSESPROGRAM*)
ZONESIZE:INTEGER
END;
FILEDESC=FILE OF FILDESC;(*FORTEGNELSE OVER ALLE ISF-FILER*)
SIDEFIL=FILE OF STRING(SIDEBRED);
VAR LISTEHOVED,LISTEELEMENT: ELEMENT;
NROFFILES,LINES,OPTION,I,J:INTEGER;
CH:STRING(1);
LINE:STRING;
POST:ARRAY (0..MAXZONES) OF PPOST;
AKTULIST:LISTTYPE;
ISFFILES:FILEDESC;
SIDE:SIDEFIL;
(*$P*)
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
BEGIN
IF LINES>0 THEN PAGE(LIST); (*$R-*)
WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);(*IF CH='R' THEN REPORT(ZONE.H,REGISTER,1);*)
REPEAT
NROFFILES:=NROFFILES-1;
ICLOSE(POST(NROFFILES).A)
UNTIL NROFFILES=1;
EXIT(INITLIST)
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*)
PROCEDURE INITTEXT;
BEGIN
FELTYPE(0):='HELTAL ';
FELTYPE(1):='DOBBTAL';
FELTYPE(2):='REEL ';
FELTYPE(3):='TEKST ';
ELTYPE(0):='LISTEDESC ';
ELTYPE(1):='PICTURE ';
ELTYPE(2):='FELT ';
ELTYPE(3):='INDKOMMANDO';
ELTYPE(4):='UDKOMMANDO ';
ELTYPE(5):='VALIDITET ';
ELTYPE(6):='GENTAG ';
ELTYPE(7):='BEREGN ';
ELTYPE(8):='NØGLE ';
ELTYPE(9):='KSLOP ';
GENTYPE(0):='REPEAT';
GENTYPE(1):='WHILE ';
END;
(*$P*)
(*$XT*)
PROCEDURE OPLYS;
VAR I,J,OPTION,PRNIVEAU:INTEGER;
NÅET:BOOLEAN;
PROCEDURE PRINTEL(VAR EL:ELEMENT);
VAR I:INTEGER;
PROCEDURE PRINT1;
BEGIN
WITH EL^ DO
CASE ELEMENTTYPE OF
LISTEDESC:BEGIN
WRITE(LIST,'FILES');
FOR I:=1 TO 8 DO WRITE(LIST,FILES(I):3);
WRITELN(LIST);
WRITELN(LIST,' ':PRNIVEAU+3,'LINESPP',LINESPP:4)
END;
PICTURE: BEGIN
WRITELN(LIST,'NAVN ',PICTNAVN,' POSITION',
PICTPOS.X:3,PICTPOS.Y:3);
WRITELN(LIST,' ':PRNIVEAU+3,'FØRSTFELT');
PRINTEL(FØRSTFELT);
END;
INDKOMMANDO:
BEGIN
WRITELN(LIST,'GETFILREF',GETFILREF:3,
' GETMODE',GETMODE:3);
WRITELN(LIST,' ':PRNIVEAU+3,'FØRSTNØGL');
PRINTEL(FØRSTNØGL)
END;
UDKOMMANDO:WRITELN(LIST,'PUTFILREF',PUTFILREF:3,
' PUTMODE',PUTMODE:3);
NØGLE: WRITELN(LIST,'NØGLETYPE ',FELTYPE(ORD(NØGLETYPE)),
' NØGLEREF',NØGLEREF:3,
' PINDEKS',PINDEKS:3,
' GINDEKS',GINDEKS:3);
GENTAG: BEGIN
WRITELN(LIST,'LØKKETYPE ',GENTYPE(ORD(LØKKETYPE)),
' POSINCR',POSINCR.X:6,POSINCR.Y:6);
WRITELN(LIST,' ':PRNIVEAU+3,'BETINGELSE');
PRINTEL(BETINGELSE);
WRITELN(LIST,' ':PRNIVEAU+3,'FIRSTFELT');
PRINTEL(FIRSTFELT)
END;
BEREGN :BEGIN
WRITELN(LIST,'GEMREF',GEMREF:3,
' GEMINDEKS',GEMINDEKS:4,
' UDTRYKTYPE ',FELTYPE(ORD(UDTRYKTYPE)));
WRITELN(LIST,' ':PRNIVEAU+3,'UDTRYK');
PRINTEL(UDTRYK)
END;
VALIDITET:BEGIN
CASE VALIDITYTYPE OF
HINTERVAL:WRITELN(LIST,'HINTERVAL MIN MAX',MIN:8,MAX:8);
DINTERVAL:WRITELN(LIST,'DINTERVAL MIN MAX',
MIN1*10000.0+MIN2:10:-2,
MAX1*10000.0+MAX2:10:-2);
RINTERVAL:WRITELN(LIST,'RINTERVAL MIN MAX',RMIN:10:-2,
RMAX:10:-2);
DATO:WRITELN(LIST,'DATO');
CPR:WRITELN(LIST,'CPR')
END
END;
END
END;
BEGIN
IF EL<>NIL THEN
WITH EL^ DO
BEGIN
PRNIVEAU:=PRNIVEAU+1;
WRITELN(LIST,PRNIVEAU:3,' ':PRNIVEAU,'Elementtype ',
ELTYPE(ORD(ELEMENTTYPE)));
WRITE(LIST,' ':PRNIVEAU+3);
CASE ELEMENTTYPE OF
FELT : BEGIN
WRITELN(LIST,'INDPOS',INDPOS.X:5,INDPOS.Y:5,
' EDITERING',EDITERING:2,
' POSTREF',POSTREF:3,
' INDEKS',INDEKS:4,
' LÆNGDE',LÆNGDE:3,
' FORAN0',FORAN0:3);
WRITE(LIST,' ':PRNIVEAU+3,'FELTTYPE ',
FELTYPE(ORD(FELTTYPE)));
IF FELTTYPE=REEL THEN WRITELN(LIST,' DEC',DEC:3)
ELSE WRITELN(LIST)
END;
KSLOP : BEGIN
CASE POLISH OF
EXPRESSION:BEGIN
WRITELN(LIST,'EXPRESSION');
PRINTEL(NEXTELEMENT);
PRINTEL(SECOND);
WRITELN(LIST,ORD(EXPOP))
END;
SIMPLEX: BEGIN
WRITELN(LIST,'SIMPLEX');
IF SIMOP1<>OROP THEN
WRITELN(LIST,ORD(SIMOP1));
PRINTEL(NEXTELEMENT);
IF SIMOP2<>OROP THEN
BEGIN
PRINTEL(SECOND);
WRITELN(LIST,ORD(SIMOP2))
END
END;
TERM: BEGIN
WRITELN(LIST,'TERM');
PRINTEL(NEXTELEMENT);
PRINTEL(SECOND);
WRITELN(LIST,ORD(TRMOP))
END;
FACTOR: BEGIN
WRITE(LIST,'FACTOR ');
CASE FACTTYPE OF
LPEXPRP:BEGIN
WRITELN(LIST,'LPEXPRP (');
PRINTEL(NEXTELEMENT);
WRITELN(LIST,')')
END;
NOTFACT:BEGIN
WRITELN(LIST,'NOTFACT NOT');
PRINTEL(NEXTELEMENT)
END;
CONSTVAR:BEGIN
WRITELN(LIST,'CONSTVAR');
WRITELN(LIST,' ':PRNIVEAU+3,
CVREF:5,
CVDEKS:5,' ':5,
FELTYPE(ORD(CVTYPE)))
END
OTHERWISE WRITELN('HOV ',ORD(FACTTYPE))
END
END
END
OTHERWISE PRINT1;
IF ELEMENTTYPE<>KSLOP THEN
BEGIN
WRITELN(LIST,' ':PRNIVEAU+3,'NEXTELEMENT');
PRNIVEAU:=PRNIVEAU-1;
IF NEXTELEMENT<>NIL THEN
PRINTEL(NEXTELEMENT)
ELSE WRITELN(LIST,' ':PRNIVEAU+4,'NIL');
PRNIVEAU:=PRNIVEAU+1
END;
PRNIVEAU:=PRNIVEAU-1
END
ELSE WRITELN(LIST,' ':PRNIVEAU+3,'NIL')
END;
(*$P*)
BEGIN (*OPLYS*)
PRNIVEAU:=0;
PRINTEL(LISTEHOVED)
END;
(*$X-*)
(*$P*)
(*$ILISTEIOP*)
PROCEDURE ADDPOS(VAR P1,P2,P3:POSITION);
BEGIN
P3.X:=P1.X+P2.X;
P3.Y:=P1.Y+P2.Y
END;
PROCEDURE UDSIDE;
VAR I:INTEGER;
BEGIN
LINE:='';CH:=' ';
FOR I:=1 TO SIDEBRED DO LINE:=CONCAT(LINE,CH);
FOR I:=1 TO LISTEHOVED^.LINESPP DO
BEGIN
SEEK(SIDE,I);
GET(SIDE);
WRITELN(LIST,SIDE^);
SIDE^:=LINE;
SEEK(SIDE,I);
PUT(SIDE)
END
END;
(*$P*)
PROCEDURE SÆTNØGL(VAR FILREF:INTEGER;VAR NØGL:ELEMENT);
BEGIN
WITH NØGL^ DO
BEGIN
CASE NØGLETYPE OF
HELTAL:POST(FILREF).A(PINDEKS):=POST(NØGLEREF).A(GINDEKS);
DOBBTAL:BEGIN
POST(FILREF).A(PINDEKS):=POST(NØGLEREF).A(GINDEKS);
POST(FILREF).A(PINDEKS+1):=POST(NØGLEREF).A(GINDEKS+1)
END;
REEL:POST(FILREF).AAA(PINDEKS):=POST(NØGLEREF).AAA(GINDEKS)
END;
SÆTNØGL(FILREF,NEXTELEMENT)
END
END;
(*$P*)
PROCEDURE UDFØR(VAR EL:ELEMENT;VAR PICPOS:POSITION);
VAR AKTPOS:POSITION;
RESULT:REAL;
FAILURE:BOOLEAN;
BEGIN
IF EL<>NIL THEN
WITH EL^ DO
BEGIN
WRITELN(ORD(ELEMENTTYPE):5,PICPOS.X:5,PICPOS.Y:5,MEMAVAIL:8);
CASE ELEMENTTYPE OF
PICTURE:BEGIN
ADDPOS(PICPOS,PICTPOS,AKTPOS);
UDFØR(FØRSTFELT,AKTPOS)
END;
BEREGN :IF GEMREF>=0 THEN
CASE UDTRYKTYPE OF
HELTAL :POST(GEMREF).A(GEMINDEKS):=TRUNC(VÆRDI(UDTRYK));
DOBBTAL:BEGIN
RESULT:=VÆRDI(UDTRYK);
IF ABS(RESULT)>327679999.0 THEN RESULT:=0.0;
POST(GEMREF).A(GEMINDEKS):=TRUNC(RESULT/10000.0);
POST(GEMREF).A(GEMINDEKS+1):=
TRUNC(RESULT-10000.0*POST(GEMREF).A(GEMINDEKS))
END;
REEL :POST(GEMREF).AAA(GEMINDEKS):=VÆRDI(UDTRYK)
END;
GENTAG: BEGIN
AKTPOS:=PICPOS;
CASE LØKKETYPE OF
REPETE:REPEAT
IF POSINCR.X=-32000 THEN UDSIDE;
UDFØR(FIRSTFELT,AKTPOS);
IF POSINCR.X>-32000 THEN
ADDPOS(AKTPOS,POSINCR,AKTPOS)
UNTIL VÆRDI(BETINGELSE)=1.0;
WAILE :WHILE VÆRDI(BETINGELSE)=1.0 DO
BEGIN
IF POSINCR.X=-32000 THEN UDSIDE;
UDFØR(FIRSTFELT,AKTPOS);
IF POSINCR.X>-32000 THEN
ADDPOS(AKTPOS,POSINCR,AKTPOS);
END
END
END;
INDKOMMANDO:BEGIN
IF FØRSTNØGL<>NIL THEN SÆTNØGL(GETFILREF,FØRSTNØGL);
CASE GETMODE MOD 10 OF
1,2:BEGIN (*GETREC, GETNEXT*)
GETREC(POST(GETFILREF).A);
IF (GETMODE MOD 10=2) AND (IER=-6) THEN
BEGIN
NEXTREC(POST(GETFILREF).A);
IF IER=-1 THEN IER:=0 ELSE
IF IER=0 THEN IER:=-20
END
END;
3:NEXTREC(POST(GETFILREF).A)
END;
POST(GETFILREF).A(-4):=IER;
CASE GETMODE DIV 10 OF
1:FAILURE:=IER<>-6;
2:FAILURE:=(IER<>-6) AND (IER<>0);
3:FAILURE:=IER<>-1;
4:FAILURE:=IER>0;
5:FAILURE:=(IER<>-1) AND (IER<>-2) AND (IER<>-9)
OTHERWISE FAILURE:=IER<>0;
IF FAILURE THEN ERROR(POST(GETFILREF).A)
END;
UDKOMMANDO:BEGIN
END;
FELT :BEGIN
IF EDITERING>0 THEN
LÆSFELT(EL)
ELSE
BEGIN
IF (POSTREF=0) AND (INDEKS<0) THEN
BEGIN
RESULT:=VÆRDI(NEXTELEMENT^.UDTRYK);
CASE FELTTYPE OF
REEL:POST(0).AAA(INDEKS):=RESULT;
HELTAL:IF ABS(RESULT)<=32000.0 THEN
POST(0).A(INDEKS):=TRUNC(RESULT)
ELSE POST(0).A(INDEKS):=0;
DOBBTAL:BEGIN
IF ABS(RESULT)>327679999.0 THEN RESULT:=0.0;
POST(0).A(INDEKS):=TRUNC(RESULT/10000.0);
POST(0).A(INDEKS+1):=TRUNC(RESULT-10000.0*
POST(0).A(INDEKS))
END
END;
END;
ADDPOS(PICPOS,INDPOS,AKTPOS);
SKRIVFELT(EL,AKTPOS)
END
END
END;
WRITELN(MEMAVAIL:8);
UDFØR(EL^.NEXTELEMENT,PICPOS)
END
END;
(*$P*)
PROCEDURE SKRIVLIST;
VAR J:INTEGER;
CH:STRING(1);
STARTPOS:POSITION;
BEGIN
(*SØRGER FOR SELVE UDSKRIVNINGEN*)
STARTPOS.X:=0;
STARTPOS.Y:=0;
UDFØR(LISTEHOVED^.NEXTELEMENT,STARTPOS);
UDSIDE
END;
(*$P*)
PROCEDURE VÆLGLISTE;
VAR LISTER:LISTFILE;
I,LISTENR:INTEGER;
BEGIN
(*VALG AF UDSKRIFT*)
FNAVN:='LISTDEFS:P2:0000:S';
REWRITE(LISTER,FNAVN);IOC;
REPEAT
CLEARSCREEN;
SEEK(LISTER,1);IOC;
LISTENR:=0;
REPEAT
GET(LISTER);IOC;
IF LISTER^.NAVN(1)<>'@' THEN
BEGIN
GOTOXY(LISTENR MOD 2*38+1,LISTENR DIV 2+1);
LISTENR:=LISTENR+1;
WRITELN(LISTENR:3,' ',LISTER^.NAVN)
END
UNTIL LISTER^.NAVN(1)='@';
REPEAT
GOTOXY(1,23);
WRITELN('Listenummer, 0 for færdig');
GOTOXY(27,23);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<=LISTENR);
IF I>0 THEN
BEGIN
SEEK(LISTER,I);IOC;
GET(LISTER);IOC;
AKTULIST:=LISTER^
END
ELSE AKTULIST.NAVN(1):='@'
UNTIL (I=0) OR (AKTULIST.LISTENIVEAU<=USERNIVEAU)
END;
(*$P*)
PROCEDURE INDELEMENT;
VAR FFIL:ELEMENTFIL;
PROCEDURE INDNUL;
VAR FIL0:ZEROFIL;
BEGIN
FNAVN:='ZEROFILE:P2:0000:S';
REWRITE(FIL0,FNAVN);IOC;
SEEK(FIL0,AKTULIST.ZPOSTNR);IOC;
GET(FIL0);IOC;
POST(0):=FIL0^;
CLOSE(FIL0)
END;
FUNCTION NÆSTE:ELEMENT;
VAR I:INTEGER;
THIS:ELEMENT;
BEGIN
GET(FFIL);IOC;
CASE FFIL^.ELEMENTTYPE OF
LISTEDESC:BEGIN
NEW(THIS,LISTEDESC);
THIS^:=FFIL^;
(*
THIS^.ELEMENTTYPE:=LISTEDESC;
FOR I:=1 TO 8 DO THIS^.FILES(I):=FFIL^.FILES(I);
IF FFIL^.NEXTELEMENT<>NIL THEN
THIS^.NEXTELEMENT:=NÆSTE
ELSE
THIS^.NEXTELEMENT:=NIL
*)
END;
PICTURE: BEGIN
NEW(THIS,PICTURE);
THIS^:=FFIL^;
(*
THIS^.ELEMENTTYPE:=PICTURE;
THIS^.PICTPOS:=FFIL^.PICTPOS;
THIS^.NEXTELEMENT:=FFIL^.NEXTELEMENT;
*)
IF THIS^.FØRSTFELT<>NIL THEN
THIS^.FØRSTFELT:=NÆSTE
END;
INDKOMMANDO:BEGIN
NEW(THIS,INDKOMMANDO);
THIS^:=FFIL^;
IF THIS^.FØRSTNØGL<>NIL THEN THIS^.FØRSTNØGL:=NÆSTE;
END;
UDKOMMANDO:BEGIN
NEW(THIS,UDKOMMANDO);
THIS^:=FFIL^
END;
NØGLE:BEGIN
NEW(THIS,NØGLE);
THIS^:=FFIL^
END;
GENTAG:BEGIN
NEW(THIS,GENTAG);
THIS^:=FFIL^;
IF THIS^.FIRSTFELT<>NIL THEN THIS^.FIRSTFELT:=NÆSTE;
IF THIS^.BETINGELSE<>NIL THEN THIS^.BETINGELSE:=NÆSTE
END;
BEREGN:BEGIN
NEW(THIS,BEREGN);
THIS^:=FFIL^;
IF THIS^.UDTRYK<>NIL THEN THIS^.UDTRYK:=NÆSTE
END;
VALIDITET:BEGIN
CASE FFIL^.VALIDITYTYPE OF
HINTERVAL:NEW(THIS,VALIDITET,HINTERVAL);
DINTERVAL:NEW(THIS,VALIDITET,DINTERVAL);
RINTERVAL:NEW(THIS,VALIDITET,RINTERVAL);
DATO,CPR :NEW(THIS,VALIDITET,DATO)
END;
THIS^:=FFIL^
END;
FELT:BEGIN
CASE FFIL^.FELTTYPE OF
REEL:NEW(THIS,FELT,REEL);
HELTAL,DOBBTAL,TEKST:NEW(THIS,FELT,HELTAL)
END;
THIS^:=FFIL^
END;
KSLOP:BEGIN
CASE FFIL^.POLISH OF
EXPRESSION:NEW(THIS,KSLOP,EXPRESSION);
SIMPLEX :NEW(THIS,KSLOP,SIMPLEX);
TERM :NEW(THIS,KSLOP,TERM);
FACTOR :CASE FFIL^.FACTTYPE OF
CONSTVAR:NEW(THIS,KSLOP,FACTOR,CONSTVAR);
LPEXPRP,NOTFACT:NEW(THIS,KSLOP,FACTOR,LPEXPRP)
END
END;
THIS^:=FFIL^;
IF THIS^.SECOND<>NIL THEN THIS^.SECOND:=NÆSTE
END
END;
IF THIS^.NEXTELEMENT<>NIL THEN THIS^.NEXTELEMENT:=NÆSTE;
NÆSTE:=THIS
END;
BEGIN
INDNUL;
REWRITE(FFIL,AKTULIST.DESCLIST);IOC;
LISTEHOVED:=NÆSTE;
CLOSE(FFIL)
(*INDLÆS NEXTELEMENT, SÆT REFERENCE*)
END;
(*$P*)
PROCEDURE PATENTLUK;
BEGIN
INDELEMENT; (*ÅBNER ELEMENTBESKR., INDLÆSER LISTER, LUKKER FILEN*)
(*ÅBNING OG LUKNING AF DATAFILER*)
NROFFILES:=1;
WHILE (NROFFILES<=MAXZONES) AND (LISTEHOVED^.FILES(NROFFILES)>0) DO
BEGIN
POST(NROFFILES).A(-3):=LISTEHOVED^.FILES(NROFFILES);
MODE:=2;
IOPEN(POST(NROFFILES).A);
IF IER<>0 THEN OFEJL(POST(NROFFILES).A);
NROFFILES:=NROFFILES+1
END;
FNAVN:='SIDEFIL:P2:0040:K';
REWRITE(SIDE,FNAVN);IOC;
LINE:='';CH:=' ';
FOR I:=1 TO SIDEBRED DO LINE:=CONCAT(LINE,CH);
FOR I:=1 TO LISTEHOVED^.LINESPP DO
BEGIN
SEEK(SIDE,I);IOC;
SIDE^:=LINE;
PUT(SIDE);IOC
END;
INITTEXT;
(*$XT*) OPLYS;PAGE(LIST); (*$X-*)
IF LISTEHOVED^.FILES(NROFFILES)>0 THEN
BEGIN
WRITELN('FOR MANGE ISF-FILER, RETURN');READLN
END
ELSE
SKRIVLIST;
CLOSE(SIDE);
REPEAT
NROFFILES:=NROFFILES-1;
ICLOSE(POST(NROFFILES).A);
IF IER<>0 THEN BAD(6,IER)
UNTIL NROFFILES=1
END;
(*$P*)
BEGIN
REPEAT
VÆLGLISTE;
IF AKTULIST.NAVN(1)<>'@' THEN
BEGIN
MARK(QUQ);
PATENTLUK; (*OPNÅR LUKNING AF FILER VED PROCEDUREUDGANG*)
RELEASE(QUQ)
END
UNTIL AKTULIST.NAVN(1)='@'
END;
(*$P*)
BEGIN
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END;
(*$XT*) WRITELN(MEMAVAIL);READLN; (*$X-*)
(*$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);
INITLIST;
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…0012 Line {l1=0x10, l2=»PROGRAM CPLISTE;«, l3=0x10}
0x0012…0023 Line {l1=0x0f, l2=»CONST LNGTH=20;«, l3=0x0f}
0x0023…003b Line {l1=0x16, l2=» MAXRECSIZE=1000;«, l3=0x16}
0x003b…004f Line {l1=0x12, l2=» PROGRAMNR=2;«, l3=0x12}
0x004f…0055 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0055…007e Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x007e…00aa Line {l1=0x2a, l2=»DIRECTBUF=PACKED ARRAY (1..LNGTH) OF CHAR;«, l3=0x2a}
0x00aa…00f5 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x00f5…010d Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x010d…0158 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0158…016c Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x016c…0182 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0182…0196 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x0196…01df Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01df…022f Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x022f…0279 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0279…028a Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x028a…02ac Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02ac…02cb Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02cb…02da Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x02da…02f9 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x02f9…0312 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0312…032d Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x032d…0343 Line {l1=0x14, l2=» F:STRING(11);«, l3=0x14}
0x0343…035b Line {l1=0x16, l2=» DBUF:DIRECTBUF;«, l3=0x16}
0x035b…0384 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0384…039d Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x039d…03c8 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x03c8…03de Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03de…03f8 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x03f8…0409 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0409…041c Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x041c…0435 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0435…044d Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x044d…048a Line {l1=0x3b, l2=» FELTYPE:ARRAY (0..3) OF PACKED ARRAY (1..7) OF CHAR;«, l3=0x3b}
0x048a…04c7 Line {l1=0x3b, l2=» ELTYPE:ARRAY (0..9) OF PACKED ARRAY (1..11) OF CHAR;«, l3=0x3b}
0x04c7…0504 Line {l1=0x3b, l2=» GENTYPE:ARRAY (0..1) OF PACKED ARRAY (1..6) OF CHAR;«, l3=0x3b}
0x0504…051a Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x051a…0522 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0522…0548 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0548…054f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x054f…0560 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x0560…0582 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x0582…058c Line {l1=0x08, l2=» READLN«, l3=0x08}
0x058c…0592 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0592…059a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x059a…05d1 Line {l1=0x35, l2=»PROCEDURE SETUP(VAR BUFFER:DIRECTBUF;LENGTH:INTEGER);«, l3=0x35}
0x05d1…05dc Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x05dc…05f5 Line {l1=0x17, l2=»FUNCTION AVAIL:BOOLEAN;«, l3=0x17}
0x05f5…0600 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0600…0615 Line {l1=0x13, l2=»FUNCTION NEXT:CHAR;«, l3=0x13}
0x0615…0620 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0620…0632 Line {l1=0x10, l2=»PROCEDURE FINIS;«, l3=0x10}
0x0632…063d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x063d…0674 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x0674…069b Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x069b…06a6 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06a6…06de Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x06de…06e9 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06e9…071d Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x071d…0752 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x0752…075d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x075d…0794 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0794…07bb Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x07bb…07c6 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07c6…07fe Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x07fe…0825 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0825…0830 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0830…0865 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x0865…0870 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0870…0878 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0878…0885 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0885…088d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x088d…089d Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x089d…08a5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x08a5…08ba Line {l1=0x13, l2=»PROCEDURE INITLIST;«, l3=0x13}
0x08ba…08ce Line {l1=0x12, l2=»CONST MAXPOST=150;«, l3=0x12}
0x08ce…08e1 Line {l1=0x11, l2=» MAXZONES=2;«, l3=0x11}
0x08e1…08f5 Line {l1=0x12, l2=» SIDEBRED=80;«, l3=0x12}
0x08f5…08fb Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x08fb…0919 Line {l1=0x1c, l2=»ELEMENT=^ELEMENTBESKRIVELSE;«, l3=0x1c}
0x0919…092a Line {l1=0x0f, l2=»POSITION=RECORD«, l3=0x0f}
0x092a…093a Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x093a…0940 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0940…0964 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0964…0995 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0995…09e4 Line {l1=0x4d, l2=»ETYPE=(LISTEDESC,PICTURE,FELT,INDKOMMANDO,UDKOMMANDO,VALIDITET,GENTAG,BEREGN,«, l3=0x4d}
0x09e4…09fa Line {l1=0x14, l2=» NØGLE,KSLOP);«, l3=0x14}
0x09fa…0a13 Line {l1=0x17, l2=»REPTYPE=(REPETE,WAILE);«, l3=0x17}
0x0a13…0a38 Line {l1=0x23, l2=»FACTTYP=(CONSTVAR,LPEXPRP,NOTFACT);«, l3=0x23}
0x0a38…0a7c Line {l1=0x42, l2=»SYMBOLTYPE=(PERIOD,EQL,LSS,GTR,NEQ,LEQ,GEQ,LPAREN,RPAREN,OTHERSYM,«, l3=0x42}
0x0a7c…0ac3 Line {l1=0x45, l2=» PLUS,MINUS,OROP,CONSTSYM,POSTSYM,IDENTSYM,NOTOP,TEKSTSYM,«, l3=0x45}
0x0ac3…0af8 Line {l1=0x33, l2=» TIMES,SLASH,DIVOP,MODOP,ANDOP,SLUTSYM);«, l3=0x33}
0x0af8…0b25 Line {l1=0x2b, l2=»KSLOPTYPE=(EXPRESSION,SIMPLEX,TERM,FACTOR);«, l3=0x2b}
0x0b25…0b40 Line {l1=0x19, l2=»ELEMENTBESKRIVELSE=RECORD«, l3=0x19}
0x0b40…0b5e Line {l1=0x1c, l2=» NEXTELEMENT :ELEMENT;«, l3=0x1c}
0x0b5e…0b7c Line {l1=0x1c, l2=» CASE ELEMENTTYPE:ETYPE OF«, l3=0x1c}
0x0b7c…0b8b Line {l1=0x0d, l2=» LISTEDESC:«, l3=0x0d}
0x0b8b…0bbb Line {l1=0x2e, l2=» (FILES :ARRAY (.1..8.) OF INTEGER;«, l3=0x2e}
0x0bbb…0bd8 Line {l1=0x1b, l2=» LINESPP :INTEGER«, l3=0x1b}
0x0bd8…0bf9 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0bf9…0c06 Line {l1=0x0b, l2=» PICTURE:«, l3=0x0b}
0x0c06…0c25 Line {l1=0x1d, l2=» (PICTPOS :POSITION;«, l3=0x1d}
0x0c25…0c43 Line {l1=0x1c, l2=» FØRSTFELT :ELEMENT;«, l3=0x1c}
0x0c43…0c62 Line {l1=0x1d, l2=» PICTNAVN :STRING(8)«, l3=0x1d}
0x0c62…0c83 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0c83…0c94 Line {l1=0x0f, l2=» INDKOMMANDO:«, l3=0x0f}
0x0c94…0ca6 Line {l1=0x10, l2=» (GETFILREF,«, l3=0x10}
0x0ca6…0cc4 Line {l1=0x1c, l2=» GETMODE :INTEGER;«, l3=0x1c}
0x0cc4…0ce1 Line {l1=0x1b, l2=» FØRSTNØGL :ELEMENT«, l3=0x1b}
0x0ce1…0d02 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0d02…0d12 Line {l1=0x0e, l2=» UDKOMMANDO:«, l3=0x0e}
0x0d12…0d24 Line {l1=0x10, l2=» (PUTFILREF,«, l3=0x10}
0x0d24…0d41 Line {l1=0x1b, l2=» PUTMODE :INTEGER«, l3=0x1b}
0x0d41…0d62 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0d62…0d6d Line {l1=0x09, l2=» NØGLE:«, l3=0x09}
0x0d6d…0d89 Line {l1=0x1a, l2=» (NØGLETYPE :FTYPE;«, l3=0x1a}
0x0d89…0d9a Line {l1=0x0f, l2=» NØGLEREF,«, l3=0x0f}
0x0d9a…0daa Line {l1=0x0e, l2=» PINDEKS,«, l3=0x0e}
0x0daa…0dc7 Line {l1=0x1b, l2=» GINDEKS :INTEGER«, l3=0x1b}
0x0dc7…0de8 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0de8…0df4 Line {l1=0x0a, l2=» GENTAG:«, l3=0x0a}
0x0df4…0e12 Line {l1=0x1c, l2=» (LØKKETYPE :REPTYPE;«, l3=0x1c}
0x0e12…0e24 Line {l1=0x10, l2=» FIRSTFELT,«, l3=0x10}
0x0e24…0e42 Line {l1=0x1c, l2=» BETINGELSE :ELEMENT;«, l3=0x1c}
0x0e42…0e60 Line {l1=0x1c, l2=» POSINCR :POSITION«, l3=0x1c}
0x0e60…0e81 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0e81…0e8d Line {l1=0x0a, l2=» BEREGN:«, l3=0x0a}
0x0e8d…0eab Line {l1=0x1c, l2=» (UDTRYK :ELEMENT;«, l3=0x1c}
0x0eab…0ef5 Line {l1=0x48, l2=» GEMREF, (*<0 => UDSKRIFT JVNF. FOREGÅENDE UDFELT*)«, l3=0x48}
0x0ef5…0f13 Line {l1=0x1c, l2=» GEMINDEKS :INTEGER;«, l3=0x1c}
0x0f13…0f2e Line {l1=0x19, l2=» UDTRYKTYPE :FTYPE«, l3=0x19}
0x0f2e…0f4f Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0f4f…0f5e Line {l1=0x0d, l2=» VALIDITET:«, l3=0x0d}
0x0f5e…0f80 Line {l1=0x20, l2=» (CASE VALIDITYTYPE:VTYPE OF«, l3=0x20}
0x0f80…0fa6 Line {l1=0x24, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x24}
0x0fa6…0fd8 Line {l1=0x30, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x30}
0x0fd8…0ffd Line {l1=0x23, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x23}
0x0ffd…1012 Line {l1=0x13, l2=» DATO,CPR:()«, l3=0x13}
0x1012…1033 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x1033…103d Line {l1=0x08, l2=» FELT:«, l3=0x08}
0x103d…105c Line {l1=0x1d, l2=» (INDPOS :POSITION;«, l3=0x1d}
0x105c…108d Line {l1=0x2f, l2=» EDITERING, (*<0 => UDFELT*)«, l3=0x2f}
0x108d…10d6 Line {l1=0x47, l2=» POSTREF, (*VÆRDI FÅS FRA NEXTELEMENT, BEREGNING*)«, l3=0x47}
0x10d6…1114 Line {l1=0x3c, l2=» INDEKS, (*NÅR POSTREF=0 OG INDEKS<0*)«, l3=0x3c}
0x1114…1123 Line {l1=0x0d, l2=» LÆNGDE,«, l3=0x0d}
0x1123…1141 Line {l1=0x1c, l2=» FORAN0 :INTEGER;«, l3=0x1c}
0x1141…115f Line {l1=0x1c, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x1c}
0x115f…117c Line {l1=0x1b, l2=» REEL:(DEC:INTEGER);«, l3=0x1b}
0x117c…119d Line {l1=0x1f, l2=» HELTAL,DOBBTAL,TEKST:()«, l3=0x1f}
0x119d…11be Line {l1=0x1f, l2=» );«, l3=0x1f}
0x11be…11c9 Line {l1=0x09, l2=» KSLOP:«, l3=0x09}
0x11c9…11e7 Line {l1=0x1c, l2=» (SECOND :ELEMENT;«, l3=0x1c}
0x11e7…1206 Line {l1=0x1d, l2=» CASE POLISH:KSLOPTYPE OF«, l3=0x1d}
0x1206…122b Line {l1=0x23, l2=» EXPRESSION:(EXPOP:SYMBOLTYPE);«, l3=0x23}
0x122b…1258 Line {l1=0x2b, l2=» SIMPLEX :(SIMOP1,SIMOP2:SYMBOLTYPE);«, l3=0x2b}
0x1258…127d Line {l1=0x23, l2=» TERM :(TRMOP:SYMBOLTYPE);«, l3=0x23}
0x127d…12a8 Line {l1=0x29, l2=» FACTOR :(CASE FACTTYPE:FACTTYP OF«, l3=0x29}
0x12a8…12da Line {l1=0x30, l2=» CONSTVAR:(CVREF,CVDEKS:INTEGER;«, l3=0x30}
0x12da…130b Line {l1=0x2f, l2=» CVTYPE :FTYPE);«, l3=0x2f}
0x130b…1331 Line {l1=0x24, l2=» LPEXPRP,NOTFACT:())«, l3=0x24}
0x1331…135a Line {l1=0x27, l2=» );«, l3=0x27}
0x135a…1360 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1360…1388 Line {l1=0x26, l2=»ELEMENTFIL=FILE OF ELEMENTBESKRIVELSE;«, l3=0x26}
0x1388…13af Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x13af…13ca Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x13ca…13d8 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x13d8…13e8 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x13e8…13f5 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x13f5…1405 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x1405…1434 Line {l1=0x2d, l2=» CONTENTS: ARRAY (1..MAXPOST) OF INTEGER«, l3=0x2d}
0x1434…143a Line {l1=0x04, l2=»END;«, l3=0x04}
0x143a…144b Line {l1=0x0f, l2=»LISTTYPE=RECORD«, l3=0x0f}
0x144b…147e Line {l1=0x31, l2=» NAVN:STRING(30); (*LISTENS BETEGNELSE*)«, l3=0x31}
0x147e…14bc Line {l1=0x3c, l2=» DESCLIST:STRING(18); (*NAVN PÅ LISTEDEFINITIONSFILEN*)«, l3=0x3c}
0x14bc…14f7 Line {l1=0x39, l2=» LISTENIVEAU:NIVEAU; (*ADGANGSNIVEAUET TIL LISTEN*)«, l3=0x39}
0x14f7…1523 Line {l1=0x2a, l2=» BLANKTYP, (*BLANKETTYPE*)«, l3=0x2a}
0x1523…1556 Line {l1=0x31, l2=» ZPOSTNR:INTEGER (*KONSTANTPOSTENS NR*)«, l3=0x31}
0x1556…155c Line {l1=0x04, l2=»END;«, l3=0x04}
0x155c…15a4 Line {l1=0x46, l2=»LISTFILE=FILE OF LISTTYPE; (*FORTEGNELSE OVER ALLE DEFINEREDE LISTER*)«, l3=0x46}
0x15a4…15bc Line {l1=0x16, l2=»ZEROFIL=FILE OF PPOST;«, l3=0x16}
0x15bc…15cc Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x15cc…15fa Line {l1=0x2c, l2=» FILNAVN:STRING(18); (*ISF-FILENS NAVN*)«, l3=0x2c}
0x15fa…1647 Line {l1=0x4b, l2=» DESCNAVN:STRING(18); (*NAVNET PÅ DEN ENKELTE ISF-FILS BESKRIVELSESFIL*)«, l3=0x4b}
0x1647…1694 Line {l1=0x4b, l2=» POSTNAVN: STRING(18); (*NAVNET PÅ ET INDIVID I FILEN*)«, l3=0x4b}
0x1694…16c2 Line {l1=0x2c, l2=» REGNAVN:STRING(18); (*FILENS BETEGNELSE*)«, l3=0x2c}
0x16c2…170f Line {l1=0x4b, l2=» VEDLNIVEAU:NIVEAU;(*ADGANGSNIVEAU FOR GENERELT VEDLIGEHOLDELSESPROGRAM*)«, l3=0x4b}
0x170f…1724 Line {l1=0x13, l2=» ZONESIZE:INTEGER«, l3=0x13}
0x1724…172a Line {l1=0x04, l2=»END;«, l3=0x04}
0x172a…1768 Line {l1=0x3c, l2=»FILEDESC=FILE OF FILDESC;(*FORTEGNELSE OVER ALLE ISF-FILER*)«, l3=0x3c}
0x1768…178b Line {l1=0x21, l2=»SIDEFIL=FILE OF STRING(SIDEBRED);«, l3=0x21}
0x178b…17b2 Line {l1=0x25, l2=»VAR LISTEHOVED,LISTEELEMENT: ELEMENT;«, l3=0x25}
0x17b2…17db Line {l1=0x27, l2=» NROFFILES,LINES,OPTION,I,J:INTEGER;«, l3=0x27}
0x17db…17ee Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x17ee…1800 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1800…1828 Line {l1=0x26, l2=» POST:ARRAY (0..MAXZONES) OF PPOST;«, l3=0x26}
0x1828…1840 Line {l1=0x16, l2=» AKTULIST:LISTTYPE;«, l3=0x16}
0x1840…1858 Line {l1=0x16, l2=» ISFFILES:FILEDESC;«, l3=0x16}
0x1858…186b Line {l1=0x11, l2=» SIDE:SIDEFIL;«, l3=0x11}
0x186b…1873 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1873…1891 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x1891…18a4 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x18a4…18ab Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x18ab…18fb Line {l1=0x4e, l2=» IF LINES>0 THEN PAGE(LIST); (*$R-*)«, l3=0x4e}
0x18fb…194b Line {l1=0x4e, l2=» WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4e}
0x194b…1994 Line {l1=0x47, l2=» CH:=' ';EDIT(CH);(*IF CH='R' THEN REPORT(ZONE.H,REGISTER,1);*) «, l3=0x47}
0x1994…199e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x199e…19bb Line {l1=0x1b, l2=» NROFFILES:=NROFFILES-1;«, l3=0x1b}
0x19bb…19da Line {l1=0x1d, l2=» ICLOSE(POST(NROFFILES).A)«, l3=0x1d}
0x19da…19f0 Line {l1=0x14, l2=» UNTIL NROFFILES=1;«, l3=0x14}
0x19f0…1a02 Line {l1=0x10, l2=» EXIT(INITLIST)«, l3=0x10}
0x1a02…1a08 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a08…1a26 Line {l1=0x1c, l2=»PROCEDURE OFEJL(VAR REC:AR);«, l3=0x1c}
0x1a26…1a36 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1a36…1a3d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a3d…1a8d Line {l1=0x4e, l2=» GOTOXY(1,20); (*$R-*)«, l3=0x4e}
0x1a8d…1ad6 Line {l1=0x47, l2=» WRITELN('REGISTERFEJL ',IER,' I ',REC(-3), «, l3=0x47}
0x1ad6…1b26 Line {l1=0x4e, l2=» ' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)«, l3=0x4e}
0x1b26…1b6f Line {l1=0x47, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES'); «, l3=0x47}
0x1b6f…1ba8 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1ba8…1bc4 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(REC);«, l3=0x1a}
0x1bc4…1bd3 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1bd3…1bd9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bd9…1be1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1be1…1bf6 Line {l1=0x13, l2=»PROCEDURE INITTEXT;«, l3=0x13}
0x1bf6…1bfd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1bfd…1c17 Line {l1=0x18, l2=» FELTYPE(0):='HELTAL ';«, l3=0x18}
0x1c17…1c31 Line {l1=0x18, l2=» FELTYPE(1):='DOBBTAL';«, l3=0x18}
0x1c31…1c4b Line {l1=0x18, l2=» FELTYPE(2):='REEL ';«, l3=0x18}
0x1c4b…1c65 Line {l1=0x18, l2=» FELTYPE(3):='TEKST ';«, l3=0x18}
0x1c65…1c82 Line {l1=0x1b, l2=» ELTYPE(0):='LISTEDESC ';«, l3=0x1b}
0x1c82…1c9f Line {l1=0x1b, l2=» ELTYPE(1):='PICTURE ';«, l3=0x1b}
0x1c9f…1cbc Line {l1=0x1b, l2=» ELTYPE(2):='FELT ';«, l3=0x1b}
0x1cbc…1cd9 Line {l1=0x1b, l2=» ELTYPE(3):='INDKOMMANDO';«, l3=0x1b}
0x1cd9…1cf6 Line {l1=0x1b, l2=» ELTYPE(4):='UDKOMMANDO ';«, l3=0x1b}
0x1cf6…1d13 Line {l1=0x1b, l2=» ELTYPE(5):='VALIDITET ';«, l3=0x1b}
0x1d13…1d30 Line {l1=0x1b, l2=» ELTYPE(6):='GENTAG ';«, l3=0x1b}
0x1d30…1d4d Line {l1=0x1b, l2=» ELTYPE(7):='BEREGN ';«, l3=0x1b}
0x1d4d…1d6a Line {l1=0x1b, l2=» ELTYPE(8):='NØGLE ';«, l3=0x1b}
0x1d6a…1d87 Line {l1=0x1b, l2=» ELTYPE(9):='KSLOP ';«, l3=0x1b}
0x1d87…1da0 Line {l1=0x17, l2=» GENTYPE(0):='REPEAT';«, l3=0x17}
0x1da0…1db9 Line {l1=0x17, l2=» GENTYPE(1):='WHILE ';«, l3=0x17}
0x1db9…1dbf Line {l1=0x04, l2=»END;«, l3=0x04}
0x1dbf…1dc7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1dc7…1dd0 Line {l1=0x07, l2=»(*$XT*)«, l3=0x07}
0x1dd0…1de2 Line {l1=0x10, l2=»PROCEDURE OPLYS;«, l3=0x10}
0x1de2…1e04 Line {l1=0x20, l2=»VAR I,J,OPTION,PRNIVEAU:INTEGER;«, l3=0x20}
0x1e04…1e17 Line {l1=0x11, l2=» NÅET:BOOLEAN;«, l3=0x11}
0x1e17…1e1a Line {l1=0x01, l2=» «, l3=0x01}
0x1e1a…1e3e Line {l1=0x22, l2=»PROCEDURE PRINTEL(VAR EL:ELEMENT);«, l3=0x22}
0x1e3e…1e4e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1e4e…1e61 Line {l1=0x11, l2=»PROCEDURE PRINT1;«, l3=0x11}
0x1e61…1e68 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1e68…1e77 Line {l1=0x0d, l2=» WITH EL^ DO«, l3=0x0d}
0x1e77…1e8e Line {l1=0x15, l2=» CASE ELEMENTTYPE OF«, l3=0x15}
0x1e8e…1ea1 Line {l1=0x11, l2=» LISTEDESC:BEGIN«, l3=0x11}
0x1ea1…1ec5 Line {l1=0x22, l2=» WRITE(LIST,'FILES');«, l3=0x22}
0x1ec5…1efd Line {l1=0x36, l2=» FOR I:=1 TO 8 DO WRITE(LIST,FILES(I):3);«, l3=0x36}
0x1efd…1f1b Line {l1=0x1c, l2=» WRITELN(LIST);«, l3=0x1c}
0x1f1b…1f5b Line {l1=0x3e, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'LINESPP',LINESPP:4)«, l3=0x3e}
0x1f5b…1f6d Line {l1=0x10, l2=» END;«, l3=0x10}
0x1f6d…1f80 Line {l1=0x11, l2=» PICTURE: BEGIN«, l3=0x11}
0x1f80…1fba Line {l1=0x38, l2=» WRITELN(LIST,'NAVN ',PICTNAVN,' POSITION',«, l3=0x38}
0x1fba…1ff0 Line {l1=0x34, l2=» PICTPOS.X:3,PICTPOS.Y:3);«, l3=0x34}
0x1ff0…2029 Line {l1=0x37, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'FØRSTFELT');«, l3=0x37}
0x2029…204c Line {l1=0x21, l2=» PRINTEL(FØRSTFELT);«, l3=0x21}
0x204c…205e Line {l1=0x10, l2=» END;«, l3=0x10}
0x205e…206e Line {l1=0x0e, l2=» INDKOMMANDO:«, l3=0x0e}
0x206e…2081 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2081…20b6 Line {l1=0x33, l2=» WRITELN(LIST,'GETFILREF',GETFILREF:3,«, l3=0x33}
0x20b6…20e9 Line {l1=0x31, l2=» ' GETMODE',GETMODE:3);«, l3=0x31}
0x20e9…2122 Line {l1=0x37, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'FØRSTNØGL');«, l3=0x37}
0x2122…2144 Line {l1=0x20, l2=» PRINTEL(FØRSTNØGL)«, l3=0x20}
0x2144…2156 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2156…218a Line {l1=0x32, l2=» UDKOMMANDO:WRITELN(LIST,'PUTFILREF',PUTFILREF:3,«, l3=0x32}
0x218a…21bc Line {l1=0x30, l2=» ' PUTMODE',PUTMODE:3);«, l3=0x30}
0x21bc…21fc Line {l1=0x3e, l2=» NØGLE: WRITELN(LIST,'NØGLETYPE ',FELTYPE(ORD(NØGLETYPE)),«, l3=0x3e}
0x21fc…222e Line {l1=0x30, l2=» ' NØGLEREF',NØGLEREF:3,«, l3=0x30}
0x222e…225e Line {l1=0x2e, l2=» ' PINDEKS',PINDEKS:3,«, l3=0x2e}
0x225e…228f Line {l1=0x2f, l2=» ' GINDEKS',GINDEKS:3);«, l3=0x2f}
0x228f…22a3 Line {l1=0x12, l2=» GENTAG: BEGIN«, l3=0x12}
0x22a3…22e6 Line {l1=0x41, l2=» WRITELN(LIST,'LØKKETYPE ',GENTYPE(ORD(LØKKETYPE)),«, l3=0x41}
0x22e6…2328 Line {l1=0x40, l2=» ' POSINCR',POSINCR.X:6,POSINCR.Y:6);«, l3=0x40}
0x2328…2363 Line {l1=0x39, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'BETINGELSE');«, l3=0x39}
0x2363…2388 Line {l1=0x23, l2=» PRINTEL(BETINGELSE);«, l3=0x23}
0x2388…23c2 Line {l1=0x38, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'FIRSTFELT');«, l3=0x38}
0x23c2…23e5 Line {l1=0x21, l2=» PRINTEL(FIRSTFELT)«, l3=0x21}
0x23e5…23f8 Line {l1=0x11, l2=» END;«, l3=0x11}
0x23f8…240c Line {l1=0x12, l2=» BEREGN :BEGIN«, l3=0x12}
0x240c…243c Line {l1=0x2e, l2=» WRITELN(LIST,'GEMREF',GEMREF:3,«, l3=0x2e}
0x243c…2473 Line {l1=0x35, l2=» ' GEMINDEKS',GEMINDEKS:4,«, l3=0x35}
0x2473…24ba Line {l1=0x45, l2=» ' UDTRYKTYPE ',FELTYPE(ORD(UDTRYKTYPE)));«, l3=0x45}
0x24ba…24f1 Line {l1=0x35, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'UDTRYK');«, l3=0x35}
0x24f1…2511 Line {l1=0x1e, l2=» PRINTEL(UDTRYK)«, l3=0x1e}
0x2511…2524 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2524…2537 Line {l1=0x11, l2=» VALIDITET:BEGIN«, l3=0x11}
0x2537…255a Line {l1=0x21, l2=» CASE VALIDITYTYPE OF«, l3=0x21}
0x255a…25a1 Line {l1=0x45, l2=» HINTERVAL:WRITELN(LIST,'HINTERVAL MIN MAX',MIN:8,MAX:8);«, l3=0x45}
0x25a1…25db Line {l1=0x38, l2=» DINTERVAL:WRITELN(LIST,'DINTERVAL MIN MAX',«, l3=0x38}
0x25db…2614 Line {l1=0x37, l2=» MIN1*10000.0+MIN2:10:-2,«, l3=0x37}
0x2614…264e Line {l1=0x38, l2=» MAX1*10000.0+MAX2:10:-2);«, l3=0x38}
0x264e…2693 Line {l1=0x43, l2=» RINTERVAL:WRITELN(LIST,'RINTERVAL MIN MAX',RMIN:10:-2,«, l3=0x43}
0x2693…26d9 Line {l1=0x44, l2=» RMAX:10:-2);«, l3=0x44}
0x26d9…2702 Line {l1=0x27, l2=» DATO:WRITELN(LIST,'DATO');«, l3=0x27}
0x2702…2728 Line {l1=0x24, l2=» CPR:WRITELN(LIST,'CPR')«, l3=0x24}
0x2728…273a Line {l1=0x10, l2=» END«, l3=0x10}
0x273a…274c Line {l1=0x10, l2=» END;«, l3=0x10}
0x274c…2753 Line {l1=0x05, l2=» END«, l3=0x05}
0x2753…2759 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2759…2760 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2760…2772 Line {l1=0x10, l2=» IF EL<>NIL THEN«, l3=0x10}
0x2772…2780 Line {l1=0x0c, l2=» WITH EL^ DO«, l3=0x0c}
0x2780…2788 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x2788…27a1 Line {l1=0x17, l2=» PRNIVEAU:=PRNIVEAU+1;«, l3=0x17}
0x27a1…27d9 Line {l1=0x36, l2=» WRITELN(LIST,PRNIVEAU:3,' ':PRNIVEAU,'Elementtype ',«, l3=0x36}
0x27d9…2804 Line {l1=0x29, l2=» ELTYPE(ORD(ELEMENTTYPE)));«, l3=0x29}
0x2804…2823 Line {l1=0x1d, l2=» WRITE(LIST,' ':PRNIVEAU+3);«, l3=0x1d}
0x2823…283a Line {l1=0x15, l2=» CASE ELEMENTTYPE OF«, l3=0x15}
0x283a…284d Line {l1=0x11, l2=» FELT : BEGIN«, l3=0x11}
0x284d…2889 Line {l1=0x3a, l2=» WRITELN(LIST,'INDPOS',INDPOS.X:5,INDPOS.Y:5,«, l3=0x3a}
0x2889…28bf Line {l1=0x34, l2=» ' EDITERING',EDITERING:2,«, l3=0x34}
0x28bf…28f1 Line {l1=0x30, l2=» ' POSTREF',POSTREF:3,«, l3=0x30}
0x28f1…2921 Line {l1=0x2e, l2=» ' INDEKS',INDEKS:4,«, l3=0x2e}
0x2921…2951 Line {l1=0x2e, l2=» ' LÆNGDE',LÆNGDE:3,«, l3=0x2e}
0x2951…2982 Line {l1=0x2f, l2=» ' FORAN0',FORAN0:3);«, l3=0x2f}
0x2982…29b8 Line {l1=0x34, l2=» WRITE(LIST,' ':PRNIVEAU+3,'FELTTYPE ',«, l3=0x34}
0x29b8…29eb Line {l1=0x31, l2=» FELTYPE(ORD(FELTTYPE)));«, l3=0x31}
0x29eb…2a2b Line {l1=0x3e, l2=» IF FELTTYPE=REEL THEN WRITELN(LIST,' DEC',DEC:3)«, l3=0x3e}
0x2a2b…2a4d Line {l1=0x20, l2=» ELSE WRITELN(LIST)«, l3=0x20}
0x2a4d…2a5f Line {l1=0x10, l2=» END;«, l3=0x10}
0x2a5f…2a72 Line {l1=0x11, l2=» KSLOP : BEGIN«, l3=0x11}
0x2a72…2a90 Line {l1=0x1c, l2=» CASE POLISH OF«, l3=0x1c}
0x2a90…2ab0 Line {l1=0x1e, l2=» EXPRESSION:BEGIN«, l3=0x1e}
0x2ab0…2ae8 Line {l1=0x36, l2=» WRITELN(LIST,'EXPRESSION');«, l3=0x36}
0x2ae8…2b1a Line {l1=0x30, l2=» PRINTEL(NEXTELEMENT);«, l3=0x30}
0x2b1a…2b47 Line {l1=0x2b, l2=» PRINTEL(SECOND);«, l3=0x2b}
0x2b47…2b7c Line {l1=0x33, l2=» WRITELN(LIST,ORD(EXPOP))«, l3=0x33}
0x2b7c…2b9b Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x2b9b…2bbb Line {l1=0x1e, l2=» SIMPLEX: BEGIN«, l3=0x1e}
0x2bbb…2bf0 Line {l1=0x33, l2=» WRITELN(LIST,'SIMPLEX');«, l3=0x33}
0x2bf0…2c21 Line {l1=0x2f, l2=» IF SIMOP1<>OROP THEN«, l3=0x2f}
0x2c21…2c5a Line {l1=0x37, l2=» WRITELN(LIST,ORD(SIMOP1));«, l3=0x37}
0x2c5a…2c8c Line {l1=0x30, l2=» PRINTEL(NEXTELEMENT);«, l3=0x30}
0x2c8c…2cbd Line {l1=0x2f, l2=» IF SIMOP2<>OROP THEN«, l3=0x2f}
0x2cbd…2cdf Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x2cdf…2d0e Line {l1=0x2d, l2=» PRINTEL(SECOND);«, l3=0x2d}
0x2d0e…2d46 Line {l1=0x36, l2=» WRITELN(LIST,ORD(SIMOP2))«, l3=0x36}
0x2d46…2d66 Line {l1=0x1e, l2=» END«, l3=0x1e}
0x2d66…2d85 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x2d85…2da5 Line {l1=0x1e, l2=» TERM: BEGIN«, l3=0x1e}
0x2da5…2dd7 Line {l1=0x30, l2=» WRITELN(LIST,'TERM');«, l3=0x30}
0x2dd7…2e09 Line {l1=0x30, l2=» PRINTEL(NEXTELEMENT);«, l3=0x30}
0x2e09…2e36 Line {l1=0x2b, l2=» PRINTEL(SECOND);«, l3=0x2b}
0x2e36…2e6b Line {l1=0x33, l2=» WRITELN(LIST,ORD(TRMOP))«, l3=0x33}
0x2e6b…2e8a Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x2e8a…2eaa Line {l1=0x1e, l2=» FACTOR: BEGIN«, l3=0x1e}
0x2eaa…2edd Line {l1=0x31, l2=» WRITE(LIST,'FACTOR ');«, l3=0x31}
0x2edd…2f0a Line {l1=0x2b, l2=» CASE FACTTYPE OF«, l3=0x2b}
0x2f0a…2f34 Line {l1=0x28, l2=» LPEXPRP:BEGIN«, l3=0x28}
0x2f34…2f75 Line {l1=0x3f, l2=» WRITELN(LIST,'LPEXPRP (');«, l3=0x3f}
0x2f75…2fb1 Line {l1=0x3a, l2=» PRINTEL(NEXTELEMENT);«, l3=0x3a}
0x2fb1…2fe9 Line {l1=0x36, l2=» WRITELN(LIST,')')«, l3=0x36}
0x2fe9…3012 Line {l1=0x27, l2=» END;«, l3=0x27}
0x3012…303c Line {l1=0x28, l2=» NOTFACT:BEGIN«, l3=0x28}
0x303c…307f Line {l1=0x41, l2=» WRITELN(LIST,'NOTFACT NOT');«, l3=0x41}
0x307f…30ba Line {l1=0x39, l2=» PRINTEL(NEXTELEMENT)«, l3=0x39}
0x30ba…30e3 Line {l1=0x27, l2=» END;«, l3=0x27}
0x30e3…310d Line {l1=0x28, l2=» CONSTVAR:BEGIN«, l3=0x28}
0x310d…314d Line {l1=0x3e, l2=» WRITELN(LIST,'CONSTVAR');«, l3=0x3e}
0x314d…3190 Line {l1=0x41, l2=» WRITELN(LIST,' ':PRNIVEAU+3,«, l3=0x41}
0x3190…31c7 Line {l1=0x35, l2=» CVREF:5,«, l3=0x35}
0x31c7…3205 Line {l1=0x3c, l2=» CVDEKS:5,' ':5,«, l3=0x3c}
0x3205…3249 Line {l1=0x42, l2=» FELTYPE(ORD(CVTYPE)))«, l3=0x42}
0x3249…3271 Line {l1=0x26, l2=» END«, l3=0x26}
0x3271…32b5 Line {l1=0x42, l2=» OTHERWISE WRITELN('HOV ',ORD(FACTTYPE))«, l3=0x42}
0x32b5…32d3 Line {l1=0x1c, l2=» END«, l3=0x1c}
0x32d3…32e6 Line {l1=0x11, l2=» END«, l3=0x11}
0x32e6…32f7 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x32f7…330c Line {l1=0x13, l2=» OTHERWISE PRINT1;«, l3=0x13}
0x330c…332a Line {l1=0x1c, l2=» IF ELEMENTTYPE<>KSLOP THEN«, l3=0x1c}
0x332a…3333 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3333…3364 Line {l1=0x2f, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'NEXTELEMENT');«, l3=0x2f}
0x3364…337f Line {l1=0x19, l2=» PRNIVEAU:=PRNIVEAU-1;«, l3=0x19}
0x337f…339d Line {l1=0x1c, l2=» IF NEXTELEMENT<>NIL THEN«, l3=0x1c}
0x339d…33b9 Line {l1=0x1a, l2=» PRINTEL(NEXTELEMENT)«, l3=0x1a}
0x33b9…33e7 Line {l1=0x2c, l2=» ELSE WRITELN(LIST,' ':PRNIVEAU+4,'NIL');«, l3=0x2c}
0x33e7…3401 Line {l1=0x18, l2=» PRNIVEAU:=PRNIVEAU+1«, l3=0x18}
0x3401…3409 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3409…3421 Line {l1=0x16, l2=» PRNIVEAU:=PRNIVEAU-1«, l3=0x16}
0x3421…3427 Line {l1=0x04, l2=» END«, l3=0x04}
0x3427…3451 Line {l1=0x28, l2=» ELSE WRITELN(LIST,' ':PRNIVEAU+3,'NIL')«, l3=0x28}
0x3451…3457 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3457…345f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x345f…3470 Line {l1=0x0f, l2=»BEGIN (*OPLYS*)«, l3=0x0f}
0x3470…3484 Line {l1=0x12, l2=» PRNIVEAU:=0;«, l3=0x12}
0x3484…349f Line {l1=0x19, l2=» PRINTEL(LISTEHOVED)«, l3=0x19}
0x349f…34a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x34a5…34ae Line {l1=0x07, l2=»(*$X-*)«, l3=0x07}
0x34ae…34b6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x34b6…34c6 Line {l1=0x0e, l2=»(*$ILISTEIOP*)«, l3=0x0e}
0x34c6…34f0 Line {l1=0x28, l2=»PROCEDURE ADDPOS(VAR P1,P2,P3:POSITION);«, l3=0x28}
0x34f0…34f7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x34f7…350b Line {l1=0x12, l2=» P3.X:=P1.X+P2.X;«, l3=0x12}
0x350b…351e Line {l1=0x11, l2=» P3.Y:=P1.Y+P2.Y«, l3=0x11}
0x351e…3524 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3524…3537 Line {l1=0x11, l2=»PROCEDURE UDSIDE;«, l3=0x11}
0x3537…3547 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x3547…354e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x354e…3563 Line {l1=0x13, l2=» LINE:='';CH:=' ';«, l3=0x13}
0x3563…3595 Line {l1=0x30, l2=» FOR I:=1 TO SIDEBRED DO LINE:=CONCAT(LINE,CH);«, l3=0x30}
0x3595…35bb Line {l1=0x24, l2=» FOR I:=1 TO LISTEHOVED^.LINESPP DO«, l3=0x24}
0x35bb…35c4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x35c4…35d7 Line {l1=0x11, l2=» SEEK(SIDE,I);«, l3=0x11}
0x35d7…35e7 Line {l1=0x0e, l2=» GET(SIDE);«, l3=0x0e}
0x35e7…3601 Line {l1=0x18, l2=» WRITELN(LIST,SIDE^);«, l3=0x18}
0x3601…3613 Line {l1=0x10, l2=» SIDE^:=LINE;«, l3=0x10}
0x3613…3626 Line {l1=0x11, l2=» SEEK(SIDE,I);«, l3=0x11}
0x3626…3635 Line {l1=0x0d, l2=» PUT(SIDE)«, l3=0x0d}
0x3635…363c Line {l1=0x05, l2=» END«, l3=0x05}
0x363c…3642 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3642…364a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x364a…3683 Line {l1=0x37, l2=»PROCEDURE SÆTNØGL(VAR FILREF:INTEGER;VAR NØGL:ELEMENT);«, l3=0x37}
0x3683…368a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x368a…369b Line {l1=0x0f, l2=» WITH NØGL^ DO«, l3=0x0f}
0x369b…36a4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x36a4…36bb Line {l1=0x15, l2=» CASE NØGLETYPE OF«, l3=0x15}
0x36bb…36fb Line {l1=0x3e, l2=» HELTAL:POST(FILREF).A(PINDEKS):=POST(NØGLEREF).A(GINDEKS);«, l3=0x3e}
0x36fb…370e Line {l1=0x11, l2=» DOBBTAL:BEGIN«, l3=0x11}
0x370e…3751 Line {l1=0x41, l2=» POST(FILREF).A(PINDEKS):=POST(NØGLEREF).A(GINDEKS);«, l3=0x41}
0x3751…3797 Line {l1=0x44, l2=» POST(FILREF).A(PINDEKS+1):=POST(NØGLEREF).A(GINDEKS+1)«, l3=0x44}
0x3797…37a9 Line {l1=0x10, l2=» END;«, l3=0x10}
0x37a9…37ea Line {l1=0x3f, l2=» REEL:POST(FILREF).AAA(PINDEKS):=POST(NØGLEREF).AAA(GINDEKS)«, l3=0x3f}
0x37ea…37f4 Line {l1=0x08, l2=» END;«, l3=0x08}
0x37f4…3815 Line {l1=0x1f, l2=» SÆTNØGL(FILREF,NEXTELEMENT)«, l3=0x1f}
0x3815…381c Line {l1=0x05, l2=» END«, l3=0x05}
0x381c…3822 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3822…382a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x382a…3860 Line {l1=0x34, l2=»PROCEDURE UDFØR(VAR EL:ELEMENT;VAR PICPOS:POSITION);«, l3=0x34}
0x3860…3876 Line {l1=0x14, l2=»VAR AKTPOS:POSITION;«, l3=0x14}
0x3876…3888 Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x3888…389e Line {l1=0x14, l2=» FAILURE:BOOLEAN;«, l3=0x14}
0x389e…38a5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x38a5…38b8 Line {l1=0x11, l2=» IF EL<>NIL THEN«, l3=0x11}
0x38b8…38c7 Line {l1=0x0d, l2=» WITH EL^ DO«, l3=0x0d}
0x38c7…38d0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x38d0…3913 Line {l1=0x41, l2=» WRITELN(ORD(ELEMENTTYPE):5,PICPOS.X:5,PICPOS.Y:5,MEMAVAIL:8);«, l3=0x41}
0x3913…392c Line {l1=0x17, l2=» CASE ELEMENTTYPE OF«, l3=0x17}
0x392c…393f Line {l1=0x11, l2=» PICTURE:BEGIN«, l3=0x11}
0x393f…396d Line {l1=0x2c, l2=» ADDPOS(PICPOS,PICTPOS,AKTPOS);«, l3=0x2c}
0x396d…3994 Line {l1=0x25, l2=» UDFØR(FØRSTFELT,AKTPOS)«, l3=0x25}
0x3994…39a6 Line {l1=0x10, l2=» END;«, l3=0x10}
0x39a6…39c5 Line {l1=0x1d, l2=» BEREGN :IF GEMREF>=0 THEN«, l3=0x1d}
0x39c5…39e5 Line {l1=0x1e, l2=» CASE UDTRYKTYPE OF«, l3=0x1e}
0x39e5…3a2b Line {l1=0x44, l2=» HELTAL :POST(GEMREF).A(GEMINDEKS):=TRUNC(VÆRDI(UDTRYK));«, l3=0x44}
0x3a2b…3a46 Line {l1=0x19, l2=» DOBBTAL:BEGIN«, l3=0x19}
0x3a46…3a74 Line {l1=0x2c, l2=» RESULT:=VÆRDI(UDTRYK);«, l3=0x2c}
0x3a74…3ab8 Line {l1=0x42, l2=» IF ABS(RESULT)>327679999.0 THEN RESULT:=0.0;«, l3=0x42}
0x3ab8…3b01 Line {l1=0x47, l2=» POST(GEMREF).A(GEMINDEKS):=TRUNC(RESULT/10000.0);«, l3=0x47}
0x3b01…3b36 Line {l1=0x33, l2=» POST(GEMREF).A(GEMINDEKS+1):=«, l3=0x33}
0x3b36…3b7f Line {l1=0x47, l2=» TRUNC(RESULT-10000.0*POST(GEMREF).A(GEMINDEKS))«, l3=0x47}
0x3b7f…3b99 Line {l1=0x18, l2=» END;«, l3=0x18}
0x3b99…3bd9 Line {l1=0x3e, l2=» REEL :POST(GEMREF).AAA(GEMINDEKS):=VÆRDI(UDTRYK)«, l3=0x3e}
0x3bd9…3beb Line {l1=0x10, l2=» END;«, l3=0x10}
0x3beb…3bfe Line {l1=0x11, l2=» GENTAG: BEGIN«, l3=0x11}
0x3bfe…3c1d Line {l1=0x1d, l2=» AKTPOS:=PICPOS;«, l3=0x1d}
0x3c1d…3c3e Line {l1=0x1f, l2=» CASE LØKKETYPE OF«, l3=0x1f}
0x3c3e…3c5b Line {l1=0x1b, l2=» REPETE:REPEAT«, l3=0x1b}
0x3c5b…3c94 Line {l1=0x37, l2=» IF POSINCR.X=-32000 THEN UDSIDE;«, l3=0x37}
0x3c94…3cc5 Line {l1=0x2f, l2=» UDFØR(FIRSTFELT,AKTPOS);«, l3=0x2f}
0x3cc5…3cf6 Line {l1=0x2f, l2=» IF POSINCR.X>-32000 THEN«, l3=0x2f}
0x3cf6…3d2e Line {l1=0x36, l2=» ADDPOS(AKTPOS,POSINCR,AKTPOS)«, l3=0x36}
0x3d2e…3d61 Line {l1=0x31, l2=» UNTIL VÆRDI(BETINGELSE)=1.0;«, l3=0x31}
0x3d61…3d96 Line {l1=0x33, l2=» WAILE :WHILE VÆRDI(BETINGELSE)=1.0 DO«, l3=0x33}
0x3d96…3db2 Line {l1=0x1a, l2=» BEGIN«, l3=0x1a}
0x3db2…3deb Line {l1=0x37, l2=» IF POSINCR.X=-32000 THEN UDSIDE;«, l3=0x37}
0x3deb…3e1c Line {l1=0x2f, l2=» UDFØR(FIRSTFELT,AKTPOS);«, l3=0x2f}
0x3e1c…3e4d Line {l1=0x2f, l2=» IF POSINCR.X>-32000 THEN«, l3=0x2f}
0x3e4d…3e86 Line {l1=0x37, l2=» ADDPOS(AKTPOS,POSINCR,AKTPOS);«, l3=0x37}
0x3e86…3ea0 Line {l1=0x18, l2=» END«, l3=0x18}
0x3ea0…3eb3 Line {l1=0x11, l2=» END«, l3=0x11}
0x3eb3…3ec5 Line {l1=0x10, l2=» END;«, l3=0x10}
0x3ec5…3edb Line {l1=0x14, l2=» INDKOMMANDO:BEGIN«, l3=0x14}
0x3edb…3f22 Line {l1=0x45, l2=» IF FØRSTNØGL<>NIL THEN SÆTNØGL(GETFILREF,FØRSTNØGL);«, l3=0x45}
0x3f22…3f4b Line {l1=0x27, l2=» CASE GETMODE MOD 10 OF«, l3=0x27}
0x3f4b…3f79 Line {l1=0x2c, l2=» 1,2:BEGIN (*GETREC, GETNEXT*)«, l3=0x2c}
0x3f79…3faa Line {l1=0x2f, l2=» GETREC(POST(GETFILREF).A);«, l3=0x2f}
0x3faa…3fe8 Line {l1=0x3c, l2=» IF (GETMODE MOD 10=2) AND (IER=-6) THEN«, l3=0x3c}
0x3fe8…4004 Line {l1=0x1a, l2=» BEGIN«, l3=0x1a}
0x4004…4038 Line {l1=0x32, l2=» NEXTREC(POST(GETFILREF).A);«, l3=0x32}
0x4038…406b Line {l1=0x31, l2=» IF IER=-1 THEN IER:=0 ELSE«, l3=0x31}
0x406b…409c Line {l1=0x2f, l2=» IF IER=0 THEN IER:=-20«, l3=0x2f}
0x409c…40b6 Line {l1=0x18, l2=» END«, l3=0x18}
0x40b6…40cf Line {l1=0x17, l2=» END;«, l3=0x17}
0x40cf…40ff Line {l1=0x2e, l2=» 3:NEXTREC(POST(GETFILREF).A) «, l3=0x2e}
0x40ff…4116 Line {l1=0x15, l2=» END;«, l3=0x15}
0x4116…4144 Line {l1=0x2c, l2=» POST(GETFILREF).A(-4):=IER;«, l3=0x2c}
0x4144…416d Line {l1=0x27, l2=» CASE GETMODE DIV 10 OF«, l3=0x27}
0x416d…4193 Line {l1=0x24, l2=» 1:FAILURE:=IER<>-6;«, l3=0x24}
0x4193…41c8 Line {l1=0x33, l2=» 2:FAILURE:=(IER<>-6) AND (IER<>0);«, l3=0x33}
0x41c8…41ee Line {l1=0x24, l2=» 3:FAILURE:=IER<>-1;«, l3=0x24}
0x41ee…4212 Line {l1=0x22, l2=» 4:FAILURE:=IER>0;«, l3=0x22}
0x4212…4255 Line {l1=0x41, l2=» 5:FAILURE:=(IER<>-1) AND (IER<>-2) AND (IER<>-9)«, l3=0x41}
0x4255…4282 Line {l1=0x2b, l2=» OTHERWISE FAILURE:=IER<>0;«, l3=0x2b}
0x4282…42bd Line {l1=0x39, l2=» IF FAILURE THEN ERROR(POST(GETFILREF).A)«, l3=0x39}
0x42bd…42d2 Line {l1=0x13, l2=» END;«, l3=0x13}
0x42d2…42e7 Line {l1=0x13, l2=» UDKOMMANDO:BEGIN«, l3=0x13}
0x42e7…42fb Line {l1=0x12, l2=» END;«, l3=0x12}
0x42fb…430e Line {l1=0x11, l2=» FELT :BEGIN«, l3=0x11}
0x430e…4331 Line {l1=0x21, l2=» IF EDITERING>0 THEN«, l3=0x21}
0x4331…434e Line {l1=0x1b, l2=» LÆSFELT(EL)«, l3=0x1b}
0x434e…4362 Line {l1=0x12, l2=» ELSE«, l3=0x12}
0x4362…4377 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x4377…43ab Line {l1=0x32, l2=» IF (POSTREF=0) AND (INDEKS<0) THEN«, l3=0x32}
0x43ab…43c2 Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x43c2…43f9 Line {l1=0x35, l2=» RESULT:=VÆRDI(NEXTELEMENT^.UDTRYK);«, l3=0x35}
0x43f9…441d Line {l1=0x22, l2=» CASE FELTTYPE OF«, l3=0x22}
0x441d…4452 Line {l1=0x33, l2=» REEL:POST(0).AAA(INDEKS):=RESULT;«, l3=0x33}
0x4452…4489 Line {l1=0x35, l2=» HELTAL:IF ABS(RESULT)<=32000.0 THEN«, l3=0x35}
0x4489…44c6 Line {l1=0x3b, l2=» POST(0).A(INDEKS):=TRUNC(RESULT)«, l3=0x3b}
0x44c6…44fb Line {l1=0x33, l2=» ELSE POST(0).A(INDEKS):=0;«, l3=0x33}
0x44fb…451c Line {l1=0x1f, l2=» DOBBTAL:BEGIN«, l3=0x1f}
0x451c…4566 Line {l1=0x48, l2=» IF ABS(RESULT)>327679999.0 THEN RESULT:=0.0;«, l3=0x48}
0x4566…45ad Line {l1=0x45, l2=» POST(0).A(INDEKS):=TRUNC(RESULT/10000.0);«, l3=0x45}
0x45ad…45f5 Line {l1=0x46, l2=» POST(0).A(INDEKS+1):=TRUNC(RESULT-10000.0*«, l3=0x46}
0x45f5…463a Line {l1=0x43, l2=» POST(0).A(INDEKS))«, l3=0x43}
0x463a…4659 Line {l1=0x1d, l2=» END«, l3=0x1d}
0x4659…4671 Line {l1=0x16, l2=» END;«, l3=0x16}
0x4671…4687 Line {l1=0x14, l2=» END;«, l3=0x14}
0x4687…46b6 Line {l1=0x2d, l2=» ADDPOS(PICPOS,INDPOS,AKTPOS);«, l3=0x2d}
0x46b6…46dc Line {l1=0x24, l2=» SKRIVFELT(EL,AKTPOS)«, l3=0x24}
0x46dc…46ef Line {l1=0x11, l2=» END«, l3=0x11}
0x46ef…4700 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4700…4709 Line {l1=0x07, l2=» END;«, l3=0x07}
0x4709…4722 Line {l1=0x17, l2=» WRITELN(MEMAVAIL:8);«, l3=0x17}
0x4722…4744 Line {l1=0x20, l2=» UDFØR(EL^.NEXTELEMENT,PICPOS)«, l3=0x20}
0x4744…474a Line {l1=0x04, l2=» END«, l3=0x04}
0x474a…4750 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4750…4758 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4758…476e Line {l1=0x14, l2=»PROCEDURE SKRIVLIST;«, l3=0x14}
0x476e…477e Line {l1=0x0e, l2=»VAR J:INTEGER;«, l3=0x0e}
0x477e…4791 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x4791…47a9 Line {l1=0x16, l2=» STARTPOS:POSITION;«, l3=0x16}
0x47a9…47b0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x47b0…47d6 Line {l1=0x24, l2=» (*SØRGER FOR SELVE UDSKRIVNINGEN*)«, l3=0x24}
0x47d6…47e8 Line {l1=0x10, l2=» STARTPOS.X:=0;«, l3=0x10}
0x47e8…47fa Line {l1=0x10, l2=» STARTPOS.Y:=0;«, l3=0x10}
0x47fa…4826 Line {l1=0x2a, l2=» UDFØR(LISTEHOVED^.NEXTELEMENT,STARTPOS);«, l3=0x2a}
0x4826…4830 Line {l1=0x08, l2=» UDSIDE«, l3=0x08}
0x4830…4836 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4836…483e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x483e…4854 Line {l1=0x14, l2=»PROCEDURE VÆLGLISTE;«, l3=0x14}
0x4854…486a Line {l1=0x14, l2=»VAR LISTER:LISTFILE;«, l3=0x14}
0x486a…4882 Line {l1=0x16, l2=» I,LISTENR:INTEGER;«, l3=0x16}
0x4882…4889 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4889…48a0 Line {l1=0x15, l2=» (*VALG AF UDSKRIFT*)«, l3=0x15}
0x48a0…48bf Line {l1=0x1d, l2=» FNAVN:='LISTDEFS:P2:0000:S';«, l3=0x1d}
0x48bf…48dc Line {l1=0x1b, l2=» REWRITE(LISTER,FNAVN);IOC;«, l3=0x1b}
0x48dc…48e5 Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x48e5…48f5 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x48f5…490c Line {l1=0x15, l2=» SEEK(LISTER,1);IOC;«, l3=0x15}
0x490c…491b Line {l1=0x0d, l2=» LISTENR:=0;«, l3=0x0d}
0x491b…4925 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4925…493b Line {l1=0x14, l2=» GET(LISTER);IOC;«, l3=0x14}
0x493b…495d Line {l1=0x20, l2=» IF LISTER^.NAVN(1)<>'@' THEN«, l3=0x20}
0x495d…4968 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4968…499b Line {l1=0x31, l2=» GOTOXY(LISTENR MOD 2*38+1,LISTENR DIV 2+1);«, l3=0x31}
0x499b…49b6 Line {l1=0x19, l2=» LISTENR:=LISTENR+1;«, l3=0x19}
0x49b6…49e1 Line {l1=0x29, l2=» WRITELN(LISTENR:3,' ',LISTER^.NAVN)«, l3=0x29}
0x49e1…49ea Line {l1=0x07, l2=» END«, l3=0x07}
0x49ea…4a08 Line {l1=0x1c, l2=» UNTIL LISTER^.NAVN(1)='@';«, l3=0x1c}
0x4a08…4a12 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4a12…4a25 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x4a25…4a50 Line {l1=0x29, l2=» WRITELN('Listenummer, 0 for færdig');«, l3=0x29}
0x4a50…4a72 Line {l1=0x20, l2=» GOTOXY(27,23);READLN;READ(I)«, l3=0x20}
0x4a72…4aa5 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<=LISTENR);«, l3=0x31}
0x4aa5…4ab4 Line {l1=0x0d, l2=» IF I>0 THEN«, l3=0x0d}
0x4ab4…4abd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4abd…4ad6 Line {l1=0x17, l2=» SEEK(LISTER,I);IOC;«, l3=0x17}
0x4ad6…4aec Line {l1=0x14, l2=» GET(LISTER);IOC;«, l3=0x14}
0x4aec…4b03 Line {l1=0x15, l2=» AKTULIST:=LISTER^«, l3=0x15}
0x4b03…4b0a Line {l1=0x05, l2=» END«, l3=0x05}
0x4b0a…4b28 Line {l1=0x1c, l2=» ELSE AKTULIST.NAVN(1):='@'«, l3=0x1c}
0x4b28…4b5c Line {l1=0x32, l2=» UNTIL (I=0) OR (AKTULIST.LISTENIVEAU<=USERNIVEAU)«, l3=0x32}
0x4b5c…4b62 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4b62…4b6a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4b6a…4b81 Line {l1=0x15, l2=»PROCEDURE INDELEMENT;«, l3=0x15}
0x4b81…4b97 Line {l1=0x14, l2=»VAR FFIL:ELEMENTFIL;«, l3=0x14}
0x4b97…4baa Line {l1=0x11, l2=»PROCEDURE INDNUL;«, l3=0x11}
0x4baa…4bbd Line {l1=0x11, l2=»VAR FIL0:ZEROFIL;«, l3=0x11}
0x4bbd…4bc4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4bc4…4be4 Line {l1=0x1e, l2=» FNAVN:='ZEROFILE:P2:0000:S';«, l3=0x1e}
0x4be4…4c00 Line {l1=0x1a, l2=» REWRITE(FIL0,FNAVN);IOC;«, l3=0x1a}
0x4c00…4c24 Line {l1=0x22, l2=» SEEK(FIL0,AKTULIST.ZPOSTNR);IOC;«, l3=0x22}
0x4c24…4c36 Line {l1=0x10, l2=» GET(FIL0);IOC;«, l3=0x10}
0x4c36…4c49 Line {l1=0x11, l2=» POST(0):=FIL0^;«, l3=0x11}
0x4c49…4c58 Line {l1=0x0d, l2=» CLOSE(FIL0)«, l3=0x0d}
0x4c58…4c5e Line {l1=0x04, l2=»END;«, l3=0x04}
0x4c5e…4c77 Line {l1=0x17, l2=»FUNCTION NÆSTE:ELEMENT;«, l3=0x17}
0x4c77…4c87 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x4c87…4c9a Line {l1=0x11, l2=» THIS:ELEMENT;«, l3=0x11}
0x4c9a…4ca1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4ca1…4cb3 Line {l1=0x10, l2=» GET(FFIL);IOC;«, l3=0x10}
0x4cb3…4cd0 Line {l1=0x1b, l2=» CASE FFIL^.ELEMENTTYPE OF«, l3=0x1b}
0x4cd0…4ce3 Line {l1=0x11, l2=» LISTEDESC:BEGIN«, l3=0x11}
0x4ce3…4d07 Line {l1=0x22, l2=» NEW(THIS,LISTEDESC);«, l3=0x22}
0x4d07…4d24 Line {l1=0x1b, l2=» THIS^:=FFIL^;«, l3=0x1b}
0x4d24…4d36 Line {l1=0x10, l2=» (*«, l3=0x10}
0x4d36…4d63 Line {l1=0x2b, l2=» THIS^.ELEMENTTYPE:=LISTEDESC;«, l3=0x2b}
0x4d63…4da3 Line {l1=0x3e, l2=» FOR I:=1 TO 8 DO THIS^.FILES(I):=FFIL^.FILES(I);«, l3=0x3e}
0x4da3…4dd1 Line {l1=0x2c, l2=» IF FFIL^.NEXTELEMENT<>NIL THEN«, l3=0x2c}
0x4dd1…4dfb Line {l1=0x28, l2=» THIS^.NEXTELEMENT:=NÆSTE«, l3=0x28}
0x4dfb…4e0f Line {l1=0x12, l2=» ELSE«, l3=0x12}
0x4e0f…4e37 Line {l1=0x26, l2=» THIS^.NEXTELEMENT:=NIL«, l3=0x26}
0x4e37…4e49 Line {l1=0x10, l2=» *)«, l3=0x10}
0x4e49…4e5b Line {l1=0x10, l2=» END;«, l3=0x10}
0x4e5b…4e6e Line {l1=0x11, l2=» PICTURE: BEGIN«, l3=0x11}
0x4e6e…4e90 Line {l1=0x20, l2=» NEW(THIS,PICTURE);«, l3=0x20}
0x4e90…4ead Line {l1=0x1b, l2=» THIS^:=FFIL^;«, l3=0x1b}
0x4ead…4ebf Line {l1=0x10, l2=» (*«, l3=0x10}
0x4ebf…4eea Line {l1=0x29, l2=» THIS^.ELEMENTTYPE:=PICTURE;«, l3=0x29}
0x4eea…4f17 Line {l1=0x2b, l2=» THIS^.PICTPOS:=FFIL^.PICTPOS;«, l3=0x2b}
0x4f17…4f4c Line {l1=0x33, l2=» THIS^.NEXTELEMENT:=FFIL^.NEXTELEMENT;«, l3=0x33}
0x4f4c…4f5e Line {l1=0x10, l2=» *)«, l3=0x10}
0x4f5e…4f8a Line {l1=0x2a, l2=» IF THIS^.FØRSTFELT<>NIL THEN«, l3=0x2a}
0x4f8a…4fb2 Line {l1=0x26, l2=» THIS^.FØRSTFELT:=NÆSTE«, l3=0x26}
0x4fb2…4fc4 Line {l1=0x10, l2=» END;«, l3=0x10}
0x4fc4…4fd9 Line {l1=0x13, l2=» INDKOMMANDO:BEGIN«, l3=0x13}
0x4fd9…5001 Line {l1=0x26, l2=» NEW(THIS,INDKOMMANDO);«, l3=0x26}
0x5001…5020 Line {l1=0x1d, l2=» THIS^:=FFIL^;«, l3=0x1d}
0x5020…5066 Line {l1=0x44, l2=» IF THIS^.FØRSTNØGL<>NIL THEN THIS^.FØRSTNØGL:=NÆSTE;«, l3=0x44}
0x5066…507a Line {l1=0x12, l2=» END;«, l3=0x12}
0x507a…508e Line {l1=0x12, l2=» UDKOMMANDO:BEGIN«, l3=0x12}
0x508e…50b4 Line {l1=0x24, l2=» NEW(THIS,UDKOMMANDO);«, l3=0x24}
0x50b4…50d1 Line {l1=0x1b, l2=» THIS^:=FFIL^«, l3=0x1b}
0x50d1…50e4 Line {l1=0x11, l2=» END;«, l3=0x11}
0x50e4…50f3 Line {l1=0x0d, l2=» NØGLE:BEGIN«, l3=0x0d}
0x50f3…510f Line {l1=0x1a, l2=» NEW(THIS,NØGLE);«, l3=0x1a}
0x510f…5127 Line {l1=0x16, l2=» THIS^:=FFIL^«, l3=0x16}
0x5127…5135 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x5135…5145 Line {l1=0x0e, l2=» GENTAG:BEGIN«, l3=0x0e}
0x5145…5163 Line {l1=0x1c, l2=» NEW(THIS,GENTAG);«, l3=0x1c}
0x5163…517d Line {l1=0x18, l2=» THIS^:=FFIL^;«, l3=0x18}
0x517d…51be Line {l1=0x3f, l2=» IF THIS^.FIRSTFELT<>NIL THEN THIS^.FIRSTFELT:=NÆSTE;«, l3=0x3f}
0x51be…5200 Line {l1=0x40, l2=» IF THIS^.BETINGELSE<>NIL THEN THIS^.BETINGELSE:=NÆSTE«, l3=0x40}
0x5200…520f Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x520f…521f Line {l1=0x0e, l2=» BEREGN:BEGIN«, l3=0x0e}
0x521f…523d Line {l1=0x1c, l2=» NEW(THIS,BEREGN);«, l3=0x1c}
0x523d…5257 Line {l1=0x18, l2=» THIS^:=FFIL^;«, l3=0x18}
0x5257…5291 Line {l1=0x38, l2=» IF THIS^.UDTRYK<>NIL THEN THIS^.UDTRYK:=NÆSTE«, l3=0x38}
0x5291…52a0 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x52a0…52b3 Line {l1=0x11, l2=» VALIDITET:BEGIN«, l3=0x11}
0x52b3…52dd Line {l1=0x28, l2=» CASE FFIL^.VALIDITYTYPE OF«, l3=0x28}
0x52dd…5315 Line {l1=0x36, l2=» HINTERVAL:NEW(THIS,VALIDITET,HINTERVAL);«, l3=0x36}
0x5315…534d Line {l1=0x36, l2=» DINTERVAL:NEW(THIS,VALIDITET,DINTERVAL);«, l3=0x36}
0x534d…5385 Line {l1=0x36, l2=» RINTERVAL:NEW(THIS,VALIDITET,RINTERVAL);«, l3=0x36}
0x5385…53b7 Line {l1=0x30, l2=» DATO,CPR :NEW(THIS,VALIDITET,DATO)«, l3=0x30}
0x53b7…53cb Line {l1=0x12, l2=» END;«, l3=0x12}
0x53cb…53e7 Line {l1=0x1a, l2=» THIS^:=FFIL^«, l3=0x1a}
0x53e7…53f9 Line {l1=0x10, l2=» END;«, l3=0x10}
0x53f9…5407 Line {l1=0x0c, l2=» FELT:BEGIN«, l3=0x0c}
0x5407…5428 Line {l1=0x1f, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1f}
0x5428…544c Line {l1=0x22, l2=» REEL:NEW(THIS,FELT,REEL);«, l3=0x22}
0x544c…5481 Line {l1=0x33, l2=» HELTAL,DOBBTAL,TEKST:NEW(THIS,FELT,HELTAL)«, l3=0x33}
0x5481…5490 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x5490…54a7 Line {l1=0x15, l2=» THIS^:=FFIL^«, l3=0x15}
0x54a7…54b4 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x54b4…54c3 Line {l1=0x0d, l2=» KSLOP:BEGIN«, l3=0x0d}
0x54c3…54e3 Line {l1=0x1e, l2=» CASE FFIL^.POLISH OF«, l3=0x1e}
0x54e3…5515 Line {l1=0x30, l2=» EXPRESSION:NEW(THIS,KSLOP,EXPRESSION);«, l3=0x30}
0x5515…5544 Line {l1=0x2d, l2=» SIMPLEX :NEW(THIS,KSLOP,SIMPLEX);«, l3=0x2d}
0x5544…5570 Line {l1=0x2a, l2=» TERM :NEW(THIS,KSLOP,TERM);«, l3=0x2a}
0x5570…559d Line {l1=0x2b, l2=» FACTOR :CASE FFIL^.FACTTYPE OF«, l3=0x2b}
0x559d…55dd Line {l1=0x3e, l2=» CONSTVAR:NEW(THIS,KSLOP,FACTOR,CONSTVAR);«, l3=0x3e}
0x55dd…5622 Line {l1=0x43, l2=» LPEXPRP,NOTFACT:NEW(THIS,KSLOP,FACTOR,LPEXPRP)«, l3=0x43}
0x5622…563c Line {l1=0x18, l2=» END«, l3=0x18}
0x563c…564c Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x564c…5665 Line {l1=0x17, l2=» THIS^:=FFIL^;«, l3=0x17}
0x5665…569e Line {l1=0x37, l2=» IF THIS^.SECOND<>NIL THEN THIS^.SECOND:=NÆSTE«, l3=0x37}
0x569e…56ab Line {l1=0x0b, l2=» END«, l3=0x0b}
0x56ab…56b3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x56b3…56ef Line {l1=0x3a, l2=» IF THIS^.NEXTELEMENT<>NIL THEN THIS^.NEXTELEMENT:=NÆSTE;«, l3=0x3a}
0x56ef…56fe Line {l1=0x0d, l2=» NÆSTE:=THIS«, l3=0x0d}
0x56fe…5704 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5704…570b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x570b…5716 Line {l1=0x09, l2=» INDNUL;«, l3=0x09}
0x5716…573e Line {l1=0x26, l2=» REWRITE(FFIL,AKTULIST.DESCLIST);IOC;«, l3=0x26}
0x573e…5754 Line {l1=0x14, l2=» LISTEHOVED:=NÆSTE;«, l3=0x14}
0x5754…5763 Line {l1=0x0d, l2=» CLOSE(FFIL)«, l3=0x0d}
0x5763…578c Line {l1=0x27, l2=» (*INDLÆS NEXTELEMENT, SÆT REFERENCE*)«, l3=0x27}
0x578c…5792 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5792…579a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x579a…57b0 Line {l1=0x14, l2=»PROCEDURE PATENTLUK;«, l3=0x14}
0x57b0…57b7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x57b7…5801 Line {l1=0x48, l2=» INDELEMENT; (*ÅBNER ELEMENTBESKR., INDLÆSER LISTER, LUKKER FILEN*)«, l3=0x48}
0x5801…582e Line {l1=0x2b, l2=» (*ÅBNING OG LUKNING AF DATAFILER*)«, l3=0x2b}
0x582e…5843 Line {l1=0x13, l2=» NROFFILES:=1;«, l3=0x13}
0x5843…588e Line {l1=0x49, l2=» WHILE (NROFFILES<=MAXZONES) AND (LISTEHOVED^.FILES(NROFFILES)>0) DO«, l3=0x49}
0x588e…589b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x589b…58d9 Line {l1=0x3c, l2=» POST(NROFFILES).A(-3):=LISTEHOVED^.FILES(NROFFILES);«, l3=0x3c}
0x58d9…58eb Line {l1=0x10, l2=» MODE:=2;«, l3=0x10}
0x58eb…590e Line {l1=0x21, l2=» IOPEN(POST(NROFFILES).A);«, l3=0x21}
0x590e…5940 Line {l1=0x30, l2=» IF IER<>0 THEN OFEJL(POST(NROFFILES).A);«, l3=0x30}
0x5940…5960 Line {l1=0x1e, l2=» NROFFILES:=NROFFILES+1«, l3=0x1e}
0x5960…596c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x596c…598f Line {l1=0x21, l2=» FNAVN:='SIDEFIL:P2:0040:K';«, l3=0x21}
0x598f…59af Line {l1=0x1e, l2=» REWRITE(SIDE,FNAVN);IOC;«, l3=0x1e}
0x59af…59c8 Line {l1=0x17, l2=» LINE:='';CH:=' ';«, l3=0x17}
0x59c8…59fe Line {l1=0x34, l2=» FOR I:=1 TO SIDEBRED DO LINE:=CONCAT(LINE,CH);«, l3=0x34}
0x59fe…5a28 Line {l1=0x28, l2=» FOR I:=1 TO LISTEHOVED^.LINESPP DO«, l3=0x28}
0x5a28…5a35 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5a35…5a50 Line {l1=0x19, l2=» SEEK(SIDE,I);IOC;«, l3=0x19}
0x5a50…5a66 Line {l1=0x14, l2=» SIDE^:=LINE;«, l3=0x14}
0x5a66…5a7d Line {l1=0x15, l2=» PUT(SIDE);IOC«, l3=0x15}
0x5a7d…5a89 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x5a89…5a9a Line {l1=0x0f, l2=» INITTEXT;«, l3=0x0f}
0x5a9a…5abe Line {l1=0x22, l2=»(*$XT*) OPLYS;PAGE(LIST); (*$X-*)«, l3=0x22}
0x5abe…5aec Line {l1=0x2c, l2=» IF LISTEHOVED^.FILES(NROFFILES)>0 THEN«, l3=0x2c}
0x5aec…5af9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5af9…5b30 Line {l1=0x35, l2=» WRITELN('FOR MANGE ISF-FILER, RETURN');READLN«, l3=0x35}
0x5b30…5b3b Line {l1=0x09, l2=» END«, l3=0x09}
0x5b3b…5b47 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x5b47…5b5b Line {l1=0x12, l2=» SKRIVLIST;«, l3=0x12}
0x5b5b…5b6f Line {l1=0x12, l2=» CLOSE(SIDE);«, l3=0x12}
0x5b6f…5b7d Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x5b7d…5b9d Line {l1=0x1e, l2=» NROFFILES:=NROFFILES-1;«, l3=0x1e}
0x5b9d…5bc0 Line {l1=0x21, l2=» ICLOSE(POST(NROFFILES).A);«, l3=0x21}
0x5bc0…5be2 Line {l1=0x20, l2=» IF IER<>0 THEN BAD(6,IER)«, l3=0x20}
0x5be2…5bfb Line {l1=0x17, l2=» UNTIL NROFFILES=1«, l3=0x17}
0x5bfb…5c01 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5c01…5c09 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5c09…5c10 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5c10…5c1a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x5c1a…5c2a Line {l1=0x0e, l2=» VÆLGLISTE;«, l3=0x0e}
0x5c2a…5c4d Line {l1=0x21, l2=» IF AKTULIST.NAVN(1)<>'@' THEN«, l3=0x21}
0x5c4d…5c58 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5c58…5c6a Line {l1=0x10, l2=» MARK(QUQ);«, l3=0x10}
0x5c6a…5cab Line {l1=0x3f, l2=» PATENTLUK; (*OPNÅR LUKNING AF FILER VED PROCEDUREUDGANG*)«, l3=0x3f}
0x5cab…5cbf Line {l1=0x12, l2=» RELEASE(QUQ)«, l3=0x12}
0x5cbf…5cc8 Line {l1=0x07, l2=» END«, l3=0x07}
0x5cc8…5ce6 Line {l1=0x1c, l2=» UNTIL AKTULIST.NAVN(1)='@'«, l3=0x1c}
0x5ce6…5cec Line {l1=0x04, l2=»END;«, l3=0x04}
0x5cec…5cf4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5cf4…5cfb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5cfb…5d13 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x5d13…5d29 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x5d29…5d39 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x5d39…5d42 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5d42…5d65 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x5d65…5d71 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x5d71…5d79 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5d79…5da4 Line {l1=0x29, l2=»(*$XT*) WRITELN(MEMAVAIL);READLN; (*$X-*)«, l3=0x29}
0x5da4…5df3 Line {l1=0x4d, l2=» (*$R-*)«, l3=0x4d}
0x5df3…5e03 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x5e03…5e43 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x5e43…5e92 Line {l1=0x4d, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4d}
0x5e92…5eab Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x5eab…5ec5 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x5ec5…5ee3 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x5ee3…5ef0 Line {l1=0x0b, l2=» INITLIST;«, l3=0x0b}
0x5ef0…5f08 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x5f08…5f21 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x5f21…5f3f Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x5f3f…5f54 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x5f54…5f7c Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x5f7c…5fb2 Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);«, l3=0x34}
0x5fb2…5fe7 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x5fe7…5fed Line {l1=0x04, l2=»END.«, l3=0x04}
0x5fed…6000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x6000…6020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]
0x60e0…6100 00 00 00 00 00 00 00 00 0e e3 d4 00 14 f4 24 00 0e e3 e0 00 14 f4 24 00 0e e3 ec 00 14 f4 24 00 ┆ $ $ $ ┆
0x6100…6120 0e e3 f8 00 33 31 20 46 4f 52 20 41 4c 4c 45 33 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 31 FOR ALLE31 ┆
0x6120…6140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xa…]
0x6280…62a0 00 00 00 00 00 00 00 00 00 00 00 00 0e e3 d4 00 14 f4 24 00 0e e3 e0 00 14 f4 24 00 0e e3 ec 00 ┆ $ $ ┆
0x62a0…62c0 14 f4 24 00 0e e3 f8 00 33 31 20 46 4f 52 20 41 4c 4c 45 33 31 20 20 20 20 20 20 20 20 20 20 63 ┆ $ 31 FOR ALLE31 c┆