|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »BTAVEDL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »BTAVEDL.K«
PROGRAM BTAVEDL;
(*$IISFHEAD*)
BETAPOST=RECORD
A:AR;
NR:ARRAY (1..3) OF INTEGER;
(*KNR1,KNR2,LAND*)
NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
(*NAVN,UDVNAVN,ADR*)
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR
END;
BETAZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..374) 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;
BZ:BETAZONE;
FILNAVN2:STRING(20);
IER,I:INTEGER;
KODE1,KODE2:STRING(10);
BETA:BETAPOST;
SYSFIL:SYSFILE;
R:REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE PRBTAOPL(O,KODE:INTEGER);
PROCEDURE PR1;
BEGIN
WITH BETA DO
CASE O OF
1:BEGIN
GOTOXY(1,1);WRITE('1 KUNDENR');GOTOXY(30,1);
WRITELN(NR(1)*10000.0+NR(2):10:-2);
END;
2:BEGIN
GOTOXY(1,2);WRITE('2 KUNDENAVN');GOTOXY(30,2);WRITELN(NAVN(1));
END;
3:BEGIN
GOTOXY(1,3);WRITE('3 NAVNEUDVIDELSE');GOTOXY(30,3);WRITELN(NAVN(2));
END;
4:BEGIN
GOTOXY(1,4);WRITE('4 ADRESSE');GOTOXY(30,4);WRITELN(NAVN(3));
END;
5:BEGIN
GOTOXY(1,5);WRITE('5 LANDSBY');GOTOXY(30,5);WRITELN(LANDSBY);
END;
6:BEGIN
GOTOXY(1,6);WRITE('6 POSTNR');GOTOXY(30,6);WRITELN(POSTNR);
END;
7:BEGIN
GOTOXY(1,7);WRITE('7 TLF');GOTOXY(30,7);WRITELN(TLF);
END;
8:BEGIN
GOTOXY(1,8);WRITE('8 LAND, 8 FOR DANMARK');GOTOXY(30,8);
WRITELN(NR(3):10);
END;
END;
END;
BEGIN
IF O<>0 THEN
BEGIN
IF (1<=O) AND (O<=8) THEN PR1
ELSE
BEGIN
CLEARSCREEN;
FOR O:=1 TO 8 DO PR1;
END
END
END;
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE BETAOPL(O:INTEGER);
VAR STRENG:STRING;
I:INTEGER;
R:REAL;
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;
BEGIN
WITH BETA DO
CASE O OF
1: BEGIN
REPEAT
R:=LÆS(30,1)
UNTIL (R>=10000.0) AND (R<100000.0);
NR(1):=TRUNC(R/10000);
NR(2):=TRUNC(R-NR(1)*10000.0)
END;
2: BEGIN REPEAT
GOTOXY(30,2);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(NAVN(1),30,' ');
FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I) END;
3: BEGIN REPEAT
GOTOXY(30,3);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(NAVN(2),30,' ');
FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;
4: BEGIN REPEAT
GOTOXY(30,4);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(NAVN(3),30,' ');
FOR I:=1 TO LENGTH(STRENG) DO NAVN(3,I):=STRENG(I) END;
5: BEGIN REPEAT
GOTOXY(30,5);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<21;
FILLCHAR(LANDSBY,20,' ');
FOR I:=1 TO LENGTH(STRENG) DO LANDSBY(I):=STRENG(I) END;
6: BEGIN REPEAT
GOTOXY(30,6);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<26;
FILLCHAR(POSTNR,25,' ');
FOR I:=1 TO LENGTH(STRENG) DO POSTNR(I):=STRENG(I) END;
7: BEGIN REPEAT
GOTOXY(30,7);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<11;
FILLCHAR(TLF,10,' ');
FOR I:=1 TO LENGTH(STRENG) DO TLF(I):=STRENG(I) END;
8: REPEAT
GOTOXY(30,8);
READLN;READ(NR(3))
UNTIL (IORESULT=0) AND (NR(3)<1000) AND (NR(3)>=0);
END
END;
PROCEDURE ZERREC;
BEGIN
WITH BETA DO
BEGIN
FOR I:=1 TO 3 DO NR(I):=0;
FILLCHAR(NAVN(1),30,' ');
FILLCHAR(NAVN(2),30,' ');
FILLCHAR(NAVN(3),30,' ');
FILLCHAR(LANDSBY,20,' ');
FILLCHAR(POSTNR,25,' ');
FILLCHAR(TLF,10,' ')
END
END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I BETAREG ',IER);
ICLOSE(BZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
END;
PROCEDURE MAINTAIN;
VAR I,O,P,KODE:INTEGER;
CHANGED:BOOLEAN;
STRENG:STRING;
STRENG1:STRING(10);
BEGIN
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
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));
WITH BETA DO
CASE P OF
1: BEGIN
ZERREC;
PRBTAOPL(-1,KODE);
FOR I:=1 TO 8 DO BETAOPL(I);
PRBTAOPL(-1,KODE);
REPEAT
GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');
GOTOXY(40,22);READLN;READ(O);
IF ((O>=1) AND (O<=8)) THEN BETAOPL(O);
PRBTAOPL(O,KODE)
UNTIL O=0;
REPEAT
INSERT(BZ.H,F,A);
IF IER=-7 THEN
BEGIN
GOTOXY(1,23);WRITELN('KUNDENR FINDES I FORVEJEN ');
BETAOPL(1)
END
ELSE
IF IER<>0 THEN ERROR
UNTIL IER=0;
END;
2: BEGIN
REPEAT
GOTOXY(1,23);WRITELN('KUNDENR ');
GOTOXY(30,23);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>9999) AND (R<100000.0);
NR(1):=TRUNC(R/10000);
NR(2):=TRUNC(R-NR(1)*10000.0);
GETREC(BZ.H,F,A);
IF IER=-6 THEN WRITELN('KUNDEN EKSISTERER IKKE')
ELSE
IF IER<>0 THEN ERROR
ELSE
BEGIN
PRBTAOPL(-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
1 : 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
BETAOPL(O);CHANGED:=TRUE
END
END;
2,3,4,5,6,7,8 :BEGIN BETAOPL(O);CHANGED:=TRUE END
END;
PRBTAOPL(O,KODE)
UNTIL O=0;
IF CHANGED THEN PUTREC(BZ.H,F,A);
END
END;
3: BEGIN
REPEAT
GOTOXY(1,23);WRITELN('KUNDENR ');
GOTOXY(30,23);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>9999) AND (R<100000.0);
NR(1):=TRUNC(R/10000);
NR(2):=TRUNC(R-NR(1)*10000.0);
GETREC(BZ.H,F,A);
IF IER=-6 THEN WRITELN('KUNDEN EKSISTERER IKKE')
ELSE
IF IER<>0 THEN ERROR
ELSE
BEGIN
PRBTAOPL(-1,KODE);
IF KODE=2 THEN
WITH BETA DO
BEGIN
REPEAT
GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');
GOTOXY(40,23);READLN;READ(O)
UNTIL (IORESULT=0) AND ((O=0) OR (O=1));
IF O=1 THEN
BEGIN
DELETE(BZ.H,F,A);
PRBTAOPL(-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
FILNAVN2:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FILNAVN2);
SEEK(SYSFIL,1);
GET(SYSFIL);
KODE2:=' ';
KODE1:=' ';
FOR I:=1 TO 10 DO
BEGIN
KODE2(I):=SYSFIL^.KODE(2,I);
KODE1(I):=SYSFIL^.KODE(1,I)
END;
CLOSE(SYSFIL);
FILNAVN2:='BETAREG:P2:0:I';
REWRITE(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IOPEN(BZ.H,F,SKRIV);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
BEGIN
MAINTAIN;
END;
ICLOSE(BZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0012 Line {l1=0x10, l2=»PROGRAM BTAVEDL;«, l3=0x10}
0x0012…0021 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0021…0024 Line {l1=0x01, l2=» «, l3=0x01}
0x0024…0035 Line {l1=0x0f, l2=»BETAPOST=RECORD«, l3=0x0f}
0x0035…0043 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0043…0067 Line {l1=0x22, l2=» NR:ARRAY (1..3) OF INTEGER;«, l3=0x22}
0x0067…0082 Line {l1=0x19, l2=» (*KNR1,KNR2,LAND*)«, l3=0x19}
0x0082…00bd Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x00bd…00da Line {l1=0x1b, l2=» (*NAVN,UDVNAVN,ADR*)«, l3=0x1b}
0x00da…0108 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x0108…0135 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0135…015e Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x015e…0164 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0164…0175 Line {l1=0x0f, l2=»BETAZONE=RECORD«, l3=0x0f}
0x0175…0188 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0188…01ab Line {l1=0x21, l2=» T:ARRAY(1..374) OF INTEGER«, l3=0x21}
0x01ab…01b1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01b1…01c1 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x01c1…01ea Line {l1=0x27, l2=» HELTAL:ARRAY (1..24) OF INTEGER;«, l3=0x27}
0x01ea…020b Line {l1=0x1f, l2=» KGB:ARRAY(1..5) OF REAL;«, l3=0x1f}
0x020b…0239 Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x0239…0273 Line {l1=0x38, l2=» KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x38}
0x0273…0279 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0279…0293 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0293…02a2 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x02a2…02b7 Line {l1=0x13, l2=» BZ:BETAZONE;«, l3=0x13}
0x02b7…02d4 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x02d4…02ea Line {l1=0x14, l2=» IER,I:INTEGER;«, l3=0x14}
0x02ea…0309 Line {l1=0x1d, l2=» KODE1,KODE2:STRING(10);«, l3=0x1d}
0x0309…0320 Line {l1=0x15, l2=» BETA:BETAPOST;«, l3=0x15}
0x0320…0338 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x0338…0348 Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x0348…035e Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x035e…0367 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0367…037a Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x037a…0387 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0387…0394 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0394…03a4 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x03a4…03b4 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x03b4…03c3 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x03c3…03d1 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x03d1…03df Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x03df…03ed Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x03ed…03fc Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x03fc…040a Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x040a…0413 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0413…041c Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x041c…0441 Line {l1=0x23, l2=»PROCEDURE PRBTAOPL(O,KODE:INTEGER);«, l3=0x23}
0x0441…0451 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x0451…0458 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0458…0466 Line {l1=0x0c, l2=»WITH BETA DO«, l3=0x0c}
0x0466…0471 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x0471…047a Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x047a…04a8 Line {l1=0x2c, l2=»GOTOXY(1,1);WRITE('1 KUNDENR');GOTOXY(30,1);«, l3=0x2c}
0x04a8…04cd Line {l1=0x23, l2=»WRITELN(NR(1)*10000.0+NR(2):10:-2);«, l3=0x23}
0x04cd…04d3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04d3…04dc Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x04dc…051d Line {l1=0x3f, l2=»GOTOXY(1,2);WRITE('2 KUNDENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3f}
0x051d…0523 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0523…052c Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x052c…0572 Line {l1=0x44, l2=»GOTOXY(1,3);WRITE('3 NAVNEUDVIDELSE');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x44}
0x0572…0578 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0578…0581 Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x0581…05c0 Line {l1=0x3d, l2=»GOTOXY(1,4);WRITE('4 ADRESSE');GOTOXY(30,4);WRITELN(NAVN(3));«, l3=0x3d}
0x05c0…05c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05c6…05cf Line {l1=0x07, l2=»5:BEGIN«, l3=0x07}
0x05cf…060e Line {l1=0x3d, l2=»GOTOXY(1,5);WRITE('5 LANDSBY');GOTOXY(30,5);WRITELN(LANDSBY);«, l3=0x3d}
0x060e…0614 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0614…061d Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x061d…065a Line {l1=0x3b, l2=»GOTOXY(1,6);WRITE('6 POSTNR');GOTOXY(30,6);WRITELN(POSTNR);«, l3=0x3b}
0x065a…0660 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0660…0669 Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x0669…06a0 Line {l1=0x35, l2=»GOTOXY(1,7);WRITE('7 TLF');GOTOXY(30,7);WRITELN(TLF);«, l3=0x35}
0x06a0…06a6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06a6…06af Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x06af…06e9 Line {l1=0x38, l2=»GOTOXY(1,8);WRITE('8 LAND, 8 FOR DANMARK');GOTOXY(30,8);«, l3=0x38}
0x06e9…06fd Line {l1=0x12, l2=»WRITELN(NR(3):10);«, l3=0x12}
0x06fd…0703 Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x070f…0716 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0716…0726 Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x0726…072f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x072f…0752 Line {l1=0x21, l2=» IF (1<=O) AND (O<=8) THEN PR1«, l3=0x21}
0x0752…075c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x075c…0767 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0767…077c Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x077c…079a Line {l1=0x1c, l2=» FOR O:=1 TO 8 DO PR1;«, l3=0x1c}
0x079a…07a3 Line {l1=0x07, l2=» END«, l3=0x07}
0x07a3…07aa Line {l1=0x05, l2=» END«, l3=0x05}
0x07aa…07b0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07b0…07c1 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x07c1…07d1 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x07d1…07e8 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x07e8…0807 Line {l1=0x1d, l2=»PROCEDURE BETAOPL(O:INTEGER);«, l3=0x1d}
0x0807…081b Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x081b…082b Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x082b…0838 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0838…0859 Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x0859…0868 Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x0868…086f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x086f…0879 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0879…088e Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x088e…089e Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x089e…08b0 Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x08b0…08c5 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x08c5…08d1 Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x08d1…08d7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08d7…08de Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08de…08ee Line {l1=0x0e, l2=» WITH BETA DO«, l3=0x0e}
0x08ee…08fb Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x08fb…0909 Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x0909…0918 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x0918…092d Line {l1=0x13, l2=» R:=LÆS(30,1)«, l3=0x13}
0x092d…095a Line {l1=0x2b, l2=» UNTIL (R>=10000.0) AND (R<100000.0);«, l3=0x2b}
0x095a…0979 Line {l1=0x1d, l2=» NR(1):=TRUNC(R/10000);«, l3=0x1d}
0x0979…099f Line {l1=0x24, l2=» NR(2):=TRUNC(R-NR(1)*10000.0)«, l3=0x24}
0x099f…09ac Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x09ac…09c1 Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x09c1…09ea Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x09ea…0a0b Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x0a0b…0a2d Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x0a2d…0a6e Line {l1=0x3f, l2=» FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I) END;«, l3=0x3f}
0x0a6e…0a83 Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x0a83…0aac Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x0aac…0acd Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x0acd…0aef Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x0aef…0b2f Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;«, l3=0x3e}
0x0b2f…0b44 Line {l1=0x13, l2=» 4: BEGIN REPEAT«, l3=0x13}
0x0b44…0b6d Line {l1=0x27, l2=» GOTOXY(30,4);READLN;READ(STRENG)«, l3=0x27}
0x0b6d…0b8e Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x0b8e…0bb0 Line {l1=0x20, l2=» FILLCHAR(NAVN(3),30,' ');«, l3=0x20}
0x0bb0…0bf0 Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(3,I):=STRENG(I) END;«, l3=0x3e}
0x0bf0…0c05 Line {l1=0x13, l2=» 5: BEGIN REPEAT«, l3=0x13}
0x0c05…0c2e Line {l1=0x27, l2=» GOTOXY(30,5);READLN;READ(STRENG)«, l3=0x27}
0x0c2e…0c4f Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<21;«, l3=0x1f}
0x0c4f…0c71 Line {l1=0x20, l2=» FILLCHAR(LANDSBY,20,' ');«, l3=0x20}
0x0c71…0cb2 Line {l1=0x3f, l2=» FOR I:=1 TO LENGTH(STRENG) DO LANDSBY(I):=STRENG(I) END;«, l3=0x3f}
0x0cb2…0cc7 Line {l1=0x13, l2=» 6: BEGIN REPEAT«, l3=0x13}
0x0cc7…0cf0 Line {l1=0x27, l2=» GOTOXY(30,6);READLN;READ(STRENG)«, l3=0x27}
0x0cf0…0d11 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<26;«, l3=0x1f}
0x0d11…0d32 Line {l1=0x1f, l2=» FILLCHAR(POSTNR,25,' ');«, l3=0x1f}
0x0d32…0d72 Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO POSTNR(I):=STRENG(I) END;«, l3=0x3e}
0x0d72…0d87 Line {l1=0x13, l2=» 7: BEGIN REPEAT«, l3=0x13}
0x0d87…0db0 Line {l1=0x27, l2=» GOTOXY(30,7);READLN;READ(STRENG)«, l3=0x27}
0x0db0…0dd1 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<11;«, l3=0x1f}
0x0dd1…0def Line {l1=0x1c, l2=» FILLCHAR(TLF,10,' ');«, l3=0x1c}
0x0def…0e2c Line {l1=0x3b, l2=» FOR I:=1 TO LENGTH(STRENG) DO TLF(I):=STRENG(I) END;«, l3=0x3b}
0x0e2c…0e3b Line {l1=0x0d, l2=» 8: REPEAT«, l3=0x0d}
0x0e3b…0e53 Line {l1=0x16, l2=» GOTOXY(30,8);«, l3=0x16}
0x0e53…0e70 Line {l1=0x1b, l2=» READLN;READ(NR(3))«, l3=0x1b}
0x0e70…0eac Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND (NR(3)<1000) AND (NR(3)>=0);«, l3=0x3a}
0x0eac…0eb5 Line {l1=0x07, l2=» END«, l3=0x07}
0x0eb5…0ebb Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ebb…0ece Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x0ece…0ed5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ed5…0ee5 Line {l1=0x0e, l2=» WITH BETA DO«, l3=0x0e}
0x0ee5…0eee Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0eee…0f11 Line {l1=0x21, l2=» FOR I:=1 TO 3 DO NR(I):=0;«, l3=0x21}
0x0f11…0f33 Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x0f33…0f55 Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x0f55…0f77 Line {l1=0x20, l2=» FILLCHAR(NAVN(3),30,' ');«, l3=0x20}
0x0f77…0f99 Line {l1=0x20, l2=» FILLCHAR(LANDSBY,20,' ');«, l3=0x20}
0x0f99…0fba Line {l1=0x1f, l2=» FILLCHAR(POSTNR,25,' ');«, l3=0x1f}
0x0fba…0fd7 Line {l1=0x1b, l2=» FILLCHAR(TLF,10,' ')«, l3=0x1b}
0x0fd7…0fde Line {l1=0x05, l2=» END«, l3=0x05}
0x0fde…0fe4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0fe4…0ff6 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0ff6…0ffd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ffd…1020 Line {l1=0x21, l2=» WRITELN('FEJL I BETAREG ',IER);«, l3=0x21}
0x1020…1033 Line {l1=0x11, l2=» ICLOSE(BZ.H,F);«, l3=0x11}
0x1033…104e Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x104e…1056 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x1056…105c Line {l1=0x04, l2=»END;«, l3=0x04}
0x105c…1071 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1071…108a Line {l1=0x17, l2=»VAR I,O,P,KODE:INTEGER;«, l3=0x17}
0x108a…10a0 Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x10a0…10b4 Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x10b4…10cd Line {l1=0x17, l2=» STRENG1:STRING(10);«, l3=0x17}
0x10cd…10d4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x10d4…10e4 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x10e4…110b Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x110b…1131 Line {l1=0x24, l2=» GOTOXY(20,1);READLN;READ(STRENG1);«, l3=0x24}
0x1131…113d Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x113d…115f Line {l1=0x20, l2=» IF STRENG1=KODE1 THEN KODE:=1;«, l3=0x20}
0x115f…1181 Line {l1=0x20, l2=» IF STRENG1=KODE2 THEN KODE:=2;«, l3=0x20}
0x1181…118b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x1195…11e3 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x11e3…1208 Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x1208…1245 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x1245…1255 Line {l1=0x0e, l2=» WITH BETA DO«, l3=0x0e}
0x1255…1262 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x1262…1270 Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x1270…1281 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x1281…129d Line {l1=0x1a, l2=» PRBTAOPL(-1,KODE);«, l3=0x1a}
0x129d…12c3 Line {l1=0x24, l2=» FOR I:=1 TO 8 DO BETAOPL(I);«, l3=0x24}
0x12c3…12df Line {l1=0x1a, l2=» PRBTAOPL(-1,KODE);«, l3=0x1a}
0x12df…12ef Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x12ef…133e Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x133e…1366 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x1366…1398 Line {l1=0x30, l2=» IF ((O>=1) AND (O<=8)) THEN BETAOPL(O);«, l3=0x30}
0x1398…13b3 Line {l1=0x19, l2=» PRBTAOPL(O,KODE)«, l3=0x19}
0x13b3…13c7 Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x13c7…13d7 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x13d7…13f2 Line {l1=0x19, l2=» INSERT(BZ.H,F,A);«, l3=0x19}
0x13f2…140a Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x140a…1419 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1419…1457 Line {l1=0x3c, l2=» GOTOXY(1,23);WRITELN('KUNDENR FINDES I FORVEJEN ');«, l3=0x3c}
0x1457…146c Line {l1=0x13, l2=» BETAOPL(1)«, l3=0x13}
0x146c…1479 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1479…1487 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1487…14a5 Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x14a5…14bb Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x14bb…14c8 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x14c8…14d6 Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x14d6…14e7 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x14e7…1536 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('KUNDENR ');«, l3=0x4d}
0x1536…155e Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(R)«, l3=0x26}
0x155e…159a Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND (R>9999) AND (R<100000.0);«, l3=0x3a}
0x159a…15bb Line {l1=0x1f, l2=» NR(1):=TRUNC(R/10000);«, l3=0x1f}
0x15bb…15e4 Line {l1=0x27, l2=» NR(2):=TRUNC(R-NR(1)*10000.0);«, l3=0x27}
0x15e4…1600 Line {l1=0x1a, l2=» GETREC(BZ.H,F,A);«, l3=0x1a}
0x1600…163b Line {l1=0x39, l2=» IF IER=-6 THEN WRITELN('KUNDEN EKSISTERER IKKE')«, l3=0x39}
0x163b…164a Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x164a…1669 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR«, l3=0x1d}
0x1669…1678 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x1678…1688 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x1688…16a5 Line {l1=0x1b, l2=» PRBTAOPL(-1,KODE);«, l3=0x1b}
0x16a5…16bf Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x16bf…16d0 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x16e1…1730 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x1730…1758 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x1758…1774 Line {l1=0x1a, l2=» UNTIL IORESULT=0;«, l3=0x1a}
0x1774…1788 Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x1788…17a8 Line {l1=0x1e, l2=» 1 : BEGIN«, l3=0x1e}
0x17a8…17d6 Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x17d6…1817 Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x1817…1846 Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x1846…188b Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x188b…18ce Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x18ce…1901 Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x1901…1927 Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x1927…1962 Line {l1=0x39, l2=» BETAOPL(O);CHANGED:=TRUE«, l3=0x39}
0x1962…1986 Line {l1=0x22, l2=» END«, l3=0x22}
0x1986…19a5 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x19a5…19ea Line {l1=0x43, l2=»2,3,4,5,6,7,8 :BEGIN BETAOPL(O);CHANGED:=TRUE END«, l3=0x43}
0x19ea…19ff Line {l1=0x13, l2=» END;«, l3=0x13}
0x19ff…1a1a Line {l1=0x19, l2=» PRBTAOPL(O,KODE)«, l3=0x19}
0x1a1a…1a2f Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x1a2f…1a5b Line {l1=0x2a, l2=» IF CHANGED THEN PUTREC(BZ.H,F,A);«, l3=0x2a}
0x1a5b…1a69 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x1a69…1a75 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1a75…1a82 Line {l1=0x0b, l2=» 3: BEGIN«, l3=0x0b}
0x1a82…1a92 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x1a92…1ae1 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('KUNDENR ');«, l3=0x4d}
0x1ae1…1b09 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(R)«, l3=0x26}
0x1b09…1b44 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (R>9999) AND (R<100000.0);«, l3=0x39}
0x1b44…1b64 Line {l1=0x1e, l2=» NR(1):=TRUNC(R/10000);«, l3=0x1e}
0x1b64…1b8c Line {l1=0x26, l2=» NR(2):=TRUNC(R-NR(1)*10000.0);«, l3=0x26}
0x1b8c…1ba7 Line {l1=0x19, l2=» GETREC(BZ.H,F,A);«, l3=0x19}
0x1ba7…1be1 Line {l1=0x38, l2=» IF IER=-6 THEN WRITELN('KUNDEN EKSISTERER IKKE')«, l3=0x38}
0x1be1…1bef Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1bef…1c0d Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x1c0d…1c1b Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1c1b…1c2a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1c2a…1c48 Line {l1=0x1c, l2=» PRBTAOPL(-1,KODE);«, l3=0x1c}
0x1c48…1c62 Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x1c62…1c7a Line {l1=0x16, l2=» WITH BETA DO«, l3=0x16}
0x1c7a…1c8b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1c8b…1ca2 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x1ca2…1cf1 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x1cf1…1d1e Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x1d1e…1d57 Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (O=1));«, l3=0x37}
0x1d57…1d73 Line {l1=0x1a, l2=» IF O=1 THEN«, l3=0x1a}
0x1d73…1d89 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1d89…1dad Line {l1=0x22, l2=» DELETE(BZ.H,F,A);«, l3=0x22}
0x1dad…1dd2 Line {l1=0x23, l2=» PRBTAOPL(-1,KODE);«, l3=0x23}
0x1dd2…1df9 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x1df9…1e0d Line {l1=0x12, l2=» END«, l3=0x12}
0x1e0d…1e1e Line {l1=0x0f, l2=» END«, l3=0x0f}
0x1e1e…1e30 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x1e30…1e43 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x1e43…1e61 Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x1e61…1ea7 Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x1ea7…1eb8 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x1eb8…1ec6 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x1ec6…1ed1 Line {l1=0x09, l2=» END«, l3=0x09}
0x1ed1…1ed9 Line {l1=0x06, l2=» END«, l3=0x06}
0x1ed9…1ee7 Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x1ee7…1eed Line {l1=0x04, l2=»END;«, l3=0x04}
0x1eed…1ef4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ef4…1f12 Line {l1=0x1c, l2=» FILNAVN2:='SYSREG:P2:1:I';«, l3=0x1c}
0x1f12…1f2f Line {l1=0x1b, l2=» REWRITE(SYSFIL,FILNAVN2);«, l3=0x1b}
0x1f2f…1f42 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1f42…1f52 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1f52…1f6a Line {l1=0x16, l2=» KODE2:=' ';«, l3=0x16}
0x1f6a…1f82 Line {l1=0x16, l2=» KODE1:=' ';«, l3=0x16}
0x1f82…1f97 Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x1f97…1fa0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1fa0…1fc5 Line {l1=0x23, l2=» KODE2(I):=SYSFIL^.KODE(2,I);«, l3=0x23}
0x1fc5…1fe9 Line {l1=0x22, l2=» KODE1(I):=SYSFIL^.KODE(1,I)«, l3=0x22}
0x1fe9…1ff1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1ff1…2003 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x2003…2022 Line {l1=0x1d, l2=» FILNAVN2:='BETAREG:P2:0:I';«, l3=0x1d}
0x2022…203a Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x203a…204a Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x204a…207e Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x207e…2096 Line {l1=0x16, l2=» IOPEN(BZ.H,F,SKRIV);«, l3=0x16}
0x2096…20bf Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x20bf…20c6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20c6…20d3 Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x20d3…20d9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x20d9…20ec Line {l1=0x11, l2=» ICLOSE(BZ.H,F);«, l3=0x11}
0x20ec…20fc Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x20fc…2117 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x2117…213d Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x213d…2143 Line {l1=0x04, l2=»END.«, l3=0x04}
0x2143…2160 00 00 05 42 45 47 49 4e 05 0b 20 20 4d 41 49 4e 54 41 49 4e 3b 0b 04 45 4e 44 3b 04 11 ┆ BEGIN MAINTAIN; END; ┆
0x2160…2180 20 20 49 43 4c 4f 53 45 28 42 5a 2e 48 2c 46 29 3b 11 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e ┆ ICLOSE(BZ.H,F); CLEARSCREEN┆
0x2180…21a0 3b 0e 18 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 18 04 45 4e 44 ┆; WRITELN('ICLOSE ',IER) END┆
0x21a0…21c0 2e 04 00 00 4c 4f 53 45 28 42 5a 2e 48 2c 46 29 3b 11 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e ┆. LOSE(BZ.H,F); CLEARSCREEN┆
0x21c0…21e0 3b 0e 18 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 18 04 45 4e 44 ┆; WRITELN('ICLOSE ',IER) END┆
0x21e0…2200 2e 04 00 00 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 18 04 45 4e 44 2e 04 00 00 20 28 4f ┆. N('ICLOSE ',IER) END. (O┆
0x2200…2220 3d 31 29 29 3b 37 1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 3d 31 20 54 48 45 ┆=1));7 IF O=1 THE┆
0x2220…2240 4e 1a 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 14 27 20 20 20 20 20 20 20 ┆N BEGIN ' ┆
0x2240…2260 20 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b ┆ DELETE(VZ.H,F,VARE.A);┆
0x2260…2280 27 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b ┆'# PRVAROPL(-1,K┆
0x2280…22a0 4f 44 45 29 3b 23 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e ┆ODE);#% IF IER<>┆
0x22a0…22c0 30 20 54 48 45 4e 20 45 52 52 4f 52 25 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆0 THEN ERROR% END┆
0x22c0…22e0 12 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 10 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆ END E┆
0x22e0…2300 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 20 20 20 20 ┆LSE BEGIN ┆
0x2300…2320 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 1c 4c 20 20 20 20 20 20 20 20 20 20 ┆ GOTOXY(1,23); L ┆
0x2320…2340 20 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 20 4d 5d 20 49 4b 4b 45 20 53 4c 45 54 54 45 53 20 ┆ WRITELN('VAREN MÅ IKKE SLETTES ┆
0x2340…2360 50 2e 47 52 2e 41 2e 20 50 4f 53 49 54 49 56 45 20 4c 41 47 45 52 2f 4f 52 44 52 45 2d 54 41 4c ┆P.GR.A. POSITIVE LAGER/ORDRE-TAL┆
0x2360…2380 27 29 4c 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 0f 20 20 20 20 20 20 20 20 20 20 20 ┆')L END ┆
0x2380…23a0 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 20 20 20 20 ┆ END ELSE ┆
0x23a0…23c0 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 54 4f 58 59 ┆ BEGIN GOTOXY┆
0x23c0…23e0 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 45 4c 4e 28 ┆(1,23); D WRITELN(┆
0x23e0…2400 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 44 20 4f 50 ┆'SLETNING MÅ IKKE UDFØRES MED OP┆
0x2400…2420 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 4e 44 0f 0c ┆GIVEN NØGLE')D END ┆
0x2420…2440 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 45 4e 44 06 ┆ END END END ┆
0x2440…2460 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 1c 20 20 46 49 ┆ UNTIL P=0 END; BEGIN FI┆
0x2460…2480 4c 4e 41 56 4e 32 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 ┆LNAVN2:='SYSREG:P2:1:I'; REWR┆
0x2480…24a0 49 54 45 28 53 59 53 46 49 4c 2c 46 49 4c 4e 41 56 4e 32 29 3b 1b 11 20 20 53 45 45 4b 28 53 59 ┆ITE(SYSFIL,FILNAVN2); SEEK(SY┆
0x24a0…24c0 53 46 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 ┆SFIL,1); GET(SYSFIL); KODE┆
0x24c0…24e0 32 3a 3d 27 20 20 20 20 20 20 20 20 20 20 27 3b 16 16 20 20 4b 4f 44 45 31 3a 3d 27 20 20 20 20 ┆2:=' '; KODE1:=' ┆
0x24e0…2500 20 20 20 20 20 20 27 3b 16 13 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 13 07 20 ┆ '; FOR I:=1 TO 10 DO ┆
0x2500…2520 20 42 45 47 49 4e 07 23 20 20 20 20 20 20 20 4b 4f 44 45 32 28 49 29 3a 3d 53 59 53 46 49 4c 5e ┆ BEGIN # KODE2(I):=SYSFIL^┆
0x2520…2540 2e 4b 4f 44 45 28 32 2c 49 29 3b 23 22 20 20 20 20 20 20 20 4b 4f 44 45 31 28 49 29 3a 3d 53 59 ┆.KODE(2,I);#" KODE1(I):=SY┆
0x2540…2560 53 46 49 4c 5e 2e 4b 4f 44 45 28 31 2c 49 29 22 06 20 20 45 4e 44 3b 06 10 20 20 43 4c 4f 53 45 ┆SFIL^.KODE(1,I)" END; CLOSE┆
0x2560…2580 28 53 59 53 46 49 4c 29 3b 10 20 20 20 46 49 4c 4e 41 56 4e 32 3a 3d 27 52 45 47 56 41 52 45 3a ┆(SYSFIL); FILNAVN2:='REGVARE:┆
0x2580…25a0 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 56 4e ┆P1:1137:I'; REWRITE(F,FILNAVN┆
0x25a0…25c0 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 48 45 ┆2); I:=IORESULT; 2IF I<>0 THE┆
0x25c0…25e0 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 53 54 ┆N BEGIN WRITELN('REWRITE ',I);ST┆
0x25e0…2600 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 27 49 ┆OP END;2 IOPEN(VZ.H,F,LÆS); 'I┆
0x2600…2620 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 45 52 ┆F IER<>0 THEN WRITE('IOPEN ',IER┆
0x2620…2640 29 20 45 4c 53 45 27 05 42 45 47 49 4e 05 0b 20 20 4d 41 49 4e 54 41 49 4e 3b 0b 04 45 4e 44 3b ┆) ELSE' BEGIN MAINTAIN; END;┆
0x2640…2660 04 11 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b 11 0e 20 20 43 4c 45 41 52 53 43 52 45 ┆ ICLOSE(VZ.H,F); CLEARSCRE┆
0x2660…2680 45 4e 3b 0e 18 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 18 04 45 ┆EN; WRITELN('ICLOSE ',IER) E┆
0x2680…26a0 4e 44 2e 04 00 00 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 5b 4e 44 52 49 4e 47 20 49 4b 4b ┆ND. WRITELN('ÆNDRING IKK┆
0x26a0…26c0 45 20 54 49 4c 4c 41 44 54 20 4d 45 44 20 4f 50 47 49 56 45 4e 20 41 44 47 41 4e 47 53 4b 4f 44 ┆E TILLADT MED OPGIVEN ADGANGSKOD┆
0x26c0…26e0 45 27 29 3b 4d 19 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 19 ┆E');M END; ┆
0x26e0…2700 43 32 2c 33 2c 36 2c 39 2c 31 31 2c 31 33 2c 31 34 2c 31 35 2c 31 36 2c 31 37 2c 31 38 2c 32 35 ┆C2,3,6,9,11,13,14,15,16,17,18,25┆
0x2700…2720 20 3a 42 45 47 49 4e 20 56 41 52 45 4f 50 4c 28 4f 29 3b 43 48 41 4e 47 45 44 3a 3d 54 52 55 45 ┆ :BEGIN VAREOPL(O);CHANGED:=TRUE┆
0x2720…2740 20 45 4e 44 43 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 13 19 20 20 20 20 20 ┆ ENDC END; ┆
0x2740…2760 20 20 20 20 50 52 56 41 52 4f 50 4c 28 4f 2c 4b 4f 44 45 29 19 13 20 20 20 20 20 20 20 20 20 55 ┆ PRVAROPL(O,KODE) U┆
0x2760…2780 4e 54 49 4c 20 4f 3d 30 3b 13 2f 20 20 20 20 20 20 20 20 20 49 46 20 43 48 41 4e 47 45 44 20 54 ┆NTIL O=0; / IF CHANGED T┆
0x2780…27a0 48 45 4e 20 50 55 54 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 2f 0c 20 20 20 20 ┆HEN PUTREC(VZ.H,F,VARE.A);/ ┆
0x27a0…27c0 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 3a 20 42 45 47 49 ┆ END END; 3: BEGI┆
0x27c0…27e0 4e 0b 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 4d 20 20 20 20 20 20 20 20 20 20 47 4f 54 ┆N REPEAT M GOT┆
0x27e0…2800 4f 58 59 28 31 2c 32 33 29 3b 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 52 20 20 20 20 20 20 20 ┆OXY(1,23);WRITELN('VARENR ┆
0x2800…2820 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 27 29 3b ┆ ');┆
0x2820…2840 4d 26 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 30 2c 32 33 29 3b 52 45 41 44 4c 4e ┆M& GOTOXY(30,23);READLN┆
0x2840…2860 3b 52 45 41 44 28 4f 29 26 35 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c ┆;READ(O)&5 UNTIL (IORESUL┆
0x2860…2880 54 3d 30 29 20 41 4e 44 20 28 4f 3e 39 39 39 29 20 41 4e 44 20 28 4f 3c 31 30 30 30 30 29 3b 35 ┆T=0) AND (O>999) AND (O<10000);5┆
0x2880…28a0 18 20 20 20 20 20 20 20 20 56 41 52 45 2e 56 41 52 45 4e 52 31 3a 3d 4f 3b 18 1e 20 20 20 20 20 ┆ VARE.VARENR1:=O; ┆
0x28a0…28c0 20 20 20 47 45 54 52 45 43 28 56 5a 2e 48 2c 46 2c 56 41 52 45 2e 41 29 3b 1e 37 20 20 20 20 20 ┆ GETREC(VZ.H,F,VARE.A); 7 ┆
0x28c0…28e0 20 20 20 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e ┆ IF IER=-6 THEN WRITELN('VAREN┆
0x28e0…2900 20 45 4b 53 49 53 54 45 52 45 52 20 49 4b 4b 45 27 29 37 0c 20 20 20 20 20 20 20 20 45 4c 53 45 ┆ EKSISTERER IKKE')7 ELSE┆
0x2900…2920 0c 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 0c ┆ IF IER<>0 THEN ERROR ┆
0x2920…2940 20 20 20 20 20 20 20 20 45 4c 53 45 0c 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 1c 20 20 20 ┆ ELSE BEGIN ┆
0x2940…2960 20 20 20 20 20 20 20 50 52 56 41 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 1c 18 20 20 20 20 20 ┆ PRVAROPL(-1,KODE); ┆
0x2960…2980 20 20 20 20 20 49 46 20 4b 4f 44 45 3d 32 20 54 48 45 4e 18 16 20 20 20 20 20 20 20 20 20 20 57 ┆ IF KODE=2 THEN W┆
0x2980…29a0 49 54 48 20 56 41 52 45 20 44 4f 16 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 4c 20 20 ┆ITH VARE DO BEGIN L ┆
0x29a0…29c0 20 20 20 20 20 20 20 20 20 20 49 46 20 28 46 59 53 4c 41 47 45 52 3d 30 29 20 41 4e 44 20 28 52 ┆ IF (FYSLAGER=0) AND (R┆
0x29c0…29e0 45 53 41 46 4c 41 47 3d 30 29 20 41 4e 44 20 28 49 4f 52 44 52 45 3d 30 29 20 41 4e 44 20 28 52 ┆ESAFLAG=0) AND (IORDRE=0) AND (R┆
0x29e0…2a00 41 49 4f 52 44 52 45 3d 30 29 4c 16 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 42 45 47 ┆AIORDRE=0)L THEN BEG┆
0x2a00…2a20 49 4e 16 15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 15 4d 20 20 20 20 20 ┆IN REPEAT M ┆
0x2a20…2a40 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 27 ┆ GOTOXY(1,23);WRITELN('┆
0x2a40…2a60 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 52 ┆SKAL SLETNING UDFØRES (1), 0 FOR┆
0x2a60…2a80 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 28 ┆ NEJ ');M+ GOTOXY(┆
0x2a80…2aa0 34 30 2c 32 33 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 4f 29 2b 37 20 20 20 20 20 20 20 20 20 ┆40,23);READLN;READ(O)+7 ┆
0x2aa0…2ac0 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 4e 44 20 28 28 4f ┆ UNTIL (IORESULT=0) AND ((O┆
0x2ac0…2ae0 3d 30 29 20 4f 52 20 28 4f 3d 31 29 29 3b 37 1a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆=0) OR (O=1));7 I┆
0x2ae0…2b00 46 20 4f 3d 31 20 54 48 45 4e 1a 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆F O=1 THEN BEGIN┆
0x2b00…2b20 14 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 56 5a 2e 48 2c 46 ┆ ' DELETE(VZ.H,F┆
0x2b20…2b40 2c 56 41 52 45 2e 41 29 3b 27 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 56 41 ┆,VARE.A);'# PRVA┆
0x2b40…2b60 52 4f 50 4c 28 2d 31 2c 4b 4f 44 45 29 3b 23 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROPL(-1,KODE);#% ┆
0x2b60…2b80 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 25 12 20 20 20 20 20 20 20 20 20 ┆ IF IER<>0 THEN ERROR% ┆
0x2b80…2ba0 20 20 20 20 20 20 45 4e 44 12 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 10 20 20 20 20 ┆ END END ┆
0x2ba0…2bc0 20 20 20 20 20 20 20 20 45 4c 53 45 10 11 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 11 ┆ ELSE BEGIN ┆
0x2bc0…2be0 1c 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 1c 4c 20 ┆ GOTOXY(1,23); L ┆
0x2be0…2c00 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 56 41 52 45 4e 20 4d 5d 20 49 4b 4b 45 ┆ WRITELN('VAREN MÅ IKKE┆
0x2c00…2c20 20 53 4c 45 54 54 45 53 20 50 2e 47 52 2e 41 2e 20 50 4f 53 49 54 49 56 45 20 4c 41 47 45 52 2f ┆ SLETTES P.GR.A. POSITIVE LAGER/┆
0x2c20…2c40 4f 52 44 52 45 2d 54 41 4c 27 29 4c 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 0f 20 20 ┆ORDRE-TAL')L END ┆
0x2c40…2c60 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 10 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 10 ┆ END ELSE ┆
0x2c60…2c80 11 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 11 1c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x2c80…2ca0 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 1c 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTOXY(1,23); D ┆
0x2ca0…2cc0 20 57 52 49 54 45 4c 4e 28 27 53 4c 45 54 4e 49 4e 47 20 4d 5d 20 49 4b 4b 45 20 55 44 46 5c 52 ┆ WRITELN('SLETNING MÅ IKKE UDFØR┆
0x2cc0…2ce0 45 53 20 4d 45 44 20 4f 50 47 49 56 45 4e 20 4e 5c 47 4c 45 27 29 44 0f 20 20 20 20 20 20 20 20 ┆ES MED OPGIVEN NØGLE')D ┆
0x2ce0…2d00 20 20 20 20 45 4e 44 0f 0c 20 20 20 20 20 20 20 20 20 45 4e 44 0c 09 20 20 20 20 20 20 45 4e 44 ┆ END END END┆
0x2d00…2d20 09 06 20 20 20 45 4e 44 06 0c 20 20 20 55 4e 54 49 4c 20 50 3d 30 0c 04 45 4e 44 3b 04 05 42 45 ┆ END UNTIL P=0 END; BE┆
0x2d20…2d40 47 49 4e 05 1c 20 20 46 49 4c 4e 41 56 4e 32 3a 3d 27 53 59 53 52 45 47 3a 50 32 3a 31 3a 49 27 ┆GIN FILNAVN2:='SYSREG:P2:1:I'┆
0x2d40…2d60 3b 1c 1b 20 20 52 45 57 52 49 54 45 28 53 59 53 46 49 4c 2c 46 49 4c 4e 41 56 4e 32 29 3b 1b 11 ┆; REWRITE(SYSFIL,FILNAVN2); ┆
0x2d60…2d80 20 20 53 45 45 4b 28 53 59 53 46 49 4c 2c 31 29 3b 11 0e 20 20 47 45 54 28 53 59 53 46 49 4c 29 ┆ SEEK(SYSFIL,1); GET(SYSFIL)┆
0x2d80…2da0 3b 0e 16 20 20 4b 4f 44 45 32 3a 3d 27 20 20 20 20 20 20 20 20 20 20 27 3b 16 16 20 20 4b 4f 44 ┆; KODE2:=' '; KOD┆
0x2da0…2dc0 45 31 3a 3d 27 20 20 20 20 20 20 20 20 20 20 27 3b 16 13 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆E1:=' '; FOR I:=1 TO┆
0x2dc0…2de0 20 31 30 20 44 4f 13 07 20 20 42 45 47 49 4e 07 23 20 20 20 20 20 20 20 4b 4f 44 45 32 28 49 29 ┆ 10 DO BEGIN # KODE2(I)┆
0x2de0…2e00 3a 3d 53 59 53 46 49 4c 5e 2e 4b 4f 44 45 28 32 2c 49 29 3b 23 22 20 20 20 20 20 20 20 4b 4f 44 ┆:=SYSFIL^.KODE(2,I);#" KOD┆
0x2e00…2e20 45 31 28 49 29 3a 3d 53 59 53 46 49 4c 5e 2e 4b 4f 44 45 28 31 2c 49 29 22 06 20 20 45 4e 44 3b ┆E1(I):=SYSFIL^.KODE(1,I)" END;┆
0x2e20…2e40 06 10 20 20 43 4c 4f 53 45 28 53 59 53 46 49 4c 29 3b 10 20 20 20 46 49 4c 4e 41 56 4e 32 3a 3d ┆ CLOSE(SYSFIL); FILNAVN2:=┆
0x2e40…2e60 27 52 45 47 56 41 52 45 3a 50 31 3a 31 31 33 37 3a 49 27 3b 20 16 20 20 52 45 57 52 49 54 45 28 ┆'REGVARE:P1:1137:I'; REWRITE(┆
0x2e60…2e80 46 2c 46 49 4c 4e 41 56 4e 32 29 3b 16 0e 20 20 49 3a 3d 49 4f 52 45 53 55 4c 54 3b 0e 32 49 46 ┆F,FILNAVN2); I:=IORESULT; 2IF┆
0x2e80…2ea0 20 49 3c 3e 30 20 54 48 45 4e 20 42 45 47 49 4e 20 57 52 49 54 45 4c 4e 28 27 52 45 57 52 49 54 ┆ I<>0 THEN BEGIN WRITELN('REWRIT┆
0x2ea0…2ec0 45 20 27 2c 49 29 3b 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 ┆E ',I);STOP END;2 IOPEN(VZ.H,F┆
0x2ec0…2ee0 2c 4c 5b 53 29 3b 14 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 ┆,LÆS); 'IF IER<>0 THEN WRITE('IO┆
0x2ee0…2f00 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 54 41 ┆PEN ',IER) ELSE' BEGIN MAINTA┆
0x2f00…2f20 49 4e 3b 0b 04 45 4e 44 3b 04 11 20 20 49 43 4c 4f 53 45 28 56 5a 2e 48 2c 46 29 3b 11 0e 20 20 ┆IN; END; ICLOSE(VZ.H,F); ┆
0x2f20…2f40 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 18 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 ┆CLEARSCREEN; WRITELN('ICLOSE ┆
0x2f40…2f60 27 2c 49 45 52 29 18 04 45 4e 44 2e 04 00 00 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 ┆',IER) END. WRITELN('ICLOSE┆
0x2f60…2f80 20 27 2c 49 45 52 29 18 04 45 4e 44 2e 04 00 00 11 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b ┆ ',IER) END. CLEARSCREEN;┆
0x2f80…2fa0 0e 18 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 18 04 45 4e 44 2e ┆ WRITELN('ICLOSE ',IER) END.┆
0x2fa0…2fc0 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 ┆ ┆
0x2fc0…2fe0 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 ┆ ┆
[…0xc…]