|
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: 16224 (0x3f60)
Types: TextFile
Notes: Mikados_K
Names: »ALFAKUND.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »ALFAKUND.K«
PROGRAM ALFAKUND;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY(1..23) OF INTEGER;
NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB:ARRAY (1..9) OF REAL
END;
APOST=RECORD
NR1,NR2:INTEGER;
FNAVN:PACKED ARRAY (1..4) OF CHAR;
ENAVN:PACKED ARRAY (1..26) OF CHAR;
UNAVN:PACKED ARRAY (1..30) OF CHAR;
ADR:PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR F:ISF;
NRPF,CF:NPFILE;
KZ:ZONE;
FILNAVN2:STRING(20);
J,IER,I:INTEGER;
QUQ:^INTEGER;
KUNDE:KPOST;
T:FILE OF APOST;
NAME:PACKED ARRAY (1..26) OF CHAR;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE OFEJL;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR;
CLEARSCREEN
END;
PROCEDURE PRKUNOPL;
BEGIN
WITH KUNDE DO
BEGIN
T^.NR1:=NR(1);T^.NR2:=NR(2);
MOVELEFT(NAVN(1,1),T^.FNAVN,4);
MOVELEFT(NAVN(1,5),T^.ENAVN,26);
T^.UNAVN:=NAVN(2);
T^.ADR:=NAVN(3);
T^.LANDSBY:=LANDSBY;
T^.POSTNR:=POSTNR;
T^.TLF:=TLF;
PUT(T);
END
END;
BEGIN
CLEARSCREEN;
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 4 i drev 1 og tryk RETURN');
READLN;
(*$C-*)
REWRITE(CF,'C4:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF);
WRITELN('ALFAKUNDE');
FILNAVN2:='ALISTE:P1:30:K';
REWRITE(T,FILNAVN2);
FILNAVN2:='KUNDERG:P2:1338:I';
REWRITE(F,FILNAVN2);
IOPEN(KZ.H,F,LÆS);
IF IER<>0 THEN OFEJL;
WITH KUNDE DO
BEGIN
NR(1):=0;NR(2):=0;
I:=0;
NEXTREC(KZ.H,F,A);
IF IER<>-1 THEN ERROR;
REPEAT
PRKUNOPL;
I:=I+1;
NEXTREC(KZ.H,F,A)
UNTIL IER<>0;
END;
IF IER<>-2 THEN ERROR;
FILLCHAR(T^.ENAVN(1),26,CHR(126));
T^.NR1:=0;T^.NR2:=0;
FILLCHAR(T^.FNAVN(1),4,CHR(126));
FILLCHAR(T^.UNAVN(1),30,CHR(126));
FILLCHAR(T^.ADR(1),30,CHR(126));
FILLCHAR(T^.LANDSBY(1),20,CHR(126));
FILLCHAR(T^.POSTNR(1),25,CHR(126));
FILLCHAR(T^.TLF(1),10,CHR(126));
PUT(T);
CLOSE(T);
ICLOSE(KZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7);
CHAIN('INTRE *1','SORTKUND:P1',QUQ)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM ALFAKUND;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0030 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x0030…003e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x003e…0062 Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x0062…009d Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x009d…00cb Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x00cb…00f8 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x00f8…0122 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x0122…0148 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0148…014e Line {l1=0x04, l2=»END;«, l3=0x04}
0x014e…015c Line {l1=0x0c, l2=»APOST=RECORD«, l3=0x0c}
0x015c…0175 Line {l1=0x17, l2=» NR1,NR2:INTEGER;«, l3=0x17}
0x0175…01a0 Line {l1=0x29, l2=» FNAVN:PACKED ARRAY (1..4) OF CHAR;«, l3=0x29}
0x01a0…01cc Line {l1=0x2a, l2=» ENAVN:PACKED ARRAY (1..26) OF CHAR;«, l3=0x2a}
0x01cc…01f8 Line {l1=0x2a, l2=» UNAVN:PACKED ARRAY (1..30) OF CHAR;«, l3=0x2a}
0x01f8…0222 Line {l1=0x28, l2=» ADR:PACKED ARRAY (1..30) OF CHAR;«, l3=0x28}
0x0222…0250 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x0250…027d Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x027d…02a6 Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x02a6…02ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x02ac…02ba Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x02ba…02cd Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x02cd…02f0 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x02f0…02f7 Line {l1=0x05, l2=» END;«, l3=0x05}
0x02f7…0308 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x0308…0324 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x0324…032a Line {l1=0x04, l2=»END;«, l3=0x04}
0x032a…0344 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x0344…0353 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x0353…036b Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x036b…037c Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x037c…0399 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0399…03af Line {l1=0x14, l2=» J,IER,I:INTEGER;«, l3=0x14}
0x03af…03c5 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x03c5…03d9 Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x03d9…03f1 Line {l1=0x16, l2=» T:FILE OF APOST;«, l3=0x16}
0x03f1…041c Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x041c…041f Line {l1=0x01, l2=» «, l3=0x01}
0x041f…0428 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0428…043b Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x043b…0448 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0448…0458 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0458…0468 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0468…0476 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0476…0485 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0485…048e Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x048e…0497 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0497…04a9 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x04a9…04b0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04b0…04d4 Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x04d4…04e7 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x04e7…0502 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x0502…0510 Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x0510…0516 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0516…0528 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0528…052f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x052f…0540 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0540…0585 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0585…05b5 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x05b5…05ee Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x05ee…0605 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0605…0614 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0614…061a Line {l1=0x04, l2=»END;«, l3=0x04}
0x061a…062f Line {l1=0x13, l2=»PROCEDURE PRKUNOPL;«, l3=0x13}
0x062f…0636 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0636…0647 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x0647…0650 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0650…0672 Line {l1=0x20, l2=» T^.NR1:=NR(1);T^.NR2:=NR(2);«, l3=0x20}
0x0672…069c Line {l1=0x28, l2=» MOVELEFT(NAVN(1,1),T^.FNAVN,4);«, l3=0x28}
0x069c…06c2 Line {l1=0x24, l2=» MOVELEFT(NAVN(1,5),T^.ENAVN,26);«, l3=0x24}
0x06c2…06d6 Line {l1=0x12, l2=»T^.UNAVN:=NAVN(2);«, l3=0x12}
0x06d6…06e8 Line {l1=0x10, l2=»T^.ADR:=NAVN(3);«, l3=0x10}
0x06e8…06fe Line {l1=0x14, l2=»T^.LANDSBY:=LANDSBY;«, l3=0x14}
0x06fe…0712 Line {l1=0x12, l2=»T^.POSTNR:=POSTNR;«, l3=0x12}
0x0712…0720 Line {l1=0x0c, l2=»T^.TLF:=TLF;«, l3=0x0c}
0x0720…072b Line {l1=0x09, l2=» PUT(T);«, l3=0x09}
0x072b…0732 Line {l1=0x05, l2=» END«, l3=0x05}
0x0732…0738 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0738…073f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x073f…074f Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x074f…0759 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0759…076c Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x076c…07a1 Line {l1=0x33, l2=» WRITELN('Sæt plade 4 i drev 1 og tryk RETURN');«, l3=0x33}
0x07a1…07ae Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x07ae…07b7 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x07b7…07d5 Line {l1=0x1c, l2=» REWRITE(CF,'C4:P1:0:J');«, l3=0x1c}
0x07d5…07e5 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x07e5…07ee Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x07ee…0803 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x0803…0811 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x0811…082a Line {l1=0x17, l2=» WRITELN('ALFAKUNDE');«, l3=0x17}
0x082a…0849 Line {l1=0x1d, l2=» FILNAVN2:='ALISTE:P1:30:K';«, l3=0x1d}
0x0849…0861 Line {l1=0x16, l2=» REWRITE(T,FILNAVN2);«, l3=0x16}
0x0861…0883 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:1338:I';«, l3=0x20}
0x0883…089b Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x089b…08b1 Line {l1=0x14, l2=» IOPEN(KZ.H,F,LÆS);«, l3=0x14}
0x08b1…08ca Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x08ca…08db Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x08db…08e4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x08e4…08fc Line {l1=0x16, l2=» NR(1):=0;NR(2):=0;«, l3=0x16}
0x08fc…0907 Line {l1=0x09, l2=» I:=0;«, l3=0x09}
0x0907…091f Line {l1=0x16, l2=» NEXTREC(KZ.H,F,A);«, l3=0x16}
0x091f…093b Line {l1=0x1a, l2=» IF IER<>-1 THEN ERROR;«, l3=0x1a}
0x093b…0947 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0947…0959 Line {l1=0x10, l2=» PRKUNOPL;«, l3=0x10}
0x0959…0969 Line {l1=0x0e, l2=» I:=I+1;«, l3=0x0e}
0x0969…0983 Line {l1=0x18, l2=» NEXTREC(KZ.H,F,A)«, l3=0x18}
0x0983…0996 Line {l1=0x11, l2=» UNTIL IER<>0;«, l3=0x11}
0x0996…099e Line {l1=0x06, l2=» END;«, l3=0x06}
0x099e…09b8 Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x09b8…09dc Line {l1=0x22, l2=»FILLCHAR(T^.ENAVN(1),26,CHR(126));«, l3=0x22}
0x09dc…09f2 Line {l1=0x14, l2=»T^.NR1:=0;T^.NR2:=0;«, l3=0x14}
0x09f2…0a15 Line {l1=0x21, l2=»FILLCHAR(T^.FNAVN(1),4,CHR(126));«, l3=0x21}
0x0a15…0a39 Line {l1=0x22, l2=»FILLCHAR(T^.UNAVN(1),30,CHR(126));«, l3=0x22}
0x0a39…0a5b Line {l1=0x20, l2=»FILLCHAR(T^.ADR(1),30,CHR(126));«, l3=0x20}
0x0a5b…0a81 Line {l1=0x24, l2=»FILLCHAR(T^.LANDSBY(1),20,CHR(126));«, l3=0x24}
0x0a81…0aa6 Line {l1=0x23, l2=»FILLCHAR(T^.POSTNR(1),25,CHR(126));«, l3=0x23}
0x0aa6…0ac8 Line {l1=0x20, l2=»FILLCHAR(T^.TLF(1),10,CHR(126));«, l3=0x20}
0x0ac8…0ad1 Line {l1=0x07, l2=»PUT(T);«, l3=0x07}
0x0ad1…0ade Line {l1=0x0b, l2=» CLOSE(T);«, l3=0x0b}
0x0ade…0af1 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x0af1…0b01 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0b01…0b20 Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x0b20…0b4a Line {l1=0x28, l2=» CHAIN('INTRE *1','SORTKUND:P1',QUQ)«, l3=0x28}
0x0b4a…0b50 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0b50…0b60 00 00 48 45 4e 20 4f 46 45 4a 4c 3b 17 12 20 20 ┆ HEN OFEJL; ┆
0x0b60…0b80 57 52 49 54 45 4c 4e 28 54 2c 27 25 50 27 29 3b 12 16 20 20 57 52 49 54 45 4c 4e 28 54 2c 27 4e ┆WRITELN(T,'%P'); WRITELN(T,'N┆
0x0b80…0ba0 55 4d 4d 45 52 27 29 3b 16 14 20 20 57 52 49 54 45 4c 4e 28 54 2c 27 4e 41 56 4e 27 29 3b 14 17 ┆UMMER'); WRITELN(T,'NAVN'); ┆
0x0ba0…0bc0 57 52 49 54 45 4c 4e 28 54 2c 27 4e 41 56 4e 45 2d 55 44 56 27 29 3b 17 15 57 52 49 54 45 4c 4e ┆WRITELN(T,'NAVNE-UDV'); WRITELN┆
0x0bc0…0be0 28 54 2c 27 41 44 52 45 53 53 45 27 29 3b 15 15 57 52 49 54 45 4c 4e 28 54 2c 27 4c 41 4e 44 53 ┆(T,'ADRESSE'); WRITELN(T,'LANDS┆
0x0be0…0c00 42 59 27 29 3b 15 14 57 52 49 54 45 4c 4e 28 54 2c 27 50 4f 53 54 4e 52 27 29 3b 14 11 57 52 49 ┆BY'); WRITELN(T,'POSTNR'); WRI┆
0x0c00…0c20 54 45 4c 4e 28 54 2c 27 54 4c 46 27 29 3b 11 32 57 52 49 54 45 4c 4e 28 54 2c 27 4c 41 4e 44 27 ┆TELN(T,'TLF'); 2WRITELN(T,'LAND'┆
0x0c20…0c40 2c 27 20 27 3a 31 36 2c 27 42 45 54 41 44 52 27 2c 27 20 27 3a 31 34 2c 27 4b 5b 44 45 4e 52 27 ┆,' ':16,'BETADR',' ':14,'KÆDENR'┆
0x0c40…0c60 29 3b 32 4a 57 52 49 54 45 4c 4e 28 54 2c 27 52 45 53 54 4f 52 44 52 45 27 2c 27 20 27 3a 31 31 ┆);2JWRITELN(T,'RESTORDRE',' ':11┆
0x0c60…0c80 2c 27 42 45 54 41 4c 49 4e 47 27 2c 27 20 27 3a 31 32 2c 27 4c 45 56 45 52 49 4e 47 27 2c 27 20 ┆,'BETALING',' ':12,'LEVERING',' ┆
0x0c80…0ca0 27 3a 31 32 2c 27 52 45 4e 54 45 27 29 3b 4a 29 57 52 49 54 45 4c 4e 28 54 2c 27 52 41 42 41 54 ┆':12,'RENTE');J)WRITELN(T,'RABAT┆
0x0ca0…0cc0 27 2c 27 20 27 3a 31 35 2c 27 45 58 50 4f 52 54 27 2c 27 20 27 3a 31 34 2c 29 1e 27 45 4d 42 41 ┆',' ':15,'EXPORT',' ':14,) 'EMBA┆
0x0cc0…0ce0 4c 4c 41 47 45 27 2c 27 20 27 3a 31 31 2c 27 42 52 5b 4b 41 47 45 27 29 3b 1e 41 57 52 49 54 45 ┆LLAGE',' ':11,'BRÆKAGE'); AWRITE┆
0x0ce0…0d00 4c 4e 28 54 2c 27 53 41 4c 44 4f 20 30 2d 31 35 27 2c 27 20 27 3a 31 30 2c 27 53 41 4c 44 4f 20 ┆LN(T,'SALDO 0-15',' ':10,'SALDO ┆
0x0d00…0d20 31 36 2d 33 30 27 2c 27 20 27 3a 39 2c 27 53 41 4c 44 4f 20 33 30 2d 34 35 27 29 3b 41 43 57 52 ┆16-30',' ':9,'SALDO 30-45');ACWR┆
0x0d20…0d40 49 54 45 4c 4e 28 54 2c 27 53 41 4c 44 4f 20 34 35 2d 36 30 27 2c 27 20 27 3a 39 2c 27 5b 4c 44 ┆ITELN(T,'SALDO 45-60',' ':9,'ÆLD┆
0x0d40…0d60 52 45 20 53 41 4c 44 4f 31 27 2c 27 20 27 3a 38 2c 27 5b 4c 44 52 45 20 53 41 4c 44 4f 32 27 29 ┆RE SALDO1',' ':8,'ÆLDRE SALDO2')┆
0x0d60…0d80 3b 43 3e 57 52 49 54 45 4c 4e 28 54 2c 27 4d 5d 4e 2e 20 4b 5c 42 27 2c 27 20 27 3a 31 32 2c 27 ┆;C>WRITELN(T,'MÅN. KØB',' ':12,'┆
0x0d80…0da0 5d 52 45 54 53 20 4b 5c 42 20 27 2c 27 20 27 3a 31 30 2c 27 53 2e 20 5d 52 53 20 4b 5c 42 27 29 ┆ÅRETS KØB ',' ':10,'S. ÅRS KØB')┆
0x0da0…0dc0 3b 3e 41 57 52 49 54 45 4c 4e 28 54 2c 27 4b 52 45 44 49 54 44 41 47 45 27 2c 27 20 27 3a 31 30 ┆;>AWRITELN(T,'KREDITDAGE',' ':10┆
0x0dc0…0de0 2c 27 46 41 4b 54 55 52 41 45 52 20 27 2c 27 20 27 3a 31 30 2c 27 53 49 44 2e 20 46 41 4b 2e 20 ┆,'FAKTURAER ',' ':10,'SID. FAK. ┆
0x0de0…0e00 44 27 29 3b 41 3c 57 52 49 54 45 4c 4e 28 54 2c 27 52 45 4e 54 46 52 2e 20 53 41 27 2c 27 20 27 ┆D');A<WRITELN(T,'RENTFR. SA',' '┆
0x0e00…0e20 3a 31 30 2c 27 50 45 52 2e 20 54 2e 20 52 54 27 2c 27 20 27 3a 31 30 2c 27 4c 55 4b 4b 45 54 27 ┆:10,'PER. T. RT',' ':10,'LUKKET'┆
0x0e20…0e40 29 3b 3c 10 57 52 49 54 45 4c 4e 28 54 2c 27 25 50 27 29 3b 10 0f 20 20 57 49 54 48 20 4b 55 4e ┆);< WRITELN(T,'%P'); WITH KUN┆
0x0e40…0e60 44 45 20 44 4f 0f 07 20 20 42 45 47 49 4e 07 16 20 20 20 20 4e 52 28 31 29 3a 3d 30 3b 4e 52 28 ┆DE DO BEGIN NR(1):=0;NR(┆
0x0e60…0e80 32 29 3a 3d 30 3b 16 09 20 20 20 20 49 3a 3d 30 3b 09 16 20 20 20 20 4e 45 58 54 52 45 43 28 4b ┆2):=0; I:=0; NEXTREC(K┆
0x0e80…0ea0 5a 2e 48 2c 46 2c 41 29 3b 16 1a 20 20 20 20 49 46 20 49 45 52 3c 3e 2d 31 20 54 48 45 4e 20 45 ┆Z.H,F,A); IF IER<>-1 THEN E┆
0x0ea0…0ec0 52 52 4f 52 3b 1a 0a 20 20 20 20 52 45 50 45 41 54 0a 14 20 20 20 20 20 20 20 50 52 4b 55 4e 4f ┆RROR; REPEAT PRKUNO┆
0x0ec0…0ee0 50 4c 28 2d 31 29 3b 14 17 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 54 2c 27 25 50 27 29 3b ┆PL(-1); WRITELN(T,'%P');┆
0x0ee0…0f00 17 0e 20 20 20 20 20 20 20 49 3a 3d 49 2b 31 3b 0e 18 20 20 20 20 20 20 20 4e 45 58 54 52 45 43 ┆ I:=I+1; NEXTREC┆
0x0f00…0f20 28 4b 5a 2e 48 2c 46 2c 41 29 18 11 20 20 20 20 55 4e 54 49 4c 20 49 45 52 3c 3e 30 3b 11 06 20 ┆(KZ.H,F,A) UNTIL IER<>0; ┆
0x0f20…0f40 20 45 4e 44 3b 06 18 20 20 49 46 20 49 45 52 3c 3e 2d 32 20 54 48 45 4e 20 45 52 52 4f 52 3b 18 ┆ END; IF IER<>-2 THEN ERROR; ┆
0x0f40…0f60 11 20 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c 46 29 3b 11 0e 20 20 43 4c 45 41 52 53 43 52 45 45 ┆ ICLOSE(KZ.H,F); CLEARSCREE┆
0x0f60…0f80 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 29 ┆N; WRITELN('ICLOSE ',IER,I:7)┆
0x0f80…0fa0 1c 04 45 4e 44 2e 04 00 00 45 28 4b 5a 2e 48 2c 46 29 3b 11 0e 20 20 43 4c 45 41 52 53 43 52 45 ┆ END. E(KZ.H,F); CLEARSCRE┆
0x0fa0…0fc0 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┆
0x0fc0…0fe0 29 1c 04 45 4e 44 2e 04 00 00 0f 20 20 55 4e 54 49 4c 20 49 45 52 3c 3e 30 3b 0f 04 45 4e 44 3b ┆) END. UNTIL IER<>0; END;┆
0x0fe0…1000 04 16 49 46 20 49 45 52 3c 3e 2d 32 20 54 48 45 4e 20 45 52 52 4f 52 3b 16 11 20 20 49 43 4c 4f ┆ IF IER<>-2 THEN ERROR; ICLO┆
0x1000…1020 53 45 28 4b 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 20 57 ┆SE(KZ.H,F); CLEARSCREEN; W┆
0x1020…1040 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. ┆
0x1040…1060 00 00 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 1c 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f ┆ CLEARSCREEN; WRITELN('ICLO┆
0x1060…1080 53 45 20 27 2c 49 45 52 2c 49 3a 37 29 1c 04 45 4e 44 2e 04 00 00 38 29 3b 36 1e 57 52 49 54 45 ┆SE ',IER,I:7) END. 8);6 WRITE┆
0x1080…10a0 4c 4e 28 53 41 4c 44 4f 4b 5c 42 28 39 29 2f 31 30 30 3a 31 32 3a 32 29 3b 1e 04 45 4e 44 3b 04 ┆LN(SALDOKØB(9)/100:12:2); END; ┆
0x10a0…10c0 08 32 38 3a 42 45 47 49 4e 08 31 47 4f 54 4f 58 59 28 34 30 2c 31 38 29 3b 57 52 49 54 45 4c 4e ┆ 28:BEGIN 1GOTOXY(40,18);WRITELN┆
0x10c0…10e0 28 27 32 38 20 4b 52 45 44 49 54 44 41 47 45 27 2c 4e 52 28 31 31 29 3a 31 39 29 3b 31 04 45 4e ┆('28 KREDITDAGE',NR(11):19);1 EN┆
0x10e0…1100 44 3b 04 08 32 39 3a 42 45 47 49 4e 08 2f 47 4f 54 4f 58 59 28 31 2c 31 39 29 3b 57 52 49 54 45 ┆D; 29:BEGIN /GOTOXY(1,19);WRITE┆
0x1100…1120 4c 4e 28 27 32 39 20 46 41 4b 54 55 52 41 45 52 27 2c 4e 52 28 31 32 29 3a 32 34 29 3b 2f 04 45 ┆LN('29 FAKTURAER',NR(12):24);/ E┆
0x1120…1140 4e 44 3b 04 08 33 30 3a 42 45 47 49 4e 08 48 47 4f 54 4f 58 59 28 34 30 2c 31 39 29 3b 57 52 49 ┆ND; 30:BEGIN HGOTOXY(40,19);WRI┆
0x1140…1160 54 45 4c 4e 28 27 33 30 20 53 2e 20 46 41 4b 54 55 52 41 20 44 41 54 4f 27 2c 4e 52 28 31 33 29 ┆TELN('30 S. FAKTURA DATO',NR(13)┆
0x1160…1180 2a 31 30 30 30 30 2e 30 2b 4e 52 28 31 34 29 3a 31 34 3a 2d 32 29 3b 48 04 45 4e 44 3b 04 08 33 ┆*10000.0+NR(14):14:-2);H END; 3┆
0x1180…11a0 31 3a 42 45 47 49 4e 08 34 47 4f 54 4f 58 59 28 31 2c 32 30 29 3b 57 52 49 54 45 4c 4e 28 27 33 ┆1:BEGIN 4GOTOXY(1,20);WRITELN('3┆
0x11a0…11c0 31 20 52 45 4e 54 45 46 52 49 20 53 41 4c 44 4f 27 2c 4e 52 28 31 39 29 3a 31 39 29 3b 34 04 45 ┆1 RENTEFRI SALDO',NR(19):19);4 E┆
0x11c0…11e0 4e 44 3b 04 08 33 32 3a 42 45 47 49 4e 08 39 47 4f 54 4f 58 59 28 34 30 2c 32 30 29 3b 57 52 49 ┆ND; 32:BEGIN 9GOTOXY(40,20);WRI┆
0x11e0…1200 54 45 4c 4e 28 27 33 32 20 50 45 52 49 4f 44 45 52 20 54 49 4c 20 52 45 4e 54 45 27 2c 4e 52 28 ┆TELN('32 PERIODER TIL RENTE',NR(┆
0x1200…1220 32 30 29 3a 31 31 29 3b 39 04 45 4e 44 3b 04 08 33 33 3a 42 45 47 49 4e 08 2b 47 4f 54 4f 58 59 ┆20):11);9 END; 33:BEGIN +GOTOXY┆
0x1220…1240 28 31 2c 32 31 29 3b 57 52 49 54 45 28 27 33 33 20 4c 55 4b 4b 45 54 20 46 4f 52 20 4b 52 45 44 ┆(1,21);WRITE('33 LUKKET FOR KRED┆
0x1240…1260 49 54 27 29 3b 2b 0e 47 4f 54 4f 58 59 28 33 36 2c 32 31 29 3b 0e 30 49 46 20 4e 52 28 32 33 29 ┆IT');+ GOTOXY(36,21); 0IF NR(23)┆
0x1260…1280 3d 31 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 4a 27 29 20 45 4c 53 45 20 57 52 49 54 45 4c ┆=1 THEN WRITELN('J') ELSE WRITEL┆
0x1280…12a0 4e 28 27 4e 27 29 3b 30 04 45 4e 44 3b 04 03 45 4e 44 03 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 ┆N('N');0 END; END END; BEGIN ┆
0x12a0…12c0 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 49 46 ┆ IF O<>0 THEN BEGIN " IF┆
0x12c0…12e0 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 20 20 ┆ (1<=O) AND (O<=11) THEN PR1" ┆
0x12e0…1300 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 3d 32 ┆ ELSE # IF (12<=O) AND (O<=2┆
0x1300…1320 36 29 20 54 48 45 4e 20 50 52 32 23 08 20 20 20 20 45 4c 53 45 08 3c 20 20 20 20 49 46 20 28 32 ┆6) THEN PR2# ELSE < IF (2┆
0x1320…1340 37 3c 3d 4f 29 20 41 4e 44 20 28 4f 3c 3d 33 34 29 20 54 48 45 4e 20 42 45 47 49 4e 20 49 46 20 ┆7<=O) AND (O<=34) THEN BEGIN IF ┆
0x1340…1360 4b 4f 44 45 3e 30 20 54 48 45 4e 20 50 52 33 20 45 4e 44 3c 08 20 20 20 20 45 4c 53 45 08 09 20 ┆KODE>0 THEN PR3 END< ELSE ┆
0x1360…1380 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 4e 3b 13 1d 20 ┆ BEGIN CLEARSCREEN; ┆
0x1380…13a0 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 3b 1d 1e 20 20 ┆ FOR O:=1 TO 11 DO PR1; ┆
0x13a0…13c0 20 20 20 20 20 46 4f 52 20 4f 3a 3d 31 32 20 54 4f 20 32 36 20 44 4f 20 50 52 32 3b 1e 2c 20 20 ┆ FOR O:=12 TO 26 DO PR2; , ┆
0x13c0…13e0 20 20 20 20 20 46 4f 52 20 4f 3a 3d 32 37 20 54 4f 20 33 34 20 44 4f 20 49 46 20 4b 4f 44 45 3e ┆ FOR O:=27 TO 34 DO IF KODE>┆
0x13e0…1400 30 20 54 48 45 4e 20 50 52 33 2c 07 20 20 20 20 45 4e 44 07 05 20 20 45 4e 44 05 04 45 4e 44 3b ┆0 THEN PR3, END END END;┆
0x1400…1420 04 07 28 2a 24 4c 2d 2a 29 07 23 50 52 4f 43 45 44 55 52 45 20 50 52 56 41 52 4f 50 4c 28 4f 2c ┆ (*$L-*) #PROCEDURE PRVAROPL(O,┆
0x1420…1440 4b 4f 44 45 3a 49 4e 54 45 47 45 52 29 3b 23 0e 50 52 4f 43 45 44 55 52 45 20 50 52 31 3b 0e 05 ┆KODE:INTEGER);# PROCEDURE PR1; ┆
0x1440…1460 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 20 4f 20 4f 46 09 07 ┆BEGIN WITH VARE DO CASE O OF ┆
0x1460…1480 31 3a 42 45 47 49 4e 07 3f 47 4f 54 4f 58 59 28 31 2c 31 29 3b 57 52 49 54 45 28 27 31 20 56 41 ┆1:BEGIN ?GOTOXY(1,1);WRITE('1 VA┆
0x1480…14a0 52 45 4e 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 31 29 3b 57 52 49 54 45 4c 4e 28 56 41 52 45 ┆RENR');GOTOXY(30,1);WRITELN(VARE┆
0x14a0…14c0 4e 52 31 3a 31 30 29 3b 3f 04 45 4e 44 3b 04 07 32 3a 42 45 47 49 4e 07 3e 47 4f 54 4f 58 59 28 ┆NR1:10);? END; 2:BEGIN >GOTOXY(┆
0x14c0…14e0 31 2c 32 29 3b 57 52 49 54 45 28 27 32 20 56 41 52 45 4e 41 56 4e 27 29 3b 47 4f 54 4f 58 59 28 ┆1,2);WRITE('2 VARENAVN');GOTOXY(┆
0x14e0…1500 33 30 2c 32 29 3b 57 52 49 54 45 4c 4e 28 4e 41 56 4e 28 31 29 29 3b 3e 04 45 4e 44 3b 04 07 33 ┆30,2);WRITELN(NAVN(1));> END; 3┆
0x1500…1520 3a 42 45 47 49 4e 07 49 47 4f 54 4f 58 59 28 31 2c 33 29 3b 57 52 49 54 45 28 27 33 20 4e 41 56 ┆:BEGIN IGOTOXY(1,3);WRITE('3 NAV┆
0x1520…1540 4e 20 48 4f 53 20 4c 45 56 45 52 41 4e 44 5c 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 33 29 3b ┆N HOS LEVERANDØR');GOTOXY(30,3);┆
0x1540…1560 57 52 49 54 45 4c 4e 28 4e 41 56 4e 28 32 29 29 3b 49 04 45 4e 44 3b 04 07 34 3a 42 45 47 49 4e ┆WRITELN(NAVN(2));I END; 4:BEGIN┆
0x1560…1580 07 40 47 4f 54 4f 58 59 28 31 2c 34 29 3b 57 52 49 54 45 28 27 34 20 50 52 49 53 27 29 3b 47 4f ┆ @GOTOXY(1,4);WRITE('4 PRIS');GO┆
0x1580…15a0 54 4f 58 59 28 33 30 2c 34 29 3b 57 52 49 54 45 4c 4e 28 50 52 49 53 2f 31 30 30 3a 31 30 3a 32 ┆TOXY(30,4);WRITELN(PRIS/100:10:2┆
0x15a0…15c0 29 3b 40 04 45 4e 44 3b 04 16 35 3a 49 46 20 4b 4f 44 45 3e 30 20 54 48 45 4e 20 42 45 47 49 4e ┆);@ END; 5:IF KODE>0 THEN BEGIN┆
0x15c0…15e0 16 48 47 4f 54 4f 58 59 28 31 2c 35 29 3b 57 52 49 54 45 28 27 35 20 4b 4f 53 54 50 52 49 53 27 ┆ HGOTOXY(1,5);WRITE('5 KOSTPRIS'┆
0x15e0…1600 29 3b 47 4f 54 4f 58 59 28 33 30 2c 35 29 3b 57 52 49 54 45 4c 4e 28 4b 4f 53 54 50 52 49 53 2f ┆);GOTOXY(30,5);WRITELN(KOSTPRIS/┆
0x1600…1620 31 30 30 3a 31 30 3a 32 29 3b 48 04 45 4e 44 3b 04 07 36 3a 42 45 47 49 4e 07 45 47 4f 54 4f 58 ┆100:10:2);H END; 6:BEGIN EGOTOX┆
0x1620…1640 59 28 31 2c 36 29 3b 57 52 49 54 45 28 27 36 20 4c 45 56 45 52 41 4e 44 5c 52 4e 52 27 29 3b 47 ┆Y(1,6);WRITE('6 LEVERANDØRNR');G┆
0x1640…1660 4f 54 4f 58 59 28 33 30 2c 36 29 3b 57 52 49 54 45 4c 4e 28 4c 56 52 4e 44 5c 52 3a 31 30 29 3b ┆OTOXY(30,6);WRITELN(LVRNDØR:10);┆
0x1660…1680 45 04 45 4e 44 3b 04 07 37 3a 42 45 47 49 4e 07 48 47 4f 54 4f 58 59 28 31 2c 37 29 3b 57 52 49 ┆E END; 7:BEGIN HGOTOXY(1,7);WRI┆
0x1680…16a0 54 45 28 27 37 20 4f 50 52 49 4e 44 45 4c 53 45 53 4c 41 4e 44 27 29 3b 47 4f 54 4f 58 59 28 33 ┆TE('7 OPRINDELSESLAND');GOTOXY(3┆
0x16a0…16c0 30 2c 37 29 3b 57 52 49 54 45 4c 4e 28 4f 50 52 4c 41 4e 44 3a 31 30 29 3b 48 04 45 4e 44 3b 04 ┆0,7);WRITELN(OPRLAND:10);H END; ┆
0x16c0…16e0 07 38 3a 42 45 47 49 4e 07 34 47 4f 54 4f 58 59 28 31 2c 38 29 3b 57 52 49 54 45 28 27 38 20 54 ┆ 8:BEGIN 4GOTOXY(1,8);WRITE('8 T┆
0x16e0…1700 4f 4c 44 50 4f 53 49 54 49 4f 4e 53 4e 52 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 38 29 3b 34 1b ┆OLDPOSITIONSNR');GOTOXY(30,8);4 ┆
0x1700…1720 57 52 49 54 45 4c 4e 28 54 4f 4c 44 50 4e 52 2f 31 30 30 30 3a 31 30 3a 33 29 3b 1b 04 45 4e 44 ┆WRITELN(TOLDPNR/1000:10:3); END┆
0x1720…1740 3b 04 07 39 3a 42 45 47 49 4e 07 47 47 4f 54 4f 58 59 28 31 2c 39 29 3b 57 52 49 54 45 28 27 39 ┆; 9:BEGIN GGOTOXY(1,9);WRITE('9┆
0x1740…1760 20 50 41 4b 4e 49 4e 47 53 45 4e 48 45 44 27 29 3b 47 4f 54 4f 58 59 28 33 30 2c 39 29 3b 57 52 ┆ PAKNINGSENHED');GOTOXY(30,9);WR┆
0x1760…1780 49 54 45 4c 4e 28 50 41 4b 45 4e 48 45 44 3a 31 30 29 3b 47 04 45 4e 44 3b 04 08 31 30 3a 42 45 ┆ITELN(PAKENHED:10);G END; 10:BE┆
0x1780…17a0 47 49 4e 08 34 47 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 ┆GIN 4GOTOXY(1,10);WRITE('10 FYSI┆
0x17a0…17c0 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┆
0x17c0…17e0 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┆
0x17e0…1800 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┆
0x1800…1820 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┆
0x1820…1840 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┆
0x1840…1860 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┆
0x1860…1880 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┆
0x1880…18a0 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 ┆
0x18a0…18c0 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(┆
0x18c0…18e0 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;┆
0x18e0…1900 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┆
0x1900…1920 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┆
0x1920…1940 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┆
0x1940…1960 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┆
0x1960…1980 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 ┆
0x1980…19a0 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'┆
0x19a0…19c0 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┆
0x19c0…19e0 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┆
0x19e0…1a00 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┆
0x1a00…1a20 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┆
0x1a20…1a40 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┆
0x1a40…1a60 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┆
0x1a60…1a80 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┆
0x1a80…1aa0 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┆
0x1aa0…1ac0 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┆
0x1ac0…1ae0 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┆
0x1ae0…1b00 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)┆
0x1b00…1b20 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)┆
0x1b20…1b40 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┆
0x1b40…1b50 37 2c 31 35 29 3b 33 1f 57 52 49 54 45 4c 4e 28 ┆7,15);3 WRITELN(┆
0x1b50…2f60 […elided…]
0x2f60…2f80 3b 26 20 20 20 20 20 20 20 20 20 56 41 52 45 2e 50 52 49 4d 4f 4c 41 47 3a 3d 56 41 52 45 2e 46 ┆;& VARE.PRIMOLAG:=VARE.F┆
0x2f80…2fa0 59 53 4c 41 47 45 52 3b 26 19 20 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 4f 2c 4b 4f ┆YSLAGER;& PRVAROPL(O,KO┆
0x2fa0…2fc0 44 45 29 19 12 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 3d 30 3b 12 0e 20 20 20 20 20 20 20 ┆DE) UNTIL O=0; ┆
0x2fc0…2fe0 20 52 45 50 45 41 54 0e 1e 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 28 56 5a 2e 48 2c 46 2c 56 ┆ REPEAT INSERT(VZ.H,F,V┆
0x2fe0…3000 41 52 45 2e 41 29 3b 1e 16 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d 37 20 54 48 45 4e 16 ┆ARE.A); IF IER=-7 THEN ┆
0x3000…3020 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 3b 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 ┆ BEGIN ; GOTOXY(┆
0x3020…3040 31 2c 32 33 29 3b 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 52 20 46 49 4e 44 45 53 20 49 20 46 ┆1,23);WRITELN('VARENR FINDES I F┆
0x3040…3060 4f 52 56 45 4a 45 4e 20 27 29 3b 3b 13 20 20 20 20 20 20 20 20 20 56 41 52 45 4f 50 4c 28 31 29 ┆ORVEJEN ');; VAREOPL(1)┆
0x3060…3080 13 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 1c 20 20 20 ┆ END ELSE ┆
0x3080…30a0 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 14 20 20 20 20 20 ┆ IF IER<>0 THEN ERROR ┆
0x30a0…30c0 20 20 20 55 4e 54 49 4c 20 49 45 52 3d 30 3b 14 0b 20 20 20 20 20 20 20 45 4e 44 3b 0b 0c 20 20 ┆ UNTIL IER=0; END; ┆
0x30c0…30e0 20 20 32 3a 20 42 45 47 49 4e 0c 0f 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0f 4d 20 20 20 ┆ 2: BEGIN REPEAT M ┆
0x30e0…3100 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 56 41 52 ┆ GOTOXY(1,23);WRITELN('VAR┆
0x3100…3120 45 4e 52 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 ┆ENR ┆
0x3120…3140 20 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 33 30 2c ┆ ');M& GOTOXY(30,┆
0x3140…3160 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 26 36 20 20 20 20 20 20 20 20 20 55 4e 54 ┆23);READLN;READ(O)&6 UNT┆
0x3160…3180 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 4f 3e 39 39 39 29 20 41 4e 44 20 ┆IL (IORESULT=0) AND (O>999) AND ┆
0x3180…31a0 28 4f 3c 31 30 30 30 30 29 3b 36 19 20 20 20 20 20 20 20 20 20 56 41 52 45 2e 56 41 52 45 4e 52 ┆(O<10000);6 VARE.VARENR┆
0x31a0…31c0 31 3a 3d 4f 3b 19 1f 20 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 ┆1:=O; GETREC(VZ.H,F,VA┆
0x31c0…31e0 52 45 2e 41 29 3b 1f 38 20 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 20 ┆RE.A); 8 IF IER=-6 THEN ┆
0x31e0…3200 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 20 49 4b 4b 45 27 29 ┆WRITELN('VAREN EKSISTERER IKKE')┆
0x3200…3220 38 0d 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 1d 20 20 20 20 20 20 20 20 20 49 46 20 49 45 52 ┆8 ELSE IF IER┆
0x3220…3240 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 1d 0d 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0e 20 ┆<>0 THEN ERROR ELSE ┆
0x3240…3260 20 20 20 20 20 20 20 20 42 45 47 49 4e 0e 1b 20 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c ┆ BEGIN PRVAROPL┆
0x3260…3280 28 2d 31 2c 4b 4f 44 45 29 3b 1b 18 20 20 20 20 20 20 20 20 20 43 48 41 4e 47 45 44 3a 3d 46 41 ┆(-1,KODE); CHANGED:=FA┆
0x3280…32a0 4c 53 45 3b 18 0f 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0f 0f 20 20 20 20 20 20 20 20 20 ┆LSE; REPEAT ┆
0x32a0…32c0 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 32 29 3b 57 ┆REPEAT M GOTOXY(1,22);W┆
0x32c0…32e0 52 49 54 45 4c 4e 28 27 48 56 49 4c 4b 45 54 20 46 45 4c 54 20 53 4b 41 4c 20 5b 4e 44 52 45 53 ┆RITELN('HVILKET FELT SKAL ÆNDRES┆
0x32e0…3300 2c 20 30 20 46 4f 52 20 53 4c 55 54 20 20 20 20 20 20 27 29 3b 4d 26 20 20 20 20 20 20 20 20 20 ┆, 0 FOR SLUT ');M& ┆
0x3300…3320 20 47 4f 54 4f 58 59 28 34 30 2c 32 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 26 1a 20 ┆ GOTOXY(40,22);READLN;READ(O)& ┆
0x3320…3340 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 1a 12 20 20 20 20 20 ┆ UNTIL IORESULT=0; ┆
0x3340…3360 20 20 20 20 43 41 53 45 20 4f 20 4f 46 12 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c ┆ CASE O OF 1,┆
0x3360…3380 31 30 2c 31 32 20 3a 20 42 45 47 49 4e 1e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10,12 : BEGIN , ┆
0x3380…33a0 20 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 2c 3f 20 20 20 ┆ GOTOXY(1,23);,? ┆
0x33a0…33c0 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 57 52 49 54 ┆ WRIT┆
0x33c0…33e0 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 27 29 3b 3f 2d 20 20 ┆ELN('ÆNDRING IKKE TILLADT');?- ┆
0x33e0…3400 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 54 ┆ GOT┆
0x3400…3420 4f 58 59 28 32 35 2c 32 33 29 3b 2d 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OXY(25,23);-C ┆
0x3420…3440 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 54 52 59 4b 20 52 45 54 55 52 4e ┆ WRITELN('TRYK RETURN┆
0x3440…3460 20 4e 5d 52 20 46 4f 52 53 54 5d 45 54 27 29 3b 43 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ NÅR FORSTÅET');CA ┆
0x3460…3480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 36 30 2c 32 33 29 3b 52 ┆ GOTOXY(60,23);R┆
0x3480…34a0 45 41 44 4c 4e 3b 52 45 41 44 28 53 54 52 45 4e 47 29 3b 41 31 20 20 20 20 20 20 20 20 20 20 20 ┆EADLN;READ(STRENG);A1 ┆
0x34a0…34c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 54 52 45 4e 47 3d 27 41 ┆ IF STRENG='A┆
0x34c0…34e0 27 20 54 48 45 4e 31 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆' THEN1$ ┆
0x34e0…3500 20 20 20 20 20 20 20 42 45 47 49 4e 24 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN$9 ┆
0x3500…3520 20 20 20 20 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 ┆ VAREOPL(O);CHANGE┆
0x3520…3540 44 3a 3d 54 52 55 45 39 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D:=TRUE9" ┆
0x3540…3560 20 20 20 20 20 20 20 20 45 4e 44 22 1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END" ┆
0x3560…3580 20 20 20 20 20 20 45 4e 44 3b 1d 29 34 2c 37 2c 38 2c 35 2c 31 39 2c 32 30 2c 32 31 2c 32 32 2c ┆ END; )4,7,8,5,19,20,21,22,┆
0x3580…35a0 32 33 2c 32 34 3a 20 49 46 20 4b 4f 44 45 3d 32 20 54 48 45 4e 29 20 20 20 20 20 20 20 20 20 20 ┆23,24: IF KODE=2 THEN) ┆
0x35a0…35c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 35 20 20 20 20 20 20 20 ┆ BEGIN 5 ┆
0x35c0…35e0 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 4f 50 4c 28 4f 29 ┆ VAREOPL(O)┆
0x35e0…3600 3b 43 48 41 4e 47 45 44 3a 3d 54 52 55 45 35 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆;CHANGED:=TRUE5# ┆
0x3600…3620 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 45 4c 53 45 23 28 20 20 20 20 20 20 20 20 20 20 20 ┆ END ELSE#( ┆
0x3620…3640 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 28 4d 20 ┆ BEGIN GOTOXY(1,23);(M ┆
0x3640…3660 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 28 27 5b 4e 44 ┆ WRITELN('ÆND┆
0x3660…3680 52 49 4e 47 20 49 4b 4b 45 20 54 49 4c 4c 41 44 54 20 4d 45 44 20 4f 50 47 49 56 45 4e 20 41 44 ┆RING IKKE TILLADT MED OPGIVEN AD┆
0x3680…36a0 47 41 4e 47 53 4b 4f 44 45 27 29 3b 4d 19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GANGSKODE');M ┆
0x36a0…36c0 20 20 20 45 4e 44 3b 19 43 32 2c 33 2c 36 2c 39 2c 31 31 2c 31 33 2c 31 34 2c 31 35 2c 31 36 2c ┆ END; C2,3,6,9,11,13,14,15,16,┆
0x36c0…36e0 31 37 2c 31 38 2c 32 35 20 3a 42 45 47 49 4e 20 56 41 52 45 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 ┆17,18,25 :BEGIN VAREOPL(O);CHANG┆
0x36e0…3700 45 44 3a 3d 54 52 55 45 20 45 4e 44 43 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆ED:=TRUE ENDC END┆
0x3700…3720 3b 13 19 20 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 13 20 20 ┆; PRVAROPL(O,KODE) ┆
0x3720…3740 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 3d 30 3b 13 2f 20 20 20 20 20 20 20 20 20 49 46 20 43 ┆ UNTIL O=0; / IF C┆
0x3740…3760 48 41 4e 47 45 44 20 54 48 45 4e 20 50 55 54 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 ┆HANGED THEN PUTREC(VZ.H,F,VARE.A┆
0x3760…3780 29 3b 2f 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 0a 20 20 20 20 20 20 45 4e 44 3b 0a 0b 20 20 ┆);/ END END; ┆
0x3780…37a0 20 33 3a 20 42 45 47 49 4e 0b 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 4d 20 20 20 20 20 ┆ 3: BEGIN REPEAT M ┆
0x37a0…37c0 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 4e ┆ GOTOXY(1,23);WRITELN('VAREN┆
0x37c0…37e0 52 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 ┆R ┆
0x37e0…3800 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 33 30 2c 32 33 ┆ ');M& GOTOXY(30,23┆
0x3800…3820 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 26 35 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 ┆);READLN;READ(O)&5 UNTIL ┆
0x3820…3840 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 4f 3e 39 39 39 29 20 41 4e 44 20 28 4f 3c ┆(IORESULT=0) AND (O>999) AND (O<┆
0x3840…3860 31 30 30 30 30 29 3b 35 18 20 20 20 20 20 20 20 20 56 41 52 45 2e 56 41 52 45 4e 52 31 3a 3d 4f ┆10000);5 VARE.VARENR1:=O┆
0x3860…3880 3b 18 1e 20 20 20 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 ┆; GETREC(VZ.H,F,VARE.A)┆
0x3880…38a0 3b 1e 37 20 20 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 ┆; 7 IF IER=-6 THEN WRITEL┆
0x38a0…38c0 4e 28 27 56 41 52 45 4e 20 45 4b 53 49 53 54 45 52 45 52 20 49 4b 4b 45 27 29 37 0c 20 20 20 20 ┆N('VAREN EKSISTERER IKKE')7 ┆
0x38c0…38e0 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┆
0x38e0…3900 20 45 52 52 4f 52 1c 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 0d 20 20 20 20 20 20 20 20 42 45 ┆ ERROR ELSE BE┆
0x3900…3920 47 49 4e 0d 1c 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 45 29 ┆GIN PRVAROPL(-1,KODE)┆
0x3920…3940 3b 1c 18 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 4f 44 45 3d 32 20 54 48 45 4e 18 16 20 20 20 ┆; IF KODE=2 THEN ┆
0x3940…3960 20 20 20 20 20 20 20 57 49 54 48 20 56 41 52 45 20 44 4f 16 0f 20 20 20 20 20 20 20 20 20 20 42 ┆ WITH VARE DO B┆
0x3960…3980 45 47 49 4e 0f 4c 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 46 59 53 4c 41 47 45 52 3d 30 ┆EGIN L IF (FYSLAGER=0┆
0x3980…39a0 29 20 41 4e 44 20 28 52 45 53 41 46 4c 41 47 3d 30 29 20 41 4e 44 20 28 49 4f 52 44 52 45 3d 30 ┆) AND (RESAFLAG=0) AND (IORDRE=0┆
0x39a0…39c0 29 20 41 4e 44 20 28 52 41 49 4f 52 44 52 45 3d 30 29 4c 16 20 20 20 20 20 20 20 20 20 20 20 20 ┆) AND (RAIORDRE=0)L ┆
0x39c0…39e0 54 48 45 4e 20 42 45 47 49 4e 16 15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 ┆THEN BEGIN REPEA┆
0x39e0…3a00 54 15 4d 20 20 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 57 ┆T M GOTOXY(1,23);W┆
0x3a00…3a20 52 49 54 45 4c 4e 28 27 53 4b 41 4c 20 53 4c 45 54 4e 49 4e 47 20 55 44 46 5c 52 45 53 20 28 31 ┆RITELN('SKAL SLETNING UDFØRES (1┆
0x3a20…3a40 29 2c 20 30 20 46 4f 52 20 4e 45 4a 20 27 29 3b 4d 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆), 0 FOR NEJ ');M+ ┆
0x3a40…3a60 20 47 4f 54 4f 58 59 28 34 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 2b 37 20 ┆ GOTOXY(40,23);READLN;READ(O)+7 ┆
0x3a60…3a80 20 20 20 20 20 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 ┆ UNTIL (IORESULT=0)┆
0x3a80…3aa0 20 41 4e 44 20 28 28 4f 3d 30 29 20 4f 52 20 28 4f 3d 31 29 29 3b 37 1a 20 20 20 20 20 20 20 20 ┆ AND ((O=0) OR (O=1));7 ┆
0x3aa0…3ac0 20 20 20 20 20 20 20 49 46 20 4f 3d 31 20 54 48 45 4e 1a 14 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF O=1 THEN ┆
0x3ac0…3ae0 20 20 20 42 45 47 49 4e 14 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 ┆ BEGIN ' DELET┆
0x3ae0…3b00 45 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 27 23 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E(VZ.H,F,VARE.A);'# ┆
0x3b00…3b20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 23 25 20 20 20 20 20 20 20 20 ┆ PRVAROPL(-1,KODE);#% ┆
0x3b20…3b40 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 52 4f 52 25 12 20 ┆ IF IER<>0 THEN ERROR% ┆
0x3b40…3b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 12 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆ END E┆
0x3b60…3b80 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 ┆
0x3b80…3ba0 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┆
0x3ba0…3bc0 2c 32 33 29 3b 1c 4c 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e ┆,23); L WRITELN('VAREN┆
0x3bc0…3be0 20 4d 5d 20 49 4b 4b 45 20 53 4c 45 54 54 45 53 20 50 2e 47 52 2e 41 2e 20 50 4f 53 49 54 49 56 ┆ MÅ IKKE SLETTES P.GR.A. POSITIV┆
0x3be0…3c00 45 20 4c 41 47 45 52 2f 4f 52 44 52 45 2d 54 41 4c 27 29 4c 0f 20 20 20 20 20 20 20 20 20 20 20 ┆E LAGER/ORDRE-TAL')L ┆
0x3c00…3c20 20 45 4e 44 0f 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 20 20 ┆ END END ┆
0x3c20…3c40 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 20 20 ┆ ELSE BEGIN ┆
0x3c40…3c60 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 44 20 20 20 20 20 20 ┆ GOTOXY(1,23); D ┆
0x3c60…3c80 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 4c 45 54 4e 49 4e 47 20 4d 5d 20 49 4b ┆ WRITELN('SLETNING MÅ IK┆
0x3c80…3ca0 4b 45 20 55 44 46 5c 52 45 53 20 4d 45 44 20 4f 50 47 49 56 45 4e 20 4e 5c 47 4c 45 27 29 44 0f ┆KE UDFØRES MED OPGIVEN NØGLE')D ┆
0x3ca0…3cc0 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 09 20 ┆ END END ┆
0x3cc0…3ce0 20 20 20 20 20 45 4e 44 09 06 20 20 20 45 4e 44 06 0c 20 20 20 55 4e 54 49 4c 20 50 3d 30 0c 04 ┆ END END UNTIL P=0 ┆
0x3ce0…3d00 45 4e 44 3b 04 05 42 45 47 49 4e 05 20 20 20 46 49 4c 4e 41 56 4e 32 3a 3d 27 52 45 47 56 41 52 ┆END; BEGIN FILNAVN2:='REGVAR┆
0x3d00…3d20 45 3a 50 31 3a 31 31 33 37 3a 49 27 3b 20 16 20 20 52 45 57 52 49 54 45 28 46 2c 46 49 4c 4e 41 ┆E:P1:1137:I'; REWRITE(F,FILNA┆
0x3d20…3d40 56 4e 32 29 3b 16 0e 20 20 49 3a 3d 49 4f 52 45 53 55 4c 54 3b 0e 32 49 46 20 49 3c 3e 30 20 54 ┆VN2); I:=IORESULT; 2IF I<>0 T┆
0x3d40…3d60 48 45 4e 20 42 45 47 49 4e 20 57 52 49 54 45 4c 4e 28 27 52 45 57 52 49 54 45 20 27 2c 49 29 3b ┆HEN BEGIN WRITELN('REWRITE ',I);┆
0x3d60…3d80 53 54 4f 50 20 45 4e 44 3b 32 14 20 20 49 4f 50 45 4e 28 56 5a 2e 48 2c 46 2c 4c 5b 53 29 3b 14 ┆STOP END;2 IOPEN(VZ.H,F,LÆS); ┆
0x3d80…3da0 27 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 28 27 49 4f 50 45 4e 20 27 2c 49 ┆'IF IER<>0 THEN WRITE('IOPEN ',I┆
0x3da0…3dc0 45 52 29 20 45 4c 53 45 27 0c 57 49 54 48 20 56 41 52 45 20 44 4f 0c 05 42 45 47 49 4e 05 0d 20 ┆ER) ELSE' WITH VARE DO BEGIN ┆
0x3dc0…3de0 20 56 41 52 45 4e 52 31 3a 3d 30 3b 0d 07 20 20 49 3a 3d 30 3b 07 14 20 20 4e 45 58 54 52 45 43 ┆ VARENR1:=0; I:=0; NEXTREC┆
0x3de0…3e00 28 56 5a 2e 48 2c 46 2c 41 29 3b 14 08 20 20 52 45 50 45 41 54 08 4a 57 52 49 54 45 4c 4e 28 4c ┆(VZ.H,F,A); REPEAT JWRITELN(L┆
0x3e00…3e20 49 53 54 2c 56 41 52 45 4e 52 31 3a 35 2c 4e 41 56 4e 28 31 29 3a 33 32 2c 46 59 53 4c 41 47 45 ┆IST,VARENR1:5,NAVN(1):32,FYSLAGE┆
0x3e20…3e40 52 3a 31 30 3a 2d 32 2c 50 41 4b 45 4e 48 45 44 3a 35 2c 50 52 49 53 2f 31 30 30 3a 31 34 3a 32 ┆R:10:-2,PAKENHED:5,PRIS/100:14:2┆
0x3e40…3e60 2c 4a 1b 20 20 20 20 20 20 20 20 4b 4f 53 54 50 52 49 53 2f 31 30 30 3a 31 30 3a 32 29 3b 1b 12 ┆,J KOSTPRIS/100:10:2); ┆
0x3e60…3e80 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 12 0b 20 20 20 20 49 3a 3d 49 2b 31 3b 0b ┆ WRITELN(LIST); I:=I+1; ┆
0x3e80…3ea0 15 20 20 20 20 4e 45 58 54 52 45 43 28 56 5a 2e 48 2c 46 2c 41 29 15 0f 20 20 55 4e 54 49 4c 20 ┆ NEXTREC(VZ.H,F,A) UNTIL ┆
0x3ea0…3ec0 49 45 52 3c 3e 30 3b 0f 04 45 4e 44 3b 04 11 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b ┆IER<>0; END; ICLOSE(VZ.H,F);┆
0x3ec0…3ee0 11 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 1c 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c ┆ CLEARSCREEN; WRITELN('ICL┆
0x3ee0…3f00 4f 53 45 20 27 2c 49 45 52 2c 49 3a 37 29 1c 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 ┆OSE ',IER,I:7) END. ┆
0x3f00…3f20 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 ┆ ┆
[…0x2…]