|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »RYDOP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »RYDOP.K«
PROGRAM OPRYD;
CONST DK=8;
(*$IISFHEAD*)
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;
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;
VAR FPOST:ISF;
SYSFIL:SYSFILE;
PZ:POSTZONE;
PPOST:POSTPOST;
FILNAVN2:STRING(20);
IER,I:INTEGER;
R1,R2,R,TOTAL:REAL;
SUPASSED:BOOLEAN;
(*$L-*)
(*$R-,IIOPEN*)
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IICLOSE*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I POSTERINGSREG ',IER);
ICLOSE(PZ.H,FPOST);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
BEGIN
FILNAVN2:='POSTREG:P2:0000:I';
REWRITE(FPOST,FILNAVN2);
IOPEN(PZ.H,FPOST,SKRIV);
IF IER<>0 THEN ERROR;
FILNAVN2:='SYSREG:P2:1:I';
RESET(SYSFIL,FILNAVN2);
SEEK(SYSFIL,1);
GET(SYSFIL);
CLOSE(SYSFIL);
R:=365.0*SYSFIL^.HELTAL(1)+30.0*(SYSFIL^.HELTAL(2) DIV 100) +
(SYSFIL^.HELTAL(2) MOD 100)-60.0;
FOR I:=1 TO 7 DO PPOST.HELTAL(I):=0;
NEXTREC(PZ.H,FPOST,PPOST.A);
IF IER<>-1 THEN ERROR;IER:=0;
R1:=0.0;
WHILE IER=0 DO
WITH PPOST DO
BEGIN
R2:=HELTAL(1)*10000.0+HELTAL(2);
IF R1<>R2 THEN BEGIN R1:=R2;SUPASSED:=FALSE END;
IF HELTAL(5)=10 THEN SUPASSED:=TRUE;
TOTAL:=365.0*HELTAL(3)+30.0*(HELTAL(4) DIV 100)+(HELTAL(4) MOD 100);
IF (REEL(2)=0.0) AND (TOTAL<=R) AND (NOT SUPASSED) THEN
BEGIN
WRITELN(LIST,HELTAL(1)*10000.0+HELTAL(2):10:-2,
HELTAL(3)*10000.0+HELTAL(4):14:-2,
HELTAL(6)*10000.0+HELTAL(7):14:-2);
DELETE(PZ.H,FPOST,PPOST.A)
END
ELSE
NEXTREC(PZ.H,FPOST,PPOST.A)
END;
IF IER<>-2 THEN ERROR;
ICLOSE(PZ.H,FPOST);
CLEARSCREEN;
WRITELN('ICLOSE ',IER:5,I:7);
END.
0x0000…0010 Line {l1=0x0e, l2=»PROGRAM OPRYD;«, l3=0x0e}
0x0010…0013 Line {l1=0x01, l2=» «, l3=0x01}
0x0013…0021 Line {l1=0x0c, l2=»CONST DK=8;«, l3=0x0c}
0x0021…0030 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0030…0041 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x0041…004f Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x004f…009e Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x009e…00d3 Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x00d3…00d9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00d9…00ea Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x00ea…00fd Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x00fd…0121 Line {l1=0x22, l2=» T:ARRAY (1..508) OF INTEGER«, l3=0x22}
0x0121…0127 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0127…0137 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0137…0160 Line {l1=0x27, l2=» HELTAL:ARRAY (1..24) OF INTEGER;«, l3=0x27}
0x0160…0182 Line {l1=0x20, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x20}
0x0182…01b0 Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x01b0…01ea Line {l1=0x38, l2=» KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x38}
0x01ea…01f0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01f0…020a Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x020a…021d Line {l1=0x11, l2=»VAR FPOST:ISF;«, l3=0x11}
0x021d…0235 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x0235…024a Line {l1=0x13, l2=» PZ:POSTZONE;«, l3=0x13}
0x024a…0262 Line {l1=0x16, l2=» PPOST:POSTPOST;«, l3=0x16}
0x0262…027f Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x027f…0296 Line {l1=0x15, l2=» IER,I:INTEGER;«, l3=0x15}
0x0296…02b2 Line {l1=0x1a, l2=» R1,R2,R,TOTAL:REAL;«, l3=0x1a}
0x02b2…02cc Line {l1=0x18, l2=» SUPASSED:BOOLEAN;«, l3=0x18}
0x02cc…02cf Line {l1=0x01, l2=» «, l3=0x01}
0x02cf…02d8 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x02d8…02e8 Line {l1=0x0e, l2=»(*$R-,IIOPEN*)«, l3=0x0e}
0x02e8…02f8 Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x02f8…0305 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0305…0315 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0315…0325 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0325…0334 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x0334…0343 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0343…0351 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x0351…035f Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x035f…0368 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0368…0371 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0371…0383 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0383…038a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x038a…03b3 Line {l1=0x27, l2=» WRITELN('FEJL I POSTERINGSREG ',IER);«, l3=0x27}
0x03b3…03ca Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x03ca…03e5 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x03e5…03f3 Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x03f3…03f9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03f9…0400 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0400…0422 Line {l1=0x20, l2=» FILNAVN2:='POSTREG:P2:0000:I';«, l3=0x20}
0x0422…043e Line {l1=0x1a, l2=» REWRITE(FPOST,FILNAVN2);«, l3=0x1a}
0x043e…045a Line {l1=0x1a, l2=» IOPEN(PZ.H,FPOST,SKRIV);«, l3=0x1a}
0x045a…0473 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x0473…0491 Line {l1=0x1c, l2=» FILNAVN2:='SYSREG:P2:1:I';«, l3=0x1c}
0x0491…04ac Line {l1=0x19, l2=» RESET(SYSFIL,FILNAVN2);«, l3=0x19}
0x04ac…04bf Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x04bf…04cf Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x04cf…04e1 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x04e1…0522 Line {l1=0x3f, l2=» R:=365.0*SYSFIL^.HELTAL(1)+30.0*(SYSFIL^.HELTAL(2) DIV 100) +«, l3=0x3f}
0x0522…054a Line {l1=0x26, l2=» (SYSFIL^.HELTAL(2) MOD 100)-60.0;«, l3=0x26}
0x054a…0572 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO PPOST.HELTAL(I):=0;«, l3=0x26}
0x0572…0592 Line {l1=0x1e, l2=» NEXTREC(PZ.H,FPOST,PPOST.A);«, l3=0x1e}
0x0592…05b3 Line {l1=0x1f, l2=» IF IER<>-1 THEN ERROR;IER:=0;«, l3=0x1f}
0x05b3…05bf Line {l1=0x0a, l2=» R1:=0.0;«, l3=0x0a}
0x05bf…05d1 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x05d1…05e2 Line {l1=0x0f, l2=» WITH PPOST DO«, l3=0x0f}
0x05e2…05eb Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05eb…0611 Line {l1=0x24, l2=» R2:=HELTAL(1)*10000.0+HELTAL(2);«, l3=0x24}
0x0611…0647 Line {l1=0x34, l2=» IF R1<>R2 THEN BEGIN R1:=R2;SUPASSED:=FALSE END;«, l3=0x34}
0x0647…0671 Line {l1=0x28, l2=» IF HELTAL(5)=10 THEN SUPASSED:=TRUE;«, l3=0x28}
0x0671…06bb Line {l1=0x48, l2=» TOTAL:=365.0*HELTAL(3)+30.0*(HELTAL(4) DIV 100)+(HELTAL(4) MOD 100);«, l3=0x48}
0x06bb…06f8 Line {l1=0x3b, l2=» IF (REEL(2)=0.0) AND (TOTAL<=R) AND (NOT SUPASSED) THEN«, l3=0x3b}
0x06f8…0703 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0703…073a Line {l1=0x35, l2=» WRITELN(LIST,HELTAL(1)*10000.0+HELTAL(2):10:-2,«, l3=0x35}
0x073a…0771 Line {l1=0x35, l2=» HELTAL(3)*10000.0+HELTAL(4):14:-2,«, l3=0x35}
0x0771…07a9 Line {l1=0x36, l2=» HELTAL(6)*10000.0+HELTAL(7):14:-2);«, l3=0x36}
0x07a9…07cb Line {l1=0x20, l2=» DELETE(PZ.H,FPOST,PPOST.A)«, l3=0x20}
0x07cb…07d4 Line {l1=0x07, l2=» END«, l3=0x07}
0x07d4…07de Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x07de…0801 Line {l1=0x21, l2=» NEXTREC(PZ.H,FPOST,PPOST.A)«, l3=0x21}
0x0801…0809 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0809…0823 Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x0823…083a Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x083a…084a Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x084a…086b Line {l1=0x1f, l2=» WRITELN('ICLOSE ',IER:5,I:7);«, l3=0x1f}
0x086b…0871 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0871…0880 00 00 41 4c 28 34 29 20 4d 4f 44 20 31 30 30 ┆ AL(4) MOD 100┆
0x0880…08a0 29 3b 48 3b 20 20 20 20 49 46 20 28 52 45 45 4c 28 32 29 3d 30 2e 30 29 20 41 4e 44 20 28 54 4f ┆);H; IF (REEL(2)=0.0) AND (TO┆
0x08a0…08c0 54 41 4c 3c 3d 52 29 20 41 4e 44 20 28 4e 4f 54 20 53 55 50 41 53 53 45 44 29 20 54 48 45 4e 3b ┆TAL<=R) AND (NOT SUPASSED) THEN;┆
0x08c0…08e0 09 20 20 20 20 42 45 47 49 4e 09 35 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 48 ┆ BEGIN 5 WRITELN(LIST,H┆
0x08e0…0900 45 4c 54 41 4c 28 31 29 2a 31 30 30 30 30 2e 30 2b 48 45 4c 54 41 4c 28 32 29 3a 31 30 3a 2d 32 ┆ELTAL(1)*10000.0+HELTAL(2):10:-2┆
0x0900…0920 2c 35 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 45 4c 54 41 4c 28 33 29 2a ┆,55 HELTAL(3)*┆
0x0920…0940 31 30 30 30 30 2e 30 2b 48 45 4c 54 41 4c 28 34 29 3a 31 34 3a 2d 32 2c 35 36 20 20 20 20 20 20 ┆10000.0+HELTAL(4):14:-2,56 ┆
0x0940…0960 20 20 20 20 20 20 20 20 20 20 20 20 20 48 45 4c 54 41 4c 28 36 29 2a 31 30 30 30 30 2e 30 2b 48 ┆ HELTAL(6)*10000.0+H┆
0x0960…0980 45 4c 54 41 4c 28 37 29 3a 31 34 3a 2d 32 29 3b 36 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 50 ┆ELTAL(7):14:-2);6 DELETE(P┆
0x0980…09a0 5a 2e 48 2c 46 50 4f 53 54 2c 50 50 4f 53 54 2e 41 29 20 07 20 20 20 20 45 4e 44 07 08 20 20 20 ┆Z.H,FPOST,PPOST.A) END ┆
0x09a0…09c0 20 45 4c 53 45 08 21 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 50 5a 2e 48 2c 46 50 4f 53 54 2c ┆ ELSE ! NEXTREC(PZ.H,FPOST,┆
0x09c0…09e0 50 50 4f 53 54 2e 41 29 21 06 20 20 45 4e 44 3b 06 18 20 20 49 46 20 49 45 52 3c 3e 2d 32 20 54 ┆PPOST.A)! END; IF IER<>-2 T┆
0x09e0…0a00 48 45 4e 20 45 52 52 4f 52 3b 18 15 20 20 49 43 4c 4f 53 45 28 50 5a 2e 48 2c 46 50 4f 53 54 29 ┆HEN ERROR; ICLOSE(PZ.H,FPOST)┆
0x0a00…0a20 3b 15 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 1d 20 20 57 52 49 54 45 4c 4e 28 27 49 43 ┆; CLEARSCREEN; WRITELN('IC┆
0x0a20…0a40 4c 4f 53 45 20 27 2c 49 45 52 2c 49 3a 37 29 3b 1d 04 45 4e 44 2e 04 00 00 45 3b 0f 1b 20 20 20 ┆LOSE ',IER,I:7); END. E; ┆
0x0a40…0a60 20 20 20 20 46 49 4c 4e 41 56 4e 32 3a 53 54 52 49 4e 47 28 32 30 29 3b 1b 1d 20 20 20 20 20 20 ┆ FILNAVN2:STRING(20); ┆
0x0a60…0a80 20 4c 49 4e 49 45 2c 4a 2c 49 45 52 2c 49 3a 49 4e 54 45 47 45 52 3b 1d 12 20 20 20 20 20 20 4b ┆ LINIE,J,IER,I:INTEGER; K┆
0x0a80…0aa0 55 4e 44 45 3a 4b 50 4f 53 54 3b 12 3b 20 20 20 20 20 20 20 50 54 59 50 45 3a 41 52 52 41 59 20 ┆UNDE:KPOST; ; PTYPE:ARRAY ┆
0x0aa0…0ac0 28 30 2e 2e 31 30 29 20 4f 46 20 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 31 35 29 20 ┆(0..10) OF PACKED ARRAY (1..15) ┆
0x0ac0…0ae0 4f 46 20 43 48 41 52 3b 3b 29 20 20 20 20 20 20 20 4e 41 4d 45 3a 50 41 43 4b 45 44 20 41 52 52 ┆OF CHAR;;) NAME:PACKED ARR┆
0x0ae0…0b00 41 59 20 28 31 2e 2e 32 36 29 20 4f 46 20 43 48 41 52 3b 29 14 20 20 20 20 20 20 20 52 2c 54 4f ┆AY (1..26) OF CHAR;) R,TO┆
0x0b00…0b20 54 41 4c 3a 52 45 41 4c 3b 14 0e 20 20 20 20 20 20 20 46 3a 54 45 58 54 3b 0e 16 20 20 20 20 20 ┆TAL:REAL; F:TEXT; ┆
0x0b20…0b40 20 20 4e 4f 46 49 4e 44 3a 42 4f 4f 4c 45 41 4e 3b 16 01 20 01 07 28 2a 24 4c 2d 2a 29 07 11 28 ┆ NOFIND:BOOLEAN; (*$L-*) (┆
0x0b40…0b60 2a 24 52 2d 2c 49 45 58 43 4f 4d 43 4f 50 2a 29 11 0b 28 2a 24 49 53 5b 54 5c 47 2a 29 0b 0e 28 ┆*$R-,IEXCOMCOP*) (*$ISÆTØG*) (┆
0x0b60…0b80 2a 24 49 52 45 41 44 50 52 4f 43 2a 29 0e 0e 28 2a 24 49 46 49 4e 44 50 4f 53 54 2a 29 0e 0d 28 ┆*$IREADPROC*) (*$IFINDPOST*) (┆
0x0b80…0ba0 2a 24 49 46 4f 52 53 4b 59 44 2a 29 0d 0d 28 2a 24 49 4e 45 58 54 52 45 43 2a 29 0d 0c 28 2a 24 ┆*$IFORSKYD*) (*$INEXTREC*) (*$┆
0x0ba0…0bc0 49 44 45 4c 45 54 45 2a 29 0c 0c 28 2a 24 49 49 4e 53 45 52 54 2a 29 0c 0b 28 2a 24 49 49 4f 50 ┆IDELETE*) (*$IINSERT*) (*$IIOP┆
0x0bc0…0be0 45 4e 2a 29 0b 0c 28 2a 24 49 49 43 4c 4f 53 45 2a 29 0c 0c 28 2a 24 49 50 55 54 47 45 54 2a 29 ┆EN*) (*$IICLOSE*) (*$IPUTGET*)┆
0x0be0…0c00 0c 07 28 2a 24 52 2b 2a 29 07 07 28 2a 24 4c 2b 2a 29 07 10 50 52 4f 43 45 44 55 52 45 20 45 52 ┆ (*$R+*) (*$L+*) PROCEDURE ER┆
0x0c00…0c20 52 4f 52 3b 10 05 42 45 47 49 4e 05 22 20 20 57 52 49 54 45 4c 4e 28 27 46 45 4a 4c 20 49 20 4b ┆ROR; BEGIN " WRITELN('FEJL I K┆
0x0c20…0c40 55 4e 44 45 52 45 47 20 27 2c 49 45 52 29 3b 22 14 20 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c 46 ┆UNDEREG ',IER);" ICLOSE(KZ.H,F┆
0x0c40…0c60 4b 55 4e 29 3b 14 15 20 20 49 43 4c 4f 53 45 28 50 5a 2e 48 2c 46 50 4f 53 54 29 3b 15 14 20 20 ┆KUN); ICLOSE(PZ.H,FPOST); ┆
0x0c60…0c80 49 43 4c 4f 53 45 28 52 5a 2e 48 2c 46 52 4f 52 29 3b 14 14 20 20 49 43 4c 4f 53 45 28 56 5a 2e ┆ICLOSE(RZ.H,FROR); ICLOSE(VZ.┆
0x0c80…0ca0 48 2c 46 56 41 52 29 3b 14 19 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 ┆H,FVAR); WRITELN('ICLOSE ',IE┆
0x0ca0…0cc0 52 29 3b 19 0c 20 20 49 3a 3d 49 20 44 49 56 20 30 0c 04 45 4e 44 3b 04 10 50 52 4f 43 45 44 55 ┆R); I:=I DIV 0 END; PROCEDU┆
0x0cc0…0ce0 52 45 20 4f 46 45 4a 4c 3b 10 05 42 45 47 49 4e 05 0f 20 20 47 4f 54 4f 58 59 28 31 2c 32 30 29 ┆RE OFEJL; BEGIN GOTOXY(1,20)┆
0x0ce0…0d00 3b 0f 43 20 20 57 52 49 54 45 4c 4e 28 27 52 45 47 49 53 54 45 52 46 45 4a 4c 20 27 2c 49 45 52 ┆; C WRITELN('REGISTERFEJL ',IER┆
0x0d00…0d20 2c 27 20 2e 20 53 49 54 55 41 54 49 4f 4e 45 4e 20 45 52 20 46 4f 52 53 5c 47 54 20 52 45 44 44 ┆,' . SITUATIONEN ER FORSØGT REDD┆
0x0d20…0d40 45 54 2e 27 29 3b 43 2e 20 20 57 52 49 54 45 4c 4e 28 27 54 41 53 54 20 30 2c 20 48 56 49 53 20 ┆ET.');C. WRITELN('TAST 0, HVIS ┆
0x0d40…0d60 44 45 52 20 53 4b 41 4c 20 46 4f 52 54 53 5b 54 54 45 53 27 29 3b 2e 37 20 20 52 45 50 45 41 54 ┆DER SKAL FORTSÆTTES');.7 REPEAT┆
0x0d60…0d80 20 47 4f 54 4f 58 59 28 34 30 2c 32 31 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 49 29 20 55 4e ┆ GOTOXY(40,21);READLN;READ(I) UN┆
0x0d80…0da0 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 37 15 20 20 49 46 20 49 3c 3e 30 20 54 48 45 4e 20 ┆TIL IORESULT=0;7 IF I<>0 THEN ┆
0x0da0…0dc0 45 52 52 4f 52 3b 15 0d 20 20 43 4c 45 41 52 53 43 52 45 45 4e 0d 04 45 4e 44 3b 04 05 42 45 47 ┆ERROR; CLEARSCREEN END; BEG┆
0x0dc0…0de0 49 4e 05 20 20 20 46 49 4c 4e 41 56 4e 32 3a 3d 27 50 4f 53 54 52 45 47 3a 50 32 3a 30 30 30 30 ┆IN FILNAVN2:='POSTREG:P2:0000┆
0x0de0…0e00 3a 49 27 3b 20 1a 20 20 52 45 57 52 49 54 45 28 46 50 4f 53 54 2c 46 49 4c 4e 41 56 4e 32 29 3b ┆:I'; REWRITE(FPOST,FILNAVN2);┆
0x0e00…0e20 1a 1a 20 20 49 4f 50 45 4e 28 50 5a 2e 48 2c 46 50 4f 53 54 2c 53 4b 52 49 56 29 3b 1a 17 20 20 ┆ IOPEN(PZ.H,FPOST,SKRIV); ┆
0x0e20…0e40 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 3b 17 1c 20 20 46 49 4c 4e 41 56 4e ┆IF IER<>0 THEN ERROR; FILNAVN┆
0x0e40…0e60 32 3a 3d 27 53 59 53 52 45 47 3a 50 32 3a 31 3a 49 27 3b 1c 19 20 20 52 45 53 45 54 28 53 59 53 ┆2:='SYSREG:P2:1:I'; RESET(SYS┆
0x0e60…0e80 46 49 4c 2c 46 49 4c 4e 41 56 4e 32 29 3b 19 11 20 20 53 45 45 4b 28 53 59 53 46 49 4c 2c 31 29 ┆FIL,FILNAVN2); SEEK(SYSFIL,1)┆
0x0e80…0ea0 3b 11 0e 20 20 47 45 54 28 53 59 53 46 49 4c 29 3b 0e 10 20 20 43 4c 4f 53 45 28 53 59 53 46 49 ┆; GET(SYSFIL); CLOSE(SYSFI┆
0x0ea0…0ec0 4c 29 3b 10 3f 20 20 52 3a 3d 33 36 35 2e 30 2a 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 31 ┆L); ? R:=365.0*SYSFIL^.HELTAL(1┆
0x0ec0…0ee0 29 2b 33 30 2e 30 2a 28 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 32 29 20 44 49 56 20 31 30 ┆)+30.0*(SYSFIL^.HELTAL(2) DIV 10┆
0x0ee0…0f00 30 29 20 2b 3f 26 20 20 20 20 20 28 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 32 29 20 4d 4f ┆0) +?& (SYSFIL^.HELTAL(2) MO┆
0x0f00…0f20 44 20 31 30 30 29 2d 39 30 2e 30 3b 26 26 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f ┆D 100)-90.0;&& FOR I:=1 TO 7 DO┆
0x0f20…0f40 20 50 50 4f 53 54 2e 48 45 4c 54 41 4c 28 49 29 3a 3d 30 3b 26 1e 20 20 4e 45 58 54 52 45 43 28 ┆ PPOST.HELTAL(I):=0;& NEXTREC(┆
0x0f40…0f60 50 5a 2e 48 2c 46 50 4f 53 54 2c 50 50 4f 53 54 2e 41 29 3b 1e 1f 20 20 49 46 20 49 45 52 3c 3e ┆PZ.H,FPOST,PPOST.A); IF IER<>┆
0x0f60…0f80 2d 31 20 54 48 45 4e 20 45 52 52 4f 52 3b 49 45 52 3a 3d 30 3b 1f 10 20 20 57 48 49 4c 45 20 49 ┆-1 THEN ERROR;IER:=0; WHILE I┆
0x0f80…0fa0 45 52 3d 30 20 44 4f 10 15 20 20 57 49 54 48 20 50 50 4f 53 54 20 20 20 20 20 20 20 44 4f 15 07 ┆ER=0 DO WITH PPOST DO ┆
0x0fa0…0fc0 20 20 42 45 47 49 4e 07 48 20 20 20 20 54 4f 54 41 4c 3a 3d 33 36 35 2e 30 2a 48 45 4c 54 41 4c ┆ BEGIN H TOTAL:=365.0*HELTAL┆
0x0fc0…0fe0 28 33 29 2b 33 30 2e 30 2a 28 48 45 4c 54 41 4c 28 34 29 20 44 49 56 20 31 30 30 29 2b 28 48 45 ┆(3)+30.0*(HELTAL(4) DIV 100)+(HE┆
0x0fe0…1000 4c 54 41 4c 28 34 29 20 4d 4f 44 20 31 30 30 29 3b 48 28 20 20 20 20 49 46 20 28 52 45 45 4c 28 ┆LTAL(4) MOD 100);H( IF (REEL(┆
0x1000…1020 32 29 3d 30 2e 30 29 20 41 4e 44 20 28 54 4f 54 41 4c 3c 3d 52 29 20 54 48 45 4e 28 09 20 20 20 ┆2)=0.0) AND (TOTAL<=R) THEN( ┆
0x1020…1040 20 42 45 47 49 4e 09 35 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 48 45 4c 54 41 ┆ BEGIN 5 WRITELN(LIST,HELTA┆
0x1040…1060 4c 28 31 29 2a 31 30 30 30 30 2e 30 2b 48 45 4c 54 41 4c 28 32 29 3a 31 30 3a 2d 32 2c 35 35 20 ┆L(1)*10000.0+HELTAL(2):10:-2,55 ┆
0x1060…1080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 45 4c 54 41 4c 28 33 29 2a 31 30 30 30 ┆ HELTAL(3)*1000┆
0x1080…10a0 30 2e 30 2b 48 45 4c 54 41 4c 28 34 29 3a 31 34 3a 2d 32 2c 35 36 20 20 20 20 20 20 20 20 20 20 ┆0.0+HELTAL(4):14:-2,56 ┆
0x10a0…10c0 20 20 20 20 20 20 20 20 20 48 45 4c 54 41 4c 28 36 29 2a 31 30 30 30 30 2e 30 2b 48 45 4c 54 41 ┆ HELTAL(6)*10000.0+HELTA┆
0x10c0…10e0 4c 28 37 29 3a 31 34 3a 2d 32 29 3b 36 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 50 5a 2e 48 2c ┆L(7):14:-2);6 DELETE(PZ.H,┆
0x10e0…1100 46 50 4f 53 54 2c 50 50 4f 53 54 2e 41 29 20 07 20 20 20 20 45 4e 44 07 08 20 20 20 20 45 4c 53 ┆FPOST,PPOST.A) END ELS┆
0x1100…1120 45 08 21 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 50 5a 2e 48 2c 46 50 4f 53 54 2c 50 50 4f 53 ┆E ! NEXTREC(PZ.H,FPOST,PPOS┆
0x1120…1140 54 2e 41 29 21 06 20 20 45 4e 44 3b 06 18 20 20 49 46 20 49 45 52 3c 3e 2d 32 20 54 48 45 4e 20 ┆T.A)! END; IF IER<>-2 THEN ┆
0x1140…1160 45 52 52 4f 52 3b 18 15 20 20 49 43 4c 4f 53 45 28 50 5a 2e 48 2c 46 50 4f 53 54 29 3b 15 0e 20 ┆ERROR; ICLOSE(PZ.H,FPOST); ┆
0x1160…1180 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 1d 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 ┆ CLEARSCREEN; WRITELN('ICLOSE┆
0x1180…11a0 20 27 2c 49 45 52 2c 49 3a 37 29 3b 1d 04 45 4e 44 2e 04 00 00 63 63 63 63 63 63 63 63 63 63 63 ┆ ',IER,I:7); END. ccccccccccc┆
0x11a0…11c0 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┆
[…0xf…]
0x13a0…13c0 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 ┆