|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »BESTVARE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »BESTVARE.K«
PROGRAM BESTILLING;
(*$IISFHEAD*)
VPOST=RECORD
A:AR;
VARENR1,LVRNDØR,OPRLAND,PAKENHED,
FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,
DÆKGRASÅ,ANAFTILG:INTEGER;
NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;
PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
LEVPOST=RECORD
A:AR;
NR,
SBESDAT1,SBESDAT2,
LAND1,LAND2:INTEGER;
KOSTPFAK:ARRAY(1..5) OF INTEGER;
ÅKØB,SÅKØB,SALDO:REAL;
NAVN1:PACKED ARRAY (1..40) OF CHAR;
NAVN2,
ADR1,
ADR2:PACKED ARRAY (1..30) OF CHAR;
BETABET,
LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;
POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;
TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;
END;
LEVZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..382) 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 FLEV,F:ISF;
CH:CHAR;
VZ:ZONE;
LZ:LEVZONE;
LEVER:LEVPOST;
FILNAVN1,FILNAVN2:STRING(20);
IER,I:INTEGER;
VARE:VPOST;
SYSFIL:SYSFILE;
KODE1,KODE2:STRING(10);
R,R1:REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,F);
ICLOSE(LZ.H,FLEV);
WRITELN('ICLOSE ',IER);
STOP
END;
BEGIN
FILNAVN2:='REGVARE:P1:1137:I';
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IOPEN(VZ.H,F,SKRIV);
FILNAVN2:='LEVERRG:P2:0000:I';
REWRITE(FLEV,FILNAVN2);
IOPEN(LZ.H,FLEV,SKRIV);IF IER<>0 THEN ERROR;
FILNAVN1:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FILNAVN1);
SEEK(SYSFIL,1);
GET(SYSFIL);
R1:=0;
WRITELN(LIST,'BESTILTE VARER',' ':44,SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):10:-2);
WRITELN(LIST);
WRITELN(LIST,'VARENR ','VARENAVN',' ':25,'ANTAL',' ':3,'LEVERANDØR',
' LEVUGE',' KOSTPRIS');
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
REPEAT
CLEARSCREEN;
WRITELN('VAREBESTILLINGER');
WRITELN('VARENR, 0 FOR SLUT');
REPEAT
GOTOXY(20,2);
READLN;READ(I)
UNTIL IORESULT=0;
IF I>0 THEN WITH VARE DO
BEGIN
VARENR1:=I;
GETREC(VZ.H,F,A);
IF IER=-6 THEN WRITELN('VAREN FINDES IKKE')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
WRITELN(NAVN(1),' ':10,'RIGTIG VARE? (J/N)');
REPEAT
GOTOXY(60,3);
READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N'));
IF CH='J' THEN
BEGIN
WRITELN('ANTAL');
REPEAT
GOTOXY(10,4);
READLN;READ(R)
UNTIL (IORESULT=0) AND (R>0);
IORDRE:=IORDRE+R;
STASBEST:=R;
DATSBES1:=SYSFIL^.HELTAL(1);
DATSBES2:=SYSFIL^.HELTAL(2);
WITH LEVER DO
BEGIN
NR:=LVRNDØR;
GETREC(LZ.H,FLEV,A);
IF IER=-6 THEN
WRITELN('LEVERANDØREN ER IKKE OPRETTET')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
SBESDAT1:=DATSBES1;
SBESDAT2:=DATSBES2;
PUTREC(LZ.H,FLEV,A)
END;
END;
WRITELN('FORVENTET LEVERINGSUGE');
REPEAT
GOTOXY(25,5);
READLN;READ(FORVLEVU)
UNTIL (IORESULT=0) AND (FORVLEVU>0) AND (FORVLEVU<54);
PUTREC(VZ.H,F,A);
IF IER<>0 THEN ERROR;
WRITELN(LIST,VARENR1:6,' ':2,NAVN(1),R:8:-2,' ':5,LVRNDØR:8,FORVLEVU:5,
KOSTPRIS*R/100:14:2);
R1:=R1+R*KOSTPRIS;
END
END
END
UNTIL I=0;
WRITELN(LIST);
WRITELN(LIST,' ':49,'SAMLET KOSTPRIS',R1/100:14:2);
ICLOSE(VZ.H,F);
ICLOSE(LZ.H,FLEV);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0015 Line {l1=0x13, l2=»PROGRAM BESTILLING;«, l3=0x13}
0x0015…0024 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0024…0032 Line {l1=0x0c, l2=»VPOST=RECORD«, l3=0x0c}
0x0032…0040 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0040…006a Line {l1=0x28, l2=» VARENR1,LVRNDØR,OPRLAND,PAKENHED,«, l3=0x28}
0x006a…00a0 Line {l1=0x34, l2=» FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,«, l3=0x34}
0x00a0…00c3 Line {l1=0x21, l2=» DÆKGRASÅ,ANAFTILG:INTEGER;«, l3=0x21}
0x00c3…00fd Line {l1=0x38, l2=» NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x38}
0x00fd…0147 Line {l1=0x48, l2=» PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x48}
0x0147…018f Line {l1=0x46, l2=» RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL«, l3=0x46}
0x018f…0195 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0195…01a3 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x01a3…01b6 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x01b6…01d9 Line {l1=0x21, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x21}
0x01d9…01e0 Line {l1=0x05, l2=» END;«, l3=0x05}
0x01e0…01f1 Line {l1=0x0f, l2=» LEVPOST=RECORD«, l3=0x0f}
0x01f1…0200 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0200…020d Line {l1=0x0b, l2=» NR,«, l3=0x0b}
0x020d…0229 Line {l1=0x1a, l2=» SBESDAT1,SBESDAT2,«, l3=0x1a}
0x0229…0247 Line {l1=0x1c, l2=» LAND1,LAND2:INTEGER;«, l3=0x1c}
0x0247…0271 Line {l1=0x28, l2=» KOSTPFAK:ARRAY(1..5) OF INTEGER;«, l3=0x28}
0x0271…0291 Line {l1=0x1e, l2=» ÅKØB,SÅKØB,SALDO:REAL;«, l3=0x1e}
0x0291…02be Line {l1=0x2b, l2=» NAVN1:PACKED ARRAY (1..40) OF CHAR;«, l3=0x2b}
0x02be…02ce Line {l1=0x0e, l2=» NAVN2,«, l3=0x0e}
0x02ce…02dd Line {l1=0x0d, l2=» ADR1,«, l3=0x0d}
0x02dd…0309 Line {l1=0x2a, l2=» ADR2:PACKED ARRAY (1..30) OF CHAR;«, l3=0x2a}
0x0309…031b Line {l1=0x10, l2=» BETABET,«, l3=0x10}
0x031b…0355 Line {l1=0x38, l2=» LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;«, l3=0x38}
0x0355…038d Line {l1=0x36, l2=» POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;«, l3=0x36}
0x038d…03bf Line {l1=0x30, l2=» TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;«, l3=0x30}
0x03bf…03c5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03c5…03d6 Line {l1=0x0f, l2=» LEVZONE=RECORD«, l3=0x0f}
0x03d6…03ea Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x03ea…040e Line {l1=0x22, l2=» T:ARRAY(1..382) OF INTEGER«, l3=0x22}
0x040e…0416 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0416…0426 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0426…0447 Line {l1=0x1f, l2=»HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x1f}
0x0447…0462 Line {l1=0x19, l2=»KGB:ARRAY (1..5) OF REAL;«, l3=0x19}
0x0462…0489 Line {l1=0x25, l2=»BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x25}
0x0489…04bc Line {l1=0x31, l2=»KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x31}
0x04bc…04c2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04c2…04dc Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x04dc…04f0 Line {l1=0x12, l2=»VAR FLEV,F:ISF;«, l3=0x12}
0x04f0…0501 Line {l1=0x0f, l2=» CH:CHAR;«, l3=0x0f}
0x0501…0512 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x0512…0526 Line {l1=0x12, l2=» LZ:LEVZONE;«, l3=0x12}
0x0526…053d Line {l1=0x15, l2=» LEVER:LEVPOST;«, l3=0x15}
0x053d…055c Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x055c…0572 Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x0572…0586 Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x0586…059e Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x059e…05be Line {l1=0x1e, l2=» KODE1,KODE2:STRING(10);«, l3=0x1e}
0x05be…05d1 Line {l1=0x11, l2=» R,R1:REAL;«, l3=0x11}
0x05d1…05e7 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x05e7…05ea Line {l1=0x01, l2=» «, l3=0x01}
[…0xc…]
0x060e…0617 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0617…062a Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x062a…0637 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0637…0644 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0644…0654 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0654…0664 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0664…0673 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x0673…0681 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0681…068f Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x068f…069d Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x069d…06ac Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x06ac…06ba Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x06ba…06c3 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x06c3…06cc Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x06cc…06dd Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x06dd…06ed Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x06ed…0704 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0704…0716 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0716…071d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x071d…0741 Line {l1=0x22, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x22}
0x0741…0754 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x0754…076a Line {l1=0x14, l2=» ICLOSE(LZ.H,FLEV);«, l3=0x14}
0x076a…0785 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x0785…078d Line {l1=0x06, l2=» STOP«, l3=0x06}
0x078d…0793 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0793…079a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x079a…07bc Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x07bc…07d4 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x07d4…07e4 Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x07e4…0818 Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x0818…0830 Line {l1=0x16, l2=» IOPEN(VZ.H,F,SKRIV);«, l3=0x16}
0x0830…0852 Line {l1=0x20, l2=» FILNAVN2:='LEVERRG:P2:0000:I';«, l3=0x20}
0x0852…086d Line {l1=0x19, l2=» REWRITE(FLEV,FILNAVN2);«, l3=0x19}
0x086d…089d Line {l1=0x2e, l2=» IOPEN(LZ.H,FLEV,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x089d…08bb Line {l1=0x1c, l2=» FILNAVN1:='SYSREG:P2:1:I';«, l3=0x1c}
0x08bb…08d8 Line {l1=0x1b, l2=» REWRITE(SYSFIL,FILNAVN1);«, l3=0x1b}
0x08d8…08eb Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x08eb…08fb Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x08fb…0903 Line {l1=0x06, l2=»R1:=0;«, l3=0x06}
0x0903…0944 Line {l1=0x3f, l2=»WRITELN(LIST,'BESTILTE VARER',' ':44,SYSFIL^.HELTAL(1)*10000.0+«, l3=0x3f}
0x0944…0984 Line {l1=0x3e, l2=» SYSFIL^.HELTAL(2):10:-2);«, l3=0x3e}
0x0984…0994 Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x0994…09db Line {l1=0x45, l2=»WRITELN(LIST,'VARENR ','VARENAVN',' ':25,'ANTAL',' ':3,'LEVERANDØR',«, l3=0x45}
0x09db…0a04 Line {l1=0x27, l2=» ' LEVUGE',' KOSTPRIS');«, l3=0x27}
0x0a04…0a2d Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x0a2d…0a35 Line {l1=0x06, l2=»REPEAT«, l3=0x06}
0x0a35…0a45 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0a45…0a65 Line {l1=0x1e, l2=» WRITELN('VAREBESTILLINGER');«, l3=0x1e}
0x0a65…0a87 Line {l1=0x20, l2=» WRITELN('VARENR, 0 FOR SLUT');«, l3=0x20}
0x0a87…0a91 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0a91…0aa4 Line {l1=0x11, l2=» GOTOXY(20,2);«, l3=0x11}
0x0aa4…0ab8 Line {l1=0x12, l2=» READLN;READ(I)«, l3=0x12}
0x0ab8…0acd Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x0acd…0ae9 Line {l1=0x1a, l2=» IF I>0 THEN WITH VARE DO«, l3=0x1a}
0x0ae9…0af2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0af2…0b03 Line {l1=0x0f, l2=» VARENR1:=I;«, l3=0x0f}
0x0b03…0b1a Line {l1=0x15, l2=» GETREC(VZ.H,F,A);«, l3=0x15}
0x0b1a…0b4b Line {l1=0x2f, l2=» IF IER=-6 THEN WRITELN('VAREN FINDES IKKE')«, l3=0x2f}
0x0b4b…0b55 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0b55…0b60 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b60…0b7d Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR;«, l3=0x1b}
0x0b7d…0bb2 Line {l1=0x33, l2=» WRITELN(NAVN(1),' ':10,'RIGTIG VARE? (J/N)');«, l3=0x33}
0x0bb2…0bc0 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x0bc0…0bd7 Line {l1=0x15, l2=» GOTOXY(60,3);«, l3=0x15}
0x0bd7…0bf0 Line {l1=0x17, l2=» READLN;READ(CH)«, l3=0x17}
0x0bf0…0c26 Line {l1=0x34, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N'));«, l3=0x34}
0x0c26…0c3c Line {l1=0x14, l2=» IF CH='J' THEN«, l3=0x14}
0x0c3c…0c49 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c49…0c64 Line {l1=0x19, l2=» WRITELN('ANTAL');«, l3=0x19}
0x0c64…0c74 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0c74…0c8d Line {l1=0x17, l2=» GOTOXY(10,4);«, l3=0x17}
0x0c8d…0ca7 Line {l1=0x18, l2=» READLN;READ(R)«, l3=0x18}
0x0ca7…0cce Line {l1=0x25, l2=» UNTIL (IORESULT=0) AND (R>0);«, l3=0x25}
0x0cce…0ce9 Line {l1=0x19, l2=» IORDRE:=IORDRE+R;«, l3=0x19}
0x0ce9…0cff Line {l1=0x14, l2=» STASBEST:=R;«, l3=0x14}
0x0cff…0d25 Line {l1=0x24, l2=» DATSBES1:=SYSFIL^.HELTAL(1);«, l3=0x24}
0x0d25…0d4b Line {l1=0x24, l2=» DATSBES2:=SYSFIL^.HELTAL(2);«, l3=0x24}
0x0d4b…0d62 Line {l1=0x15, l2=» WITH LEVER DO«, l3=0x15}
0x0d62…0d71 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0d71…0d89 Line {l1=0x16, l2=» NR:=LVRNDØR;«, l3=0x16}
0x0d89…0da9 Line {l1=0x1e, l2=» GETREC(LZ.H,FLEV,A);«, l3=0x1e}
0x0da9…0dc3 Line {l1=0x18, l2=» IF IER=-6 THEN«, l3=0x18}
0x0dc3…0dfa Line {l1=0x35, l2=» WRITELN('LEVERANDØREN ER IKKE OPRETTET')«, l3=0x35}
0x0dfa…0e0a Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x0e0a…0e1b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0e1b…0e3e Line {l1=0x21, l2=» IF IER<>0 THEN ERROR;«, l3=0x21}
0x0e3e…0e5f Line {l1=0x1f, l2=» SBESDAT1:=DATSBES1;«, l3=0x1f}
0x0e5f…0e80 Line {l1=0x1f, l2=» SBESDAT2:=DATSBES2;«, l3=0x1f}
0x0e80…0ea1 Line {l1=0x1f, l2=» PUTREC(LZ.H,FLEV,A)«, l3=0x1f}
0x0ea1…0eb1 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0eb1…0ebf Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0ebf…0eeb Line {l1=0x2a, l2=» WRITELN('FORVENTET LEVERINGSUGE');«, l3=0x2a}
0x0eeb…0efb Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0efb…0f14 Line {l1=0x17, l2=» GOTOXY(25,5);«, l3=0x17}
0x0f14…0f35 Line {l1=0x1f, l2=» READLN;READ(FORVLEVU)«, l3=0x1f}
0x0f35…0f75 Line {l1=0x3e, l2=» UNTIL (IORESULT=0) AND (FORVLEVU>0) AND (FORVLEVU<54);«, l3=0x3e}
0x0f75…0f90 Line {l1=0x19, l2=» PUTREC(VZ.H,F,A);«, l3=0x19}
0x0f90…0faf Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x0faf…0ffa Line {l1=0x49, l2=» WRITELN(LIST,VARENR1:6,' ':2,NAVN(1),R:8:-2,' ':5,LVRNDØR:8,FORVLEVU:5,«, l3=0x49}
0x0ffa…1020 Line {l1=0x24, l2=» KOSTPRIS*R/100:14:2);«, l3=0x24}
0x1020…1036 Line {l1=0x14, l2=» R1:=R1+R*KOSTPRIS;«, l3=0x14}
0x1036…1041 Line {l1=0x09, l2=» END«, l3=0x09}
0x1041…104a Line {l1=0x07, l2=» END«, l3=0x07}
0x104a…1051 Line {l1=0x05, l2=» END«, l3=0x05}
0x1051…105d Line {l1=0x0a, l2=»UNTIL I=0;«, l3=0x0a}
0x105d…106f Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x106f…10a6 Line {l1=0x35, l2=» WRITELN(LIST,' ':49,'SAMLET KOSTPRIS',R1/100:14:2);«, l3=0x35}
0x10a6…10b9 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x10b9…10cf Line {l1=0x14, l2=» ICLOSE(LZ.H,FLEV);«, l3=0x14}
0x10cf…10df Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x10df…10fa Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x10fa…1120 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1120…1126 Line {l1=0x04, l2=»END.«, l3=0x04}
0x1126…1140 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 ┆ cccccccccccccccccccccccc┆
0x1140…1160 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┆
[…0x10…]
0x1360…1380 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 ┆