|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »KNUDELBO.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KNUDELBO.K«
PROGRAM KNUDELBO;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY(1..23) OF INTEGER;
NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB:ARRAY (1..9) OF REAL
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
LANDFILE=FILE OF PACKED ARRAY(1..30) OF CHAR;
VAR F:ISF;
KZ:ZONE;
LANDFIL:LANDFILE;
QUQ:^INTEGER;
FILNAVN2:STRING(20);
J,IER,I:INTEGER;
KUNDE:KPOST;
T:TEXT;
NAME:PACKED ARRAY (1..26) OF CHAR;
FIRST,LAST:PACKED ARRAY (1..4) OF CHAR;
STRENG:STRING(4);
PNR,FINIS:BOOLEAN;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE OFEJL;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR;
CLEARSCREEN
END;
FUNCTION CHECK:BOOLEAN;
VAR P:PACKED ARRAY (1..4) OF CHAR;
K:INTEGER;
BEGIN
FOR K:=1 TO 4 DO P(K):=KUNDE.POSTNR(K);
IF (P>=FIRST) AND (P<=LAST) THEN CHECK:=TRUE ELSE CHECK:=FALSE
END;
PROCEDURE PRKUNOPL(O:INTEGER);
BEGIN
WITH KUNDE DO
BEGIN
J:=0;
REPEAT J:=J+1
UNTIL (J=4) OR (NAVN(1,J)<>' ');
IF NAVN(1,J)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITELN(T,' ':6,NAME)
END
ELSE
WRITELN(T,' ':6,NAVN(1));
WRITELN(T,' ':6,NAVN(2));
WRITELN(T,' ':6,NAVN(3));
WRITELN(T,' ':6,LANDSBY);
WRITELN(T,' ':6,POSTNR);
IF NR(7)=8 THEN
WRITELN(T,' ')
ELSE
BEGIN
SEEK(LANDFIL,NR(7));
GET(LANDFIL);
WRITELN(T,' ':6,LANDFIL^)
END;
END
END;
BEGIN
CLEARSCREEN;
WRITELN('KUNDELABELS');
FILNAVN2:='KLABELS:P1:30:K';
REWRITE(T,FILNAVN2);
FILNAVN2:='LANDEREG:P2:0:I';
RESET(LANDFIL,FILNAVN2);
FILNAVN2:='KUNDERG:P2:1338:I';
RESET(F,FILNAVN2);
IOPEN(KZ.H,F,LÆS);
IF IER<>0 THEN OFEJL;
REPEAT
GOTOXY(1,22);
WRITELN('I POSTNR-INTERVALLER (1), ET INTERVAL (2), KNR-ORDEN (3)');
GOTOXY(60,22);
READLN;READ(J)
UNTIL (IORESULT=0) AND (J>0) AND (J<4);
IF J=1 THEN BEGIN FINIS:=FALSE;PNR:=TRUE END;
IF J=2 THEN BEGIN FINIS:=TRUE;PNR:=TRUE END;
IF J=3 THEN BEGIN FINIS:=TRUE;PNR:=FALSE END;
IF J=2 THEN
BEGIN
REPEAT
CLEARSCREEN;
REPEAT
GOTOXY(1,22);
WRITELN('START');
GOTOXY(10,22);
READLN;READ(STRENG)
UNTIL LENGTH(STRENG)=4;
FOR I:=1 TO 4 DO FIRST(I):=STRENG(I);
REPEAT
GOTOXY(20,22);
WRITELN('SLUT');
GOTOXY(30,22);
READLN;READ(STRENG)
UNTIL LENGTH(STRENG)=4;
FOR I:=1 TO 4 DO LAST(I):=STRENG(I);
UNTIL LAST>=FIRST;
END
ELSE
BEGIN
FIRST:='1000';
LAST:='1999'
END;
I:=0;
WITH KUNDE DO
REPEAT
NR(1):=0;NR(2):=0;
NEXTREC(KZ.H,F,A);
IF IER<>-1 THEN ERROR;
REPEAT
IF (PNR=FALSE) OR (CHECK=TRUE) THEN
BEGIN
PRKUNOPL(-1);
WRITELN(T,' ');
WRITELN(T,' ');
WRITELN(T,' ');
I:=I+1;
END;
NEXTREC(KZ.H,F,A)
UNTIL IER<>0;
IF IER<>-2 THEN ERROR;
IF LAST='9999' THEN FINIS:=TRUE;
LAST(1):=CHR(ORD(LAST(1))+1);
FIRST(1):=CHR(ORD(FIRST(1))+1);
UNTIL FINIS;
ICLOSE(KZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7);
CHAIN('INTRE *1','LISTKNUD:P1',QUQ)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM KNUDELBO;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0030 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x0030…003e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x003e…0062 Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x0062…009d Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x009d…00cb Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x00cb…00f8 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x00f8…0122 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x0122…0148 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0148…014e Line {l1=0x04, l2=»END;«, l3=0x04}
0x014e…015c Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x015c…016f Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x016f…0192 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x0192…0199 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0199…01c8 Line {l1=0x2d, l2=»LANDFILE=FILE OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x2d}
0x01c8…01d7 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x01d7…01e8 Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x01e8…0202 Line {l1=0x18, l2=» LANDFIL:LANDFILE;«, l3=0x18}
0x0202…0218 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0218…0235 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0235…024b Line {l1=0x14, l2=» J,IER,I:INTEGER;«, l3=0x14}
0x024b…025f Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x025f…026e Line {l1=0x0d, l2=» T:TEXT;«, l3=0x0d}
0x026e…0299 Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x0299…02c9 Line {l1=0x2e, l2=» FIRST,LAST:PACKED ARRAY (1..4) OF CHAR;«, l3=0x2e}
0x02c9…02e3 Line {l1=0x18, l2=» STRENG:STRING(4);«, l3=0x18}
0x02e3…02fa Line {l1=0x15, l2=» PNR,FINIS:BOOLEAN;«, l3=0x15}
0x02fa…02fd Line {l1=0x01, l2=» «, l3=0x01}
0x02fd…0306 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0306…0319 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0319…0326 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0326…0336 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0336…0346 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0346…0354 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0354…0363 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0363…036c Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x036c…0375 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0375…0387 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0387…038e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x038e…03b2 Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x03b2…03c5 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x03c5…03e0 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x03e0…03ee Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x03ee…03f4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03f4…0406 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0406…040d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x040d…041e Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x041e…0463 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0463…0493 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0493…04cc Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x04cc…04e3 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x04e3…04f2 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x04f2…04f8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04f8…0511 Line {l1=0x17, l2=»FUNCTION CHECK:BOOLEAN;«, l3=0x17}
0x0511…0535 Line {l1=0x22, l2=»VAR P:PACKED ARRAY (1..4) OF CHAR;«, l3=0x22}
0x0535…0545 Line {l1=0x0e, l2=» K:INTEGER;«, l3=0x0e}
0x0545…054c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x054c…0577 Line {l1=0x29, l2=» FOR K:=1 TO 4 DO P(K):=KUNDE.POSTNR(K);«, l3=0x29}
0x0577…05b9 Line {l1=0x40, l2=» IF (P>=FIRST) AND (P<=LAST) THEN CHECK:=TRUE ELSE CHECK:=FALSE«, l3=0x40}
0x05b9…05bf Line {l1=0x04, l2=»END;«, l3=0x04}
0x05bf…05df Line {l1=0x1e, l2=»PROCEDURE PRKUNOPL(O:INTEGER);«, l3=0x1e}
0x05df…05e6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05e6…05f7 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x05f7…0600 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0600…060e Line {l1=0x0c, l2=» J:=0;«, l3=0x0c}
0x060e…0624 Line {l1=0x14, l2=» REPEAT J:=J+1«, l3=0x14}
0x0624…064d Line {l1=0x27, l2=» UNTIL (J=4) OR (NAVN(1,J)<>' ');«, l3=0x27}
0x064d…066b Line {l1=0x1c, l2=» IF NAVN(1,J)=' ' THEN«, l3=0x1c}
0x066b…0679 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0679…06a0 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x06a0…06c0 Line {l1=0x1e, l2=» WRITELN(T,' ':6,NAME)«, l3=0x1e}
0x06c0…06cc Line {l1=0x0a, l2=» END«, l3=0x0a}
0x06cc…06d9 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x06d9…06f8 Line {l1=0x1d, l2=» WRITELN(T,' ':6,NAVN(1));«, l3=0x1d}
0x06f8…0717 Line {l1=0x1d, l2=» WRITELN(T,' ':6,NAVN(2));«, l3=0x1d}
0x0717…0736 Line {l1=0x1d, l2=» WRITELN(T,' ':6,NAVN(3));«, l3=0x1d}
0x0736…0755 Line {l1=0x1d, l2=» WRITELN(T,' ':6,LANDSBY);«, l3=0x1d}
0x0755…0773 Line {l1=0x1c, l2=» WRITELN(T,' ':6,POSTNR);«, l3=0x1c}
0x0773…0788 Line {l1=0x13, l2=» IF NR(7)=8 THEN«, l3=0x13}
0x0788…079f Line {l1=0x15, l2=» WRITELN(T,' ')«, l3=0x15}
0x079f…07a9 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x07a9…07b4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x07b4…07d1 Line {l1=0x1b, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1b}
0x07d1…07e7 Line {l1=0x14, l2=» GET(LANDFIL);«, l3=0x14}
0x07e7…0809 Line {l1=0x20, l2=» WRITELN(T,' ':6,LANDFIL^)«, l3=0x20}
0x0809…0813 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0813…081a Line {l1=0x05, l2=» END«, l3=0x05}
0x081a…0820 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0820…0827 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0827…0837 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0837…0852 Line {l1=0x19, l2=» WRITELN('KUNDELABELS');«, l3=0x19}
0x0852…0872 Line {l1=0x1e, l2=» FILNAVN2:='KLABELS:P1:30:K';«, l3=0x1e}
0x0872…088a Line {l1=0x16, l2=» REWRITE(T,FILNAVN2);«, l3=0x16}
0x088a…08aa Line {l1=0x1e, l2=» FILNAVN2:='LANDEREG:P2:0:I';«, l3=0x1e}
0x08aa…08c6 Line {l1=0x1a, l2=» RESET(LANDFIL,FILNAVN2);«, l3=0x1a}
0x08c6…08e8 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:1338:I';«, l3=0x20}
0x08e8…08fe Line {l1=0x14, l2=» RESET(F,FILNAVN2);«, l3=0x14}
0x08fe…0914 Line {l1=0x14, l2=» IOPEN(KZ.H,F,LÆS);«, l3=0x14}
0x0914…092d Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x092d…0937 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0937…094a Line {l1=0x11, l2=» GOTOXY(1,22);«, l3=0x11}
0x094a…0992 Line {l1=0x46, l2=» WRITELN('I POSTNR-INTERVALLER (1), ET INTERVAL (2), KNR-ORDEN (3)');«, l3=0x46}
0x0992…09a4 Line {l1=0x10, l2=» GOTOXY(60,22);«, l3=0x10}
0x09a4…09b6 Line {l1=0x10, l2=» READLN;READ(J)«, l3=0x10}
0x09b6…09e1 Line {l1=0x29, l2=» UNTIL (IORESULT=0) AND (J>0) AND (J<4);«, l3=0x29}
0x09e1…0a12 Line {l1=0x2f, l2=» IF J=1 THEN BEGIN FINIS:=FALSE;PNR:=TRUE END;«, l3=0x2f}
0x0a12…0a42 Line {l1=0x2e, l2=» IF J=2 THEN BEGIN FINIS:=TRUE;PNR:=TRUE END;«, l3=0x2e}
0x0a42…0a73 Line {l1=0x2f, l2=» IF J=3 THEN BEGIN FINIS:=TRUE;PNR:=FALSE END;«, l3=0x2f}
0x0a73…0a82 Line {l1=0x0d, l2=» IF J=2 THEN«, l3=0x0d}
0x0a82…0a8b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0a8b…0a97 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0a97…0aac Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x0aac…0ab8 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0ab8…0ace Line {l1=0x14, l2=» GOTOXY(1,22);«, l3=0x14}
0x0ace…0ae8 Line {l1=0x18, l2=» WRITELN('START');«, l3=0x18}
0x0ae8…0aff Line {l1=0x15, l2=» GOTOXY(10,22);«, l3=0x15}
0x0aff…0b1b Line {l1=0x1a, l2=» READLN;READ(STRENG)«, l3=0x1a}
0x0b1b…0b38 Line {l1=0x1b, l2=» UNTIL LENGTH(STRENG)=4;«, l3=0x1b}
0x0b38…0b63 Line {l1=0x29, l2=» FOR I:=1 TO 4 DO FIRST(I):=STRENG(I);«, l3=0x29}
0x0b63…0b6f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0b6f…0b86 Line {l1=0x15, l2=» GOTOXY(20,22);«, l3=0x15}
0x0b86…0b9f Line {l1=0x17, l2=» WRITELN('SLUT');«, l3=0x17}
0x0b9f…0bb6 Line {l1=0x15, l2=» GOTOXY(30,22);«, l3=0x15}
0x0bb6…0bd2 Line {l1=0x1a, l2=» READLN;READ(STRENG)«, l3=0x1a}
0x0bd2…0bef Line {l1=0x1b, l2=» UNTIL LENGTH(STRENG)=4;«, l3=0x1b}
0x0bef…0c19 Line {l1=0x28, l2=» FOR I:=1 TO 4 DO LAST(I):=STRENG(I);«, l3=0x28}
0x0c19…0c31 Line {l1=0x16, l2=» UNTIL LAST>=FIRST;«, l3=0x16}
0x0c31…0c38 Line {l1=0x05, l2=» END«, l3=0x05}
0x0c38…0c40 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x0c40…0c49 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0c49…0c5d Line {l1=0x12, l2=» FIRST:='1000';«, l3=0x12}
0x0c5d…0c6f Line {l1=0x10, l2=» LAST:='1999'«, l3=0x10}
0x0c6f…0c77 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0c77…0c80 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x0c80…0c91 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x0c91…0c9b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0c9b…0cb3 Line {l1=0x16, l2=» NR(1):=0;NR(2):=0;«, l3=0x16}
0x0cb3…0ccb Line {l1=0x16, l2=» NEXTREC(KZ.H,F,A);«, l3=0x16}
0x0ccb…0ce7 Line {l1=0x1a, l2=» IF IER<>-1 THEN ERROR;«, l3=0x1a}
0x0ce7…0cf3 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0cf3…0d1f Line {l1=0x2a, l2=» IF (PNR=FALSE) OR (CHECK=TRUE) THEN«, l3=0x2a}
0x0d1f…0d2d Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0d2d…0d43 Line {l1=0x14, l2=» PRKUNOPL(-1);«, l3=0x14}
0x0d43…0d5b Line {l1=0x16, l2=» WRITELN(T,' ');«, l3=0x16}
[…0x2…]
0x0d8b…0d9b Line {l1=0x0e, l2=» I:=I+1;«, l3=0x0e}
0x0d9b…0da8 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0da8…0dc2 Line {l1=0x18, l2=» NEXTREC(KZ.H,F,A)«, l3=0x18}
0x0dc2…0dd5 Line {l1=0x11, l2=» UNTIL IER<>0;«, l3=0x11}
0x0dd5…0def Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x0def…0e13 Line {l1=0x22, l2=» IF LAST='9999' THEN FINIS:=TRUE;«, l3=0x22}
0x0e13…0e34 Line {l1=0x1f, l2=» LAST(1):=CHR(ORD(LAST(1))+1);«, l3=0x1f}
0x0e34…0e57 Line {l1=0x21, l2=» FIRST(1):=CHR(ORD(FIRST(1))+1);«, l3=0x21}
0x0e57…0e67 Line {l1=0x0e, l2=» UNTIL FINIS;«, l3=0x0e}
0x0e67…0e7a Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x0e7a…0e8a Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0e8a…0ea9 Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x0ea9…0ed2 Line {l1=0x27, l2=» CHAIN('INTRE *1','LISTKNUD:P1',QUQ)«, l3=0x27}
0x0ed2…0ed8 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0ed8…0ee0 00 00 45 4e 44 2e 04 00 ┆ END. ┆
0x0ee0…0f00 00 22 20 20 20 20 20 20 20 4e 52 3a 41 52 52 41 59 28 31 2e 2e 32 33 29 20 4f 46 20 49 4e 54 45 ┆ " NR:ARRAY(1..23) OF INTE┆
0x0f00…0f20 47 45 52 3b 22 39 20 20 20 20 20 20 20 4e 41 56 4e 3a 41 52 52 41 59 20 28 31 2e 2e 33 29 20 4f ┆GER;"9 NAVN:ARRAY (1..3) O┆
0x0f20…0f40 46 20 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 30 29 20 4f 46 20 43 48 41 52 3b 39 ┆F PACKED ARRAY (1..30) OF CHAR;9┆
0x0f40…0f60 2c 20 20 20 20 20 20 20 4c 41 4e 44 53 42 59 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e ┆, LANDSBY:PACKED ARRAY (1.┆
0x0f60…0f80 2e 32 30 29 20 4f 46 20 43 48 41 52 3b 2c 2b 20 20 20 20 20 20 20 50 4f 53 54 4e 52 3a 50 41 43 ┆.20) OF CHAR;,+ POSTNR:PAC┆
0x0f80…0fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1f…]