|
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: 12896 (0x3260)
Types: TextFile
Notes: Mikados_K
Names: »VARLAB.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VARLAB.K«
PROGRAM VARELABELS;
(*$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;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR F:ISF;
VZ:ZONE;
NRPF,CF:NPFILE;
QUQ:^INTEGER;
FILNAVN2:STRING(20);
IER,I:INTEGER;
VARE:VPOST;
(*$R-,L-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$R+,L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I VAREREG ',IER);
ICLOSE(VZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
END;
BEGIN
FILNAVN2:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FILNAVN2);
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);
FILNAVN2:='REGVARE:P1:1137:I';
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IOPEN(VZ.H,F,LÆS);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
WITH VARE DO
BEGIN
VARENR1:=0;
I:=0;
NEXTREC(VZ.H,F,A);
REPEAT
WRITELN(LIST);WRITELN(LIST);
WRITELN(LIST,' VENDOR VENDOR VENDOR');
WRITELN(LIST,'vnr',VARENR1:7,' vnr',VARENR1:7,' vnr',VARENR1:7);
WRITELN(LIST,'pkn',PAKENHED:7,' pkn',PAKENHED:7,' pkn',PAKENHED:7);
WRITELN(LIST,'dkr',PRIS/100:7:2,' dkr',PRIS/100:7:2,' dkr',PRIS/100:7:2);
NEXTREC(VZ.H,F,A)
UNTIL IER<>0;
END;
ICLOSE(VZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0015 Line {l1=0x13, l2=»PROGRAM VARELABELS;«, 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=»PROCSTAT=RECORD«, l3=0x0f}
0x01f1…020d Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x020d…0213 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0213…022d Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x022d…023c Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x023c…024d Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x024d…0265 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x0265…027b Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x027b…0298 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0298…02ae Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x02ae…02c2 Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x02c2…02d8 Line {l1=0x14, l2=»(*$R-,L-,IEXCOMCOP*)«, l3=0x14}
0x02d8…02e5 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x02e5…02f5 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x02f5…0305 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0305…0313 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0313…0322 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0322…032e Line {l1=0x0a, l2=»(*$R+,L+*)«, l3=0x0a}
0x032e…033f Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x033f…034f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x034f…0366 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0366…0378 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0378…037f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x037f…03a2 Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x03a2…03b5 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x03b5…03d0 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x03d0…03d8 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x03d8…03de Line {l1=0x04, l2=»END;«, l3=0x04}
0x03de…03e5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03e5…0405 Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x0405…040e Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x040e…0418 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0418…0435 Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x0435…0447 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x0447…045c Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x045c…0465 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x0465…0473 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x0473…0483 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x0483…0494 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x0494…04a2 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x04a2…04ac Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x04ac…04bf Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x04bf…04f4 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x04f4…0501 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x0501…050a Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x050a…0528 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x0528…0538 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x0538…0541 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x0541…0556 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x0556…0564 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x0564…0574 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x0574…0596 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x0596…05ae Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x05ae…05be Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x05be…05f2 Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x05f2…0608 Line {l1=0x14, l2=» IOPEN(VZ.H,F,LÆS);«, l3=0x14}
0x0608…0631 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x0631…063f Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x063f…0646 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0646…0655 Line {l1=0x0d, l2=» VARENR1:=0;«, l3=0x0d}
0x0655…065e Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x065e…0674 Line {l1=0x14, l2=» NEXTREC(VZ.H,F,A);«, l3=0x14}
0x0674…067e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x067e…069c Line {l1=0x1c, l2=»WRITELN(LIST);WRITELN(LIST);«, l3=0x1c}
0x069c…06cf Line {l1=0x31, l2=»WRITELN(LIST,' VENDOR VENDOR VENDOR');«, l3=0x31}
0x06cf…0713 Line {l1=0x42, l2=»WRITELN(LIST,'vnr',VARENR1:7,' vnr',VARENR1:7,' vnr',VARENR1:7);«, l3=0x42}
0x0713…075a Line {l1=0x45, l2=»WRITELN(LIST,'pkn',PAKENHED:7,' pkn',PAKENHED:7,' pkn',PAKENHED:7);«, l3=0x45}
0x075a…07a7 Line {l1=0x4b, l2=»WRITELN(LIST,'dkr',PRIS/100:7:2,' dkr',PRIS/100:7:2,' dkr',PRIS/100:7:2);«, l3=0x4b}
0x07a7…07bd Line {l1=0x14, l2=» NEXTREC(VZ.H,F,A)«, l3=0x14}
0x07bd…07ce Line {l1=0x0f, l2=» UNTIL IER<>0;«, l3=0x0f}
0x07ce…07d4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07d4…07e7 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x07e7…07f7 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x07f7…0816 Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x0816…083c Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x083c…0842 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0842…0860 00 00 31 20 52 45 53 45 52 56 45 52 45 54 2c 20 46 59 53 49 53 4b 20 4c 41 47 45 52 27 29 ┆ 1 RESERVERET, FYSISK LAGER')┆
0x0860…0880 3b 47 4f 54 4f 58 59 28 33 30 2c 31 31 29 3b 57 52 49 54 45 4c 4e 28 48 4a 20 20 20 20 20 20 20 ┆;GOTOXY(30,11);WRITELN(HJ ┆
0x0880…08a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08a0…08c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 52 55 4e 43 28 52 45 53 41 46 4c 41 47 29 3a 31 ┆ TRUNC(RESAFLAG):1┆
0x08c0…08e0 30 29 3b 4a 04 45 4e 44 3b 04 04 45 4e 44 3b 04 04 45 4e 44 3b 04 0e 50 52 4f 43 45 44 55 52 45 ┆0);J END; END; END; PROCEDURE┆
0x08e0…0900 20 50 52 32 3b 0e 05 42 45 47 49 4e 05 0c 57 49 54 48 20 56 41 52 45 20 44 4f 0c 09 43 41 53 45 ┆ PR2; BEGIN WITH VARE DO CASE┆
0x0900…0920 20 4f 20 4f 46 09 08 31 32 3a 42 45 47 49 4e 08 35 47 4f 54 4f 58 59 28 31 2c 31 32 29 3b 57 52 ┆ O OF 12:BEGIN 5GOTOXY(1,12);WR┆
0x0920…0940 49 54 45 28 27 31 32 20 4d 49 4e 49 4d 55 4d 53 4c 41 47 45 52 27 29 3b 47 4f 54 4f 58 59 28 33 ┆ITE('12 MINIMUMSLAGER');GOTOXY(3┆
0x0940…0960 30 2c 31 32 29 3b 35 1c 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 4d 49 4e 4c 41 47 45 52 29 3a ┆0,12);5 WRITELN(TRUNC(MINLAGER):┆
0x0960…0980 31 30 29 3b 1c 04 45 4e 44 3b 04 08 31 33 3a 42 45 47 49 4e 08 49 47 4f 54 4f 58 59 28 31 2c 31 ┆10); END; 13:BEGIN IGOTOXY(1,1┆
0x0980…09a0 33 29 3b 57 52 49 54 45 28 27 31 33 20 49 20 4f 52 44 52 45 27 29 3b 47 4f 54 4f 58 59 28 33 30 ┆3);WRITE('13 I ORDRE');GOTOXY(30┆
0x09a0…09c0 2c 31 33 29 3b 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 49 4f 52 44 52 45 29 3a 31 30 29 3b 49 ┆,13);WRITELN(TRUNC(IORDRE):10);I┆
0x09c0…09e0 04 45 4e 44 3b 04 08 31 34 3a 42 45 47 49 4e 08 38 47 4f 54 4f 58 59 28 31 2c 31 34 29 3b 57 52 ┆ END; 14:BEGIN 8GOTOXY(1,14);WR┆
0x09e0…0a00 49 54 45 28 27 31 34 20 48 45 52 41 46 20 52 45 53 45 52 56 45 52 45 54 27 29 3b 47 4f 54 4f 58 ┆ITE('14 HERAF RESERVERET');GOTOX┆
0x0a00…0a20 59 28 33 30 2c 31 34 29 3b 38 04 45 4e 44 3b 04 08 31 35 3a 42 45 47 49 4e 08 1c 57 52 49 54 45 ┆Y(30,14);8 END; 15:BEGIN WRITE┆
0x0a20…0a40 4c 4e 28 54 52 55 4e 43 28 52 41 49 4f 52 44 52 45 29 3a 31 30 29 3b 1c 4c 47 4f 54 4f 58 59 28 ┆LN(TRUNC(RAIORDRE):10); LGOTOXY(┆
0x0a40…0a60 35 30 2c 31 34 29 3b 57 52 49 54 45 28 27 31 35 20 46 4f 52 56 2e 20 4c 45 56 2e 20 55 47 45 27 ┆50,14);WRITE('15 FORV. LEV. UGE'┆
0x0a60…0a80 29 3b 47 4f 54 4f 58 59 28 36 37 2c 31 34 29 3b 57 52 49 54 45 4c 4e 28 46 4f 52 56 4c 45 56 55 ┆);GOTOXY(67,14);WRITELN(FORVLEVU┆
0x0a80…0aa0 3a 31 30 29 3b 4c 04 45 4e 44 3b 04 08 31 36 3a 42 45 47 49 4e 08 49 47 4f 54 4f 58 59 28 31 2c ┆:10);L END; 16:BEGIN IGOTOXY(1,┆
0x0aa0…0ac0 31 35 29 3b 57 52 49 54 45 28 27 31 36 20 53 54 5c 52 52 45 4c 53 45 20 41 46 20 53 49 44 53 54 ┆15);WRITE('16 STØRRELSE AF SIDST┆
0x0ac0…0ae0 45 20 42 45 53 54 2e 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 35 29 3b 57 52 49 54 45 4c 4e 28 ┆E BEST.');GOTOXY(30,15);WRITELN(┆
0x0ae0…0b00 49 14 54 52 55 4e 43 28 53 54 41 53 42 45 53 54 29 3a 31 30 29 3b 14 04 45 4e 44 3b 04 08 31 37 ┆I TRUNC(STASBEST):10); END; 17┆
0x0b00…0b20 3a 42 45 47 49 4e 08 33 47 4f 54 4f 58 59 28 35 30 2c 31 35 29 3b 57 52 49 54 45 28 27 31 37 20 ┆:BEGIN 3GOTOXY(50,15);WRITE('17 ┆
0x0b20…0b40 53 49 44 53 54 20 42 45 53 54 27 29 3b 47 4f 54 4f 58 59 28 36 37 2c 31 35 29 3b 33 1f 57 52 49 ┆SIDST BEST');GOTOXY(67,15);3 WRI┆
0x0b40…0b60 54 45 4c 4e 28 44 41 54 53 42 45 53 31 3a 35 2c 44 41 54 53 42 45 53 32 3a 35 29 3b 1f 04 45 4e ┆TELN(DATSBES1:5,DATSBES2:5); EN┆
0x0b60…0b80 44 3b 04 08 31 38 3a 42 45 47 49 4e 08 3b 47 4f 54 4f 58 59 28 31 2c 31 36 29 3b 57 52 49 54 45 ┆D; 18:BEGIN ;GOTOXY(1,16);WRITE┆
0x0b80…0ba0 28 27 31 38 20 53 49 44 53 54 20 53 4f 4c 47 54 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 36 29 ┆('18 SIDST SOLGT');GOTOXY(30,16)┆
0x0ba0…0bc0 3b 57 52 49 54 45 4c 4e 28 3b 17 44 41 54 53 4f 52 44 31 3a 35 2c 44 41 54 53 4f 52 44 32 3a 35 ┆;WRITELN(; DATSORD1:5,DATSORD2:5┆
0x0bc0…0be0 29 3b 17 04 45 4e 44 3b 04 18 31 39 3a 20 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 ┆); END; 19: IF KODE>0 THEN BEG┆
0x0be0…0c00 49 4e 18 32 47 4f 54 4f 58 59 28 31 2c 31 37 29 3b 57 52 49 54 45 28 27 31 39 20 53 4f 4c 47 54 ┆IN 2GOTOXY(1,17);WRITE('19 SOLGT┆
0x0c00…0c20 20 49 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 37 29 3b 32 1c 57 52 49 54 45 4c 4e 28 ┆ I ÅR');GOTOXY(30,17);2 WRITELN(┆
0x0c20…0c40 54 52 55 4e 43 28 41 53 4f 4c 47 54 49 5d 29 3a 31 30 29 3b 1c 04 45 4e 44 3b 04 18 32 30 3a 20 ┆TRUNC(ASOLGTIÅ):10); END; 20: ┆
0x0c40…0c60 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 34 47 4f 54 4f 58 59 28 35 30 2c ┆IF KODE>0 THEN BEGIN 4GOTOXY(50,┆
0x0c60…0c80 31 37 29 3b 57 52 49 54 45 28 27 32 30 20 53 4f 4c 47 54 20 53 2e 20 5d 52 27 29 3b 47 4f 54 4f ┆17);WRITE('20 SOLGT S. ÅR');GOTO┆
0x0c80…0ca0 58 59 28 36 37 2c 31 37 29 3b 34 1c 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 41 53 4f 4c 47 54 ┆XY(67,17);4 WRITELN(TRUNC(ASOLGT┆
0x0ca0…0cc0 53 5d 29 3a 31 30 29 3b 1c 04 45 4e 44 3b 04 18 32 31 3a 20 49 46 20 4b 4f 44 45 3e 30 20 54 48 ┆SÅ):10); END; 21: IF KODE>0 TH┆
0x0cc0…0ce0 45 4e 20 42 45 47 49 4e 18 31 47 4f 54 4f 58 59 28 31 2c 31 38 29 3b 57 52 49 54 45 28 27 32 31 ┆EN BEGIN 1GOTOXY(1,18);WRITE('21┆
0x0ce0…0d00 20 4f 4d 53 2e 20 49 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 38 29 3b 31 1a 57 52 49 ┆ OMS. I ÅR');GOTOXY(30,18);1 WRI┆
0x0d00…0d20 54 45 4c 4e 28 54 52 55 4e 43 28 4f 4d 53 49 5d 52 29 3a 31 30 29 3b 1a 2e 49 46 20 28 50 52 49 ┆TELN(TRUNC(OMSIÅR):10); .IF (PRI┆
0x0d20…0d40 4d 4f 4c 41 47 2b 46 59 53 4c 41 47 45 52 3c 3e 30 29 20 41 4e 44 20 28 4f 4d 53 49 5d 52 3c 3e ┆MOLAG+FYSLAGER<>0) AND (OMSIÅR<>┆
0x0d40…0d60 30 29 20 54 48 45 4e 2e 05 42 45 47 49 4e 05 0d 47 4f 54 4f 58 59 28 35 30 2c 31 29 3b 0d 41 57 ┆0) THEN. BEGIN GOTOXY(50,1); AW┆
0x0d60…0d80 52 49 54 45 4c 4e 28 27 47 4f 44 54 20 54 41 4c 20 27 2c 28 50 52 49 4d 4f 4c 41 47 2b 46 59 53 ┆RITELN('GODT TAL ',(PRIMOLAG+FYS┆
0x0d80…0da0 4c 41 47 45 52 29 2a 44 5b 4b 42 49 44 54 44 2f 28 32 2a 4f 4d 53 49 5d 52 29 3a 31 32 3a 33 29 ┆LAGER)*DÆKBIDTD/(2*OMSIÅR):12:3)┆
0x0da0…0dc0 41 04 45 4e 44 3b 04 04 45 4e 44 3b 04 18 32 32 3a 20 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e ┆A END; END; 22: IF KODE>0 THEN┆
0x0dc0…0de0 20 42 45 47 49 4e 18 4d 47 4f 54 4f 58 59 28 35 30 2c 31 38 29 3b 57 52 49 54 45 28 27 32 32 20 ┆ BEGIN MGOTOXY(50,18);WRITE('22 ┆
0x0de0…0e00 4f 4d 53 2e 20 53 2e 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 36 37 2c 31 38 29 3b 57 52 49 54 45 ┆OMS. S. ÅR');GOTOXY(67,18);WRITE┆
0x0e00…0e20 4c 4e 28 54 52 55 4e 43 28 4f 4d 53 53 5d 52 29 3a 31 30 29 3b 4d 04 45 4e 44 3b 04 18 32 33 3a ┆LN(TRUNC(OMSSÅR):10);M END; 23:┆
0x0e20…0e40 20 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 47 47 4f 54 4f 58 59 28 31 2c ┆ IF KODE>0 THEN BEGIN GGOTOXY(1,┆
0x0e40…0e60 31 39 29 3b 57 52 49 54 45 28 27 32 33 20 44 5b 4b 4e 49 4e 47 53 42 49 44 52 41 47 20 54 49 4c ┆19);WRITE('23 DÆKNINGSBIDRAG TIL┆
0x0e60…0e80 20 44 41 54 4f 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 39 29 3b 57 52 49 54 45 4c 4e 28 47 14 ┆ DATO');GOTOXY(30,19);WRITELN(G ┆
0x0e80…0ea0 54 52 55 4e 43 28 44 5b 4b 42 49 44 54 44 29 3a 31 30 29 3b 14 04 45 4e 44 3b 04 18 32 34 3a 20 ┆TRUNC(DÆKBIDTD):10); END; 24: ┆
0x0ea0…0ec0 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 4c 47 4f 54 4f 58 59 28 35 30 2c ┆IF KODE>0 THEN BEGIN LGOTOXY(50,┆
0x0ec0…0ee0 31 39 29 3b 57 52 49 54 45 28 27 32 34 20 44 5b 4b 2e 47 52 41 44 20 53 2e 20 5d 52 27 29 3b 47 ┆19);WRITE('24 DÆK.GRAD S. ÅR');G┆
0x0ee0…0f00 4f 54 4f 58 59 28 36 37 2c 31 39 29 3b 57 52 49 54 45 4c 4e 28 44 5b 4b 47 52 41 53 5d 3a 31 30 ┆OTOXY(67,19);WRITELN(DÆKGRASÅ:10┆
0x0f00…0f20 29 3b 4c 04 45 4e 44 3b 04 08 32 35 3a 42 45 47 49 4e 08 46 47 4f 54 4f 58 59 28 31 2c 32 30 29 ┆);L END; 25:BEGIN FGOTOXY(1,20)┆
0x0f20…0f40 3b 57 52 49 54 45 28 27 32 35 20 41 4e 44 52 45 20 41 46 47 41 4e 47 45 2d 54 49 4c 47 41 4e 47 ┆;WRITE('25 ANDRE AFGANGE-TILGANG┆
0x0f40…0f60 45 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 32 30 29 3b 57 52 49 54 45 4c 4e 28 46 0d 41 4e 41 46 ┆E');GOTOXY(30,20);WRITELN(F ANAF┆
0x0f60…0f80 54 49 4c 47 3a 31 30 29 3b 0d 04 45 4e 44 3b 04 03 45 4e 44 03 04 45 4e 44 3b 04 05 42 45 47 49 ┆TILG:10); END; END END; BEGI┆
0x0f80…0fa0 4e 05 0e 20 20 49 46 20 4f 3c 3e 30 20 54 48 45 4e 0e 07 20 20 42 45 47 49 4e 07 22 20 20 20 20 ┆N IF O<>0 THEN BEGIN " ┆
0x0fa0…0fc0 49 46 20 28 31 3c 3d 4f 29 20 41 4e 44 20 28 4f 3c 3d 31 31 29 20 54 48 45 4e 20 50 52 31 22 08 ┆IF (1<=O) AND (O<=11) THEN PR1" ┆
0x0fc0…0fe0 20 20 20 20 45 4c 53 45 08 23 20 20 20 20 49 46 20 28 31 32 3c 3d 4f 29 20 41 4e 44 20 28 4f 3c ┆ ELSE # IF (12<=O) AND (O<┆
0x0fe0…1000 3d 32 35 29 20 54 48 45 4e 20 50 52 32 23 08 20 20 20 20 45 4c 53 45 08 09 20 20 20 20 42 45 47 ┆=25) THEN PR2# ELSE BEG┆
0x1000…1020 49 4e 09 13 20 20 20 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 13 1d 20 20 20 20 20 20 20 ┆IN CLEARSCREEN; ┆
0x1020…1040 46 4f 52 20 4f 3a 3d 31 20 54 4f 20 31 31 20 44 4f 20 50 52 31 3b 1d 1d 20 20 20 20 20 20 20 46 ┆FOR O:=1 TO 11 DO PR1; F┆
0x1040…1060 4f 52 20 4f 3a 3d 31 32 20 54 4f 20 32 35 20 44 4f 20 50 52 32 1d 07 20 20 20 20 45 4e 44 07 05 ┆OR O:=12 TO 25 DO PR2 END ┆
0x1060…1080 20 20 45 4e 44 05 04 45 4e 44 3b 04 0f 50 52 4f 43 45 44 55 52 45 20 53 54 4f 50 3b 0f 0e 56 41 ┆ END END; PROCEDURE STOP; VA┆
0x1080…10a0 52 20 49 3a 49 4e 54 45 47 45 52 3b 0e 15 42 45 47 49 4e 20 49 3a 3d 49 20 44 49 56 20 30 20 45 ┆R I:INTEGER; BEGIN I:=I DIV 0 E┆
0x10a0…10c0 4e 44 3b 15 1d 50 52 4f 43 45 44 55 52 45 20 56 41 52 45 4f 50 4c 28 4f 3a 49 4e 54 45 47 45 52 ┆ND; PROCEDURE VAREOPL(O:INTEGER┆
0x10c0…10e0 29 3b 1d 12 56 41 52 20 53 54 52 45 4e 47 3a 53 54 52 49 4e 47 3b 12 0e 20 20 20 20 49 3a 49 4e ┆); VAR STRENG:STRING; I:IN┆
0x10e0…1100 54 45 47 45 52 3b 0e 1f 46 55 4e 43 54 49 4f 4e 20 4c 5b 53 28 58 2c 59 3a 49 4e 54 45 47 45 52 ┆TEGER; FUNCTION LÆS(X,Y:INTEGER┆
0x1100…1120 29 3a 52 45 41 4c 3b 1f 0d 56 41 52 20 52 45 53 3a 52 45 41 4c 3b 0d 05 42 45 47 49 4e 05 08 20 ┆):REAL; VAR RES:REAL; BEGIN ┆
0x1120…1140 20 52 45 50 45 41 54 08 13 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 58 2c 59 29 3b 13 0e 20 20 ┆ REPEAT GOTOXY(X,Y); ┆
0x1140…1160 20 20 20 20 20 52 45 41 44 4c 4e 3b 0e 10 20 20 20 20 20 20 20 52 45 41 44 28 52 45 53 29 10 13 ┆ READLN; READ(RES) ┆
0x1160…1180 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 13 0a 20 20 4c 5b 53 3a 3d 52 45 53 0a ┆ UNTIL IORESULT=0; LÆS:=RES ┆
0x1180…11a0 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 0e 20 20 57 49 54 48 20 56 41 52 45 20 44 4f 0e 0b 20 20 ┆ END; BEGIN WITH VARE DO ┆
0x11a0…11c0 43 41 53 45 20 4f 20 4f 46 0b 0d 20 20 20 20 31 3a 20 52 45 50 45 41 54 0d 28 20 20 20 20 20 20 ┆CASE O OF 1: REPEAT ( ┆
0x11c0…11e0 20 47 4f 54 4f 58 59 28 32 30 2c 31 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 56 41 52 45 4e 52 ┆ GOTOXY(20,1);READLN;READ(VARENR┆
0x11e0…1200 31 29 28 40 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 56 41 52 45 4e 52 31 3e 39 39 39 29 20 41 ┆1)(@ UNTIL (VARENR1>999) A┆
0x1200…1220 4e 44 20 28 56 41 52 45 4e 52 31 3c 31 30 30 30 30 29 20 41 4e 44 20 28 49 4f 52 45 53 55 4c 54 ┆ND (VARENR1<10000) AND (IORESULT┆
0x1220…1240 3d 30 29 3b 40 13 20 20 20 20 32 3a 20 42 45 47 49 4e 20 52 45 50 45 41 54 13 27 20 20 20 20 20 ┆=0);@ 2: BEGIN REPEAT ' ┆
0x1240…1260 20 20 47 4f 54 4f 58 59 28 33 30 2c 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 53 54 52 45 4e ┆ GOTOXY(30,2);READLN;READ(STREN┆
0x1260…1280 47 29 27 1f 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4c 45 4e 47 54 48 28 53 54 52 45 4e 47 29 3c ┆G)' UNTIL LENGTH(STRENG)<┆
0x1280…12a0 33 31 3b 1f 3f 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 4c 45 4e 47 54 48 28 ┆31; ? FOR I:= 1 TO LENGTH(┆
0x12a0…12c0 53 54 52 45 4e 47 29 20 44 4f 20 4e 41 56 4e 28 31 2c 49 29 3a 3d 53 54 52 45 4e 47 28 49 29 20 ┆STRENG) DO NAVN(1,I):=STRENG(I) ┆
0x12c0…12e0 45 4e 44 3b 3f 13 20 20 20 20 33 3a 20 42 45 47 49 4e 20 52 45 50 45 41 54 13 27 20 20 20 20 20 ┆END;? 3: BEGIN REPEAT ' ┆
0x12e0…1300 20 20 47 4f 54 4f 58 59 28 33 30 2c 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 53 54 52 45 4e ┆ GOTOXY(30,3);READLN;READ(STREN┆
0x1300…1320 47 29 27 1f 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4c 45 4e 47 54 48 28 53 54 52 45 4e 47 29 3c ┆G)' UNTIL LENGTH(STRENG)<┆
0x1320…1340 33 31 3b 1f 3e 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4c 45 4e 47 54 48 28 53 ┆31; > FOR I:=1 TO LENGTH(S┆
0x1340…1360 54 52 45 4e 47 29 20 44 4f 20 4e 41 56 4e 28 32 2c 49 29 3a 3d 53 54 52 45 4e 47 28 49 29 20 45 ┆TRENG) DO NAVN(2,I):=STRENG(I) E┆
0x1360…1380 4e 44 3b 3e 07 20 20 20 20 34 3a 20 07 14 50 52 49 53 3a 3d 4c 5b 53 28 32 30 2c 34 29 2a 31 30 ┆ND;> 4: PRIS:=LÆS(20,4)*10┆
0x1380…13a0 30 3b 14 07 20 20 20 20 35 3a 20 07 18 4b 4f 53 54 50 52 49 53 3a 3d 4c 5b 53 28 32 30 2c 35 29 ┆0; 5: KOSTPRIS:=LÆS(20,5)┆
0x13a0…13c0 2a 31 30 30 3b 18 0d 20 20 20 20 36 3a 20 52 45 50 45 41 54 0d 28 20 20 20 20 20 20 20 47 4f 54 ┆*100; 6: REPEAT ( GOT┆
0x13c0…13e0 4f 58 59 28 32 30 2c 36 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4c 56 52 4e 44 5c 52 29 28 3f ┆OXY(20,6);READLN;READ(LVRNDØR)(?┆
0x13e0…1400 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 4c ┆ UNTIL (IORESULT=0) AND (L┆
0x1400…1420 56 52 4e 44 5c 52 3e 3d 31 29 20 41 4e 44 20 28 4c 56 52 4e 44 5c 52 3c 31 30 30 30 30 29 3b 3f ┆VRNDØR>=1) AND (LVRNDØR<10000);?┆
0x1420…1440 0d 20 20 20 20 37 3a 20 52 45 50 45 41 54 0d 28 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 30 ┆ 7: REPEAT ( GOTOXY(20┆
0x1440…1460 2c 37 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 50 52 4c 41 4e 44 29 28 3d 20 20 20 20 20 20 ┆,7);READLN;READ(OPRLAND)(= ┆
0x1460…1480 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 4f 50 52 4c 41 4e 44 ┆ UNTIL (IORESULT=0) AND (OPRLAND┆
0x1480…14a0 3e 3d 30 29 20 41 4e 44 20 28 4f 50 52 4c 41 4e 44 3c 31 30 30 29 3b 3d 0c 20 20 20 20 38 3a 20 ┆>=0) AND (OPRLAND<100);= 8: ┆
0x14a0…14c0 42 45 47 49 4e 0c 13 54 4f 4c 44 50 4e 52 3a 3d 4c 5b 53 28 32 30 2c 38 29 3b 13 1c 20 20 20 20 ┆BEGIN TOLDPNR:=LÆS(20,8); ┆
0x14c0…14e0 20 20 20 54 4f 4c 44 50 4e 52 3a 3d 54 4f 4c 44 50 4e 52 2a 31 30 30 30 1c 0b 20 20 20 20 20 20 ┆ TOLDPNR:=TOLDPNR*1000 ┆
0x14e0…1500 20 45 4e 44 3b 0b 0d 20 20 20 20 39 3a 20 52 45 50 45 41 54 0d 29 20 20 20 20 20 20 20 47 4f 54 ┆ END; 9: REPEAT ) GOT┆
0x1500…1520 4f 58 59 28 32 30 2c 39 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 50 41 4b 45 4e 48 45 44 29 29 ┆OXY(20,9);READLN;READ(PAKENHED))┆
0x1520…1540 18 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 18 07 20 20 20 31 30 ┆ UNTIL IORESULT=0; 10┆
0x1540…1560 3a 20 07 15 46 59 53 4c 41 47 45 52 3a 3d 4c 5b 53 28 32 30 2c 31 30 29 3b 15 07 20 20 20 31 31 ┆: FYSLAGER:=LÆS(20,10); 11┆
0x1560…1580 3a 20 07 15 52 45 53 41 46 4c 41 47 3a 3d 4c 5b 53 28 32 30 2c 31 31 29 3b 15 07 20 20 20 31 32 ┆: RESAFLAG:=LÆS(20,11); 12┆
0x1580…15a0 3a 20 07 15 4d 49 4e 4c 41 47 45 52 3a 3d 4c 5b 53 28 32 30 2c 31 32 29 3b 15 07 20 20 20 31 33 ┆: MINLAGER:=LÆS(20,12); 13┆
0x15a0…15c0 3a 20 07 13 49 4f 52 44 52 45 3a 3d 4c 5b 53 28 32 30 2c 31 33 29 3b 13 07 20 20 20 31 34 3a 20 ┆: IORDRE:=LÆS(20,13); 14: ┆
0x15c0…15e0 07 15 52 41 49 4f 52 44 52 45 3a 3d 4c 5b 53 28 32 30 2c 31 34 29 3b 15 0d 20 20 20 31 35 3a 20 ┆ RAIORDRE:=LÆS(20,14); 15: ┆
0x15e0…1600 52 45 50 45 41 54 0d 2a 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 36 38 2c 31 34 29 3b 52 45 41 ┆REPEAT * GOTOXY(68,14);REA┆
0x1600…1620 44 4c 4e 3b 52 45 41 44 28 46 4f 52 56 4c 45 56 55 29 2a 3f 20 20 20 20 20 20 20 55 4e 54 49 4c ┆DLN;READ(FORVLEVU)*? UNTIL┆
0x1620…1640 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 46 4f 52 56 4c 45 56 55 3e 3d 30 29 20 ┆ (IORESULT=0) AND (FORVLEVU>=0) ┆
0x1640…1660 41 4e 44 20 28 46 4f 52 56 4c 45 56 55 3c 3d 35 33 29 3b 3f 07 20 20 20 31 36 3a 20 07 15 53 54 ┆AND (FORVLEVU<=53);? 16: ST┆
0x1660…1680 41 53 42 45 53 54 3a 3d 4c 5b 53 28 33 30 2c 31 35 29 3b 15 0d 20 20 20 31 37 3a 20 52 45 50 45 ┆ASBEST:=LÆS(30,15); 17: REPE┆
0x1680…16a0 41 54 0d 33 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 36 38 2c 31 35 29 3b 52 45 41 44 4c 4e 3b ┆AT 3 GOTOXY(68,15);READLN;┆
0x16a0…16c0 52 45 41 44 28 44 41 54 53 42 45 53 31 2c 44 41 54 53 42 45 53 32 29 33 18 20 20 20 20 20 20 20 ┆READ(DATSBES1,DATSBES2)3 ┆
0x16c0…16e0 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 18 0d 20 20 20 31 38 3a 20 52 45 50 45 41 54 ┆UNTIL IORESULT=0; 18: REPEAT┆
0x16e0…1700 0d 33 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 31 2c 31 36 29 3b 52 45 41 44 4c 4e 3b 52 45 ┆ 3 GOTOXY(31,16);READLN;RE┆
0x1700…1720 41 44 28 44 41 54 53 4f 52 44 31 2c 44 41 54 53 4f 52 44 32 29 33 18 20 20 20 20 20 20 20 55 4e ┆AD(DATSORD1,DATSORD2)3 UN┆
0x1720…1740 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 18 07 20 20 20 31 39 3a 20 07 15 41 53 4f 4c 47 54 ┆TIL IORESULT=0; 19: ASOLGT┆
0x1740…1760 49 5d 3a 3d 4c 5b 53 28 33 30 2c 31 37 29 3b 15 06 20 20 20 32 30 3a 06 15 41 53 4f 4c 47 54 53 ┆IÅ:=LÆS(30,17); 20: ASOLGTS┆
0x1760…1780 5d 3a 3d 4c 5b 53 28 36 37 2c 31 37 29 3b 15 07 20 20 20 32 31 3a 20 07 13 4f 4d 53 49 5d 52 3a ┆Å:=LÆS(67,17); 21: OMSIÅR:┆
0x1780…17a0 3d 4c 5b 53 28 33 30 2c 31 38 29 3b 13 07 20 20 20 32 32 3a 20 07 13 4f 4d 53 53 5d 52 3a 3d 4c ┆=LÆS(30,18); 22: OMSSÅR:=L┆
0x17a0…17c0 5b 53 28 36 37 2c 31 38 29 3b 13 07 20 20 20 32 33 3a 20 07 15 44 5b 4b 42 49 44 54 44 3a 3d 4c ┆ÆS(67,18); 23: DÆKBIDTD:=L┆
0x17c0…17e0 5b 53 28 33 30 2c 31 39 29 3b 15 0d 20 20 20 32 34 3a 20 52 45 50 45 41 54 0d 2a 20 20 20 20 20 ┆ÆS(30,19); 24: REPEAT * ┆
0x17e0…1800 20 20 47 4f 54 4f 58 59 28 36 37 2c 31 39 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 44 5b 4b 47 ┆ GOTOXY(67,19);READLN;READ(DÆKG┆
0x1800…1820 52 41 53 5d 29 2a 18 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 18 ┆RASÅ)* UNTIL IORESULT=0; ┆
0x1820…1840 0d 20 20 20 32 35 3a 20 52 45 50 45 41 54 0d 2a 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 30 ┆ 25: REPEAT * GOTOXY(30┆
0x1840…1860 2c 32 30 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 41 4e 41 46 54 49 4c 47 29 2a 17 20 20 20 20 ┆,20);READLN;READ(ANAFTILG)* ┆
0x1860…1880 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 17 07 20 20 20 20 45 4e 44 07 04 45 4e ┆ UNTIL IORESULT=0 END EN┆
0x1880…18a0 44 3b 04 11 50 52 4f 43 45 44 55 52 45 20 5a 45 52 52 45 43 3b 11 05 42 45 47 49 4e 05 0e 20 20 ┆D; PROCEDURE ZERREC; BEGIN ┆
0x18a0…18c0 57 49 54 48 20 56 41 52 45 20 44 4f 0e 07 20 20 42 45 47 49 4e 07 12 20 20 20 20 20 20 20 56 41 ┆WITH VARE DO BEGIN VA┆
0x18c0…18e0 52 45 4e 52 31 3a 3d 30 3b 12 20 20 20 20 20 20 20 20 46 49 4c 4c 43 48 41 52 28 4e 41 56 4e 28 ┆RENR1:=0; FILLCHAR(NAVN(┆
0x18e0…1900 31 29 2c 33 30 2c 27 20 27 29 3b 20 20 20 20 20 20 20 20 20 46 49 4c 4c 43 48 41 52 28 4e 41 56 ┆1),30,' '); FILLCHAR(NAV┆
0x1900…1920 4e 28 32 29 2c 33 30 2c 27 20 27 29 3b 20 11 20 20 20 20 20 20 20 50 52 49 53 3a 3d 30 2e 30 3b ┆N(2),30,' '); PRIS:=0.0;┆
0x1920…1940 11 15 20 20 20 20 20 20 20 4b 4f 53 54 50 52 49 53 3a 3d 30 2e 30 3b 15 12 20 20 20 20 20 20 20 ┆ KOSTPRIS:=0.0; ┆
0x1940…1960 4c 56 52 4e 44 5c 52 3a 3d 30 3b 12 12 20 20 20 20 20 20 20 4f 50 52 4c 41 4e 44 3a 3d 30 3b 12 ┆LVRNDØR:=0; OPRLAND:=0; ┆
0x1960…1980 14 20 20 20 20 20 20 20 54 4f 4c 44 50 4e 52 3a 3d 30 2e 30 3b 14 13 20 20 20 20 20 20 20 50 41 ┆ TOLDPNR:=0.0; PA┆
0x1980…19a0 4b 45 4e 48 45 44 3a 3d 30 3b 13 15 20 20 20 20 20 20 20 46 59 53 4c 41 47 45 52 3a 3d 30 2e 30 ┆KENHED:=0; FYSLAGER:=0.0┆
0x19a0…19c0 3b 15 15 20 20 20 20 20 20 20 50 52 49 4d 4f 4c 41 47 3a 3d 30 2e 30 3b 15 15 20 20 20 20 20 20 ┆; PRIMOLAG:=0.0; ┆
0x19c0…19e0 20 4d 49 4e 4c 41 47 45 52 3a 3d 30 2e 30 3b 15 15 20 20 20 20 20 20 20 52 45 53 41 46 4c 41 47 ┆ MINLAGER:=0.0; RESAFLAG┆
0x19e0…1a00 3a 3d 30 2e 30 3b 15 13 20 20 20 20 20 20 20 49 4f 52 44 52 45 3a 3d 30 2e 30 3b 13 15 20 20 20 ┆:=0.0; IORDRE:=0.0; ┆
0x1a00…1a20 20 20 20 20 52 41 49 4f 52 44 52 45 3a 3d 30 2e 30 3b 15 13 20 20 20 20 20 20 20 46 4f 52 56 4c ┆ RAIORDRE:=0.0; FORVL┆
0x1a20…1a40 45 56 55 3a 3d 30 3b 13 15 20 20 20 20 20 20 20 53 54 41 53 42 45 53 54 3a 3d 30 2e 30 3b 15 1f ┆EVU:=0; STASBEST:=0.0; ┆
0x1a40…1a60 20 20 20 20 20 20 20 44 41 54 53 42 45 53 31 3a 3d 30 3b 44 41 54 53 42 45 53 32 3a 3d 30 3b 1f ┆ DATSBES1:=0;DATSBES2:=0; ┆
0x1a60…1a80 1f 20 20 20 20 20 20 20 44 41 54 53 4f 52 44 31 3a 3d 30 3b 44 41 54 53 4f 52 44 32 3a 3d 30 3b ┆ DATSORD1:=0;DATSORD2:=0;┆
0x1a80…1aa0 1f 15 20 20 20 20 20 20 20 41 53 4f 4c 47 54 49 5d 3a 3d 30 2e 30 3b 15 15 20 20 20 20 20 20 20 ┆ ASOLGTIÅ:=0.0; ┆
0x1aa0…1ac0 41 53 4f 4c 47 54 53 5d 3a 3d 30 2e 30 3b 15 13 20 20 20 20 20 20 20 4f 4d 53 49 5d 52 3a 3d 30 ┆ASOLGTSÅ:=0.0; OMSIÅR:=0┆
0x1ac0…1ae0 2e 30 3b 13 13 20 20 20 20 20 20 20 4f 4d 53 53 5d 52 3a 3d 30 2e 30 3b 13 15 20 20 20 20 20 20 ┆.0; OMSSÅR:=0.0; ┆
0x1ae0…1b00 20 44 5b 4b 42 49 44 54 44 3a 3d 30 2e 30 3b 15 13 20 20 20 20 20 20 20 44 5b 4b 47 52 41 53 5d ┆ DÆKBIDTD:=0.0; DÆKGRASÅ┆
0x1b00…1b20 3a 3d 30 3b 13 12 20 20 20 20 20 20 20 41 4e 41 46 54 49 4c 47 3a 3d 30 12 05 20 20 45 4e 44 05 ┆:=0; ANAFTILG:=0 END ┆
0x1b20…1b40 04 45 4e 44 3b 04 10 50 52 4f 43 45 44 55 52 45 20 45 52 52 4f 52 3b 10 05 42 45 47 49 4e 05 21 ┆ END; PROCEDURE ERROR; BEGIN !┆
0x1b40…1b60 20 20 57 52 49 54 45 4c 4e 28 27 46 45 4a 4c 20 49 20 56 41 52 45 52 45 47 20 27 2c 49 45 52 29 ┆ WRITELN('FEJL I VAREREG ',IER)┆
0x1b60…1b80 3b 21 11 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b 11 19 20 20 57 52 49 54 45 4c 4e 28 ┆;! ICLOSE(VZ.H,F); WRITELN(┆
0x1b80…1ba0 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 3b 19 06 20 20 53 54 4f 50 06 04 45 4e 44 3b 04 13 50 ┆'ICLOSE ',IER); STOP END; P┆
0x1ba0…1bc0 52 4f 43 45 44 55 52 45 20 4d 41 49 4e 54 41 49 4e 3b 13 17 56 41 52 20 49 2c 4f 2c 50 2c 4b 4f ┆ROCEDURE MAINTAIN; VAR I,O,P,KO┆
0x1bc0…1be0 44 45 3a 49 4e 54 45 47 45 52 3b 17 14 20 20 20 20 43 48 41 4e 47 45 44 3a 42 4f 4f 4c 45 41 4e ┆DE:INTEGER; CHANGED:BOOLEAN┆
0x1be0…1c00 3b 14 12 20 20 20 20 53 54 52 45 4e 47 3a 53 54 52 49 4e 47 3b 12 36 20 20 20 20 4b 4f 44 45 31 ┆; STRENG:STRING; 6 KODE1┆
0x1c00…1c20 2c 4b 4f 44 45 32 3a 53 54 52 49 4e 47 28 31 30 29 3b 20 20 28 2a 4b 49 4b 4b 45 4e 5c 47 4c 45 ┆,KODE2:STRING(10); (*KIKKENØGLE┆
0x1c20…1c40 2c 5b 4e 44 52 45 4e 5c 47 4c 45 2a 29 36 05 42 45 47 49 4e 05 26 20 20 28 2a 49 4e 44 4c 5b 53 ┆,ÆNDRENØGLE*)6 BEGIN & (*INDLÆS┆
0x1c40…1c60 20 4b 4f 44 45 31 20 4f 47 20 4b 4f 44 45 32 20 46 52 41 20 53 59 53 52 45 47 2a 29 26 16 20 20 ┆ KODE1 OG KODE2 FRA SYSREG*)& ┆
0x1c60…1c80 4b 4f 44 45 32 3a 3d 27 50 49 4c 4c 45 50 49 4c 4c 45 27 3b 16 16 20 20 4b 4f 44 45 31 3a 3d 27 ┆KODE2:='PILLEPILLE'; KODE1:='┆
0x1c80…1ca0 4b 49 4b 4b 45 4b 49 4b 4b 45 27 3b 16 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 25 20 20 ┆KIKKEKIKKE'; CLEARSCREEN; % ┆
0x1ca0…1cc0 47 4f 54 4f 58 59 28 31 2c 31 29 3b 57 52 49 54 45 4c 4e 28 27 41 44 47 41 4e 47 53 4b 4f 44 45 ┆GOTOXY(1,1);WRITELN('ADGANGSKODE┆
0x1cc0…1ce0 27 29 3b 25 23 20 20 47 4f 54 4f 58 59 28 32 30 2c 31 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 ┆');%# GOTOXY(20,1);READLN;READ(┆
0x1ce0…1d00 53 54 52 45 4e 47 29 3b 23 0a 20 20 4b 4f 44 45 3a 3d 30 3b 0a 1f 20 20 49 46 20 53 54 52 45 4e ┆STRENG);# KODE:=0; IF STREN┆
0x1d00…1d20 47 3d 4b 4f 44 45 31 20 54 48 45 4e 20 4b 4f 44 45 3a 3d 31 3b 1f 1f 20 20 49 46 20 53 54 52 45 ┆G=KODE1 THEN KODE:=1; IF STRE┆
0x1d20…1d40 4e 47 3d 4b 4f 44 45 32 20 54 48 45 4e 20 4b 4f 44 45 3a 3d 32 3b 1f 08 20 20 52 45 50 45 41 54 ┆NG=KODE2 THEN KODE:=2; REPEAT┆
0x1d40…1d60 08 08 20 20 52 45 50 45 41 54 08 4c 20 47 4f 54 4f 58 59 28 31 2c 32 32 29 3b 57 52 49 54 45 4c ┆ REPEAT L GOTOXY(1,22);WRITEL┆
0x1d60…1d80 4e 28 27 4f 50 52 45 54 54 45 2c 20 4b 49 4b 4b 45 20 45 4c 4c 45 52 20 53 4c 45 54 54 45 20 28 ┆N('OPRETTE, KIKKE ELLER SLETTE (┆
0x1d80…1da0 31 2f 32 2f 33 29 2c 20 30 20 46 4f 52 20 53 54 4f 50 20 20 20 27 29 3b 4c 23 20 20 20 20 20 20 ┆1/2/3), 0 FOR STOP ');L# ┆
0x1da0…1dc0 20 47 4f 54 4f 58 59 28 35 30 2c 32 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 50 29 23 3b 20 ┆ GOTOXY(50,22);READLN;READ(P)#; ┆
0x1dc0…1de0 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 28 28 50 3d 31 29 20 4f 52 ┆ UNTIL (IORESULT=0) AND((P=1) OR┆
0x1de0…1e00 20 28 50 3d 32 29 20 4f 52 20 28 50 3d 30 29 20 4f 52 20 28 50 3d 33 29 29 3b 3b 0b 20 20 43 41 ┆ (P=2) OR (P=0) OR (P=3));; CA┆
0x1e00…1e20 53 45 20 50 20 4f 46 0b 0c 20 20 20 20 31 3a 20 42 45 47 49 4e 0c 0f 20 20 20 20 20 20 20 20 5a ┆SE P OF 1: BEGIN Z┆
0x1e20…1e40 45 52 52 45 43 3b 0f 1a 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 ┆ERREC; PRVAROPL(-1,KODE┆
0x1e40…1e60 29 3b 1a 31 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 56 41 ┆); 1 FOR I:=1 TO 10 DO VA┆
0x1e60…1e80 52 45 4f 50 4c 28 49 29 3b 56 41 52 45 4f 50 4c 28 31 32 29 3b 31 1a 20 20 20 20 20 20 20 20 50 ┆REOPL(I);VAREOPL(12);1 P┆
0x1e80…1ea0 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 1a 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 ┆RVAROPL(-1,KODE); REPEA┆
0x1ea0…1ec0 54 0e 4d 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 32 29 3b 57 52 49 54 45 4c 4e ┆T M GOTOXY(1,22);WRITELN┆
0x1ec0…1ee0 28 27 5b 4e 44 52 49 4e 47 45 52 2c 20 30 20 46 4f 52 20 4e 45 4a 20 45 4c 4c 45 52 53 20 46 45 ┆('ÆNDRINGER, 0 FOR NEJ ELLERS FE┆
0x1ee0…1f00 4c 54 4e 52 20 20 20 20 20 20 20 20 20 27 29 3b 4d 26 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 ┆LTNR ');M& GOTOX┆
0x1f00…1f20 59 28 34 30 2c 32 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 3b 26 3b 20 20 20 20 20 20 ┆Y(40,22);READLN;READ(O);&; ┆
0x1f20…1f40 20 20 20 49 46 20 28 28 4f 3e 3d 31 29 20 41 4e 44 20 28 4f 3c 3d 31 30 29 29 20 4f 52 20 28 4f ┆ IF ((O>=1) AND (O<=10)) OR (O┆
0x1f40…1f60 3d 31 32 29 20 54 48 45 4e 20 56 41 52 45 4f 50 4c 28 4f 29 3b 3b 26 20 20 20 20 20 20 20 20 20 ┆=12) THEN VAREOPL(O);;& ┆
0x1f60…1f80 56 41 52 45 2e 50 52 49 4d 4f 4c 41 47 3a 3d 56 41 52 45 2e 46 59 53 4c 41 47 45 52 3b 26 19 20 ┆VARE.PRIMOLAG:=VARE.FYSLAGER;& ┆
0x1f80…1fa0 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 4f 2c 4b 4f 44 45 29 19 12 20 20 20 20 20 20 ┆ PRVAROPL(O,KODE) ┆
0x1fa0…1fc0 20 20 55 4e 54 49 4c 20 4f 3d 30 3b 12 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 1e 20 20 ┆ UNTIL O=0; REPEAT ┆
0x1fc0…1fe0 20 20 20 20 20 20 49 4e 53 45 52 54 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 1e 16 20 20 ┆ INSERT(VZ.H,F,VARE.A); ┆
0x1fe0…2000 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d 37 20 54 48 45 4e 16 0d 20 20 20 20 20 20 20 20 42 45 ┆ IF IER=-7 THEN BE┆
0x2000…2020 47 49 4e 0d 3b 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 57 52 49 54 45 ┆GIN ; GOTOXY(1,23);WRITE┆
0x2020…2040 4c 4e 28 27 56 41 52 45 4e 52 20 46 49 4e 44 45 53 20 49 20 46 4f 52 56 45 4a 45 4e 20 27 29 3b ┆LN('VARENR FINDES I FORVEJEN ');┆
0x2040…2060 3b 13 20 20 20 20 20 20 20 20 20 56 41 52 45 4f 50 4c 28 31 29 13 0b 20 20 20 20 20 20 20 20 45 ┆; VAREOPL(1) E┆
0x2060…2080 4e 44 0b 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 1c 20 20 20 20 20 20 20 20 49 46 20 49 45 52 ┆ND ELSE IF IER┆
0x2080…20a0 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 1c 14 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 45 ┆<>0 THEN ERROR UNTIL IE┆
0x20a0…20c0 52 3d 30 3b 14 0b 20 20 20 20 20 20 20 45 4e 44 3b 0b 0c 20 20 20 20 32 3a 20 42 45 47 49 4e 0c ┆R=0; END; 2: BEGIN ┆
0x20c0…20e0 0f 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0f 4d 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f ┆ REPEAT M GOTO┆
0x20e0…2100 58 59 28 31 2c 32 33 29 3b 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 52 20 20 20 20 20 20 20 20 ┆XY(1,23);WRITELN('VARENR ┆
0x2100…2120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 4d ┆ ');M┆
0x2120…2140 26 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b ┆& GOTOXY(30,23);READLN;┆
0x2140…2160 52 45 41 44 28 4f 29 26 36 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c ┆READ(O)&6 UNTIL (IORESUL┆
0x2160…2180 54 3d 30 29 20 41 4e 44 20 28 4f 3e 39 39 39 29 20 41 4e 44 20 28 4f 3c 31 30 30 30 30 29 3b 36 ┆T=0) AND (O>999) AND (O<10000);6┆
0x2180…21a0 19 20 20 20 20 20 20 20 20 20 56 41 52 45 2e 56 41 52 45 4e 52 31 3a 3d 4f 3b 19 1f 20 20 20 20 ┆ VARE.VARENR1:=O; ┆
0x21a0…21c0 20 20 20 20 20 47 45 54 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 1f 38 20 20 20 ┆ GETREC(VZ.H,F,VARE.A); 8 ┆
0x21c0…21e0 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 56 41 ┆ IF IER=-6 THEN WRITELN('VA┆
0x21e0…2200 52 45 4e 20 45 4b 53 49 53 54 45 52 45 52 20 49 4b 4b 45 27 29 38 0d 20 20 20 20 20 20 20 20 20 ┆REN EKSISTERER IKKE')8 ┆
0x2200…2220 45 4c 53 45 0d 1d 20 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 ┆ELSE IF IER<>0 THEN ER┆
0x2220…2240 52 4f 52 1d 0d 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0e 20 20 20 20 20 20 20 20 20 42 45 47 ┆ROR ELSE BEG┆
0x2240…2260 49 4e 0e 1b 20 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 1b ┆IN PRVAROPL(-1,KODE); ┆
0x2260…2280 18 20 20 20 20 20 20 20 20 20 43 48 41 4e 47 45 44 3a 3d 46 41 4c 53 45 3b 18 0f 20 20 20 20 20 ┆ CHANGED:=FALSE; ┆
0x2280…22a0 20 20 20 20 52 45 50 45 41 54 0f 0f 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0f 4d 20 20 20 ┆ REPEAT REPEAT M ┆
0x22a0…22c0 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 32 29 3b 57 52 49 54 45 4c 4e 28 27 48 56 49 ┆ GOTOXY(1,22);WRITELN('HVI┆
0x22c0…22e0 4c 4b 45 54 20 46 45 4c 54 20 53 4b 41 4c 20 5b 4e 44 52 45 53 2c 20 30 20 46 4f 52 20 53 4c 55 ┆LKET FELT SKAL ÆNDRES, 0 FOR SLU┆
0x22e0…2300 54 20 20 20 20 20 20 27 29 3b 4d 26 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c ┆T ');M& GOTOXY(40,┆
0x2300…2320 32 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 26 1a 20 20 20 20 20 20 20 20 20 55 4e 54 ┆22);READLN;READ(O)& UNT┆
0x2320…2340 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 1a 12 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4f 20 ┆IL IORESULT=0; CASE O ┆
0x2340…2360 4f 46 12 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 31 30 2c 31 32 20 3a 20 42 45 47 ┆OF 1,10,12 : BEG┆
0x2360…2380 49 4e 1e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IN , ┆
0x2380…23a0 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 2c 3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTOXY(1,23);,? ┆
0x23a0…23c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 5b 4e 44 52 49 4e ┆ WRITELN('ÆNDRIN┆
0x23c0…23e0 47 20 49 4b 4b 45 20 54 49 4c 4c 41 44 54 27 29 3b 3f 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆G IKKE TILLADT');?- ┆
0x23e0…2400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 35 2c 32 33 29 3b ┆ GOTOXY(25,23);┆
0x2400…2420 2d 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-C ┆
0x2420…2440 20 57 52 49 54 45 4c 4e 28 27 54 52 59 4b 20 52 45 54 55 52 4e 20 4e 5d 52 20 46 4f 52 53 54 5d ┆ WRITELN('TRYK RETURN NÅR FORSTÅ┆
0x2440…2460 45 54 27 29 3b 43 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ET');CA ┆
0x2460…2480 20 20 20 20 20 20 47 4f 54 4f 58 59 28 36 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 ┆ GOTOXY(60,23);READLN;READ(┆
0x2480…24a0 53 54 52 45 4e 47 29 3b 41 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆STRENG);A1 ┆
0x24a0…24c0 20 20 20 20 20 20 20 20 20 49 46 20 53 54 52 45 4e 47 3d 27 41 27 20 54 48 45 4e 31 24 20 20 20 ┆ IF STRENG='A' THEN1$ ┆
0x24c0…24e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 ┆ BEGI┆
0x24e0…2500 4e 24 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N$9 ┆
0x2500…2520 20 20 20 20 56 41 52 45 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a 3d 54 52 55 45 39 22 20 20 ┆ VAREOPL(O);CHANGED:=TRUE9" ┆
0x2520…2540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆ END┆
0x2540…2560 22 1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 1d ┆" END; ┆
0x2560…2580 29 34 2c 37 2c 38 2c 35 2c 31 39 2c 32 30 2c 32 31 2c 32 32 2c 32 33 2c 32 34 3a 20 49 46 20 4b ┆)4,7,8,5,19,20,21,22,23,24: IF K┆
0x2580…25a0 4f 44 45 3d 32 20 54 48 45 4e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ODE=2 THEN) ┆
0x25a0…25c0 20 20 20 20 20 20 20 42 45 47 49 4e 20 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN 5 ┆
0x25c0…25e0 20 20 20 20 20 20 20 20 20 20 20 56 41 52 45 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a 3d 54 ┆ VAREOPL(O);CHANGED:=T┆
0x25e0…2600 52 55 45 35 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RUE5# ┆
0x2600…2620 45 4e 44 20 45 4c 53 45 23 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 ┆END ELSE#( B┆
0x2620…2640 45 47 49 4e 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 28 4d 20 20 20 20 20 20 20 20 20 20 20 20 ┆EGIN GOTOXY(1,23);(M ┆
0x2640…2660 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 5b 4e 44 52 49 4e 47 20 49 4b 4b 45 20 54 ┆ WRITELN('ÆNDRING IKKE T┆
0x2660…2680 49 4c 4c 41 44 54 20 4d 45 44 20 4f 50 47 49 56 45 4e 20 41 44 47 41 4e 47 53 4b 4f 44 45 27 29 ┆ILLADT MED OPGIVEN ADGANGSKODE')┆
0x2680…26a0 3b 4d 19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 19 43 32 2c ┆;M END; C2,┆
0x26a0…26c0 33 2c 36 2c 39 2c 31 31 2c 31 33 2c 31 34 2c 31 35 2c 31 36 2c 31 37 2c 31 38 2c 32 35 20 3a 42 ┆3,6,9,11,13,14,15,16,17,18,25 :B┆
0x26c0…26e0 45 47 49 4e 20 56 41 52 45 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a 3d 54 52 55 45 20 45 4e ┆EGIN VAREOPL(O);CHANGED:=TRUE EN┆
0x26e0…2700 44 43 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 13 19 20 20 20 20 20 20 20 20 ┆DC END; ┆
0x2700…2720 20 50 52 56 41 52 4f 50 4c 28 4f 2c 4b 4f 44 45 29 19 13 20 20 20 20 20 20 20 20 20 55 4e 54 49 ┆ PRVAROPL(O,KODE) UNTI┆
0x2720…2740 4c 20 4f 3d 30 3b 13 2f 20 20 20 20 20 20 20 20 20 49 46 20 43 48 41 4e 47 45 44 20 54 48 45 4e ┆L O=0; / IF CHANGED THEN┆
0x2740…2760 20 50 55 54 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 2f 0c 20 20 20 20 20 20 20 ┆ PUTREC(VZ.H,F,VARE.A);/ ┆
0x2760…2780 20 20 45 4e 44 0c 0a 20 20 20 20 20 20 45 4e 44 3b 0a 0b 20 20 20 33 3a 20 42 45 47 49 4e 0b 0e ┆ END END; 3: BEGIN ┆
0x2780…27a0 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 4d 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 ┆ REPEAT M GOTOXY┆
0x27a0…27c0 28 31 2c 32 33 29 3b 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 52 20 20 20 20 20 20 20 20 20 20 ┆(1,23);WRITELN('VARENR ┆
0x27c0…27e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 4d 26 20 ┆ ');M& ┆
0x27e0…2800 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 ┆ GOTOXY(30,23);READLN;RE┆
0x2800…2820 41 44 28 4f 29 26 35 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 ┆AD(O)&5 UNTIL (IORESULT=0┆
0x2820…2840 29 20 41 4e 44 20 28 4f 3e 39 39 39 29 20 41 4e 44 20 28 4f 3c 31 30 30 30 30 29 3b 35 18 20 20 ┆) AND (O>999) AND (O<10000);5 ┆
0x2840…2860 20 20 20 20 20 20 56 41 52 45 2e 56 41 52 45 4e 52 31 3a 3d 4f 3b 18 1e 20 20 20 20 20 20 20 20 ┆ VARE.VARENR1:=O; ┆
0x2860…2880 47 45 54 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 1e 37 20 20 20 20 20 20 20 20 ┆GETREC(VZ.H,F,VARE.A); 7 ┆
0x2880…28a0 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 20 45 4b ┆IF IER=-6 THEN WRITELN('VAREN EK┆
0x28a0…28c0 53 49 53 54 45 52 45 52 20 49 4b 4b 45 27 29 37 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 1c 20 ┆SISTERER IKKE')7 ELSE ┆
0x28c0…28e0 20 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 1c 0c 20 20 20 ┆ IF IER<>0 THEN ERROR ┆
0x28e0…2900 20 20 20 20 20 45 4c 53 45 0c 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 1c 20 20 20 20 20 20 ┆ ELSE BEGIN ┆
0x2900…2920 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 1c 18 20 20 20 20 20 20 20 20 ┆ PRVAROPL(-1,KODE); ┆
0x2920…2940 20 20 49 46 20 4b 4f 44 45 3d 32 20 54 48 45 4e 18 16 20 20 20 20 20 20 20 20 20 20 57 49 54 48 ┆ IF KODE=2 THEN WITH┆
0x2940…2960 20 56 41 52 45 20 44 4f 16 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 4c 20 20 20 20 20 ┆ VARE DO BEGIN L ┆
0x2960…2980 20 20 20 20 20 20 20 49 46 20 28 46 59 53 4c 41 47 45 52 3d 30 29 20 41 4e 44 20 28 52 45 53 41 ┆ IF (FYSLAGER=0) AND (RESA┆
0x2980…29a0 46 4c 41 47 3d 30 29 20 41 4e 44 20 28 49 4f 52 44 52 45 3d 30 29 20 41 4e 44 20 28 52 41 49 4f ┆FLAG=0) AND (IORDRE=0) AND (RAIO┆
0x29a0…29c0 52 44 52 45 3d 30 29 4c 16 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 42 45 47 49 4e 16 ┆RDRE=0)L THEN BEGIN ┆
0x29c0…29e0 15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 15 4d 20 20 20 20 20 20 20 20 ┆ REPEAT M ┆
0x29e0…2a00 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 57 52 49 54 45 4c 4e 28 27 53 4b 41 ┆ GOTOXY(1,23);WRITELN('SKA┆
0x2a00…2a20 4c 20 53 4c 45 54 4e 49 4e 47 20 55 44 46 5c 52 45 53 20 28 31 29 2c 20 30 20 46 4f 52 20 4e 45 ┆L SLETNING UDFØRES (1), 0 FOR NE┆
0x2a20…2a40 4a 20 27 29 3b 4d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c ┆J ');M+ GOTOXY(40,┆
0x2a40…2a60 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 2b 37 20 20 20 20 20 20 20 20 20 20 20 20 ┆23);READLN;READ(O)+7 ┆
0x2a60…2a80 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 28 4f 3d 30 29 ┆ UNTIL (IORESULT=0) AND ((O=0)┆
0x2a80…2aa0 20 4f 52 20 28 4f 3d 31 29 29 3b 37 1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f ┆ OR (O=1));7 IF O┆
0x2aa0…2ac0 3d 31 20 54 48 45 4e 1a 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 14 27 20 ┆=1 THEN BEGIN ' ┆
0x2ac0…2ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 56 5a 2e 48 2c 46 2c 56 41 ┆ DELETE(VZ.H,F,VA┆
0x2ae0…2b00 52 45 2e 41 29 3b 27 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 ┆RE.A);'# PRVAROP┆
0x2b00…2b20 4c 28 2d 31 2c 4b 4f 44 45 29 3b 23 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 ┆L(-1,KODE);#% IF┆
0x2b20…2b40 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 25 12 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IER<>0 THEN ERROR% ┆
0x2b40…2b60 20 20 20 45 4e 44 12 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 10 20 20 20 20 20 20 20 ┆ END END ┆
0x2b60…2b80 20 20 20 20 20 45 4c 53 45 10 11 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 11 1c 20 20 ┆ ELSE BEGIN ┆
0x2b80…2ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 1c 4c 20 20 20 20 ┆ GOTOXY(1,23); L ┆
0x2ba0…2bc0 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 20 4d 5d 20 49 4b 4b 45 20 53 4c ┆ WRITELN('VAREN MÅ IKKE SL┆
0x2bc0…2be0 45 54 54 45 53 20 50 2e 47 52 2e 41 2e 20 50 4f 53 49 54 49 56 45 20 4c 41 47 45 52 2f 4f 52 44 ┆ETTES P.GR.A. POSITIVE LAGER/ORD┆
0x2be0…2c00 52 45 2d 54 41 4c 27 29 4c 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 0f 20 20 20 20 20 ┆RE-TAL')L END ┆
0x2c00…2c20 20 20 20 20 20 20 20 45 4e 44 0f 10 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 10 11 20 20 ┆ END ELSE ┆
0x2c20…2c40 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 11 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x2c40…2c60 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 1c 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 ┆GOTOXY(1,23); D WR┆
0x2c60…2c80 49 54 45 4c 4e 28 27 53 4c 45 54 4e 49 4e 47 20 4d 5d 20 49 4b 4b 45 20 55 44 46 5c 52 45 53 20 ┆ITELN('SLETNING MÅ IKKE UDFØRES ┆
0x2c80…2ca0 4d 45 44 20 4f 50 47 49 56 45 4e 20 4e 5c 47 4c 45 27 29 44 0f 20 20 20 20 20 20 20 20 20 20 20 ┆MED OPGIVEN NØGLE')D ┆
0x2ca0…2cc0 20 45 4e 44 0f 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 09 20 20 20 20 20 20 45 4e 44 09 06 20 ┆ END END END ┆
0x2cc0…2ce0 20 20 45 4e 44 06 0c 20 20 20 55 4e 54 49 4c 20 50 3d 30 0c 04 45 4e 44 3b 04 05 42 45 47 49 4e ┆ END UNTIL P=0 END; BEGIN┆
0x2ce0…2d00 05 20 20 20 46 49 4c 4e 41 56 4e 32 3a 3d 27 52 45 47 56 41 52 45 3a 50 31 3a 31 31 33 37 3a 49 ┆ FILNAVN2:='REGVARE:P1:1137:I┆
0x2d00…2d20 27 3b 20 16 20 20 52 45 57 52 49 54 45 28 46 2c 46 49 4c 4e 41 56 4e 32 29 3b 16 0e 20 20 49 3a ┆'; REWRITE(F,FILNAVN2); I:┆
0x2d20…2d40 3d 49 4f 52 45 53 55 4c 54 3b 0e 32 49 46 20 49 3c 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 20 57 ┆=IORESULT; 2IF I<>0 THEN BEGIN W┆
0x2d40…2d60 52 49 54 45 4c 4e 28 27 52 45 57 52 49 54 45 20 27 2c 49 29 3b 53 54 4f 50 20 45 4e 44 3b 32 14 ┆RITELN('REWRITE ',I);STOP END;2 ┆
0x2d60…2d80 20 20 49 4f 50 45 4e 28 56 5a 2e 48 2c 46 2c 4c 5b 53 29 3b 14 27 49 46 20 49 45 52 3c 3e 30 20 ┆ IOPEN(VZ.H,F,LÆS); 'IF IER<>0 ┆
0x2d80…2da0 54 48 45 4e 20 57 52 49 54 45 28 27 49 4f 50 45 4e 20 27 2c 49 45 52 29 20 45 4c 53 45 27 0c 57 ┆THEN WRITE('IOPEN ',IER) ELSE' W┆
0x2da0…2dc0 49 54 48 20 56 41 52 45 20 44 4f 0c 05 42 45 47 49 4e 05 0d 20 20 56 41 52 45 4e 52 31 3a 3d 30 ┆ITH VARE DO BEGIN VARENR1:=0┆
0x2dc0…2de0 3b 0d 07 20 20 49 3a 3d 30 3b 07 14 20 20 4e 45 58 54 52 45 43 28 56 5a 2e 48 2c 46 2c 41 29 3b ┆; I:=0; NEXTREC(VZ.H,F,A);┆
0x2de0…2e00 14 08 20 20 52 45 50 45 41 54 08 1c 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 57 52 49 54 45 4c ┆ REPEAT WRITELN(LIST);WRITEL┆
0x2e00…2e20 4e 28 4c 49 53 54 29 3b 1c 31 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 20 20 56 45 4e 44 4f 52 ┆N(LIST); 1WRITELN(LIST,' VENDOR┆
0x2e20…2e40 20 20 20 20 20 20 56 45 4e 44 4f 52 20 20 20 20 20 20 56 45 4e 44 4f 52 27 29 3b 31 42 57 52 49 ┆ VENDOR VENDOR');1BWRI┆
0x2e40…2e60 54 45 4c 4e 28 4c 49 53 54 2c 27 76 6e 72 27 2c 56 41 52 45 4e 52 31 3a 37 2c 27 20 20 76 6e 72 ┆TELN(LIST,'vnr',VARENR1:7,' vnr┆
0x2e60…2e80 27 2c 56 41 52 45 4e 52 31 3a 37 2c 27 20 20 76 6e 72 27 2c 56 41 52 45 4e 52 31 3a 37 29 3b 42 ┆',VARENR1:7,' vnr',VARENR1:7);B┆
0x2e80…2ea0 45 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 70 6b 6e 27 2c 50 41 4b 45 4e 48 45 44 3a 37 2c 27 ┆EWRITELN(LIST,'pkn',PAKENHED:7,'┆
0x2ea0…2ec0 20 20 70 6b 6e 27 2c 50 41 4b 45 4e 48 45 44 3a 37 2c 27 20 20 70 6b 6e 27 2c 50 41 4b 45 4e 48 ┆ pkn',PAKENHED:7,' pkn',PAKENH┆
0x2ec0…2ee0 45 44 3a 37 29 3b 45 4b 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 64 6b 72 27 2c 50 52 49 53 2f ┆ED:7);EKWRITELN(LIST,'dkr',PRIS/┆
0x2ee0…2f00 31 30 30 3a 37 3a 32 2c 27 20 20 64 6b 72 27 2c 50 52 49 53 2f 31 30 30 3a 37 3a 32 2c 27 20 20 ┆100:7:2,' dkr',PRIS/100:7:2,' ┆
0x2f00…2f20 64 6b 72 27 2c 50 52 49 53 2f 31 30 30 3a 37 3a 32 29 3b 4b 14 20 20 20 4e 45 58 54 52 45 43 28 ┆dkr',PRIS/100:7:2);K NEXTREC(┆
0x2f20…2f40 56 5a 2e 48 2c 46 2c 41 29 14 0f 20 20 55 4e 54 49 4c 20 49 45 52 3c 3e 30 3b 0f 04 45 4e 44 3b ┆VZ.H,F,A) UNTIL IER<>0; END;┆
0x2f40…2f60 04 11 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b 11 0e 20 20 43 4c 45 41 52 53 43 52 45 ┆ ICLOSE(VZ.H,F); CLEARSCRE┆
0x2f60…2f80 45 4e 3b 0e 1c 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 2c 49 3a 37 ┆EN; WRITELN('ICLOSE ',IER,I:7┆
0x2f80…2fa0 29 1c 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆) END. ┆
0x2fa0…2fc0 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 ┆ ┆
[…0x15…]