|
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: 13728 (0x35a0)
Types: TextFile
Notes: Mikados_K
Names: »FAKTURA.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »FAKTURA.K«
PROGRAM FAKTURERING;
(*$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;
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
OLINE = RECORD
VNR :ARRAY (1..2) OF INTEGER;
(*VNR,BESTILT*)
PRIS: REAL
END;
PLUORPOST=RECORD
A:AR;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
(*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,
RESTORDREKODE,RABAT*)
ORDRELIN : ARRAY (1..15) OF PLUOLINE
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;
FAKPOST= RECORD
FORSEND:INTEGER;
EMBAL,FRAGT:REAL;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;
ORDRELIN: ARRAY(1..15) OF PLUOLINE
END;
FAKFILE=FILE OF FAKPOST;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
PLUZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..1118) 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;
VAR FROR,FVAR,FORD,FPLU,FKUN : ISF;
FAKFIL:FAKFILE;
VZ:VZONE;
KZ:KZONE;
OZ:ORDZONE;
RZ:RORZONE;
RESTORD:RORPOST;
LIN:STRING(30);
PZ:PLUZONE;
ORDRE:ORDREPOST;
VARE:VPOST;
PLUORD:PLUORPOST;
KUNDE:KPOST;
FNAVN:STRING(20);
IER,I,J,K,L
:INTEGER;
R,R1 :REAL;
SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;
QUQ:^INTEGER;
(*$R-,L-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(PZ.H,FPLU);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE TILBAGE;
VAR RESTNÅET:BOOLEAN;
BEGIN
RESTNÅET:=FALSE;
(*TILBAGEFØRING*)
WITH PLUORD DO
REPEAT
FOR J:=1 TO 15 DO IF ORDRELIN(J).VNR(1)<>0 THEN
BEGIN
IF RESTNÅET THEN
BEGIN
RESTORD.HEAD(1):=HEAD(1);
RESTORD.HEAD(2):=HEAD(2);
RESTORD.HEAD(3):=ORDRELIN(J).VNR(1);
RESTORD.ANTAL:=0;
RESTORD.HEAD(4):=0;RESTORD.HEAD(5):=0;
GETREC(RZ.H,FROR,RESTORD.A);
RESTORD.ANTAL:=RESTORD.ANTAL+ORDRELIN(J).VNR(3);
IF (HEAD(7)>RESTORD.HEAD(4)) OR
((HEAD(7)=RESTORD.HEAD(4)) AND (HEAD(8)>RESTORD.HEAD(5))) THEN
BEGIN
RESTORD.HEAD(4):=HEAD(7);
RESTORD.HEAD(5):=HEAD(8)
END;
IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)
ELSE
IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);
IF IER<>0 THEN ERROR;
ORDRE.ORDRELIN(J).VNR(1):=0
END
ELSE
BEGIN
VARE.HELTAL(1):=ORDRELIN(J).VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)
IF IER=0 THEN
BEGIN
VARE.REELTAL(4):=VARE.REELTAL(4)+ORDRELIN(J).VNR(2);
VARE.REELTAL(7):=VARE.REELTAL(7)+ORDRELIN(J).VNR(2);
PUTREC(VZ.H,FVAR,VARE.A);
ORDRE.ORDRELIN(J).VNR(1):=ORDRELIN(J).VNR(1);
ORDRE.ORDRELIN(J).VNR(2):=ORDRELIN(J).VNR(3);
ORDRE.ORDRELIN(J).PRIS:=ORDRELIN(J).PRIS
END
END
END
ELSE
BEGIN
IF ORDRELIN(J).VNR(1)=1 THEN RESTNÅET:=TRUE;
ORDRE.ORDRELIN(J).VNR(1):=0;
END;
FOR I:=1 TO 12 DO ORDRE.HEAD(I):=HEAD(I);
ORDRE.LINE(1):=LINE(1);
ORDRE.LINE(2):=LINE(2);
INSERT(OZ.H,FORD,ORDRE.A);
DELETE(PZ.H,FPLU,A)
UNTIL ORDRE.HEAD(5)=99
END;
PROCEDURE ÆNDRING;
BEGIN
REPEAT
GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT ');
GOTOXY(40,23);READLN;READ(I)
UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));
J:=1;
WHILE I<>0 DO
WITH PLUORD DO
BEGIN
WHILE (I<>ORDRELIN(J).VNR(1)) AND (I<>0) DO
BEGIN
J:=J+1;
IF J>15 THEN
BEGIN
IF HEAD(5)<99 THEN
BEGIN
PUTREC(PZ.H,FPLU,A);
NEXTREC(PZ.H,FPLU,A)
END
ELSE I:=0;
J:=1
END
END;
IF I=0 THEN
BEGIN
GOTOXY(1,23);WRITELN('VARENUMMER FINDES IKKE')
END
ELSE
BEGIN
VARE.HELTAL(1):=ORDRELIN(J).VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)
IF IER=0 THEN
BEGIN
GOTOXY(1,5);
WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),
ORDRELIN(J).PRIS/100:12:2,
ORDRELIN(J).VNR(2):10,
ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);
REPEAT
GOTOXY(63,5);READLN;READ(K)
UNTIL (IORESULT=0) AND (K>=0) AND (K<=ORDRELIN(J).VNR(3));
VARE.REELTAL(9):=VARE.REELTAL(9)+ORDRELIN(J).VNR(2)-K;
VARE.HELTAL(11):=VARE.HELTAL(11)+K-ORDRELIN(J).VNR(2);
ORDRELIN(J).VNR(2):=K;
GOTOXY(1,5);WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),
ORDRELIN(J).PRIS/100:12:2,
ORDRELIN(J).VNR(2):10,
ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);
PUTREC(VZ.H,FVAR,VARE.A)
END
END;
REPEAT
GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT');
GOTOXY(40,23);READLN;READ(I)
UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));
END
END;
PROCEDURE UÆNDRET;
VAR J,F:INTEGER;
R:REAL;
BEGIN
CLEARSCREEN;
REPEAT
GOTOXY(1,1);WRITELN('FORSENDELSESMÅDE ');
FOR I:=1 TO 10 DO
WRITELN(2*I-1:3,' ',SENDTPR(2*I-1),2*I:5,' ',SENDTPR(2*I));
GOTOXY(40,1);READLN;READ(F)
UNTIL (IORESULT=0) AND (F>0) AND (F<21);
FAKFIL^.FORSEND:=F;
R:=0;
REPEAT
GOTOXY(1,13);WRITELN('FRAGT ');
GOTOXY(40,13);READLN;READ(R)
UNTIL IORESULT=0;
FAKFIL^.FRAGT:=R*100;
R:=0;
KUNDE.NR(1):=PLUORD.HEAD(1);
KUNDE.NR(2):=PLUORD.HEAD(2);
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
IF KUNDE.NR(15)=1 THEN
REPEAT
GOTOXY(1,13);WRITELN('EMBALLAGE ');
GOTOXY(40,13);READLN;READ(R)
UNTIL IORESULT=0;
FAKFIL^.EMBAL:=R*100;
LIN:='123456789012345678901234567890';
GOTOXY(1,15);
WRITELN('TEKST 1 ');
FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(1,J);
GOTOXY(11,15);
EDIT(LIN:30);
FOR J:=1 TO 30 DO FAKFIL^.LINE(1,J):=LIN(J);
GOTOXY(1,16);
WRITELN('TEKST 2 ');
FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(2,J);
GOTOXY(11,16);
EDIT(LIN:30);
FOR J:=1 TO 30 DO FAKFIL^.LINE(2,J):=LIN(J);
IF KUNDE.NR(18)=1 THEN
BEGIN
GOTOXY(1,19);
WRITELN('Leveringsbetingelser ');
FOR J:=1 TO 20 DO LIN(J):=' ';
GOTOXY(30,19);
EDIT(LIN:20);
FOR J:=1 TO 20 DO FAKFIL^.DITTO(1,J):=LIN(J);
GOTOXY(1,21);
WRITELN('Pakning');
FOR J:=1 TO 20 DO LIN(J):=' ';
GOTOXY(10,21);
EDIT(LIN:20);
FOR J:=1 TO 20 DO FAKFIL^.DITTO(2,J):=LIN(J)
END;
REPEAT
FAKFIL^.HEAD:=PLUORD.HEAD;
FAKFIL^.ORDRELIN:=PLUORD.ORDRELIN;
PUT(FAKFIL);
DELETE(PZ.H,FPLU,PLUORD.A)
UNTIL FAKFIL^.HEAD(5)=99
END;
PROCEDURE INIT;
BEGIN
SENDTPR(1):='Post ';
SENDTPR(2):='Luftpost ';
SENDTPR(3):='Bane ';
SENDTPR(4):='Fragtmand ';
SENDTPR(5):='Samson / Liniegods ';
SENDTPR(6):='Samson / Olson & Wright ';
SENDTPR(7):='Leman ';
SENDTPR(8):='Deres transportør ';
SENDTPR(9):='Skib ';
SENDTPR(10):='Veritas ';
SENDTPR(11):='DFDS ';
SENDTPR(12):='Faroe ship ';
SENDTPR(13):='Vogn / bil ';
SENDTPR(14):='Afhentet ';
FOR I:=15 TO 19 DO
SENDTPR(I):= ' ';
SENDTPR(20):='Brevdue ';
END;
BEGIN
CLEARSCREEN;
GOTOXY(1,1);WRITELN('FAKTURERING');
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='ORDRERG:P2:0000:I';
REWRITE(FORD,FNAVN);
IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='PLUOR:P2:0000:I';
REWRITE(FPLU,FNAVN);
IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;
FNAVN:='RESTREG:P2:0000:I';
REWRITE(FROR,FNAVN);
IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='FAKREG:P2:30:I';
REWRITE(FAKFIL,FNAVN);
REPEAT
GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER ORDRENUMMER ');
GOTOXY(40,23);READLN;READ(R1,R)
UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0)) AND
(((R1>9999.0) AND (R1<100000.0)) OR (R1=0));
INIT;
WHILE R1<>0 DO
WITH PLUORD DO
BEGIN
I:=TRUNC(R/10000);
J:=TRUNC(R-10000.0*I);
K:=TRUNC(R1/10000);
L:=TRUNC(R1-10000.0*K);
HEAD(1):=K;HEAD(2):=L;
HEAD(3):=I;HEAD(4):=J;
HEAD(5):=0;
NEXTREC(PZ.H,FPLU,A);
IF IER>0 THEN ERROR;
IF (HEAD(3)<>I) OR (HEAD(4)<>J) OR (HEAD(1)<>K) OR (HEAD(2)<>L) THEN
BEGIN
GOTOXY(1,24);
WRITELN('ORDREN FINDES IKKE')
END
ELSE
BEGIN
CLEARSCREEN;
REPEAT
GOTOXY(1,19);
WRITELN('SKAL ORDREN FAKTURERES UÆNDRET (1)');
WRITELN('ER DER ÆNDRINGER I.F.T. PAKKELISTE (2)');
WRITELN('SKAL ORDREN TILBAGEFØRES TIL ORDREREG (3)');
WRITELN('ORDREN SKAL IKKE FAKTURERES (4)');
GOTOXY(1,23);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<5);
IF I=3 THEN
TILBAGE
ELSE
BEGIN
WHILE I=2 DO
BEGIN
(*ÆNDRINGER*)
CLEARSCREEN;
ÆNDRING;
REPEAT
GOTOXY(1,23);WRITELN('FÆRDIG (1), FLERE ÆNDRINGER (2)');
GOTOXY(50,23);READLN;READ(I)
UNTIL (IORESULT=0) AND ((I=1) OR (I=2));
PUTREC(PZ.H,FPLU,A);
HEAD(5):=0;
NEXTREC(PZ.H,FPLU,A)
END;
(*UÆNDRET*)
IF I<4 THEN
BEGIN
UÆNDRET;
END
END;
END;
REPEAT
CLEARSCREEN;
GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER, ORDRENUMMER ');
GOTOXY(40,23);READLN;READ(R1,R)
UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0.0)) AND
(((R1>9999.0) AND (R1<100000.0)) OR (R1=0.0));
END;
FAKFIL^.HEAD(1):=0;
FAKFIL^.HEAD(2):=0;
PUT(FAKFIL);
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(PZ.H,FPLU);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
WRITELN('CHAIN NORMFAKT');
CHAIN('INTRE *1','NORMFAKT:P1',QUQ); (*TOLDSORT,TOLDFAKT*)
END.
0x0000…0016 Line {l1=0x14, l2=»PROGRAM FAKTURERING;«, l3=0x14}
0x0016…0026 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0026…0035 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0035…004b Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x004b…0075 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0075…00be Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00be…00df Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00df…011a Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x011a…013b Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x013b…0163 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0163…01a9 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01a9…01ed Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x01ed…01f5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x01f5…0209 Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x0209…0230 Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x0230…0251 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0251…0265 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0265…026d Line {l1=0x06, l2=» END;«, l3=0x06}
0x026d…027e Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x027e…02a5 Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x02a5…02be Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x02be…02d2 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x02d2…02da Line {l1=0x06, l2=» END;«, l3=0x06}
0x02da…02ed Line {l1=0x11, l2=» PLUORPOST=RECORD«, l3=0x11}
0x02ed…02fc Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x02fc…0324 Line {l1=0x26, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x26}
0x0324…0360 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0360…03a3 Line {l1=0x41, l2=» (*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,«, l3=0x41}
0x03a3…03bd Line {l1=0x18, l2=» RESTORDREKODE,RABAT*)«, l3=0x18}
0x03bd…03eb Line {l1=0x2c, l2=» ORDRELIN : ARRAY (1..15) OF PLUOLINE«, l3=0x2c}
0x03eb…03f3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03f3…0408 Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x0408…0417 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0417…041c Line {l1=0x03, l2=» (*«, l3=0x03}
0x041c…0430 Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x0430…0442 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x0442…0451 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x0451…0495 Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x0495…04bd Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x04bd…04f9 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x04f9…0524 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x0524…052c Line {l1=0x06, l2=» END;«, l3=0x06}
0x052c…053a Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x053a…0548 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0548…056d Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x056d…05a9 Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x05a9…05d7 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x05d7…0604 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0604…062e Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x062e…0654 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0654…065a Line {l1=0x04, l2=»END;«, l3=0x04}
0x065a…066b Line {l1=0x0f, l2=»FAKPOST= RECORD«, l3=0x0f}
0x066b…0684 Line {l1=0x17, l2=» FORSEND:INTEGER;«, l3=0x17}
0x0684…069e Line {l1=0x18, l2=» EMBAL,FRAGT:REAL;«, l3=0x18}
0x069e…06c5 Line {l1=0x25, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x25}
0x06c5…0700 Line {l1=0x39, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0700…073c Line {l1=0x3a, l2=» DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;«, l3=0x3a}
0x073c…0767 Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x0767…076d Line {l1=0x04, l2=»END;«, l3=0x04}
0x076d…0787 Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x0787…0797 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0797…07ab Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x07ab…07cf Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x07cf…07d7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x07d7…07e8 Line {l1=0x0f, l2=» PLUZONE=RECORD«, l3=0x0f}
0x07e8…07fc Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x07fc…0821 Line {l1=0x23, l2=» T:ARRAY(1..1118) OF INTEGER«, l3=0x23}
0x0821…0829 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0829…083a Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x083a…084e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x084e…0872 Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x0872…087a Line {l1=0x06, l2=» END;«, l3=0x06}
0x087a…0888 Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x0888…089b Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x089b…08be Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x08be…08c4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08c4…08d5 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x08d5…08e4 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x08e4…08f8 Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x08f8…0906 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0906…0941 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x0941…0955 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x0955…095d Line {l1=0x06, l2=» END;«, l3=0x06}
0x095d…096e Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x096e…0982 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0982…09a6 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x09a6…09ae Line {l1=0x06, l2=» END;«, l3=0x06}
0x09ae…09b2 Line {l1=0x02, l2=» «, l3=0x02}
[…0x2…]
0x09ba…09e8 Line {l1=0x2c, l2=» VAR FROR,FVAR,FORD,FPLU,FKUN : ISF;«, l3=0x2c}
0x09e8…0a01 Line {l1=0x17, l2=» FAKFIL:FAKFILE;«, l3=0x17}
0x0a01…0a14 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0a14…0a27 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0a27…0a3c Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x0a3c…0a51 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0a51…0a6b Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0a6b…0a84 Line {l1=0x17, l2=» LIN:STRING(30);«, l3=0x17}
0x0a84…0a99 Line {l1=0x13, l2=» PZ:PLUZONE;«, l3=0x13}
0x0a99…0ab3 Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x0ab3…0ac8 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0ac8…0ae3 Line {l1=0x19, l2=» PLUORD:PLUORPOST;«, l3=0x19}
0x0ae3…0af9 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0af9…0b14 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0b14…0b29 Line {l1=0x13, l2=» IER,I,J,K,L«, l3=0x13}
0x0b29…0b4c Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0b4c…0b6c Line {l1=0x1e, l2=» R,R1 :REAL;«, l3=0x1e}
0x0b6c…0bac Line {l1=0x3e, l2=» SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3e}
0x0bac…0bc3 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0bc3…0bda Line {l1=0x15, l2=» (*$R-,L-,IEXCOMCOP*)«, l3=0x15}
0x0bda…0be8 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0be8…0bf6 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0bf6…0c07 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0c07…0c18 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0c18…0c28 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0c28…0c37 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0c37…0c45 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x0c45…0c54 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0c54…0c63 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0c63…0c72 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0c72…0c7f Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0c7f…0c92 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0c92…0c9a Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0c9a…0cbf Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0cbf…0cd6 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0cd6…0ced Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0ced…0d04 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x15}
0x0d04…0d1b Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0d1b…0d32 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0d32…0d4e Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0d4e…0d5d Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0d5d…0d64 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0d64…0d79 Line {l1=0x13, l2=» PROCEDURE TILBAGE;«, l3=0x13}
0x0d79…0d91 Line {l1=0x16, l2=» VAR RESTNÅET:BOOLEAN;«, l3=0x16}
0x0d91…0d9f Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0d9f…0dba Line {l1=0x19, l2=» RESTNÅET:=FALSE;«, l3=0x19}
0x0dba…0dd6 Line {l1=0x1a, l2=» (*TILBAGEFØRING*)«, l3=0x1a}
0x0dd6…0def Line {l1=0x17, l2=» WITH PLUORD DO«, l3=0x17}
0x0def…0e00 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x0e00…0e3c Line {l1=0x3a, l2=» FOR J:=1 TO 15 DO IF ORDRELIN(J).VNR(1)<>0 THEN«, l3=0x3a}
0x0e3c…0e4e Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x0e4e…0e6d Line {l1=0x1d, l2=» IF RESTNÅET THEN«, l3=0x1d}
0x0e6d…0e81 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x0e81…0eab Line {l1=0x28, l2=» RESTORD.HEAD(1):=HEAD(1);«, l3=0x28}
0x0eab…0ed5 Line {l1=0x28, l2=» RESTORD.HEAD(2):=HEAD(2);«, l3=0x28}
0x0ed5…0f0a Line {l1=0x33, l2=» RESTORD.HEAD(3):=ORDRELIN(J).VNR(1);«, l3=0x33}
0x0f0a…0f2c Line {l1=0x20, l2=» RESTORD.ANTAL:=0;«, l3=0x20}
0x0f2c…0f63 Line {l1=0x35, l2=» RESTORD.HEAD(4):=0;RESTORD.HEAD(5):=0;«, l3=0x35}
0x0f63…0f90 Line {l1=0x2b, l2=» GETREC(RZ.H,FROR,RESTORD.A);«, l3=0x2b}
0x0f90…0fd1 Line {l1=0x3f, l2=» RESTORD.ANTAL:=RESTORD.ANTAL+ORDRELIN(J).VNR(3);«, l3=0x3f}
0x0fd1…1001 Line {l1=0x2e, l2=» IF (HEAD(7)>RESTORD.HEAD(4)) OR«, l3=0x2e}
0x1001…1050 Line {l1=0x4d, l2=» ((HEAD(7)=RESTORD.HEAD(4)) AND (HEAD(8)>RESTORD.HEAD(5))) THEN«, l3=0x4d}
0x1050…1066 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1066…1092 Line {l1=0x2a, l2=» RESTORD.HEAD(4):=HEAD(7);«, l3=0x2a}
0x1092…10bd Line {l1=0x29, l2=» RESTORD.HEAD(5):=HEAD(8)«, l3=0x29}
0x10bd…10d2 Line {l1=0x13, l2=» END;«, l3=0x13}
0x10d2…110c Line {l1=0x38, l2=» IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)«, l3=0x38}
0x110c…1121 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x1121…115d Line {l1=0x3a, l2=» IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);«, l3=0x3a}
0x115d…1183 Line {l1=0x24, l2=» IF IER<>0 THEN ERROR;«, l3=0x24}
0x1183…11af Line {l1=0x2a, l2=» ORDRE.ORDRELIN(J).VNR(1):=0«, l3=0x2a}
0x11af…11c1 Line {l1=0x10, l2=» END«, l3=0x10}
0x11c1…11d4 Line {l1=0x11, l2=» ELSE«, l3=0x11}
0x11d4…11e8 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x11e8…121a Line {l1=0x30, l2=» VARE.HELTAL(1):=ORDRELIN(J).VNR(1);«, l3=0x30}
0x121a…1242 Line {l1=0x26, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x26}
0x1242…127c Line {l1=0x38, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)«, l3=0x38}
0x127c…1298 Line {l1=0x1a, l2=» IF IER=0 THEN«, l3=0x1a}
0x1298…12ac Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x12ac…12ef Line {l1=0x41, l2=» VARE.REELTAL(4):=VARE.REELTAL(4)+ORDRELIN(J).VNR(2);«, l3=0x41}
0x12ef…1332 Line {l1=0x41, l2=» VARE.REELTAL(7):=VARE.REELTAL(7)+ORDRELIN(J).VNR(2);«, l3=0x41}
0x1332…135a Line {l1=0x26, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x26}
0x135a…1396 Line {l1=0x3a, l2=» ORDRE.ORDRELIN(J).VNR(1):=ORDRELIN(J).VNR(1);«, l3=0x3a}
0x1396…13d2 Line {l1=0x3a, l2=» ORDRE.ORDRELIN(J).VNR(2):=ORDRELIN(J).VNR(3);«, l3=0x3a}
0x13d2…1409 Line {l1=0x35, l2=» ORDRE.ORDRELIN(J).PRIS:=ORDRELIN(J).PRIS«, l3=0x35}
0x1409…141b Line {l1=0x10, l2=» END«, l3=0x10}
[…0x1…]
0x142d…143d Line {l1=0x0e, l2=» END«, l3=0x0e}
0x143d…144e Line {l1=0x0f, l2=» ELSE«, l3=0x0f}
0x144e…1460 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x1460…149b Line {l1=0x39, l2=» IF ORDRELIN(J).VNR(1)=1 THEN RESTNÅET:=TRUE;«, l3=0x39}
0x149b…14c6 Line {l1=0x29, l2=» ORDRE.ORDRELIN(J).VNR(1):=0;«, l3=0x29}
0x14c6…14d7 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x14d7…150d Line {l1=0x34, l2=» FOR I:=1 TO 12 DO ORDRE.HEAD(I):=HEAD(I);«, l3=0x34}
0x150d…1531 Line {l1=0x22, l2=» ORDRE.LINE(1):=LINE(1);«, l3=0x22}
0x1531…1555 Line {l1=0x22, l2=» ORDRE.LINE(2):=LINE(2);«, l3=0x22}
0x1555…157c Line {l1=0x25, l2=» INSERT(OZ.H,FORD,ORDRE.A);«, l3=0x25}
0x157c…159c Line {l1=0x1e, l2=» DELETE(PZ.H,FPLU,A)«, l3=0x1e}
0x159c…15bd Line {l1=0x1f, l2=» UNTIL ORDRE.HEAD(5)=99«, l3=0x1f}
0x15bd…15ca Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x15ca…15df Line {l1=0x13, l2=» PROCEDURE ÆNDRING;«, l3=0x13}
0x15df…15e7 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x15e7…15f2 Line {l1=0x09, l2=» REPEAT«, l3=0x09}
0x15f2…1630 Line {l1=0x3c, l2=» GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT ');«, l3=0x3c}
0x1630…1653 Line {l1=0x21, l2=» GOTOXY(40,23);READLN;READ(I)«, l3=0x21}
0x1653…1692 Line {l1=0x3d, l2=» UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));«, l3=0x3d}
0x1692…169c Line {l1=0x08, l2=» J:=1;«, l3=0x08}
0x169c…16ae Line {l1=0x10, l2=» WHILE I<>0 DO«, l3=0x10}
0x16ae…16c1 Line {l1=0x11, l2=» WITH PLUORD DO«, l3=0x11}
0x16c1…16cb Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x16cb…16fd Line {l1=0x30, l2=» WHILE (I<>ORDRELIN(J).VNR(1)) AND (I<>0) DO«, l3=0x30}
0x16fd…1709 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x1709…1719 Line {l1=0x0e, l2=» J:=J+1;«, l3=0x0e}
0x1719…172e Line {l1=0x13, l2=» IF J>15 THEN«, l3=0x13}
0x172e…173c Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x173c…1759 Line {l1=0x1b, l2=» IF HEAD(5)<99 THEN«, l3=0x1b}
0x1759…1769 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x1769…178a Line {l1=0x1f, l2=» PUTREC(PZ.H,FPLU,A);«, l3=0x1f}
0x178a…17ab Line {l1=0x1f, l2=» NEXTREC(PZ.H,FPLU,A)«, l3=0x1f}
0x17ab…17b9 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x17b9…17ce Line {l1=0x13, l2=» ELSE I:=0;«, l3=0x13}
0x17ce…17dd Line {l1=0x0d, l2=» J:=1«, l3=0x0d}
0x17dd…17e9 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x17e9…17f4 Line {l1=0x09, l2=» END;«, l3=0x09}
0x17f4…1806 Line {l1=0x10, l2=» IF I=0 THEN«, l3=0x10}
0x1806…1812 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x1812…1849 Line {l1=0x35, l2=» GOTOXY(1,23);WRITELN('VARENUMMER FINDES IKKE')«, l3=0x35}
0x1849…1853 Line {l1=0x08, l2=» END«, l3=0x08}
0x1853…185e Line {l1=0x09, l2=» ELSE«, l3=0x09}
0x185e…186a Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x186a…1896 Line {l1=0x2a, l2=» VARE.HELTAL(1):=ORDRELIN(J).VNR(1);«, l3=0x2a}
0x1896…18b8 Line {l1=0x20, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x20}
0x18b8…18f1 Line {l1=0x37, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)«, l3=0x37}
0x18f1…1907 Line {l1=0x14, l2=» IF IER=0 THEN«, l3=0x14}
0x1907…1915 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1915…192a Line {l1=0x13, l2=» GOTOXY(1,5);«, l3=0x13}
0x192a…1961 Line {l1=0x35, l2=» WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),«, l3=0x35}
0x1961…198c Line {l1=0x29, l2=» ORDRELIN(J).PRIS/100:12:2,«, l3=0x29}
0x198c…19b3 Line {l1=0x25, l2=» ORDRELIN(J).VNR(2):10,«, l3=0x25}
0x19b3…19ee Line {l1=0x39, l2=» ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);«, l3=0x39}
0x19ee…19fd Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x19fd…1a23 Line {l1=0x24, l2=» GOTOXY(63,5);READLN;READ(K)«, l3=0x24}
0x1a23…1a66 Line {l1=0x41, l2=» UNTIL (IORESULT=0) AND (K>=0) AND (K<=ORDRELIN(J).VNR(3));«, l3=0x41}
0x1a66…1aa5 Line {l1=0x3d, l2=» VARE.REELTAL(9):=VARE.REELTAL(9)+ORDRELIN(J).VNR(2)-K;«, l3=0x3d}
0x1aa5…1ae4 Line {l1=0x3d, l2=» VARE.HELTAL(11):=VARE.HELTAL(11)+K-ORDRELIN(J).VNR(2);«, l3=0x3d}
0x1ae4…1b03 Line {l1=0x1d, l2=» ORDRELIN(J).VNR(2):=K;«, l3=0x1d}
0x1b03…1b46 Line {l1=0x41, l2=» GOTOXY(1,5);WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),«, l3=0x41}
0x1b46…1b7d Line {l1=0x35, l2=» ORDRELIN(J).PRIS/100:12:2,«, l3=0x35}
0x1b7d…1bb0 Line {l1=0x31, l2=» ORDRELIN(J).VNR(2):10,«, l3=0x31}
0x1bb0…1bf7 Line {l1=0x45, l2=» ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);«, l3=0x45}
0x1bf7…1c18 Line {l1=0x1f, l2=» PUTREC(VZ.H,FVAR,VARE.A)«, l3=0x1f}
0x1c18…1c24 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1c24…1c2f Line {l1=0x09, l2=» END;«, l3=0x09}
0x1c2f…1c3c Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x1c3c…1c75 Line {l1=0x37, l2=» GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT');«, l3=0x37}
0x1c75…1c9b Line {l1=0x24, l2=» GOTOXY(40,23);READLN;READ(I)«, l3=0x24}
0x1c9b…1cdc Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));«, l3=0x3f}
0x1cdc…1ce4 Line {l1=0x06, l2=» END«, l3=0x06}
0x1ce4…1cea Line {l1=0x04, l2=»END;«, l3=0x04}
0x1cea…1cfe Line {l1=0x12, l2=»PROCEDURE UÆNDRET;«, l3=0x12}
0x1cfe…1d10 Line {l1=0x10, l2=»VAR J,F:INTEGER;«, l3=0x10}
0x1d10…1d1d Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x1d1d…1d24 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d24…1d34 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1d34…1d3e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1d3e…1d73 Line {l1=0x33, l2=» GOTOXY(1,1);WRITELN('FORSENDELSESMÅDE ');«, l3=0x33}
0x1d73…1d8d Line {l1=0x18, l2=» FOR I:=1 TO 10 DO«, l3=0x18}
0x1d8d…1dd5 Line {l1=0x46, l2=» WRITELN(2*I-1:3,' ',SENDTPR(2*I-1),2*I:5,' ',SENDTPR(2*I));«, l3=0x46}
0x1dd5…1df9 Line {l1=0x22, l2=» GOTOXY(40,1);READLN;READ(F)«, l3=0x22}
0x1df9…1e25 Line {l1=0x2a, l2=» UNTIL (IORESULT=0) AND (F>0) AND (F<21);«, l3=0x2a}
0x1e25…1e3c Line {l1=0x15, l2=» FAKFIL^.FORSEND:=F;«, l3=0x15}
0x1e3c…1e45 Line {l1=0x07, l2=» R:=0;«, l3=0x07}
0x1e45…1e4f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1e4f…1e7d Line {l1=0x2c, l2=» GOTOXY(1,13);WRITELN('FRAGT ');«, l3=0x2c}
0x1e7d…1ea2 Line {l1=0x23, l2=» GOTOXY(40,13);READLN;READ(R)«, l3=0x23}
0x1ea2…1eb7 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x1eb7…1ed0 Line {l1=0x17, l2=» FAKFIL^.FRAGT:=R*100;«, l3=0x17}
0x1ed0…1ed9 Line {l1=0x07, l2=» R:=0;«, l3=0x07}
0x1ed9…1ef9 Line {l1=0x1e, l2=» KUNDE.NR(1):=PLUORD.HEAD(1);«, l3=0x1e}
0x1ef9…1f19 Line {l1=0x1e, l2=» KUNDE.NR(2):=PLUORD.HEAD(2);«, l3=0x1e}
0x1f19…1f37 Line {l1=0x1c, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1c}
0x1f37…1f50 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x1f50…1f6a Line {l1=0x18, l2=» IF KUNDE.NR(15)=1 THEN«, l3=0x18}
0x1f6a…1f74 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1f74…1fa5 Line {l1=0x2f, l2=» GOTOXY(1,13);WRITELN('EMBALLAGE ');«, l3=0x2f}
0x1fa5…1fca Line {l1=0x23, l2=» GOTOXY(40,13);READLN;READ(R)«, l3=0x23}
0x1fca…1fdf Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x1fdf…1ff8 Line {l1=0x17, l2=» FAKFIL^.EMBAL:=R*100;«, l3=0x17}
0x1ff8…2022 Line {l1=0x28, l2=» LIN:='123456789012345678901234567890';«, l3=0x28}
0x2022…2033 Line {l1=0x0f, l2=» GOTOXY(1,15);«, l3=0x0f}
0x2033…204b Line {l1=0x16, l2=» WRITELN('TEKST 1 ');«, l3=0x16}
0x204b…207a Line {l1=0x2d, l2=» FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(1,J);«, l3=0x2d}
0x207a…208c Line {l1=0x10, l2=» GOTOXY(11,15);«, l3=0x10}
0x208c…209d Line {l1=0x0f, l2=» EDIT(LIN:30);«, l3=0x0f}
0x209d…20cd Line {l1=0x2e, l2=» FOR J:=1 TO 30 DO FAKFIL^.LINE(1,J):=LIN(J);«, l3=0x2e}
0x20cd…20de Line {l1=0x0f, l2=» GOTOXY(1,16);«, l3=0x0f}
0x20de…20f6 Line {l1=0x16, l2=» WRITELN('TEKST 2 ');«, l3=0x16}
0x20f6…2125 Line {l1=0x2d, l2=» FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(2,J);«, l3=0x2d}
0x2125…2137 Line {l1=0x10, l2=» GOTOXY(11,16);«, l3=0x10}
0x2137…2148 Line {l1=0x0f, l2=» EDIT(LIN:30);«, l3=0x0f}
0x2148…2178 Line {l1=0x2e, l2=» FOR J:=1 TO 30 DO FAKFIL^.LINE(2,J):=LIN(J);«, l3=0x2e}
0x2178…2192 Line {l1=0x18, l2=» IF KUNDE.NR(18)=1 THEN«, l3=0x18}
0x2192…219b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x219b…21ae Line {l1=0x11, l2=» GOTOXY(1,19);«, l3=0x11}
0x21ae…21d5 Line {l1=0x25, l2=» WRITELN('Leveringsbetingelser ');«, l3=0x25}
0x21d5…21f9 Line {l1=0x22, l2=» FOR J:=1 TO 20 DO LIN(J):=' ';«, l3=0x22}
0x21f9…220d Line {l1=0x12, l2=» GOTOXY(30,19);«, l3=0x12}
0x220d…2220 Line {l1=0x11, l2=» EDIT(LIN:20);«, l3=0x11}
0x2220…2253 Line {l1=0x31, l2=» FOR J:=1 TO 20 DO FAKFIL^.DITTO(1,J):=LIN(J);«, l3=0x31}
0x2253…2266 Line {l1=0x11, l2=» GOTOXY(1,21);«, l3=0x11}
0x2266…227f Line {l1=0x17, l2=» WRITELN('Pakning');«, l3=0x17}
0x227f…22a3 Line {l1=0x22, l2=» FOR J:=1 TO 20 DO LIN(J):=' ';«, l3=0x22}
0x22a3…22b7 Line {l1=0x12, l2=» GOTOXY(10,21);«, l3=0x12}
0x22b7…22ca Line {l1=0x11, l2=» EDIT(LIN:20);«, l3=0x11}
0x22ca…22fc Line {l1=0x30, l2=» FOR J:=1 TO 20 DO FAKFIL^.DITTO(2,J):=LIN(J)«, l3=0x30}
0x22fc…2304 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2304…230e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x230e…2331 Line {l1=0x21, l2=» FAKFIL^.HEAD:=PLUORD.HEAD;«, l3=0x21}
0x2331…235c Line {l1=0x29, l2=» FAKFIL^.ORDRELIN:=PLUORD.ORDRELIN;«, l3=0x29}
0x235c…2371 Line {l1=0x13, l2=» PUT(FAKFIL);«, l3=0x13}
0x2371…2394 Line {l1=0x21, l2=» DELETE(PZ.H,FPLU,PLUORD.A)«, l3=0x21}
0x2394…23b0 Line {l1=0x1a, l2=» UNTIL FAKFIL^.HEAD(5)=99«, l3=0x1a}
0x23b0…23b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x23b6…23c7 Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x23c7…23ce Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x23ce…23ff Line {l1=0x2f, l2=» SENDTPR(1):='Post ';«, l3=0x2f}
0x23ff…2430 Line {l1=0x2f, l2=» SENDTPR(2):='Luftpost ';«, l3=0x2f}
0x2430…2461 Line {l1=0x2f, l2=» SENDTPR(3):='Bane ';«, l3=0x2f}
0x2461…2492 Line {l1=0x2f, l2=» SENDTPR(4):='Fragtmand ';«, l3=0x2f}
0x2492…24c3 Line {l1=0x2f, l2=» SENDTPR(5):='Samson / Liniegods ';«, l3=0x2f}
0x24c3…24f4 Line {l1=0x2f, l2=» SENDTPR(6):='Samson / Olson & Wright ';«, l3=0x2f}
0x24f4…2525 Line {l1=0x2f, l2=» SENDTPR(7):='Leman ';«, l3=0x2f}
0x2525…2556 Line {l1=0x2f, l2=» SENDTPR(8):='Deres transportør ';«, l3=0x2f}
0x2556…2587 Line {l1=0x2f, l2=» SENDTPR(9):='Skib ';«, l3=0x2f}
0x2587…25b9 Line {l1=0x30, l2=» SENDTPR(10):='Veritas ';«, l3=0x30}
0x25b9…25eb Line {l1=0x30, l2=» SENDTPR(11):='DFDS ';«, l3=0x30}
0x25eb…261d Line {l1=0x30, l2=» SENDTPR(12):='Faroe ship ';«, l3=0x30}
0x261d…264f Line {l1=0x30, l2=» SENDTPR(13):='Vogn / bil ';«, l3=0x30}
0x264f…2681 Line {l1=0x30, l2=» SENDTPR(14):='Afhentet ';«, l3=0x30}
0x2681…2697 Line {l1=0x14, l2=» FOR I:=15 TO 19 DO«, l3=0x14}
0x2697…26c9 Line {l1=0x30, l2=» SENDTPR(I):= ' ';«, l3=0x30}
0x26c9…26fb Line {l1=0x30, l2=» SENDTPR(20):='Brevdue ';«, l3=0x30}
0x26fb…2701 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2701…2708 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2708…2718 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2718…273f Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('FAKTURERING');«, l3=0x25}
0x273f…275e Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x275e…2776 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x2776…27a6 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x27a6…27a9 Line {l1=0x01, l2=» «, l3=0x01}
0x27a9…27c8 Line {l1=0x1d, l2=» FNAVN:='ORDRERG:P2:0000:I';«, l3=0x1d}
0x27c8…27e0 Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x27e0…2810 Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x2810…2813 Line {l1=0x01, l2=» «, l3=0x01}
0x2813…2830 Line {l1=0x1b, l2=» FNAVN:='PLUOR:P2:0000:I';«, l3=0x1b}
0x2830…2848 Line {l1=0x16, l2=» REWRITE(FPLU,FNAVN);«, l3=0x16}
0x2848…2878 Line {l1=0x2e, l2=» IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x2878…287b Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x287e…289d Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x289d…28b3 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x28b3…28e1 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x28e1…28e4 Line {l1=0x01, l2=» «, l3=0x01}
0x28e4…2903 Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x2903…291b Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x291b…294b Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x294b…2967 Line {l1=0x1a, l2=» FNAVN:='FAKREG:P2:30:I';«, l3=0x1a}
0x2967…2981 Line {l1=0x18, l2=» REWRITE(FAKFIL,FNAVN);«, l3=0x18}
0x2981…298b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x298b…29d9 Line {l1=0x4c, l2=» GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER ORDRENUMMER ');«, l3=0x4c}
0x29d9…2a01 Line {l1=0x26, l2=» GOTOXY(40,23);READLN;READ(R1,R)«, l3=0x26}
0x2a01…2a4a Line {l1=0x47, l2=» UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0)) AND«, l3=0x47}
0x2a4a…2a91 Line {l1=0x45, l2=» (((R1>9999.0) AND (R1<100000.0)) OR (R1=0));«, l3=0x45}
0x2a91…2a9a Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x2a9a…2aac Line {l1=0x10, l2=» WHILE R1<>0 DO«, l3=0x10}
0x2aac…2abe Line {l1=0x10, l2=» WITH PLUORD DO«, l3=0x10}
0x2abe…2ac7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2ac7…2ae0 Line {l1=0x17, l2=» I:=TRUNC(R/10000);«, l3=0x17}
0x2ae0…2afd Line {l1=0x1b, l2=» J:=TRUNC(R-10000.0*I);«, l3=0x1b}
0x2afd…2b17 Line {l1=0x18, l2=» K:=TRUNC(R1/10000);«, l3=0x18}
0x2b17…2b35 Line {l1=0x1c, l2=» L:=TRUNC(R1-10000.0*K);«, l3=0x1c}
0x2b35…2b52 Line {l1=0x1b, l2=» HEAD(1):=K;HEAD(2):=L;«, l3=0x1b}
0x2b52…2b6f Line {l1=0x1b, l2=» HEAD(3):=I;HEAD(4):=J;«, l3=0x1b}
0x2b6f…2b81 Line {l1=0x10, l2=» HEAD(5):=0;«, l3=0x10}
0x2b81…2b9d Line {l1=0x1a, l2=» NEXTREC(PZ.H,FPLU,A);«, l3=0x1a}
0x2b9d…2bb8 Line {l1=0x19, l2=» IF IER>0 THEN ERROR;«, l3=0x19}
0x2bb8…2c03 Line {l1=0x49, l2=» IF (HEAD(3)<>I) OR (HEAD(4)<>J) OR (HEAD(1)<>K) OR (HEAD(2)<>L) THEN«, l3=0x49}
0x2c03…2c0f Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x2c0f…2c26 Line {l1=0x15, l2=» GOTOXY(1,24);«, l3=0x15}
0x2c26…2c4d Line {l1=0x25, l2=» WRITELN('ORDREN FINDES IKKE')«, l3=0x25}
0x2c4d…2c57 Line {l1=0x08, l2=» END«, l3=0x08}
0x2c57…2c62 Line {l1=0x09, l2=» ELSE«, l3=0x09}
0x2c62…2c6e Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x2c6e…2c83 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x2c83…2c92 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x2c92…2caa Line {l1=0x16, l2=» GOTOXY(1,19);«, l3=0x16}
0x2caa…2cea Line {l1=0x3e, l2=» WRITELN('SKAL ORDREN FAKTURERES UÆNDRET (1)');«, l3=0x3e}
0x2cea…2d2a Line {l1=0x3e, l2=» WRITELN('ER DER ÆNDRINGER I.F.T. PAKKELISTE (2)');«, l3=0x3e}
0x2d2a…2d6a Line {l1=0x3e, l2=» WRITELN('SKAL ORDREN TILBAGEFØRES TIL ORDREREG (3)');«, l3=0x3e}
0x2d6a…2daa Line {l1=0x3e, l2=» WRITELN('ORDREN SKAL IKKE FAKTURERES (4)');«, l3=0x3e}
0x2daa…2dd0 Line {l1=0x24, l2=» GOTOXY(1,23);READLN;READ(I)«, l3=0x24}
0x2dd0…2e00 Line {l1=0x2e, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<5);«, l3=0x2e}
0x2e00…2e14 Line {l1=0x12, l2=» IF I=3 THEN«, l3=0x12}
0x2e14…2e26 Line {l1=0x10, l2=» TILBAGE«, l3=0x10}
0x2e26…2e33 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x2e33…2e41 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x2e41…2e58 Line {l1=0x15, l2=» WHILE I=2 DO«, l3=0x15}
0x2e58…2e68 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x2e68…2e82 Line {l1=0x18, l2=» (*ÆNDRINGER*)«, l3=0x18}
0x2e82…2e9b Line {l1=0x17, l2=» CLEARSCREEN;«, l3=0x17}
0x2e9b…2eb0 Line {l1=0x13, l2=» ÆNDRING;«, l3=0x13}
0x2eb0…2ec3 Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x2ec3…2f0d Line {l1=0x48, l2=» GOTOXY(1,23);WRITELN('FÆRDIG (1), FLERE ÆNDRINGER (2)');«, l3=0x48}
0x2f0d…2f3a Line {l1=0x2b, l2=» GOTOXY(50,23);READLN;READ(I)«, l3=0x2b}
0x2f3a…2f6f Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND ((I=1) OR (I=2));«, l3=0x33}
0x2f6f…2f90 Line {l1=0x1f, l2=» PUTREC(PZ.H,FPLU,A);«, l3=0x1f}
0x2f90…2fa8 Line {l1=0x16, l2=» HEAD(5):=0;«, l3=0x16}
0x2fa8…2fc9 Line {l1=0x1f, l2=» NEXTREC(PZ.H,FPLU,A)«, l3=0x1f}
0x2fc9…2fd8 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x2fd8…2ff0 Line {l1=0x16, l2=» (*UÆNDRET*)«, l3=0x16}
0x2ff0…3004 Line {l1=0x12, l2=» IF I<4 THEN«, l3=0x12}
0x3004…3016 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x3016…302b Line {l1=0x13, l2=» UÆNDRET;«, l3=0x13}
0x302b…303b Line {l1=0x0e, l2=» END«, l3=0x0e}
0x303b…3048 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x3048…3053 Line {l1=0x09, l2=» END;«, l3=0x09}
0x3053…3060 Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x3060…3076 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x3076…30c6 Line {l1=0x4e, l2=» GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER, ORDRENUMMER ');«, l3=0x4e}
0x30c6…30ef Line {l1=0x27, l2=» GOTOXY(40,23);READLN;READ(R1,R)«, l3=0x27}
0x30ef…313d Line {l1=0x4c, l2=» UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0.0)) AND«, l3=0x4c}
0x313d…3189 Line {l1=0x4a, l2=» (((R1>9999.0) AND (R1<100000.0)) OR (R1=0.0));«, l3=0x4a}
0x3189…3191 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3191…31ad Line {l1=0x1a, l2=» FAKFIL^.HEAD(1):=0;«, l3=0x1a}
0x31ad…31c9 Line {l1=0x1a, l2=» FAKFIL^.HEAD(2):=0;«, l3=0x1a}
0x31c9…31de Line {l1=0x13, l2=» PUT(FAKFIL);«, l3=0x13}
0x31de…31f7 Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0x31f7…3210 Line {l1=0x17, l2=» ICLOSE(OZ.H,FORD);«, l3=0x17}
0x3210…3229 Line {l1=0x17, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x17}
0x3229…3242 Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x3242…325b Line {l1=0x17, l2=» ICLOSE(RZ.H,FROR);«, l3=0x17}
0x325b…327c Line {l1=0x1f, l2=» WRITELN('CHAIN NORMFAKT');«, l3=0x1f}
0x327c…32bf Line {l1=0x41, l2=» CHAIN('INTRE *1','NORMFAKT:P1',QUQ); (*TOLDSORT,TOLDFAKT*)«, l3=0x41}
0x32bf…32c5 Line {l1=0x04, l2=»END.«, l3=0x04}
0x32c5…32e0 00 00 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 ┆ ccccccccccccccccccccccccc┆
0x32e0…3300 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┆
[…0x14…]
0x3580…35a0 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 ┆