|
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: 17472 (0x4440)
Types: TextFile
Notes: Mikados_K
Names: »LEVVEDL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »LEVVEDL.K«
PROGRAM LEVVEDL;
(*$IISFHEAD*)
LEVPOST=RECORD
A:AR;
NR,
SBESDAT1,SBESDAT2,
LAND1,LAND2:INTEGER;
KOSTPFAK:ARRAY(1..5) OF INTEGER;
ÅKØB,SÅKØB,SALDO:REAL;
NAVN1:PACKED ARRAY (1..40) OF CHAR;
NAVN2,
ADR1,
ADR2:PACKED ARRAY (1..30) OF CHAR;
BETABET,
LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;
POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;
TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;
END;
LEVZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..382) OF INTEGER
END;
SYSPOST=RECORD
HELTAL:ARRAY(1..24) OF INTEGER;
KGB:ARRAY(1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VAR F:ISF;
CHAR1:CHAR;
LZ:LEVZONE;
FILNAVN1,FILNAVN2:STRING(20);
N1,N2,IER,I:INTEGER;
KODE1,KODE2:STRING(10);
R:REAL;
LEVER:LEVPOST;
SYSFIL:SYSFILE;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IINITIATE*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I LEVERANDØRREG ',IER);
ICLOSE(LZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
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 PRLEVOPL(O,KODE:INTEGER);
PROCEDURE PR1;
BEGIN
WITH LEVER DO
CASE O OF
1:BEGIN
GOTOXY(1,1);WRITE('1 Leverandørnr');GOTOXY(30,1);
WRITELN(NR);
END;
2:BEGIN
GOTOXY(1,2);WRITE('2 Navn-1');GOTOXY(30,2);WRITELN(NAVN1);
END;
3:BEGIN
GOTOXY(1,3);WRITE('3 Adresse');GOTOXY(30,3);WRITELN(ADR1);
END;
4:BEGIN
GOTOXY(1,4);WRITE('4 Landsby');GOTOXY(30,4);WRITELN(LANDSBY1);
END;
5:BEGIN
GOTOXY(1,5);WRITE('5 Postnr');GOTOXY(30,5);WRITELN(POSTNR1);
END;
7:BEGIN
GOTOXY(1,7);WRITE('7 Tlf');GOTOXY(30,7);WRITELN(TLF1);
END;
6:BEGIN
GOTOXY(1,6);WRITE('6 Land, 8 for Danmark');GOTOXY(30,6);
WRITELN(LAND1);
END;
8:BEGIN
GOTOXY(1,8);WRITE('8 Navn-2');GOTOXY(30,8);WRITELN(NAVN2);
END;
9:BEGIN
GOTOXY(1,9);WRITE('9 ADRESSE');GOTOXY(30,9);WRITELN(ADR2);
END;
10:BEGIN
GOTOXY(1,10);WRITE('10 LANDSBY');GOTOXY(30,10);WRITELN(LANDSBY2);
END;
11:BEGIN
GOTOXY(1,11);WRITE('11 POSTNR');GOTOXY(30,11);WRITELN(POSTNR2);
END;
13:BEGIN
GOTOXY(1,13);WRITE('13 TLF');GOTOXY(30,13);WRITELN(TLF2);
END;
12:BEGIN
GOTOXY(1,12);WRITE('12 LAND, 8 FOR DANMARK');GOTOXY(30,12);
WRITELN(LAND2);
END;
14:BEGIN
GOTOXY(1,14);WRITE('14 Betalingsbetingelser');GOTOXY(36,14);
WRITELN(BETABET);
END;
END;
END;
PROCEDURE PR2;
BEGIN
WITH LEVER DO
CASE O OF
15:BEGIN
GOTOXY(1,15);WRITE('15 Kostprisfakt1');GOTOXY(30,15);
WRITELN(KOSTPFAK(1));
END;
16:BEGIN
GOTOXY(40,15);WRITE('16 Kostprisfakt2');GOTOXY(65,15);WRITELN(KOSTPFAK(2));
END;
17:BEGIN
GOTOXY(1,16);WRITE('17 Kostprisfakt3');GOTOXY(30,16);WRITELN(KOSTPFAK(3));
END;
18:BEGIN
GOTOXY(40,16);WRITE('18 Kostprisfakt4');GOTOXY(65,16);WRITELN(KOSTPFAK(4));
END;
19:BEGIN
GOTOXY(1,17);WRITE('19 Kostprisfakt5');GOTOXY(30,17);WRITELN(KOSTPFAK(5));
END;
20: BEGIN
GOTOXY(1,18);WRITE('20 Saldo');GOTOXY(25,18);
WRITELN(SALDO/100:12:2);
END;
21: BEGIN
GOTOXY(1,19);WRITE('21 Årets køb');GOTOXY(25,19);
WRITELN(ÅKØB/100:12:2);
END;
END
END;
PROCEDURE PR3;
BEGIN
WITH LEVER DO
CASE O OF
22:BEGIN
GOTOXY(1,20);WRITE('22 Sidste års køb');GOTOXY(25,20);
WRITELN(SÅKØB/100:12:2);
END;
23:BEGIN
GOTOXY(1,21);WRITELN('23 S. best. dato',SBESDAT1*10000.0+SBESDAT2:14:-2);
END;
END
END;
BEGIN
IF O<>0 THEN
BEGIN
IF (1<=O) AND (O<=14) THEN PR1
ELSE
IF (15<=O) AND (O<=21) THEN PR2
ELSE
IF (22<=O) AND (O<=23) THEN PR3
ELSE
BEGIN
CLEARSCREEN;
FOR O:=1 TO 14 DO PR1;
FOR O:=15 TO 21 DO PR2;
FOR O:=22 TO 23 DO PR3
END
END
END;
PROCEDURE LEVOPL(O:INTEGER);
VAR STRENG:STRING;
I:INTEGER;
FUNCTION LÆS(X,Y:INTEGER):REAL;
VAR RES:REAL;
BEGIN
REPEAT
GOTOXY(X,Y);
READLN;
READ(RES)
UNTIL IORESULT=0;
LÆS:=RES
END;
PROCEDURE INCH(X,Y:INTEGER);
BEGIN
REPEAT
GOTOXY(X,Y);
READLN;
READ(CHAR1)
UNTIL (CHAR1='N') OR (CHAR1='J') OR (CHAR1='n') OR (CHAR1='j')
END;
PROCEDURE OPL1;
BEGIN
WITH LEVER DO
CASE O OF
1: BEGIN REPEAT
GOTOXY(25,1);READLN;READ(NR)
UNTIL (IORESULT=0);
END;
2: BEGIN
FILLCHAR(NAVN1,40,' ');
REPEAT
GOTOXY(30,2);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<41;
FOR I:=1 TO LENGTH(STRENG) DO NAVN1(I):=STRENG(I) END;
3: BEGIN REPEAT
GOTOXY(30,3);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(ADR1,30,' ');
FOR I:=1 TO LENGTH(STRENG) DO ADR1(I):=STRENG(I) END;
4: BEGIN REPEAT
GOTOXY(30,4);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<21;
FILLCHAR(LANDSBY1,20,' ');
FOR I:=1 TO LENGTH(STRENG) DO LANDSBY1(I):=STRENG(I) END;
5: BEGIN REPEAT
GOTOXY(30,5);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<26;
FILLCHAR(POSTNR1,25,' ');
FOR I:=1 TO LENGTH(STRENG) DO POSTNR1(I):=STRENG(I) END;
7: BEGIN REPEAT
GOTOXY(30,7);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<11;
FILLCHAR(TLF1,10,' ');
FOR I:=1 TO LENGTH(STRENG) DO TLF1(I):=STRENG(I) END;
6: REPEAT
GOTOXY(30,6);READLN;READ(LAND1)
UNTIL (IORESULT=0) AND (LAND1>0) AND (LAND1<1000);
8: BEGIN
FILLCHAR(NAVN2,30,' ');
REPEAT
GOTOXY(30,8);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FOR I:=1 TO LENGTH(STRENG) DO NAVN2(I):=STRENG(I) END;
9: BEGIN REPEAT
GOTOXY(30,9);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(ADR2,30,' ');
FOR I:=1 TO LENGTH(STRENG) DO ADR2(I):=STRENG(I) END;
10: BEGIN REPEAT
GOTOXY(30,10);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<21;
FILLCHAR(LANDSBY2,20,' ');
FOR I:=1 TO LENGTH(STRENG) DO LANDSBY2(I):=STRENG(I) END;
11: BEGIN REPEAT
GOTOXY(30,11);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<26;
FILLCHAR(POSTNR2,25,' ');
FOR I:=1 TO LENGTH(STRENG) DO POSTNR2(I):=STRENG(I) END;
END
END;
PROCEDURE OPL2;
BEGIN
WITH LEVER DO
CASE O OF
13: BEGIN REPEAT
GOTOXY(30,13);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<11;
FILLCHAR(TLF2,10,' ');
FOR I:=1 TO LENGTH(STRENG) DO TLF2(I):=STRENG(I) END;
12: REPEAT
GOTOXY(30,12);READLN;READ(LAND2)
UNTIL (IORESULT=0) AND (LAND2>0) AND (LAND2<1000);
14: BEGIN REPEAT
GOTOXY(30,14);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<21;
FILLCHAR(BETABET,20,' ');
FOR I:=1 TO LENGTH(STRENG) DO BETABET(I):=STRENG(I)
END;
15: BEGIN FOR I:=5 DOWNTO 2 DO KOSTPFAK(I):=KOSTPFAK(I-1);
REPEAT
GOTOXY(25,15);READLN;READ(KOSTPFAK(1))
UNTIL (IORESULT=0);
END;
16: REPEAT
GOTOXY(65,15);
READLN;READ(KOSTPFAK(2));
UNTIL IORESULT=0;
17: REPEAT
GOTOXY(25,16);
READLN;READ(KOSTPFAK(3));
UNTIL IORESULT=0;
18: REPEAT
GOTOXY(65,16);
READLN;READ(KOSTPFAK(4))
UNTIL IORESULT=0;
19:
REPEAT
GOTOXY(25,17);
READLN;READ(KOSTPFAK(5))
UNTIL IORESULT=0;
20:
SALDO:=LÆS(25,18)*100;
21:
ÅKØB:=LÆS(25,19)*100;
22:
SÅKØB:=LÆS(25,20)*100;
23: BEGIN REPEAT
R:=LÆS(1,21)
UNTIL (R>800000.0) AND (R<850000.0);
SBESDAT1:=TRUNC(R/10000);
SBESDAT2:=TRUNC(R-SBESDAT1*10000.0)
END;
END
END;
BEGIN
IF O<=11 THEN OPL1 ELSE OPL2
END;
PROCEDURE ZERREC;
BEGIN
WITH LEVER DO
BEGIN
NR:=0;
SBESDAT1:=0;
SBESDAT2:=0;
LAND1:=0;
LAND2:=0;
FOR I:=1 TO 5 DO KOSTPFAK(I):=0;
ÅKØB:=0.0;
SÅKØB:=0.0;
SALDO:=0.0;
FILLCHAR(NAVN1,40,' ');
FILLCHAR(NAVN2,30,' ');
FILLCHAR(ADR1,30,' ');
FILLCHAR(ADR2,30,' ');
FILLCHAR(BETABET,20,' ');
FILLCHAR(LANDSBY1,20,' ');
FILLCHAR(LANDSBY2,20,' ');
FILLCHAR(POSTNR1,25,' ');
FILLCHAR(POSTNR2,25,' ');
FILLCHAR(TLF1,10,' ');
FILLCHAR(TLF2,10,' ');
END
END;
PROCEDURE MAINTAIN;
VAR EXC,I,O,P,KODE:INTEGER;
CHANGED:BOOLEAN;
STRENG:STRING;
STRENG1:STRING(10);
BEGIN
(*INDLÆS KODE1 OG KODE2 FRA SYSREG*)
CLEARSCREEN;
GOTOXY(1,1);WRITELN('ADGANGSKODE');
GOTOXY(20,1);READLN;READ(STRENG1);
KODE:=0;
IF STRENG1=KODE1 THEN KODE:=1;
IF STRENG1=KODE2 THEN KODE:=2;
REPEAT
R:=1.0;
REPEAT
GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');
GOTOXY(50,22);READLN;READ(P)
UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));
CASE P OF
1: BEGIN
ZERREC;
PRLEVOPL(-1,KODE);
FOR I:=1 TO 15 DO LEVOPL(I);
PRLEVOPL(-1,KODE);
REPEAT
GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');
GOTOXY(40,22);READLN;READ(O);
IF ((O>=1) AND (O<=19)) THEN LEVOPL(O);
PRLEVOPL(O,KODE)
UNTIL O=0;
INSERT(LZ.H,F,LEVER.A);
END;
2: BEGIN
REPEAT
GOTOXY(1,1);
WRITELN('Leverandør-nr');
GOTOXY(20,1);
READLN;READ(LEVER.NR);
IF LEVER.NR=0 THEN BEGIN IER:=0;R:=0.0 END
ELSE
GETREC(LZ.H,F,LEVER.A)
UNTIL IER=0;
IF R<>0.0 THEN
BEGIN
PRLEVOPL(-1,KODE);
CHANGED:=FALSE;
REPEAT
REPEAT
GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');
GOTOXY(40,22);READLN;READ(O)
UNTIL IORESULT=0;
CASE O OF
20,21,22,16,17,18,19 : BEGIN
GOTOXY(1,23);
WRITELN('ÆNDRING IKKE TILLADT');
GOTOXY(25,23);
WRITELN('TRYK RETURN NÅR FORSTÅET');
GOTOXY(60,23);READLN;READ(STRENG);
IF STRENG='A' THEN
BEGIN
LEVOPL(O);CHANGED:=TRUE
END
END;
14,15,23: IF KODE=2 THEN
BEGIN
LEVOPL(O);CHANGED:=TRUE
END ELSE
BEGIN GOTOXY(1,23);
WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');
END;
2,3,4,5,6,7,8,9,10,11,12,13:BEGIN LEVOPL(O);CHANGED:=TRUE END
END;
PRLEVOPL(O,KODE)
UNTIL O=0;
IF CHANGED THEN PUTREC(LZ.H,F,LEVER.A);
END
END;
3: BEGIN
REPEAT
GOTOXY(1,1);
WRITELN('Leverandør-nr');
GOTOXY(20,1);
READLN;READ(LEVER.NR);
IF LEVER.NR=0 THEN BEGIN IER:=0;R:=0.0 END
ELSE
GETREC(LZ.H,F,LEVER.A)
UNTIL IER=0;
IF R<>0.0 THEN
BEGIN
PRLEVOPL(-1,KODE);
IF KODE=2 THEN
WITH LEVER DO
BEGIN
REPEAT
GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');
GOTOXY(40,23);READLN;READ(O)
UNTIL IORESULT=0;
IF O=4711 THEN
BEGIN
DELETE(LZ.H,F,LEVER.A);
PRLEVOPL(-1,KODE);
IF IER<>0 THEN ERROR
END
END
ELSE
BEGIN
GOTOXY(1,23);
WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')
END
END
END
END
UNTIL P=0
END;
BEGIN
CLEARSCREEN;
FILNAVN2:='LEVERRG:P2:0000:I';
REWRITE(F,FILNAVN2);
IOPEN(LZ.H,F,SKRIV);IF IER<>0 THEN OFEJL;
IF NOT LZ.H.FILEINIT THEN
BEGIN
REPEAT
GOTOXY(1,1);
WRITELN('ANTAL POSTER VED INITIALISERING');
GOTOXY(40,1);
READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<151);
INITIATE(LZ.H,F,I);
IF IER<>0 THEN ERROR
END;
FILNAVN1:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FILNAVN1);
SEEK(SYSFIL,1);
GET(SYSFIL);
KODE1:=' ';
KODE2:=KODE1;
FOR I:=1 TO 10 DO
BEGIN
KODE1(I):=SYSFIL^.KODE(1,I);
KODE2(I):=SYSFIL^.KODE(2,I)
END;
CLOSE(SYSFIL);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
BEGIN
MAINTAIN;
END;
ICLOSE(LZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0012 Line {l1=0x10, l2=»PROGRAM LEVVEDL;«, l3=0x10}
0x0012…0021 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0021…0032 Line {l1=0x0f, l2=» LEVPOST=RECORD«, l3=0x0f}
0x0032…0041 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0041…004e Line {l1=0x0b, l2=» NR,«, l3=0x0b}
0x004e…006a Line {l1=0x1a, l2=» SBESDAT1,SBESDAT2,«, l3=0x1a}
0x006a…0088 Line {l1=0x1c, l2=» LAND1,LAND2:INTEGER;«, l3=0x1c}
0x0088…00b2 Line {l1=0x28, l2=» KOSTPFAK:ARRAY(1..5) OF INTEGER;«, l3=0x28}
0x00b2…00d2 Line {l1=0x1e, l2=» ÅKØB,SÅKØB,SALDO:REAL;«, l3=0x1e}
0x00d2…00ff Line {l1=0x2b, l2=» NAVN1:PACKED ARRAY (1..40) OF CHAR;«, l3=0x2b}
0x00ff…010f Line {l1=0x0e, l2=» NAVN2,«, l3=0x0e}
0x010f…011e Line {l1=0x0d, l2=» ADR1,«, l3=0x0d}
0x011e…014a Line {l1=0x2a, l2=» ADR2:PACKED ARRAY (1..30) OF CHAR;«, l3=0x2a}
0x014a…015c Line {l1=0x10, l2=» BETABET,«, l3=0x10}
0x015c…0196 Line {l1=0x38, l2=» LANDSBY1,LANDSBY2: PACKED ARRAY (1..20) OF CHAR;«, l3=0x38}
0x0196…01ce Line {l1=0x36, l2=» POSTNR1,POSTNR2: PACKED ARRAY (1..25) OF CHAR;«, l3=0x36}
0x01ce…0200 Line {l1=0x30, l2=» TLF1,TLF2: PACKED ARRAY (1..10) OF CHAR;«, l3=0x30}
0x0200…0206 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0206…0217 Line {l1=0x0f, l2=» LEVZONE=RECORD«, l3=0x0f}
0x0217…022b Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x022b…024f Line {l1=0x22, l2=» T:ARRAY(1..382) OF INTEGER«, l3=0x22}
0x024f…0257 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0257…0268 Line {l1=0x0f, l2=» SYSPOST=RECORD«, l3=0x0f}
0x0268…0290 Line {l1=0x26, l2=» HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x26}
0x0290…02b1 Line {l1=0x1f, l2=» KGB:ARRAY(1..5) OF REAL;«, l3=0x1f}
0x02b1…02df Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x02df…0318 Line {l1=0x37, l2=» KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x37}
0x0318…031f Line {l1=0x05, l2=» END;«, l3=0x05}
0x031f…033a Line {l1=0x19, l2=» SYSFILE=FILE OF SYSPOST;«, l3=0x19}
0x033a…0349 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x0349…035d Line {l1=0x12, l2=» CHAR1:CHAR;«, l3=0x12}
0x035d…0371 Line {l1=0x12, l2=» LZ:LEVZONE;«, l3=0x12}
0x0371…0390 Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x0390…03a6 Line {l1=0x14, l2=»N1,N2,IER,I:INTEGER;«, l3=0x14}
0x03a6…03c5 Line {l1=0x1d, l2=» KODE1,KODE2:STRING(10);«, l3=0x1d}
0x03c5…03d5 Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x03d5…03ec Line {l1=0x15, l2=» LEVER:LEVPOST;«, l3=0x15}
0x03ec…0404 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x0404…041a Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x041a…0423 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0423…0436 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0436…0443 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0443…0453 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x0453…0460 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0460…0470 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0470…0480 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0480…048f Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x048f…049d Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x049d…04ab Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x04ab…04b9 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x04b9…04c8 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x04c8…04d6 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x04d6…04df Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x04df…04e8 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x04e8…04f9 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x04f9…0509 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0509…0520 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0520…0532 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0532…0539 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0539…0562 Line {l1=0x27, l2=» WRITELN('FEJL I LEVERANDØRREG ',IER);«, l3=0x27}
0x0562…0575 Line {l1=0x11, l2=» ICLOSE(LZ.H,F);«, l3=0x11}
0x0575…0590 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x0590…0598 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x0598…059e Line {l1=0x04, l2=»END;«, l3=0x04}
0x059e…05b0 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x05b0…05b7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05b7…05c8 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x05c8…060d Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x060d…063d Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x063d…0676 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0676…068d Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x068d…069c Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x069c…06a2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06a2…06c7 Line {l1=0x23, l2=»PROCEDURE PRLEVOPL(O,KODE:INTEGER);«, l3=0x23}
0x06c7…06d7 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x06d7…06de Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06de…06ed Line {l1=0x0d, l2=»WITH LEVER DO«, l3=0x0d}
0x06ed…06f8 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x06f8…0701 Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x0701…0735 Line {l1=0x32, l2=»GOTOXY(1,1);WRITE('1 Leverandørnr');GOTOXY(30,1);«, l3=0x32}
0x0735…0743 Line {l1=0x0c, l2=»WRITELN(NR);«, l3=0x0c}
0x0743…0749 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0749…0752 Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x0752…078f Line {l1=0x3b, l2=»GOTOXY(1,2);WRITE('2 Navn-1');GOTOXY(30,2);WRITELN(NAVN1);«, l3=0x3b}
0x078f…0795 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0795…079e Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x079e…07db Line {l1=0x3b, l2=»GOTOXY(1,3);WRITE('3 Adresse');GOTOXY(30,3);WRITELN(ADR1);«, l3=0x3b}
0x07db…07e1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07e1…07ea Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x07ea…082b Line {l1=0x3f, l2=»GOTOXY(1,4);WRITE('4 Landsby');GOTOXY(30,4);WRITELN(LANDSBY1);«, l3=0x3f}
0x082b…0831 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0831…083a Line {l1=0x07, l2=»5:BEGIN«, l3=0x07}
0x083a…0879 Line {l1=0x3d, l2=»GOTOXY(1,5);WRITE('5 Postnr');GOTOXY(30,5);WRITELN(POSTNR1);«, l3=0x3d}
0x0879…087f Line {l1=0x04, l2=»END;«, l3=0x04}
0x087f…0888 Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x0888…08c1 Line {l1=0x37, l2=»GOTOXY(1,7);WRITE('7 Tlf');GOTOXY(30,7);WRITELN(TLF1);«, l3=0x37}
0x08c1…08c7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08c7…08d0 Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x08d0…090b Line {l1=0x39, l2=»GOTOXY(1,6);WRITE('6 Land, 8 for Danmark');GOTOXY(30,6);«, l3=0x39}
0x090b…091c Line {l1=0x0f, l2=»WRITELN(LAND1);«, l3=0x0f}
0x091c…0922 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0922…092b Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x092b…0968 Line {l1=0x3b, l2=»GOTOXY(1,8);WRITE('8 Navn-2');GOTOXY(30,8);WRITELN(NAVN2);«, l3=0x3b}
0x0968…096e Line {l1=0x04, l2=»END;«, l3=0x04}
0x096e…0977 Line {l1=0x07, l2=»9:BEGIN«, l3=0x07}
0x0977…09b4 Line {l1=0x3b, l2=»GOTOXY(1,9);WRITE('9 ADRESSE');GOTOXY(30,9);WRITELN(ADR2);«, l3=0x3b}
0x09b4…09ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x09ba…09c4 Line {l1=0x08, l2=»10:BEGIN«, l3=0x08}
0x09c4…0a07 Line {l1=0x41, l2=»GOTOXY(1,10);WRITE('10 LANDSBY');GOTOXY(30,10);WRITELN(LANDSBY2);«, l3=0x41}
0x0a07…0a0d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a0d…0a17 Line {l1=0x08, l2=»11:BEGIN«, l3=0x08}
0x0a17…0a58 Line {l1=0x3f, l2=»GOTOXY(1,11);WRITE('11 POSTNR');GOTOXY(30,11);WRITELN(POSTNR2);«, l3=0x3f}
0x0a58…0a5e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a5e…0a68 Line {l1=0x08, l2=»13:BEGIN«, l3=0x08}
0x0a68…0aa3 Line {l1=0x39, l2=»GOTOXY(1,13);WRITE('13 TLF');GOTOXY(30,13);WRITELN(TLF2);«, l3=0x39}
0x0aa3…0aa9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0aa9…0ab3 Line {l1=0x08, l2=»12:BEGIN«, l3=0x08}
0x0ab3…0af0 Line {l1=0x3b, l2=»GOTOXY(1,12);WRITE('12 LAND, 8 FOR DANMARK');GOTOXY(30,12);«, l3=0x3b}
0x0af0…0b01 Line {l1=0x0f, l2=»WRITELN(LAND2);«, l3=0x0f}
0x0b01…0b07 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b07…0b11 Line {l1=0x08, l2=»14:BEGIN«, l3=0x08}
0x0b11…0b4f Line {l1=0x3c, l2=»GOTOXY(1,14);WRITE('14 Betalingsbetingelser');GOTOXY(36,14);«, l3=0x3c}
0x0b4f…0b62 Line {l1=0x11, l2=»WRITELN(BETABET);«, l3=0x11}
0x0b62…0b68 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x0b74…0b84 Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x0b84…0b8b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b8b…0b9a Line {l1=0x0d, l2=»WITH LEVER DO«, l3=0x0d}
0x0b9a…0ba5 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0ba5…0baf Line {l1=0x08, l2=»15:BEGIN«, l3=0x08}
0x0baf…0be6 Line {l1=0x35, l2=»GOTOXY(1,15);WRITE('15 Kostprisfakt1');GOTOXY(30,15);«, l3=0x35}
0x0be6…0bfd Line {l1=0x15, l2=»WRITELN(KOSTPFAK(1));«, l3=0x15}
0x0bfd…0c03 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c03…0c0d Line {l1=0x08, l2=»16:BEGIN«, l3=0x08}
0x0c0d…0c5a Line {l1=0x4b, l2=»GOTOXY(40,15);WRITE('16 Kostprisfakt2');GOTOXY(65,15);WRITELN(KOSTPFAK(2));«, l3=0x4b}
0x0c5a…0c60 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c60…0c6a Line {l1=0x08, l2=»17:BEGIN«, l3=0x08}
0x0c6a…0cb6 Line {l1=0x4a, l2=»GOTOXY(1,16);WRITE('17 Kostprisfakt3');GOTOXY(30,16);WRITELN(KOSTPFAK(3));«, l3=0x4a}
0x0cb6…0cbc Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cbc…0cc6 Line {l1=0x08, l2=»18:BEGIN«, l3=0x08}
0x0cc6…0d13 Line {l1=0x4b, l2=»GOTOXY(40,16);WRITE('18 Kostprisfakt4');GOTOXY(65,16);WRITELN(KOSTPFAK(4));«, l3=0x4b}
0x0d13…0d19 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d19…0d23 Line {l1=0x08, l2=»19:BEGIN«, l3=0x08}
0x0d23…0d6f Line {l1=0x4a, l2=»GOTOXY(1,17);WRITE('19 Kostprisfakt5');GOTOXY(30,17);WRITELN(KOSTPFAK(5));«, l3=0x4a}
0x0d6f…0d75 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d75…0d80 Line {l1=0x09, l2=»20: BEGIN«, l3=0x09}
0x0d80…0daf Line {l1=0x2d, l2=»GOTOXY(1,18);WRITE('20 Saldo');GOTOXY(25,18);«, l3=0x2d}
0x0daf…0dc9 Line {l1=0x18, l2=»WRITELN(SALDO/100:12:2);«, l3=0x18}
0x0dc9…0dcf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dcf…0dda Line {l1=0x09, l2=»21: BEGIN«, l3=0x09}
0x0dda…0e0d Line {l1=0x31, l2=»GOTOXY(1,19);WRITE('21 Årets køb');GOTOXY(25,19);«, l3=0x31}
0x0e0d…0e26 Line {l1=0x17, l2=»WRITELN(ÅKØB/100:12:2);«, l3=0x17}
0x0e26…0e2c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e2c…0e31 Line {l1=0x03, l2=»END«, l3=0x03}
0x0e31…0e37 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e37…0e47 Line {l1=0x0e, l2=»PROCEDURE PR3;«, l3=0x0e}
0x0e47…0e4e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e4e…0e5d Line {l1=0x0d, l2=»WITH LEVER DO«, l3=0x0d}
0x0e5d…0e68 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0e68…0e72 Line {l1=0x08, l2=»22:BEGIN«, l3=0x08}
0x0e72…0eaa Line {l1=0x36, l2=»GOTOXY(1,20);WRITE('22 Sidste års køb');GOTOXY(25,20);«, l3=0x36}
0x0eaa…0ec4 Line {l1=0x18, l2=»WRITELN(SÅKØB/100:12:2);«, l3=0x18}
0x0ec4…0eca Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eca…0ed4 Line {l1=0x08, l2=»23:BEGIN«, l3=0x08}
0x0ed4…0f1f Line {l1=0x49, l2=»GOTOXY(1,21);WRITELN('23 S. best. dato',SBESDAT1*10000.0+SBESDAT2:14:-2);«, l3=0x49}
0x0f1f…0f25 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f25…0f2a Line {l1=0x03, l2=»END«, l3=0x03}
0x0f2a…0f30 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f30…0f37 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f37…0f47 Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x0f47…0f50 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f50…0f74 Line {l1=0x22, l2=» IF (1<=O) AND (O<=14) THEN PR1«, l3=0x22}
0x0f74…0f7e Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0f7e…0fa3 Line {l1=0x23, l2=» IF (15<=O) AND (O<=21) THEN PR2«, l3=0x23}
0x0fa3…0fad Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0fad…0fd2 Line {l1=0x23, l2=» IF (22<=O) AND (O<=23) THEN PR3«, l3=0x23}
0x0fd2…0fdc Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0fdc…0fe7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0fe7…0ffc Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x0ffc…101b Line {l1=0x1d, l2=» FOR O:=1 TO 14 DO PR1;«, l3=0x1d}
0x101b…103b Line {l1=0x1e, l2=» FOR O:=15 TO 21 DO PR2;«, l3=0x1e}
0x103b…105a Line {l1=0x1d, l2=» FOR O:=22 TO 23 DO PR3«, l3=0x1d}
0x105a…1063 Line {l1=0x07, l2=» END«, l3=0x07}
0x1063…106a Line {l1=0x05, l2=» END«, l3=0x05}
0x106a…1070 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1070…108e Line {l1=0x1c, l2=»PROCEDURE LEVOPL(O:INTEGER);«, l3=0x1c}
0x108e…10a2 Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x10a2…10b2 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x10b2…10d3 Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x10d3…10e2 Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x10e2…10e9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x10e9…10f3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x10f3…1108 Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x1108…1118 Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x1118…112a Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x112a…113f Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x113f…114b Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x114b…1151 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1151…116f Line {l1=0x1c, l2=»PROCEDURE INCH(X,Y:INTEGER);«, l3=0x1c}
0x116f…1176 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1176…1180 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1180…1195 Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x1195…11a5 Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x11a5…11b9 Line {l1=0x12, l2=» READ(CHAR1)«, l3=0x12}
0x11b9…11fb Line {l1=0x40, l2=» UNTIL (CHAR1='N') OR (CHAR1='J') OR (CHAR1='n') OR (CHAR1='j')«, l3=0x40}
0x11fb…1201 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1201…1212 Line {l1=0x0f, l2=»PROCEDURE OPL1;«, l3=0x0f}
0x1212…1219 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1219…122a Line {l1=0x0f, l2=» WITH LEVER DO«, l3=0x0f}
0x122a…1237 Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x1237…124c Line {l1=0x13, l2=» 1: BEGIN REPEAT«, l3=0x13}
0x124c…1271 Line {l1=0x23, l2=» GOTOXY(25,1);READLN;READ(NR)«, l3=0x23}
0x1271…128d Line {l1=0x1a, l2=» UNTIL (IORESULT=0);«, l3=0x1a}
0x128d…129a Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x129a…12a8 Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x12a8…12c8 Line {l1=0x1e, l2=» FILLCHAR(NAVN1,40,' ');«, l3=0x1e}
0x12c8…12d7 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x12d7…1302 Line {l1=0x29, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x29}
0x1302…1323 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<41;«, l3=0x1f}
0x1323…1362 Line {l1=0x3d, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN1(I):=STRENG(I) END;«, l3=0x3d}
0x1362…1377 Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x1377…13a0 Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x13a0…13c1 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x13c1…13e0 Line {l1=0x1d, l2=» FILLCHAR(ADR1,30,' ');«, l3=0x1d}
0x13e0…141e Line {l1=0x3c, l2=» FOR I:=1 TO LENGTH(STRENG) DO ADR1(I):=STRENG(I) END;«, l3=0x3c}
0x141e…1433 Line {l1=0x13, l2=» 4: BEGIN REPEAT«, l3=0x13}
0x1433…145c Line {l1=0x27, l2=» GOTOXY(30,4);READLN;READ(STRENG)«, l3=0x27}
0x145c…147d Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<21;«, l3=0x1f}
0x147d…14a0 Line {l1=0x21, l2=» FILLCHAR(LANDSBY1,20,' ');«, l3=0x21}
0x14a0…14e2 Line {l1=0x40, l2=» FOR I:=1 TO LENGTH(STRENG) DO LANDSBY1(I):=STRENG(I) END;«, l3=0x40}
0x14e2…14f7 Line {l1=0x13, l2=» 5: BEGIN REPEAT«, l3=0x13}
0x14f7…1520 Line {l1=0x27, l2=» GOTOXY(30,5);READLN;READ(STRENG)«, l3=0x27}
0x1520…1541 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<26;«, l3=0x1f}
0x1541…1563 Line {l1=0x20, l2=» FILLCHAR(POSTNR1,25,' ');«, l3=0x20}
0x1563…15a4 Line {l1=0x3f, l2=» FOR I:=1 TO LENGTH(STRENG) DO POSTNR1(I):=STRENG(I) END;«, l3=0x3f}
0x15a4…15b9 Line {l1=0x13, l2=» 7: BEGIN REPEAT«, l3=0x13}
0x15b9…15e2 Line {l1=0x27, l2=» GOTOXY(30,7);READLN;READ(STRENG)«, l3=0x27}
0x15e2…1603 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<11;«, l3=0x1f}
0x1603…1622 Line {l1=0x1d, l2=» FILLCHAR(TLF1,10,' ');«, l3=0x1d}
0x1622…1660 Line {l1=0x3c, l2=» FOR I:=1 TO LENGTH(STRENG) DO TLF1(I):=STRENG(I) END;«, l3=0x3c}
0x1660…166f Line {l1=0x0d, l2=» 6: REPEAT«, l3=0x0d}
0x166f…1697 Line {l1=0x26, l2=» GOTOXY(30,6);READLN;READ(LAND1)«, l3=0x26}
0x1697…16d2 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (LAND1>0) AND (LAND1<1000);«, l3=0x39}
0x16d2…16e0 Line {l1=0x0c, l2=» 8: BEGIN«, l3=0x0c}
0x16e0…1700 Line {l1=0x1e, l2=» FILLCHAR(NAVN2,30,' ');«, l3=0x1e}
0x1700…170f Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x170f…173a Line {l1=0x29, l2=» GOTOXY(30,8);READLN;READ(STRENG)«, l3=0x29}
0x173a…175b Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x175b…179a Line {l1=0x3d, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN2(I):=STRENG(I) END;«, l3=0x3d}
0x179a…17af Line {l1=0x13, l2=» 9: BEGIN REPEAT«, l3=0x13}
0x17af…17d8 Line {l1=0x27, l2=» GOTOXY(30,9);READLN;READ(STRENG)«, l3=0x27}
0x17d8…17f9 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x17f9…1818 Line {l1=0x1d, l2=» FILLCHAR(ADR2,30,' ');«, l3=0x1d}
0x1818…1856 Line {l1=0x3c, l2=» FOR I:=1 TO LENGTH(STRENG) DO ADR2(I):=STRENG(I) END;«, l3=0x3c}
0x1856…186c Line {l1=0x14, l2=» 10: BEGIN REPEAT«, l3=0x14}
0x186c…1896 Line {l1=0x28, l2=» GOTOXY(30,10);READLN;READ(STRENG)«, l3=0x28}
0x1896…18b7 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<21;«, l3=0x1f}
0x18b7…18da Line {l1=0x21, l2=» FILLCHAR(LANDSBY2,20,' ');«, l3=0x21}
0x18da…191c Line {l1=0x40, l2=» FOR I:=1 TO LENGTH(STRENG) DO LANDSBY2(I):=STRENG(I) END;«, l3=0x40}
0x191c…1932 Line {l1=0x14, l2=» 11: BEGIN REPEAT«, l3=0x14}
0x1932…195c Line {l1=0x28, l2=» GOTOXY(30,11);READLN;READ(STRENG)«, l3=0x28}
0x195c…197d Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<26;«, l3=0x1f}
0x197d…199f Line {l1=0x20, l2=» FILLCHAR(POSTNR2,25,' ');«, l3=0x20}
0x199f…19e0 Line {l1=0x3f, l2=» FOR I:=1 TO LENGTH(STRENG) DO POSTNR2(I):=STRENG(I) END;«, l3=0x3f}
0x19e0…19e7 Line {l1=0x05, l2=» END«, l3=0x05}
0x19e7…19ed Line {l1=0x04, l2=»END;«, l3=0x04}
0x19ed…19fe Line {l1=0x0f, l2=»PROCEDURE OPL2;«, l3=0x0f}
0x19fe…1a05 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a05…1a16 Line {l1=0x0f, l2=» WITH LEVER DO«, l3=0x0f}
0x1a16…1a23 Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x1a23…1a39 Line {l1=0x14, l2=» 13: BEGIN REPEAT«, l3=0x14}
0x1a39…1a63 Line {l1=0x28, l2=» GOTOXY(30,13);READLN;READ(STRENG)«, l3=0x28}
0x1a63…1a84 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<11;«, l3=0x1f}
0x1a84…1aa3 Line {l1=0x1d, l2=» FILLCHAR(TLF2,10,' ');«, l3=0x1d}
0x1aa3…1ae1 Line {l1=0x3c, l2=» FOR I:=1 TO LENGTH(STRENG) DO TLF2(I):=STRENG(I) END;«, l3=0x3c}
0x1ae1…1af1 Line {l1=0x0e, l2=» 12: REPEAT«, l3=0x0e}
0x1af1…1b1a Line {l1=0x27, l2=» GOTOXY(30,12);READLN;READ(LAND2)«, l3=0x27}
0x1b1a…1b55 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (LAND2>0) AND (LAND2<1000);«, l3=0x39}
0x1b55…1b6a Line {l1=0x13, l2=» 14: BEGIN REPEAT«, l3=0x13}
0x1b6a…1b94 Line {l1=0x28, l2=» GOTOXY(30,14);READLN;READ(STRENG)«, l3=0x28}
0x1b94…1bb5 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<21;«, l3=0x1f}
0x1bb5…1bd7 Line {l1=0x20, l2=» FILLCHAR(BETABET,20,' ');«, l3=0x20}
0x1bd7…1c13 Line {l1=0x3a, l2=» FOR I:=1 TO LENGTH(STRENG) DO BETABET(I):=STRENG(I)«, l3=0x3a}
0x1c13…1c20 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1c20…1c5f Line {l1=0x3d, l2=» 15: BEGIN FOR I:=5 DOWNTO 2 DO KOSTPFAK(I):=KOSTPFAK(I-1);«, l3=0x3d}
0x1c5f…1c6e Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x1c6e…1c9d Line {l1=0x2d, l2=» GOTOXY(25,15);READLN;READ(KOSTPFAK(1))«, l3=0x2d}
0x1c9d…1cb9 Line {l1=0x1a, l2=» UNTIL (IORESULT=0);«, l3=0x1a}
0x1cb9…1cc6 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1cc6…1cd5 Line {l1=0x0d, l2=» 16: REPEAT«, l3=0x0d}
0x1cd5…1cec Line {l1=0x15, l2=» GOTOXY(65,15);«, l3=0x15}
0x1cec…1d0e Line {l1=0x20, l2=» READLN;READ(KOSTPFAK(2));«, l3=0x20}
0x1d0e…1d28 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1d28…1d37 Line {l1=0x0d, l2=» 17: REPEAT«, l3=0x0d}
0x1d37…1d4e Line {l1=0x15, l2=» GOTOXY(25,16);«, l3=0x15}
0x1d4e…1d70 Line {l1=0x20, l2=» READLN;READ(KOSTPFAK(3));«, l3=0x20}
0x1d70…1d8a Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1d8a…1d99 Line {l1=0x0d, l2=» 18: REPEAT«, l3=0x0d}
0x1d99…1db0 Line {l1=0x15, l2=» GOTOXY(65,16);«, l3=0x15}
0x1db0…1dd1 Line {l1=0x1f, l2=» READLN;READ(KOSTPFAK(4))«, l3=0x1f}
0x1dd1…1deb Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1deb…1df4 Line {l1=0x07, l2=» 19: «, l3=0x07}
0x1df4…1e03 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x1e03…1e1a Line {l1=0x15, l2=» GOTOXY(25,17);«, l3=0x15}
0x1e1a…1e3b Line {l1=0x1f, l2=» READLN;READ(KOSTPFAK(5))«, l3=0x1f}
0x1e3b…1e55 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x1e55…1e5d Line {l1=0x06, l2=» 20:«, l3=0x06}
0x1e5d…1e7c Line {l1=0x1d, l2=» SALDO:=LÆS(25,18)*100;«, l3=0x1d}
0x1e7c…1e85 Line {l1=0x07, l2=» 21: «, l3=0x07}
0x1e85…1ea3 Line {l1=0x1c, l2=» ÅKØB:=LÆS(25,19)*100;«, l3=0x1c}
0x1ea3…1eac Line {l1=0x07, l2=» 22: «, l3=0x07}
0x1eac…1ecb Line {l1=0x1d, l2=» SÅKØB:=LÆS(25,20)*100;«, l3=0x1d}
0x1ecb…1ee0 Line {l1=0x13, l2=» 23: BEGIN REPEAT«, l3=0x13}
0x1ee0…1ef5 Line {l1=0x13, l2=» R:=LÆS(1,21)«, l3=0x13}
0x1ef5…1f22 Line {l1=0x2b, l2=» UNTIL (R>800000.0) AND (R<850000.0);«, l3=0x2b}
0x1f22…1f44 Line {l1=0x20, l2=» SBESDAT1:=TRUNC(R/10000);«, l3=0x20}
0x1f44…1f70 Line {l1=0x2a, l2=» SBESDAT2:=TRUNC(R-SBESDAT1*10000.0)«, l3=0x2a}
0x1f70…1f7d Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1f7d…1f86 Line {l1=0x07, l2=» END«, l3=0x07}
0x1f86…1f8c Line {l1=0x04, l2=»END;«, l3=0x04}
0x1f8c…1f93 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f93…1fb3 Line {l1=0x1e, l2=» IF O<=11 THEN OPL1 ELSE OPL2«, l3=0x1e}
0x1fb3…1fb9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1fb9…1fcc Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x1fcc…1fd3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1fd3…1fe4 Line {l1=0x0f, l2=» WITH LEVER DO«, l3=0x0f}
0x1fe4…1fed Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1fed…1ffc Line {l1=0x0d, l2=» NR:=0;«, l3=0x0d}
0x1ffc…2011 Line {l1=0x13, l2=» SBESDAT1:=0;«, l3=0x13}
0x2011…2026 Line {l1=0x13, l2=» SBESDAT2:=0;«, l3=0x13}
0x2026…2038 Line {l1=0x10, l2=» LAND1:=0;«, l3=0x10}
0x2038…204a Line {l1=0x10, l2=» LAND2:=0;«, l3=0x10}
0x204a…2073 Line {l1=0x27, l2=» FOR I:=1 TO 5 DO KOSTPFAK(I):=0;«, l3=0x27}
0x2073…2086 Line {l1=0x11, l2=» ÅKØB:=0.0;«, l3=0x11}
0x2086…209a Line {l1=0x12, l2=» SÅKØB:=0.0;«, l3=0x12}
0x209a…20ae Line {l1=0x12, l2=» SALDO:=0.0;«, l3=0x12}
0x20ae…20b1 Line {l1=0x01, l2=» «, l3=0x01}
0x20b1…20d1 Line {l1=0x1e, l2=» FILLCHAR(NAVN1,40,' ');«, l3=0x1e}
0x20d1…20f1 Line {l1=0x1e, l2=» FILLCHAR(NAVN2,30,' ');«, l3=0x1e}
0x20f1…2110 Line {l1=0x1d, l2=» FILLCHAR(ADR1,30,' ');«, l3=0x1d}
0x2110…212f Line {l1=0x1d, l2=» FILLCHAR(ADR2,30,' ');«, l3=0x1d}
0x212f…2151 Line {l1=0x20, l2=» FILLCHAR(BETABET,20,' ');«, l3=0x20}
0x2151…2174 Line {l1=0x21, l2=» FILLCHAR(LANDSBY1,20,' ');«, l3=0x21}
0x2174…2197 Line {l1=0x21, l2=» FILLCHAR(LANDSBY2,20,' ');«, l3=0x21}
0x2197…21b9 Line {l1=0x20, l2=» FILLCHAR(POSTNR1,25,' ');«, l3=0x20}
0x21b9…21db Line {l1=0x20, l2=» FILLCHAR(POSTNR2,25,' ');«, l3=0x20}
0x21db…21fa Line {l1=0x1d, l2=» FILLCHAR(TLF1,10,' ');«, l3=0x1d}
0x21fa…2219 Line {l1=0x1d, l2=» FILLCHAR(TLF2,10,' ');«, l3=0x1d}
0x2219…2220 Line {l1=0x05, l2=» END«, l3=0x05}
0x2220…2226 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2226…223b Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x223b…2258 Line {l1=0x1b, l2=»VAR EXC,I,O,P,KODE:INTEGER;«, l3=0x1b}
0x2258…226e Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x226e…2282 Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x2282…229b Line {l1=0x17, l2=» STRENG1:STRING(10);«, l3=0x17}
0x229b…22a2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x22a2…22ca Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x22ca…22da Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x22da…2301 Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x2301…2327 Line {l1=0x24, l2=» GOTOXY(20,1);READLN;READ(STRENG1);«, l3=0x24}
0x2327…2333 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x2333…2355 Line {l1=0x20, l2=» IF STRENG1=KODE1 THEN KODE:=1;«, l3=0x20}
0x2355…2377 Line {l1=0x20, l2=» IF STRENG1=KODE2 THEN KODE:=2;«, l3=0x20}
0x2377…2381 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2381…238c Line {l1=0x09, l2=» R:=1.0;«, l3=0x09}
0x238c…2396 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2396…23e4 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x23e4…2409 Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x2409…2446 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x2446…2453 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x2453…2461 Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x2461…2472 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x2472…248e Line {l1=0x1a, l2=» PRLEVOPL(-1,KODE);«, l3=0x1a}
0x248e…24b4 Line {l1=0x24, l2=» FOR I:=1 TO 15 DO LEVOPL(I);«, l3=0x24}
0x24b4…24d0 Line {l1=0x1a, l2=» PRLEVOPL(-1,KODE);«, l3=0x1a}
0x24d0…24e0 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x24e0…252f Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x252f…2557 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x2557…258a Line {l1=0x31, l2=» IF ((O>=1) AND (O<=19)) THEN LEVOPL(O);«, l3=0x31}
0x258a…25a5 Line {l1=0x19, l2=» PRLEVOPL(O,KODE)«, l3=0x19}
0x25a5…25b9 Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x25b9…25da Line {l1=0x1f, l2=» INSERT(LZ.H,F,LEVER.A);«, l3=0x1f}
0x25da…25e7 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x25e7…25f5 Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x25f5…2606 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x2606…261f Line {l1=0x17, l2=» GOTOXY(1,1);«, l3=0x17}
0x261f…2645 Line {l1=0x24, l2=» WRITELN('Leverandør-nr');«, l3=0x24}
0x2645…265f Line {l1=0x18, l2=» GOTOXY(20,1);«, l3=0x18}
0x265f…2682 Line {l1=0x21, l2=» READLN;READ(LEVER.NR);«, l3=0x21}
0x2682…26b9 Line {l1=0x35, l2=» IF LEVER.NR=0 THEN BEGIN IER:=0;R:=0.0 END«, l3=0x35}
0x26b9…26ca Line {l1=0x0f, l2=» ELSE«, l3=0x0f}
0x26ca…26ed Line {l1=0x21, l2=» GETREC(LZ.H,F,LEVER.A)«, l3=0x21}
0x26ed…2704 Line {l1=0x15, l2=» UNTIL IER=0;«, l3=0x15}
0x2704…2707 Line {l1=0x01, l2=» «, l3=0x01}
0x2707…2720 Line {l1=0x17, l2=» IF R<>0.0 THEN«, l3=0x17}
0x2720…2730 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x2730…274d Line {l1=0x1b, l2=» PRLEVOPL(-1,KODE);«, l3=0x1b}
0x274d…2767 Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x2767…2778 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x2789…27d8 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x27d8…2800 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x2800…281c Line {l1=0x1a, l2=» UNTIL IORESULT=0;«, l3=0x1a}
0x281c…2830 Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x2830…2859 Line {l1=0x27, l2=»20,21,22,16,17,18,19 : BEGIN«, l3=0x27}
0x2859…2887 Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x2887…28c8 Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x28c8…28f7 Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x28f7…293c Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x293c…297f Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x297f…29b2 Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x29b2…29d8 Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x29d8…2a12 Line {l1=0x38, l2=» LEVOPL(O);CHANGED:=TRUE«, l3=0x38}
0x2a12…2a36 Line {l1=0x22, l2=» END«, l3=0x22}
0x2a36…2a55 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x2a55…2a6f Line {l1=0x18, l2=»14,15,23: IF KODE=2 THEN«, l3=0x18}
0x2a6f…2a91 Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x2a91…2ac7 Line {l1=0x34, l2=» LEVOPL(O);CHANGED:=TRUE«, l3=0x34}
0x2ac7…2aec Line {l1=0x23, l2=» END ELSE«, l3=0x23}
0x2aec…2b16 Line {l1=0x28, l2=» BEGIN GOTOXY(1,23);«, l3=0x28}
0x2b16…2b65 Line {l1=0x4d, l2=» WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');«, l3=0x4d}
0x2b65…2b80 Line {l1=0x19, l2=» END;«, l3=0x19}
0x2b80…2bbf Line {l1=0x3d, l2=»2,3,4,5,6,7,8,9,10,11,12,13:BEGIN LEVOPL(O);CHANGED:=TRUE END«, l3=0x3d}
0x2bbf…2bd4 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2bd4…2bef Line {l1=0x19, l2=» PRLEVOPL(O,KODE)«, l3=0x19}
0x2bef…2c04 Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x2c04…2c36 Line {l1=0x30, l2=» IF CHANGED THEN PUTREC(LZ.H,F,LEVER.A);«, l3=0x30}
0x2c36…2c44 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2c44…2c50 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2c50…2c5d Line {l1=0x0b, l2=» 3: BEGIN«, l3=0x0b}
0x2c5d…2c6d Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x2c6d…2c85 Line {l1=0x16, l2=» GOTOXY(1,1);«, l3=0x16}
0x2c85…2caa Line {l1=0x23, l2=» WRITELN('Leverandør-nr');«, l3=0x23}
0x2caa…2cc3 Line {l1=0x17, l2=» GOTOXY(20,1);«, l3=0x17}
0x2cc3…2ce5 Line {l1=0x20, l2=» READLN;READ(LEVER.NR);«, l3=0x20}
0x2ce5…2d1b Line {l1=0x34, l2=» IF LEVER.NR=0 THEN BEGIN IER:=0;R:=0.0 END«, l3=0x34}
0x2d1b…2d2b Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x2d2b…2d4f Line {l1=0x22, l2=» GETREC(LZ.H,F,LEVER.A)«, l3=0x22}
0x2d4f…2d65 Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x2d65…2d7d Line {l1=0x16, l2=» IF R<>0.0 THEN«, l3=0x16}
0x2d7d…2d8c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2d8c…2daa Line {l1=0x1c, l2=» PRLEVOPL(-1,KODE);«, l3=0x1c}
0x2daa…2dc4 Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x2dc4…2ddd Line {l1=0x17, l2=» WITH LEVER DO«, l3=0x17}
0x2ddd…2dee Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2dee…2e05 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2e05…2e54 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x2e54…2e81 Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x2e81…2ea3 Line {l1=0x20, l2=» UNTIL IORESULT=0;«, l3=0x20}
0x2ea3…2ec2 Line {l1=0x1d, l2=» IF O=4711 THEN«, l3=0x1d}
0x2ec2…2ed8 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2ed8…2f02 Line {l1=0x28, l2=» DELETE(LZ.H,F,LEVER.A);«, l3=0x28}
0x2f02…2f27 Line {l1=0x23, l2=» PRLEVOPL(-1,KODE);«, l3=0x23}
0x2f27…2f4e Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x2f4e…2f62 Line {l1=0x12, l2=» END«, l3=0x12}
0x2f62…2f73 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x2f73…2f85 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x2f85…2f98 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x2f98…2fb6 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x2fb6…2ffc Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x2ffc…300d Line {l1=0x0f, l2=» END«, l3=0x0f}
0x300d…301b Line {l1=0x0c, l2=» END«, l3=0x0c}
0x301b…3026 Line {l1=0x09, l2=» END«, l3=0x09}
0x3026…302e Line {l1=0x06, l2=» END«, l3=0x06}
0x302e…303c Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x303c…3042 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3042…3049 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3049…3059 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3059…305c Line {l1=0x01, l2=» «, l3=0x01}
0x305c…307e Line {l1=0x20, l2=» FILNAVN2:='LEVERRG:P2:0000:I';«, l3=0x20}
0x307e…3096 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x3096…30c3 Line {l1=0x2b, l2=» IOPEN(LZ.H,F,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2b}
0x30c3…30e0 Line {l1=0x1b, l2=» IF NOT LZ.H.FILEINIT THEN«, l3=0x1b}
0x30e0…30e9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x30e9…30f3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x30f3…3108 Line {l1=0x13, l2=» GOTOXY(1,1);«, l3=0x13}
0x3108…313c Line {l1=0x32, l2=» WRITELN('ANTAL POSTER VED INITIALISERING');«, l3=0x32}
0x313c…3152 Line {l1=0x14, l2=» GOTOXY(40,1);«, l3=0x14}
0x3152…3169 Line {l1=0x15, l2=» READLN;READ(I)«, l3=0x15}
0x3169…3196 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<151);«, l3=0x2b}
0x3196…31ad Line {l1=0x15, l2=» INITIATE(LZ.H,F,I);«, l3=0x15}
0x31ad…31c5 Line {l1=0x16, l2=» IF IER<>0 THEN ERROR«, l3=0x16}
0x31c5…31cd Line {l1=0x06, l2=» END;«, l3=0x06}
0x31cd…31eb Line {l1=0x1c, l2=» FILNAVN1:='SYSREG:P2:1:I';«, l3=0x1c}
0x31eb…3208 Line {l1=0x1b, l2=» REWRITE(SYSFIL,FILNAVN1);«, l3=0x1b}
0x3208…321b Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x321b…322b Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x322b…3243 Line {l1=0x16, l2=» KODE1:=' ';«, l3=0x16}
0x3243…3254 Line {l1=0x0f, l2=» KODE2:=KODE1;«, l3=0x0f}
0x3254…3269 Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x3269…3272 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3272…3294 Line {l1=0x20, l2=» KODE1(I):=SYSFIL^.KODE(1,I);«, l3=0x20}
0x3294…32b5 Line {l1=0x1f, l2=» KODE2(I):=SYSFIL^.KODE(2,I)«, l3=0x1f}
0x32b5…32bd Line {l1=0x06, l2=» END;«, l3=0x06}
0x32bd…32cf Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x32cf…32f8 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x32f8…32ff Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x32ff…330c Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x330c…3312 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3312…3325 Line {l1=0x11, l2=» ICLOSE(LZ.H,F);«, l3=0x11}
0x3325…3335 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3335…3350 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x3350…3376 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x3376…337c Line {l1=0x04, l2=»END.«, l3=0x04}
0x337c…3380 00 00 20 20 ┆ ┆
0x3380…33a0 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 32 29 3b 57 52 49 54 45 4c 4e 28 27 5b 4e 44 52 ┆ GOTOXY(1,22);WRITELN('ÆNDR┆
0x33a0…33c0 49 4e 47 45 52 2c 20 30 20 46 4f 52 20 4e 45 4a 20 45 4c 4c 45 52 53 20 46 45 4c 54 4e 52 20 20 ┆INGER, 0 FOR NEJ ELLERS FELTNR ┆
0x33c0…33e0 20 20 20 20 20 20 20 27 29 3b 4d 26 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 34 30 2c 32 ┆ ');M& GOTOXY(40,2┆
0x33e0…3400 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 3b 26 31 20 20 20 20 20 20 20 20 20 49 46 20 ┆2);READLN;READ(O);&1 IF ┆
0x3400…3420 28 28 4f 3e 31 29 20 41 4e 44 20 28 4f 3c 3d 31 38 29 29 20 20 54 48 45 4e 20 4b 55 4e 44 4f 50 ┆((O>1) AND (O<=18)) THEN KUNDOP┆
0x3420…3440 4c 28 4f 29 3b 31 19 20 20 20 20 20 20 20 20 20 50 52 4b 55 4e 4f 50 4c 28 4f 2c 4b 4f 44 45 29 ┆L(O);1 PRKUNOPL(O,KODE)┆
0x3440…3460 19 12 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 3d 30 3b 12 16 20 20 20 20 20 20 20 20 4b 4e ┆ UNTIL O=0; KN┆
0x3460…3480 41 56 4e 3a 3d 27 20 20 20 20 27 3b 16 35 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 ┆AVN:=' '; 5 FOR I:=1 T┆
0x3480…34a0 4f 20 34 20 44 4f 20 4b 4e 41 56 4e 28 49 29 3a 3d 4b 55 4e 44 45 2e 4e 41 56 4e 28 31 2c 34 2b ┆O 4 DO KNAVN(I):=KUNDE.NAVN(1,4+┆
0x34a0…34c0 49 29 3b 35 1a 20 20 20 20 20 20 20 20 4e 41 4e 55 28 4b 4e 41 56 4e 2c 4e 31 2c 4e 32 29 3b 1a ┆I);5 NANU(KNAVN,N1,N2); ┆
0x34c0…34e0 18 20 20 20 20 20 20 20 20 4b 55 4e 44 45 2e 4e 52 28 31 29 3a 3d 4e 31 3b 18 18 20 20 20 20 20 ┆ KUNDE.NR(1):=N1; ┆
0x34e0…3500 20 20 20 4b 55 4e 44 45 2e 4e 52 28 32 29 3a 3d 4e 32 3b 18 0f 20 20 20 20 20 20 20 20 45 58 43 ┆ KUNDE.NR(2):=N2; EXC┆
0x3500…3520 3a 3d 30 3b 0f 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 1f 20 20 20 20 20 20 20 20 49 4e ┆:=0; REPEAT IN┆
0x3520…3540 53 45 52 54 28 4b 5a 2e 48 2c 46 2c 4b 55 4e 44 45 2e 41 29 3b 1f 16 20 20 20 20 20 20 20 20 49 ┆SERT(KZ.H,F,KUNDE.A); I┆
0x3540…3560 46 20 49 45 52 3d 2d 37 20 54 48 45 4e 16 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 25 20 20 ┆F IER=-7 THEN BEGIN % ┆
0x3560…3580 20 20 20 20 20 20 20 20 4b 55 4e 44 45 2e 4e 52 28 32 29 3a 3d 4b 55 4e 44 45 2e 4e 52 28 32 29 ┆ KUNDE.NR(2):=KUNDE.NR(2)┆
0x3580…35a0 2b 31 3b 25 15 20 20 20 20 20 20 20 20 20 20 45 58 43 3a 3d 45 58 43 2b 31 3b 15 23 20 20 20 20 ┆+1;% EXC:=EXC+1; # ┆
0x35a0…35c0 20 20 20 20 20 20 49 46 20 4b 55 4e 44 45 2e 4e 52 28 32 29 3d 31 30 30 30 30 20 54 48 45 4e 23 ┆ IF KUNDE.NR(2)=10000 THEN#┆
0x35c0…35e0 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 27 20 20 20 20 20 20 20 20 20 20 20 20 4b 55 ┆ BEGIN ' KU┆
0x35e0…3600 4e 44 45 2e 4e 52 28 31 29 3a 3d 4b 55 4e 44 45 2e 4e 52 28 31 29 2b 31 3b 27 1a 20 20 20 20 20 ┆NDE.NR(1):=KUNDE.NR(1)+1;' ┆
0x3600…3620 20 20 20 20 20 20 20 4b 55 4e 44 45 2e 4e 52 28 32 29 3a 3d 30 1a 0d 20 20 20 20 20 20 20 20 20 ┆ KUNDE.NR(2):=0 ┆
0x3620…3640 20 45 4e 44 0d 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 ┆ END END ELSE ┆
0x3640…3660 1c 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 1c 14 20 ┆ IF IER<>0 THEN ERROR ┆
0x3660…3680 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 45 52 3d 30 3b 14 19 20 20 20 20 20 20 20 20 50 52 4b ┆ UNTIL IER=0; PRK┆
0x3680…36a0 55 4e 4f 50 4c 28 31 2c 4b 4f 44 45 29 3b 19 3d 20 20 20 20 20 20 20 20 49 46 20 45 58 43 3e 53 ┆UNOPL(1,KODE); = IF EXC>S┆
0x36a0…36c0 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 34 29 20 54 48 45 4e 20 53 59 53 46 49 4c 5e 2e 48 45 ┆YSFIL^.HELTAL(4) THEN SYSFIL^.HE┆
0x36c0…36e0 4c 54 41 4c 28 34 29 3a 3d 45 58 43 3b 3d 0b 20 20 20 20 20 20 20 45 4e 44 3b 0b 0c 20 20 20 20 ┆LTAL(4):=EXC;= END; ┆
0x36e0…3700 32 3a 20 42 45 47 49 4e 0c 13 20 20 20 20 20 20 20 20 20 20 46 49 4e 44 4b 55 4e 44 3b 13 17 20 ┆2: BEGIN FINDKUND; ┆
0x3700…3720 20 20 20 20 20 20 20 20 49 46 20 52 3c 3e 30 2e 30 20 54 48 45 4e 17 0e 20 20 20 20 20 20 20 20 ┆ IF R<>0.0 THEN ┆
0x3720…3740 20 42 45 47 49 4e 0e 1b 20 20 20 20 20 20 20 20 20 50 52 4b 55 4e 4f 50 4c 28 2d 31 2c 4b 4f 44 ┆ BEGIN PRKUNOPL(-1,KOD┆
0x3740…3760 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 4c 53 45 3b 18 0f 20 ┆E); CHANGED:=FALSE; ┆
0x3760…3780 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 52 45 50 45 41 54 0f ┆ REPEAT REPEAT ┆
0x3780…37a0 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 52 49 54 45 4c 4e 28 ┆M GOTOXY(1,22);WRITELN(┆
0x37a0…37c0 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 2c 20 30 20 46 4f 52 ┆'HVILKET FELT SKAL ÆNDRES, 0 FOR┆
0x37c0…37e0 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 20 47 4f 54 4f 58 59 ┆ SLUT ');M& GOTOXY┆
0x37e0…3800 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 20 20 20 20 20 20 20 ┆(40,22);READLN;READ(O)& ┆
0x3800…3820 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 20 20 20 20 43 41 53 ┆ UNTIL IORESULT=0; CAS┆
0x3820…3840 45 20 4f 20 4f 46 12 2a 31 39 2c 32 30 2c 32 31 2c 32 32 2c 32 33 2c 32 34 2c 32 35 2c 32 36 2c ┆E O OF *19,20,21,22,23,24,25,26,┆
0x3840…3860 32 37 2c 32 38 2c 32 39 2c 33 30 3a 20 42 45 47 49 4e 2a 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆27,28,29,30: BEGIN*, ┆
0x3860…3880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b ┆ GOTOXY(1,23);┆
0x3880…38a0 2c 3f 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 ┆,? ┆
0x38a0…38c0 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 27 29 ┆ WRITELN('ÆNDRING IKKE TILLADT')┆
0x38c0…38e0 3b 3f 2d 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 ┆;?- ┆
0x38e0…3900 20 20 47 4f 54 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 ┆ GOTOXY(25,23);-C ┆
0x3900…3920 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 54 52 59 4b 20 52 ┆ WRITELN('TRYK R┆
0x3920…3940 45 54 55 52 4e 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 ┆ETURN NÅR FORSTÅET');CA ┆
0x3940…3960 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 59 28 36 30 2c ┆ GOTOXY(60,┆
0x3960…3980 32 33 29 3b 52 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 ┆23);READLN;READ(STRENG);A1 ┆
0x3980…39a0 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 49 46 20 53 54 52 45 ┆ IF STRE┆
0x39a0…39c0 4e 47 3d 27 41 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 ┆NG='A' THEN1$ ┆
0x39c0…39e0 20 20 20 20 20 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 ┆ BEGIN$9 ┆
0x39e0…3a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 55 4e 44 4f 50 4c 28 4f 29 3b 43 ┆ KUNDOPL(O);C┆
0x3a00…3a20 48 41 4e 47 45 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 ┆HANGED:=TRUE9" ┆
0x3a20…3a40 20 20 20 20 20 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 ┆ END" ┆
0x3a40…3a60 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 1d 33 31 30 2c 31 31 2c 31 32 2c 31 33 2c 31 34 2c ┆ END; 310,11,12,13,14,┆
0x3a60…3a80 31 35 2c 31 36 2c 31 37 2c 31 38 2c 33 31 2c 33 32 2c 33 33 3a 20 49 46 20 4b 4f 44 45 3d 32 20 ┆15,16,17,18,31,32,33: IF KODE=2 ┆
0x3a80…3aa0 54 48 45 4e 33 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 ┆THEN3 ┆
0x3aa0…3ac0 20 42 45 47 49 4e 20 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN 5 ┆
0x3ac0…3ae0 20 20 20 20 20 4b 55 4e 44 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a 3d 54 52 55 45 35 23 20 ┆ KUNDOPL(O);CHANGED:=TRUE5# ┆
0x3ae0…3b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 45 4c ┆ END EL┆
0x3b00…3b20 53 45 23 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 47 ┆SE#( BEGIN G┆
0x3b20…3b40 4f 54 4f 58 59 28 31 2c 32 33 29 3b 28 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OTOXY(1,23);(M ┆
0x3b40…3b60 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 49 4c 4c 41 44 54 ┆ WRITELN('ÆNDRING IKKE TILLADT┆
0x3b60…3b80 20 4d 45 44 20 4f 50 47 49 56 45 4e 20 41 44 47 41 4e 47 53 4b 4f 44 45 27 29 3b 4d 19 20 20 20 ┆ MED OPGIVEN ADGANGSKODE');M ┆
0x3b80…3ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 19 31 33 2c 34 2c 35 2c 36 2c ┆ END; 13,4,5,6,┆
0x3ba0…3bc0 37 2c 38 2c 39 20 3a 42 45 47 49 4e 20 4b 55 4e 44 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a ┆7,8,9 :BEGIN KUNDOPL(O);CHANGED:┆
0x3bc0…3be0 3d 54 52 55 45 20 45 4e 44 31 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 13 19 ┆=TRUE END1 END; ┆
0x3be0…3c00 20 20 20 20 20 20 20 20 20 50 52 4b 55 4e 4f 50 4c 28 4f 2c 4b 4f 44 45 29 19 13 20 20 20 20 20 ┆ PRKUNOPL(O,KODE) ┆
0x3c00…3c20 20 20 20 20 55 4e 54 49 4c 20 4f 3d 30 3b 13 30 20 20 20 20 20 20 20 20 20 49 46 20 43 48 41 4e ┆ UNTIL O=0; 0 IF CHAN┆
0x3c20…3c40 47 45 44 20 54 48 45 4e 20 50 55 54 52 45 43 28 4b 5a 2e 48 2c 46 2c 4b 55 4e 44 45 2e 41 29 3b ┆GED THEN PUTREC(KZ.H,F,KUNDE.A);┆
0x3c40…3c60 30 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 20 33 ┆0 END END; 3┆
0x3c60…3c80 3a 20 42 45 47 49 4e 0b 11 20 20 20 20 20 20 20 20 46 49 4e 44 4b 55 4e 44 3b 11 16 20 20 20 20 ┆: BEGIN FINDKUND; ┆
0x3c80…3ca0 20 20 20 20 49 46 20 52 3c 3e 30 2e 30 20 54 48 45 4e 16 0d 20 20 20 20 20 20 20 20 42 45 47 49 ┆ IF R<>0.0 THEN BEGI┆
0x3ca0…3cc0 4e 0d 1c 20 20 20 20 20 20 20 20 20 20 50 52 4b 55 4e 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 1c ┆N PRKUNOPL(-1,KODE); ┆
0x3cc0…3ce0 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 17 20 20 20 20 20 ┆ IF KODE=2 THEN ┆
0x3ce0…3d00 20 20 20 20 20 57 49 54 48 20 4b 55 4e 44 45 20 44 4f 17 0f 20 20 20 20 20 20 20 20 20 20 42 45 ┆ WITH KUNDE DO BE┆
0x3d00…3d20 47 49 4e 0f 15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 15 4d 20 20 20 20 ┆GIN REPEAT M ┆
0x3d20…3d40 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 52 49 54 45 4c 4e 28 ┆ GOTOXY(1,23);WRITELN(┆
0x3d40…3d60 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 29 2c 20 30 20 46 4f ┆'SKAL SLETNING UDFØRES (1), 0 FO┆
0x3d60…3d80 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 20 47 4f 54 4f 58 59 ┆R NEJ ');M+ GOTOXY┆
0x3d80…3da0 28 34 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 2b 20 20 20 20 20 20 20 20 20 ┆(40,23);READLN;READ(O)+ ┆
0x3da0…3dc0 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 20 1d 20 20 20 20 20 20 ┆ UNTIL IORESULT=0; ┆
0x3dc0…3de0 20 20 20 20 20 20 20 20 20 49 46 20 4f 3d 34 37 31 31 20 54 48 45 4e 1d 14 20 20 20 20 20 20 20 ┆ IF O=4711 THEN ┆
0x3de0…3e00 20 20 20 20 20 20 20 20 42 45 47 49 4e 14 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ( ┆
0x3e00…3e20 44 45 4c 45 54 45 28 4b 5a 2e 48 2c 46 2c 4b 55 4e 44 45 2e 41 29 3b 28 23 20 20 20 20 20 20 20 ┆DELETE(KZ.H,F,KUNDE.A);(# ┆
0x3e20…3e40 20 20 20 20 20 20 20 20 20 20 50 52 4b 55 4e 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 23 25 20 20 ┆ PRKUNOPL(-1,KODE);#% ┆
0x3e40…3e60 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 54 48 45 4e 20 45 52 ┆ IF IER<>0 THEN ER┆
0x3e60…3e80 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 20 20 20 20 20 20 20 ┆ROR% END ┆
0x3e80…3ea0 20 20 20 20 20 45 4e 44 0f 10 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 10 11 20 20 20 20 ┆ END ELSE ┆
0x3ea0…3ec0 20 20 20 20 20 20 20 20 42 45 47 49 4e 11 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f ┆ BEGIN GO┆
0x3ec0…3ee0 54 4f 58 59 28 31 2c 32 33 29 3b 1c 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 ┆TOXY(1,23); D WRIT┆
0x3ee0…3f00 45 4c 4e 28 27 53 4c 45 54 4e 49 4e 47 20 4d 5d 20 49 4b 4b 45 20 55 44 46 5c 52 45 53 20 4d 45 ┆ELN('SLETNING MÅ IKKE UDFØRES ME┆
0x3f00…3f20 44 20 4f 50 47 49 56 45 4e 20 4e 5c 47 4c 45 27 29 44 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆D OPGIVEN NØGLE')D E┆
0x3f20…3f40 4e 44 0f 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 09 20 20 20 20 20 20 45 4e 44 09 06 20 20 20 ┆ND END END ┆
0x3f40…3f60 45 4e 44 06 0c 20 20 20 55 4e 54 49 4c 20 50 3d 30 0c 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 0e ┆END UNTIL P=0 END; BEGIN ┆
0x3f60…3f80 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 01 20 01 20 20 20 46 49 4c 4e 41 56 4e 32 3a 3d 27 ┆ CLEARSCREEN; FILNAVN2:='┆
0x3f80…3fa0 4b 55 4e 44 45 52 47 3a 50 32 3a 30 30 30 30 3a 49 27 3b 20 16 20 20 52 45 57 52 49 54 45 28 46 ┆KUNDERG:P2:0000:I'; REWRITE(F┆
0x3fa0…3fc0 2c 46 49 4c 4e 41 56 4e 32 29 3b 16 2b 20 20 49 4f 50 45 4e 28 4b 5a 2e 48 2c 46 2c 53 4b 52 49 ┆,FILNAVN2); + IOPEN(KZ.H,F,SKRI┆
0x3fc0…3fe0 56 29 3b 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 4f 46 45 4a 4c 3b 2b 1c 20 20 46 49 4c 4e ┆V);IF IER<>0 THEN OFEJL;+ FILN┆
0x3fe0…4000 41 56 4e 31 3a 3d 27 53 59 53 52 45 47 3a 50 32 3a 31 3a 49 27 3b 1c 1b 20 20 52 45 57 52 49 54 ┆AVN1:='SYSREG:P2:1:I'; REWRIT┆
0x4000…4020 45 28 53 59 53 46 49 4c 2c 46 49 4c 4e 41 56 4e 31 29 3b 1b 11 20 20 53 45 45 4b 28 53 59 53 46 ┆E(SYSFIL,FILNAVN1); SEEK(SYSF┆
0x4020…4040 49 4c 2c 31 29 3b 11 0e 20 20 47 45 54 28 53 59 53 46 49 4c 29 3b 0e 16 20 20 4b 4f 44 45 31 3a ┆IL,1); GET(SYSFIL); KODE1:┆
0x4040…4060 3d 27 20 20 20 20 20 20 20 20 20 20 27 3b 16 0f 20 20 4b 4f 44 45 32 3a 3d 4b 4f 44 45 31 3b 0f ┆=' '; KODE2:=KODE1; ┆
0x4060…4080 13 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 13 07 20 20 42 45 47 49 4e 07 20 20 ┆ FOR I:=1 TO 10 DO BEGIN ┆
0x4080…40a0 20 20 20 4b 4f 44 45 31 28 49 29 3a 3d 53 59 53 46 49 4c 5e 2e 4b 4f 44 45 28 31 2c 49 29 3b 20 ┆ KODE1(I):=SYSFIL^.KODE(1,I); ┆
0x40a0…40c0 1f 20 20 20 20 4b 4f 44 45 32 28 49 29 3a 3d 53 59 53 46 49 4c 5e 2e 4b 4f 44 45 28 32 2c 49 29 ┆ KODE2(I):=SYSFIL^.KODE(2,I)┆
0x40c0…40e0 1f 06 20 20 45 4e 44 3b 06 27 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 28 27 ┆ END; 'IF IER<>0 THEN WRITE('┆
0x40e0…4100 49 4f 50 45 4e 20 27 2c 49 45 52 29 20 45 4c 53 45 27 05 42 45 47 49 4e 05 0b 20 20 4d 41 49 4e ┆IOPEN ',IER) ELSE' BEGIN MAIN┆
0x4100…4120 54 41 49 4e 3b 0b 04 45 4e 44 3b 04 11 20 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c 46 29 3b 11 0e ┆TAIN; END; ICLOSE(KZ.H,F); ┆
0x4120…4140 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 19 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 ┆ CLEARSCREEN; WRITELN('ICLOS┆
0x4140…4160 45 20 27 2c 49 45 52 29 3b 19 11 20 20 53 45 45 4b 28 53 59 53 46 49 4c 2c 31 29 3b 11 0e 20 20 ┆E ',IER); SEEK(SYSFIL,1); ┆
0x4160…4180 50 55 54 28 53 59 53 46 49 4c 29 3b 0e 0f 20 20 43 4c 4f 53 45 28 53 59 53 46 49 4c 29 0f 04 45 ┆PUT(SYSFIL); CLOSE(SYSFIL) E┆
0x4180…41a0 4e 44 2e 04 00 00 52 45 45 4e 3b 0e 19 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 ┆ND. REEN; WRITELN('ICLOSE '┆
0x41a0…41c0 2c 49 45 52 29 3b 19 11 20 20 53 45 45 4b 28 53 59 53 46 49 4c 2c 31 29 3b 11 0e 20 20 50 55 54 ┆,IER); SEEK(SYSFIL,1); PUT┆
0x41c0…41e0 28 53 59 53 46 49 4c 29 3b 0e 0f 20 20 43 4c 4f 53 45 28 53 59 53 46 49 4c 29 0f 04 45 4e 44 2e ┆(SYSFIL); CLOSE(SYSFIL) END.┆
0x41e0…4200 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x4200…4220 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 ┆ ┆
[…0x11…]