|
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: 10176 (0x27c0)
Types: TextFile
Notes: Mikados_K
Names: »PROSPØRG.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »PROSPØRG.K«
PROGRAM PROSPØRG;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
VAR PARM:^PARMARRAY;
QUQ:^INTEGER;
FNAVN:STRING;
(*$P*)
PROCEDURE REGVEDL;
CONST MHISTOZ=647;
(*$IISFHEAD*)
HISTOZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MHISTOZ) OF INTEGER
END;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
HISTOPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
MATERIALER,
LØN,
MPLGFAKT,
SALGSPRIS,
AFVIGELSE,
ANTALBESTILT,
ANTALLEVERET :REAL;
PRODUKT1NR,
PRODUKT2NR,
DAT1,
DAT2,
ORDRENR :INTEGER
END;
SYSPOST=RECORD
MINUTFAKTOR:ARRAY (1..5) OF REAL;
DAT1,DAT2:INTEGER
END;
SYSFILE=FILE OF SYSPOST;
VAR SF:SYSFILE;
IER,I,J:INTEGER;
HIF:ISF;
HIZ:HISTOZONE;
HIPOST:HISTOPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IREADPROC*)
(*$ISÆTØG*)
(*$IFORSKYD*)
(*$IIOPEN*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$IDELETE*)
(*$L+*)
(*$P*)
PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(HIZ.H,HIF);
EXIT(REGVEDL)
END;
PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . 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(FIL);
CLEARSCREEN
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR CH:STRING(1);
R:REAL;
FUNCTION RUND(R:REAL):REAL;
VAR R1:REAL;
BEGIN
R1:=TRUNC(R/10000.0);
R1:=R1*10000.0;
RUND:=ROUND(R-R1)+R1
END;
PROCEDURE SKÆRM;
BEGIN
WRITELN(HIPOST.DAT1*10000.0+HIPOST.DAT2:6:-2,HIPOST.ORDRENR:7,
HIPOST.ANTALBESTILT:15:-2,HIPOST.MATERIALER:15:2,
HIPOST.MPLGFAKT:15:2,HIPOST.AFVIGELSE:15:2);
WRITELN(' ':14,HIPOST.ANTALLEVERET:15:-2,HIPOST.LØN:15:2,
HIPOST.SALGSPRIS:15:2)
END;
PROCEDURE SKÆRMH;
BEGIN
CLEARSCREEN;
WRITELN('P R O D U K T F O R E S P Ø R G S E L');
WRITELN('Produktnr: ',R:8:-2,' ':43,'Dato',SF^.DAT1*10000.0+SF^.DAT2:8:-2);
WRITELN('Dato Ordrenr Antal bestilt Materialer *faktor',
' Afvigelse');
WRITELN(' ':16,'Antal leveret',' ':12,'Løn Salgspris')
END;
PROCEDURE PRINT;
BEGIN
WRITELN(LIST,HIPOST.DAT1*10000.0+HIPOST.DAT2:6:-2,HIPOST.ORDRENR:7,
HIPOST.ANTALBESTILT:15:-2,HIPOST.MATERIALER:15:2,
HIPOST.MPLGFAKT:15:2,HIPOST.AFVIGELSE:15:2);
WRITELN(LIST,' ':14,HIPOST.ANTALLEVERET:15:-2,HIPOST.LØN:15:2,
HIPOST.SALGSPRIS:15:2);
WRITELN(LIST);
WRITELN(LIST)
END;
PROCEDURE PRINTH;
BEGIN
WRITELN(LIST);
WRITELN(LIST,'P R O D U K T F O R E S P Ø R G S E L');
WRITELN(LIST,'Produktnr: ',R:8:-2,' ':43,
'Dato',SF^.DAT1*10000.0+SF^.DAT2:8:-2);
WRITELN(LIST);
WRITELN(LIST,'Dato Ordrenr Antal bestilt Materialer *faktor',
' Afvigelse');
WRITELN(LIST,' ':16,'Antal leveret',' ':12,'Løn Salgspris');
WRITELN(LIST)
END;
(*$P*)
BEGIN
CLEARSCREEN;
REPEAT
REPEAT
GOTOXY(1,2);
WRITELN('Produktnummer');
GOTOXY(15,2);
READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=0.0) AND (R<=999999.0);
R:=RUND(R);
HIPOST.PRODUKT1NR:=TRUNC(R/10000.0);
HIPOST.PRODUKT2NR:=TRUNC(R-HIPOST.PRODUKT1NR*10000.0);
HIPOST.DAT1:=0;HIPOST.DAT2:=0;
REPEAT
GOTOXY(1,3);
CH:='S';
WRITELN('Skærm: S, Printer: P');
GOTOXY(22,3);EDIT(CH)
UNTIL (CH='S') OR (CH='P');
NEXTREC(HIZ.H,HIF,HIPOST.A);
IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9)
THEN ERROR(HIZ.H.FILENAME) ELSE IER:=0;
IF CH='S' THEN SKÆRMH ELSE PRINTH;
I:=0;
WHILE (IER=0) AND (HIPOST.PRODUKT1NR*10000.0+HIPOST.PRODUKT2NR=R) DO
BEGIN
I:=I+1;
IF CH='S' THEN SKÆRM ELSE PRINT;
NEXTREC(HIZ.H,HIF,HIPOST.A)
END;
IF (IER<>0) AND (IER<-2) AND (IER<>-9) THEN ERROR(HIZ.H.FILENAME)
ELSE IER:=0;
IF CH='P' THEN PAGE(LIST) ELSE BEGIN WRITELN('RETURN'); READLN END;
IF I>10 THEN
BEGIN
HIPOST.PRODUKT1NR:=TRUNC(R/10000.0);
HIPOST.PRODUKT2NR:=TRUNC(R-HIPOST.PRODUKT1NR*10000.0);
HIPOST.DAT1:=0;HIPOST.DAT2:=0;
NEXTREC(HIZ.H,HIF,HIPOST.A);
IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(HIZ.H.FILENAME) ELSE IER:=0;
WHILE (IER=0) AND (I>10) DO
BEGIN
DELETE(HIZ.H,HIF,HIPOST.A);
I:=I-1
END;
IF (IER<>0) THEN ERROR(HIZ.H.FILENAME)
END;
CLEARSCREEN;
CH:='J';
GOTOXY(1,1);
WRITELN('Flere produkter J/N');
GOTOXY(21,1);EDIT(CH)
UNTIL CH='N'
END;
(*$P*)
BEGIN
CLEARSCREEN;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SF,FNAVN);
SEEK(SF,1);
GET(SF);
HIZ.H.FILENAME:='HISTOREG';
FNAVN:='HISTOREG:P2:0000:I';
REWRITE(HIF,FNAVN);
IOPEN(HIZ.H,HIF,SKRIV);IF IER<>0 THEN OFEJL(HIZ.H.FILENAME);
MAINTAIN;
ICLOSE(HIZ.H,HIF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM PROSPØRG;«, l3=0x11}
0x0013…0019 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0019…0042 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0042…005b Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x005b…0071 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0071…0087 Line {l1=0x14, l2=» FNAVN:STRING;«, l3=0x14}
0x0087…008f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008f…00a3 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x00a3…00b7 Line {l1=0x12, l2=»CONST MHISTOZ=647;«, l3=0x12}
0x00b7…00c6 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x00c6…00d8 Line {l1=0x10, l2=»HISTOZONE=RECORD«, l3=0x10}
0x00d8…00ec Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x00ec…0114 Line {l1=0x26, l2=» T:ARRAY(1..MHISTOZ) OF INTEGER«, l3=0x26}
0x0114…011a Line {l1=0x04, l2=»END;«, l3=0x04}
0x011a…0141 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0141…015c Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x015c…016e Line {l1=0x10, l2=»HISTOPOST=RECORD«, l3=0x10}
0x016e…017e Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x017e…018b Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x018b…019b Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x019b…01ae Line {l1=0x11, l2=» MATERIALER,«, l3=0x11}
0x01ae…01ba Line {l1=0x0a, l2=» LØN,«, l3=0x0a}
0x01ba…01cb Line {l1=0x0f, l2=» MPLGFAKT,«, l3=0x0f}
0x01cb…01dd Line {l1=0x10, l2=» SALGSPRIS,«, l3=0x10}
0x01dd…01ef Line {l1=0x10, l2=» AFVIGELSE,«, l3=0x10}
0x01ef…0204 Line {l1=0x13, l2=» ANTALBESTILT,«, l3=0x13}
0x0204…0220 Line {l1=0x1a, l2=» ANTALLEVERET :REAL;«, l3=0x1a}
0x0220…0233 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x0233…0246 Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x0246…0253 Line {l1=0x0b, l2=» DAT1,«, l3=0x0b}
0x0253…0260 Line {l1=0x0b, l2=» DAT2,«, l3=0x0b}
0x0260…027e Line {l1=0x1c, l2=» ORDRENR :INTEGER«, l3=0x1c}
0x027e…0284 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0284…0294 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0294…02bd Line {l1=0x27, l2=» MINUTFAKTOR:ARRAY (1..5) OF REAL;«, l3=0x27}
0x02bd…02d6 Line {l1=0x17, l2=» DAT1,DAT2:INTEGER«, l3=0x17}
0x02d6…02dc Line {l1=0x04, l2=»END;«, l3=0x04}
0x02dc…02f6 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x02f6…0307 Line {l1=0x0f, l2=»VAR SF:SYSFILE;«, l3=0x0f}
0x0307…031d Line {l1=0x14, l2=» IER,I,J:INTEGER;«, l3=0x14}
0x031d…032b Line {l1=0x0c, l2=» HIF:ISF;«, l3=0x0c}
0x032b…033f Line {l1=0x12, l2=» HIZ:HISTOZONE;«, l3=0x12}
0x033f…0356 Line {l1=0x15, l2=» HIPOST:HISTOPOST;«, l3=0x15}
0x0356…035f Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x035f…0372 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0372…0382 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0382…038f Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x038f…039e Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x039e…03ab Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x03ab…03bb Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x03bb…03c9 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x03c9…03d8 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x03d8…03e6 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x03e6…03ef Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x03ef…03f7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x03f7…041a Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x041a…0421 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0421…0456 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0456…046c Line {l1=0x14, l2=» ICLOSE(HIZ.H,HIF);«, l3=0x14}
0x046c…047d Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x047d…0483 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0483…04a6 Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x04a6…04b6 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x04b6…04bd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04bd…04ce Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x04ce…051d Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x051d…054d Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x054d…0586 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0586…05a2 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x05a2…05b1 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x05b1…05b7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05b7…05bf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05bf…05d4 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x05d4…05e7 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x05e7…05f4 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x05f4…0611 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x0611…061f Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x061f…0626 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0626…063f Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x063f…0652 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x0652…066a Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x066a…0670 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0670…0682 Line {l1=0x10, l2=»PROCEDURE SKÆRM;«, l3=0x10}
0x0682…0689 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0689…06cb Line {l1=0x40, l2=» WRITELN(HIPOST.DAT1*10000.0+HIPOST.DAT2:6:-2,HIPOST.ORDRENR:7,«, l3=0x40}
0x06cb…0708 Line {l1=0x3b, l2=» HIPOST.ANTALBESTILT:15:-2,HIPOST.MATERIALER:15:2,«, l3=0x3b}
0x0708…0740 Line {l1=0x36, l2=» HIPOST.MPLGFAKT:15:2,HIPOST.AFVIGELSE:15:2);«, l3=0x36}
0x0740…077d Line {l1=0x3b, l2=» WRITELN(' ':14,HIPOST.ANTALLEVERET:15:-2,HIPOST.LØN:15:2,«, l3=0x3b}
0x077d…079f Line {l1=0x20, l2=» HIPOST.SALGSPRIS:15:2)«, l3=0x20}
0x079f…07a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07a5…07b8 Line {l1=0x11, l2=»PROCEDURE SKÆRMH;«, l3=0x11}
0x07b8…07bf Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07bf…07cf Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x07cf…0804 Line {l1=0x33, l2=» WRITELN('P R O D U K T F O R E S P Ø R G S E L');«, l3=0x33}
0x0804…0853 Line {l1=0x4d, l2=» WRITELN('Produktnr: ',R:8:-2,' ':43,'Dato',SF^.DAT1*10000.0+SF^.DAT2:8:-2);«, l3=0x4d}
0x0853…089d Line {l1=0x48, l2=» WRITELN('Dato Ordrenr Antal bestilt Materialer *faktor',«, l3=0x48}
0x089d…08bc Line {l1=0x1d, l2=» ' Afvigelse');«, l3=0x1d}
0x08bc…08fb Line {l1=0x3d, l2=» WRITELN(' ':16,'Antal leveret',' ':12,'Løn Salgspris')«, l3=0x3d}
0x08fb…0901 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0901…0913 Line {l1=0x10, l2=»PROCEDURE PRINT;«, l3=0x10}
0x0913…091a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x091a…0961 Line {l1=0x45, l2=» WRITELN(LIST,HIPOST.DAT1*10000.0+HIPOST.DAT2:6:-2,HIPOST.ORDRENR:7,«, l3=0x45}
0x0961…099e Line {l1=0x3b, l2=» HIPOST.ANTALBESTILT:15:-2,HIPOST.MATERIALER:15:2,«, l3=0x3b}
0x099e…09d6 Line {l1=0x36, l2=» HIPOST.MPLGFAKT:15:2,HIPOST.AFVIGELSE:15:2);«, l3=0x36}
0x09d6…0a18 Line {l1=0x40, l2=» WRITELN(LIST,' ':14,HIPOST.ANTALLEVERET:15:-2,HIPOST.LØN:15:2,«, l3=0x40}
0x0a18…0a3b Line {l1=0x21, l2=» HIPOST.SALGSPRIS:15:2);«, l3=0x21}
0x0a3b…0a4d Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x0a4d…0a5e Line {l1=0x0f, l2=» WRITELN(LIST)«, l3=0x0f}
0x0a5e…0a64 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a64…0a77 Line {l1=0x11, l2=»PROCEDURE PRINTH;«, l3=0x11}
0x0a77…0a7e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a7e…0a90 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x0a90…0aca Line {l1=0x38, l2=» WRITELN(LIST,'P R O D U K T F O R E S P Ø R G S E L');«, l3=0x38}
0x0aca…0af7 Line {l1=0x2b, l2=» WRITELN(LIST,'Produktnr: ',R:8:-2,' ':43,«, l3=0x2b}
0x0af7…0b2f Line {l1=0x36, l2=» 'Dato',SF^.DAT1*10000.0+SF^.DAT2:8:-2);«, l3=0x36}
0x0b2f…0b41 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x0b41…0b90 Line {l1=0x4d, l2=» WRITELN(LIST,'Dato Ordrenr Antal bestilt Materialer *faktor',«, l3=0x4d}
0x0b90…0baf Line {l1=0x1d, l2=» ' Afvigelse');«, l3=0x1d}
0x0baf…0bf4 Line {l1=0x43, l2=» WRITELN(LIST,' ':16,'Antal leveret',' ':12,'Løn Salgspris');«, l3=0x43}
0x0bf4…0c05 Line {l1=0x0f, l2=» WRITELN(LIST)«, l3=0x0f}
0x0c05…0c0b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c0b…0c13 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0c13…0c1a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c1a…0c2a Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0c2a…0c34 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0c34…0c40 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0c40…0c54 Line {l1=0x12, l2=» GOTOXY(1,2);«, l3=0x12}
0x0c54…0c75 Line {l1=0x1f, l2=» WRITELN('Produktnummer');«, l3=0x1f}
0x0c75…0c8a Line {l1=0x13, l2=» GOTOXY(15,2);«, l3=0x13}
0x0c8a…0ca0 Line {l1=0x14, l2=» READLN;READ(R)«, l3=0x14}
0x0ca0…0cd8 Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<=999999.0);«, l3=0x36}
0x0cd8…0ce9 Line {l1=0x0f, l2=» R:=RUND(R);«, l3=0x0f}
0x0ce9…0d13 Line {l1=0x28, l2=» HIPOST.PRODUKT1NR:=TRUNC(R/10000.0);«, l3=0x28}
0x0d13…0d4f Line {l1=0x3a, l2=» HIPOST.PRODUKT2NR:=TRUNC(R-HIPOST.PRODUKT1NR*10000.0);«, l3=0x3a}
0x0d4f…0d73 Line {l1=0x22, l2=» HIPOST.DAT1:=0;HIPOST.DAT2:=0;«, l3=0x22}
0x0d73…0d7f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0d7f…0d93 Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x0d93…0da3 Line {l1=0x0e, l2=» CH:='S';«, l3=0x0e}
0x0da3…0dcb Line {l1=0x26, l2=» WRITELN('Skærm: S, Printer: P');«, l3=0x26}
0x0dcb…0de8 Line {l1=0x1b, l2=» GOTOXY(22,3);EDIT(CH)«, l3=0x1b}
0x0de8…0e09 Line {l1=0x1f, l2=» UNTIL (CH='S') OR (CH='P');«, l3=0x1f}
0x0e09…0e2b Line {l1=0x20, l2=» NEXTREC(HIZ.H,HIF,HIPOST.A);«, l3=0x20}
0x0e2b…0e66 Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9)«, l3=0x39}
0x0e66…0e95 Line {l1=0x2d, l2=» THEN ERROR(HIZ.H.FILENAME) ELSE IER:=0;«, l3=0x2d}
0x0e95…0ebd Line {l1=0x26, l2=» IF CH='S' THEN SKÆRMH ELSE PRINTH;«, l3=0x26}
0x0ebd…0ec8 Line {l1=0x09, l2=» I:=0;«, l3=0x09}
0x0ec8…0f12 Line {l1=0x48, l2=» WHILE (IER=0) AND (HIPOST.PRODUKT1NR*10000.0+HIPOST.PRODUKT2NR=R) DO«, l3=0x48}
0x0f12…0f1d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0f1d…0f2c Line {l1=0x0d, l2=» I:=I+1;«, l3=0x0d}
0x0f2c…0f54 Line {l1=0x26, l2=» IF CH='S' THEN SKÆRM ELSE PRINT;«, l3=0x26}
0x0f54…0f77 Line {l1=0x21, l2=» NEXTREC(HIZ.H,HIF,HIPOST.A)«, l3=0x21}
0x0f77…0f81 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0f81…0fc8 Line {l1=0x45, l2=» IF (IER<>0) AND (IER<-2) AND (IER<>-9) THEN ERROR(HIZ.H.FILENAME)«, l3=0x45}
0x0fc8…0fda Line {l1=0x10, l2=» ELSE IER:=0;«, l3=0x10}
0x0fda…1023 Line {l1=0x47, l2=» IF CH='P' THEN PAGE(LIST) ELSE BEGIN WRITELN('RETURN'); READLN END;«, l3=0x47}
0x1023…1035 Line {l1=0x10, l2=» IF I>10 THEN«, l3=0x10}
0x1035…1040 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1040…106c Line {l1=0x2a, l2=» HIPOST.PRODUKT1NR:=TRUNC(R/10000.0);«, l3=0x2a}
0x106c…10aa Line {l1=0x3c, l2=» HIPOST.PRODUKT2NR:=TRUNC(R-HIPOST.PRODUKT1NR*10000.0);«, l3=0x3c}
0x10aa…10d0 Line {l1=0x24, l2=» HIPOST.DAT1:=0;HIPOST.DAT2:=0;«, l3=0x24}
0x10d0…10f4 Line {l1=0x22, l2=» NEXTREC(HIZ.H,HIF,HIPOST.A);«, l3=0x22}
0x10f4…1136 Line {l1=0x40, l2=» IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x40}
0x1136…1160 Line {l1=0x28, l2=» ERROR(HIZ.H.FILENAME) ELSE IER:=0;«, l3=0x28}
0x1160…1183 Line {l1=0x21, l2=» WHILE (IER=0) AND (I>10) DO«, l3=0x21}
0x1183…1190 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1190…11b5 Line {l1=0x23, l2=» DELETE(HIZ.H,HIF,HIPOST.A);«, l3=0x23}
0x11b5…11c5 Line {l1=0x0e, l2=» I:=I-1«, l3=0x0e}
0x11c5…11d1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x11d1…11ff Line {l1=0x2c, l2=» IF (IER<>0) THEN ERROR(HIZ.H.FILENAME)«, l3=0x2c}
0x11ff…1209 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1209…121b Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x121b…1229 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x1229…123b Line {l1=0x10, l2=» GOTOXY(1,1);«, l3=0x10}
0x123b…1260 Line {l1=0x23, l2=» WRITELN('Flere produkter J/N');«, l3=0x23}
0x1260…127b Line {l1=0x19, l2=» GOTOXY(21,1);EDIT(CH)«, l3=0x19}
0x127b…128b Line {l1=0x0e, l2=» UNTIL CH='N'«, l3=0x0e}
0x128b…1291 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1291…1299 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1299…12a0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x12a0…12b0 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x12b0…12b3 Line {l1=0x01, l2=» «, l3=0x01}
0x12b3…12ce Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x12ce…12e4 Line {l1=0x14, l2=» REWRITE(SF,FNAVN);«, l3=0x14}
0x12e4…12f3 Line {l1=0x0d, l2=» SEEK(SF,1);«, l3=0x0d}
0x12f3…12ff Line {l1=0x0a, l2=» GET(SF);«, l3=0x0a}
0x12ff…131e Line {l1=0x1d, l2=» HIZ.H.FILENAME:='HISTOREG';«, l3=0x1d}
0x131e…133e Line {l1=0x1e, l2=» FNAVN:='HISTOREG:P2:0000:I';«, l3=0x1e}
0x133e…1355 Line {l1=0x15, l2=» REWRITE(HIF,FNAVN);«, l3=0x15}
0x1355…1395 Line {l1=0x3e, l2=» IOPEN(HIZ.H,HIF,SKRIV);IF IER<>0 THEN OFEJL(HIZ.H.FILENAME);«, l3=0x3e}
0x1395…13a2 Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x13a2…13b8 Line {l1=0x14, l2=» ICLOSE(HIZ.H,HIF);«, l3=0x14}
0x13b8…13d2 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x13d2…13d8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x13d8…13e0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x13e0…13e7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x13e7…13f3 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x13f3…1402 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x1402…1419 Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x1419…144f Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x144f…1484 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x1484…148a Line {l1=0x04, l2=»END.«, l3=0x04}
0x148a…14a0 00 00 49 53 54 4f 5a 3d 36 34 37 3b 12 0d 28 2a 24 49 49 53 46 48 ┆ ISTOZ=647; (*$IISFH┆
0x14a0…14c0 45 41 44 2a 29 0d 10 48 49 53 54 4f 5a 4f 4e 45 3d 52 45 43 4f 52 44 10 12 20 20 20 20 20 20 20 ┆EAD*) HISTOZONE=RECORD ┆
0x14c0…14e0 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┆
[…0x96…]
0x27a0…27c0 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 ┆