|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »RESTOVER.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »RESTOVER.K«
PROGRAM RESTORDREOVERSIGT;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
END;
OLINE = RECORD
VNR :ARRAY (1..2) OF INTEGER;
(*VNR,BESTILT*)
PRIS: REAL
END;
ORDREPOST = RECORD
A:AR;
(*
KNR1,KNR2,
NR1,NR2,
SIDE,
LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)
HEAD :ARRAY(1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
ORDRELIN : ARRAY (1..15) OF OLINE
END;
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;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
ORDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..930) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
RORPOST=RECORD
A:AR;
(* KNR1,KNR2,
VNR,
DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;
ANTAL:REAL
END;
RORZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..327) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR FVAR,FORD,FKUN,FROR:ISF;
VZ:VZONE;
KZ:KZONE;
OZ:ORDZONE;
RZ:RORZONE;
ORDRE:ORDREPOST;
KUNDE:KPOST;
VARE:VPOST;
RESTORD:RORPOST;
FNAVN:STRING(20);
NRPF,CF:NPFILE;
QUQ:^INTEGER;
IER,RIER,O1,O2,I:INTEGER;
NRS:ARRAY (1..10) OF INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
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 FOUND:BOOLEAN;
BEGIN
I:=1;
FOUND:=FALSE;
REPEAT
IF NRS(I)=RESTORD.HEAD(3) THEN
BEGIN
FOUND:=TRUE;
I:=11
END
ELSE
BEGIN
I:=I+1;
IF I<11 THEN IF NRS(I)=0 THEN I:=11
END
UNTIL I=11
END;
PROCEDURE DOIT;
BEGIN
WRITELN(LIST);
WRITELN(LIST,'ORDRER');
ORDRE.HEAD(1):=KUNDE.NR(1);
ORDRE.HEAD(2):=KUNDE.NR(2);
ORDRE.HEAD(3):=0;
ORDRE.HEAD(4):=0;
ORDRE.HEAD(5):=0;
NEXTREC(OZ.H,FORD,ORDRE.A);
IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN ERROR;
IER:=0;
WHILE (IER=0) AND (ORDRE.HEAD(1)=KUNDE.NR(1)) AND
(ORDRE.HEAD(2)=KUNDE.NR(2)) DO
BEGIN
WRITELN(LIST,ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2);
O1:=ORDRE.HEAD(3);O2:=ORDRE.HEAD(4);
WHILE (IER=0) AND (O1=ORDRE.HEAD(3)) AND (O2=ORDRE.HEAD(4)) DO
NEXTREC(OZ.H,FORD,ORDRE.A)
END;
IF (IER<>0) AND (IER<>-9) AND (IER<>-2) THEN ERROR;
IER:=0
END;
BEGIN
FNAVN:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FNAVN);
SEEK(NRPF,1)
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
NRPF^.NP:=1;
SEEK(NRPF,1);
PUT(NRPF);
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
READLN;
(*$C-*)
REWRITE(CF,'C1:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF);
CLOSE(NRPF);
CLEARSCREEN;
FNAVN:='REGVARE:P1:0000:I';
RESET(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='ORDRERG:P2:0000:I';
RESET(FORD,FNAVN);
IOPEN(OZ.H,FORD,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='RESTREG:P2:0000:I';
RESET(FROR,FNAVN);
IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN OFEJL;
CLEARSCREEN;
WRITELN('RESTORDREOVERSIGT, VARENR 0 FOR STOP');
I:=1;
REPEAT
REPEAT
GOTOXY(40,1);READLN;READ(NRS(I))
UNTIL (IORESULT=0) AND ((NRS(I)=0) OR ((NRS(I)<10000) AND (NRS(I)>999)));
IF NRS(I)=0 THEN I:=11 ELSE I:=I+1
UNTIL I=11;
IF NRS(1)>0 THEN
BEGIN
WRITELN(LIST,'RESTORDREOVERSIGT');
I:=1;
REPEAT
VARE.HELTAL(1):=NRS(I);
GETREC(VZ.H,FVAR,VARE.A);
WRITE(LIST,'VARE',NRS(I):6,' ':4);
IF IER=-6 THEN WRITELN(LIST,'FINDES IKKE')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
WRITELN(LIST,VARE.NAVN(1))
END;
I:=I+1;
IF I<11 THEN IF NRS(I)=0 THEN I:=11
UNTIL I=11;
RESTORD.HEAD(1):=0;
RESTORD.HEAD(2):=0;
RESTORD.HEAD(3):=0;
NEXTREC(RZ.H,FROR,RESTORD.A);
IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;
WRITELN(LIST);
REPEAT
WHILE (IER=0) AND (NOT FOUND) DO
NEXTREC(RZ.H,FROR,RESTORD.A);
RIER:=IER;
IF (IER=0) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;
IF FOUND AND (RIER<>-2) THEN
BEGIN
RESTORD.HEAD(3):=0;
NEXTREC(RZ.H,FROR,RESTORD.A);
IF (IER<>0) AND (IER<>-1) THEN ERROR;
KUNDE.NR(1):=RESTORD.HEAD(1);
KUNDE.NR(2):=RESTORD.HEAD(2);
GETREC(KZ.H,FKUN,KUNDE.A);
WRITE(LIST,'KUNDE',KUNDE.NR(1)*10000.0+KUNDE.NR(2):10:-2,' ':4);
IF IER=-6 THEN WRITELN(LIST,'FINDES IKKE')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
WRITELN(LIST,KUNDE.NAVN(1));
WRITELN(LIST);
WRITELN(LIST,'RESTORDRER');
REPEAT
WRITELN(LIST,RESTORD.HEAD(3):6,' ':10,RESTORD.ANTAL:12:-2);
NEXTREC(RZ.H,FROR,RESTORD.A)
UNTIL (IER<>0) OR (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR
(RESTORD.HEAD(2)<>KUNDE.NR(2));
RIER:=IER;
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;
DOIT
END
END;
WRITELN(LIST)
UNTIL RIER<>0;
IF RIER<>-2 THEN ERROR
END;
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…001c Line {l1=0x1a, l2=»PROGRAM RESTORDREOVERSIGT;«, l3=0x1a}
0x001c…002c Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x002c…003b Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x003b…0051 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x0051…007b Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x007b…00c4 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00c4…00e5 Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00e5…0120 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0120…0141 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x0141…0169 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0169…01af Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01af…01f3 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x01f3…01fb Line {l1=0x06, l2=» END;«, l3=0x06}
0x01fb…020c Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x020c…0233 Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x0233…024c Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x024c…0260 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0260…0268 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0268…027d Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x027d…028c Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x028c…0291 Line {l1=0x03, l2=» (*«, l3=0x03}
0x0291…02a5 Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x02a5…02b7 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x02b7…02c6 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x02c6…030a Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x030a…0332 Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x0332…036e Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x036e…0399 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x0399…03a1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03a1…03af Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x03af…03bd Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03bd…03e2 Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x03e2…041e Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x041e…044c Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x044c…0479 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0479…04a3 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x04a3…04c9 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x04c9…04cf Line {l1=0x04, l2=»END;«, l3=0x04}
0x04cf…04df Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x04df…04f3 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x04f3…0517 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0517…051f Line {l1=0x06, l2=» END;«, l3=0x06}
0x051f…0530 Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x0530…0544 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0544…0568 Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x0568…0570 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0570…057e Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x057e…0591 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0591…05b4 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x05b4…05ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x05ba…05cb Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x05cb…05da Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x05da…05ee Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x05ee…05fc Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x05fc…0637 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x0637…064b Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x064b…0653 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0653…0664 Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0664…0678 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0678…069c Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x069c…06a4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x06a4…06b5 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x06b5…06d1 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x06d1…06d7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06d7…06f1 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x06f1…06f5 Line {l1=0x02, l2=» «, l3=0x02}
0x06f5…0713 Line {l1=0x1c, l2=»VAR FVAR,FORD,FKUN,FROR:ISF;«, l3=0x1c}
0x0713…0722 Line {l1=0x0d, l2=» VZ:VZONE;«, l3=0x0d}
0x0722…0731 Line {l1=0x0d, l2=» KZ:KZONE;«, l3=0x0d}
0x0731…0742 Line {l1=0x0f, l2=» OZ:ORDZONE;«, l3=0x0f}
0x0742…0753 Line {l1=0x0f, l2=» RZ:RORZONE;«, l3=0x0f}
0x0753…0769 Line {l1=0x14, l2=» ORDRE:ORDREPOST;«, l3=0x14}
0x0769…077b Line {l1=0x10, l2=» KUNDE:KPOST;«, l3=0x10}
0x077b…078c Line {l1=0x0f, l2=» VARE:VPOST;«, l3=0x0f}
0x078c…07a2 Line {l1=0x14, l2=» RESTORD:RORPOST;«, l3=0x14}
0x07a2…07b9 Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x07b9…07d1 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x07d1…07e7 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x07e7…0806 Line {l1=0x1d, l2=» IER,RIER,O1,O2,I:INTEGER;«, l3=0x1d}
0x0806…0829 Line {l1=0x21, l2=» NRS:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x0829…0832 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0832…0846 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0846…0854 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0854…0865 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0865…0876 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0876…0885 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0885…0894 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0894…08a4 Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x08a4…08ae Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x08ae…08b7 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x08b7…08ca Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x08ca…08d2 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x08d2…08f7 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x08f7…090e Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x090e…0925 Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0925…093c Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x093c…0953 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0953…096f Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x096f…097e Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x097e…0985 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0985…0997 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0997…099e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x099e…09af Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x09af…09f4 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x09f4…0a24 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0a24…0a5d Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0a5d…0a74 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0a74…0a83 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0a83…0a89 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a89…0aa2 Line {l1=0x17, l2=»FUNCTION FOUND:BOOLEAN;«, l3=0x17}
0x0aa2…0aa9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0aa9…0ab2 Line {l1=0x07, l2=» I:=1;«, l3=0x07}
0x0ab2…0ac3 Line {l1=0x0f, l2=» FOUND:=FALSE;«, l3=0x0f}
0x0ac3…0acd Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0acd…0af1 Line {l1=0x22, l2=» IF NRS(I)=RESTORD.HEAD(3) THEN«, l3=0x22}
0x0af1…0afc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0afc…0b10 Line {l1=0x12, l2=» FOUND:=TRUE;«, l3=0x12}
0x0b10…0b1d Line {l1=0x0b, l2=» I:=11«, l3=0x0b}
0x0b1d…0b26 Line {l1=0x07, l2=» END«, l3=0x07}
0x0b26…0b30 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0b30…0b3b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b3b…0b4a Line {l1=0x0d, l2=» I:=I+1;«, l3=0x0d}
0x0b4a…0b75 Line {l1=0x29, l2=» IF I<11 THEN IF NRS(I)=0 THEN I:=11«, l3=0x29}
0x0b75…0b7e Line {l1=0x07, l2=» END«, l3=0x07}
0x0b7e…0b8c Line {l1=0x0c, l2=» UNTIL I=11«, l3=0x0c}
0x0b8c…0b92 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b92…0ba3 Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x0ba3…0baa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0baa…0bc4 Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x0bc4…0be7 Line {l1=0x21, l2=» WRITELN(LIST,'ORDRER');«, l3=0x21}
0x0be7…0c0e Line {l1=0x25, l2=» ORDRE.HEAD(1):=KUNDE.NR(1);«, l3=0x25}
0x0c0e…0c35 Line {l1=0x25, l2=» ORDRE.HEAD(2):=KUNDE.NR(2);«, l3=0x25}
0x0c35…0c52 Line {l1=0x1b, l2=» ORDRE.HEAD(3):=0;«, l3=0x1b}
0x0c52…0c6f Line {l1=0x1b, l2=» ORDRE.HEAD(4):=0;«, l3=0x1b}
0x0c6f…0c8c Line {l1=0x1b, l2=» ORDRE.HEAD(5):=0;«, l3=0x1b}
0x0c8c…0cb3 Line {l1=0x25, l2=» NEXTREC(OZ.H,FORD,ORDRE.A);«, l3=0x25}
0x0cb3…0d00 Line {l1=0x4b, l2=» IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN ERROR;«, l3=0x4b}
0x0d00…0d13 Line {l1=0x11, l2=» IER:=0;«, l3=0x11}
0x0d13…0d50 Line {l1=0x3b, l2=» WHILE (IER=0) AND (ORDRE.HEAD(1)=KUNDE.NR(1)) AND«, l3=0x3b}
0x0d50…0d8c Line {l1=0x3a, l2=» (ORDRE.HEAD(2)=KUNDE.NR(2)) DO«, l3=0x3a}
0x0d8c…0d9d Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0d9d…0de3 Line {l1=0x44, l2=» WRITELN(LIST,ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2);«, l3=0x44}
0x0de3…0e15 Line {l1=0x30, l2=» O1:=ORDRE.HEAD(3);O2:=ORDRE.HEAD(4);«, l3=0x30}
0x0e15…0e61 Line {l1=0x4a, l2=» WHILE (IER=0) AND (O1=ORDRE.HEAD(3)) AND (O2=ORDRE.HEAD(4)) DO«, l3=0x4a}
0x0e61…0e8f Line {l1=0x2c, l2=» NEXTREC(OZ.H,FORD,ORDRE.A)«, l3=0x2c}
0x0e8f…0e9f Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0e9f…0ede Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-9) AND (IER<>-2) THEN ERROR;«, l3=0x3d}
0x0ede…0ef0 Line {l1=0x10, l2=» IER:=0«, l3=0x10}
0x0ef0…0ef6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ef6…0efd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0efd…0f1a Line {l1=0x1b, l2=» FNAVN:='PROCSTAT:P2:0:I';«, l3=0x1b}
0x0f1a…0f23 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x0f23…0f2d Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0f2d…0f47 Line {l1=0x18, l2=» REWRITE(NRPF,FNAVN);«, l3=0x18}
0x0f47…0f59 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x0f59…0f6e Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x0f6e…0f77 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x0f77…0f85 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x0f85…0f95 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x0f95…0fa6 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x0fa6…0fb4 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x0fb4…0fbe Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0fbe…0fd1 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x0fd1…1006 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x1006…1013 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x1013…101c Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x101c…103a Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x103a…104a Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x104a…1053 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x1053…1068 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x1068…1076 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x1076…1086 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x1086…1096 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1096…10b5 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x10b5…10cb Line {l1=0x14, l2=» RESET(FVAR,FNAVN);«, l3=0x14}
0x10cb…10f9 Line {l1=0x2c, l2=» IOPEN(VZ.H,FVAR,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x10f9…10fc Line {l1=0x01, l2=» «, l3=0x01}
0x10fc…111b Line {l1=0x1d, l2=» FNAVN:='ORDRERG:P2:0000:I';«, l3=0x1d}
0x111b…1131 Line {l1=0x14, l2=» RESET(FORD,FNAVN);«, l3=0x14}
0x1131…115f Line {l1=0x2c, l2=» IOPEN(OZ.H,FORD,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x115f…1162 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x1165…1184 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x1184…119a Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x119a…11c8 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x11c8…11cb Line {l1=0x01, l2=» «, l3=0x01}
0x11cb…11ea Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x11ea…1200 Line {l1=0x14, l2=» RESET(FROR,FNAVN);«, l3=0x14}
0x1200…122e Line {l1=0x2c, l2=» IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x122e…1240 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1240…1276 Line {l1=0x34, l2=» WRITELN('RESTORDREOVERSIGT, VARENR 0 FOR STOP');«, l3=0x34}
0x1276…1281 Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x1281…128d Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
[…0x1…]
0x1299…12c1 Line {l1=0x26, l2=» GOTOXY(40,1);READLN;READ(NRS(I))«, l3=0x26}
0x12c1…1310 Line {l1=0x4d, l2=» UNTIL (IORESULT=0) AND ((NRS(I)=0) OR ((NRS(I)<10000) AND (NRS(I)>999)));«, l3=0x4d}
0x1310…1338 Line {l1=0x26, l2=» IF NRS(I)=0 THEN I:=11 ELSE I:=I+1«, l3=0x26}
0x1338…1349 Line {l1=0x0f, l2=» UNTIL I=11;«, l3=0x0f}
0x1349…135f Line {l1=0x14, l2=» IF NRS(1)>0 THEN«, l3=0x14}
0x135f…136a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x136a…1394 Line {l1=0x28, l2=» WRITELN(LIST,'RESTORDREOVERSIGT');«, l3=0x28}
0x1394…13a1 Line {l1=0x0b, l2=» I:=1;«, l3=0x0b}
0x13a1…13af Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x13af…13d0 Line {l1=0x1f, l2=» VARE.HELTAL(1):=NRS(I);«, l3=0x1f}
0x13d0…13f3 Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x13f3…141f Line {l1=0x2a, l2=» WRITE(LIST,'VARE',NRS(I):6,' ':4);«, l3=0x2a}
0x141f…1453 Line {l1=0x32, l2=» IF IER=-6 THEN WRITELN(LIST,'FINDES IKKE')«, l3=0x32}
0x1453…1461 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1461…1470 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1470…1491 Line {l1=0x1f, l2=» IF IER<>0 THEN ERROR;«, l3=0x1f}
0x1491…14b7 Line {l1=0x24, l2=» WRITELN(LIST,VARE.NAVN(1))«, l3=0x24}
0x14b7…14c5 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x14c5…14d6 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x14d6…1503 Line {l1=0x2b, l2=» IF I<11 THEN IF NRS(I)=0 THEN I:=11«, l3=0x2b}
0x1503…1516 Line {l1=0x11, l2=» UNTIL I=11;«, l3=0x11}
0x1516…1531 Line {l1=0x19, l2=» RESTORD.HEAD(1):=0;«, l3=0x19}
0x1531…154c Line {l1=0x19, l2=» RESTORD.HEAD(2):=0;«, l3=0x19}
0x154c…1567 Line {l1=0x19, l2=» RESTORD.HEAD(3):=0;«, l3=0x19}
0x1567…158c Line {l1=0x23, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x23}
0x158c…15cf Line {l1=0x41, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;«, l3=0x41}
0x15cf…15e5 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x15e5…15f3 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x15f3…161d Line {l1=0x28, l2=» WHILE (IER=0) AND (NOT FOUND) DO«, l3=0x28}
0x161d…164a Line {l1=0x2b, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x2b}
0x164a…165e Line {l1=0x12, l2=» RIER:=IER;«, l3=0x12}
0x165e…16a2 Line {l1=0x42, l2=» IF (IER=0) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;«, l3=0x42}
0x16a2…16c8 Line {l1=0x24, l2=» IF FOUND AND (RIER<>-2) THEN«, l3=0x24}
0x16c8…16d7 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x16d7…16f4 Line {l1=0x1b, l2=» RESTORD.HEAD(3):=0;«, l3=0x1b}
0x16f4…171b Line {l1=0x25, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x25}
0x171b…174a Line {l1=0x2d, l2=» IF (IER<>0) AND (IER<>-1) THEN ERROR;«, l3=0x2d}
0x174a…1771 Line {l1=0x25, l2=» KUNDE.NR(1):=RESTORD.HEAD(1);«, l3=0x25}
0x1771…1798 Line {l1=0x25, l2=» KUNDE.NR(2):=RESTORD.HEAD(2);«, l3=0x25}
0x1798…17bc Line {l1=0x22, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x22}
0x17bc…1806 Line {l1=0x48, l2=» WRITE(LIST,'KUNDE',KUNDE.NR(1)*10000.0+KUNDE.NR(2):10:-2,' ':4);«, l3=0x48}
0x1806…183a Line {l1=0x32, l2=» IF IER=-6 THEN WRITELN(LIST,'FINDES IKKE')«, l3=0x32}
0x183a…1848 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1848…1857 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1857…1878 Line {l1=0x1f, l2=» IF IER<>0 THEN ERROR;«, l3=0x1f}
0x1878…18a0 Line {l1=0x26, l2=» WRITELN(LIST,KUNDE.NAVN(1));«, l3=0x26}
0x18a0…18ba Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x18ba…18e1 Line {l1=0x25, l2=» WRITELN(LIST,'RESTORDRER');«, l3=0x25}
0x18e1…18f3 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x18f3…193c Line {l1=0x47, l2=» WRITELN(LIST,RESTORD.HEAD(3):6,' ':10,RESTORD.ANTAL:12:-2);«, l3=0x47}
0x193c…1966 Line {l1=0x28, l2=» NEXTREC(RZ.H,FROR,RESTORD.A)«, l3=0x28}
0x1966…19a5 Line {l1=0x3d, l2=» UNTIL (IER<>0) OR (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR«, l3=0x3d}
0x19a5…19e2 Line {l1=0x3b, l2=» (RESTORD.HEAD(2)<>KUNDE.NR(2));«, l3=0x3b}
0x19e2…19f8 Line {l1=0x14, l2=» RIER:=IER;«, l3=0x14}
0x19f8…1a37 Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;«, l3=0x3d}
0x1a37…1a47 Line {l1=0x0e, l2=» DOIT«, l3=0x0e}
0x1a47…1a54 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1a54…1a62 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1a62…1a79 Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0x1a79…1a8f Line {l1=0x14, l2=» UNTIL RIER<>0;«, l3=0x14}
0x1a8f…1aad Line {l1=0x1c, l2=» IF RIER<>-2 THEN ERROR«, l3=0x1c}
0x1aad…1ab7 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1ab7…1ad0 Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0x1ad0…1ae9 Line {l1=0x17, l2=» ICLOSE(OZ.H,FORD);«, l3=0x17}
0x1ae9…1b02 Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x1b02…1b1b Line {l1=0x17, l2=» ICLOSE(RZ.H,FROR);«, l3=0x17}
0x1b1b…1b44 Line {l1=0x27, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x27}
0x1b44…1b4a Line {l1=0x04, l2=»END.«, l3=0x04}
0x1b4a…1b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b60…1b80 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 ┆ ┆
[…0x11…]