|
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: 9984 (0x2700)
Types: TextFile
Notes: Mikados_K
Names: »READINFO.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »READINFO.K«
PROCEDURE READINFO;
TYPE
NFELT=^FELTBESKRIVELSE;
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
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:INTEGER;
LÆNGDE:INTEGER;
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITYTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
FELTFIL=FILE OF FELTBESKRIVELSE;
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*)
VAR FFIL:FELTFIL;
ISFFILES:FILEDESC;
FILNAVN:STRING(18);
FELTNR,FILNR:INTEGER;
BEGIN
WITH FILINFO(0) DO
BEGIN
USENR:=0;
POSTNAVN:='NULPOST';
FOR FELTNR:=0 TO MAXFELT DO
BEGIN
FELTINF(FELTNR).FELTNAVN:='@';
FELTINF(FELTNR).INDEKS:=0;
FELTINF(FELTNR).FELTTYPE:=HELTAL
END
END;
FOR FILNR:=1 TO 250 DO POST(0).CONTENTS(FILNR):=0;
POST(0).A(-4):=NULINT;
POST(0).AAA(0):=NULREAL;
POST(0).AA(-11):=CHR(NULCHAR DIV 100);
POST(0).AA(-10):=CHR(NULCHAR MOD 100);
FILNAVN:='ISFFILES:P2:0000:S';
RESET(ISFFILES,FILNAVN);IOC;
FILNR:=0;
GET(ISFFILES);IOC;
WHILE (ISFFILES^.FILNAVN(1)<>'@') AND (FILNR<MAXFILES) DO
BEGIN
FILNR:=FILNR+1;
WITH FILINFO(FILNR) DO
BEGIN
USENR:=0;
POSTNAVN:=ISFFILES^.POSTNAVN;
FELTNR:=0;
FELTINF(FELTNR).FELTNAVN:='IER';
FELTINF(FELTNR).INDEKS:=-4;
FELTINF(FELTNR).FELTTYPE:=HELTAL;
FILNAVN:=ISFFILES^.DESCNAVN;
RESET(FFIL,FILNAVN);IOC;
GET(FFIL);IOC;
WHILE (FFIL^.INDPOS.X>0) AND (FELTNR<MAXFELT) DO
BEGIN
FELTNR:=FELTNR+1;
FELTINF(FELTNR).FELTNAVN:=FFIL^.FELTNAVN;
FELTINF(FELTNR).INDEKS:=FFIL^.INDEKS;
FELTINF(FELTNR).FELTTYPE:=FFIL^.FELTTYPE;
REPEAT
GET(FFIL);IOC
UNTIL FFIL^.DESCTYPE=FELTDESC
END;
IF FELTNR<MAXFELT THEN FELTINF(FELTNR+1).FELTNAVN:='@';
CLOSE(FFIL)
END;
IF FILNR<MAXFILES THEN FILINFO(FILNR+1).POSTNAVN:='@';
GET(ISFFILES);IOC
END;
CLOSE(ISFFILES)
END;
(*$P*)
PROCEDURE UDLISTDEF;
VAR LISTER:LISTFILE;
LISTENR:INTEGER;
BEGIN
FNAVN:='LISTDEFS:P2:0000:S';
REWRITE(LISTER,FNAVN);IOC;
LISTENR:=0;
REPEAT
LISTENR:=LISTENR+1;
GET(LISTER);IOC
UNTIL LISTER^.NAVN(1)='@';
AKTULIST.ZPOSTNR:=LISTENR;
CLEARSCREEN;
AKTULIST.NAVN:=' ';
WRITELN('Listens betegnelse');
GOTOXY(20,1);
EDIT(AKTULIST.NAVN);
AKTULIST.DESCLIST:=' :P2:0030:J';
WRITELN('Listedefinitionsfilens navn');
gotoxy(30,2);
EDIT(AKTULIST.DESCLIST);
REPEAT
GOTOXY(1,3);
WRITELN('Listens adgangsniveau 0-8');
GOTOXY(27,3);
READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<=8);
AKTULIST.LISTENIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
AKTULIST.LISTENIVEAU:=SUCC(AKTULIST.LISTENIVEAU);
I:=I-1
END;
REPEAT
GOTOXY(1,4);
WRITE('Blankettype >=0 ');
READLN;READ(AKTULIST.BLANKTYP)
UNTIL (IORESULT=0) AND (AKTULIST.BLANKTYP>=0);
SEEK(LISTER,LISTENR);IOC;
LISTER^:=AKTULIST;
PUT(LISTER);IOC;
LISTER^.NAVN(1):='@';
PUT(LISTER);IOC
END;
(*$P*)
PROCEDURE VÆLGLISTE;
VAR LISTER:LISTFILE;
I,LISTENR:INTEGER;
BEGIN
(*VALG AF UDSKRIFT*)
FNAVN:='LISTDEFS:P2:0000:S';
REWRITE(LISTER,FNAVN);IOC;
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):='@'
END;
(*$P*)
(*Problemer med navne på hjælpevariable (summer o.lign.), der er ikke
noget sted at gemme navnet.
Evt: Speciel DESCFIL for hver nulfil,
Fælles DESCFIL for alle nulfiler, altså kun een nulfil (fælles)*)
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^
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
(*INDLÆS NEXTELEMENT, SÆT REFERENCE*)
END;
(*$P*)
PROCEDURE UDELEMENT;
VAR FFIL:ELEMENTFIL;
PROCEDURE UDNUL;
VAR FIL0:ZEROFIL;
BEGIN
FNAVN:='ZEROFILE:P2:0000:S';
REWRITE(FIL0,FNAVN);IOC;
SEEK(FIL0,AKTULIST.ZPOSTNR);IOC;
FIL0^:=POST(0);
PUT(FIL0);IOC
END;
PROCEDURE UD(VAR EL:ELEMENT);
BEGIN
FFIL^:=EL^;
PUT(FFIL);IOC;
CASE EL^.ELEMENTTYPE OF
PICTURE:IF EL^.FØRSTFELT<>NIL THEN UD(EL^.FØRSTFELT);
INDKOMMANDO:IF EL^.FØRSTNØGL<>NIL THEN UD(EL^.FØRSTNØGL);
GENTAG:BEGIN
IF EL^.FIRSTFELT<>NIL THEN UD(EL^.FIRSTFELT);
IF EL^.BETINGELSE<>NIL THEN UD(EL^.BETINGELSE)
END;
BEREGN:IF EL^.UDTRYK<>NIL THEN UD(EL^.UDTRYK);
KSLOP:IF EL^.SECOND<>NIL THEN UD(EL^.SECOND)
END;
IF EL^.NEXTELEMENT<>NIL THEN UD(EL^.NEXTELEMENT)
END;
BEGIN
UDNUL;
REWRITE(FFIL,AKTULIST.DESCLIST);IOC;
UD(LISTEHOVED)
END;
(*$P*)
0x0000…0015 Line {l1=0x13, l2=»PROCEDURE READINFO;«, l3=0x13}
0x0015…001b Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x001b…0034 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0034…0045 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0045…0055 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0055…005b Line {l1=0x04, l2=»END;«, l3=0x04}
0x005b…0082 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0082…009a Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x009a…00ae Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x00ae…00c6 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x00c6…00ec Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x00ec…00fa Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x00fa…0115 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x0115…0139 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x0139…0150 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0150…0171 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0171…0185 Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x0185…0199 Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x0199…01ad Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x01ad…01c8 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x01c8…01e0 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x01e0…01fe Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x01fe…020c Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x020c…022b Line {l1=0x1d, l2=» (CASE VALIDITYTYPE:VTYPE OF«, l3=0x1d}
0x022b…024f Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x024f…027f Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x027f…02a2 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x02a2…02b6 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x02b6…02bc Line {l1=0x04, l2=»END;«, l3=0x04}
0x02bc…02de Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x02de…02ee Line {l1=0x0e, l2=»FILDESC=RECORD«, l3=0x0e}
0x02ee…031c Line {l1=0x2c, l2=» FILNAVN:STRING(18); (*ISF-FILENS NAVN*)«, l3=0x2c}
0x031c…0369 Line {l1=0x4b, l2=» DESCNAVN:STRING(18); (*NAVNET PÅ DEN ENKELTE ISF-FILS BESKRIVELSESFIL*)«, l3=0x4b}
0x0369…03b6 Line {l1=0x4b, l2=» POSTNAVN: STRING(18); (*NAVNET PÅ ET INDIVID I FILEN*)«, l3=0x4b}
0x03b6…03e4 Line {l1=0x2c, l2=» REGNAVN:STRING(18); (*FILENS BETEGNELSE*)«, l3=0x2c}
0x03e4…0431 Line {l1=0x4b, l2=» VEDLNIVEAU:NIVEAU;(*ADGANGSNIVEAU FOR GENERELT VEDLIGEHOLDELSESPROGRAM*)«, l3=0x4b}
0x0431…0446 Line {l1=0x13, l2=» ZONESIZE:INTEGER«, l3=0x13}
0x0446…044c Line {l1=0x04, l2=»END;«, l3=0x04}
0x044c…048a Line {l1=0x3c, l2=»FILEDESC=FILE OF FILDESC;(*FORTEGNELSE OVER ALLE ISF-FILER*)«, l3=0x3c}
0x048a…049d Line {l1=0x11, l2=»VAR FFIL:FELTFIL;«, l3=0x11}
0x049d…04b5 Line {l1=0x16, l2=» ISFFILES:FILEDESC;«, l3=0x16}
0x04b5…04ce Line {l1=0x17, l2=» FILNAVN:STRING(18);«, l3=0x17}
0x04ce…04e9 Line {l1=0x19, l2=» FELTNR,FILNR:INTEGER;«, l3=0x19}
0x04e9…04f0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04f0…0506 Line {l1=0x14, l2=» WITH FILINFO(0) DO«, l3=0x14}
0x0506…050f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x050f…051e Line {l1=0x0d, l2=» USENR:=0;«, l3=0x0d}
0x051e…0538 Line {l1=0x18, l2=» POSTNAVN:='NULPOST';«, l3=0x18}
0x0538…0559 Line {l1=0x1f, l2=» FOR FELTNR:=0 TO MAXFELT DO«, l3=0x1f}
0x0559…0564 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0564…058a Line {l1=0x24, l2=» FELTINF(FELTNR).FELTNAVN:='@';«, l3=0x24}
0x058a…05ac Line {l1=0x20, l2=» FELTINF(FELTNR).INDEKS:=0;«, l3=0x20}
0x05ac…05d4 Line {l1=0x26, l2=» FELTINF(FELTNR).FELTTYPE:=HELTAL«, l3=0x26}
0x05d4…05dd Line {l1=0x07, l2=» END«, l3=0x07}
0x05dd…05e5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x05e5…061b Line {l1=0x34, l2=» FOR FILNR:=1 TO 250 DO POST(0).CONTENTS(FILNR):=0;«, l3=0x34}
0x061b…0635 Line {l1=0x18, l2=» POST(0).A(-4):=NULINT;«, l3=0x18}
0x0635…0651 Line {l1=0x1a, l2=» POST(0).AAA(0):=NULREAL;«, l3=0x1a}
0x0651…067b Line {l1=0x28, l2=» POST(0).AA(-11):=CHR(NULCHAR DIV 100);«, l3=0x28}
0x067b…06a5 Line {l1=0x28, l2=» POST(0).AA(-10):=CHR(NULCHAR MOD 100);«, l3=0x28}
0x06a5…06c7 Line {l1=0x20, l2=» FILNAVN:='ISFFILES:P2:0000:S';«, l3=0x20}
0x06c7…06e7 Line {l1=0x1e, l2=» RESET(ISFFILES,FILNAVN);IOC;«, l3=0x1e}
0x06e7…06f4 Line {l1=0x0b, l2=» FILNR:=0;«, l3=0x0b}
0x06f4…070a Line {l1=0x14, l2=» GET(ISFFILES);IOC;«, l3=0x14}
0x070a…0747 Line {l1=0x3b, l2=» WHILE (ISFFILES^.FILNAVN(1)<>'@') AND (FILNR<MAXFILES) DO«, l3=0x3b}
0x0747…0750 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0750…0765 Line {l1=0x13, l2=» FILNR:=FILNR+1;«, l3=0x13}
0x0765…0781 Line {l1=0x1a, l2=» WITH FILINFO(FILNR) DO«, l3=0x1a}
0x0781…078c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x078c…079d Line {l1=0x0f, l2=» USENR:=0;«, l3=0x0f}
0x079d…07c2 Line {l1=0x23, l2=» POSTNAVN:=ISFFILES^.POSTNAVN;«, l3=0x23}
0x07c2…07d4 Line {l1=0x10, l2=» FELTNR:=0;«, l3=0x10}
0x07d4…07fc Line {l1=0x26, l2=» FELTINF(FELTNR).FELTNAVN:='IER';«, l3=0x26}
0x07fc…081f Line {l1=0x21, l2=» FELTINF(FELTNR).INDEKS:=-4;«, l3=0x21}
0x081f…0848 Line {l1=0x27, l2=» FELTINF(FELTNR).FELTTYPE:=HELTAL;«, l3=0x27}
0x0848…086c Line {l1=0x22, l2=» FILNAVN:=ISFFILES^.DESCNAVN;«, l3=0x22}
0x086c…088c Line {l1=0x1e, l2=» RESET(FFIL,FILNAVN);IOC;«, l3=0x1e}
0x088c…08a2 Line {l1=0x14, l2=» GET(FFIL);IOC;«, l3=0x14}
0x08a2…08da Line {l1=0x36, l2=» WHILE (FFIL^.INDPOS.X>0) AND (FELTNR<MAXFELT) DO«, l3=0x36}
0x08da…08e7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x08e7…0902 Line {l1=0x19, l2=» FELTNR:=FELTNR+1;«, l3=0x19}
0x0902…0935 Line {l1=0x31, l2=» FELTINF(FELTNR).FELTNAVN:=FFIL^.FELTNAVN;«, l3=0x31}
0x0935…0964 Line {l1=0x2d, l2=» FELTINF(FELTNR).INDEKS:=FFIL^.INDEKS;«, l3=0x2d}
0x0964…0997 Line {l1=0x31, l2=» FELTINF(FELTNR).FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x31}
0x0997…09a7 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x09a7…09c0 Line {l1=0x17, l2=» GET(FFIL);IOC«, l3=0x17}
0x09c0…09e7 Line {l1=0x25, l2=» UNTIL FFIL^.DESCTYPE=FELTDESC«, l3=0x25}
0x09e7…09f3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09f3…0a32 Line {l1=0x3d, l2=» IF FELTNR<MAXFELT THEN FELTINF(FELTNR+1).FELTNAVN:='@';«, l3=0x3d}
0x0a32…0a45 Line {l1=0x11, l2=» CLOSE(FFIL)«, l3=0x11}
0x0a45…0a4f Line {l1=0x08, l2=» END;«, l3=0x08}
0x0a4f…0a8b Line {l1=0x3a, l2=» IF FILNR<MAXFILES THEN FILINFO(FILNR+1).POSTNAVN:='@';«, l3=0x3a}
0x0a8b…0aa2 Line {l1=0x15, l2=» GET(ISFFILES);IOC«, l3=0x15}
0x0aa2…0aaa Line {l1=0x06, l2=» END;«, l3=0x06}
0x0aaa…0abd Line {l1=0x11, l2=» CLOSE(ISFFILES)«, l3=0x11}
0x0abd…0ac3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ac3…0acb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0acb…0ae1 Line {l1=0x14, l2=»PROCEDURE UDLISTDEF;«, l3=0x14}
0x0ae1…0af7 Line {l1=0x14, l2=»VAR LISTER:LISTFILE;«, l3=0x14}
0x0af7…0b0d Line {l1=0x14, l2=» LISTENR:INTEGER;«, l3=0x14}
0x0b0d…0b14 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b14…0b34 Line {l1=0x1e, l2=» FNAVN:='LISTDEFS:P2:0000:S';«, l3=0x1e}
0x0b34…0b52 Line {l1=0x1c, l2=» REWRITE(LISTER,FNAVN);IOC;«, l3=0x1c}
0x0b52…0b61 Line {l1=0x0d, l2=» LISTENR:=0;«, l3=0x0d}
0x0b61…0b6b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0b6b…0b84 Line {l1=0x17, l2=» LISTENR:=LISTENR+1;«, l3=0x17}
0x0b84…0b99 Line {l1=0x13, l2=» GET(LISTER);IOC«, l3=0x13}
0x0b99…0bb7 Line {l1=0x1c, l2=» UNTIL LISTER^.NAVN(1)='@';«, l3=0x1c}
0x0bb7…0bd5 Line {l1=0x1c, l2=» AKTULIST.ZPOSTNR:=LISTENR;«, l3=0x1c}
0x0bd5…0be5 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0be5…0c19 Line {l1=0x32, l2=» AKTULIST.NAVN:=' ';«, l3=0x32}
0x0c19…0c3b Line {l1=0x20, l2=» WRITELN('Listens betegnelse');«, l3=0x20}
0x0c3b…0c4c Line {l1=0x0f, l2=» GOTOXY(20,1);«, l3=0x0f}
0x0c4c…0c64 Line {l1=0x16, l2=» EDIT(AKTULIST.NAVN);«, l3=0x16}
0x0c64…0c90 Line {l1=0x2a, l2=» AKTULIST.DESCLIST:=' :P2:0030:J';«, l3=0x2a}
0x0c90…0cbb Line {l1=0x29, l2=» WRITELN('Listedefinitionsfilens navn');«, l3=0x29}
0x0cbb…0ccc Line {l1=0x0f, l2=» gotoxy(30,2);«, l3=0x0f}
0x0ccc…0ce8 Line {l1=0x1a, l2=» EDIT(AKTULIST.DESCLIST);«, l3=0x1a}
0x0ce8…0cf2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0cf2…0d04 Line {l1=0x10, l2=» GOTOXY(1,3);«, l3=0x10}
0x0d04…0d2f Line {l1=0x29, l2=» WRITELN('Listens adgangsniveau 0-8');«, l3=0x29}
0x0d2f…0d42 Line {l1=0x11, l2=» GOTOXY(27,3);«, l3=0x11}
0x0d42…0d56 Line {l1=0x12, l2=» READLN;READ(I)«, l3=0x12}
0x0d56…0d83 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<=8);«, l3=0x2b}
0x0d83…0da3 Line {l1=0x1e, l2=» AKTULIST.LISTENIVEAU:=MENIG;«, l3=0x1e}
0x0da3…0db3 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x0db3…0dbc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0dbc…0df3 Line {l1=0x35, l2=» AKTULIST.LISTENIVEAU:=SUCC(AKTULIST.LISTENIVEAU);«, l3=0x35}
0x0df3…0dff Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x0dff…0e07 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0e07…0e11 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0e11…0e23 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x0e23…0e43 Line {l1=0x1e, l2=» WRITE('Blankettype >=0 ');«, l3=0x1e}
0x0e43…0e67 Line {l1=0x22, l2=» READLN;READ(AKTULIST.BLANKTYP)«, l3=0x22}
0x0e67…0e99 Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (AKTULIST.BLANKTYP>=0);«, l3=0x30}
0x0e99…0eb6 Line {l1=0x1b, l2=» SEEK(LISTER,LISTENR);IOC;«, l3=0x1b}
0x0eb6…0ecc Line {l1=0x14, l2=» LISTER^:=AKTULIST;«, l3=0x14}
0x0ecc…0ee0 Line {l1=0x12, l2=» PUT(LISTER);IOC;«, l3=0x12}
0x0ee0…0ef9 Line {l1=0x17, l2=» LISTER^.NAVN(1):='@';«, l3=0x17}
0x0ef9…0f0c Line {l1=0x11, l2=» PUT(LISTER);IOC«, l3=0x11}
0x0f0c…0f12 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f12…0f1a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0f1a…0f30 Line {l1=0x14, l2=»PROCEDURE VÆLGLISTE;«, l3=0x14}
0x0f30…0f46 Line {l1=0x14, l2=»VAR LISTER:LISTFILE;«, l3=0x14}
0x0f46…0f5e Line {l1=0x16, l2=» I,LISTENR:INTEGER;«, l3=0x16}
0x0f5e…0f65 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f65…0f7c Line {l1=0x15, l2=» (*VALG AF UDSKRIFT*)«, l3=0x15}
0x0f7c…0f9b Line {l1=0x1d, l2=» FNAVN:='LISTDEFS:P2:0000:S';«, l3=0x1d}
0x0f9b…0fb8 Line {l1=0x1b, l2=» REWRITE(LISTER,FNAVN);IOC;«, l3=0x1b}
0x0fb8…0fc8 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0fc8…0fdf Line {l1=0x15, l2=» SEEK(LISTER,1);IOC;«, l3=0x15}
0x0fdf…0fee Line {l1=0x0d, l2=» LISTENR:=0;«, l3=0x0d}
0x0fee…0ff8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0ff8…100e Line {l1=0x14, l2=» GET(LISTER);IOC;«, l3=0x14}
0x100e…1030 Line {l1=0x20, l2=» IF LISTER^.NAVN(1)<>'@' THEN«, l3=0x20}
0x1030…103b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x103b…106e Line {l1=0x31, l2=» GOTOXY(LISTENR MOD 2*38+1,LISTENR DIV 2+1);«, l3=0x31}
0x106e…1089 Line {l1=0x19, l2=» LISTENR:=LISTENR+1;«, l3=0x19}
0x1089…10b4 Line {l1=0x29, l2=» WRITELN(LISTENR:3,' ',LISTER^.NAVN)«, l3=0x29}
0x10b4…10bd Line {l1=0x07, l2=» END«, l3=0x07}
0x10bd…10db Line {l1=0x1c, l2=» UNTIL LISTER^.NAVN(1)='@';«, l3=0x1c}
0x10db…10e5 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x10e5…10f8 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x10f8…1123 Line {l1=0x29, l2=» WRITELN('Listenummer, 0 for færdig');«, l3=0x29}
0x1123…1145 Line {l1=0x20, l2=» GOTOXY(27,23);READLN;READ(I)«, l3=0x20}
0x1145…1178 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<=LISTENR);«, l3=0x31}
0x1178…1187 Line {l1=0x0d, l2=» IF I>0 THEN«, l3=0x0d}
0x1187…1190 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1190…11a9 Line {l1=0x17, l2=» SEEK(LISTER,I);IOC;«, l3=0x17}
0x11a9…11bf Line {l1=0x14, l2=» GET(LISTER);IOC;«, l3=0x14}
0x11bf…11d6 Line {l1=0x15, l2=» AKTULIST:=LISTER^«, l3=0x15}
0x11d6…11dd Line {l1=0x05, l2=» END«, l3=0x05}
0x11dd…11fb Line {l1=0x1c, l2=» ELSE AKTULIST.NAVN(1):='@'«, l3=0x1c}
0x11fb…1201 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1201…1209 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1209…1250 Line {l1=0x45, l2=»(*Problemer med navne på hjælpevariable (summer o.lign.), der er ikke«, l3=0x45}
0x1250…126f Line {l1=0x1d, l2=» noget sted at gemme navnet.«, l3=0x1d}
0x126f…1298 Line {l1=0x27, l2=» Evt: Speciel DESCFIL for hver nulfil,«, l3=0x27}
0x1298…12e2 Line {l1=0x48, l2=» Fælles DESCFIL for alle nulfiler, altså kun een nulfil (fælles)*)«, l3=0x48}
0x12e2…12f9 Line {l1=0x15, l2=»PROCEDURE INDELEMENT;«, l3=0x15}
0x12f9…130f Line {l1=0x14, l2=»VAR FFIL:ELEMENTFIL;«, l3=0x14}
0x130f…1322 Line {l1=0x11, l2=»PROCEDURE INDNUL;«, l3=0x11}
0x1322…1335 Line {l1=0x11, l2=»VAR FIL0:ZEROFIL;«, l3=0x11}
0x1335…133c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x133c…135c Line {l1=0x1e, l2=» FNAVN:='ZEROFILE:P2:0000:S';«, l3=0x1e}
0x135c…1378 Line {l1=0x1a, l2=» REWRITE(FIL0,FNAVN);IOC;«, l3=0x1a}
0x1378…139c Line {l1=0x22, l2=» SEEK(FIL0,AKTULIST.ZPOSTNR);IOC;«, l3=0x22}
0x139c…13ae Line {l1=0x10, l2=» GET(FIL0);IOC;«, l3=0x10}
0x13ae…13c0 Line {l1=0x10, l2=» POST(0):=FIL0^«, l3=0x10}
0x13c0…13c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x13c6…13df Line {l1=0x17, l2=»FUNCTION NÆSTE:ELEMENT;«, l3=0x17}
0x13df…13ef Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x13ef…1402 Line {l1=0x11, l2=» THIS:ELEMENT;«, l3=0x11}
0x1402…1409 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1409…141b Line {l1=0x10, l2=» GET(FFIL);IOC;«, l3=0x10}
0x141b…1438 Line {l1=0x1b, l2=» CASE FFIL^.ELEMENTTYPE OF«, l3=0x1b}
0x1438…144b Line {l1=0x11, l2=» LISTEDESC:BEGIN«, l3=0x11}
0x144b…146f Line {l1=0x22, l2=» NEW(THIS,LISTEDESC);«, l3=0x22}
0x146f…148c Line {l1=0x1b, l2=» THIS^:=FFIL^;«, l3=0x1b}
0x148c…149e Line {l1=0x10, l2=» (*«, l3=0x10}
0x149e…14cb Line {l1=0x2b, l2=» THIS^.ELEMENTTYPE:=LISTEDESC;«, l3=0x2b}
0x14cb…150b Line {l1=0x3e, l2=» FOR I:=1 TO 8 DO THIS^.FILES(I):=FFIL^.FILES(I);«, l3=0x3e}
0x150b…1539 Line {l1=0x2c, l2=» IF FFIL^.NEXTELEMENT<>NIL THEN«, l3=0x2c}
0x1539…1563 Line {l1=0x28, l2=» THIS^.NEXTELEMENT:=NÆSTE«, l3=0x28}
0x1563…1577 Line {l1=0x12, l2=» ELSE«, l3=0x12}
0x1577…159f Line {l1=0x26, l2=» THIS^.NEXTELEMENT:=NIL«, l3=0x26}
0x159f…15b1 Line {l1=0x10, l2=» *)«, l3=0x10}
0x15b1…15c3 Line {l1=0x10, l2=» END;«, l3=0x10}
0x15c3…15d6 Line {l1=0x11, l2=» PICTURE: BEGIN«, l3=0x11}
0x15d6…15f8 Line {l1=0x20, l2=» NEW(THIS,PICTURE);«, l3=0x20}
0x15f8…1615 Line {l1=0x1b, l2=» THIS^:=FFIL^;«, l3=0x1b}
0x1615…1627 Line {l1=0x10, l2=» (*«, l3=0x10}
0x1627…1652 Line {l1=0x29, l2=» THIS^.ELEMENTTYPE:=PICTURE;«, l3=0x29}
0x1652…167f Line {l1=0x2b, l2=» THIS^.PICTPOS:=FFIL^.PICTPOS;«, l3=0x2b}
0x167f…16b4 Line {l1=0x33, l2=» THIS^.NEXTELEMENT:=FFIL^.NEXTELEMENT;«, l3=0x33}
0x16b4…16c6 Line {l1=0x10, l2=» *)«, l3=0x10}
0x16c6…16f2 Line {l1=0x2a, l2=» IF THIS^.FØRSTFELT<>NIL THEN«, l3=0x2a}
0x16f2…171a Line {l1=0x26, l2=» THIS^.FØRSTFELT:=NÆSTE«, l3=0x26}
0x171a…172c Line {l1=0x10, l2=» END;«, l3=0x10}
0x172c…1741 Line {l1=0x13, l2=» INDKOMMANDO:BEGIN«, l3=0x13}
0x1741…1769 Line {l1=0x26, l2=» NEW(THIS,INDKOMMANDO);«, l3=0x26}
0x1769…1788 Line {l1=0x1d, l2=» THIS^:=FFIL^;«, l3=0x1d}
0x1788…17ce Line {l1=0x44, l2=» IF THIS^.FØRSTNØGL<>NIL THEN THIS^.FØRSTNØGL:=NÆSTE;«, l3=0x44}
0x17ce…17e2 Line {l1=0x12, l2=» END;«, l3=0x12}
0x17e2…17f6 Line {l1=0x12, l2=» UDKOMMANDO:BEGIN«, l3=0x12}
0x17f6…181c Line {l1=0x24, l2=» NEW(THIS,UDKOMMANDO);«, l3=0x24}
0x181c…1839 Line {l1=0x1b, l2=» THIS^:=FFIL^«, l3=0x1b}
0x1839…184c Line {l1=0x11, l2=» END;«, l3=0x11}
0x184c…185b Line {l1=0x0d, l2=» NØGLE:BEGIN«, l3=0x0d}
0x185b…1877 Line {l1=0x1a, l2=» NEW(THIS,NØGLE);«, l3=0x1a}
0x1877…188f Line {l1=0x16, l2=» THIS^:=FFIL^«, l3=0x16}
0x188f…189d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x189d…18ad Line {l1=0x0e, l2=» GENTAG:BEGIN«, l3=0x0e}
0x18ad…18cb Line {l1=0x1c, l2=» NEW(THIS,GENTAG);«, l3=0x1c}
0x18cb…18e5 Line {l1=0x18, l2=» THIS^:=FFIL^;«, l3=0x18}
0x18e5…1926 Line {l1=0x3f, l2=» IF THIS^.FIRSTFELT<>NIL THEN THIS^.FIRSTFELT:=NÆSTE;«, l3=0x3f}
0x1926…1968 Line {l1=0x40, l2=» IF THIS^.BETINGELSE<>NIL THEN THIS^.BETINGELSE:=NÆSTE«, l3=0x40}
0x1968…1977 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x1977…1987 Line {l1=0x0e, l2=» BEREGN:BEGIN«, l3=0x0e}
0x1987…19a5 Line {l1=0x1c, l2=» NEW(THIS,BEREGN);«, l3=0x1c}
0x19a5…19bf Line {l1=0x18, l2=» THIS^:=FFIL^;«, l3=0x18}
0x19bf…19f9 Line {l1=0x38, l2=» IF THIS^.UDTRYK<>NIL THEN THIS^.UDTRYK:=NÆSTE«, l3=0x38}
0x19f9…1a08 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x1a08…1a1b Line {l1=0x11, l2=» VALIDITET:BEGIN«, l3=0x11}
0x1a1b…1a45 Line {l1=0x28, l2=» CASE FFIL^.VALIDITYTYPE OF«, l3=0x28}
0x1a45…1a7d Line {l1=0x36, l2=» HINTERVAL:NEW(THIS,VALIDITET,HINTERVAL);«, l3=0x36}
0x1a7d…1ab5 Line {l1=0x36, l2=» DINTERVAL:NEW(THIS,VALIDITET,DINTERVAL);«, l3=0x36}
0x1ab5…1aed Line {l1=0x36, l2=» RINTERVAL:NEW(THIS,VALIDITET,RINTERVAL);«, l3=0x36}
0x1aed…1b1f Line {l1=0x30, l2=» DATO,CPR :NEW(THIS,VALIDITET,DATO)«, l3=0x30}
0x1b1f…1b33 Line {l1=0x12, l2=» END;«, l3=0x12}
0x1b33…1b4f Line {l1=0x1a, l2=» THIS^:=FFIL^«, l3=0x1a}
0x1b4f…1b61 Line {l1=0x10, l2=» END;«, l3=0x10}
0x1b61…1b6f Line {l1=0x0c, l2=» FELT:BEGIN«, l3=0x0c}
0x1b6f…1b90 Line {l1=0x1f, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1f}
0x1b90…1bb4 Line {l1=0x22, l2=» REEL:NEW(THIS,FELT,REEL);«, l3=0x22}
0x1bb4…1be9 Line {l1=0x33, l2=» HELTAL,DOBBTAL,TEKST:NEW(THIS,FELT,HELTAL)«, l3=0x33}
0x1be9…1bf8 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x1bf8…1c0f Line {l1=0x15, l2=» THIS^:=FFIL^«, l3=0x15}
0x1c0f…1c1c Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1c1c…1c2b Line {l1=0x0d, l2=» KSLOP:BEGIN«, l3=0x0d}
0x1c2b…1c4b Line {l1=0x1e, l2=» CASE FFIL^.POLISH OF«, l3=0x1e}
0x1c4b…1c7d Line {l1=0x30, l2=» EXPRESSION:NEW(THIS,KSLOP,EXPRESSION);«, l3=0x30}
0x1c7d…1cac Line {l1=0x2d, l2=» SIMPLEX :NEW(THIS,KSLOP,SIMPLEX);«, l3=0x2d}
0x1cac…1cd8 Line {l1=0x2a, l2=» TERM :NEW(THIS,KSLOP,TERM);«, l3=0x2a}
0x1cd8…1d05 Line {l1=0x2b, l2=» FACTOR :CASE FFIL^.FACTTYPE OF«, l3=0x2b}
0x1d05…1d45 Line {l1=0x3e, l2=» CONSTVAR:NEW(THIS,KSLOP,FACTOR,CONSTVAR);«, l3=0x3e}
0x1d45…1d8a Line {l1=0x43, l2=» LPEXPRP,NOTFACT:NEW(THIS,KSLOP,FACTOR,LPEXPRP)«, l3=0x43}
0x1d8a…1da4 Line {l1=0x18, l2=» END«, l3=0x18}
0x1da4…1db4 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1db4…1dcd Line {l1=0x17, l2=» THIS^:=FFIL^;«, l3=0x17}
0x1dcd…1e06 Line {l1=0x37, l2=» IF THIS^.SECOND<>NIL THEN THIS^.SECOND:=NÆSTE«, l3=0x37}
0x1e06…1e13 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1e13…1e1b Line {l1=0x06, l2=» END;«, l3=0x06}
0x1e1b…1e57 Line {l1=0x3a, l2=» IF THIS^.NEXTELEMENT<>NIL THEN THIS^.NEXTELEMENT:=NÆSTE;«, l3=0x3a}
0x1e57…1e66 Line {l1=0x0d, l2=» NÆSTE:=THIS«, l3=0x0d}
0x1e66…1e6c Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e6c…1e73 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1e73…1e7e Line {l1=0x09, l2=» INDNUL;«, l3=0x09}
0x1e7e…1ea6 Line {l1=0x26, l2=» REWRITE(FFIL,AKTULIST.DESCLIST);IOC;«, l3=0x26}
0x1ea6…1ebb Line {l1=0x13, l2=» LISTEHOVED:=NÆSTE«, l3=0x13}
0x1ebb…1ee4 Line {l1=0x27, l2=» (*INDLÆS NEXTELEMENT, SÆT REFERENCE*)«, l3=0x27}
0x1ee4…1eea Line {l1=0x04, l2=»END;«, l3=0x04}
0x1eea…1ef2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1ef2…1f08 Line {l1=0x14, l2=»PROCEDURE UDELEMENT;«, l3=0x14}
0x1f08…1f1e Line {l1=0x14, l2=»VAR FFIL:ELEMENTFIL;«, l3=0x14}
0x1f1e…1f30 Line {l1=0x10, l2=»PROCEDURE UDNUL;«, l3=0x10}
0x1f30…1f43 Line {l1=0x11, l2=»VAR FIL0:ZEROFIL;«, l3=0x11}
0x1f43…1f4a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f4a…1f6a Line {l1=0x1e, l2=» FNAVN:='ZEROFILE:P2:0000:S';«, l3=0x1e}
0x1f6a…1f86 Line {l1=0x1a, l2=» REWRITE(FIL0,FNAVN);IOC;«, l3=0x1a}
0x1f86…1faa Line {l1=0x22, l2=» SEEK(FIL0,AKTULIST.ZPOSTNR);IOC;«, l3=0x22}
0x1faa…1fbd Line {l1=0x11, l2=» FIL0^:=POST(0);«, l3=0x11}
0x1fbd…1fce Line {l1=0x0f, l2=» PUT(FIL0);IOC«, l3=0x0f}
0x1fce…1fd4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1fd4…1ff3 Line {l1=0x1d, l2=»PROCEDURE UD(VAR EL:ELEMENT);«, l3=0x1d}
0x1ff3…1ffa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ffa…2009 Line {l1=0x0d, l2=» FFIL^:=EL^;«, l3=0x0d}
0x2009…201b Line {l1=0x10, l2=» PUT(FFIL);IOC;«, l3=0x10}
0x201b…2036 Line {l1=0x19, l2=» CASE EL^.ELEMENTTYPE OF«, l3=0x19}
0x2036…206f Line {l1=0x37, l2=» PICTURE:IF EL^.FØRSTFELT<>NIL THEN UD(EL^.FØRSTFELT);«, l3=0x37}
0x206f…20ac Line {l1=0x3b, l2=» INDKOMMANDO:IF EL^.FØRSTNØGL<>NIL THEN UD(EL^.FØRSTNØGL);«, l3=0x3b}
0x20ac…20bc Line {l1=0x0e, l2=» GENTAG:BEGIN«, l3=0x0e}
0x20bc…20f6 Line {l1=0x38, l2=» IF EL^.FIRSTFELT<>NIL THEN UD(EL^.FIRSTFELT);«, l3=0x38}
0x20f6…2131 Line {l1=0x39, l2=» IF EL^.BETINGELSE<>NIL THEN UD(EL^.BETINGELSE)«, l3=0x39}
0x2131…2140 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x2140…2172 Line {l1=0x30, l2=» BEREGN:IF EL^.UDTRYK<>NIL THEN UD(EL^.UDTRYK);«, l3=0x30}
0x2172…21a2 Line {l1=0x2e, l2=» KSLOP:IF EL^.SECOND<>NIL THEN UD(EL^.SECOND)«, l3=0x2e}
0x21a2…21aa Line {l1=0x06, l2=» END;«, l3=0x06}
0x21aa…21de Line {l1=0x32, l2=» IF EL^.NEXTELEMENT<>NIL THEN UD(EL^.NEXTELEMENT)«, l3=0x32}
0x21de…21e4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x21e4…21eb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x21eb…21f5 Line {l1=0x08, l2=» UDNUL;«, l3=0x08}
0x21f5…221d Line {l1=0x26, l2=» REWRITE(FFIL,AKTULIST.DESCLIST);IOC;«, l3=0x26}
0x221d…222f Line {l1=0x10, l2=» UD(LISTEHOVED)«, l3=0x10}
0x222f…2235 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2235…223d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x223d…2240 00 00 4c ┆ L┆
0x2240…2260 54 3d 5e 46 45 4c 54 42 45 53 4b 52 49 56 45 4c 53 45 3b 17 0f 53 4b 5b 52 4d 50 4f 53 3d 52 45 ┆T=^FELTBESKRIVELSE; SKÆRMPOS=RE┆
0x2260…2280 43 4f 52 44 0f 0e 20 20 20 58 2c 59 3a 49 4e 54 45 47 45 52 0e 04 45 4e 44 3b 04 25 42 45 53 4b ┆CORD X,Y:INTEGER END; %BESK┆
0x2280…22a0 52 49 56 45 4c 53 45 53 54 59 50 45 3d 28 46 45 4c 54 44 45 53 43 2c 56 41 4c 49 44 45 53 43 29 ┆RIVELSESTYPE=(FELTDESC,VALIDESC)┆
0x22a0…22c0 3b 25 16 46 45 4c 54 42 45 53 4b 52 49 56 45 4c 53 45 3d 52 45 43 4f 52 44 16 12 20 20 20 4e 5b ┆;% FELTBESKRIVELSE=RECORD NÆ┆
0x22c0…22e0 53 54 45 56 41 4c 3a 4e 46 45 4c 54 3b 12 16 20 20 20 46 45 4c 54 4e 41 56 4e 3a 53 54 52 49 4e ┆STEVAL:NFELT; FELTNAVN:STRIN┆
0x22e0…2300 47 28 38 29 3b 16 24 20 20 20 43 41 53 45 20 44 45 53 43 54 59 50 45 3a 42 45 53 4b 52 49 56 45 ┆G(8); $ CASE DESCTYPE:BESKRIVE┆
0x2300…2320 e5 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x2320…2340 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2400…2420 e5 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x2420…2440 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2500…2520 e5 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x2520…2540 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x2600…2620 e5 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x2620…2640 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]