|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »TESTJOU.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »TESTJOU.K«
PROGRAM SKRIVJOURNAL;
(*$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;
JOURPOST=RECORD
(*KNR1,KNR2,
FAKTNR1-2*) NR:ARRAY(1..6) OF INTEGER;
(*IALTMEDMOMS,
MOMS,
RABAT,
BRÆKAGEFORS,
FRAGT,
EMBALLAGE,
VARESALG *) REEL:ARRAY(1..7) OF REAL
END;
JOURFILE=FILE OF JOURPOST;
SYSPOST=RECORD
HELTAL:ARRAY(1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
POSTPOST=RECORD
A:AR;
(*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;
(*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL
END;
POSTZONE=RECORD
H:ISFHEAD;
T:ARRAY (1..508) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
VAR FPOST,FKUN : ISF;
JOURFIL:JOURFILE;
SYSFIL:SYSFILE;
KZ:KZONE;
PZ:POSTZONE;
PPOST:POSTPOST;
KUNDE:KPOST;
FNAVN:STRING(20);
IER,I,J,K
:INTEGER;
QUQ:^INTEGER;
RABAT1,BRÆK1,FRAGT1,EMBAL1,VARESAL1,KRENOTA1,KRENOTA,KREMOMS,
R,R1,R2,MOMS,RABAT,BRÆK,FRAGT,EMBAL,VARESALG:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
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;
PROCEDURE NEDTÆLÆLDSTE;
BEGIN
WITH KUNDE,PPOST DO
BEGIN
HELTAL(1):=KUNDE.NR(1);
HELTAL(2):=KUNDE.NR(2);
FOR I:=3 TO 7 DO HELTAL(I):=0;
NEXTREC(PZ.H,FPOST,A);
IF (IER<>-1) AND (IER<>-2) THEN ERROR;IER:=0;
WHILE (HELTAL(1)=NR(1)) AND (HELTAL(2)=NR(2)) AND (R1<0.0) DO
BEGIN
IF ((HELTAL(5)=1) OR (HELTAL(5)=4) OR (HELTAL(5)=9)) AND (REEL(2)>0.0)
THEN
BEGIN
REEL(2):=REEL(2)+R1;
IF REEL(2)<=0.0 THEN
BEGIN
R1:=REEL(2);
REEL(2):=0;
IF HELTAL(5)=1 THEN
BEGIN
NR(12):=NR(12)+1;
NR(11):=NR(11)+TRUNC(
JOURFIL^.NR(5)*360.0+JOURFIL^.NR(6) DIV 100*30.0
+JOURFIL^.NR(6) MOD 100 -
HELTAL(3)*360.0-HELTAL(4) DIV 100*30.0-HELTAL(4) MOD 100);
END
END
ELSE R1:=0.0;
PUTREC(PZ.H,FPOST,A)
END
ELSE IF HELTAL(5)=10 THEN
BEGIN
REEL(2):=REEL(2)+JOURFIL^.REEL(1);
IF REEL(2)<0 THEN REEL(2):=0
END;
NEXTREC(PZ.H,FPOST,A)
END
END
END;
PROCEDURE PRUT;
BEGIN
WRITELN(LIST,'TOTAL',' ':49,R/100:12:2);
WRITELN(LIST);
WRITELN(LIST);
WRITELN(LIST,' ':20,'MOMSPLIGTIGT',' ':10,'IKKE MOMSPLIGTIGT');
WRITELN(LIST,'VARESALG',' ':12,VARESALG/100:12:2,' ':10,VARESAL1/100:12:2);
WRITELN(LIST,'EMBALLAGE',' ':11,EMBAL/100:12:2,' ':10,EMBAL1/100:12:2);
WRITELN(LIST,'BRÆKAGEFORS',' ':9,BRÆK/100:12:2,' ':10,BRÆK1/100:12:2);
END;
PROCEDURE DOIT;
BEGIN
FOR K:=2 TO SYSFIL^.HELTAL(13)-1 DO
BEGIN
GET(JOURFIL);
WITH JOURFIL^ DO
BEGIN
KUNDE.NR(1):=NR(1);
KUNDE.NR(2):=NR(2);
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
WITH KUNDE DO
BEGIN
R1:=REEL(1);
IF REEL(1)>0 THEN
BEGIN
NR(13):=SYSFIL^.HELTAL(1);
NR(14):=SYSFIL^.HELTAL(2);
SALDOKØB(1):=SALDOKØB(1)+REEL(1);
SALDOKØB(7):=SALDOKØB(7)+REEL(7)-REEL(3);
SALDOKØB(8):=SALDOKØB(8)+REEL(7)-REEL(3)
END
ELSE
BEGIN
SALDOKØB(6):=SALDOKØB(6)+REEL(1);
I:=5;
WHILE (SALDOKØB(I+1)<0.0) AND (I>0) DO
BEGIN
SALDOKØB(I):=SALDOKØB(I)+SALDOKØB(I+1);
SALDOKØB(I+1):=0.0;
I:=I-1
END;
NEDTÆLÆLDSTE
END
END;
PUTREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
WITH PPOST DO
BEGIN
HELTAL(1):=NR(1);
HELTAL(2):=NR(2);
HELTAL(3):=NR(5);
HELTAL(4):=NR(6);
IF JOURFIL^.REEL(1)<0 THEN HELTAL(5):=2 ELSE
HELTAL(5):=1;(*FAKTURA*)
HELTAL(6):=NR(3);
HELTAL(7):=NR(4);
REEL(1):=JOURFIL^.REEL(1);
REEL(2):=R1;
INSERT(PZ.H,FPOST,A);
IF IER<>0 THEN ERROR
END;
R:=R+REEL(1);
IF REEL(2)<>0 THEN
BEGIN
IF REEL(2)<0 THEN KREMOMS:=KREMOMS+REEL(2) ELSE
MOMS:=MOMS+REEL(2);
RABAT:=RABAT+REEL(3);
BRÆK:=BRÆK+REEL(4);
FRAGT:=FRAGT+REEL(5);
EMBAL:=EMBAL+REEL(6);
IF REEL(7)<0 THEN KRENOTA:=KRENOTA+REEL(7) ELSE
VARESALG:=VARESALG+REEL(7);
END
ELSE
BEGIN
RABAT1:=RABAT1+REEL(3);
BRÆK1:=BRÆK1+REEL(4);
FRAGT1:=FRAGT1+REEL(5);
EMBAL1:=EMBAL1+REEL(6);
IF REEL(7)<0 THEN KRENOTA1:=KRENOTA1+REEL(7) ELSE
VARESAL1:=VARESAL1+REEL(7);
END;
WRITE(LIST,NR(1)*10000.0+NR(2):7:-2,KUNDE.NAVN(1):35,
NR(3)*10000.0+NR(4):10:-2,REEL(1)/100:14:2);
IF REEL(1)<0 THEN WRITELN(LIST,' ***') ELSE WRITELN(LIST);
END;
END;
PRUT;
END;
BEGIN
FNAVN:='KUNDERG:P2:0000:I';
REWRITE(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='POSTREG:P2:0000:I';
REWRITE(FPOST,FNAVN);
IOPEN(PZ.H,FPOST,SKRIV);
IF IER<>0 THEN OFEJL;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
FNAVN:='JOURNAL:P2:30:I';
REWRITE(JOURFIL,FNAVN);
IF (SYSFIL^.HELTAL(13)-2>PZ.H.NREC-PZ.H.RECINUSE) THEN
WRITELN('Der er ikke plads til flere posteringer')
ELSE
BEGIN
SEEK(JOURFIL,2);
R:=0;
MOMS:=0;RABAT:=0;BRÆK:=0;FRAGT:=0;EMBAL:=0;VARESALG:=0;
RABAT1:=0;BRÆK1:=0;FRAGT1:=0;EMBAL1:=0;VARESAL1:=0;
KREMOMS:=0;KRENOTA:=0;KRENOTA1:=0;
WRITELN(LIST,'FAKTURERINGS-JOURNAL',' ':20,SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):8:-2,' Side ',SYSFIL^.HELTAL(18):4);
SYSFIL^.HELTAL(18):=SYSFIL^.HELTAL(18)+1;
WRITELN(LIST);
DOIT;
WRITELN(LIST,'FRAGT',' ':15,FRAGT/100:12:2,' ':10,FRAGT1/100:12:2);
WRITELN(LIST,'MOMS',' ':16,MOMS/100:12:2);
WRITELN(LIST,'KREDITNOTA-MOMS',' ':5,KREMOMS/100:12:2);
WRITELN(LIST,'RABAT',' ':13,'- ',RABAT/100:12:2,'-':10,RABAT1/100:12:2);
WRITELN(LIST,'KREDITNOTA',' ':10,KRENOTA/100:12:2,' ':10,KRENOTA1/100:12:2);
R1:=VARESALG+EMBAL+FRAGT+BRÆK+MOMS-RABAT+KRENOTA+KREMOMS;
R2:=VARESAL1+EMBAL1+FRAGT1+BRÆK1-RABAT1+KRENOTA1;
WRITELN(LIST,'TOTAL',' ':15,R1/100:12:2,' ':10,R2/100:12:2,
(R1+R2)/100:12:2);
WRITELN(LIST,'DIFFERENCE',' ':44,(R1+R2-R)/100:12:2);
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
SYSFIL^.HELTAL(13):=2;
SEEK(SYSFIL,1);
PUT(SYSFIL);
SEEK(JOURFIL,1);
GET(JOURFIL);
WITH JOURFIL^ DO
BEGIN
FOR I:=1 TO 4 DO NR(I):=0;
REEL(1):=REEL(1)+R;
REEL(2):=REEL(2)+MOMS+KREMOMS;
REEL(3):=REEL(3)+RABAT+RABAT1;
REEL(4):=REEL(4)+BRÆK+BRÆK1;
REEL(5):=REEL(5)+FRAGT+FRAGT1;
REEL(6):=REEL(6)+EMBAL+EMBAL1;
REEL(7):=REEL(7)+VARESALG+VARESAL1+KRENOTA+KRENOTA1;
END;
SEEK(JOURFIL,1);
PUT(JOURFIL);
END;
CLOSE(JOURFIL);
CLOSE(SYSFIL);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0017 Line {l1=0x15, l2=»PROGRAM SKRIVJOURNAL;«, l3=0x15}
0x0017…0026 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0026…0035 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x0035…0044 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0044…006a Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x006a…00b3 Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x00b3…00fc Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x00fc…012c Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x012c…017c Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x017c…01ab Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x01ab…01d9 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x01d9…0204 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0204…022d Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x022d…0252 Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x0252…025a Line {l1=0x06, l2=» END;«, l3=0x06}
0x025a…026b Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x026b…0280 Line {l1=0x13, l2=» (*KNR1,KNR2,«, l3=0x13}
0x0280…02b1 Line {l1=0x2f, l2=» FAKTNR1-2*) NR:ARRAY(1..6) OF INTEGER;«, l3=0x2f}
0x02b1…02c8 Line {l1=0x15, l2=» (*IALTMEDMOMS,«, l3=0x15}
0x02c8…02d8 Line {l1=0x0e, l2=» MOMS,«, l3=0x0e}
0x02d8…02e9 Line {l1=0x0f, l2=» RABAT,«, l3=0x0f}
0x02e9…0300 Line {l1=0x15, l2=» BRÆKAGEFORS,«, l3=0x15}
0x0300…0311 Line {l1=0x0f, l2=» FRAGT,«, l3=0x0f}
0x0311…0326 Line {l1=0x13, l2=» EMBALLAGE,«, l3=0x13}
0x0326…0357 Line {l1=0x2f, l2=» VARESALG *) REEL:ARRAY(1..7) OF REAL«, l3=0x2f}
0x0357…035d Line {l1=0x04, l2=»END;«, l3=0x04}
0x035d…0379 Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x0379…0389 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0389…03aa Line {l1=0x1f, l2=»HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x1f}
0x03aa…03c5 Line {l1=0x19, l2=»KGB:ARRAY (1..5) OF REAL;«, l3=0x19}
0x03c5…03ec Line {l1=0x25, l2=»BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x25}
0x03ec…041f Line {l1=0x31, l2=»KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x31}
0x041f…0425 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0425…043f Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x043f…0450 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x0450…045e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x045e…04ad Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x04ad…04e2 Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x04e2…04e8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04e8…04f9 Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x04f9…050c Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x050c…0530 Line {l1=0x22, l2=» T:ARRAY (1..508) OF INTEGER«, l3=0x22}
0x0530…0536 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0536…0545 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0545…0559 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0559…057d Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x057d…0585 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0585…05a0 Line {l1=0x19, l2=» VAR FPOST,FKUN : ISF;«, l3=0x19}
0x05a0…05bb Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x05bb…05d4 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x05d4…05e7 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x05e7…05fd Line {l1=0x14, l2=» PZ:POSTZONE;«, l3=0x14}
0x05fd…0616 Line {l1=0x17, l2=» PPOST:POSTPOST;«, l3=0x17}
0x0616…062c Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x062c…0647 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0647…065a Line {l1=0x11, l2=» IER,I,J,K«, l3=0x11}
0x065a…067d Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x067d…0694 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0694…06db Line {l1=0x45, l2=» RABAT1,BRÆK1,FRAGT1,EMBAL1,VARESAL1,KRENOTA1,KRENOTA,KREMOMS,«, l3=0x45}
0x06db…0717 Line {l1=0x3a, l2=» R,R1,R2,MOMS,RABAT,BRÆK,FRAGT,EMBAL,VARESALG:REAL;«, l3=0x3a}
0x0717…0720 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0720…0734 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0734…0742 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0742…0750 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0750…0761 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0761…0772 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0772…0782 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0782…0791 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0791…07a0 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x07a0…07af Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x07af…07bf Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x07bf…07c9 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x07c9…07d2 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x07d2…07e5 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x07e5…07ed Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x07ed…0812 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0812…0829 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0829…0841 Line {l1=0x16, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x16}
0x0841…085d Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x085d…086c Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x086c…0873 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0873…0885 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0885…088c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x088c…089d Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x089d…08e2 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x08e2…0912 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0912…094b Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x094b…0962 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0962…0971 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0971…0977 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0977…0990 Line {l1=0x17, l2=»PROCEDURE NEDTÆLÆLDSTE;«, l3=0x17}
0x0990…0997 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0997…09ae Line {l1=0x15, l2=» WITH KUNDE,PPOST DO«, l3=0x15}
0x09ae…09b7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x09b7…09d4 Line {l1=0x1b, l2=» HELTAL(1):=KUNDE.NR(1);«, l3=0x1b}
0x09d4…09f1 Line {l1=0x1b, l2=» HELTAL(2):=KUNDE.NR(2);«, l3=0x1b}
0x09f1…0a15 Line {l1=0x22, l2=» FOR I:=3 TO 7 DO HELTAL(I):=0;«, l3=0x22}
0x0a15…0a31 Line {l1=0x1a, l2=» NEXTREC(PZ.H,FPOST,A);«, l3=0x1a}
0x0a31…0a64 Line {l1=0x31, l2=» IF (IER<>-1) AND (IER<>-2) THEN ERROR;IER:=0;«, l3=0x31}
0x0a64…0aa7 Line {l1=0x41, l2=» WHILE (HELTAL(1)=NR(1)) AND (HELTAL(2)=NR(2)) AND (R1<0.0) DO«, l3=0x41}
0x0aa7…0ab2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0ab2…0b00 Line {l1=0x4c, l2=» IF ((HELTAL(5)=1) OR (HELTAL(5)=4) OR (HELTAL(5)=9)) AND (REEL(2)>0.0)«, l3=0x4c}
0x0b00…0b0c Line {l1=0x0a, l2=» THEN«, l3=0x0a}
0x0b0c…0b19 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b19…0b37 Line {l1=0x1c, l2=» REEL(2):=REEL(2)+R1;«, l3=0x1c}
0x0b37…0b55 Line {l1=0x1c, l2=» IF REEL(2)<=0.0 THEN«, l3=0x1c}
0x0b55…0b64 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b64…0b7c Line {l1=0x16, l2=» R1:=REEL(2);«, l3=0x16}
0x0b7c…0b93 Line {l1=0x15, l2=» REEL(2):=0;«, l3=0x15}
0x0b93…0bb2 Line {l1=0x1d, l2=» IF HELTAL(5)=1 THEN«, l3=0x1d}
0x0bb2…0bc3 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0bc3…0be2 Line {l1=0x1d, l2=» NR(12):=NR(12)+1;«, l3=0x1d}
0x0be2…0c05 Line {l1=0x21, l2=» NR(11):=NR(11)+TRUNC(«, l3=0x21}
0x0c05…0c49 Line {l1=0x42, l2=» JOURFIL^.NR(5)*360.0+JOURFIL^.NR(6) DIV 100*30.0«, l3=0x42}
0x0c49…0c76 Line {l1=0x2b, l2=» +JOURFIL^.NR(6) MOD 100 -«, l3=0x2b}
0x0c76…0cc4 Line {l1=0x4c, l2=» HELTAL(3)*360.0-HELTAL(4) DIV 100*30.0-HELTAL(4) MOD 100);«, l3=0x4c}
0x0cc4…0cd3 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0cd3…0ce0 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0ce0…0cf7 Line {l1=0x15, l2=» ELSE R1:=0.0;«, l3=0x15}
0x0cf7…0d15 Line {l1=0x1c, l2=» PUTREC(PZ.H,FPOST,A)«, l3=0x1c}
0x0d15…0d20 Line {l1=0x09, l2=» END«, l3=0x09}
0x0d20…0d41 Line {l1=0x1f, l2=» ELSE IF HELTAL(5)=10 THEN«, l3=0x1f}
0x0d41…0d4e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0d4e…0d7a Line {l1=0x2a, l2=» REEL(2):=REEL(2)+JOURFIL^.REEL(1);«, l3=0x2a}
0x0d7a…0da0 Line {l1=0x24, l2=» IF REEL(2)<0 THEN REEL(2):=0«, l3=0x24}
0x0da0…0dac Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0dac…0dc9 Line {l1=0x1b, l2=» NEXTREC(PZ.H,FPOST,A)«, l3=0x1b}
0x0dc9…0dd2 Line {l1=0x07, l2=» END«, l3=0x07}
0x0dd2…0dd9 Line {l1=0x05, l2=» END«, l3=0x05}
0x0dd9…0ddf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ddf…0df0 Line {l1=0x0f, l2=»PROCEDURE PRUT;«, l3=0x0f}
0x0df0…0df7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0df7…0e22 Line {l1=0x29, l2=» WRITELN(LIST,'TOTAL',' ':49,R/100:12:2);«, l3=0x29}
0x0e22…0e34 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
[…0x1…]
0x0e46…0e89 Line {l1=0x41, l2=» WRITELN(LIST,' ':20,'MOMSPLIGTIGT',' ':10,'IKKE MOMSPLIGTIGT');«, l3=0x41}
0x0e89…0ed8 Line {l1=0x4d, l2=» WRITELN(LIST,'VARESALG',' ':12,VARESALG/100:12:2,' ':10,VARESAL1/100:12:2);«, l3=0x4d}
0x0ed8…0f23 Line {l1=0x49, l2=» WRITELN(LIST,'EMBALLAGE',' ':11,EMBAL/100:12:2,' ':10,EMBAL1/100:12:2);«, l3=0x49}
0x0f23…0f6d Line {l1=0x48, l2=» WRITELN(LIST,'BRÆKAGEFORS',' ':9,BRÆK/100:12:2,' ':10,BRÆK1/100:12:2);«, l3=0x48}
0x0f6d…0f73 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f73…0f84 Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x0f84…0f8b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f8b…0fb2 Line {l1=0x25, l2=» FOR K:=2 TO SYSFIL^.HELTAL(13)-1 DO«, l3=0x25}
0x0fb2…0fbb Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0fbb…0fce Line {l1=0x11, l2=» GET(JOURFIL);«, l3=0x11}
0x0fce…0fe4 Line {l1=0x14, l2=» WITH JOURFIL^ DO«, l3=0x14}
0x0fe4…0fef Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0fef…1008 Line {l1=0x17, l2=» KUNDE.NR(1):=NR(1);«, l3=0x17}
0x1008…1021 Line {l1=0x17, l2=» KUNDE.NR(2):=NR(2);«, l3=0x17}
0x1021…1041 Line {l1=0x1e, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1e}
0x1041…105c Line {l1=0x19, l2=» IF IER<>0 THEN ERROR;«, l3=0x19}
0x105c…106f Line {l1=0x11, l2=» WITH KUNDE DO«, l3=0x11}
0x106f…107a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x107a…108e Line {l1=0x12, l2=» R1:=REEL(1);«, l3=0x12}
0x108e…10a7 Line {l1=0x17, l2=» IF REEL(1)>0 THEN«, l3=0x17}
0x10a7…10b4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x10b4…10d6 Line {l1=0x20, l2=» NR(13):=SYSFIL^.HELTAL(1);«, l3=0x20}
0x10d6…10f8 Line {l1=0x20, l2=» NR(14):=SYSFIL^.HELTAL(2);«, l3=0x20}
0x10f8…1121 Line {l1=0x27, l2=» SALDOKØB(1):=SALDOKØB(1)+REEL(1);«, l3=0x27}
0x1121…1152 Line {l1=0x2f, l2=» SALDOKØB(7):=SALDOKØB(7)+REEL(7)-REEL(3);«, l3=0x2f}
0x1152…1182 Line {l1=0x2e, l2=» SALDOKØB(8):=SALDOKØB(8)+REEL(7)-REEL(3)«, l3=0x2e}
0x1182…118d Line {l1=0x09, l2=» END«, l3=0x09}
0x118d…1199 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1199…11a6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x11a6…11d1 Line {l1=0x29, l2=» SALDOKØB(6):=SALDOKØB(6)+REEL(1);«, l3=0x29}
0x11d1…11e0 Line {l1=0x0d, l2=» I:=5;«, l3=0x0d}
0x11e0…1210 Line {l1=0x2e, l2=» WHILE (SALDOKØB(I+1)<0.0) AND (I>0) DO«, l3=0x2e}
0x1210…121f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x121f…1252 Line {l1=0x31, l2=» SALDOKØB(I):=SALDOKØB(I)+SALDOKØB(I+1);«, l3=0x31}
0x1252…1271 Line {l1=0x1d, l2=» SALDOKØB(I+1):=0.0;«, l3=0x1d}
0x1271…1283 Line {l1=0x10, l2=» I:=I-1«, l3=0x10}
0x1283…1291 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1291…12a7 Line {l1=0x14, l2=» NEDTÆLÆLDSTE«, l3=0x14}
0x12a7…12b2 Line {l1=0x09, l2=» END«, l3=0x09}
0x12b2…12bc Line {l1=0x08, l2=» END;«, l3=0x08}
0x12bc…12dc Line {l1=0x1e, l2=» PUTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1e}
0x12dc…12f7 Line {l1=0x19, l2=» IF IER<>0 THEN ERROR;«, l3=0x19}
0x12f7…130a Line {l1=0x11, l2=» WITH PPOST DO«, l3=0x11}
0x130a…1315 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1315…132e Line {l1=0x17, l2=» HELTAL(1):=NR(1);«, l3=0x17}
0x132e…1347 Line {l1=0x17, l2=» HELTAL(2):=NR(2);«, l3=0x17}
0x1347…1360 Line {l1=0x17, l2=» HELTAL(3):=NR(5);«, l3=0x17}
0x1360…1379 Line {l1=0x17, l2=» HELTAL(4):=NR(6);«, l3=0x17}
0x1379…13ad Line {l1=0x32, l2=» IF JOURFIL^.REEL(1)<0 THEN HELTAL(5):=2 ELSE«, l3=0x32}
0x13ad…13cd Line {l1=0x1e, l2=» HELTAL(5):=1;(*FAKTURA*)«, l3=0x1e}
0x13cd…13e6 Line {l1=0x17, l2=» HELTAL(6):=NR(3);«, l3=0x17}
0x13e6…13ff Line {l1=0x17, l2=» HELTAL(7):=NR(4);«, l3=0x17}
0x13ff…1421 Line {l1=0x20, l2=» REEL(1):=JOURFIL^.REEL(1);«, l3=0x20}
0x1421…1435 Line {l1=0x12, l2=» REEL(2):=R1;«, l3=0x12}
0x1435…1452 Line {l1=0x1b, l2=» INSERT(PZ.H,FPOST,A);«, l3=0x1b}
0x1452…146e Line {l1=0x1a, l2=» IF IER<>0 THEN ERROR«, l3=0x1a}
0x146e…1478 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1478…148b Line {l1=0x11, l2=» R:=R+REEL(1);«, l3=0x11}
0x148b…14a3 Line {l1=0x16, l2=» IF REEL(2)<>0 THEN«, l3=0x16}
0x14a3…14ae Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x14ae…14e3 Line {l1=0x33, l2=» IF REEL(2)<0 THEN KREMOMS:=KREMOMS+REEL(2) ELSE«, l3=0x33}
0x14e3…14fc Line {l1=0x17, l2=» MOMS:=MOMS+REEL(2);«, l3=0x17}
0x14fc…1517 Line {l1=0x19, l2=» RABAT:=RABAT+REEL(3);«, l3=0x19}
0x1517…1530 Line {l1=0x17, l2=» BRÆK:=BRÆK+REEL(4);«, l3=0x17}
0x1530…154b Line {l1=0x19, l2=» FRAGT:=FRAGT+REEL(5);«, l3=0x19}
0x154b…1566 Line {l1=0x19, l2=» EMBAL:=EMBAL+REEL(6);«, l3=0x19}
0x1566…159b Line {l1=0x33, l2=» IF REEL(7)<0 THEN KRENOTA:=KRENOTA+REEL(7) ELSE«, l3=0x33}
0x159b…15bc Line {l1=0x1f, l2=» VARESALG:=VARESALG+REEL(7);«, l3=0x1f}
0x15bc…15c5 Line {l1=0x07, l2=» END«, l3=0x07}
0x15c5…15cf Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x15cf…15da Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x15da…15fa Line {l1=0x1e, l2=» RABAT1:=RABAT1+REEL(3);«, l3=0x1e}
0x15fa…1618 Line {l1=0x1c, l2=» BRÆK1:=BRÆK1+REEL(4);«, l3=0x1c}
0x1618…1638 Line {l1=0x1e, l2=» FRAGT1:=FRAGT1+REEL(5);«, l3=0x1e}
0x1638…1658 Line {l1=0x1e, l2=» EMBAL1:=EMBAL1+REEL(6);«, l3=0x1e}
0x1658…1692 Line {l1=0x38, l2=» IF REEL(7)<0 THEN KRENOTA1:=KRENOTA1+REEL(7) ELSE«, l3=0x38}
0x1692…16b6 Line {l1=0x22, l2=» VARESAL1:=VARESAL1+REEL(7);«, l3=0x22}
0x16b6…16c0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x16c0…16fb Line {l1=0x39, l2=» WRITE(LIST,NR(1)*10000.0+NR(2):7:-2,KUNDE.NAVN(1):35,«, l3=0x39}
0x16fb…173a Line {l1=0x3d, l2=» NR(3)*10000.0+NR(4):10:-2,REEL(1)/100:14:2);«, l3=0x3d}
0x173a…177b Line {l1=0x3f, l2=» IF REEL(1)<0 THEN WRITELN(LIST,' ***') ELSE WRITELN(LIST);«, l3=0x3f}
0x177b…1785 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1785…178d Line {l1=0x06, l2=» END;«, l3=0x06}
0x178d…1795 Line {l1=0x06, l2=» PRUT;«, l3=0x06}
0x1795…179b Line {l1=0x04, l2=»END;«, l3=0x04}
0x179b…17a2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x17a2…17a5 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x17a8…17c7 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x17c7…17df Line {l1=0x16, l2=» REWRITE(FKUN,FNAVN);«, l3=0x16}
0x17df…180f Line {l1=0x2e, l2=» IOPEN(KZ.H,FKUN,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x180f…1812 Line {l1=0x01, l2=» «, l3=0x01}
0x1812…1831 Line {l1=0x1d, l2=» FNAVN:='POSTREG:P2:0000:I';«, l3=0x1d}
0x1831…184a Line {l1=0x17, l2=» REWRITE(FPOST,FNAVN);«, l3=0x17}
0x184a…1866 Line {l1=0x1a, l2=» IOPEN(PZ.H,FPOST,SKRIV);«, l3=0x1a}
0x1866…187f Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x187f…189a Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x189a…18b4 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x18b4…18c7 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x18c7…18d7 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x18d7…18f4 Line {l1=0x1b, l2=» FNAVN:='JOURNAL:P2:30:I';«, l3=0x1b}
0x18f4…190f Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x190f…1912 Line {l1=0x01, l2=» «, l3=0x01}
0x1912…194c Line {l1=0x38, l2=» IF (SYSFIL^.HELTAL(13)-2>PZ.H.NREC-PZ.H.RECINUSE) THEN«, l3=0x38}
0x194c…1985 Line {l1=0x37, l2=» WRITELN('Der er ikke plads til flere posteringer')«, l3=0x37}
0x1985…198d Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x198d…1996 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1996…19ac Line {l1=0x14, l2=» SEEK(JOURFIL,2);«, l3=0x14}
0x19ac…19b5 Line {l1=0x07, l2=» R:=0;«, l3=0x07}
0x19b5…19f0 Line {l1=0x39, l2=» MOMS:=0;RABAT:=0;BRÆK:=0;FRAGT:=0;EMBAL:=0;VARESALG:=0;«, l3=0x39}
0x19f0…1a27 Line {l1=0x35, l2=» RABAT1:=0;BRÆK1:=0;FRAGT1:=0;EMBAL1:=0;VARESAL1:=0;«, l3=0x35}
0x1a27…1a4d Line {l1=0x24, l2=» KREMOMS:=0;KRENOTA:=0;KRENOTA1:=0;«, l3=0x24}
0x1a4d…1a97 Line {l1=0x48, l2=» WRITELN(LIST,'FAKTURERINGS-JOURNAL',' ':20,SYSFIL^.HELTAL(1)*10000.0+«, l3=0x48}
0x1a97…1ae3 Line {l1=0x4a, l2=» SYSFIL^.HELTAL(2):8:-2,' Side ',SYSFIL^.HELTAL(18):4);«, l3=0x4a}
0x1ae3…1b11 Line {l1=0x2c, l2=» SYSFIL^.HELTAL(18):=SYSFIL^.HELTAL(18)+1;«, l3=0x2c}
0x1b11…1b23 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x1b23…1b2c Line {l1=0x07, l2=» DOIT;«, l3=0x07}
0x1b2c…1b73 Line {l1=0x45, l2=» WRITELN(LIST,'FRAGT',' ':15,FRAGT/100:12:2,' ':10,FRAGT1/100:12:2);«, l3=0x45}
0x1b73…1ba1 Line {l1=0x2c, l2=» WRITELN(LIST,'MOMS',' ':16,MOMS/100:12:2);«, l3=0x2c}
0x1ba1…1bdc Line {l1=0x39, l2=» WRITELN(LIST,'KREDITNOTA-MOMS',' ':5,KREMOMS/100:12:2);«, l3=0x39}
0x1bdc…1c28 Line {l1=0x4a, l2=» WRITELN(LIST,'RABAT',' ':13,'- ',RABAT/100:12:2,'-':10,RABAT1/100:12:2);«, l3=0x4a}
0x1c28…1c77 Line {l1=0x4d, l2=» WRITELN(LIST,'KREDITNOTA',' ':10,KRENOTA/100:12:2,' ':10,KRENOTA1/100:12:2);«, l3=0x4d}
0x1c77…1cb4 Line {l1=0x3b, l2=» R1:=VARESALG+EMBAL+FRAGT+BRÆK+MOMS-RABAT+KRENOTA+KREMOMS;«, l3=0x3b}
0x1cb4…1ce9 Line {l1=0x33, l2=» R2:=VARESAL1+EMBAL1+FRAGT1+BRÆK1-RABAT1+KRENOTA1;«, l3=0x33}
0x1ce9…1d28 Line {l1=0x3d, l2=» WRITELN(LIST,'TOTAL',' ':15,R1/100:12:2,' ':10,R2/100:12:2,«, l3=0x3d}
0x1d28…1d5a Line {l1=0x30, l2=» (R1+R2)/100:12:2);«, l3=0x30}
0x1d5a…1d93 Line {l1=0x37, l2=» WRITELN(LIST,'DIFFERENCE',' ':44,(R1+R2-R)/100:12:2);«, l3=0x37}
0x1d93…1da9 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x1da9…1dc0 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x1dc0…1dda Line {l1=0x18, l2=» SYSFIL^.HELTAL(13):=2;«, l3=0x18}
0x1dda…1ded Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1ded…1dfd Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x1dfd…1e11 Line {l1=0x12, l2=» SEEK(JOURFIL,1);«, l3=0x12}
0x1e11…1e22 Line {l1=0x0f, l2=» GET(JOURFIL);«, l3=0x0f}
0x1e22…1e36 Line {l1=0x12, l2=» WITH JOURFIL^ DO«, l3=0x12}
0x1e36…1e3f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1e3f…1e5f Line {l1=0x1e, l2=» FOR I:=1 TO 4 DO NR(I):=0;«, l3=0x1e}
0x1e5f…1e78 Line {l1=0x17, l2=» REEL(1):=REEL(1)+R;«, l3=0x17}
0x1e78…1e9c Line {l1=0x22, l2=» REEL(2):=REEL(2)+MOMS+KREMOMS;«, l3=0x22}
0x1e9c…1ec0 Line {l1=0x22, l2=» REEL(3):=REEL(3)+RABAT+RABAT1;«, l3=0x22}
0x1ec0…1ee2 Line {l1=0x20, l2=» REEL(4):=REEL(4)+BRÆK+BRÆK1;«, l3=0x20}
0x1ee2…1f06 Line {l1=0x22, l2=» REEL(5):=REEL(5)+FRAGT+FRAGT1;«, l3=0x22}
0x1f06…1f2a Line {l1=0x22, l2=» REEL(6):=REEL(6)+EMBAL+EMBAL1;«, l3=0x22}
0x1f2a…1f64 Line {l1=0x38, l2=» REEL(7):=REEL(7)+VARESALG+VARESAL1+KRENOTA+KRENOTA1;«, l3=0x38}
0x1f64…1f6c Line {l1=0x06, l2=» END;«, l3=0x06}
0x1f6c…1f80 Line {l1=0x12, l2=» SEEK(JOURFIL,1);«, l3=0x12}
0x1f80…1f91 Line {l1=0x0f, l2=» PUT(JOURFIL);«, l3=0x0f}
0x1f91…1f99 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1f99…1fac Line {l1=0x11, l2=» CLOSE(JOURFIL);«, l3=0x11}
0x1fac…1fbe Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1fbe…1fe4 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1fe4…1fea Line {l1=0x04, l2=»END.«, l3=0x04}
0x1fea…2000 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccc┆
0x2000…2020 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┆
[…0x3a…]
0x2760…2780 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 00 ┆ccccccccccccccccccccccccccccccc ┆