|
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: »ISFKUND.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »ISFKUND.K«
PROGRAM OPRETVAR;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY (1..23) OF INTEGER;
(*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,
RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,
EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)
(* NAVN,UDVNAVN,LEVADR*)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;
(*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..1000) OF INTEGER
END;
INFILE=FILE OF CHAR;
VAR F:ISF;
VZ:ZONE;
INDFIL:INFILE;
INDPOST:STRING(80);
FILNAVN1,FILNAVN2:STRING(20);
AV,IER,I:INTEGER;
R:REAL;
KUNDE:KPOST;
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IINITIATE*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IREPORT*)
(*$R+*)
FUNCTION UNPACK(FBYTE1,FBYTE2:INTEGER):REAL;
VAR RES:REAL;
BEGIN
RES:=0;
REPEAT
RES:=RES*100+ORD(INDPOST(FBYTE1))-32;
FBYTE1:=FBYTE1+1
UNTIL FBYTE1>FBYTE2;
UNPACK:=RES
END;
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
BEGIN
FILNAVN1:='KÅNDEREG:P1';
FILNAVN2:='NREGKUN:P2:1918:I';
RESET(INDFIL,FILNAVN1);
READLN(INDFIL);
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IOPEN(VZ.H,F,SKRIV);
IF IER<>0 THEN BEGIN WRITE('IOPEN ',IER); IF IER<>-19 THEN STOP END;
INITIATE(VZ.H,F,898); IF IER<>0 THEN BEGIN WRITE('INITIATE ',IER);STOP END;
WITH KUNDE DO
BEGIN
READLN(INDFIL,INDPOST);
AV:=0;
REPEAT
R:=UNPACK(1,3);
NR(1):=TRUNC(R/10000);
NR(2):=TRUNC(R-NR(1)*10000.0);
FOR I:=1 TO 30 DO NAVN(1,I):=INDPOST(3+I);
FOR I:=1 TO 30 DO NAVN(2,I):=INDPOST(33+I);
FOR I:=1 TO 13 DO NAVN(3,I):=INDPOST(63+I);
READLN(INDFIL,INDPOST);
FOR I:=14 TO 30 DO NAVN(3,I):=INDPOST(I-13);
FOR I:=1 TO 20 DO LANDSBY(I):=INDPOST(17+I);
FOR I:=1 TO 25 DO POSTNR(I):=INDPOST(37+I);
FOR I:=1 TO 9 DO TLF(I):=INDPOST(63+I);TLF(10):=' ';
NR(3):=TRUNC(UNPACK(73,73));
NR(23):=TRUNC(UNPACK(74,74));
NR(6):=TRUNC(UNPACK(75,75));
NR(8):=TRUNC(UNPACK(76,76));
READLN(INDFIL,INDPOST);
NR(9):=TRUNC(UNPACK(1,1));
NR(10):=TRUNC(UNPACK(2,2));
FOR I:=3 TO 6 DO
NR(12+I):=TRUNC(UNPACK(I,I));
FOR I:=1 TO 6 DO
SALDOKØB(I):=UNPACK(5*I+2,5*I+3)*(1E+6)+UNPACK(5*I+4,5*I+6);
SALDOKØB(8):=UNPACK(37,38)*(1E+6)+UNPACK(39,41);
SALDOKØB(7):=UNPACK(42,43)*(1E+6)+UNPACK(44,46);
SALDOKØB(9):=UNPACK(47,48)*(1E+6)+UNPACK(49,51);
NR(11):=TRUNC(UNPACK(52,53));
NR(12):=TRUNC(UNPACK(54,55));
R:=UNPACK(56,58);
NR(13):=TRUNC(R/10000);
NR(14):=TRUNC(R-NR(13)*10000.0);
R:=UNPACK(59,61);
NR(4):=TRUNC(R/10000);
NR(5):=TRUNC(R-NR(4)*10000.0);
NR(7):=TRUNC(UNPACK(62,63));
FOR I:=19 TO 22 DO NR(I):=0;
AV:=AV+1;
WRITELN(NR(1)*10000.0+NR(2):10:-2,AV:6);
INSERT(VZ.H,F,KUNDE.A); IF IER<>0 THEN BEGIN WRITE('INSERT',IER:5);
STOP END;
READLN(INDFIL,INDPOST);
UNTIL EOF(INDFIL)
END;
ICLOSE(VZ.H,F);
WRITE(LIST,'ICLOSE ',IER:5,AV:6,KUNDE.NR(1),KUNDE.NR(2))
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM OPRETVAR;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0031 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x0031…0040 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0040…0066 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x0066…00af Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x00af…00f8 Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x00f8…0128 Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x0128…0178 Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x0178…01a7 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x01a7…01d5 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x01d5…0200 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0200…0229 Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x0229…024e Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x024e…0256 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0256…0264 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x0264…0277 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0277…029b Line {l1=0x22, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x22}
0x029b…02a2 Line {l1=0x05, l2=» END;«, l3=0x05}
0x02a2…02b8 Line {l1=0x14, l2=»INFILE=FILE OF CHAR;«, l3=0x14}
0x02b8…02c7 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x02c7…02d8 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x02d8…02ef Line {l1=0x15, l2=» INDFIL:INFILE;«, l3=0x15}
0x02ef…030b Line {l1=0x1a, l2=» INDPOST:STRING(80);«, l3=0x1a}
0x030b…0331 Line {l1=0x24, l2=» FILNAVN1,FILNAVN2:STRING(20);«, l3=0x24}
0x0331…0347 Line {l1=0x14, l2=» AV,IER,I:INTEGER;«, l3=0x14}
0x0347…0357 Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x0357…036c Line {l1=0x13, l2=» KUNDE:KPOST;«, l3=0x13}
0x036c…037f Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x037f…038c Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x038c…039c Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x039c…03a9 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x03a9…03b9 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x03b9…03c9 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x03c9…03d8 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x03d8…03e6 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x03e6…03f4 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x03f4…0402 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x0402…0411 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0411…041f Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x041f…042d Line {l1=0x0c, l2=»(*$IREPORT*)«, l3=0x0c}
0x042d…0436 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0436…0464 Line {l1=0x2c, l2=»FUNCTION UNPACK(FBYTE1,FBYTE2:INTEGER):REAL;«, l3=0x2c}
0x0464…0473 Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x0473…047a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x047a…0485 Line {l1=0x09, l2=» RES:=0;«, l3=0x09}
0x0485…048f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x048f…04ba Line {l1=0x29, l2=» RES:=RES*100+ORD(INDPOST(FBYTE1))-32;«, l3=0x29}
0x04ba…04d0 Line {l1=0x14, l2=» FBYTE1:=FBYTE1+1«, l3=0x14}
0x04d0…04e8 Line {l1=0x16, l2=» UNTIL FBYTE1>FBYTE2;«, l3=0x16}
0x04e8…04f7 Line {l1=0x0d, l2=» UNPACK:=RES«, l3=0x0d}
0x04f7…04fd Line {l1=0x04, l2=»END;«, l3=0x04}
0x04fd…050e Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x050e…051e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x051e…0535 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0535…053c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x053c…0558 Line {l1=0x1a, l2=» FILNAVN1:='KÅNDEREG:P1';«, l3=0x1a}
0x0558…057a Line {l1=0x20, l2=» FILNAVN2:='NREGKUN:P2:1918:I';«, l3=0x20}
0x057a…0595 Line {l1=0x19, l2=» RESET(INDFIL,FILNAVN1);«, l3=0x19}
0x0595…05a8 Line {l1=0x11, l2=» READLN(INDFIL);«, l3=0x11}
0x05a8…05c0 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x05c0…05d0 Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x05d0…0604 Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x0604…061c Line {l1=0x16, l2=» IOPEN(VZ.H,F,SKRIV);«, l3=0x16}
0x061c…0662 Line {l1=0x44, l2=»IF IER<>0 THEN BEGIN WRITE('IOPEN ',IER); IF IER<>-19 THEN STOP END;«, l3=0x44}
0x0662…06af Line {l1=0x4b, l2=»INITIATE(VZ.H,F,898); IF IER<>0 THEN BEGIN WRITE('INITIATE ',IER);STOP END;«, l3=0x4b}
0x06af…06c0 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x06c0…06c9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06c9…06e4 Line {l1=0x19, l2=» READLN(INDFIL,INDPOST);«, l3=0x19}
0x06e4…06ee Line {l1=0x08, l2=» AV:=0;«, l3=0x08}
0x06ee…06f8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x06f8…0710 Line {l1=0x16, l2=» R:=UNPACK(1,3);«, l3=0x16}
0x0710…072f Line {l1=0x1d, l2=» NR(1):=TRUNC(R/10000);«, l3=0x1d}
0x072f…0756 Line {l1=0x25, l2=» NR(2):=TRUNC(R-NR(1)*10000.0);«, l3=0x25}
0x0756…0789 Line {l1=0x31, l2=» FOR I:=1 TO 30 DO NAVN(1,I):=INDPOST(3+I);«, l3=0x31}
0x0789…07bd Line {l1=0x32, l2=» FOR I:=1 TO 30 DO NAVN(2,I):=INDPOST(33+I);«, l3=0x32}
0x07bd…07f1 Line {l1=0x32, l2=» FOR I:=1 TO 13 DO NAVN(3,I):=INDPOST(63+I);«, l3=0x32}
0x07f1…0811 Line {l1=0x1e, l2=» READLN(INDFIL,INDPOST);«, l3=0x1e}
0x0811…0846 Line {l1=0x33, l2=» FOR I:=14 TO 30 DO NAVN(3,I):=INDPOST(I-13);«, l3=0x33}
0x0846…087b Line {l1=0x33, l2=» FOR I:=1 TO 20 DO LANDSBY(I):=INDPOST(17+I);«, l3=0x33}
0x087b…08af Line {l1=0x32, l2=» FOR I:=1 TO 25 DO POSTNR(I):=INDPOST(37+I);«, l3=0x32}
0x08af…08ed Line {l1=0x3c, l2=» FOR I:=1 TO 9 DO TLF(I):=INDPOST(63+I);TLF(10):=' ';«, l3=0x3c}
0x08ed…0912 Line {l1=0x23, l2=» NR(3):=TRUNC(UNPACK(73,73));«, l3=0x23}
0x0912…0938 Line {l1=0x24, l2=» NR(23):=TRUNC(UNPACK(74,74));«, l3=0x24}
0x0938…095d Line {l1=0x23, l2=» NR(6):=TRUNC(UNPACK(75,75));«, l3=0x23}
0x095d…0982 Line {l1=0x23, l2=» NR(8):=TRUNC(UNPACK(76,76));«, l3=0x23}
0x0982…09a2 Line {l1=0x1e, l2=» READLN(INDFIL,INDPOST);«, l3=0x1e}
0x09a2…09c5 Line {l1=0x21, l2=» NR(9):=TRUNC(UNPACK(1,1));«, l3=0x21}
0x09c5…09e9 Line {l1=0x22, l2=» NR(10):=TRUNC(UNPACK(2,2));«, l3=0x22}
0x09e9…0a02 Line {l1=0x17, l2=» FOR I:=3 TO 6 DO«, l3=0x17}
0x0a02…0a28 Line {l1=0x24, l2=» NR(12+I):=TRUNC(UNPACK(I,I));«, l3=0x24}
0x0a28…0a41 Line {l1=0x17, l2=» FOR I:=1 TO 6 DO«, l3=0x17}
0x0a41…0a86 Line {l1=0x43, l2=» SALDOKØB(I):=UNPACK(5*I+2,5*I+3)*(1E+6)+UNPACK(5*I+4,5*I+6);«, l3=0x43}
0x0a86…0abf Line {l1=0x37, l2=» SALDOKØB(8):=UNPACK(37,38)*(1E+6)+UNPACK(39,41);«, l3=0x37}
0x0abf…0af8 Line {l1=0x37, l2=» SALDOKØB(7):=UNPACK(42,43)*(1E+6)+UNPACK(44,46);«, l3=0x37}
0x0af8…0b31 Line {l1=0x37, l2=» SALDOKØB(9):=UNPACK(47,48)*(1E+6)+UNPACK(49,51);«, l3=0x37}
0x0b31…0b57 Line {l1=0x24, l2=» NR(11):=TRUNC(UNPACK(52,53));«, l3=0x24}
0x0b57…0b7d Line {l1=0x24, l2=» NR(12):=TRUNC(UNPACK(54,55));«, l3=0x24}
0x0b7d…0b97 Line {l1=0x18, l2=» R:=UNPACK(56,58);«, l3=0x18}
0x0b97…0bb7 Line {l1=0x1e, l2=» NR(13):=TRUNC(R/10000);«, l3=0x1e}
0x0bb7…0be0 Line {l1=0x27, l2=» NR(14):=TRUNC(R-NR(13)*10000.0);«, l3=0x27}
0x0be0…0bfa Line {l1=0x18, l2=» R:=UNPACK(59,61);«, l3=0x18}
0x0bfa…0c19 Line {l1=0x1d, l2=» NR(4):=TRUNC(R/10000);«, l3=0x1d}
0x0c19…0c40 Line {l1=0x25, l2=» NR(5):=TRUNC(R-NR(4)*10000.0);«, l3=0x25}
0x0c40…0c65 Line {l1=0x23, l2=» NR(7):=TRUNC(UNPACK(62,63));«, l3=0x23}
0x0c65…0c8a Line {l1=0x23, l2=» FOR I:=19 TO 22 DO NR(I):=0;«, l3=0x23}
0x0c8a…0c98 Line {l1=0x0c, l2=» AV:=AV+1;«, l3=0x0c}
0x0c98…0cc5 Line {l1=0x2b, l2=» WRITELN(NR(1)*10000.0+NR(2):10:-2,AV:6);«, l3=0x2b}
0x0cc5…0d0d Line {l1=0x46, l2=» INSERT(VZ.H,F,KUNDE.A); IF IER<>0 THEN BEGIN WRITE('INSERT',IER:5);«, l3=0x46}
0x0d0d…0d51 Line {l1=0x42, l2=» STOP END;«, l3=0x42}
0x0d51…0d6d Line {l1=0x1a, l2=» READLN(INDFIL,INDPOST);«, l3=0x1a}
0x0d6d…0d82 Line {l1=0x13, l2=» UNTIL EOF(INDFIL)«, l3=0x13}
0x0d82…0d8a Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d8a…0da2 Line {l1=0x16, l2=» ICLOSE(VZ.H,F);«, l3=0x16}
0x0da2…0dde Line {l1=0x3a, l2=» WRITE(LIST,'ICLOSE ',IER:5,AV:6,KUNDE.NR(1),KUNDE.NR(2))«, l3=0x3a}
0x0dde…0de4 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0de4…0e00 00 00 2b 31 3b 0c 2b 20 20 20 57 52 49 54 45 4c 4e 28 4e 52 28 31 29 2a 31 30 30 30 ┆ +1; + WRITELN(NR(1)*1000┆
0x0e00…0e20 30 2e 30 2b 4e 52 28 32 29 3a 31 30 3a 2d 32 2c 41 56 3a 36 29 3b 2b 46 20 20 20 49 4e 53 45 52 ┆0.0+NR(2):10:-2,AV:6);+F INSER┆
0x0e20…0e40 54 28 56 5a 2e 48 2c 46 2c 4b 55 4e 44 45 2e 41 29 3b 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 ┆T(VZ.H,F,KUNDE.A); IF IER<>0 THE┆
0x0e40…0e60 4e 20 42 45 47 49 4e 20 57 52 49 54 45 28 27 49 4e 53 45 52 54 27 2c 49 45 52 3a 35 29 3b 46 42 ┆N BEGIN WRITE('INSERT',IER:5);FB┆
0x0e60…0e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0e80…0ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 50 20 45 4e ┆ STOP EN┆
0x0ea0…0ec0 44 3b 42 1a 20 20 20 52 45 41 44 4c 4e 28 49 4e 44 46 49 4c 2c 49 4e 44 50 4f 53 54 29 3b 1a 13 ┆D;B READLN(INDFIL,INDPOST); ┆
0x0ec0…0ee0 20 20 55 4e 54 49 4c 20 45 4f 46 28 49 4e 44 46 49 4c 29 13 06 20 20 45 4e 44 3b 06 16 20 20 20 ┆ UNTIL EOF(INDFIL) END; ┆
0x0ee0…0f00 20 20 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b 16 3a 20 20 57 52 49 54 45 28 4c 49 53 ┆ ICLOSE(VZ.H,F); : WRITE(LIS┆
0x0f00…0f20 54 2c 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 3a 35 2c 41 56 3a 36 2c 4b 55 4e 44 45 2e 4e 52 28 ┆T,'ICLOSE ',IER:5,AV:6,KUNDE.NR(┆
0x0f20…0f40 31 29 2c 4b 55 4e 44 45 2e 4e 52 28 32 29 29 3a 04 45 4e 44 2e 04 00 00 53 54 20 27 2c 4c 45 4e ┆1),KUNDE.NR(2)): END. ST ',LEN┆
0x0f40…0f60 47 54 48 28 49 4e 44 50 4f 53 54 29 3a 35 29 3b 2b 0e 20 20 20 20 20 47 4f 54 4f 20 31 30 30 30 ┆GTH(INDPOST):5);+ GOTO 1000┆
0x0f60…0f80 0e 06 20 20 20 45 4e 44 06 13 20 20 55 4e 54 49 4c 20 45 4f 46 28 49 4e 44 46 49 4c 29 13 06 20 ┆ END UNTIL EOF(INDFIL) ┆
0x0f80…0fa0 20 45 4e 44 3b 06 16 31 30 30 30 3a 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b 16 2e 20 ┆ END; 1000: ICLOSE(VZ.H,F); . ┆
0x0fa0…0fc0 20 57 52 49 54 45 28 4c 49 53 54 2c 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 3a 35 2c 41 56 3a 36 ┆ WRITE(LIST,'ICLOSE ',IER:5,AV:6┆
0x0fc0…0fe0 2c 4e 52 28 31 29 2c 4e 52 28 32 29 29 2e 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 ┆,NR(1),NR(2)). END. ┆
0x0fe0…1000 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 ┆ ┆
[…0x1c…]