|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 32864 (0x8060)
Types: TextFile
Notes: Mikados_K
Names: »LISTEGEN.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »LISTEGEN.K«
PROGRAM LISTEGEN;
CONST MAXFELT=30;
MAXFILES=20;
NULREAL=1.0;
NULINT=41; (*10 REALS*)
NULCHAR=101; (*10 INTEGERS, 400 CHARS*)
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
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;
AR=ARRAY (-4..-4) OF INTEGER;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
PPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..250) 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;
FELTINFO=RECORD
FELTNAVN:STRING(8);
INDEKS:INTEGER;
FELTTYPE:FTYPE
END;
FILEINFO=RECORD
USENR:INTEGER;
POSTNAVN:STRING(18);
FELTINF:ARRAY (0..MAXFELT) OF FELTINFO
END;
VAR
PARM:^PARMARRAY;
QUQ:^INTEGER;
LISTEHOVED,LISTEELEMENT: ELEMENT;
PRNIVEAU,NROFFILES,LINES,OPTION,IER,I,J,CDECS,CLÆNG,FORAN0:INTEGER;
CONSTANT:REAL;
SYM:STRING;
SCH:STRING(1);
SYMBOL:SYMBOLTYPE;
LINE:STRING;
LISTENAVN:STRING(8);
POST:ARRAY (0..0) OF PPOST;
FILINFO:ARRAY (0..MAXFILES) OF FILEINFO;
FNAVN:STRING(18);
AKTULIST:LISTTYPE;
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;
CH:CHAR;
CHGTYPE:ARRAY (1..5) OF PACKED ARRAY (1..16) OF CHAR;
OKSET:ARRAY (1..5) OF INTEGER;
SINGLE,CHANGING:BOOLEAN;
SAVE:ARRAY (0..10) OF ELEMENT;
(*$P*)
PROCEDURE IOC;
VAR IOR:INTEGER;
BEGIN
IOR:=IORESULT;
IF IOR<>0 THEN
BEGIN
CLEARSCREEN;
GOTOXY(1,10);
WRITELN('Pladefejl ',IOR:5,' RETURN');
SCH:=' ';
EDIT(SCH);
IF SCH<>'R' THEN EXIT(LISTEGEN)
END
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 ';
CHGTYPE(1):='Fortsæt vandret ';
CHGTYPE(2):='Fortsæt lodret ';
CHGTYPE(3):='Tilbage (afstak)';
CHGTYPE(4):='Oplys ';
CHGTYPE(5):='Ændring '
END;
(*$P*)
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*)
PROCEDURE OPLYS;
VAR I,OPTION:INTEGER;
NÅET:BOOLEAN;
BEGIN
CLEARSCREEN;
WRITE('Poster/felter:1, Listestruktur:2');
REPEAT
GOTOXY(40,1);READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=2);
CASE OPTION OF
1:BEGIN
CLEARSCREEN;
I:=0;
NÅET:=FALSE;
REPEAT
IF FILINFO(I).POSTNAVN(1)<>'@' THEN
BEGIN
WRITELN(I:3,' ':3,FILINFO(I).POSTNAVN);
I:=I+1
END
ELSE NÅET:=TRUE
UNTIL (NÅET) OR (I>MAXFILES);
I:=I-1;
REPEAT
GOTOXY(1,23);
WRITE('Vælg post ');READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=0) AND (OPTION<=I);
CLEARSCREEN;
WITH FILINFO(OPTION) DO
BEGIN
WRITELN('Postnavn ',POSTNAVN,' Usenr',USENR:3);
I:=0;
NÅET:=FALSE;
REPEAT
IF FELTINF(I).FELTNAVN(1)<>'@' THEN
WITH FELTINF(I) DO
BEGIN
WRITELN(FELTNAVN,INDEKS:5,' ',FELTYPE(ORD(FELTTYPE)));
I:=I+1
END
ELSE NÅET:=TRUE
UNTIL (NÅET) OR (I>MAXFELT);
WRITE('RETURN');READLN
END
END;
2:BEGIN
PRNIVEAU:=0;
IF LISTEHOVED^.ELEMENTTYPE=LISTEDESC THEN
PRINTEL(LISTEHOVED)
END
END
END;
(*$P*)
(*$IREADINFO*)
PROCEDURE GETSYM;
VAR DECFACTOR:REAL;
I:INTEGER;
PROCEDURE NEXTCH;
BEGIN
IF (CH<>' ') AND (EOLN) THEN
CH:='ü'
ELSE
BEGIN
WHILE EOLN DO READLN;
READ(CH)
END
END;
BEGIN (*GETSYM*)
WHILE CH=' ' DO NEXTCH;
SCH:=' ';
IF CH='ü' THEN
BEGIN
SYMBOL:=SLUTSYM;
CH:=' '
END
ELSE
BEGIN
IF CH IN (.'0'..'9'.) THEN
BEGIN
CONSTANT:=0.0;
SYMBOL:=CONSTSYM;
CDECS:=0;
CLÆNG:=0;
IF CH='0' THEN FORAN0:=1 ELSE FORAN0:=0;
REPEAT
CONSTANT:=10.0*CONSTANT+ORD(CH)-ORD('0');
CLÆNG:=CLÆNG+1;
NEXTCH
UNTIL NOT (CH IN (.'0'..'9'.));
IF CH='.' THEN
BEGIN
CLÆNG:=CLÆNG+1;
DECFACTOR:=1.0;
NEXTCH;
WHILE CH IN (.'0'..'9'.) DO
BEGIN
DECFACTOR:=DECFACTOR*0.1;
CONSTANT:=CONSTANT+DECFACTOR*(ORD(CH)-ORD('0'));
CDECS:=CDECS+1;
CLÆNG:=CLÆNG+1;
NEXTCH
END
END;
FORAN0:=FORAN0*CLÆNG
END
ELSE
IF CH IN (.'A'..'Å','a'..'å'.) THEN
BEGIN
SYM:='';
REPEAT
SCH(1):=CH;
SYM:=CONCAT(SYM,SCH);
NEXTCH
UNTIL NOT (CH IN (.'0'..'9','A'..'Å','a'..'å'.));
IF CH='.' THEN SYMBOL:=POSTSYM ELSE SYMBOL:=IDENTSYM;
IF SYM='OR' THEN SYMBOL:=OROP;
IF SYM='AND' THEN SYMBOL:=ANDOP;
IF SYM='MOD' THEN SYMBOL:=MODOP;
IF SYM='DIV' THEN SYMBOL:=DIVOP;
IF SYM='NOT' THEN SYMBOL:=NOTOP
END
ELSE
CASE CH OF
'''':BEGIN
SYMBOL:=TEKSTSYM;
CLÆNG:=0;
SYM:='';
NEXTCH;
WHILE CH<>'''' DO
BEGIN
SCH(1):=CH;
SYM:=CONCAT(SYM,SCH);
CLÆNG:=CLÆNG+1;
NEXTCH
END;
NEXTCH
END;
'+':BEGIN SYMBOL:=PLUS;NEXTCH END;
'-':BEGIN SYMBOL:=MINUS;NEXTCH END;
'*':BEGIN SYMBOL:=TIMES;NEXTCH END;
'/':BEGIN SYMBOL:=SLASH;NEXTCH END;
'(':BEGIN SYMBOL:=LPAREN;NEXTCH END;
')':BEGIN SYMBOL:=RPAREN;NEXTCH END;
'.':BEGIN SYMBOL:=PERIOD;NEXTCH END;
'<':BEGIN
NEXTCH;
IF CH='=' THEN
BEGIN SYMBOL:=LEQ; NEXTCH END ELSE
IF CH='>' THEN
BEGIN SYMBOL:=NEQ; NEXTCH END ELSE
SYMBOL:=LSS
END;
'>':BEGIN
NEXTCH;
IF CH='=' THEN
BEGIN SYMBOL:=GEQ; NEXTCH END ELSE
IF CH='<' THEN
BEGIN SYMBOL:=NEQ; NEXTCH END ELSE
SYMBOL:=GTR
END;
'=':BEGIN
NEXTCH;
IF CH='<' THEN
BEGIN SYMBOL:=LEQ; NEXTCH END ELSE
IF CH='>' THEN
BEGIN SYMBOL:=GEQ; NEXTCH END ELSE
SYMBOL:=EQL
END
OTHERWISE
BEGIN
SYMBOL:=OTHERSYM;
NEXTCH
END
END;
WRITELN('SYMTYPE ',ORD(SYMBOL):5,' SYMBOL ',SYM);DELAY(100)
END;
(*$P*)
PROCEDURE INDSYM;
BEGIN
READLN;
CH:=' ';
GETSYM
END;
PROCEDURE SYNTFEJL(EXPECSYM:SYMBOLTYPE);
BEGIN
WRITELN('SYNTAKSFEJL',ORD(EXPECSYM):5);
REPEAT
INDSYM
UNTIL SYMBOL=EXPECSYM
(*SKAL UDBYGGES*)
END;
(*$P*)
FUNCTION LODRET:ELEMENT;
FORWARD;
FUNCTION VANDRET:ELEMENT;
FORWARD;
FUNCTION EXPR:ELEMENT;
FORWARD;
(*$P*)
FUNCTION GENTAGELSE:ELEMENT;
VAR THIS:ELEMENT;
OPTION:INTEGER;
BEGIN
NEW(THIS,GENTAG);
THIS^.ELEMENTTYPE:=GENTAG;
CLEARSCREEN;
REPEAT
GOTOXY(1,2);
WRITELN('RELATIV POSITIONSÆNDRING DX DY');
GOTOXY(32,2);
READLN;READ(THIS^.POSINCR.X,THIS^.POSINCR.Y)
(*CHECK*)
UNTIL IORESULT=0;
REPEAT
GOTOXY(1,3);
WRITELN('LØKKETYPE: REPEAT:1, WHILE:2');
GOTOXY(32,3);
READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=2);
IF OPTION=1 THEN THIS^.LØKKETYPE:=REPETE ELSE THIS^.LØKKETYPE:=WAILE;
THIS^.FIRSTFELT:=NIL;THIS^.NEXTELEMENT:=NIL;
GOTOXY(1,4);
WRITELN('Betingelse ');
GOTOXY(12,4);
INDSYM;
THIS^.BETINGELSE:=EXPR;
THIS^.FIRSTFELT:=VANDRET;
THIS^.NEXTELEMENT:=LODRET;
GENTAGELSE:=THIS
END;
(*$P*)
FUNCTION BILLEDE:ELEMENT;
VAR THIS:ELEMENT;
OPTION:INTEGER;
BEGIN
NEW(THIS,PICTURE);
THIS^.ELEMENTTYPE:=PICTURE;
CLEARSCREEN;
GOTOXY(1,2);
WRITELN('Billednavn');
GOTOXY(12,2);
THIS^.PICTNAVN:=' ';
EDIT(THIS^.PICTNAVN);
REPEAT
GOTOXY(1,3);
WRITELN('Relativ positionsændring X Y');
GOTOXY(32,3);
READLN;READ(THIS^.PICTPOS.X,THIS^.PICTPOS.Y)
(*CHECK*)
UNTIL IORESULT=0;
THIS^.FØRSTFELT:=NIL;THIS^.NEXTELEMENT:=NIL;
THIS^.FØRSTFELT:=VANDRET;
THIS^.NEXTELEMENT:=LODRET;
BILLEDE:=THIS
END;
(*$P*)
FUNCTION FIELD:ELEMENT;
VAR THIS:ELEMENT;
OPTION:INTEGER;
BEGIN
CLEARSCREEN;
REPEAT
GOTOXY(1,2);
WRITELN('Felttype: REEL:1, HELTAL:2, DOBBTAL:3, TEKST:4');
GOTOXY(48,2);
READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=4);
IF OPTION=1 THEN NEW(THIS,FELT,REEL) ELSE NEW(THIS,FELT,HELTAL);
THIS^.NEXTELEMENT:=NIL;
THIS^.ELEMENTTYPE:=FELT;
CASE OPTION OF
1:THIS^.FELTTYPE:=REEL;
2:THIS^.FELTTYPE:=HELTAL;
3:THIS^.FELTTYPE:=DOBBTAL;
4:THIS^.FELTTYPE:=TEKST
END;
REPEAT
GOTOXY(1,3);
WRITELN('Relativ position X Y');
GOTOXY(23,3);
READLN;READ(THIS^.INDPOS.X,THIS^.INDPOS.Y)
(*CHECK*)
UNTIL IORESULT=0;
REPEAT
GOTOXY(1,4);
WRITELN('Udskrivning -1, Indlæsning 0, Editering 1');
GOTOXY(43,4);
READLN;READ(THIS^.EDITERING)
UNTIL (IORESULT=0) AND (THIS^.EDITERING>=-1) AND (THIS^.EDITERING<=1);
REPEAT
GOTOXY(1,5);
WRITELN('Længde');
GOTOXY(8,5);READLN;READ(THIS^.LÆNGDE)
UNTIL IORESULT=0;
REPEAT
GOTOXY(1,6);
WRITELN('FORAN0');
GOTOXY(8,6);READLN;READ(THIS^.FORAN0)
UNTIL IORESULT=0;
IF THIS^.FELTTYPE=REEL THEN
REPEAT
GOTOXY(1,7);
WRITELN('Decimaler');
GOTOXY(11,7);READLN;READ(THIS^.DEC)
UNTIL IORESULT=0;
GOTOXY(1,8);
WRITELN('Indlæs felt');
GOTOXY(13,8);
INDSYM;
IF SYMBOL=TEKSTSYM THEN
BEGIN
WRITELN(ORD(POST(0).AA(-11)):10,ORD(POST(0).AA(-10)):10);DELAY(100);
THIS^.INDEKS:=100*ORD(POST(0).AA(-11))+ORD(POST(0).AA(-10));
WRITELN(THIS^.INDEKS:10,CLÆNG:10);DELAY(100);
MOVELEFT(SYM(1),POST(0).AA(THIS^.INDEKS),CLÆNG);
THIS^.POSTREF:=0;
POST(0).AA(-11):=CHR((THIS^.INDEKS+CLÆNG) DIV 100);
POST(0).AA(-10):=CHR((THIS^.INDEKS+CLÆNG) MOD 100);
THIS^.NEXTELEMENT:=VANDRET
END
ELSE
BEGIN
THIS^.NEXTELEMENT:=EXPR;
IF (THIS^.NEXTELEMENT^.NEXTELEMENT=NIL) OR (THIS^.EDITERING>=0) THEN
BEGIN
THIS^.INDEKS:=THIS^.NEXTELEMENT^.CVDEKS;
THIS^.POSTREF:=THIS^.NEXTELEMENT^.CVREF;
THIS^.NEXTELEMENT:=VANDRET
END
ELSE
BEGIN
THIS^.POSTREF:=0;
CASE THIS^.FELTTYPE OF
REEL:THIS^.INDEKS:=0;
HELTAL,DOBBTAL:THIS^.INDEKS:=-4
END
END
END;
FIELD:=THIS
END;
(*$P*)
FUNCTION FACTØR:ELEMENT;
VAR THIS:ELEMENT;
FILNR,POSTNR:INTEGER;
BEGIN
CASE SYMBOL OF
LPAREN:BEGIN
NEW(THIS,KSLOP,FACTOR,LPEXPRP);
THIS^.FACTTYPE:=LPEXPRP;
GETSYM;
THIS^.NEXTELEMENT:=EXPR;
IF SYMBOL<>RPAREN THEN SYNTFEJL(RPAREN);
GETSYM
END;
NOTOP: BEGIN
NEW(THIS,KSLOP,FACTOR,NOTFACT);
THIS^.FACTTYPE:=NOTFACT;
GETSYM;
THIS^.NEXTELEMENT:=FACTØR
END;
CONSTSYM:
BEGIN
NEW(THIS,KSLOP,FACTOR,CONSTVAR);
THIS^.FACTTYPE:=CONSTVAR;
THIS^.CVREF:=0;
THIS^.NEXTELEMENT:=NIL;
IF CDECS>0 THEN
BEGIN
THIS^.CVTYPE:=REEL;
THIS^.CVDEKS:=TRUNC(POST(0).AAA(0));
POST(0).AAA(THIS^.CVDEKS):=CONSTANT;
POST(0).AAA(0):=POST(0).AAA(0)+1.0
END
ELSE
IF CONSTANT<=32767.0 THEN
BEGIN
THIS^.CVTYPE:=HELTAL;
THIS^.CVDEKS:=POST(0).A(-4);
POST(0).A(THIS^.CVDEKS):=TRUNC(CONSTANT);
POST(0).A(-4):=POST(0).A(-4)+1
END
ELSE
BEGIN
THIS^.CVTYPE:=DOBBTAL;
THIS^.CVDEKS:=POST(0).A(-4);
POST(0).A(THIS^.CVDEKS):=TRUNC(CONSTANT/10000.0);
POST(0).A(THIS^.CVDEKS+1):=TRUNC(CONSTANT-10000.0*
POST(0).A(THIS^.CVDEKS));
POST(0).A(-4):=POST(0).A(-4)+2
END;
GETSYM
END;
POSTSYM:
BEGIN
REPEAT
FILNR:=0;
REPEAT
FILNR:=FILNR+1
UNTIL (FILNR=MAXFILES) OR (FILINFO(FILNR).POSTNAVN=SYM);
IF FILINFO(FILNR).POSTNAVN<>SYM THEN SYNTFEJL(POSTSYM)
UNTIL FILINFO(FILNR).POSTNAVN=SYM;
NEW(THIS,KSLOP,FACTOR,CONSTVAR);
THIS^.FACTTYPE:=CONSTVAR;
THIS^.NEXTELEMENT:=NIL;
IF FILINFO(FILNR).USENR=0 THEN
BEGIN
REPEAT
FILINFO(FILNR).USENR:=FILINFO(FILNR).USENR+1
UNTIL LISTEHOVED^.FILES(FILINFO(FILNR).USENR)=0;
LISTEHOVED^.FILES(FILINFO(FILNR).USENR):=FILNR
END;
THIS^.CVREF:=FILINFO(FILNR).USENR;
GETSYM; IF SYMBOL<>PERIOD THEN SYNTFEJL(PERIOD);
GETSYM; IF SYMBOL<>IDENTSYM THEN SYNTFEJL(IDENTSYM);
REPEAT
POSTNR:=-1;
REPEAT
POSTNR:=POSTNR+1
UNTIL (POSTNR=MAXFELT) OR
(FILINFO(FILNR).FELTINF(POSTNR).FELTNAVN=SYM);
IF FILINFO(FILNR).FELTINF(POSTNR).FELTNAVN<>SYM THEN
SYNTFEJL(IDENTSYM)
UNTIL FILINFO(FILNR).FELTINF(POSTNR).FELTNAVN=SYM;
THIS^.CVDEKS:=FILINFO(FILNR).FELTINF(POSTNR).INDEKS;
THIS^.CVTYPE:=FILINFO(FILNR).FELTINF(POSTNR).FELTTYPE;
GETSYM
END;
IDENTSYM:
BEGIN (*HJÆLPEVARIABEL, FELT I NULPOSTEN*)
REPEAT
POSTNR:=-1;
REPEAT
POSTNR:=POSTNR+1
UNTIL (POSTNR=MAXFELT) OR
(FILINFO(0).FELTINF(POSTNR).FELTNAVN=SYM);
IF FILINFO(0).FELTINF(POSTNR).FELTNAVN<>SYM THEN SYNTFEJL(IDENTSYM)
UNTIL FILINFO(0).FELTINF(POSTNR).FELTNAVN=SYM;
NEW(THIS,KSLOP,FACTOR,CONSTVAR);
THIS^.FACTTYPE:=CONSTVAR;
THIS^.NEXTELEMENT:=NIL;
THIS^.CVREF:=0;
THIS^.CVDEKS:=FILINFO(0).FELTINF(POSTNR).INDEKS;
THIS^.CVTYPE:=FILINFO(0).FELTINF(POSTNR).FELTTYPE;
GETSYM
END
END;
THIS^.ELEMENTTYPE:=KSLOP;
THIS^.POLISH:=FACTOR;
THIS^.SECOND:=NIL;
FACTØR:=THIS
END;
(*$P*)
FUNCTION TÆRM:ELEMENT;
VAR THIS,NEXT:ELEMENT;
BEGIN
NEXT:=FACTØR;
IF SYMBOL IN (.TIMES..ANDOP.) THEN
BEGIN
NEW(THIS,KSLOP,TERM);
THIS^.NEXTELEMENT:=NEXT;
THIS^.POLISH:=TERM;
THIS^.TRMOP:=SYMBOL;
GETSYM;
THIS^.SECOND:=FACTØR;
TÆRM:=THIS
END
ELSE TÆRM:=NEXT
END;
(*$P*)
(*$L+*)
FUNCTION SIMPLEEXPR:ELEMENT;
VAR THIS,NEXT:ELEMENT;
BEGIN
IF SYMBOL IN (.PLUS,MINUS.) THEN
BEGIN
NEW(THIS,KSLOP,SIMPLEX);
THIS^.ELEMENTTYPE:=KSLOP;
THIS^.POLISH:=SIMPLEX;
THIS^.SIMOP1:=SYMBOL;
GETSYM
END ELSE THIS:=NIL;
NEXT:=TÆRM;
IF SYMBOL IN (.PLUS,MINUS,OROP.) THEN
BEGIN
IF THIS=NIL THEN
BEGIN
NEW(THIS,KSLOP,SIMPLEX);
THIS^.ELEMENTTYPE:=KSLOP;
THIS^.POLISH:=SIMPLEX;
THIS^.SIMOP1:=OROP (*INGEN 1. OPERATOR*)
END;
THIS^.SIMOP2:=SYMBOL;
THIS^.NEXTELEMENT:=NEXT;
GETSYM;
THIS^.SECOND:=TÆRM;
SIMPLEEXPR:=THIS
END
ELSE
BEGIN
IF THIS=NIL THEN SIMPLEEXPR:=NEXT
ELSE
BEGIN
THIS^.NEXTELEMENT:=NEXT;
THIS^.SECOND:=NIL;
THIS^.SIMOP2:=OROP; (*INGEN 2. OPERATOR*)
SIMPLEEXPR:=THIS
END
END
END;
(*$P*)
FUNCTION EXPR; (*:ELEMENT*)
VAR THIS,NEXT:ELEMENT;
BEGIN
NEXT:=SIMPLEEXPR;
IF SYMBOL IN (.EQL..GEQ.) THEN
BEGIN
NEW(THIS,KSLOP,EXPRESSION);
THIS^.ELEMENTTYPE:=KSLOP;
THIS^.POLISH:=EXPRESSION;
THIS^.NEXTELEMENT:=NEXT;
THIS^.EXPOP:=SYMBOL;
GETSYM;
THIS^.SECOND:=SIMPLEEXPR;
EXPR:=THIS
END
ELSE
EXPR:=NEXT
END;
(*$P*)
FUNCTION BEREGNING:ELEMENT;
VAR THIS:ELEMENT;
OPTION,POSTNR:INTEGER;
BEGIN
NEW(THIS,BEREGN);
THIS^.ELEMENTTYPE:=BEREGN;
CLEARSCREEN;
REPEAT
WRITELN('Hvilket felt skal beregnes?');
GOTOXY(29,1);INDSYM
UNTIL SYMBOL IN (.POSTSYM..IDENTSYM.);
IF SYMBOL=IDENTSYM THEN
BEGIN
POSTNR:=0;
REPEAT
POSTNR:=POSTNR+1
UNTIL (FILINFO(0).FELTINF(POSTNR).FELTNAVN=SYM) OR
(FILINFO(0).FELTINF(POSTNR).FELTNAVN='@');
IF FILINFO(0).FELTINF(POSTNR).FELTNAVN='@' THEN
WITH FILINFO(0).FELTINF(POSTNR) DO
BEGIN
FELTNAVN:=SYM;
REPEAT
GOTOXY(1,2);
WRITELN('Felttype: REEL:1, HELTAL:2, DOBBTAL:3');
GOTOXY(48,2);READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=3);
CASE OPTION OF
1:BEGIN
FELTTYPE:=REEL;
INDEKS:=TRUNC(POST(0).AAA(0));
POST(0).AAA(0):=POST(0).AAA(0)+1.0
END;
2:BEGIN
FELTTYPE:=HELTAL;
INDEKS:=POST(0).A(-4);
POST(0).A(-4):=POST(0).A(-4)+1
END;
3:BEGIN
FELTTYPE:=DOBBTAL;
INDEKS:=POST(0).A(-4);
POST(0).A(-4):=POST(0).A(-4)+2
END
END
END
END;
THIS^.NEXTELEMENT:=FACTØR;
THIS^.GEMREF:=THIS^.NEXTELEMENT^.CVREF;
THIS^.GEMINDEKS:=THIS^.NEXTELEMENT^.CVDEKS;
THIS^.UDTRYKTYPE:=THIS^.NEXTELEMENT^.CVTYPE;
WRITELN('Udtryk');
GOTOXY(10,2);
INDSYM;
THIS^.UDTRYK:=EXPR;
THIS^.NEXTELEMENT:=NIL;
THIS^.NEXTELEMENT:=VANDRET;
BEREGNING:=THIS
END;
(*$P*)
FUNCTION IOKOMM:ELEMENT;
VAR FILNR,OPTION,MODE:INTEGER;
THIS:ELEMENT;
BEGIN
CLEARSCREEN;
WRITELN('Læs: 1, Skriv: 2');
REPEAT
GOTOXY(18,1);
READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=2);
WRITELN('MODE (se behandling af INDKOMMANDO i UDFØR i LISTE)');
REPEAT
GOTOXY(54,2);
READLN;READ(MODE)
UNTIL (IORESULT=0) AND (MODE MOD 10>=1) AND (MODE MOD 10<=3) AND
(MODE DIV 10<=5);
REPEAT
GOTOXY(1,3);
WRITELN('Post');
GOTOXY(6,3);
INDSYM;
IF SYMBOL<>IDENTSYM THEN SYNTFEJL(IDENTSYM);
FILNR:=0;
REPEAT
FILNR:=FILNR+1
UNTIL (FILNR=MAXFILES) OR (FILINFO(FILNR).POSTNAVN=SYM);
IF FILINFO(FILNR).POSTNAVN<>SYM THEN SYNTFEJL(IDENTSYM)
UNTIL FILINFO(FILNR).POSTNAVN=SYM;
IF FILINFO(FILNR).USENR=0 THEN
BEGIN
REPEAT
FILINFO(FILNR).USENR:=FILINFO(FILNR).USENR+1
UNTIL LISTEHOVED^.FILES(FILINFO(FILNR).USENR)=0;
LISTEHOVED^.FILES(FILINFO(FILNR).USENR):=FILNR
END;
IF OPTION=1 THEN
BEGIN
NEW(THIS,INDKOMMANDO);
THIS^.ELEMENTTYPE:=INDKOMMANDO;
THIS^.GETFILREF:=FILINFO(FILNR).USENR;
THIS^.GETMODE:=MODE;
THIS^.FØRSTNØGL:=NIL (*KAN EVT. UDVIDES*)
END
ELSE
BEGIN
NEW(THIS,UDKOMMANDO);
THIS^.ELEMENTTYPE:=UDKOMMANDO;
THIS^.PUTFILREF:=FILINFO(FILNR).USENR;
THIS^.PUTMODE:=MODE
END;
THIS^.NEXTELEMENT:=NIL;
THIS^.NEXTELEMENT:=VANDRET;
IOKOMM:=THIS
END;
(*$P*)
FUNCTION VANDRET; (*:ELEMENT*)
VAR OPTION:INTEGER;
BEGIN
IF CHANGING THEN VANDRET:=NIL ELSE
REPEAT
IF SINGLE THEN CHANGING:=TRUE;
CLEARSCREEN;
WRITELN('1 Gentagelse');
WRITELN('2 Billede');
WRITELN('3 Felt');
WRITELN('4 Beregning');
WRITELN('5 I/O-kommando');
WRITELN('6 Afslut');
WRITELN('7 Oplys');
REPEAT
GOTOXY(1,15);
WRITELN('Vælg 1-7');
GOTOXY(10,15);
READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=7);
CASE OPTION OF
1:VANDRET:=GENTAGELSE;
2:VANDRET:=BILLEDE;
3:VANDRET:=FIELD;
4:VANDRET:=BEREGNING;
5:VANDRET:=IOKOMM;
6:VANDRET:=NIL;
7:OPLYS
END
UNTIL OPTION<>7
END;
(*$P*)
FUNCTION LODRET; (*:ELEMENT*)
VAR OPTION:INTEGER;
BEGIN
IF CHANGING THEN LODRET:=NIL ELSE
REPEAT
IF SINGLE THEN CHANGING:=TRUE;
CLEARSCREEN;
WRITELN('1 Gentagelse');
WRITELN('2 Billede');
WRITELN('3 Afslut');
WRITELN('4 Oplys');
REPEAT
GOTOXY(1,15);
WRITELN('Vælg 1-4');
GOTOXY(10,15);
READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=4);
CASE OPTION OF
1:LODRET:=GENTAGELSE;
2:LODRET:=BILLEDE;
3:LODRET:=NIL;
4:OPLYS
END
UNTIL OPTION<>4
END;
(*$P*)
(*$ICHANGE*)
(*$P*)
BEGIN
CHANGING:=FALSE;
SINGLE:=FALSE;
READINFO;
INITTEXT;
AKTULIST.NAVN:='@';
REPEAT
CLEARSCREEN;
WRITELN('Valg af funktion');
GOTOXY(1,5);
WRITELN('0 Færdig');
WRITELN('1 Definition af ny liste');
WRITELN('2 Ændring af eksisterende liste (listeoversigt)');
WRITELN('3 Gem listedefinition');
WRITELN('4 Oplys');
REPEAT
OPTION:=0;
GOTOXY(1,15);
WRITELN('Vælg 0-4');
GOTOXY(10,15);
READLN;READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION>=0) AND (OPTION<=4);
CASE OPTION OF
1:BEGIN
NEW(LISTEHOVED,LISTEDESC);
LISTEHOVED^.ELEMENTTYPE:=LISTEDESC;
FOR I:=1 TO 8 DO LISTEHOVED^.FILES(I):=0;
REPEAT
GOTOXY(1,17);WRITE('Linier pr. side ');READLN;
READ(LISTEHOVED^.LINESPP)
UNTIL (IORESULT=0) AND (LISTEHOVED^.LINESPP>0) AND
(LISTEHOVED^.LINESPP<73);
LISTEHOVED^.NEXTELEMENT:=NIL;
LISTEHOVED^.NEXTELEMENT:=LODRET
END;
2:BEGIN
VÆLGLISTE;
IF AKTULIST.NAVN(1)<>'@' THEN
BEGIN
MOVELEFT(AKTULIST.NAVN,LISTENAVN,8);
INDELEMENT;
CHANGE(LISTEHOVED,LISTENAVN)
END
END;
3:BEGIN
IF AKTULIST.NAVN(1)='@' THEN UDLISTDEF; (*NY LISTE*)
UDELEMENT
END;
4:OPLYS
END
UNTIL OPTION=0;
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
IF FNAVN(1) IN (.'0'..'8'.) THEN
CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LISTEGEN;«, l3=0x11}
0x0013…0026 Line {l1=0x11, l2=»CONST MAXFELT=30;«, l3=0x11}
0x0026…003a Line {l1=0x12, l2=» MAXFILES=20;«, l3=0x12}
0x003a…004e Line {l1=0x12, l2=» NULREAL=1.0;«, l3=0x12}
0x004e…006d Line {l1=0x1d, l2=» NULINT=41; (*10 REALS*)«, l3=0x1d}
0x006d…009c Line {l1=0x2d, l2=» NULCHAR=101; (*10 INTEGERS, 400 CHARS*)«, l3=0x2d}
0x009c…00a2 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00a2…00cb Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00cb…0116 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0116…0134 Line {l1=0x1c, l2=»ELEMENT=^ELEMENTBESKRIVELSE;«, l3=0x1c}
0x0134…0145 Line {l1=0x0f, l2=»POSITION=RECORD«, l3=0x0f}
0x0145…0155 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0155…015b Line {l1=0x04, l2=»END;«, l3=0x04}
0x015b…017f Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x017f…01b0 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x01b0…01ff Line {l1=0x4d, l2=»ETYPE=(LISTEDESC,PICTURE,FELT,INDKOMMANDO,UDKOMMANDO,VALIDITET,GENTAG,BEREGN,«, l3=0x4d}
0x01ff…0215 Line {l1=0x14, l2=» NØGLE,KSLOP);«, l3=0x14}
0x0215…022e Line {l1=0x17, l2=»REPTYPE=(REPETE,WAILE);«, l3=0x17}
0x022e…0253 Line {l1=0x23, l2=»FACTTYP=(CONSTVAR,LPEXPRP,NOTFACT);«, l3=0x23}
0x0253…0297 Line {l1=0x42, l2=»SYMBOLTYPE=(PERIOD,EQL,LSS,GTR,NEQ,LEQ,GEQ,LPAREN,RPAREN,OTHERSYM,«, l3=0x42}
0x0297…02de Line {l1=0x45, l2=» PLUS,MINUS,OROP,CONSTSYM,POSTSYM,IDENTSYM,NOTOP,TEKSTSYM,«, l3=0x45}
0x02de…0313 Line {l1=0x33, l2=» TIMES,SLASH,DIVOP,MODOP,ANDOP,SLUTSYM);«, l3=0x33}
0x0313…0340 Line {l1=0x2b, l2=»KSLOPTYPE=(EXPRESSION,SIMPLEX,TERM,FACTOR);«, l3=0x2b}
0x0340…035b Line {l1=0x19, l2=»ELEMENTBESKRIVELSE=RECORD«, l3=0x19}
0x035b…0379 Line {l1=0x1c, l2=» NEXTELEMENT :ELEMENT;«, l3=0x1c}
0x0379…0397 Line {l1=0x1c, l2=» CASE ELEMENTTYPE:ETYPE OF«, l3=0x1c}
0x0397…03a6 Line {l1=0x0d, l2=» LISTEDESC:«, l3=0x0d}
0x03a6…03d6 Line {l1=0x2e, l2=» (FILES :ARRAY (.1..8.) OF INTEGER;«, l3=0x2e}
0x03d6…03f3 Line {l1=0x1b, l2=» LINESPP :INTEGER«, l3=0x1b}
0x03f3…0414 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0414…0421 Line {l1=0x0b, l2=» PICTURE:«, l3=0x0b}
0x0421…0440 Line {l1=0x1d, l2=» (PICTPOS :POSITION;«, l3=0x1d}
0x0440…045e Line {l1=0x1c, l2=» FØRSTFELT :ELEMENT;«, l3=0x1c}
0x045e…047d Line {l1=0x1d, l2=» PICTNAVN :STRING(8)«, l3=0x1d}
0x047d…049e Line {l1=0x1f, l2=» );«, l3=0x1f}
0x049e…04af Line {l1=0x0f, l2=» INDKOMMANDO:«, l3=0x0f}
0x04af…04c1 Line {l1=0x10, l2=» (GETFILREF,«, l3=0x10}
0x04c1…04df Line {l1=0x1c, l2=» GETMODE :INTEGER;«, l3=0x1c}
0x04df…04fc Line {l1=0x1b, l2=» FØRSTNØGL :ELEMENT«, l3=0x1b}
0x04fc…051d Line {l1=0x1f, l2=» );«, l3=0x1f}
0x051d…052d Line {l1=0x0e, l2=» UDKOMMANDO:«, l3=0x0e}
0x052d…053f Line {l1=0x10, l2=» (PUTFILREF,«, l3=0x10}
0x053f…055c Line {l1=0x1b, l2=» PUTMODE :INTEGER«, l3=0x1b}
0x055c…057d Line {l1=0x1f, l2=» );«, l3=0x1f}
0x057d…0588 Line {l1=0x09, l2=» NØGLE:«, l3=0x09}
0x0588…05a4 Line {l1=0x1a, l2=» (NØGLETYPE :FTYPE;«, l3=0x1a}
0x05a4…05b5 Line {l1=0x0f, l2=» NØGLEREF,«, l3=0x0f}
0x05b5…05c5 Line {l1=0x0e, l2=» PINDEKS,«, l3=0x0e}
0x05c5…05e2 Line {l1=0x1b, l2=» GINDEKS :INTEGER«, l3=0x1b}
0x05e2…0603 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x0603…060f Line {l1=0x0a, l2=» GENTAG:«, l3=0x0a}
0x060f…062d Line {l1=0x1c, l2=» (LØKKETYPE :REPTYPE;«, l3=0x1c}
0x062d…063f Line {l1=0x10, l2=» FIRSTFELT,«, l3=0x10}
0x063f…065d Line {l1=0x1c, l2=» BETINGELSE :ELEMENT;«, l3=0x1c}
0x065d…067b Line {l1=0x1c, l2=» POSINCR :POSITION«, l3=0x1c}
0x067b…069c Line {l1=0x1f, l2=» );«, l3=0x1f}
0x069c…06a8 Line {l1=0x0a, l2=» BEREGN:«, l3=0x0a}
0x06a8…06c6 Line {l1=0x1c, l2=» (UDTRYK :ELEMENT;«, l3=0x1c}
0x06c6…0710 Line {l1=0x48, l2=» GEMREF, (*<0 => UDSKRIFT JVNF. FOREGÅENDE UDFELT*)«, l3=0x48}
0x0710…072e Line {l1=0x1c, l2=» GEMINDEKS :INTEGER;«, l3=0x1c}
0x072e…0749 Line {l1=0x19, l2=» UDTRYKTYPE :FTYPE«, l3=0x19}
0x0749…076a Line {l1=0x1f, l2=» );«, l3=0x1f}
0x076a…0779 Line {l1=0x0d, l2=» VALIDITET:«, l3=0x0d}
0x0779…079b Line {l1=0x20, l2=» (CASE VALIDITYTYPE:VTYPE OF«, l3=0x20}
0x079b…07c1 Line {l1=0x24, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x24}
0x07c1…07f3 Line {l1=0x30, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x30}
0x07f3…0818 Line {l1=0x23, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x23}
0x0818…082d Line {l1=0x13, l2=» DATO,CPR:()«, l3=0x13}
0x082d…084e Line {l1=0x1f, l2=» );«, l3=0x1f}
0x084e…0858 Line {l1=0x08, l2=» FELT:«, l3=0x08}
0x0858…0877 Line {l1=0x1d, l2=» (INDPOS :POSITION;«, l3=0x1d}
0x0877…08a8 Line {l1=0x2f, l2=» EDITERING, (*<0 => UDFELT*)«, l3=0x2f}
0x08a8…08f1 Line {l1=0x47, l2=» POSTREF, (*VÆRDI FÅS FRA NEXTELEMENT, BEREGNING*)«, l3=0x47}
0x08f1…092f Line {l1=0x3c, l2=» INDEKS, (*NÅR POSTREF=0 OG INDEKS<0*)«, l3=0x3c}
0x092f…093e Line {l1=0x0d, l2=» LÆNGDE,«, l3=0x0d}
0x093e…095c Line {l1=0x1c, l2=» FORAN0 :INTEGER;«, l3=0x1c}
0x095c…097a Line {l1=0x1c, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x1c}
0x097a…0997 Line {l1=0x1b, l2=» REEL:(DEC:INTEGER);«, l3=0x1b}
0x0997…09b8 Line {l1=0x1f, l2=» HELTAL,DOBBTAL,TEKST:()«, l3=0x1f}
0x09b8…09d9 Line {l1=0x1f, l2=» );«, l3=0x1f}
0x09d9…09e4 Line {l1=0x09, l2=» KSLOP:«, l3=0x09}
0x09e4…0a02 Line {l1=0x1c, l2=» (SECOND :ELEMENT;«, l3=0x1c}
0x0a02…0a21 Line {l1=0x1d, l2=» CASE POLISH:KSLOPTYPE OF«, l3=0x1d}
0x0a21…0a46 Line {l1=0x23, l2=» EXPRESSION:(EXPOP:SYMBOLTYPE);«, l3=0x23}
0x0a46…0a73 Line {l1=0x2b, l2=» SIMPLEX :(SIMOP1,SIMOP2:SYMBOLTYPE);«, l3=0x2b}
0x0a73…0a98 Line {l1=0x23, l2=» TERM :(TRMOP:SYMBOLTYPE);«, l3=0x23}
0x0a98…0ac3 Line {l1=0x29, l2=» FACTOR :(CASE FACTTYPE:FACTTYP OF«, l3=0x29}
0x0ac3…0af5 Line {l1=0x30, l2=» CONSTVAR:(CVREF,CVDEKS:INTEGER;«, l3=0x30}
0x0af5…0b26 Line {l1=0x2f, l2=» CVTYPE :FTYPE);«, l3=0x2f}
0x0b26…0b4c Line {l1=0x24, l2=» LPEXPRP,NOTFACT:())«, l3=0x24}
0x0b4c…0b75 Line {l1=0x27, l2=» );«, l3=0x27}
0x0b75…0b7b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b7b…0ba3 Line {l1=0x26, l2=»ELEMENTFIL=FILE OF ELEMENTBESKRIVELSE;«, l3=0x26}
0x0ba3…0bc2 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0bc2…0be9 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0be9…0c04 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0c04…0c12 Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x0c12…0c22 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0c22…0c2f Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0c2f…0c3f Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0c3f…0c6a Line {l1=0x29, l2=» CONTENTS: ARRAY (1..250) OF INTEGER«, l3=0x29}
0x0c6a…0c70 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c70…0c81 Line {l1=0x0f, l2=»LISTTYPE=RECORD«, l3=0x0f}
0x0c81…0cb4 Line {l1=0x31, l2=» NAVN:STRING(30); (*LISTENS BETEGNELSE*)«, l3=0x31}
0x0cb4…0cf2 Line {l1=0x3c, l2=» DESCLIST:STRING(18); (*NAVN PÅ LISTEDEFINITIONSFILEN*)«, l3=0x3c}
0x0cf2…0d2d Line {l1=0x39, l2=» LISTENIVEAU:NIVEAU; (*ADGANGSNIVEAUET TIL LISTEN*)«, l3=0x39}
0x0d2d…0d59 Line {l1=0x2a, l2=» BLANKTYP, (*BLANKETTYPE*)«, l3=0x2a}
0x0d59…0d8c Line {l1=0x31, l2=» ZPOSTNR:INTEGER (*KONSTANTPOSTENS NR*)«, l3=0x31}
0x0d8c…0d92 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d92…0dda Line {l1=0x46, l2=»LISTFILE=FILE OF LISTTYPE; (*FORTEGNELSE OVER ALLE DEFINEREDE LISTER*)«, l3=0x46}
0x0dda…0df2 Line {l1=0x16, l2=»ZEROFIL=FILE OF PPOST;«, l3=0x16}
0x0df2…0e03 Line {l1=0x0f, l2=»FELTINFO=RECORD«, l3=0x0f}
0x0e03…0e1b Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0e1b…0e2f Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x0e2f…0e42 Line {l1=0x11, l2=» FELTTYPE:FTYPE«, l3=0x11}
0x0e42…0e48 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e48…0e59 Line {l1=0x0f, l2=»FILEINFO=RECORD«, l3=0x0f}
0x0e59…0e6c Line {l1=0x11, l2=» USENR:INTEGER;«, l3=0x11}
0x0e6c…0e85 Line {l1=0x17, l2=» POSTNAVN:STRING(18);«, l3=0x17}
0x0e85…0eb0 Line {l1=0x29, l2=» FELTINF:ARRAY (0..MAXFELT) OF FELTINFO«, l3=0x29}
0x0eb0…0eb6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eb6…0ebb Line {l1=0x03, l2=»VAR«, l3=0x03}
0x0ebb…0ed1 Line {l1=0x14, l2=» PARM:^PARMARRAY;«, l3=0x14}
0x0ed1…0ee4 Line {l1=0x11, l2=» QUQ:^INTEGER;«, l3=0x11}
0x0ee4…0f0b Line {l1=0x25, l2=» LISTEHOVED,LISTEELEMENT: ELEMENT;«, l3=0x25}
0x0f0b…0f54 Line {l1=0x47, l2=» PRNIVEAU,NROFFILES,LINES,OPTION,IER,I,J,CDECS,CLÆNG,FORAN0:INTEGER;«, l3=0x47}
0x0f54…0f68 Line {l1=0x12, l2=» CONSTANT:REAL;«, l3=0x12}
0x0f68…0f79 Line {l1=0x0f, l2=» SYM:STRING;«, l3=0x0f}
0x0f79…0f8d Line {l1=0x12, l2=» SCH:STRING(1);«, l3=0x12}
0x0f8d…0fa5 Line {l1=0x16, l2=» SYMBOL:SYMBOLTYPE;«, l3=0x16}
0x0fa5…0fb7 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x0fb7…0fd1 Line {l1=0x18, l2=» LISTENAVN:STRING(8);«, l3=0x18}
0x0fd1…0ff2 Line {l1=0x1f, l2=» POST:ARRAY (0..0) OF PPOST;«, l3=0x1f}
0x0ff2…1020 Line {l1=0x2c, l2=» FILINFO:ARRAY (0..MAXFILES) OF FILEINFO;«, l3=0x2c}
0x1020…1037 Line {l1=0x15, l2=» FNAVN:STRING(18);«, l3=0x15}
0x1037…104f Line {l1=0x16, l2=» AKTULIST:LISTTYPE;«, l3=0x16}
0x104f…1089 Line {l1=0x38, l2=» FELTYPE:ARRAY (0..3) OF PACKED ARRAY (1..7) OF CHAR;«, l3=0x38}
0x1089…10c3 Line {l1=0x38, l2=» ELTYPE:ARRAY (0..9) OF PACKED ARRAY (1..11) OF CHAR;«, l3=0x38}
0x10c3…10fd Line {l1=0x38, l2=» GENTYPE:ARRAY (0..1) OF PACKED ARRAY (1..6) OF CHAR;«, l3=0x38}
0x10fd…110b Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x110b…1146 Line {l1=0x39, l2=» CHGTYPE:ARRAY (1..5) OF PACKED ARRAY (1..16) OF CHAR;«, l3=0x39}
0x1146…116a Line {l1=0x22, l2=» OKSET:ARRAY (1..5) OF INTEGER;«, l3=0x22}
0x116a…1188 Line {l1=0x1c, l2=» SINGLE,CHANGING:BOOLEAN;«, l3=0x1c}
0x1188…11ac Line {l1=0x22, l2=» SAVE:ARRAY (0..10) OF ELEMENT;«, l3=0x22}
0x11ac…11b4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x11b4…11c4 Line {l1=0x0e, l2=»PROCEDURE IOC;«, l3=0x0e}
0x11c4…11d6 Line {l1=0x10, l2=»VAR IOR:INTEGER;«, l3=0x10}
0x11d6…11dd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11dd…11ef Line {l1=0x10, l2=» IOR:=IORESULT;«, l3=0x10}
0x11ef…1201 Line {l1=0x10, l2=» IF IOR<>0 THEN«, l3=0x10}
0x1201…120a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x120a…121c Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x121c…122f Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x122f…125b Line {l1=0x2a, l2=» WRITELN('Pladefejl ',IOR:5,' RETURN');«, l3=0x2a}
0x125b…126a Line {l1=0x0d, l2=» SCH:=' ';«, l3=0x0d}
0x126a…127a Line {l1=0x0e, l2=» EDIT(SCH);«, l3=0x0e}
0x127a…129f Line {l1=0x23, l2=» IF SCH<>'R' THEN EXIT(LISTEGEN)«, l3=0x23}
0x129f…12a6 Line {l1=0x05, l2=» END«, l3=0x05}
0x12a6…12ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x12ac…12b4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x12b4…12c9 Line {l1=0x13, l2=»PROCEDURE INITTEXT;«, l3=0x13}
0x12c9…12d0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x12d0…12ea Line {l1=0x18, l2=» FELTYPE(0):='HELTAL ';«, l3=0x18}
0x12ea…1304 Line {l1=0x18, l2=» FELTYPE(1):='DOBBTAL';«, l3=0x18}
0x1304…131e Line {l1=0x18, l2=» FELTYPE(2):='REEL ';«, l3=0x18}
0x131e…1338 Line {l1=0x18, l2=» FELTYPE(3):='TEKST ';«, l3=0x18}
0x1338…1355 Line {l1=0x1b, l2=» ELTYPE(0):='LISTEDESC ';«, l3=0x1b}
0x1355…1372 Line {l1=0x1b, l2=» ELTYPE(1):='PICTURE ';«, l3=0x1b}
0x1372…138f Line {l1=0x1b, l2=» ELTYPE(2):='FELT ';«, l3=0x1b}
0x138f…13ac Line {l1=0x1b, l2=» ELTYPE(3):='INDKOMMANDO';«, l3=0x1b}
0x13ac…13c9 Line {l1=0x1b, l2=» ELTYPE(4):='UDKOMMANDO ';«, l3=0x1b}
0x13c9…13e6 Line {l1=0x1b, l2=» ELTYPE(5):='VALIDITET ';«, l3=0x1b}
0x13e6…1403 Line {l1=0x1b, l2=» ELTYPE(6):='GENTAG ';«, l3=0x1b}
0x1403…1420 Line {l1=0x1b, l2=» ELTYPE(7):='BEREGN ';«, l3=0x1b}
0x1420…143d Line {l1=0x1b, l2=» ELTYPE(8):='NØGLE ';«, l3=0x1b}
0x143d…145a Line {l1=0x1b, l2=» ELTYPE(9):='KSLOP ';«, l3=0x1b}
0x145a…1473 Line {l1=0x17, l2=» GENTYPE(0):='REPEAT';«, l3=0x17}
0x1473…148c Line {l1=0x17, l2=» GENTYPE(1):='WHILE ';«, l3=0x17}
0x148c…14af Line {l1=0x21, l2=» CHGTYPE(1):='Fortsæt vandret ';«, l3=0x21}
0x14af…14d2 Line {l1=0x21, l2=» CHGTYPE(2):='Fortsæt lodret ';«, l3=0x21}
0x14d2…14f5 Line {l1=0x21, l2=» CHGTYPE(3):='Tilbage (afstak)';«, l3=0x21}
0x14f5…1518 Line {l1=0x21, l2=» CHGTYPE(4):='Oplys ';«, l3=0x21}
0x1518…153a Line {l1=0x20, l2=» CHGTYPE(5):='Ændring '«, l3=0x20}
0x153a…1540 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1540…1548 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1548…156c Line {l1=0x22, l2=»PROCEDURE PRINTEL(VAR EL:ELEMENT);«, l3=0x22}
0x156c…157c Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x157c…158f Line {l1=0x11, l2=»PROCEDURE PRINT1;«, l3=0x11}
0x158f…1596 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1596…15a5 Line {l1=0x0d, l2=» WITH EL^ DO«, l3=0x0d}
0x15a5…15bc Line {l1=0x15, l2=» CASE ELEMENTTYPE OF«, l3=0x15}
0x15bc…15cf Line {l1=0x11, l2=» LISTEDESC:BEGIN«, l3=0x11}
0x15cf…15f3 Line {l1=0x22, l2=» WRITE(LIST,'FILES');«, l3=0x22}
0x15f3…162b Line {l1=0x36, l2=» FOR I:=1 TO 8 DO WRITE(LIST,FILES(I):3);«, l3=0x36}
0x162b…1649 Line {l1=0x1c, l2=» WRITELN(LIST);«, l3=0x1c}
0x1649…1689 Line {l1=0x3e, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'LINESPP',LINESPP:4)«, l3=0x3e}
0x1689…169b Line {l1=0x10, l2=» END;«, l3=0x10}
0x169b…16ae Line {l1=0x11, l2=» PICTURE: BEGIN«, l3=0x11}
0x16ae…16e8 Line {l1=0x38, l2=» WRITELN(LIST,'NAVN ',PICTNAVN,' POSITION',«, l3=0x38}
0x16e8…171e Line {l1=0x34, l2=» PICTPOS.X:3,PICTPOS.Y:3);«, l3=0x34}
0x171e…1757 Line {l1=0x37, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'FØRSTFELT');«, l3=0x37}
0x1757…177a Line {l1=0x21, l2=» PRINTEL(FØRSTFELT);«, l3=0x21}
0x177a…178c Line {l1=0x10, l2=» END;«, l3=0x10}
0x178c…179c Line {l1=0x0e, l2=» INDKOMMANDO:«, l3=0x0e}
0x179c…17af Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x17af…17e4 Line {l1=0x33, l2=» WRITELN(LIST,'GETFILREF',GETFILREF:3,«, l3=0x33}
0x17e4…1817 Line {l1=0x31, l2=» ' GETMODE',GETMODE:3);«, l3=0x31}
0x1817…1850 Line {l1=0x37, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'FØRSTNØGL');«, l3=0x37}
0x1850…1872 Line {l1=0x20, l2=» PRINTEL(FØRSTNØGL)«, l3=0x20}
0x1872…1884 Line {l1=0x10, l2=» END;«, l3=0x10}
0x1884…18b8 Line {l1=0x32, l2=» UDKOMMANDO:WRITELN(LIST,'PUTFILREF',PUTFILREF:3,«, l3=0x32}
0x18b8…18ea Line {l1=0x30, l2=» ' PUTMODE',PUTMODE:3);«, l3=0x30}
0x18ea…192a Line {l1=0x3e, l2=» NØGLE: WRITELN(LIST,'NØGLETYPE ',FELTYPE(ORD(NØGLETYPE)),«, l3=0x3e}
0x192a…195c Line {l1=0x30, l2=» ' NØGLEREF',NØGLEREF:3,«, l3=0x30}
0x195c…198c Line {l1=0x2e, l2=» ' PINDEKS',PINDEKS:3,«, l3=0x2e}
0x198c…19bd Line {l1=0x2f, l2=» ' GINDEKS',GINDEKS:3);«, l3=0x2f}
0x19bd…19d1 Line {l1=0x12, l2=» GENTAG: BEGIN«, l3=0x12}
0x19d1…1a14 Line {l1=0x41, l2=» WRITELN(LIST,'LØKKETYPE ',GENTYPE(ORD(LØKKETYPE)),«, l3=0x41}
0x1a14…1a56 Line {l1=0x40, l2=» ' POSINCR',POSINCR.X:6,POSINCR.Y:6);«, l3=0x40}
0x1a56…1a91 Line {l1=0x39, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'BETINGELSE');«, l3=0x39}
0x1a91…1ab6 Line {l1=0x23, l2=» PRINTEL(BETINGELSE);«, l3=0x23}
0x1ab6…1af0 Line {l1=0x38, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'FIRSTFELT');«, l3=0x38}
0x1af0…1b13 Line {l1=0x21, l2=» PRINTEL(FIRSTFELT)«, l3=0x21}
0x1b13…1b26 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1b26…1b3a Line {l1=0x12, l2=» BEREGN :BEGIN«, l3=0x12}
0x1b3a…1b6a Line {l1=0x2e, l2=» WRITELN(LIST,'GEMREF',GEMREF:3,«, l3=0x2e}
0x1b6a…1ba1 Line {l1=0x35, l2=» ' GEMINDEKS',GEMINDEKS:4,«, l3=0x35}
0x1ba1…1be8 Line {l1=0x45, l2=» ' UDTRYKTYPE ',FELTYPE(ORD(UDTRYKTYPE)));«, l3=0x45}
0x1be8…1c1f Line {l1=0x35, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'UDTRYK');«, l3=0x35}
0x1c1f…1c3f Line {l1=0x1e, l2=» PRINTEL(UDTRYK)«, l3=0x1e}
0x1c3f…1c52 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1c52…1c65 Line {l1=0x11, l2=» VALIDITET:BEGIN«, l3=0x11}
0x1c65…1c88 Line {l1=0x21, l2=» CASE VALIDITYTYPE OF«, l3=0x21}
0x1c88…1ccf Line {l1=0x45, l2=» HINTERVAL:WRITELN(LIST,'HINTERVAL MIN MAX',MIN:8,MAX:8);«, l3=0x45}
0x1ccf…1d09 Line {l1=0x38, l2=» DINTERVAL:WRITELN(LIST,'DINTERVAL MIN MAX',«, l3=0x38}
0x1d09…1d42 Line {l1=0x37, l2=» MIN1*10000.0+MIN2:10:-2,«, l3=0x37}
0x1d42…1d7c Line {l1=0x38, l2=» MAX1*10000.0+MAX2:10:-2);«, l3=0x38}
0x1d7c…1dc1 Line {l1=0x43, l2=» RINTERVAL:WRITELN(LIST,'RINTERVAL MIN MAX',RMIN:10:-2,«, l3=0x43}
0x1dc1…1e07 Line {l1=0x44, l2=» RMAX:10:-2);«, l3=0x44}
0x1e07…1e30 Line {l1=0x27, l2=» DATO:WRITELN(LIST,'DATO');«, l3=0x27}
0x1e30…1e56 Line {l1=0x24, l2=» CPR:WRITELN(LIST,'CPR')«, l3=0x24}
0x1e56…1e68 Line {l1=0x10, l2=» END«, l3=0x10}
0x1e68…1e7a Line {l1=0x10, l2=» END;«, l3=0x10}
0x1e7a…1e81 Line {l1=0x05, l2=» END«, l3=0x05}
0x1e81…1e87 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e87…1e8e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1e8e…1ea0 Line {l1=0x10, l2=» IF EL<>NIL THEN«, l3=0x10}
0x1ea0…1eae Line {l1=0x0c, l2=» WITH EL^ DO«, l3=0x0c}
0x1eae…1eb6 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x1eb6…1ecf Line {l1=0x17, l2=» PRNIVEAU:=PRNIVEAU+1;«, l3=0x17}
0x1ecf…1f07 Line {l1=0x36, l2=» WRITELN(LIST,PRNIVEAU:3,' ':PRNIVEAU,'Elementtype ',«, l3=0x36}
0x1f07…1f32 Line {l1=0x29, l2=» ELTYPE(ORD(ELEMENTTYPE)));«, l3=0x29}
0x1f32…1f51 Line {l1=0x1d, l2=» WRITE(LIST,' ':PRNIVEAU+3);«, l3=0x1d}
0x1f51…1f68 Line {l1=0x15, l2=» CASE ELEMENTTYPE OF«, l3=0x15}
0x1f68…1f7b Line {l1=0x11, l2=» FELT : BEGIN«, l3=0x11}
0x1f7b…1fb7 Line {l1=0x3a, l2=» WRITELN(LIST,'INDPOS',INDPOS.X:5,INDPOS.Y:5,«, l3=0x3a}
0x1fb7…1fed Line {l1=0x34, l2=» ' EDITERING',EDITERING:2,«, l3=0x34}
0x1fed…201f Line {l1=0x30, l2=» ' POSTREF',POSTREF:3,«, l3=0x30}
0x201f…204f Line {l1=0x2e, l2=» ' INDEKS',INDEKS:4,«, l3=0x2e}
0x204f…207f Line {l1=0x2e, l2=» ' LÆNGDE',LÆNGDE:3,«, l3=0x2e}
0x207f…20b0 Line {l1=0x2f, l2=» ' FORAN0',FORAN0:3);«, l3=0x2f}
0x20b0…20e6 Line {l1=0x34, l2=» WRITE(LIST,' ':PRNIVEAU+3,'FELTTYPE ',«, l3=0x34}
0x20e6…2119 Line {l1=0x31, l2=» FELTYPE(ORD(FELTTYPE)));«, l3=0x31}
0x2119…2159 Line {l1=0x3e, l2=» IF FELTTYPE=REEL THEN WRITELN(LIST,' DEC',DEC:3)«, l3=0x3e}
0x2159…217b Line {l1=0x20, l2=» ELSE WRITELN(LIST)«, l3=0x20}
0x217b…218d Line {l1=0x10, l2=» END;«, l3=0x10}
0x218d…21a0 Line {l1=0x11, l2=» KSLOP : BEGIN«, l3=0x11}
0x21a0…21be Line {l1=0x1c, l2=» CASE POLISH OF«, l3=0x1c}
0x21be…21de Line {l1=0x1e, l2=» EXPRESSION:BEGIN«, l3=0x1e}
0x21de…2216 Line {l1=0x36, l2=» WRITELN(LIST,'EXPRESSION');«, l3=0x36}
0x2216…2248 Line {l1=0x30, l2=» PRINTEL(NEXTELEMENT);«, l3=0x30}
0x2248…2275 Line {l1=0x2b, l2=» PRINTEL(SECOND);«, l3=0x2b}
0x2275…22aa Line {l1=0x33, l2=» WRITELN(LIST,ORD(EXPOP))«, l3=0x33}
0x22aa…22c9 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x22c9…22e9 Line {l1=0x1e, l2=» SIMPLEX: BEGIN«, l3=0x1e}
0x22e9…231e Line {l1=0x33, l2=» WRITELN(LIST,'SIMPLEX');«, l3=0x33}
0x231e…234f Line {l1=0x2f, l2=» IF SIMOP1<>OROP THEN«, l3=0x2f}
0x234f…2388 Line {l1=0x37, l2=» WRITELN(LIST,ORD(SIMOP1));«, l3=0x37}
0x2388…23ba Line {l1=0x30, l2=» PRINTEL(NEXTELEMENT);«, l3=0x30}
0x23ba…23eb Line {l1=0x2f, l2=» IF SIMOP2<>OROP THEN«, l3=0x2f}
0x23eb…240d Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x240d…243c Line {l1=0x2d, l2=» PRINTEL(SECOND);«, l3=0x2d}
0x243c…2474 Line {l1=0x36, l2=» WRITELN(LIST,ORD(SIMOP2))«, l3=0x36}
0x2474…2494 Line {l1=0x1e, l2=» END«, l3=0x1e}
0x2494…24b3 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x24b3…24d3 Line {l1=0x1e, l2=» TERM: BEGIN«, l3=0x1e}
0x24d3…2505 Line {l1=0x30, l2=» WRITELN(LIST,'TERM');«, l3=0x30}
0x2505…2537 Line {l1=0x30, l2=» PRINTEL(NEXTELEMENT);«, l3=0x30}
0x2537…2564 Line {l1=0x2b, l2=» PRINTEL(SECOND);«, l3=0x2b}
0x2564…2599 Line {l1=0x33, l2=» WRITELN(LIST,ORD(TRMOP))«, l3=0x33}
0x2599…25b8 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x25b8…25d8 Line {l1=0x1e, l2=» FACTOR: BEGIN«, l3=0x1e}
0x25d8…260b Line {l1=0x31, l2=» WRITE(LIST,'FACTOR ');«, l3=0x31}
0x260b…2638 Line {l1=0x2b, l2=» CASE FACTTYPE OF«, l3=0x2b}
0x2638…2662 Line {l1=0x28, l2=» LPEXPRP:BEGIN«, l3=0x28}
0x2662…26a3 Line {l1=0x3f, l2=» WRITELN(LIST,'LPEXPRP (');«, l3=0x3f}
0x26a3…26df Line {l1=0x3a, l2=» PRINTEL(NEXTELEMENT);«, l3=0x3a}
0x26df…2717 Line {l1=0x36, l2=» WRITELN(LIST,')')«, l3=0x36}
0x2717…2740 Line {l1=0x27, l2=» END;«, l3=0x27}
0x2740…276a Line {l1=0x28, l2=» NOTFACT:BEGIN«, l3=0x28}
0x276a…27ad Line {l1=0x41, l2=» WRITELN(LIST,'NOTFACT NOT');«, l3=0x41}
0x27ad…27e8 Line {l1=0x39, l2=» PRINTEL(NEXTELEMENT)«, l3=0x39}
0x27e8…2811 Line {l1=0x27, l2=» END;«, l3=0x27}
0x2811…283b Line {l1=0x28, l2=» CONSTVAR:BEGIN«, l3=0x28}
0x283b…287b Line {l1=0x3e, l2=» WRITELN(LIST,'CONSTVAR');«, l3=0x3e}
0x287b…28be Line {l1=0x41, l2=» WRITELN(LIST,' ':PRNIVEAU+3,«, l3=0x41}
0x28be…28f5 Line {l1=0x35, l2=» CVREF:5,«, l3=0x35}
0x28f5…2933 Line {l1=0x3c, l2=» CVDEKS:5,' ':5,«, l3=0x3c}
0x2933…2977 Line {l1=0x42, l2=» FELTYPE(ORD(CVTYPE)))«, l3=0x42}
0x2977…299f Line {l1=0x26, l2=» END«, l3=0x26}
0x299f…29e3 Line {l1=0x42, l2=» OTHERWISE WRITELN('HOV ',ORD(FACTTYPE))«, l3=0x42}
0x29e3…2a01 Line {l1=0x1c, l2=» END«, l3=0x1c}
0x2a01…2a14 Line {l1=0x11, l2=» END«, l3=0x11}
0x2a14…2a25 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2a25…2a3a Line {l1=0x13, l2=» OTHERWISE PRINT1;«, l3=0x13}
0x2a3a…2a58 Line {l1=0x1c, l2=» IF ELEMENTTYPE<>KSLOP THEN«, l3=0x1c}
0x2a58…2a61 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2a61…2a92 Line {l1=0x2f, l2=» WRITELN(LIST,' ':PRNIVEAU+3,'NEXTELEMENT');«, l3=0x2f}
0x2a92…2aad Line {l1=0x19, l2=» PRNIVEAU:=PRNIVEAU-1;«, l3=0x19}
0x2aad…2acb Line {l1=0x1c, l2=» IF NEXTELEMENT<>NIL THEN«, l3=0x1c}
0x2acb…2ae7 Line {l1=0x1a, l2=» PRINTEL(NEXTELEMENT)«, l3=0x1a}
0x2ae7…2b15 Line {l1=0x2c, l2=» ELSE WRITELN(LIST,' ':PRNIVEAU+4,'NIL');«, l3=0x2c}
0x2b15…2b2f Line {l1=0x18, l2=» PRNIVEAU:=PRNIVEAU+1«, l3=0x18}
0x2b2f…2b37 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2b37…2b4f Line {l1=0x16, l2=» PRNIVEAU:=PRNIVEAU-1«, l3=0x16}
0x2b4f…2b55 Line {l1=0x04, l2=» END«, l3=0x04}
0x2b55…2b7f Line {l1=0x28, l2=» ELSE WRITELN(LIST,' ':PRNIVEAU+3,'NIL')«, l3=0x28}
0x2b7f…2b85 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2b85…2b8d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2b8d…2b9f Line {l1=0x10, l2=»PROCEDURE OPLYS;«, l3=0x10}
0x2b9f…2bb6 Line {l1=0x15, l2=»VAR I,OPTION:INTEGER;«, l3=0x15}
0x2bb6…2bc9 Line {l1=0x11, l2=» NÅET:BOOLEAN;«, l3=0x11}
0x2bc9…2bd0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2bd0…2be0 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2be0…2c0e Line {l1=0x2c, l2=» WRITE('Poster/felter:1, Listestruktur:2');«, l3=0x2c}
0x2c0e…2c18 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2c18…2c3e Line {l1=0x24, l2=» GOTOXY(40,1);READLN;READ(OPTION)«, l3=0x24}
0x2c3e…2c75 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=2);«, l3=0x35}
0x2c75…2c87 Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0x2c87…2c92 Line {l1=0x09, l2=» 1:BEGIN«, l3=0x09}
0x2c92…2ca6 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x2ca6…2cb3 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x2cb3…2cc7 Line {l1=0x12, l2=» NÅET:=FALSE;«, l3=0x12}
0x2cc7…2cd5 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2cd5…2d02 Line {l1=0x2b, l2=» IF FILINFO(I).POSTNAVN(1)<>'@' THEN«, l3=0x2b}
0x2d02…2d11 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2d11…2d44 Line {l1=0x31, l2=» WRITELN(I:3,' ':3,FILINFO(I).POSTNAVN);«, l3=0x31}
0x2d44…2d56 Line {l1=0x10, l2=» I:=I+1«, l3=0x10}
0x2d56…2d63 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2d63…2d7c Line {l1=0x17, l2=» ELSE NÅET:=TRUE«, l3=0x17}
0x2d7c…2da1 Line {l1=0x23, l2=» UNTIL (NÅET) OR (I>MAXFILES);«, l3=0x23}
0x2da1…2db0 Line {l1=0x0d, l2=» I:=I-1;«, l3=0x0d}
0x2db0…2dbe Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2dbe…2dd5 Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x2dd5…2e06 Line {l1=0x2f, l2=» WRITE('Vælg post ');READLN;READ(OPTION)«, l3=0x2f}
0x2e06…2e41 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (OPTION>=0) AND (OPTION<=I);«, l3=0x39}
0x2e41…2e55 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x2e55…2e74 Line {l1=0x1d, l2=» WITH FILINFO(OPTION) DO«, l3=0x1d}
0x2e74…2e81 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2e81…2eba Line {l1=0x37, l2=» WRITELN('Postnavn ',POSTNAVN,' Usenr',USENR:3);«, l3=0x37}
0x2eba…2ec9 Line {l1=0x0d, l2=» I:=0;«, l3=0x0d}
0x2ec9…2edf Line {l1=0x14, l2=» NÅET:=FALSE;«, l3=0x14}
0x2edf…2eef Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x2eef…2f1e Line {l1=0x2d, l2=» IF FELTINF(I).FELTNAVN(1)<>'@' THEN«, l3=0x2d}
0x2f1e…2f3c Line {l1=0x1c, l2=» WITH FELTINF(I) DO«, l3=0x1c}
0x2f3c…2f4d Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2f4d…2f91 Line {l1=0x42, l2=» WRITELN(FELTNAVN,INDEKS:5,' ',FELTYPE(ORD(FELTTYPE)));«, l3=0x42}
0x2f91…2fa5 Line {l1=0x12, l2=» I:=I+1«, l3=0x12}
0x2fa5…2fb4 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2fb4…2fcf Line {l1=0x19, l2=» ELSE NÅET:=TRUE«, l3=0x19}
0x2fcf…2ff5 Line {l1=0x24, l2=» UNTIL (NÅET) OR (I>MAXFELT);«, l3=0x24}
0x2ff5…3015 Line {l1=0x1e, l2=» WRITE('RETURN');READLN«, l3=0x1e}
0x3015…3020 Line {l1=0x09, l2=» END«, l3=0x09}
0x3020…302a Line {l1=0x08, l2=» END;«, l3=0x08}
0x302a…3035 Line {l1=0x09, l2=» 2:BEGIN«, l3=0x09}
0x3035…3049 Line {l1=0x12, l2=» PRNIVEAU:=0;«, l3=0x12}
0x3049…307a Line {l1=0x2f, l2=» IF LISTEHOVED^.ELEMENTTYPE=LISTEDESC THEN«, l3=0x2f}
0x307a…3095 Line {l1=0x19, l2=» PRINTEL(LISTEHOVED)«, l3=0x19}
0x3095…309e Line {l1=0x07, l2=» END«, l3=0x07}
0x309e…30a5 Line {l1=0x05, l2=» END«, l3=0x05}
0x30a5…30ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x30ab…30b3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x30b3…30c3 Line {l1=0x0e, l2=»(*$IREADINFO*)«, l3=0x0e}
0x30c3…30d6 Line {l1=0x11, l2=»PROCEDURE GETSYM;«, l3=0x11}
0x30d6…30eb Line {l1=0x13, l2=»VAR DECFACTOR:REAL;«, l3=0x13}
0x30eb…30fb Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x30fb…30fe Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x3101…3114 Line {l1=0x11, l2=»PROCEDURE NEXTCH;«, l3=0x11}
0x3114…311b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x311b…313a Line {l1=0x1d, l2=» IF (CH<>' ') AND (EOLN) THEN«, l3=0x1d}
0x313a…3145 Line {l1=0x09, l2=» CH:='ü'«, l3=0x09}
0x3145…314c Line {l1=0x05, l2=» ELSE«, l3=0x05}
0x314c…3154 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x3154…316d Line {l1=0x17, l2=» WHILE EOLN DO READLN;«, l3=0x17}
0x316d…3179 Line {l1=0x0a, l2=» READ(CH)«, l3=0x0a}
0x3179…317f Line {l1=0x04, l2=» END«, l3=0x04}
0x317f…3185 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3185…3188 Line {l1=0x01, l2=» «, l3=0x01}
0x3188…319a Line {l1=0x10, l2=»BEGIN (*GETSYM*)«, l3=0x10}
0x319a…31b5 Line {l1=0x19, l2=» WHILE CH=' ' DO NEXTCH;«, l3=0x19}
0x31b5…31c2 Line {l1=0x0b, l2=» SCH:=' ';«, l3=0x0b}
0x31c2…31d4 Line {l1=0x10, l2=» IF CH='ü' THEN«, l3=0x10}
0x31d4…31dd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x31dd…31f3 Line {l1=0x14, l2=» SYMBOL:=SLUTSYM;«, l3=0x14}
0x31f3…3200 Line {l1=0x0b, l2=» CH:=' '«, l3=0x0b}
0x3200…3207 Line {l1=0x05, l2=» END«, l3=0x05}
0x3207…320f Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x320f…3218 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3218…3236 Line {l1=0x1c, l2=» IF CH IN (.'0'..'9'.) THEN«, l3=0x1c}
0x3236…323f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x323f…3253 Line {l1=0x12, l2=» CONSTANT:=0.0;«, l3=0x12}
0x3253…326a Line {l1=0x15, l2=» SYMBOL:=CONSTSYM;«, l3=0x15}
0x326a…3279 Line {l1=0x0d, l2=» CDECS:=0;«, l3=0x0d}
0x3279…3288 Line {l1=0x0d, l2=» CLÆNG:=0;«, l3=0x0d}
0x3288…32b6 Line {l1=0x2c, l2=» IF CH='0' THEN FORAN0:=1 ELSE FORAN0:=0;«, l3=0x2c}
0x32b6…32c2 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x32c2…32f3 Line {l1=0x2f, l2=» CONSTANT:=10.0*CONSTANT+ORD(CH)-ORD('0');«, l3=0x2f}
0x32f3…330a Line {l1=0x15, l2=» CLÆNG:=CLÆNG+1;«, l3=0x15}
0x330a…3318 Line {l1=0x0c, l2=» NEXTCH«, l3=0x0c}
0x3318…333d Line {l1=0x23, l2=» UNTIL NOT (CH IN (.'0'..'9'.));«, l3=0x23}
0x333d…3351 Line {l1=0x12, l2=» IF CH='.' THEN«, l3=0x12}
0x3351…335c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x335c…3373 Line {l1=0x15, l2=» CLÆNG:=CLÆNG+1;«, l3=0x15}
0x3373…338a Line {l1=0x15, l2=» DECFACTOR:=1.0;«, l3=0x15}
0x338a…3399 Line {l1=0x0d, l2=» NEXTCH;«, l3=0x0d}
0x3399…33bc Line {l1=0x21, l2=» WHILE CH IN (.'0'..'9'.) DO«, l3=0x21}
0x33bc…33c9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x33c9…33ec Line {l1=0x21, l2=» DECFACTOR:=DECFACTOR*0.1;«, l3=0x21}
0x33ec…3426 Line {l1=0x38, l2=» CONSTANT:=CONSTANT+DECFACTOR*(ORD(CH)-ORD('0'));«, l3=0x38}
0x3426…343f Line {l1=0x17, l2=» CDECS:=CDECS+1;«, l3=0x17}
0x343f…3458 Line {l1=0x17, l2=» CLÆNG:=CLÆNG+1;«, l3=0x17}
0x3458…3468 Line {l1=0x0e, l2=» NEXTCH«, l3=0x0e}
0x3468…3473 Line {l1=0x09, l2=» END«, l3=0x09}
0x3473…347d Line {l1=0x08, l2=» END;«, l3=0x08}
0x347d…3497 Line {l1=0x18, l2=» FORAN0:=FORAN0*CLÆNG«, l3=0x18}
0x3497…349e Line {l1=0x05, l2=» END«, l3=0x05}
0x349e…34a6 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x34a6…34cd Line {l1=0x25, l2=» IF CH IN (.'A'..'Å','a'..'å'.) THEN«, l3=0x25}
0x34cd…34d6 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x34d6…34e4 Line {l1=0x0c, l2=» SYM:='';«, l3=0x0c}
0x34e4…34f0 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x34f0…3503 Line {l1=0x11, l2=» SCH(1):=CH;«, l3=0x11}
0x3503…3520 Line {l1=0x1b, l2=» SYM:=CONCAT(SYM,SCH);«, l3=0x1b}
0x3520…352e Line {l1=0x0c, l2=» NEXTCH«, l3=0x0c}
0x352e…3565 Line {l1=0x35, l2=» UNTIL NOT (CH IN (.'0'..'9','A'..'Å','a'..'å'.));«, l3=0x35}
0x3565…35a0 Line {l1=0x39, l2=» IF CH='.' THEN SYMBOL:=POSTSYM ELSE SYMBOL:=IDENTSYM;«, l3=0x39}
0x35a0…35c4 Line {l1=0x22, l2=» IF SYM='OR' THEN SYMBOL:=OROP;«, l3=0x22}
0x35c4…35ea Line {l1=0x24, l2=» IF SYM='AND' THEN SYMBOL:=ANDOP;«, l3=0x24}
0x35ea…3610 Line {l1=0x24, l2=» IF SYM='MOD' THEN SYMBOL:=MODOP;«, l3=0x24}
0x3610…3636 Line {l1=0x24, l2=» IF SYM='DIV' THEN SYMBOL:=DIVOP;«, l3=0x24}
0x3636…365b Line {l1=0x23, l2=» IF SYM='NOT' THEN SYMBOL:=NOTOP«, l3=0x23}
0x365b…3662 Line {l1=0x05, l2=» END«, l3=0x05}
0x3662…366a Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x366a…3678 Line {l1=0x0c, l2=» CASE CH OF«, l3=0x0c}
0x3678…3685 Line {l1=0x0b, l2=» '''':BEGIN«, l3=0x0b}
0x3685…36a0 Line {l1=0x19, l2=» SYMBOL:=TEKSTSYM;«, l3=0x19}
0x36a0…36b3 Line {l1=0x11, l2=» CLÆNG:=0;«, l3=0x11}
0x36b3…36c5 Line {l1=0x10, l2=» SYM:='';«, l3=0x10}
0x36c5…36d6 Line {l1=0x0f, l2=» NEXTCH;«, l3=0x0f}
0x36d6…36f1 Line {l1=0x19, l2=» WHILE CH<>'''' DO«, l3=0x19}
0x36f1…3700 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3700…3717 Line {l1=0x15, l2=» SCH(1):=CH;«, l3=0x15}
0x3717…3738 Line {l1=0x1f, l2=» SYM:=CONCAT(SYM,SCH);«, l3=0x1f}
0x3738…3753 Line {l1=0x19, l2=» CLÆNG:=CLÆNG+1;«, l3=0x19}
0x3753…3765 Line {l1=0x10, l2=» NEXTCH«, l3=0x10}
0x3765…3773 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3773…3783 Line {l1=0x0e, l2=» NEXTCH«, l3=0x0e}
0x3783…378f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x378f…37b5 Line {l1=0x24, l2=» '+':BEGIN SYMBOL:=PLUS;NEXTCH END;«, l3=0x24}
0x37b5…37dc Line {l1=0x25, l2=» '-':BEGIN SYMBOL:=MINUS;NEXTCH END;«, l3=0x25}
0x37dc…3803 Line {l1=0x25, l2=» '*':BEGIN SYMBOL:=TIMES;NEXTCH END;«, l3=0x25}
0x3803…382a Line {l1=0x25, l2=» '/':BEGIN SYMBOL:=SLASH;NEXTCH END;«, l3=0x25}
0x382a…3852 Line {l1=0x26, l2=» '(':BEGIN SYMBOL:=LPAREN;NEXTCH END;«, l3=0x26}
0x3852…387a Line {l1=0x26, l2=» ')':BEGIN SYMBOL:=RPAREN;NEXTCH END;«, l3=0x26}
0x387a…38a2 Line {l1=0x26, l2=» '.':BEGIN SYMBOL:=PERIOD;NEXTCH END;«, l3=0x26}
0x38a2…38af Line {l1=0x0b, l2=» '<':BEGIN«, l3=0x0b}
0x38af…38c0 Line {l1=0x0f, l2=» NEXTCH;«, l3=0x0f}
0x38c0…38d8 Line {l1=0x16, l2=» IF CH='=' THEN«, l3=0x16}
0x38d8…3904 Line {l1=0x2a, l2=» BEGIN SYMBOL:=LEQ; NEXTCH END ELSE«, l3=0x2a}
0x3904…391c Line {l1=0x16, l2=» IF CH='>' THEN«, l3=0x16}
0x391c…3948 Line {l1=0x2a, l2=» BEGIN SYMBOL:=NEQ; NEXTCH END ELSE«, l3=0x2a}
0x3948…395f Line {l1=0x15, l2=» SYMBOL:=LSS«, l3=0x15}
0x395f…396b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x396b…3978 Line {l1=0x0b, l2=» '>':BEGIN«, l3=0x0b}
0x3978…3989 Line {l1=0x0f, l2=» NEXTCH;«, l3=0x0f}
0x3989…39a1 Line {l1=0x16, l2=» IF CH='=' THEN«, l3=0x16}
0x39a1…39cd Line {l1=0x2a, l2=» BEGIN SYMBOL:=GEQ; NEXTCH END ELSE«, l3=0x2a}
0x39cd…39e5 Line {l1=0x16, l2=» IF CH='<' THEN«, l3=0x16}
0x39e5…3a11 Line {l1=0x2a, l2=» BEGIN SYMBOL:=NEQ; NEXTCH END ELSE«, l3=0x2a}
0x3a11…3a28 Line {l1=0x15, l2=» SYMBOL:=GTR«, l3=0x15}
0x3a28…3a34 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3a34…3a41 Line {l1=0x0b, l2=» '=':BEGIN«, l3=0x0b}
0x3a41…3a52 Line {l1=0x0f, l2=» NEXTCH;«, l3=0x0f}
0x3a52…3a6a Line {l1=0x16, l2=» IF CH='<' THEN«, l3=0x16}
0x3a6a…3a96 Line {l1=0x2a, l2=» BEGIN SYMBOL:=LEQ; NEXTCH END ELSE«, l3=0x2a}
0x3a96…3aae Line {l1=0x16, l2=» IF CH='>' THEN«, l3=0x16}
0x3aae…3ada Line {l1=0x2a, l2=» BEGIN SYMBOL:=GEQ; NEXTCH END ELSE«, l3=0x2a}
0x3ada…3af1 Line {l1=0x15, l2=» SYMBOL:=EQL«, l3=0x15}
0x3af1…3afc Line {l1=0x09, l2=» END«, l3=0x09}
0x3afc…3b09 Line {l1=0x0b, l2=» OTHERWISE«, l3=0x0b}
0x3b09…3b12 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3b12…3b29 Line {l1=0x15, l2=» SYMBOL:=OTHERSYM;«, l3=0x15}
0x3b29…3b35 Line {l1=0x0a, l2=» NEXTCH«, l3=0x0a}
0x3b35…3b3c Line {l1=0x05, l2=» END«, l3=0x05}
0x3b3c…3b44 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3b44…3b83 Line {l1=0x3d, l2=» WRITELN('SYMTYPE ',ORD(SYMBOL):5,' SYMBOL ',SYM);DELAY(100)«, l3=0x3d}
0x3b83…3b89 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3b89…3b91 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3b91…3ba4 Line {l1=0x11, l2=»PROCEDURE INDSYM;«, l3=0x11}
0x3ba4…3bab Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3bab…3bb6 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x3bb6…3bc2 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x3bc2…3bcc Line {l1=0x08, l2=» GETSYM«, l3=0x08}
0x3bcc…3bd2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3bd2…3bfc Line {l1=0x28, l2=»PROCEDURE SYNTFEJL(EXPECSYM:SYMBOLTYPE);«, l3=0x28}
0x3bfc…3c03 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3c03…3c2e Line {l1=0x29, l2=» WRITELN('SYNTAKSFEJL',ORD(EXPECSYM):5);«, l3=0x29}
0x3c2e…3c38 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3c38…3c44 Line {l1=0x0a, l2=» INDSYM«, l3=0x0a}
0x3c44…3c5d Line {l1=0x17, l2=» UNTIL SYMBOL=EXPECSYM«, l3=0x17}
0x3c5d…3c72 Line {l1=0x13, l2=» (*SKAL UDBYGGES*)«, l3=0x13}
0x3c72…3c78 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3c78…3c80 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3c80…3c9a Line {l1=0x18, l2=»FUNCTION LODRET:ELEMENT;«, l3=0x18}
0x3c9a…3ca4 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x3ca4…3cbf Line {l1=0x19, l2=»FUNCTION VANDRET:ELEMENT;«, l3=0x19}
0x3cbf…3cc9 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x3cc9…3ce1 Line {l1=0x16, l2=»FUNCTION EXPR:ELEMENT;«, l3=0x16}
0x3ce1…3ceb Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x3ceb…3cf3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3cf3…3d11 Line {l1=0x1c, l2=»FUNCTION GENTAGELSE:ELEMENT;«, l3=0x1c}
0x3d11…3d24 Line {l1=0x11, l2=»VAR THIS:ELEMENT;«, l3=0x11}
0x3d24…3d39 Line {l1=0x13, l2=» OPTION:INTEGER;«, l3=0x13}
0x3d39…3d40 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3d40…3d55 Line {l1=0x13, l2=» NEW(THIS,GENTAG);«, l3=0x13}
0x3d55…3d73 Line {l1=0x1c, l2=» THIS^.ELEMENTTYPE:=GENTAG;«, l3=0x1c}
0x3d73…3d83 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3d83…3d8d Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3d8d…3d9f Line {l1=0x10, l2=» GOTOXY(1,2);«, l3=0x10}
0x3d9f…3dcf Line {l1=0x2e, l2=» WRITELN('RELATIV POSITIONSÆNDRING DX DY');«, l3=0x2e}
0x3dcf…3de2 Line {l1=0x11, l2=» GOTOXY(32,2);«, l3=0x11}
0x3de2…3e14 Line {l1=0x30, l2=» READLN;READ(THIS^.POSINCR.X,THIS^.POSINCR.Y)«, l3=0x30}
0x3e14…3e23 Line {l1=0x0d, l2=» (*CHECK*)«, l3=0x0d}
0x3e23…3e38 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x3e38…3e42 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3e42…3e54 Line {l1=0x10, l2=» GOTOXY(1,3);«, l3=0x10}
0x3e54…3e83 Line {l1=0x2d, l2=» WRITELN('LØKKETYPE: REPEAT:1, WHILE:2');«, l3=0x2d}
0x3e83…3e96 Line {l1=0x11, l2=» GOTOXY(32,3);«, l3=0x11}
0x3e96…3eaf Line {l1=0x17, l2=» READLN;READ(OPTION)«, l3=0x17}
0x3eaf…3ee6 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=2);«, l3=0x35}
0x3ee6…3f2f Line {l1=0x47, l2=» IF OPTION=1 THEN THIS^.LØKKETYPE:=REPETE ELSE THIS^.LØKKETYPE:=WAILE;«, l3=0x47}
0x3f2f…3f5f Line {l1=0x2e, l2=» THIS^.FIRSTFELT:=NIL;THIS^.NEXTELEMENT:=NIL;«, l3=0x2e}
0x3f5f…3f6f Line {l1=0x0e, l2=» GOTOXY(1,4);«, l3=0x0e}
0x3f6f…3f8a Line {l1=0x19, l2=» WRITELN('Betingelse ');«, l3=0x19}
0x3f8a…3f9b Line {l1=0x0f, l2=» GOTOXY(12,4);«, l3=0x0f}
0x3f9b…3fa6 Line {l1=0x09, l2=» INDSYM;«, l3=0x09}
0x3fa6…3fc1 Line {l1=0x19, l2=» THIS^.BETINGELSE:=EXPR;«, l3=0x19}
0x3fc1…3fde Line {l1=0x1b, l2=» THIS^.FIRSTFELT:=VANDRET;«, l3=0x1b}
0x3fde…3ffc Line {l1=0x1c, l2=» THIS^.NEXTELEMENT:=LODRET;«, l3=0x1c}
0x3ffc…4010 Line {l1=0x12, l2=» GENTAGELSE:=THIS«, l3=0x12}
0x4010…4016 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4016…401e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x401e…4039 Line {l1=0x19, l2=»FUNCTION BILLEDE:ELEMENT;«, l3=0x19}
0x4039…404c Line {l1=0x11, l2=»VAR THIS:ELEMENT;«, l3=0x11}
0x404c…4061 Line {l1=0x13, l2=» OPTION:INTEGER;«, l3=0x13}
0x4061…4068 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4068…407e Line {l1=0x14, l2=» NEW(THIS,PICTURE);«, l3=0x14}
0x407e…409d Line {l1=0x1d, l2=» THIS^.ELEMENTTYPE:=PICTURE;«, l3=0x1d}
0x409d…40ad Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x40ad…40bd Line {l1=0x0e, l2=» GOTOXY(1,2);«, l3=0x0e}
0x40bd…40d7 Line {l1=0x18, l2=» WRITELN('Billednavn');«, l3=0x18}
0x40d7…40e8 Line {l1=0x0f, l2=» GOTOXY(12,2);«, l3=0x0f}
0x40e8…4107 Line {l1=0x1d, l2=» THIS^.PICTNAVN:=' ';«, l3=0x1d}
0x4107…4120 Line {l1=0x17, l2=» EDIT(THIS^.PICTNAVN);«, l3=0x17}
0x4120…412a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x412a…413c Line {l1=0x10, l2=» GOTOXY(1,3);«, l3=0x10}
0x413c…416a Line {l1=0x2c, l2=» WRITELN('Relativ positionsændring X Y');«, l3=0x2c}
0x416a…417d Line {l1=0x11, l2=» GOTOXY(32,3);«, l3=0x11}
0x417d…41af Line {l1=0x30, l2=» READLN;READ(THIS^.PICTPOS.X,THIS^.PICTPOS.Y)«, l3=0x30}
0x41af…41be Line {l1=0x0d, l2=» (*CHECK*)«, l3=0x0d}
0x41be…41d3 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x41d3…4203 Line {l1=0x2e, l2=» THIS^.FØRSTFELT:=NIL;THIS^.NEXTELEMENT:=NIL;«, l3=0x2e}
0x4203…4220 Line {l1=0x1b, l2=» THIS^.FØRSTFELT:=VANDRET;«, l3=0x1b}
0x4220…423e Line {l1=0x1c, l2=» THIS^.NEXTELEMENT:=LODRET;«, l3=0x1c}
0x423e…424f Line {l1=0x0f, l2=» BILLEDE:=THIS«, l3=0x0f}
0x424f…4255 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4255…425d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x425d…4276 Line {l1=0x17, l2=»FUNCTION FIELD:ELEMENT;«, l3=0x17}
0x4276…4289 Line {l1=0x11, l2=»VAR THIS:ELEMENT;«, l3=0x11}
0x4289…429e Line {l1=0x13, l2=» OPTION:INTEGER;«, l3=0x13}
0x429e…42a5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x42a5…42b5 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x42b5…42bf Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x42bf…42d1 Line {l1=0x10, l2=» GOTOXY(1,2);«, l3=0x10}
0x42d1…4311 Line {l1=0x3e, l2=» WRITELN('Felttype: REEL:1, HELTAL:2, DOBBTAL:3, TEKST:4');«, l3=0x3e}
0x4311…4324 Line {l1=0x11, l2=» GOTOXY(48,2);«, l3=0x11}
0x4324…433d Line {l1=0x17, l2=» READLN;READ(OPTION)«, l3=0x17}
0x433d…4374 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=4);«, l3=0x35}
0x4374…43b8 Line {l1=0x42, l2=» IF OPTION=1 THEN NEW(THIS,FELT,REEL) ELSE NEW(THIS,FELT,HELTAL);«, l3=0x42}
0x43b8…43d3 Line {l1=0x19, l2=» THIS^.NEXTELEMENT:=NIL;«, l3=0x19}
0x43d3…43ef Line {l1=0x1a, l2=» THIS^.ELEMENTTYPE:=FELT;«, l3=0x1a}
0x43ef…4401 Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0x4401…441c Line {l1=0x19, l2=» 1:THIS^.FELTTYPE:=REEL;«, l3=0x19}
0x441c…4439 Line {l1=0x1b, l2=» 2:THIS^.FELTTYPE:=HELTAL;«, l3=0x1b}
0x4439…4457 Line {l1=0x1c, l2=» 3:THIS^.FELTTYPE:=DOBBTAL;«, l3=0x1c}
0x4457…4472 Line {l1=0x19, l2=» 4:THIS^.FELTTYPE:=TEKST«, l3=0x19}
0x4472…447a Line {l1=0x06, l2=» END;«, l3=0x06}
0x447a…4484 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4484…4496 Line {l1=0x10, l2=» GOTOXY(1,3);«, l3=0x10}
0x4496…44bc Line {l1=0x24, l2=» WRITELN('Relativ position X Y');«, l3=0x24}
0x44bc…44cf Line {l1=0x11, l2=» GOTOXY(23,3);«, l3=0x11}
0x44cf…44ff Line {l1=0x2e, l2=» READLN;READ(THIS^.INDPOS.X,THIS^.INDPOS.Y)«, l3=0x2e}
0x44ff…450e Line {l1=0x0d, l2=» (*CHECK*)«, l3=0x0d}
0x450e…4523 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x4523…452d Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x452d…453f Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x453f…457a Line {l1=0x39, l2=» WRITELN('Udskrivning -1, Indlæsning 0, Editering 1');«, l3=0x39}
0x457a…458d Line {l1=0x11, l2=» GOTOXY(43,4);«, l3=0x11}
0x458d…45af Line {l1=0x20, l2=» READLN;READ(THIS^.EDITERING)«, l3=0x20}
0x45af…45f9 Line {l1=0x48, l2=» UNTIL (IORESULT=0) AND (THIS^.EDITERING>=-1) AND (THIS^.EDITERING<=1);«, l3=0x48}
0x45f9…4603 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4603…4615 Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x4615…462d Line {l1=0x16, l2=» WRITELN('Længde');«, l3=0x16}
0x462d…4658 Line {l1=0x29, l2=» GOTOXY(8,5);READLN;READ(THIS^.LÆNGDE)«, l3=0x29}
0x4658…466d Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x466d…4677 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4677…4689 Line {l1=0x10, l2=» GOTOXY(1,6);«, l3=0x10}
0x4689…46a1 Line {l1=0x16, l2=» WRITELN('FORAN0');«, l3=0x16}
0x46a1…46cc Line {l1=0x29, l2=» GOTOXY(8,6);READLN;READ(THIS^.FORAN0)«, l3=0x29}
0x46cc…46e1 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x46e1…4700 Line {l1=0x1d, l2=» IF THIS^.FELTTYPE=REEL THEN«, l3=0x1d}
0x4700…470a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x470a…471c Line {l1=0x10, l2=» GOTOXY(1,7);«, l3=0x10}
0x471c…4737 Line {l1=0x19, l2=» WRITELN('Decimaler');«, l3=0x19}
0x4737…4760 Line {l1=0x27, l2=» GOTOXY(11,7);READLN;READ(THIS^.DEC)«, l3=0x27}
0x4760…4775 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x4775…4785 Line {l1=0x0e, l2=» GOTOXY(1,8);«, l3=0x0e}
0x4785…47a0 Line {l1=0x19, l2=» WRITELN('Indlæs felt');«, l3=0x19}
0x47a0…47b1 Line {l1=0x0f, l2=» GOTOXY(13,8);«, l3=0x0f}
0x47b1…47bc Line {l1=0x09, l2=» INDSYM;«, l3=0x09}
0x47bc…47d7 Line {l1=0x19, l2=» IF SYMBOL=TEKSTSYM THEN«, l3=0x19}
0x47d7…47e0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x47e0…482a Line {l1=0x48, l2=» WRITELN(ORD(POST(0).AA(-11)):10,ORD(POST(0).AA(-10)):10);DELAY(100);«, l3=0x48}
0x482a…486c Line {l1=0x40, l2=» THIS^.INDEKS:=100*ORD(POST(0).AA(-11))+ORD(POST(0).AA(-10));«, l3=0x40}
0x486c…489f Line {l1=0x31, l2=» WRITELN(THIS^.INDEKS:10,CLÆNG:10);DELAY(100);«, l3=0x31}
0x489f…48d5 Line {l1=0x34, l2=» MOVELEFT(SYM(1),POST(0).AA(THIS^.INDEKS),CLÆNG);«, l3=0x34}
0x48d5…48ec Line {l1=0x15, l2=» THIS^.POSTREF:=0;«, l3=0x15}
0x48ec…4925 Line {l1=0x37, l2=» POST(0).AA(-11):=CHR((THIS^.INDEKS+CLÆNG) DIV 100);«, l3=0x37}
0x4925…495e Line {l1=0x37, l2=» POST(0).AA(-10):=CHR((THIS^.INDEKS+CLÆNG) MOD 100);«, l3=0x37}
0x495e…497e Line {l1=0x1e, l2=» THIS^.NEXTELEMENT:=VANDRET«, l3=0x1e}
0x497e…4985 Line {l1=0x05, l2=» END«, l3=0x05}
0x4985…498d Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x498d…4996 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4996…49b4 Line {l1=0x1c, l2=» THIS^.NEXTELEMENT:=EXPR;«, l3=0x1c}
0x49b4…49fe Line {l1=0x48, l2=» IF (THIS^.NEXTELEMENT^.NEXTELEMENT=NIL) OR (THIS^.EDITERING>=0) THEN«, l3=0x48}
0x49fe…4a09 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4a09…4a39 Line {l1=0x2e, l2=» THIS^.INDEKS:=THIS^.NEXTELEMENT^.CVDEKS;«, l3=0x2e}
0x4a39…4a69 Line {l1=0x2e, l2=» THIS^.POSTREF:=THIS^.NEXTELEMENT^.CVREF;«, l3=0x2e}
0x4a69…4a8b Line {l1=0x20, l2=» THIS^.NEXTELEMENT:=VANDRET«, l3=0x20}
0x4a8b…4a94 Line {l1=0x07, l2=» END«, l3=0x07}
0x4a94…4a9e Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4a9e…4aa9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4aa9…4ac2 Line {l1=0x17, l2=» THIS^.POSTREF:=0;«, l3=0x17}
0x4ac2…4ae0 Line {l1=0x1c, l2=» CASE THIS^.FELTTYPE OF«, l3=0x1c}
0x4ae0…4afd Line {l1=0x1b, l2=» REEL:THIS^.INDEKS:=0;«, l3=0x1b}
0x4afd…4b24 Line {l1=0x25, l2=» HELTAL,DOBBTAL:THIS^.INDEKS:=-4«, l3=0x25}
0x4b24…4b2f Line {l1=0x09, l2=» END«, l3=0x09}
0x4b2f…4b38 Line {l1=0x07, l2=» END«, l3=0x07}
0x4b38…4b40 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4b40…4b4f Line {l1=0x0d, l2=» FIELD:=THIS«, l3=0x0d}
0x4b4f…4b55 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4b55…4b5d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4b5d…4b77 Line {l1=0x18, l2=»FUNCTION FACTØR:ELEMENT;«, l3=0x18}
0x4b77…4b8a Line {l1=0x11, l2=»VAR THIS:ELEMENT;«, l3=0x11}
0x4b8a…4ba5 Line {l1=0x19, l2=» FILNR,POSTNR:INTEGER;«, l3=0x19}
0x4ba5…4bac Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4bac…4bbe Line {l1=0x10, l2=» CASE SYMBOL OF«, l3=0x10}
0x4bbe…4bce Line {l1=0x0e, l2=» LPAREN:BEGIN«, l3=0x0e}
0x4bce…4bfa Line {l1=0x2a, l2=» NEW(THIS,KSLOP,FACTOR,LPEXPRP);«, l3=0x2a}
0x4bfa…4c1f Line {l1=0x23, l2=» THIS^.FACTTYPE:=LPEXPRP;«, l3=0x23}
0x4c1f…4c33 Line {l1=0x12, l2=» GETSYM;«, l3=0x12}
0x4c33…4c58 Line {l1=0x23, l2=» THIS^.NEXTELEMENT:=EXPR;«, l3=0x23}
0x4c58…4c8d Line {l1=0x33, l2=» IF SYMBOL<>RPAREN THEN SYNTFEJL(RPAREN);«, l3=0x33}
0x4c8d…4ca0 Line {l1=0x11, l2=» GETSYM«, l3=0x11}
0x4ca0…4caf Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x4caf…4cbf Line {l1=0x0e, l2=» NOTOP: BEGIN«, l3=0x0e}
0x4cbf…4ceb Line {l1=0x2a, l2=» NEW(THIS,KSLOP,FACTOR,NOTFACT);«, l3=0x2a}
0x4ceb…4d10 Line {l1=0x23, l2=» THIS^.FACTTYPE:=NOTFACT;«, l3=0x23}
0x4d10…4d24 Line {l1=0x12, l2=» GETSYM;«, l3=0x12}
0x4d24…4d4a Line {l1=0x24, l2=» THIS^.NEXTELEMENT:=FACTØR«, l3=0x24}
0x4d4a…4d59 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x4d59…4d66 Line {l1=0x0b, l2=» CONSTSYM:«, l3=0x0b}
0x4d66…4d76 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x4d76…4da3 Line {l1=0x2b, l2=» NEW(THIS,KSLOP,FACTOR,CONSTVAR);«, l3=0x2b}
0x4da3…4dc9 Line {l1=0x24, l2=» THIS^.FACTTYPE:=CONSTVAR;«, l3=0x24}
0x4dc9…4de5 Line {l1=0x1a, l2=» THIS^.CVREF:=0;«, l3=0x1a}
0x4de5…4e09 Line {l1=0x22, l2=» THIS^.NEXTELEMENT:=NIL;«, l3=0x22}
0x4e09…4e25 Line {l1=0x1a, l2=» IF CDECS>0 THEN«, l3=0x1a}
0x4e25…4e37 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x4e37…4e59 Line {l1=0x20, l2=» THIS^.CVTYPE:=REEL;«, l3=0x20}
0x4e59…4e8c Line {l1=0x31, l2=» THIS^.CVDEKS:=TRUNC(POST(0).AAA(0));«, l3=0x31}
0x4e8c…4ebf Line {l1=0x31, l2=» POST(0).AAA(THIS^.CVDEKS):=CONSTANT;«, l3=0x31}
0x4ebf…4ef0 Line {l1=0x2f, l2=» POST(0).AAA(0):=POST(0).AAA(0)+1.0«, l3=0x2f}
0x4ef0…4f00 Line {l1=0x0e, l2=» END«, l3=0x0e}
0x4f00…4f11 Line {l1=0x0f, l2=» ELSE«, l3=0x0f}
0x4f11…4f37 Line {l1=0x24, l2=» IF CONSTANT<=32767.0 THEN«, l3=0x24}
0x4f37…4f49 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x4f49…4f6d Line {l1=0x22, l2=» THIS^.CVTYPE:=HELTAL;«, l3=0x22}
0x4f6d…4f98 Line {l1=0x29, l2=» THIS^.CVDEKS:=POST(0).A(-4);«, l3=0x29}
0x4f98…4fd0 Line {l1=0x36, l2=» POST(0).A(THIS^.CVDEKS):=TRUNC(CONSTANT);«, l3=0x36}
0x4fd0…4ffd Line {l1=0x2b, l2=» POST(0).A(-4):=POST(0).A(-4)+1«, l3=0x2b}
0x4ffd…500d Line {l1=0x0e, l2=» END«, l3=0x0e}
0x500d…501e Line {l1=0x0f, l2=» ELSE«, l3=0x0f}
0x501e…5030 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x5030…5055 Line {l1=0x23, l2=» THIS^.CVTYPE:=DOBBTAL;«, l3=0x23}
0x5055…5080 Line {l1=0x29, l2=» THIS^.CVDEKS:=POST(0).A(-4);«, l3=0x29}
0x5080…50c0 Line {l1=0x3e, l2=» POST(0).A(THIS^.CVDEKS):=TRUNC(CONSTANT/10000.0);«, l3=0x3e}
0x50c0…5101 Line {l1=0x3f, l2=» POST(0).A(THIS^.CVDEKS+1):=TRUNC(CONSTANT-10000.0*«, l3=0x3f}
0x5101…514a Line {l1=0x47, l2=» POST(0).A(THIS^.CVDEKS));«, l3=0x47}
0x514a…5177 Line {l1=0x2b, l2=» POST(0).A(-4):=POST(0).A(-4)+2«, l3=0x2b}
0x5177…5188 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x5188…519b Line {l1=0x11, l2=» GETSYM«, l3=0x11}
0x519b…51aa Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x51aa…51b6 Line {l1=0x0a, l2=» POSTSYM:«, l3=0x0a}
0x51b6…51c6 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x51c6…51d8 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x51d8…51ee Line {l1=0x14, l2=» FILNR:=0;«, l3=0x14}
0x51ee…5201 Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x5201…521e Line {l1=0x1b, l2=» FILNR:=FILNR+1«, l3=0x1b}
0x521e…5263 Line {l1=0x43, l2=» UNTIL (FILNR=MAXFILES) OR (FILINFO(FILNR).POSTNAVN=SYM);«, l3=0x43}
0x5263…52a6 Line {l1=0x41, l2=» IF FILINFO(FILNR).POSTNAVN<>SYM THEN SYNTFEJL(POSTSYM)«, l3=0x41}
0x52a6…52d4 Line {l1=0x2c, l2=» UNTIL FILINFO(FILNR).POSTNAVN=SYM;«, l3=0x2c}
0x52d4…5303 Line {l1=0x2d, l2=» NEW(THIS,KSLOP,FACTOR,CONSTVAR);«, l3=0x2d}
0x5303…532b Line {l1=0x26, l2=» THIS^.FACTTYPE:=CONSTVAR;«, l3=0x26}
0x532b…5351 Line {l1=0x24, l2=» THIS^.NEXTELEMENT:=NIL;«, l3=0x24}
0x5351…537e Line {l1=0x2b, l2=» IF FILINFO(FILNR).USENR=0 THEN«, l3=0x2b}
0x537e…5392 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x5392…53a9 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x53a9…53e8 Line {l1=0x3d, l2=» FILINFO(FILNR).USENR:=FILINFO(FILNR).USENR+1«, l3=0x3d}
0x53e8…5429 Line {l1=0x3f, l2=» UNTIL LISTEHOVED^.FILES(FILINFO(FILNR).USENR)=0;«, l3=0x3f}
0x5429…5468 Line {l1=0x3d, l2=» LISTEHOVED^.FILES(FILINFO(FILNR).USENR):=FILNR«, l3=0x3d}
0x5468…547b Line {l1=0x11, l2=» END;«, l3=0x11}
0x547b…54ac Line {l1=0x2f, l2=» THIS^.CVREF:=FILINFO(FILNR).USENR;«, l3=0x2f}
0x54ac…54eb Line {l1=0x3d, l2=» GETSYM; IF SYMBOL<>PERIOD THEN SYNTFEJL(PERIOD);«, l3=0x3d}
0x54eb…552e Line {l1=0x41, l2=» GETSYM; IF SYMBOL<>IDENTSYM THEN SYNTFEJL(IDENTSYM);«, l3=0x41}
0x552e…5542 Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x5542…555c Line {l1=0x18, l2=» POSTNR:=-1;«, l3=0x18}
0x555c…5571 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x5571…5592 Line {l1=0x1f, l2=» POSTNR:=POSTNR+1«, l3=0x1f}
0x5592…55ba Line {l1=0x26, l2=» UNTIL (POSTNR=MAXFELT) OR«, l3=0x26}
0x55ba…55fd Line {l1=0x41, l2=» (FILINFO(FILNR).FELTINF(POSTNR).FELTNAVN=SYM);«, l3=0x41}
0x55fd…5640 Line {l1=0x41, l2=» IF FILINFO(FILNR).FELTINF(POSTNR).FELTNAVN<>SYM THEN«, l3=0x41}
0x5640…5663 Line {l1=0x21, l2=» SYNTFEJL(IDENTSYM)«, l3=0x21}
0x5663…56a3 Line {l1=0x3e, l2=» UNTIL FILINFO(FILNR).FELTINF(POSTNR).FELTNAVN=SYM;«, l3=0x3e}
0x56a3…56e8 Line {l1=0x43, l2=» THIS^.CVDEKS:=FILINFO(FILNR).FELTINF(POSTNR).INDEKS;«, l3=0x43}
0x56e8…572f Line {l1=0x45, l2=» THIS^.CVTYPE:=FILINFO(FILNR).FELTINF(POSTNR).FELTTYPE;«, l3=0x45}
0x572f…5746 Line {l1=0x15, l2=» GETSYM«, l3=0x15}
0x5746…5755 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x5755…5761 Line {l1=0x0a, l2=» IDENTSYM:«, l3=0x0a}
0x5761…5798 Line {l1=0x35, l2=» BEGIN (*HJÆLPEVARIABEL, FELT I NULPOSTEN*)«, l3=0x35}
0x5798…57aa Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x57aa…57c2 Line {l1=0x16, l2=» POSTNR:=-1;«, l3=0x16}
0x57c2…57d5 Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x57d5…57f4 Line {l1=0x1d, l2=» POSTNR:=POSTNR+1«, l3=0x1d}
0x57f4…581a Line {l1=0x24, l2=» UNTIL (POSTNR=MAXFELT) OR«, l3=0x24}
0x581a…5857 Line {l1=0x3b, l2=» (FILINFO(0).FELTINF(POSTNR).FELTNAVN=SYM);«, l3=0x3b}
0x5857…58a6 Line {l1=0x4d, l2=» IF FILINFO(0).FELTINF(POSTNR).FELTNAVN<>SYM THEN SYNTFEJL(IDENTSYM)«, l3=0x4d}
0x58a6…58e0 Line {l1=0x38, l2=» UNTIL FILINFO(0).FELTINF(POSTNR).FELTNAVN=SYM;«, l3=0x38}
0x58e0…590f Line {l1=0x2d, l2=» NEW(THIS,KSLOP,FACTOR,CONSTVAR);«, l3=0x2d}
0x590f…5937 Line {l1=0x26, l2=» THIS^.FACTTYPE:=CONSTVAR;«, l3=0x26}
0x5937…595d Line {l1=0x24, l2=» THIS^.NEXTELEMENT:=NIL;«, l3=0x24}
0x595d…597b Line {l1=0x1c, l2=» THIS^.CVREF:=0;«, l3=0x1c}
0x597b…59ba Line {l1=0x3d, l2=» THIS^.CVDEKS:=FILINFO(0).FELTINF(POSTNR).INDEKS;«, l3=0x3d}
0x59ba…59fb Line {l1=0x3f, l2=» THIS^.CVTYPE:=FILINFO(0).FELTINF(POSTNR).FELTTYPE;«, l3=0x3f}
0x59fb…5a10 Line {l1=0x13, l2=» GETSYM«, l3=0x13}
0x5a10…5a1e Line {l1=0x0c, l2=» END«, l3=0x0c}
0x5a1e…5a26 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5a26…5a43 Line {l1=0x1b, l2=» THIS^.ELEMENTTYPE:=KSLOP;«, l3=0x1b}
0x5a43…5a5c Line {l1=0x17, l2=» THIS^.POLISH:=FACTOR;«, l3=0x17}
0x5a5c…5a72 Line {l1=0x14, l2=» THIS^.SECOND:=NIL;«, l3=0x14}
0x5a72…5a82 Line {l1=0x0e, l2=» FACTØR:=THIS«, l3=0x0e}
0x5a82…5a88 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5a88…5a90 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5a90…5aa8 Line {l1=0x16, l2=»FUNCTION TÆRM:ELEMENT;«, l3=0x16}
0x5aa8…5ac0 Line {l1=0x16, l2=»VAR THIS,NEXT:ELEMENT;«, l3=0x16}
0x5ac0…5ac7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5ac7…5ad8 Line {l1=0x0f, l2=» NEXT:=FACTØR;«, l3=0x0f}
0x5ad8…5afe Line {l1=0x24, l2=» IF SYMBOL IN (.TIMES..ANDOP.) THEN«, l3=0x24}
0x5afe…5b07 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5b07…5b22 Line {l1=0x19, l2=» NEW(THIS,KSLOP,TERM);«, l3=0x19}
0x5b22…5b40 Line {l1=0x1c, l2=» THIS^.NEXTELEMENT:=NEXT;«, l3=0x1c}
0x5b40…5b59 Line {l1=0x17, l2=» THIS^.POLISH:=TERM;«, l3=0x17}
0x5b59…5b73 Line {l1=0x18, l2=» THIS^.TRMOP:=SYMBOL;«, l3=0x18}
0x5b73…5b80 Line {l1=0x0b, l2=» GETSYM;«, l3=0x0b}
0x5b80…5b9b Line {l1=0x19, l2=» THIS^.SECOND:=FACTØR;«, l3=0x19}
0x5b9b…5bab Line {l1=0x0e, l2=» TÆRM:=THIS«, l3=0x0e}
0x5bab…5bb2 Line {l1=0x05, l2=» END«, l3=0x05}
0x5bb2…5bc5 Line {l1=0x11, l2=» ELSE TÆRM:=NEXT«, l3=0x11}
0x5bc5…5bcb Line {l1=0x04, l2=»END;«, l3=0x04}
0x5bcb…5bd3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5bd3…5bdc Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x5bdc…5bfa Line {l1=0x1c, l2=»FUNCTION SIMPLEEXPR:ELEMENT;«, l3=0x1c}
0x5bfa…5c12 Line {l1=0x16, l2=»VAR THIS,NEXT:ELEMENT;«, l3=0x16}
0x5c12…5c19 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5c19…5c3d Line {l1=0x22, l2=» IF SYMBOL IN (.PLUS,MINUS.) THEN«, l3=0x22}
0x5c3d…5c46 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5c46…5c64 Line {l1=0x1c, l2=» NEW(THIS,KSLOP,SIMPLEX);«, l3=0x1c}
0x5c64…5c83 Line {l1=0x1d, l2=» THIS^.ELEMENTTYPE:=KSLOP;«, l3=0x1d}
0x5c83…5c9f Line {l1=0x1a, l2=» THIS^.POLISH:=SIMPLEX;«, l3=0x1a}
0x5c9f…5cba Line {l1=0x19, l2=» THIS^.SIMOP1:=SYMBOL;«, l3=0x19}
0x5cba…5cc6 Line {l1=0x0a, l2=» GETSYM«, l3=0x0a}
0x5cc6…5cdd Line {l1=0x15, l2=» END ELSE THIS:=NIL;«, l3=0x15}
0x5cdd…5cec Line {l1=0x0d, l2=» NEXT:=TÆRM;«, l3=0x0d}
0x5cec…5d15 Line {l1=0x27, l2=» IF SYMBOL IN (.PLUS,MINUS,OROP.) THEN«, l3=0x27}
0x5d15…5d1e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5d1e…5d34 Line {l1=0x14, l2=» IF THIS=NIL THEN«, l3=0x14}
0x5d34…5d3f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5d3f…5d5f Line {l1=0x1e, l2=» NEW(THIS,KSLOP,SIMPLEX);«, l3=0x1e}
0x5d5f…5d80 Line {l1=0x1f, l2=» THIS^.ELEMENTTYPE:=KSLOP;«, l3=0x1f}
0x5d80…5d9e Line {l1=0x1c, l2=» THIS^.POLISH:=SIMPLEX;«, l3=0x1c}
0x5d9e…5dd0 Line {l1=0x30, l2=» THIS^.SIMOP1:=OROP (*INGEN 1. OPERATOR*)«, l3=0x30}
0x5dd0…5dda Line {l1=0x08, l2=» END;«, l3=0x08}
0x5dda…5df5 Line {l1=0x19, l2=» THIS^.SIMOP2:=SYMBOL;«, l3=0x19}
0x5df5…5e13 Line {l1=0x1c, l2=» THIS^.NEXTELEMENT:=NEXT;«, l3=0x1c}
0x5e13…5e20 Line {l1=0x0b, l2=» GETSYM;«, l3=0x0b}
0x5e20…5e39 Line {l1=0x17, l2=» THIS^.SECOND:=TÆRM;«, l3=0x17}
0x5e39…5e4f Line {l1=0x14, l2=» SIMPLEEXPR:=THIS«, l3=0x14}
0x5e4f…5e56 Line {l1=0x05, l2=» END«, l3=0x05}
0x5e56…5e5e Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x5e5e…5e67 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5e67…5e8e Line {l1=0x25, l2=» IF THIS=NIL THEN SIMPLEEXPR:=NEXT«, l3=0x25}
0x5e8e…5e98 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x5e98…5ea3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5ea3…5ec3 Line {l1=0x1e, l2=» THIS^.NEXTELEMENT:=NEXT;«, l3=0x1e}
0x5ec3…5edd Line {l1=0x18, l2=» THIS^.SECOND:=NIL;«, l3=0x18}
0x5edd…5f0f Line {l1=0x30, l2=» THIS^.SIMOP2:=OROP; (*INGEN 2. OPERATOR*)«, l3=0x30}
0x5f0f…5f27 Line {l1=0x16, l2=» SIMPLEEXPR:=THIS«, l3=0x16}
0x5f27…5f30 Line {l1=0x07, l2=» END«, l3=0x07}
0x5f30…5f37 Line {l1=0x05, l2=» END«, l3=0x05}
0x5f37…5f3d Line {l1=0x04, l2=»END;«, l3=0x04}
0x5f3d…5f45 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5f45…5f62 Line {l1=0x1b, l2=»FUNCTION EXPR; (*:ELEMENT*)«, l3=0x1b}
0x5f62…5f7a Line {l1=0x16, l2=»VAR THIS,NEXT:ELEMENT;«, l3=0x16}
0x5f7a…5f81 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5f81…5f96 Line {l1=0x13, l2=» NEXT:=SIMPLEEXPR;«, l3=0x13}
0x5f96…5fb8 Line {l1=0x20, l2=» IF SYMBOL IN (.EQL..GEQ.) THEN«, l3=0x20}
0x5fb8…5fc1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5fc1…5fe2 Line {l1=0x1f, l2=» NEW(THIS,KSLOP,EXPRESSION);«, l3=0x1f}
0x5fe2…6001 Line {l1=0x1d, l2=» THIS^.ELEMENTTYPE:=KSLOP;«, l3=0x1d}
0x6001…6020 Line {l1=0x1d, l2=» THIS^.POLISH:=EXPRESSION;«, l3=0x1d}
0x6020…603e Line {l1=0x1c, l2=» THIS^.NEXTELEMENT:=NEXT;«, l3=0x1c}
0x603e…6058 Line {l1=0x18, l2=» THIS^.EXPOP:=SYMBOL;«, l3=0x18}
0x6058…6065 Line {l1=0x0b, l2=» GETSYM;«, l3=0x0b}
0x6065…6084 Line {l1=0x1d, l2=» THIS^.SECOND:=SIMPLEEXPR;«, l3=0x1d}
0x6084…6094 Line {l1=0x0e, l2=» EXPR:=THIS«, l3=0x0e}
0x6094…609b Line {l1=0x05, l2=» END«, l3=0x05}
0x609b…60a3 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x60a3…60b3 Line {l1=0x0e, l2=» EXPR:=NEXT«, l3=0x0e}
0x60b3…60b9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x60b9…60c1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x60c1…60de Line {l1=0x1b, l2=»FUNCTION BEREGNING:ELEMENT;«, l3=0x1b}
0x60de…60f1 Line {l1=0x11, l2=»VAR THIS:ELEMENT;«, l3=0x11}
0x60f1…610d Line {l1=0x1a, l2=» OPTION,POSTNR:INTEGER;«, l3=0x1a}
0x610d…6114 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6114…6129 Line {l1=0x13, l2=» NEW(THIS,BEREGN);«, l3=0x13}
0x6129…6147 Line {l1=0x1c, l2=» THIS^.ELEMENTTYPE:=BEREGN;«, l3=0x1c}
0x6147…6157 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x6157…6161 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6161…618e Line {l1=0x2b, l2=» WRITELN('Hvilket felt skal beregnes?');«, l3=0x2b}
0x618e…61a7 Line {l1=0x17, l2=» GOTOXY(29,1);INDSYM«, l3=0x17}
0x61a7…61d1 Line {l1=0x28, l2=» UNTIL SYMBOL IN (.POSTSYM..IDENTSYM.);«, l3=0x28}
0x61d1…61ec Line {l1=0x19, l2=» IF SYMBOL=IDENTSYM THEN«, l3=0x19}
0x61ec…61f5 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x61f5…6205 Line {l1=0x0e, l2=» POSTNR:=0;«, l3=0x0e}
0x6205…6211 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x6211…6229 Line {l1=0x16, l2=» POSTNR:=POSTNR+1«, l3=0x16}
0x6229…6261 Line {l1=0x36, l2=» UNTIL (FILINFO(0).FELTINF(POSTNR).FELTNAVN=SYM) OR«, l3=0x36}
0x6261…6297 Line {l1=0x34, l2=» (FILINFO(0).FELTINF(POSTNR).FELTNAVN='@');«, l3=0x34}
0x6297…62cc Line {l1=0x33, l2=» IF FILINFO(0).FELTINF(POSTNR).FELTNAVN='@' THEN«, l3=0x33}
0x62cc…62f4 Line {l1=0x26, l2=» WITH FILINFO(0).FELTINF(POSTNR) DO«, l3=0x26}
0x62f4…62ff Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x62ff…6315 Line {l1=0x14, l2=» FELTNAVN:=SYM;«, l3=0x14}
0x6315…6323 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x6323…6339 Line {l1=0x14, l2=» GOTOXY(1,2);«, l3=0x14}
0x6339…6374 Line {l1=0x39, l2=» WRITELN('Felttype: REEL:1, HELTAL:2, DOBBTAL:3');«, l3=0x39}
0x6374…639e Line {l1=0x28, l2=» GOTOXY(48,2);READLN;READ(OPTION)«, l3=0x28}
0x639e…63d9 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=3);«, l3=0x39}
0x63d9…63ef Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x63ef…63fe Line {l1=0x0d, l2=» 1:BEGIN«, l3=0x0d}
0x63fe…6419 Line {l1=0x19, l2=» FELTTYPE:=REEL;«, l3=0x19}
0x6419…6443 Line {l1=0x28, l2=» INDEKS:=TRUNC(POST(0).AAA(0));«, l3=0x28}
0x6443…6471 Line {l1=0x2c, l2=» POST(0).AAA(0):=POST(0).AAA(0)+1.0«, l3=0x2c}
0x6471…647f Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x647f…648e Line {l1=0x0d, l2=» 2:BEGIN«, l3=0x0d}
0x648e…64ab Line {l1=0x1b, l2=» FELTTYPE:=HELTAL;«, l3=0x1b}
0x64ab…64cd Line {l1=0x20, l2=» INDEKS:=POST(0).A(-4);«, l3=0x20}
0x64cd…64f7 Line {l1=0x28, l2=» POST(0).A(-4):=POST(0).A(-4)+1«, l3=0x28}
0x64f7…6505 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x6505…6514 Line {l1=0x0d, l2=» 3:BEGIN«, l3=0x0d}
0x6514…6532 Line {l1=0x1c, l2=» FELTTYPE:=DOBBTAL;«, l3=0x1c}
0x6532…6554 Line {l1=0x20, l2=» INDEKS:=POST(0).A(-4);«, l3=0x20}
0x6554…657e Line {l1=0x28, l2=» POST(0).A(-4):=POST(0).A(-4)+2«, l3=0x28}
0x657e…658b Line {l1=0x0b, l2=» END«, l3=0x0b}
0x658b…6596 Line {l1=0x09, l2=» END«, l3=0x09}
0x6596…659f Line {l1=0x07, l2=» END«, l3=0x07}
0x659f…65a7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x65a7…65c5 Line {l1=0x1c, l2=» THIS^.NEXTELEMENT:=FACTØR;«, l3=0x1c}
0x65c5…65f0 Line {l1=0x29, l2=» THIS^.GEMREF:=THIS^.NEXTELEMENT^.CVREF;«, l3=0x29}
0x65f0…661f Line {l1=0x2d, l2=» THIS^.GEMINDEKS:=THIS^.NEXTELEMENT^.CVDEKS;«, l3=0x2d}
0x661f…664f Line {l1=0x2e, l2=» THIS^.UDTRYKTYPE:=THIS^.NEXTELEMENT^.CVTYPE;«, l3=0x2e}
0x664f…6665 Line {l1=0x14, l2=» WRITELN('Udtryk');«, l3=0x14}
0x6665…6676 Line {l1=0x0f, l2=» GOTOXY(10,2);«, l3=0x0f}
0x6676…6681 Line {l1=0x09, l2=» INDSYM;«, l3=0x09}
0x6681…6698 Line {l1=0x15, l2=» THIS^.UDTRYK:=EXPR;«, l3=0x15}
0x6698…66b3 Line {l1=0x19, l2=» THIS^.NEXTELEMENT:=NIL;«, l3=0x19}
0x66b3…66d2 Line {l1=0x1d, l2=» THIS^.NEXTELEMENT:=VANDRET;«, l3=0x1d}
0x66d2…66e5 Line {l1=0x11, l2=» BEREGNING:=THIS«, l3=0x11}
0x66e5…66eb Line {l1=0x04, l2=»END;«, l3=0x04}
0x66eb…66f3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x66f3…670d Line {l1=0x18, l2=»FUNCTION IOKOMM:ELEMENT;«, l3=0x18}
0x670d…672d Line {l1=0x1e, l2=»VAR FILNR,OPTION,MODE:INTEGER;«, l3=0x1e}
0x672d…6740 Line {l1=0x11, l2=» THIS:ELEMENT;«, l3=0x11}
0x6740…6747 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6747…6757 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x6757…6777 Line {l1=0x1e, l2=» WRITELN('Læs: 1, Skriv: 2');«, l3=0x1e}
0x6777…6781 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6781…6794 Line {l1=0x11, l2=» GOTOXY(18,1);«, l3=0x11}
0x6794…67ad Line {l1=0x17, l2=» READLN;READ(OPTION)«, l3=0x17}
0x67ad…67e4 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=2);«, l3=0x35}
0x67e4…6828 Line {l1=0x42, l2=» WRITELN('MODE (se behandling af INDKOMMANDO i UDFØR i LISTE)');«, l3=0x42}
0x6828…6832 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6832…6845 Line {l1=0x11, l2=» GOTOXY(54,2);«, l3=0x11}
0x6845…685c Line {l1=0x15, l2=» READLN;READ(MODE)«, l3=0x15}
0x685c…68a0 Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (MODE MOD 10>=1) AND (MODE MOD 10<=3) AND«, l3=0x42}
0x68a0…68cc Line {l1=0x2a, l2=» (MODE DIV 10<=5);«, l3=0x2a}
0x68cc…68d6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x68d6…68e8 Line {l1=0x10, l2=» GOTOXY(1,3);«, l3=0x10}
0x68e8…68fe Line {l1=0x14, l2=» WRITELN('Post');«, l3=0x14}
0x68fe…6910 Line {l1=0x10, l2=» GOTOXY(6,3);«, l3=0x10}
0x6910…691d Line {l1=0x0b, l2=» INDSYM;«, l3=0x0b}
0x691d…694f Line {l1=0x30, l2=» IF SYMBOL<>IDENTSYM THEN SYNTFEJL(IDENTSYM);«, l3=0x30}
0x694f…695e Line {l1=0x0d, l2=» FILNR:=0;«, l3=0x0d}
0x695e…696a Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x696a…6980 Line {l1=0x14, l2=» FILNR:=FILNR+1«, l3=0x14}
0x6980…69be Line {l1=0x3c, l2=» UNTIL (FILNR=MAXFILES) OR (FILINFO(FILNR).POSTNAVN=SYM);«, l3=0x3c}
0x69be…69fb Line {l1=0x3b, l2=» IF FILINFO(FILNR).POSTNAVN<>SYM THEN SYNTFEJL(IDENTSYM)«, l3=0x3b}
0x69fb…6a21 Line {l1=0x24, l2=» UNTIL FILINFO(FILNR).POSTNAVN=SYM;«, l3=0x24}
0x6a21…6a43 Line {l1=0x20, l2=» IF FILINFO(FILNR).USENR=0 THEN«, l3=0x20}
0x6a43…6a4c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6a4c…6a58 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x6a58…6a8c Line {l1=0x32, l2=» FILINFO(FILNR).USENR:=FILINFO(FILNR).USENR+1«, l3=0x32}
0x6a8c…6ac2 Line {l1=0x34, l2=» UNTIL LISTEHOVED^.FILES(FILINFO(FILNR).USENR)=0;«, l3=0x34}
0x6ac2…6af6 Line {l1=0x32, l2=» LISTEHOVED^.FILES(FILINFO(FILNR).USENR):=FILNR«, l3=0x32}
0x6af6…6afe Line {l1=0x06, l2=» END;«, l3=0x06}
0x6afe…6b12 Line {l1=0x12, l2=» IF OPTION=1 THEN«, l3=0x12}
0x6b12…6b1b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6b1b…6b37 Line {l1=0x1a, l2=» NEW(THIS,INDKOMMANDO);«, l3=0x1a}
0x6b37…6b5c Line {l1=0x23, l2=» THIS^.ELEMENTTYPE:=INDKOMMANDO;«, l3=0x23}
0x6b5c…6b88 Line {l1=0x2a, l2=» THIS^.GETFILREF:=FILINFO(FILNR).USENR;«, l3=0x2a}
0x6b88…6ba2 Line {l1=0x18, l2=» THIS^.GETMODE:=MODE;«, l3=0x18}
0x6ba2…6bd3 Line {l1=0x2f, l2=» THIS^.FØRSTNØGL:=NIL (*KAN EVT. UDVIDES*)«, l3=0x2f}
0x6bd3…6bda Line {l1=0x05, l2=» END«, l3=0x05}
0x6bda…6be2 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x6be2…6beb Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6beb…6c06 Line {l1=0x19, l2=» NEW(THIS,UDKOMMANDO);«, l3=0x19}
0x6c06…6c2a Line {l1=0x22, l2=» THIS^.ELEMENTTYPE:=UDKOMMANDO;«, l3=0x22}
0x6c2a…6c56 Line {l1=0x2a, l2=» THIS^.PUTFILREF:=FILINFO(FILNR).USENR;«, l3=0x2a}
0x6c56…6c6f Line {l1=0x17, l2=» THIS^.PUTMODE:=MODE«, l3=0x17}
0x6c6f…6c77 Line {l1=0x06, l2=» END;«, l3=0x06}
0x6c77…6c92 Line {l1=0x19, l2=» THIS^.NEXTELEMENT:=NIL;«, l3=0x19}
0x6c92…6cb1 Line {l1=0x1d, l2=» THIS^.NEXTELEMENT:=VANDRET;«, l3=0x1d}
0x6cb1…6cc1 Line {l1=0x0e, l2=» IOKOMM:=THIS«, l3=0x0e}
0x6cc1…6cc7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x6cc7…6ccf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6ccf…6cef Line {l1=0x1e, l2=»FUNCTION VANDRET; (*:ELEMENT*)«, l3=0x1e}
0x6cef…6d04 Line {l1=0x13, l2=»VAR OPTION:INTEGER;«, l3=0x13}
0x6d04…6d0b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6d0b…6d30 Line {l1=0x23, l2=» IF CHANGING THEN VANDRET:=NIL ELSE«, l3=0x23}
0x6d30…6d39 Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x6d39…6d5b Line {l1=0x20, l2=» IF SINGLE THEN CHANGING:=TRUE;«, l3=0x20}
0x6d5b…6d6b Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x6d6b…6d87 Line {l1=0x1a, l2=» WRITELN('1 Gentagelse');«, l3=0x1a}
0x6d87…6da0 Line {l1=0x17, l2=» WRITELN('2 Billede');«, l3=0x17}
0x6da0…6db6 Line {l1=0x14, l2=» WRITELN('3 Felt');«, l3=0x14}
0x6db6…6dd1 Line {l1=0x19, l2=» WRITELN('4 Beregning');«, l3=0x19}
0x6dd1…6def Line {l1=0x1c, l2=» WRITELN('5 I/O-kommando');«, l3=0x1c}
0x6def…6e07 Line {l1=0x16, l2=» WRITELN('6 Afslut');«, l3=0x16}
0x6e07…6e1e Line {l1=0x15, l2=» WRITELN('7 Oplys');«, l3=0x15}
0x6e1e…6e28 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6e28…6e3b Line {l1=0x11, l2=» GOTOXY(1,15);«, l3=0x11}
0x6e3b…6e55 Line {l1=0x18, l2=» WRITELN('Vælg 1-7');«, l3=0x18}
0x6e55…6e69 Line {l1=0x12, l2=» GOTOXY(10,15);«, l3=0x12}
0x6e69…6e82 Line {l1=0x17, l2=» READLN;READ(OPTION)«, l3=0x17}
0x6e82…6eb9 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=7);«, l3=0x35}
0x6eb9…6ecb Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0x6ecb…6ee5 Line {l1=0x18, l2=» 1:VANDRET:=GENTAGELSE;«, l3=0x18}
0x6ee5…6efc Line {l1=0x15, l2=» 2:VANDRET:=BILLEDE;«, l3=0x15}
0x6efc…6f11 Line {l1=0x13, l2=» 3:VANDRET:=FIELD;«, l3=0x13}
0x6f11…6f2a Line {l1=0x17, l2=» 4:VANDRET:=BEREGNING;«, l3=0x17}
0x6f2a…6f40 Line {l1=0x14, l2=» 5:VANDRET:=IOKOMM;«, l3=0x14}
0x6f40…6f53 Line {l1=0x11, l2=» 6:VANDRET:=NIL;«, l3=0x11}
0x6f53…6f5e Line {l1=0x09, l2=» 7:OPLYS«, l3=0x09}
0x6f5e…6f65 Line {l1=0x05, l2=» END«, l3=0x05}
0x6f65…6f77 Line {l1=0x10, l2=» UNTIL OPTION<>7«, l3=0x10}
0x6f77…6f7d Line {l1=0x04, l2=»END;«, l3=0x04}
0x6f7d…6f85 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6f85…6fa4 Line {l1=0x1d, l2=»FUNCTION LODRET; (*:ELEMENT*)«, l3=0x1d}
0x6fa4…6fb9 Line {l1=0x13, l2=»VAR OPTION:INTEGER;«, l3=0x13}
0x6fb9…6fc0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6fc0…6fe5 Line {l1=0x23, l2=» IF CHANGING THEN LODRET:=NIL ELSE«, l3=0x23}
0x6fe5…6fef Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6fef…7013 Line {l1=0x22, l2=» IF SINGLE THEN CHANGING:=TRUE;«, l3=0x22}
0x7013…7025 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x7025…7043 Line {l1=0x1c, l2=» WRITELN('1 Gentagelse');«, l3=0x1c}
0x7043…705e Line {l1=0x19, l2=» WRITELN('2 Billede');«, l3=0x19}
0x705e…7078 Line {l1=0x18, l2=» WRITELN('3 Afslut');«, l3=0x18}
0x7078…7091 Line {l1=0x17, l2=» WRITELN('4 Oplys');«, l3=0x17}
0x7091…709d Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x709d…70b2 Line {l1=0x13, l2=» GOTOXY(1,15);«, l3=0x13}
0x70b2…70ce Line {l1=0x1a, l2=» WRITELN('Vælg 1-4');«, l3=0x1a}
0x70ce…70e4 Line {l1=0x14, l2=» GOTOXY(10,15);«, l3=0x14}
0x70e4…70ff Line {l1=0x19, l2=» READLN;READ(OPTION)«, l3=0x19}
0x70ff…7138 Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND (OPTION>=1) AND (OPTION<=4);«, l3=0x37}
0x7138…714c Line {l1=0x12, l2=» CASE OPTION OF«, l3=0x12}
0x714c…7167 Line {l1=0x19, l2=» 1:LODRET:=GENTAGELSE;«, l3=0x19}
0x7167…717f Line {l1=0x16, l2=» 2:LODRET:=BILLEDE;«, l3=0x16}
0x717f…7193 Line {l1=0x12, l2=» 3:LODRET:=NIL;«, l3=0x12}
0x7193…71a0 Line {l1=0x0b, l2=» 4:OPLYS«, l3=0x0b}
0x71a0…71a9 Line {l1=0x07, l2=» END«, l3=0x07}
0x71a9…71bc Line {l1=0x11, l2=» UNTIL OPTION<>4«, l3=0x11}
0x71bc…71c2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x71c2…71ca Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x71ca…71d8 Line {l1=0x0c, l2=»(*$ICHANGE*)«, l3=0x0c}
0x71d8…71e0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x71e0…71e7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x71e7…71fb Line {l1=0x12, l2=» CHANGING:=FALSE;«, l3=0x12}
0x71fb…720d Line {l1=0x10, l2=» SINGLE:=FALSE;«, l3=0x10}
0x720d…721a Line {l1=0x0b, l2=» READINFO;«, l3=0x0b}
0x721a…7227 Line {l1=0x0b, l2=» INITTEXT;«, l3=0x0b}
0x7227…723e Line {l1=0x15, l2=» AKTULIST.NAVN:='@';«, l3=0x15}
0x723e…7248 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x7248…725a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x725a…727c Line {l1=0x20, l2=» WRITELN('Valg af funktion');«, l3=0x20}
0x727c…728e Line {l1=0x10, l2=» GOTOXY(1,5);«, l3=0x10}
0x728e…72a8 Line {l1=0x18, l2=» WRITELN('0 Færdig');«, l3=0x18}
0x72a8…72d2 Line {l1=0x28, l2=» WRITELN('1 Definition af ny liste');«, l3=0x28}
0x72d2…7313 Line {l1=0x3f, l2=» WRITELN('2 Ændring af eksisterende liste (listeoversigt)');«, l3=0x3f}
0x7313…733a Line {l1=0x25, l2=» WRITELN('3 Gem listedefinition');«, l3=0x25}
0x733a…7353 Line {l1=0x17, l2=» WRITELN('4 Oplys');«, l3=0x17}
0x7353…735f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x735f…7371 Line {l1=0x10, l2=» OPTION:=0;«, l3=0x10}
0x7371…7386 Line {l1=0x13, l2=» GOTOXY(1,15);«, l3=0x13}
0x7386…73a2 Line {l1=0x1a, l2=» WRITELN('Vælg 0-4');«, l3=0x1a}
0x73a2…73b8 Line {l1=0x14, l2=» GOTOXY(10,15);«, l3=0x14}
0x73b8…73d3 Line {l1=0x19, l2=» READLN;READ(OPTION)«, l3=0x19}
0x73d3…740c Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND (OPTION>=0) AND (OPTION<=4);«, l3=0x37}
0x740c…7420 Line {l1=0x12, l2=» CASE OPTION OF«, l3=0x12}
0x7420…742d Line {l1=0x0b, l2=» 1:BEGIN«, l3=0x0b}
0x742d…7451 Line {l1=0x22, l2=» NEW(LISTEHOVED,LISTEDESC);«, l3=0x22}
0x7451…747e Line {l1=0x2b, l2=» LISTEHOVED^.ELEMENTTYPE:=LISTEDESC;«, l3=0x2b}
0x747e…74b1 Line {l1=0x31, l2=» FOR I:=1 TO 8 DO LISTEHOVED^.FILES(I):=0;«, l3=0x31}
0x74b1…74c1 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x74c1…74fb Line {l1=0x38, l2=» GOTOXY(1,17);WRITE('Linier pr. side ');READLN;«, l3=0x38}
0x74fb…7520 Line {l1=0x23, l2=» READ(LISTEHOVED^.LINESPP)«, l3=0x23}
0x7520…755c Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND (LISTEHOVED^.LINESPP>0) AND«, l3=0x3a}
0x755c…7596 Line {l1=0x38, l2=» (LISTEHOVED^.LINESPP<73);«, l3=0x38}
0x7596…75bd Line {l1=0x25, l2=» LISTEHOVED^.NEXTELEMENT:=NIL;«, l3=0x25}
0x75bd…75e6 Line {l1=0x27, l2=» LISTEHOVED^.NEXTELEMENT:=LODRET«, l3=0x27}
0x75e6…75f2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x75f2…75ff Line {l1=0x0b, l2=» 2:BEGIN«, l3=0x0b}
0x75ff…7613 Line {l1=0x12, l2=» VÆLGLISTE;«, l3=0x12}
0x7613…763a Line {l1=0x25, l2=» IF AKTULIST.NAVN(1)<>'@' THEN«, l3=0x25}
0x763a…7649 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x7649…7679 Line {l1=0x2e, l2=» MOVELEFT(AKTULIST.NAVN,LISTENAVN,8);«, l3=0x2e}
0x7679…7690 Line {l1=0x15, l2=» INDELEMENT;«, l3=0x15}
0x7690…76b8 Line {l1=0x26, l2=» CHANGE(LISTEHOVED,LISTENAVN)«, l3=0x26}
0x76b8…76c5 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x76c5…76d1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x76d1…76de Line {l1=0x0b, l2=» 3:BEGIN«, l3=0x0b}
0x76de…771c Line {l1=0x3c, l2=» IF AKTULIST.NAVN(1)='@' THEN UDLISTDEF; (*NY LISTE*)«, l3=0x3c}
0x771c…772f Line {l1=0x11, l2=» UDELEMENT«, l3=0x11}
0x772f…773b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x773b…7748 Line {l1=0x0b, l2=» 4:OPLYS«, l3=0x0b}
0x7748…7751 Line {l1=0x07, l2=» END«, l3=0x07}
0x7751…7764 Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x7764…7779 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x7779…77a1 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x77a1…77c5 Line {l1=0x22, l2=» IF FNAVN(1) IN (.'0'..'8'.) THEN«, l3=0x22}
0x77c5…77fd Line {l1=0x36, l2=» CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),QUQ);«, l3=0x36}
0x77fd…7832 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x7832…7838 Line {l1=0x04, l2=»END.«, l3=0x04}
0x7838…7840 00 00 63 63 63 63 63 63 ┆ cccccc┆
0x7840…7860 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┆
0x7860…7880 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┆
0x7880…78a0 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…]
0x7960…7980 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┆
0x7980…79a0 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…]
0x7a60…7a80 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┆
0x7a80…7aa0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x7b60…7b80 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┆
0x7b80…7ba0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x7c60…7c80 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┆
0x7c80…7ca0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x7d60…7d80 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┆
0x7d80…7da0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x7e60…7e80 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┆
0x7e80…7ea0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x7f60…7f80 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┆
0x7f80…7fa0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]