|
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: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »NULVAR.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »NULVAR.K«
PROGRAM VAREVEDL;
(*$IISFHEAD*)
VPOST=RECORD
A:AR;
VARENR1,VARENR2,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;
VAR F:ISF;
VZ:ZONE;
FILNAVN2:STRING(20);
IER,I:INTEGER;
VARE:VPOST;
(*$L-,R-,IIOPEN*)
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$L+,R+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ZERREC;
BEGIN
WITH VARE DO
BEGIN
PRIMOLAG:=FYSLAGER;
ASOLGTSÅ:=ASOLGTIÅ;
ASOLGTIÅ:=0.0;
OMSSÅR:=OMSIÅR;
OMSIÅR:=0.0;
IF OMSSÅR>0.0 THEN
DÆKGRASÅ:=TRUNC((DÆKBIDTD/OMSSÅR)*100)
ELSE
DÆKGRASÅ:=0;
DÆKBIDTD:=0.0;
ANAFTILG:=0
END
END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I VAREREG ',IER);
ICLOSE(VZ.H,F);
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);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
WITH VARE DO
BEGIN
VARENR1:=0;
VARENR2:=0;
I:=0;
NEXTREC(VZ.H,F,A);
REPEAT
ZERREC;
PUTREC(VZ.H,F,A);
IF IER<>0 THEN ERROR;
I:=I+1;
NEXTREC(VZ.H,F,A)
UNTIL IER<>0;
END;
ICLOSE(VZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM VAREVEDL;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0030 Line {l1=0x0c, l2=»VPOST=RECORD«, l3=0x0c}
0x0030…003e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x003e…0070 Line {l1=0x30, l2=» VARENR1,VARENR2,LVRNDØR,OPRLAND,PAKENHED,«, l3=0x30}
0x0070…00a6 Line {l1=0x34, l2=» FORVLEVU,DATSBES1,DATSBES2,DATSORD1,DATSORD2,«, l3=0x34}
0x00a6…00c9 Line {l1=0x21, l2=» DÆKGRASÅ,ANAFTILG:INTEGER;«, l3=0x21}
0x00c9…0103 Line {l1=0x38, l2=» NAVN:ARRAY(1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x38}
0x0103…014d Line {l1=0x48, l2=» PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x48}
0x014d…0195 Line {l1=0x46, l2=» RAIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD:REAL«, l3=0x46}
0x0195…019b Line {l1=0x04, l2=»END;«, l3=0x04}
0x019b…01a9 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x01a9…01bc Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x01bc…01df Line {l1=0x21, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x21}
0x01df…01e6 Line {l1=0x05, l2=» END;«, l3=0x05}
0x01e6…01f5 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x01f5…0206 Line {l1=0x0f, l2=» VZ:ZONE;«, l3=0x0f}
0x0206…0223 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0223…0239 Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x0239…024d Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x024d…0260 Line {l1=0x11, l2=»(*$L-,R-,IIOPEN*)«, l3=0x11}
0x0260…0270 Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x0270…027d Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x027d…028d Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x028d…029d Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x029d…02ac Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x02ac…02ba Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x02ba…02c8 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x02c8…02d7 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x02d7…02e3 Line {l1=0x0a, l2=»(*$L+,R+*)«, l3=0x0a}
0x02e3…02f4 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x02f4…0304 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0304…031b Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x031b…032e Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x032e…0335 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0335…0345 Line {l1=0x0e, l2=» WITH VARE DO«, l3=0x0e}
0x0345…034e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x034e…036a Line {l1=0x1a, l2=» PRIMOLAG:=FYSLAGER;«, l3=0x1a}
0x036a…0386 Line {l1=0x1a, l2=» ASOLGTSÅ:=ASOLGTIÅ;«, l3=0x1a}
0x0386…039d Line {l1=0x15, l2=» ASOLGTIÅ:=0.0;«, l3=0x15}
0x039d…03b5 Line {l1=0x16, l2=» OMSSÅR:=OMSIÅR;«, l3=0x16}
0x03b5…03ca Line {l1=0x13, l2=» OMSIÅR:=0.0;«, l3=0x13}
0x03ca…03e5 Line {l1=0x19, l2=» IF OMSSÅR>0.0 THEN«, l3=0x19}
0x03e5…0416 Line {l1=0x2f, l2=» DÆKGRASÅ:=TRUNC((DÆKBIDTD/OMSSÅR)*100)«, l3=0x2f}
0x0416…0423 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x0423…043a Line {l1=0x15, l2=» DÆKGRASÅ:=0;«, l3=0x15}
0x043a…0451 Line {l1=0x15, l2=» DÆKBIDTD:=0.0;«, l3=0x15}
0x0451…0465 Line {l1=0x12, l2=» ANAFTILG:=0«, l3=0x12}
0x0465…046c Line {l1=0x05, l2=» END«, l3=0x05}
0x046c…0472 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0472…0484 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0484…048b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x048b…04ae Line {l1=0x21, l2=» WRITELN('FEJL I VAREREG ',IER);«, l3=0x21}
0x04ae…04c1 Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x04c1…04dc Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x04dc…04e4 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x04e4…04ea Line {l1=0x04, l2=»END;«, l3=0x04}
0x04ea…04f1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04f1…0513 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:1137:I';«, l3=0x20}
0x0513…052b Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x052b…053b Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x053b…056f Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x056f…0587 Line {l1=0x16, l2=» IOPEN(VZ.H,F,SKRIV);«, l3=0x16}
0x0587…05b0 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x05b0…05be Line {l1=0x0c, l2=»WITH VARE DO«, l3=0x0c}
0x05be…05c5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05c5…05d4 Line {l1=0x0d, l2=» VARENR1:=0;«, l3=0x0d}
0x05d4…05e3 Line {l1=0x0d, l2=» VARENR2:=0;«, l3=0x0d}
0x05e3…05ec Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x05ec…0602 Line {l1=0x14, l2=» NEXTREC(VZ.H,F,A);«, l3=0x14}
0x0602…060c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x060c…0615 Line {l1=0x07, l2=»ZERREC;«, l3=0x07}
0x0615…0628 Line {l1=0x11, l2=»PUTREC(VZ.H,F,A);«, l3=0x11}
0x0628…063f Line {l1=0x15, l2=»IF IER<>0 THEN ERROR;«, l3=0x15}
0x063f…064c Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x064c…0663 Line {l1=0x15, l2=» NEXTREC(VZ.H,F,A)«, l3=0x15}
0x0663…0674 Line {l1=0x0f, l2=» UNTIL IER<>0;«, l3=0x0f}
0x0674…067a Line {l1=0x04, l2=»END;«, l3=0x04}
0x067a…068d Line {l1=0x11, l2=» ICLOSE(VZ.H,F);«, l3=0x11}
0x068d…069d Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x069d…06bb Line {l1=0x1c, l2=» WRITELN('ICLOSE ',IER,I:7)«, l3=0x1c}
0x06bb…06c1 Line {l1=0x04, l2=»END.«, l3=0x04}
0x06c1…06e0 00 00 46 2c 41 29 3b 11 15 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 3b 15 ┆ F,A); IF IER<>0 THEN ERROR; ┆
0x06e0…0700 0b 20 20 20 20 49 3a 3d 49 2b 31 3b 0b 15 20 20 20 20 4e 45 58 54 52 45 43 28 56 5a 2e 48 2c 46 ┆ I:=I+1; NEXTREC(VZ.H,F┆
0x0700…0720 2c 41 29 15 0f 20 20 55 4e 54 49 4c 20 49 45 52 3c 3e 30 3b 0f 04 45 4e 44 3b 04 11 20 20 49 43 ┆,A) UNTIL IER<>0; END; IC┆
0x0720…0740 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 45 4e 3b 0e 1c 20 ┆LOSE(VZ.H,F); CLEARSCREEN; ┆
0x0740…0760 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 29 1c 04 45 4e 44 ┆ WRITELN('ICLOSE ',IER,I:7) END┆
0x0760…0780 2e 04 00 00 00 00 4f 54 4f 58 59 28 31 2c 31 30 29 3b 57 52 49 54 45 28 27 31 30 20 46 59 53 49 ┆. OTOXY(1,10);WRITE('10 FYSI┆
0x0780…07a0 53 4b 20 4c 41 47 45 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 30 29 3b 34 1a 57 52 49 54 45 ┆SK LAGER');GOTOXY(30,10);4 WRITE┆
0x07a0…07c0 28 54 52 55 4e 43 28 46 59 53 4c 41 47 45 52 29 3a 31 30 29 3b 1a 33 47 4f 54 4f 58 59 28 35 30 ┆(TRUNC(FYSLAGER):10); 3GOTOXY(50┆
0x07c0…07e0 2c 31 30 29 3b 57 52 49 54 45 28 27 20 20 20 50 52 49 4d 4f 4c 41 47 45 52 27 29 3b 47 4f 54 4f ┆,10);WRITE(' PRIMOLAGER');GOTO┆
0x07e0…0800 58 59 28 36 37 2c 31 30 29 3b 33 1c 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 50 52 49 4d 4f 4c ┆XY(67,10);3 WRITELN(TRUNC(PRIMOL┆
0x0800…0820 41 47 29 3a 31 30 29 3b 1c 04 45 4e 44 3b 04 08 31 31 3a 42 45 47 49 4e 08 48 47 4f 54 4f 58 59 ┆AG):10); END; 11:BEGIN HGOTOXY┆
0x0820…0840 28 31 2c 31 31 29 3b 57 52 49 54 45 28 27 31 31 20 52 45 53 45 52 56 45 52 45 54 2c 20 46 59 53 ┆(1,11);WRITE('11 RESERVERET, FYS┆
0x0840…0860 49 53 4b 20 4c 41 47 45 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 31 29 3b 57 52 49 54 45 4c ┆ISK LAGER');GOTOXY(30,11);WRITEL┆
0x0860…0880 4e 28 48 4a 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(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 54 52 55 4e 43 28 ┆ TRUNC(┆
0x08a0…08c0 52 45 53 41 46 4c 41 47 29 3a 31 30 29 3b 4a 04 45 4e 44 3b 04 04 45 4e 44 3b 04 04 45 4e 44 3b ┆RESAFLAG):10);J END; END; END;┆
0x08c0…08e0 04 0e 50 52 4f 43 45 44 55 52 45 20 50 52 32 3b 0e 05 42 45 47 49 4e 05 0c 57 49 54 48 20 56 41 ┆ PROCEDURE PR2; BEGIN WITH VA┆
0x08e0…0900 52 45 20 44 4f 0c 09 43 41 53 45 20 4f 20 4f 46 09 08 31 32 3a 42 45 47 49 4e 08 35 47 4f 54 4f ┆RE DO CASE O OF 12:BEGIN 5GOTO┆
0x0900…0920 58 59 28 31 2c 31 32 29 3b 57 52 49 54 45 28 27 31 32 20 4d 49 4e 49 4d 55 4d 53 4c 41 47 45 52 ┆XY(1,12);WRITE('12 MINIMUMSLAGER┆
0x0920…0940 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 32 29 3b 35 1c 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 ┆');GOTOXY(30,12);5 WRITELN(TRUNC┆
0x0940…0960 28 4d 49 4e 4c 41 47 45 52 29 3a 31 30 29 3b 1c 04 45 4e 44 3b 04 08 31 33 3a 42 45 47 49 4e 08 ┆(MINLAGER):10); END; 13:BEGIN ┆
0x0960…0980 49 47 4f 54 4f 58 59 28 31 2c 31 33 29 3b 57 52 49 54 45 28 27 31 33 20 49 20 4f 52 44 52 45 27 ┆IGOTOXY(1,13);WRITE('13 I ORDRE'┆
0x0980…09a0 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 33 29 3b 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 49 4f ┆);GOTOXY(30,13);WRITELN(TRUNC(IO┆
0x09a0…09c0 52 44 52 45 29 3a 31 30 29 3b 49 04 45 4e 44 3b 04 08 31 34 3a 42 45 47 49 4e 08 38 47 4f 54 4f ┆RDRE):10);I END; 14:BEGIN 8GOTO┆
0x09c0…09e0 58 59 28 31 2c 31 34 29 3b 57 52 49 54 45 28 27 31 34 20 48 45 52 41 46 20 52 45 53 45 52 56 45 ┆XY(1,14);WRITE('14 HERAF RESERVE┆
0x09e0…0a00 52 45 54 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 34 29 3b 38 04 45 4e 44 3b 04 08 31 35 3a 42 ┆RET');GOTOXY(30,14);8 END; 15:B┆
0x0a00…0a20 45 47 49 4e 08 1c 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 52 41 49 4f 52 44 52 45 29 3a 31 30 ┆EGIN WRITELN(TRUNC(RAIORDRE):10┆
0x0a20…0a40 29 3b 1c 4c 47 4f 54 4f 58 59 28 35 30 2c 31 34 29 3b 57 52 49 54 45 28 27 31 35 20 46 4f 52 56 ┆); LGOTOXY(50,14);WRITE('15 FORV┆
0x0a40…0a60 2e 20 4c 45 56 2e 20 55 47 45 27 29 3b 47 4f 54 4f 58 59 28 36 37 2c 31 34 29 3b 57 52 49 54 45 ┆. LEV. UGE');GOTOXY(67,14);WRITE┆
0x0a60…0a80 4c 4e 28 46 4f 52 56 4c 45 56 55 3a 31 30 29 3b 4c 04 45 4e 44 3b 04 08 31 36 3a 42 45 47 49 4e ┆LN(FORVLEVU:10);L END; 16:BEGIN┆
0x0a80…0aa0 08 49 47 4f 54 4f 58 59 28 31 2c 31 35 29 3b 57 52 49 54 45 28 27 31 36 20 53 54 5c 52 52 45 4c ┆ IGOTOXY(1,15);WRITE('16 STØRREL┆
0x0aa0…0ac0 53 45 20 41 46 20 53 49 44 53 54 45 20 42 45 53 54 2e 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 ┆SE AF SIDSTE BEST.');GOTOXY(30,1┆
0x0ac0…0ae0 35 29 3b 57 52 49 54 45 4c 4e 28 49 14 54 52 55 4e 43 28 53 54 41 53 42 45 53 54 29 3a 31 30 29 ┆5);WRITELN(I TRUNC(STASBEST):10)┆
0x0ae0…0b00 3b 14 04 45 4e 44 3b 04 08 31 37 3a 42 45 47 49 4e 08 33 47 4f 54 4f 58 59 28 35 30 2c 31 35 29 ┆; END; 17:BEGIN 3GOTOXY(50,15)┆
0x0b00…0b20 3b 57 52 49 54 45 28 27 31 37 20 53 49 44 53 54 20 42 45 53 54 27 29 3b 47 4f 54 4f 58 59 28 36 ┆;WRITE('17 SIDST BEST');GOTOXY(6┆
0x0b20…0b40 37 2c 31 35 29 3b 33 1f 57 52 49 54 45 4c 4e 28 44 41 54 53 42 45 53 31 3a 35 2c 44 41 54 53 42 ┆7,15);3 WRITELN(DATSBES1:5,DATSB┆
0x0b40…0b60 45 53 32 3a 35 29 3b 1f 04 45 4e 44 3b 04 08 31 38 3a 42 45 47 49 4e 08 3b 47 4f 54 4f 58 59 28 ┆ES2:5); END; 18:BEGIN ;GOTOXY(┆
0x0b60…0b80 31 2c 31 36 29 3b 57 52 49 54 45 28 27 31 38 20 53 49 44 53 54 20 53 4f 4c 47 54 27 29 3b 47 4f ┆1,16);WRITE('18 SIDST SOLGT');GO┆
0x0b80…0ba0 54 4f 58 59 28 33 30 2c 31 36 29 3b 57 52 49 54 45 4c 4e 28 3b 17 44 41 54 53 4f 52 44 31 3a 35 ┆TOXY(30,16);WRITELN(; DATSORD1:5┆
0x0ba0…0bc0 2c 44 41 54 53 4f 52 44 32 3a 35 29 3b 17 04 45 4e 44 3b 04 18 31 39 3a 20 49 46 20 4b 4f 44 45 ┆,DATSORD2:5); END; 19: IF KODE┆
0x0bc0…0be0 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 32 47 4f 54 4f 58 59 28 31 2c 31 37 29 3b 57 52 49 54 ┆>0 THEN BEGIN 2GOTOXY(1,17);WRIT┆
0x0be0…0c00 45 28 27 31 39 20 53 4f 4c 47 54 20 49 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 37 29 ┆E('19 SOLGT I ÅR');GOTOXY(30,17)┆
0x0c00…0c20 3b 32 1c 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 41 53 4f 4c 47 54 49 5d 29 3a 31 30 29 3b 1c ┆;2 WRITELN(TRUNC(ASOLGTIÅ):10); ┆
0x0c20…0c40 04 45 4e 44 3b 04 18 32 30 3a 20 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 ┆ END; 20: IF KODE>0 THEN BEGIN ┆
0x0c40…0c60 34 47 4f 54 4f 58 59 28 35 30 2c 31 37 29 3b 57 52 49 54 45 28 27 32 30 20 53 4f 4c 47 54 20 53 ┆4GOTOXY(50,17);WRITE('20 SOLGT S┆
0x0c60…0c80 2e 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 36 37 2c 31 37 29 3b 34 1c 57 52 49 54 45 4c 4e 28 54 ┆. ÅR');GOTOXY(67,17);4 WRITELN(T┆
0x0c80…0ca0 52 55 4e 43 28 41 53 4f 4c 47 54 53 5d 29 3a 31 30 29 3b 1c 04 45 4e 44 3b 04 18 32 31 3a 20 49 ┆RUNC(ASOLGTSÅ):10); END; 21: I┆
0x0ca0…0cc0 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 31 47 4f 54 4f 58 59 28 31 2c 31 38 ┆F KODE>0 THEN BEGIN 1GOTOXY(1,18┆
0x0cc0…0ce0 29 3b 57 52 49 54 45 28 27 32 31 20 4f 4d 53 2e 20 49 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 33 ┆);WRITE('21 OMS. I ÅR');GOTOXY(3┆
0x0ce0…0d00 30 2c 31 38 29 3b 31 1a 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 4f 4d 53 49 5d 52 29 3a 31 30 ┆0,18);1 WRITELN(TRUNC(OMSIÅR):10┆
0x0d00…0d20 29 3b 1a 2e 49 46 20 28 50 52 49 4d 4f 4c 41 47 2b 46 59 53 4c 41 47 45 52 3c 3e 30 29 20 41 4e ┆); .IF (PRIMOLAG+FYSLAGER<>0) AN┆
0x0d20…0d40 44 20 28 4f 4d 53 49 5d 52 3c 3e 30 29 20 54 48 45 4e 2e 05 42 45 47 49 4e 05 0d 47 4f 54 4f 58 ┆D (OMSIÅR<>0) THEN. BEGIN GOTOX┆
0x0d40…0d60 59 28 35 30 2c 31 29 3b 0d 41 57 52 49 54 45 4c 4e 28 27 47 4f 44 54 20 54 41 4c 20 27 2c 28 50 ┆Y(50,1); AWRITELN('GODT TAL ',(P┆
0x0d60…0d80 52 49 4d 4f 4c 41 47 2b 46 59 53 4c 41 47 45 52 29 2a 44 5b 4b 42 49 44 54 44 2f 28 32 2a 4f 4d ┆RIMOLAG+FYSLAGER)*DÆKBIDTD/(2*OM┆
0x0d80…0da0 53 49 5d 52 29 3a 31 32 3a 33 29 41 04 45 4e 44 3b 04 04 45 4e 44 3b 04 18 32 32 3a 20 49 46 20 ┆SIÅR):12:3)A END; END; 22: IF ┆
0x0da0…0dc0 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 4d 47 4f 54 4f 58 59 28 35 30 2c 31 38 29 ┆KODE>0 THEN BEGIN MGOTOXY(50,18)┆
0x0dc0…0de0 3b 57 52 49 54 45 28 27 32 32 20 4f 4d 53 2e 20 53 2e 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 36 ┆;WRITE('22 OMS. S. ÅR');GOTOXY(6┆
0x0de0…0e00 37 2c 31 38 29 3b 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 28 4f 4d 53 53 5d 52 29 3a 31 30 29 3b ┆7,18);WRITELN(TRUNC(OMSSÅR):10);┆
0x0e00…0e20 4d 04 45 4e 44 3b 04 18 32 33 3a 20 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e ┆M END; 23: IF KODE>0 THEN BEGIN┆
0x0e20…0e40 18 47 47 4f 54 4f 58 59 28 31 2c 31 39 29 3b 57 52 49 54 45 28 27 32 33 20 44 5b 4b 4e 49 4e 47 ┆ GGOTOXY(1,19);WRITE('23 DÆKNING┆
0x0e40…0e60 53 42 49 44 52 41 47 20 54 49 4c 20 44 41 54 4f 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 39 29 ┆SBIDRAG TIL DATO');GOTOXY(30,19)┆
0x0e60…0e80 3b 57 52 49 54 45 4c 4e 28 47 14 54 52 55 4e 43 28 44 5b 4b 42 49 44 54 44 29 3a 31 30 29 3b 14 ┆;WRITELN(G TRUNC(DÆKBIDTD):10); ┆
0x0e80…0ea0 04 45 4e 44 3b 04 18 32 34 3a 20 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 18 ┆ END; 24: IF KODE>0 THEN BEGIN ┆
0x0ea0…0ec0 4c 47 4f 54 4f 58 59 28 35 30 2c 31 39 29 3b 57 52 49 54 45 28 27 32 34 20 44 5b 4b 2e 47 52 41 ┆LGOTOXY(50,19);WRITE('24 DÆK.GRA┆
0x0ec0…0ee0 44 20 53 2e 20 5d 52 27 29 3b 47 4f 54 4f 58 59 28 36 37 2c 31 39 29 3b 57 52 49 54 45 4c 4e 28 ┆D S. ÅR');GOTOXY(67,19);WRITELN(┆
0x0ee0…0f00 44 5b 4b 47 52 41 53 5d 3a 31 30 29 3b 4c 04 45 4e 44 3b 04 08 32 35 3a 42 45 47 49 4e 08 46 47 ┆DÆKGRASÅ:10);L END; 25:BEGIN FG┆
0x0f00…0f20 4f 54 4f 58 59 28 31 2c 32 30 29 3b 57 52 49 54 45 28 27 32 35 20 41 4e 44 52 45 20 41 46 47 41 ┆OTOXY(1,20);WRITE('25 ANDRE AFGA┆
0x0f20…0f40 4e 47 45 2d 54 49 4c 47 41 4e 47 45 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 32 30 29 3b 57 52 49 ┆NGE-TILGANGE');GOTOXY(30,20);WRI┆
0x0f40…0f60 54 45 4c 4e 28 46 0d 41 4e 41 46 54 49 4c 47 3a 31 30 29 3b 0d 04 45 4e 44 3b 04 03 45 4e 44 03 ┆TELN(F ANAFTILG:10); END; END ┆
0x0f60…0f80 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 0e 20 20 49 46 20 4f 3c 3e 30 20 54 48 45 4e 0e 07 20 20 ┆ END; BEGIN IF O<>0 THEN ┆
0x0f80…0fa0 42 45 47 49 4e 07 22 20 20 20 20 49 46 20 28 31 3c 3d 4f 29 20 41 4e 44 20 28 4f 3c 3d 31 31 29 ┆BEGIN " IF (1<=O) AND (O<=11)┆
0x0fa0…0fc0 20 54 48 45 4e 20 50 52 31 22 08 20 20 20 20 45 4c 53 45 08 23 20 20 20 20 49 46 20 28 31 32 3c ┆ THEN PR1" ELSE # IF (12<┆
0x0fc0…0fe0 3d 4f 29 20 41 4e 44 20 28 4f 3c 3d 32 35 29 20 54 48 45 4e 20 50 52 32 23 08 20 20 20 20 45 4c ┆=O) AND (O<=25) THEN PR2# EL┆
0x0fe0…1000 53 45 08 09 20 20 20 20 42 45 47 49 4e 09 13 20 20 20 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 ┆SE BEGIN CLEARSCREE┆
0x1000…1020 4e 3b 13 1d 20 20 20 20 20 20 20 46 4f 52 20 4f 3a 3d 31 20 54 4f 20 31 31 20 44 4f 20 50 52 31 ┆N; FOR O:=1 TO 11 DO PR1┆
0x1020…1040 3b 1d 1d 20 20 20 20 20 20 20 46 4f 52 20 4f 3a 3d 31 32 20 54 4f 20 32 35 20 44 4f 20 50 52 32 ┆; FOR O:=12 TO 25 DO PR2┆
0x1040…1060 1d 07 20 20 20 20 45 4e 44 07 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 0f 50 52 4f 43 45 44 55 52 ┆ END END END; PROCEDUR┆
0x1060…1080 45 20 53 54 4f 50 3b 0f 0e 56 41 52 20 49 3a 49 4e 54 45 47 45 52 3b 0e 15 42 45 47 49 4e 20 49 ┆E STOP; VAR I:INTEGER; BEGIN I┆
0x1080…10a0 3a 3d 49 20 44 49 56 20 30 20 45 4e 44 3b 15 1d 50 52 4f 43 45 44 55 52 45 20 56 41 52 45 4f 50 ┆:=I DIV 0 END; PROCEDURE VAREOP┆
0x10a0…10c0 4c 28 4f 3a 49 4e 54 45 47 45 52 29 3b 1d 12 56 41 52 20 53 54 52 45 4e 47 3a 53 54 52 49 4e 47 ┆L(O:INTEGER); VAR STRENG:STRING┆
0x10c0…10e0 3b 12 0e 20 20 20 20 49 3a 49 4e 54 45 47 45 52 3b 0e 1f 46 55 4e 43 54 49 4f 4e 20 4c 5b 53 28 ┆; I:INTEGER; FUNCTION LÆS(┆
0x10e0…1100 58 2c 59 3a 49 4e 54 45 47 45 52 29 3a 52 45 41 4c 3b 1f 0d 56 41 52 20 52 45 53 3a 52 45 41 4c ┆X,Y:INTEGER):REAL; VAR RES:REAL┆
0x1100…1120 3b 0d 05 42 45 47 49 4e 05 08 20 20 52 45 50 45 41 54 08 13 20 20 20 20 20 20 20 47 4f 54 4f 58 ┆; BEGIN REPEAT GOTOX┆
0x1120…1140 59 28 58 2c 59 29 3b 13 0e 20 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 0e 10 20 20 20 20 20 20 20 ┆Y(X,Y); READLN; ┆
0x1140…1160 52 45 41 44 28 52 45 53 29 10 13 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 13 0a ┆READ(RES) UNTIL IORESULT=0; ┆
0x1160…1180 20 20 4c 5b 53 3a 3d 52 45 53 0a 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 0e 20 20 57 49 54 48 20 ┆ LÆS:=RES END; BEGIN WITH ┆
0x1180…11a0 56 41 52 45 20 44 4f 0e 0b 20 20 43 41 53 45 20 4f 20 4f 46 0b 0d 20 20 20 20 31 3a 20 52 45 50 ┆VARE DO CASE O OF 1: REP┆
0x11a0…11c0 45 41 54 0d 28 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 30 2c 31 29 3b 52 45 41 44 4c 4e 3b ┆EAT ( GOTOXY(20,1);READLN;┆
0x11c0…11e0 52 45 41 44 28 56 41 52 45 4e 52 31 29 28 40 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 56 41 52 ┆READ(VARENR1)(@ UNTIL (VAR┆
0x11e0…1200 45 4e 52 31 3e 39 39 39 29 20 41 4e 44 20 28 56 41 52 45 4e 52 31 3c 31 30 30 30 30 29 20 41 4e ┆ENR1>999) AND (VARENR1<10000) AN┆
0x1200…1220 44 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 3b 40 13 20 20 20 20 32 3a 20 42 45 47 49 4e 20 52 45 ┆D (IORESULT=0);@ 2: BEGIN RE┆
0x1220…1240 50 45 41 54 13 27 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 30 2c 32 29 3b 52 45 41 44 4c 4e ┆PEAT ' GOTOXY(30,2);READLN┆
0x1240…1260 3b 52 45 41 44 28 53 54 52 45 4e 47 29 27 1f 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4c 45 4e 47 ┆;READ(STRENG)' UNTIL LENG┆
0x1260…1280 54 48 28 53 54 52 45 4e 47 29 3c 33 31 3b 1f 3f 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 20 31 ┆TH(STRENG)<31; ? FOR I:= 1┆
0x1280…12a0 20 54 4f 20 4c 45 4e 47 54 48 28 53 54 52 45 4e 47 29 20 44 4f 20 4e 41 56 4e 28 31 2c 49 29 3a ┆ TO LENGTH(STRENG) DO NAVN(1,I):┆
0x12a0…12c0 3d 53 54 52 45 4e 47 28 49 29 20 45 4e 44 3b 3f 13 20 20 20 20 33 3a 20 42 45 47 49 4e 20 52 45 ┆=STRENG(I) END;? 3: BEGIN RE┆
0x12c0…12e0 50 45 41 54 13 27 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 30 2c 33 29 3b 52 45 41 44 4c 4e ┆PEAT ' GOTOXY(30,3);READLN┆
0x12e0…1300 3b 52 45 41 44 28 53 54 52 45 4e 47 29 27 1f 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4c 45 4e 47 ┆;READ(STRENG)' UNTIL LENG┆
0x1300…1320 54 48 28 53 54 52 45 4e 47 29 3c 33 31 3b 1f 3e 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 ┆TH(STRENG)<31; > FOR I:=1 ┆
0x1320…1340 54 4f 20 4c 45 4e 47 54 48 28 53 54 52 45 4e 47 29 20 44 4f 20 4e 41 56 4e 28 32 2c 49 29 3a 3d ┆TO LENGTH(STRENG) DO NAVN(2,I):=┆
0x1340…1360 53 54 52 45 4e 47 28 49 29 20 45 4e 44 3b 3e 07 20 20 20 20 34 3a 20 07 14 50 52 49 53 3a 3d 4c ┆STRENG(I) END;> 4: PRIS:=L┆
0x1360…1380 5b 53 28 32 30 2c 34 29 2a 31 30 30 3b 14 07 20 20 20 20 35 3a 20 07 18 4b 4f 53 54 50 52 49 53 ┆ÆS(20,4)*100; 5: KOSTPRIS┆
0x1380…13a0 3a 3d 4c 5b 53 28 32 30 2c 35 29 2a 31 30 30 3b 18 0d 20 20 20 20 36 3a 20 52 45 50 45 41 54 0d ┆:=LÆS(20,5)*100; 6: REPEAT ┆
0x13a0…13c0 28 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 30 2c 36 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 ┆( GOTOXY(20,6);READLN;READ┆
0x13c0…13e0 28 4c 56 52 4e 44 5c 52 29 28 3f 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c ┆(LVRNDØR)(? UNTIL (IORESUL┆
0x13e0…1400 54 3d 30 29 20 41 4e 44 20 28 4c 56 52 4e 44 5c 52 3e 3d 31 29 20 41 4e 44 20 28 4c 56 52 4e 44 ┆T=0) AND (LVRNDØR>=1) AND (LVRND┆
0x1400…1420 5c 52 3c 31 30 30 30 30 29 3b 3f 0d 20 20 20 20 37 3a 20 52 45 50 45 41 54 0d 28 20 20 20 20 20 ┆ØR<10000);? 7: REPEAT ( ┆
0x1420…1440 20 20 47 4f 54 4f 58 59 28 32 30 2c 37 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 50 52 4c 41 ┆ GOTOXY(20,7);READLN;READ(OPRLA┆
0x1440…1460 4e 44 29 28 3d 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 ┆ND)(= UNTIL (IORESULT=0) A┆
0x1460…1480 4e 44 20 28 4f 50 52 4c 41 4e 44 3e 3d 30 29 20 41 4e 44 20 28 4f 50 52 4c 41 4e 44 3c 31 30 30 ┆ND (OPRLAND>=0) AND (OPRLAND<100┆
0x1480…14a0 29 3b 3d 0c 20 20 20 20 38 3a 20 42 45 47 49 4e 0c 13 54 4f 4c 44 50 4e 52 3a 3d 4c 5b 53 28 32 ┆);= 8: BEGIN TOLDPNR:=LÆS(2┆
0x14a0…14c0 30 2c 38 29 3b 13 1c 20 20 20 20 20 20 20 54 4f 4c 44 50 4e 52 3a 3d 54 4f 4c 44 50 4e 52 2a 31 ┆0,8); TOLDPNR:=TOLDPNR*1┆
0x14c0…14e0 30 30 30 1c 0b 20 20 20 20 20 20 20 45 4e 44 3b 0b 0d 20 20 20 20 39 3a 20 52 45 50 45 41 54 0d ┆000 END; 9: REPEAT ┆
0x14e0…1500 29 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 30 2c 39 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 ┆) GOTOXY(20,9);READLN;READ┆
0x1500…1520 28 50 41 4b 45 4e 48 45 44 29 29 18 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c ┆(PAKENHED)) UNTIL IORESUL┆
0x1520…1540 54 3d 30 3b 18 07 20 20 20 31 30 3a 20 07 15 46 59 53 4c 41 47 45 52 3a 3d 4c 5b 53 28 32 30 2c ┆T=0; 10: FYSLAGER:=LÆS(20,┆
0x1540…1560 31 30 29 3b 15 07 20 20 20 31 31 3a 20 07 15 52 45 53 41 46 4c 41 47 3a 3d 4c 5b 53 28 32 30 2c ┆10); 11: RESAFLAG:=LÆS(20,┆
0x1560…1580 31 31 29 3b 15 07 20 20 20 31 32 3a 20 07 15 4d 49 4e 4c 41 47 45 52 3a 3d 4c 5b 53 28 32 30 2c ┆11); 12: MINLAGER:=LÆS(20,┆
0x1580…15a0 31 32 29 3b 15 07 20 20 20 31 33 3a 20 07 13 49 4f 52 44 52 45 3a 3d 4c 5b 53 28 32 30 2c 31 33 ┆12); 13: IORDRE:=LÆS(20,13┆
0x15a0…15c0 29 3b 13 07 20 20 20 31 34 3a 20 07 15 52 41 49 4f 52 44 52 45 3a 3d 4c 5b 53 28 32 30 2c 31 34 ┆); 14: RAIORDRE:=LÆS(20,14┆
0x15c0…15e0 29 3b 15 0d 20 20 20 31 35 3a 20 52 45 50 45 41 54 0d 2a 20 20 20 20 20 20 20 47 4f 54 4f 58 59 ┆); 15: REPEAT * GOTOXY┆
0x15e0…1600 28 36 38 2c 31 34 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 46 4f 52 56 4c 45 56 55 29 2a 3f 20 ┆(68,14);READLN;READ(FORVLEVU)*? ┆
0x1600…1620 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 46 4f ┆ UNTIL (IORESULT=0) AND (FO┆
0x1620…1640 52 56 4c 45 56 55 3e 3d 30 29 20 41 4e 44 20 28 46 4f 52 56 4c 45 56 55 3c 3d 35 33 29 3b 3f 07 ┆RVLEVU>=0) AND (FORVLEVU<=53);? ┆
0x1640…1660 20 20 20 31 36 3a 20 07 15 53 54 41 53 42 45 53 54 3a 3d 4c 5b 53 28 33 30 2c 31 35 29 3b 15 0d ┆ 16: STASBEST:=LÆS(30,15); ┆
0x1660…1680 20 20 20 31 37 3a 20 52 45 50 45 41 54 0d 33 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 36 38 2c ┆ 17: REPEAT 3 GOTOXY(68,┆
0x1680…16a0 31 35 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 44 41 54 53 42 45 53 31 2c 44 41 54 53 42 45 53 ┆15);READLN;READ(DATSBES1,DATSBES┆
0x16a0…16c0 32 29 33 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 0d 20 20 ┆2)3 UNTIL IORESULT=0; ┆
0x16c0…16e0 20 31 38 3a 20 52 45 50 45 41 54 0d 33 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 31 2c 31 36 ┆ 18: REPEAT 3 GOTOXY(31,16┆
0x16e0…1700 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 44 41 54 53 4f 52 44 31 2c 44 41 54 53 4f 52 44 32 29 ┆);READLN;READ(DATSORD1,DATSORD2)┆
0x1700…1720 33 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 ┆3 UNTIL IORESULT=0; 1┆
0x1720…1740 39 3a 20 07 15 41 53 4f 4c 47 54 49 5d 3a 3d 4c 5b 53 28 33 30 2c 31 37 29 3b 15 06 20 20 20 32 ┆9: ASOLGTIÅ:=LÆS(30,17); 2┆
0x1740…1760 30 3a 06 15 41 53 4f 4c 47 54 53 5d 3a 3d 4c 5b 53 28 36 37 2c 31 37 29 3b 15 07 20 20 20 32 31 ┆0: ASOLGTSÅ:=LÆS(67,17); 21┆
0x1760…1780 3a 20 07 13 4f 4d 53 49 5d 52 3a 3d 4c 5b 53 28 33 30 2c 31 38 29 3b 13 07 20 20 20 32 32 3a 20 ┆: OMSIÅR:=LÆS(30,18); 22: ┆
0x1780…17a0 07 13 4f 4d 53 53 5d 52 3a 3d 4c 5b 53 28 36 37 2c 31 38 29 3b 13 07 20 20 20 32 33 3a 20 07 15 ┆ OMSSÅR:=LÆS(67,18); 23: ┆
0x17a0…17c0 44 5b 4b 42 49 44 54 44 3a 3d 4c 5b 53 28 33 30 2c 31 39 29 3b 15 0d 20 20 20 32 34 3a 20 52 45 ┆DÆKBIDTD:=LÆS(30,19); 24: RE┆
0x17c0…17e0 50 45 41 54 0d 2a 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 36 37 2c 31 39 29 3b 52 45 41 44 4c ┆PEAT * GOTOXY(67,19);READL┆
0x17e0…1800 4e 3b 52 45 41 44 28 44 5b 4b 47 52 41 53 5d 29 2a 18 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 ┆N;READ(DÆKGRASÅ)* UNTIL I┆
0x1800…1820 4f 52 45 53 55 4c 54 3d 30 3b 18 0d 20 20 20 32 35 3a 20 52 45 50 45 41 54 0d 2a 20 20 20 20 20 ┆ORESULT=0; 25: REPEAT * ┆
0x1820…1840 20 20 47 4f 54 4f 58 59 28 33 30 2c 32 30 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 41 4e 41 46 ┆ GOTOXY(30,20);READLN;READ(ANAF┆
0x1840…1860 54 49 4c 47 29 2a 17 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 17 07 ┆TILG)* UNTIL IORESULT=0 ┆
0x1860…1880 20 20 20 20 45 4e 44 07 04 45 4e 44 3b 04 11 50 52 4f 43 45 44 55 52 45 20 5a 45 52 52 45 43 3b ┆ END END; PROCEDURE ZERREC;┆
0x1880…18a0 11 05 42 45 47 49 4e 05 0e 20 20 57 49 54 48 20 56 41 52 45 20 44 4f 0e 07 20 20 42 45 47 49 4e ┆ BEGIN WITH VARE DO BEGIN┆
0x18a0…18c0 07 1a 20 20 20 20 20 20 20 50 52 49 4d 4f 4c 41 47 3a 3d 46 59 53 4c 41 47 45 52 3b 1a 1a 20 20 ┆ PRIMOLAG:=FYSLAGER; ┆
0x18c0…18e0 20 20 20 20 20 41 53 4f 4c 47 54 53 5d 3a 3d 41 53 4f 4c 47 54 49 5d 3b 1a 15 20 20 20 20 20 20 ┆ ASOLGTSÅ:=ASOLGTIÅ; ┆
0x18e0…1900 20 41 53 4f 4c 47 54 49 5d 3a 3d 30 2e 30 3b 15 16 20 20 20 20 20 20 20 4f 4d 53 53 5d 52 3a 3d ┆ ASOLGTIÅ:=0.0; OMSSÅR:=┆
0x1900…1920 4f 4d 53 49 5d 52 3b 16 13 20 20 20 20 20 20 20 4f 4d 53 49 5d 52 3a 3d 30 2e 30 3b 13 2e 20 20 ┆OMSIÅR; OMSIÅR:=0.0; . ┆
0x1920…1940 20 20 20 20 20 44 5b 4b 47 52 41 53 5d 3a 3d 54 52 55 4e 43 28 28 44 5b 4b 42 49 44 54 44 2f 4f ┆ DÆKGRASÅ:=TRUNC((DÆKBIDTD/O┆
0x1940…1960 4d 53 53 5d 52 29 2a 31 30 30 29 3b 2e 15 20 20 20 20 20 20 20 44 5b 4b 42 49 44 54 44 3a 3d 30 ┆MSSÅR)*100);. DÆKBIDTD:=0┆
0x1960…1980 2e 30 3b 15 13 20 20 20 20 20 20 20 41 4e 41 46 54 49 4c 47 3a 3d 30 3b 13 13 20 20 20 20 20 20 ┆.0; ANAFTILG:=0; ┆
0x1980…19a0 20 46 59 53 4c 41 47 45 52 3a 3d 30 3b 13 15 20 20 20 20 20 20 20 52 45 53 41 46 4c 41 47 3a 3d ┆ FYSLAGER:=0; RESAFLAG:=┆
0x19a0…19c0 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 20 20 ┆0.0; IORDRE:=0.0; ┆
0x19c0…19e0 20 20 52 41 49 4f 52 44 52 45 3a 3d 30 2e 30 3b 15 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 10 50 ┆ RAIORDRE:=0.0; END END; P┆
0x19e0…1a00 52 4f 43 45 44 55 52 45 20 45 52 52 4f 52 3b 10 05 42 45 47 49 4e 05 21 20 20 57 52 49 54 45 4c ┆ROCEDURE ERROR; BEGIN ! WRITEL┆
0x1a00…1a20 4e 28 27 46 45 4a 4c 20 49 20 56 41 52 45 52 45 47 20 27 2c 49 45 52 29 3b 21 11 20 20 49 43 4c ┆N('FEJL I VAREREG ',IER);! ICL┆
0x1a20…1a40 4f 53 45 28 56 5a 2e 48 2c 46 29 3b 11 19 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 ┆OSE(VZ.H,F); WRITELN('ICLOSE ┆
0x1a40…1a60 27 2c 49 45 52 29 3b 19 06 20 20 53 54 4f 50 06 04 45 4e 44 3b 04 13 50 52 4f 43 45 44 55 52 45 ┆',IER); STOP END; PROCEDURE┆
0x1a60…1a80 20 4d 41 49 4e 54 41 49 4e 3b 13 17 56 41 52 20 49 2c 4f 2c 50 2c 4b 4f 44 45 3a 49 4e 54 45 47 ┆ MAINTAIN; VAR I,O,P,KODE:INTEG┆
0x1a80…1aa0 45 52 3b 17 14 20 20 20 20 43 48 41 4e 47 45 44 3a 42 4f 4f 4c 45 41 4e 3b 14 12 20 20 20 20 53 ┆ER; CHANGED:BOOLEAN; S┆
0x1aa0…1ac0 54 52 45 4e 47 3a 53 54 52 49 4e 47 3b 12 36 20 20 20 20 4b 4f 44 45 31 2c 4b 4f 44 45 32 3a 53 ┆TRENG:STRING; 6 KODE1,KODE2:S┆
0x1ac0…1ae0 54 52 49 4e 47 28 31 30 29 3b 20 20 28 2a 4b 49 4b 4b 45 4e 5c 47 4c 45 2c 5b 4e 44 52 45 4e 5c ┆TRING(10); (*KIKKENØGLE,ÆNDRENØ┆
0x1ae0…1b00 47 4c 45 2a 29 36 05 42 45 47 49 4e 05 26 20 20 28 2a 49 4e 44 4c 5b 53 20 4b 4f 44 45 31 20 4f ┆GLE*)6 BEGIN & (*INDLÆS KODE1 O┆
0x1b00…1b20 47 20 4b 4f 44 45 32 20 46 52 41 20 53 59 53 52 45 47 2a 29 26 16 20 20 4b 4f 44 45 32 3a 3d 27 ┆G KODE2 FRA SYSREG*)& KODE2:='┆
0x1b20…1b40 50 49 4c 4c 45 50 49 4c 4c 45 27 3b 16 16 20 20 4b 4f 44 45 31 3a 3d 27 4b 49 4b 4b 45 4b 49 4b ┆PILLEPILLE'; KODE1:='KIKKEKIK┆
0x1b40…1b60 4b 45 27 3b 16 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 25 20 20 47 4f 54 4f 58 59 28 31 ┆KE'; CLEARSCREEN; % GOTOXY(1┆
0x1b60…1b80 2c 31 29 3b 57 52 49 54 45 4c 4e 28 27 41 44 47 41 4e 47 53 4b 4f 44 45 27 29 3b 25 23 20 20 47 ┆,1);WRITELN('ADGANGSKODE');%# G┆
0x1b80…1ba0 4f 54 4f 58 59 28 32 30 2c 31 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 53 54 52 45 4e 47 29 3b ┆OTOXY(20,1);READLN;READ(STRENG);┆
0x1ba0…1bc0 23 0a 20 20 4b 4f 44 45 3a 3d 30 3b 0a 1f 20 20 49 46 20 53 54 52 45 4e 47 3d 4b 4f 44 45 31 20 ┆# KODE:=0; IF STRENG=KODE1 ┆
0x1bc0…1be0 54 48 45 4e 20 4b 4f 44 45 3a 3d 31 3b 1f 1f 20 20 49 46 20 53 54 52 45 4e 47 3d 4b 4f 44 45 32 ┆THEN KODE:=1; IF STRENG=KODE2┆
0x1be0…1c00 20 54 48 45 4e 20 4b 4f 44 45 3a 3d 32 3b 1f 08 20 20 52 45 50 45 41 54 08 08 20 20 52 45 50 45 ┆ THEN KODE:=2; REPEAT REPE┆
0x1c00…1c20 41 54 08 4c 20 47 4f 54 4f 58 59 28 31 2c 32 32 29 3b 57 52 49 54 45 4c 4e 28 27 4f 50 52 45 54 ┆AT L GOTOXY(1,22);WRITELN('OPRET┆
0x1c20…1c40 54 45 2c 20 4b 49 4b 4b 45 20 45 4c 4c 45 52 20 53 4c 45 54 54 45 20 28 31 2f 32 2f 33 29 2c 20 ┆TE, KIKKE ELLER SLETTE (1/2/3), ┆
0x1c40…1c60 30 20 46 4f 52 20 53 54 4f 50 20 20 20 27 29 3b 4c 23 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 ┆0 FOR STOP ');L# GOTOXY(┆
0x1c60…1c80 35 30 2c 32 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 50 29 23 3b 20 20 55 4e 54 49 4c 20 28 ┆50,22);READLN;READ(P)#; UNTIL (┆
0x1c80…1ca0 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 28 28 50 3d 31 29 20 4f 52 20 28 50 3d 32 29 20 4f ┆IORESULT=0) AND((P=1) OR (P=2) O┆
0x1ca0…1cc0 52 20 28 50 3d 30 29 20 4f 52 20 28 50 3d 33 29 29 3b 3b 0b 20 20 43 41 53 45 20 50 20 4f 46 0b ┆R (P=0) OR (P=3));; CASE P OF ┆
0x1cc0…1ce0 0c 20 20 20 20 31 3a 20 42 45 47 49 4e 0c 0f 20 20 20 20 20 20 20 20 5a 45 52 52 45 43 3b 0f 1a ┆ 1: BEGIN ZERREC; ┆
0x1ce0…1d00 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 1a 31 20 20 20 20 ┆ PRVAROPL(-1,KODE); 1 ┆
0x1d00…1d20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 56 41 52 45 4f 50 4c 28 49 29 ┆ FOR I:=1 TO 10 DO VAREOPL(I)┆
0x1d20…1d40 3b 56 41 52 45 4f 50 4c 28 31 32 29 3b 31 1a 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 ┆;VAREOPL(12);1 PRVAROPL(┆
0x1d40…1d60 2d 31 2c 4b 4f 44 45 29 3b 1a 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 4d 20 20 20 20 20 ┆-1,KODE); REPEAT M ┆
0x1d60…1d80 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 5b 4e 44 52 49 4e ┆ GOTOXY(1,22);WRITELN('ÆNDRIN┆
0x1d80…1da0 47 45 52 2c 20 30 20 46 4f 52 20 4e 45 4a 20 45 4c 4c 45 52 53 20 46 45 4c 54 4e 52 20 20 20 20 ┆GER, 0 FOR NEJ ELLERS FELTNR ┆
0x1da0…1dc0 20 20 20 20 20 27 29 3b 4d 26 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c 32 32 29 ┆ ');M& GOTOXY(40,22)┆
0x1dc0…1de0 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 3b 26 3b 20 20 20 20 20 20 20 20 20 49 46 20 28 28 ┆;READLN;READ(O);&; IF ((┆
0x1de0…1e00 4f 3e 3d 31 29 20 41 4e 44 20 28 4f 3c 3d 31 30 29 29 20 4f 52 20 28 4f 3d 31 32 29 20 54 48 45 ┆O>=1) AND (O<=10)) OR (O=12) THE┆
0x1e00…1e20 4e 20 56 41 52 45 4f 50 4c 28 4f 29 3b 3b 26 20 20 20 20 20 20 20 20 20 56 41 52 45 2e 50 52 49 ┆N VAREOPL(O);;& VARE.PRI┆
0x1e20…1e40 4d 4f 4c 41 47 3a 3d 56 41 52 45 2e 46 59 53 4c 41 47 45 52 3b 26 19 20 20 20 20 20 20 20 20 20 ┆MOLAG:=VARE.FYSLAGER;& ┆
0x1e40…1e60 50 52 56 41 52 4f 50 4c 28 4f 2c 4b 4f 44 45 29 19 12 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 ┆PRVAROPL(O,KODE) UNTIL ┆
0x1e60…1e80 4f 3d 30 3b 12 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 1e 20 20 20 20 20 20 20 20 49 4e ┆O=0; REPEAT IN┆
0x1e80…1ea0 53 45 52 54 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 1e 16 20 20 20 20 20 20 20 20 49 46 ┆SERT(VZ.H,F,VARE.A); IF┆
0x1ea0…1ec0 20 49 45 52 3d 2d 37 20 54 48 45 4e 16 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 3b 20 20 20 ┆ IER=-7 THEN BEGIN ; ┆
0x1ec0…1ee0 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 56 41 52 45 ┆ GOTOXY(1,23);WRITELN('VARE┆
0x1ee0…1f00 4e 52 20 46 49 4e 44 45 53 20 49 20 46 4f 52 56 45 4a 45 4e 20 27 29 3b 3b 13 20 20 20 20 20 20 ┆NR FINDES I FORVEJEN ');; ┆
0x1f00…1f20 20 20 20 56 41 52 45 4f 50 4c 28 31 29 13 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 0c 20 20 20 20 ┆ VAREOPL(1) END ┆
0x1f20…1f40 20 20 20 20 45 4c 53 45 0c 1c 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e ┆ ELSE IF IER<>0 THEN┆
0x1f40…1f60 20 45 52 52 4f 52 1c 14 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 45 52 3d 30 3b 14 0b 20 20 ┆ ERROR UNTIL IER=0; ┆
0x1f60…1f80 20 20 20 20 20 45 4e 44 3b 0b 0c 20 20 20 20 32 3a 20 42 45 47 49 4e 0c 0f 20 20 20 20 20 20 20 ┆ END; 2: BEGIN ┆
0x1f80…1fa0 20 20 52 45 50 45 41 54 0f 4d 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 ┆ REPEAT M GOTOXY(1,23)┆
0x1fa0…1fc0 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 20 20 20 20 20 20 ┆;WRITELN('VARENR ┆
0x1fc0…1fe0 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 20 20 20 20 20 20 ┆ ');M& ┆
0x1fe0…2000 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 41 44 28 4f 29 26 ┆ GOTOXY(30,23);READLN;READ(O)&┆
0x2000…2020 36 20 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 29 20 41 4e 44 ┆6 UNTIL (IORESULT=0) AND┆
0x2020…2040 20 28 4f 3e 39 39 39 29 20 41 4e 44 20 28 4f 3c 31 30 30 30 30 29 3b 36 19 20 20 20 20 20 20 20 ┆ (O>999) AND (O<10000);6 ┆
0x2040…2060 20 20 56 41 52 45 2e 56 41 52 45 4e 52 31 3a 3d 4f 3b 19 1f 20 20 20 20 20 20 20 20 20 47 45 54 ┆ VARE.VARENR1:=O; GET┆
0x2060…2080 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 1f 38 20 20 20 20 20 20 20 20 20 49 46 ┆REC(VZ.H,F,VARE.A); 8 IF┆
0x2080…20a0 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 53 49 ┆ IER=-6 THEN WRITELN('VAREN EKSI┆
0x20a0…20c0 53 54 45 52 45 52 20 49 4b 4b 45 27 29 38 0d 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 1d 20 20 ┆STERER IKKE')8 ELSE ┆
0x20c0…20e0 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 1d 0d 20 20 20 ┆ IF IER<>0 THEN ERROR ┆
0x20e0…2100 20 20 20 20 20 20 45 4c 53 45 0d 0e 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0e 1b 20 20 20 20 ┆ ELSE BEGIN ┆
0x2100…2120 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 1b 18 20 20 20 20 20 20 20 ┆ PRVAROPL(-1,KODE); ┆
0x2120…2140 20 20 43 48 41 4e 47 45 44 3a 3d 46 41 4c 53 45 3b 18 0f 20 20 20 20 20 20 20 20 20 52 45 50 45 ┆ CHANGED:=FALSE; REPE┆
0x2140…2160 41 54 0f 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 ┆AT REPEAT M G┆
0x2160…2180 4f 54 4f 58 59 28 31 2c 32 32 29 3b 57 52 49 54 45 4c 4e 28 27 48 56 49 4c 4b 45 54 20 46 45 4c ┆OTOXY(1,22);WRITELN('HVILKET FEL┆
0x2180…21a0 54 20 53 4b 41 4c 20 5b 4e 44 52 45 53 2c 20 30 20 46 4f 52 20 53 4c 55 54 20 20 20 20 20 20 27 ┆T SKAL ÆNDRES, 0 FOR SLUT '┆
0x21a0…21c0 29 3b 4d 26 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c 32 32 29 3b 52 45 41 44 ┆);M& GOTOXY(40,22);READ┆
0x21c0…21e0 4c 4e 3b 52 45 41 44 28 4f 29 26 1a 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 ┆LN;READ(O)& UNTIL IORES┆
0x21e0…2200 55 4c 54 3d 30 3b 1a 12 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4f 20 4f 46 12 1e 20 20 20 20 ┆ULT=0; CASE O OF ┆
0x2200…2220 20 20 20 20 20 20 20 20 20 20 20 31 2c 31 30 2c 31 32 20 3a 20 42 45 47 49 4e 1e 2c 20 20 20 20 ┆ 1,10,12 : BEGIN , ┆
0x2220…2240 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 47 4f 54 4f 58 ┆ GOTOX┆
0x2240…2260 59 28 31 2c 32 33 29 3b 2c 3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Y(1,23);,? ┆
0x2260…2280 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┆
0x2280…22a0 49 4c 4c 41 44 54 27 29 3b 3f 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ILLADT');?- ┆
0x22a0…22c0 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 35 2c 32 33 29 3b 2d 43 20 20 20 20 20 20 ┆ GOTOXY(25,23);-C ┆
0x22c0…22e0 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 57 52 49 54 45 4c 4e ┆ WRITELN┆
0x22e0…2300 28 27 54 52 59 4b 20 52 45 54 55 52 4e 20 4e 5d 52 20 46 4f 52 53 54 5d 45 54 27 29 3b 43 41 20 ┆('TRYK RETURN NÅR FORSTÅET');CA ┆
0x2300…2320 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 47 4f ┆ GO┆
0x2320…2340 54 4f 58 59 28 36 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 53 54 52 45 4e 47 29 3b ┆TOXY(60,23);READLN;READ(STRENG);┆
0x2340…2360 41 31 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 ┆A1 ┆
0x2360…2380 20 49 46 20 53 54 52 45 4e 47 3d 27 41 27 20 54 48 45 4e 31 24 20 20 20 20 20 20 20 20 20 20 20 ┆ IF STRENG='A' THEN1$ ┆
0x2380…23a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 24 39 20 20 20 20 20 ┆ BEGIN$9 ┆
0x23a0…23c0 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 56 41 52 45 ┆ VARE┆
0x23c0…23e0 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a 3d 54 52 55 45 39 22 20 20 20 20 20 20 20 20 20 20 ┆OPL(O);CHANGED:=TRUE9" ┆
0x23e0…2400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 22 1d 20 20 20 20 20 20 ┆ END" ┆
0x2400…2420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 1d 29 34 2c 37 2c 38 2c 35 ┆ END; )4,7,8,5┆
0x2420…2440 2c 31 39 2c 32 30 2c 32 31 2c 32 32 2c 32 33 2c 32 34 3a 20 49 46 20 4b 4f 44 45 3d 32 20 54 48 ┆,19,20,21,22,23,24: IF KODE=2 TH┆
0x2440…2460 45 4e 29 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 ┆EN) B┆
0x2460…2480 45 47 49 4e 20 35 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 ┆EGIN 5 ┆
0x2480…24a0 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 35 23 20 20 20 ┆ VAREOPL(O);CHANGED:=TRUE5# ┆
0x24a0…24c0 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 20 45 4c 53 45 ┆ END ELSE┆
0x24c0…24e0 23 28 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 4e 20 47 4f 54 ┆#( BEGIN GOT┆
0x24e0…2500 4f 58 59 28 31 2c 32 33 29 3b 28 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OXY(1,23);(M ┆
0x2500…2520 20 57 52 49 54 45 4c 4e 28 27 5b 4e 44 52 49 4e 47 20 49 4b 4b 45 20 54 49 4c 4c 41 44 54 20 4d ┆ WRITELN('ÆNDRING IKKE TILLADT M┆
0x2520…2540 45 44 20 4f 50 47 49 56 45 4e 20 41 44 47 41 4e 47 53 4b 4f 44 45 27 29 3b 4d 19 20 20 20 20 20 ┆ED OPGIVEN ADGANGSKODE');M ┆
0x2540…2560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 19 43 32 2c 33 2c 36 2c 39 2c 31 31 ┆ END; C2,3,6,9,11┆
0x2560…2580 2c 31 33 2c 31 34 2c 31 35 2c 31 36 2c 31 37 2c 31 38 2c 32 35 20 3a 42 45 47 49 4e 20 56 41 52 ┆,13,14,15,16,17,18,25 :BEGIN VAR┆
0x2580…25a0 45 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a 3d 54 52 55 45 20 45 4e 44 43 13 20 20 20 20 20 ┆EOPL(O);CHANGED:=TRUE ENDC ┆
0x25a0…25c0 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 13 19 20 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 ┆ END; PRVAROP┆
0x25c0…25e0 4c 28 4f 2c 4b 4f 44 45 29 19 13 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 3d 30 3b 13 2f ┆L(O,KODE) UNTIL O=0; /┆
0x25e0…2600 20 20 20 20 20 20 20 20 20 49 46 20 43 48 41 4e 47 45 44 20 54 48 45 4e 20 50 55 54 52 45 43 28 ┆ IF CHANGED THEN PUTREC(┆
0x2600…2620 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 2f 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 0a 20 ┆VZ.H,F,VARE.A);/ END ┆
0x2620…2640 20 20 20 20 20 45 4e 44 3b 0a 0b 20 20 20 33 3a 20 42 45 47 49 4e 0b 0e 20 20 20 20 20 20 20 20 ┆ END; 3: BEGIN ┆
0x2640…2660 52 45 50 45 41 54 0e 4d 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 57 ┆REPEAT M GOTOXY(1,23);W┆
0x2660…2680 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RITELN('VARENR ┆
0x2680…26a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 4d 26 20 20 20 20 20 20 20 20 20 ┆ ');M& ┆
0x26a0…26c0 20 47 4f 54 4f 58 59 28 33 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 26 35 20 ┆ GOTOXY(30,23);READLN;READ(O)&5 ┆
0x26c0…26e0 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 4f ┆ UNTIL (IORESULT=0) AND (O┆
0x26e0…2700 3e 39 39 39 29 20 41 4e 44 20 28 4f 3c 31 30 30 30 30 29 3b 35 18 20 20 20 20 20 20 20 20 56 41 ┆>999) AND (O<10000);5 VA┆
0x2700…2720 52 45 2e 56 41 52 45 4e 52 31 3a 3d 4f 3b 18 1e 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 56 ┆RE.VARENR1:=O; GETREC(V┆
0x2720…2740 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 1e 37 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d ┆Z.H,F,VARE.A); 7 IF IER=-┆
0x2740…2760 36 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 20 45 4b 53 49 53 54 45 52 45 52 ┆6 THEN WRITELN('VAREN EKSISTERER┆
0x2760…2780 20 49 4b 4b 45 27 29 37 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 1c 20 20 20 20 20 20 20 20 49 ┆ IKKE')7 ELSE I┆
0x2780…27a0 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 1c 0c 20 20 20 20 20 20 20 20 45 4c 53 ┆F IER<>0 THEN ERROR ELS┆
0x27a0…27c0 45 0c 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 1c 20 20 20 20 20 20 20 20 20 20 50 52 56 41 ┆E BEGIN PRVA┆
0x27c0…27e0 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 1c 18 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 4f 44 ┆ROPL(-1,KODE); IF KOD┆
0x27e0…2800 45 3d 32 20 54 48 45 4e 18 16 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 56 41 52 45 20 44 4f ┆E=2 THEN WITH VARE DO┆
0x2800…2820 16 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 4c 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆ BEGIN L I┆
0x2820…2840 46 20 28 46 59 53 4c 41 47 45 52 3d 30 29 20 41 4e 44 20 28 52 45 53 41 46 4c 41 47 3d 30 29 20 ┆F (FYSLAGER=0) AND (RESAFLAG=0) ┆
0x2840…2860 41 4e 44 20 28 49 4f 52 44 52 45 3d 30 29 20 41 4e 44 20 28 52 41 49 4f 52 44 52 45 3d 30 29 4c ┆AND (IORDRE=0) AND (RAIORDRE=0)L┆
0x2860…2880 16 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 42 45 47 49 4e 16 15 20 20 20 20 20 20 20 ┆ THEN BEGIN ┆
0x2880…28a0 20 20 20 20 20 20 20 20 52 45 50 45 41 54 15 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 ┆ REPEAT M G┆
0x28a0…28c0 4f 54 4f 58 59 28 31 2c 32 33 29 3b 57 52 49 54 45 4c 4e 28 27 53 4b 41 4c 20 53 4c 45 54 4e 49 ┆OTOXY(1,23);WRITELN('SKAL SLETNI┆
0x28c0…28e0 4e 47 20 55 44 46 5c 52 45 53 20 28 31 29 2c 20 30 20 46 4f 52 20 4e 45 4a 20 27 29 3b 4d 2b 20 ┆NG UDFØRES (1), 0 FOR NEJ ');M+ ┆
0x28e0…2900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c 32 33 29 3b 52 45 41 44 ┆ GOTOXY(40,23);READ┆
0x2900…2920 4c 4e 3b 52 45 41 44 28 4f 29 2b 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c ┆LN;READ(O)+7 UNTIL┆
0x2920…2940 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 28 4f 3d 30 29 20 4f 52 20 28 4f 3d 31 ┆ (IORESULT=0) AND ((O=0) OR (O=1┆
0x2940…2960 29 29 3b 37 1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 3d 31 20 54 48 45 4e 1a ┆));7 IF O=1 THEN ┆
0x2960…2980 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 14 27 20 20 20 20 20 20 20 20 20 ┆ BEGIN ' ┆
0x2980…29a0 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 27 23 ┆ DELETE(VZ.H,F,VARE.A);'#┆
0x29a0…29c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 ┆ PRVAROPL(-1,KOD┆
0x29c0…29e0 45 29 3b 23 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 ┆E);#% IF IER<>0 ┆
0x29e0…2a00 54 48 45 4e 20 45 52 52 4f 52 25 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 12 0f ┆THEN ERROR% END ┆
0x2a00…2a20 20 20 20 20 20 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 ┆ END ELS┆
0x2a20…2a40 45 10 11 20 20 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 ┆E BEGIN ┆
0x2a40…2a60 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 1c 4c 20 20 20 20 20 20 20 20 20 20 20 57 ┆ GOTOXY(1,23); L W┆
0x2a60…2a80 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 20 4d 5d 20 49 4b 4b 45 20 53 4c 45 54 54 45 53 20 50 2e ┆RITELN('VAREN MÅ IKKE SLETTES P.┆
0x2a80…2aa0 47 52 2e 41 2e 20 50 4f 53 49 54 49 56 45 20 4c 41 47 45 52 2f 4f 52 44 52 45 2d 54 41 4c 27 29 ┆GR.A. POSITIVE LAGER/ORDRE-TAL')┆
0x2aa0…2ac0 4c 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆L END E┆
0x2ac0…2ae0 4e 44 0f 10 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 10 11 20 20 20 20 20 20 20 20 20 20 ┆ND ELSE ┆
0x2ae0…2b00 20 20 42 45 47 49 4e 11 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 ┆ BEGIN GOTOXY(1┆
0x2b00…2b20 2c 32 33 29 3b 1c 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 ┆,23); D WRITELN('S┆
0x2b20…2b40 4c 45 54 4e 49 4e 47 20 4d 5d 20 49 4b 4b 45 20 55 44 46 5c 52 45 53 20 4d 45 44 20 4f 50 47 49 ┆LETNING MÅ IKKE UDFØRES MED OPGI┆
0x2b40…2b60 56 45 4e 20 4e 5c 47 4c 45 27 29 44 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 0c 20 20 ┆VEN NØGLE')D END ┆
0x2b60…2b80 20 20 20 20 20 20 20 45 4e 44 0c 09 20 20 20 20 20 20 45 4e 44 09 06 20 20 20 45 4e 44 06 0c 20 ┆ END END END ┆
0x2b80…2ba0 20 20 55 4e 54 49 4c 20 50 3d 30 0c 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 20 20 20 46 49 4c 4e ┆ UNTIL P=0 END; BEGIN FILN┆
0x2ba0…2bc0 41 56 4e 32 3a 3d 27 52 45 47 56 41 52 45 3a 50 31 3a 31 31 33 37 3a 49 27 3b 20 16 20 20 52 45 ┆AVN2:='REGVARE:P1:1137:I'; RE┆
0x2bc0…2be0 57 52 49 54 45 28 46 2c 46 49 4c 4e 41 56 4e 32 29 3b 16 0e 20 20 49 3a 3d 49 4f 52 45 53 55 4c ┆WRITE(F,FILNAVN2); I:=IORESUL┆
0x2be0…2c00 54 3b 0e 32 49 46 20 49 3c 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 20 57 52 49 54 45 4c 4e 28 27 ┆T; 2IF I<>0 THEN BEGIN WRITELN('┆
0x2c00…2c20 52 45 57 52 49 54 45 20 27 2c 49 29 3b 53 54 4f 50 20 45 4e 44 3b 32 16 20 20 49 4f 50 45 4e 28 ┆REWRITE ',I);STOP END;2 IOPEN(┆
0x2c20…2c40 56 5a 2e 48 2c 46 2c 53 4b 52 49 56 29 3b 16 27 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 57 ┆VZ.H,F,SKRIV); 'IF IER<>0 THEN W┆
0x2c40…2c60 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 49 54 48 20 56 41 ┆RITE('IOPEN ',IER) ELSE' WITH VA┆
0x2c60…2c80 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 3b 0d 07 20 20 49 ┆RE DO BEGIN VARENR1:=0; I┆
0x2c80…2ca0 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 14 08 20 20 52 45 ┆:=0; NEXTREC(VZ.H,F,A); RE┆
0x2ca0…2cc0 50 45 41 54 08 4a 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 56 41 52 45 4e 52 31 3a 35 2c 4e 41 56 ┆PEAT JWRITELN(LIST,VARENR1:5,NAV┆
0x2cc0…2ce0 4e 28 31 29 3a 33 32 2c 46 59 53 4c 41 47 45 52 3a 31 30 3a 2d 32 2c 50 41 4b 45 4e 48 45 44 3a ┆N(1):32,FYSLAGER:10:-2,PAKENHED:┆
0x2ce0…2d00 35 2c 50 52 49 53 2f 31 30 30 3a 31 34 3a 32 2c 4a 13 4b 4f 53 54 50 52 49 53 2f 31 30 30 3a 31 ┆5,PRIS/100:14:2,J KOSTPRIS/100:1┆
0x2d00…2d20 30 3a 32 29 3b 13 0e 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 0e 07 5a 45 52 52 45 43 3b 07 11 ┆0:2); WRITELN(LIST); ZERREC; ┆
0x2d20…2d40 50 55 54 52 45 43 28 56 5a 2e 48 2c 46 2c 41 29 3b 11 15 49 46 20 49 45 52 3c 3e 30 20 54 48 45 ┆PUTREC(VZ.H,F,A); IF IER<>0 THE┆
0x2d40…2d60 4e 20 45 52 52 4f 52 3b 15 0b 20 20 20 20 49 3a 3d 49 2b 31 3b 0b 15 20 20 20 20 4e 45 58 54 52 ┆N ERROR; I:=I+1; NEXTR┆
0x2d60…2d80 45 43 28 56 5a 2e 48 2c 46 2c 41 29 15 0f 20 20 55 4e 54 49 4c 20 49 45 52 3c 3e 30 3b 0f 04 45 ┆EC(VZ.H,F,A) UNTIL IER<>0; E┆
0x2d80…2da0 4e 44 3b 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 ┆ND; ICLOSE(VZ.H,F); CLEARS┆
0x2da0…2dc0 43 52 45 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 ┆CREEN; WRITELN('ICLOSE ',IER,┆
0x2dc0…2de0 49 3a 37 29 1c 04 45 4e 44 2e 04 00 00 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 1c 20 20 57 ┆I:7) END. CLEARSCREEN; W┆
0x2de0…2e00 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 2c 49 3a 37 29 1c 04 45 4e 44 2e 04 ┆RITELN('ICLOSE ',IER,I:7) END. ┆
0x2e00…2e20 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 ┆ ┆
[…0x1a…]