|
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: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »TOLDVEDL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »TOLDVEDL.K«
PROGRAM TOLDVEDL;
(*$IISFHEAD*)
TOLDPOPOST=RECORD
A:AR;
NR1,NR2:INTEGER;
TEKST:PACKED ARRAY (1..30) OF CHAR
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..1000) 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;
TPZ:ZONE;
FILNAVN1,FILNAVN2:STRING(20);
ÆNDRE,IER,I:INTEGER;
TOLDPO:TOLDPOPOST;
SYSFIL:SYSFILE;
QUQ:^INTEGER;
KODE1,KODE2:STRING(10);
R:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE PRVAROPL;
BEGIN
WITH TOLDPO DO
BEGIN
CLEARSCREEN;
GOTOXY(1,1);WRITE('1 TOLDPOSITIONSNR');GOTOXY(30,1);
WRITELN((NR1*1000.0+NR2)/1000.0:10:3);
GOTOXY(1,2);WRITE('2 TEKST');GOTOXY(30,2);WRITELN(TEKST)
END
END;
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE VAREOPL(O:INTEGER);
VAR STRENG:STRING;
I:INTEGER;
R:REAL;
BEGIN
WITH TOLDPO DO
CASE O OF
1: BEGIN REPEAT
GOTOXY(20,1);READLN;READ(R)
UNTIL (R>=1000.0) AND (R<10000.0) AND (IORESULT=0);
NR1:=TRUNC(R);
NR2:=TRUNC(1000.0*(R-NR1))
END;
2: BEGIN REPEAT
GOTOXY(30,2);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(TEKST,30,' ');
FOR I:=1 TO LENGTH(STRENG) DO TEKST(I):=STRENG(I) END;
END
END;
PROCEDURE ZERREC;
BEGIN
WITH TOLDPO DO
BEGIN
NR1:=0;
NR2:=0;
FILLCHAR(TEKST,30,' ');
END
END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I TOLDPOREG ',IER);
ICLOSE(TPZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
END;
PROCEDURE MAINTAIN;
VAR 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
CLEARSCREEN;
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: IF ÆNDRE=1 THEN BEGIN
ZERREC;
PRVAROPL;
FOR I:=1 TO 2 DO VAREOPL(I);
PRVAROPL;
REPEAT
GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');
GOTOXY(40,22);READLN;READ(O);
IF ((O>=1) AND (O<=2)) THEN VAREOPL(O);
PRVAROPL
UNTIL O=0;
REPEAT
INSERT(TPZ.H,F,TOLDPO.A);
IF IER=-7 THEN
BEGIN
GOTOXY(1,23);WRITELN('TOLDPONR FINDES I FORVEJEN ');
VAREOPL(1)
END
ELSE
IF IER<>0 THEN ERROR
UNTIL IER=0;
END;
2: BEGIN
REPEAT
GOTOXY(1,23);WRITELN('TOLDPOSITIONSNR ');
GOTOXY(30,23);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=1000.0) AND (R<10000.0);
TOLDPO.NR1:=TRUNC(R);
TOLDPO.NR2:=TRUNC(1000.0*(R-TOLDPO.NR1));
GETREC(TPZ.H,F,TOLDPO.A);
IF IER=-6 THEN WRITELN('TOLDPOSITIONSNR EKSISTERER IKKE')
ELSE
IF IER<>0 THEN ERROR
ELSE
BEGIN
PRVAROPL;
CHANGED:=FALSE;
REPEAT
REPEAT
GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');
GOTOXY(40,22);READLN;READ(O)
UNTIL (IORESULT=0) AND ((O=0) OR (ÆNDRE=1));
IF O=2 THEN BEGIN VAREOPL(2);CHANGED:=TRUE END;
PRVAROPL
UNTIL O=0;
IF CHANGED THEN PUTREC(TPZ.H,F,TOLDPO.A)
END
END;
3: IF ÆNDRE=1 THEN BEGIN
REPEAT
GOTOXY(1,23);WRITELN('TOLDPOSITIONSNR ');
GOTOXY(30,23);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=1000.0) AND (R<10000.0);
TOLDPO.NR1:=TRUNC(R);
TOLDPO.NR2:=TRUNC(1000.0*(R-TOLDPO.NR1));
GETREC(TPZ.H,F,TOLDPO.A);
IF IER=-6 THEN WRITELN('TOLDPOSITIONSNR EKSISTERER IKKE')
ELSE
IF IER<>0 THEN ERROR
ELSE
BEGIN
PRVAROPL;
IF KODE=2 THEN
WITH TOLDPO 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(TPZ.H,F,A);
PRVAROPL;
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
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);
CLEARSCREEN;
WRITELN('0 Kikke, 1 Ændre');
REPEAT
GOTOXY(18,1);
READLN;READ(ÆNDRE)
UNTIL (IORESULT=0) AND (ÆNDRE>=0) AND (ÆNDRE<=1);
FILNAVN2:='TOLDPORG:P2:0000:I';
IF ÆNDRE=1 THEN
REWRITE(F,FILNAVN2) ELSE RESET(F,FILNAVN2);
I:=IORESULT;
IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;
IF ÆNDRE=1 THEN
IOPEN(TPZ.H,F,SKRIV) ELSE IOPEN(TPZ.H,F,LÆS);
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
BEGIN
MAINTAIN;
END;
ICLOSE(TPZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM TOLDVEDL;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0035 Line {l1=0x11, l2=»TOLDPOPOST=RECORD«, l3=0x11}
0x0035…0043 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0043…0057 Line {l1=0x12, l2=» NR1,NR2:INTEGER;«, l3=0x12}
0x0057…007d Line {l1=0x24, l2=» TEKST:PACKED ARRAY (1..30) OF CHAR«, l3=0x24}
0x007d…0083 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0083…0091 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x0091…00a4 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x00a4…00c8 Line {l1=0x22, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x22}
0x00c8…00cf Line {l1=0x05, l2=» END;«, l3=0x05}
0x00cf…00df Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x00df…0100 Line {l1=0x1f, l2=»HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x1f}
0x0100…011b Line {l1=0x19, l2=»KGB:ARRAY (1..5) OF REAL;«, l3=0x19}
0x011b…0142 Line {l1=0x25, l2=»BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x25}
0x0142…0175 Line {l1=0x31, l2=»KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x31}
0x0175…017b Line {l1=0x04, l2=»END;«, l3=0x04}
0x017b…0195 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0195…01a4 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x01a4…01b6 Line {l1=0x10, l2=» TPZ:ZONE;«, l3=0x10}
0x01b6…01d5 Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x01d5…01f2 Line {l1=0x1b, l2=» ÆNDRE,IER,I:INTEGER;«, l3=0x1b}
0x01f2…020d Line {l1=0x19, l2=» TOLDPO:TOLDPOPOST;«, l3=0x19}
0x020d…0225 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x0225…023b Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x023b…025b Line {l1=0x1e, l2=» KODE1,KODE2:STRING(10);«, l3=0x1e}
0x025b…025e Line {l1=0x01, l2=» «, l3=0x01}
0x025e…026e Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x026e…0277 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0277…028a Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x028a…0297 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0297…02a4 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x02a4…02b4 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x02b4…02c4 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x02c4…02d3 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x02d3…02e1 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x02e1…02ef Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x02ef…02fd Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x02fd…030c Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x030c…031a Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x031a…0323 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0323…032c Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x032c…0341 Line {l1=0x13, l2=»PROCEDURE PRVAROPL;«, l3=0x13}
0x0341…0348 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0348…0358 Line {l1=0x0e, l2=»WITH TOLDPO DO«, l3=0x0e}
0x0358…035f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x035f…0371 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0371…03ab Line {l1=0x38, l2=» GOTOXY(1,1);WRITE('1 TOLDPOSITIONSNR');GOTOXY(30,1);«, l3=0x38}
0x03ab…03d7 Line {l1=0x2a, l2=» WRITELN((NR1*1000.0+NR2)/1000.0:10:3);«, l3=0x2a}
0x03d7…0415 Line {l1=0x3c, l2=» GOTOXY(1,2);WRITE('2 TEKST');GOTOXY(30,2);WRITELN(TEKST)«, l3=0x3c}
0x0415…041a Line {l1=0x03, l2=»END«, l3=0x03}
0x041a…0420 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0420…0431 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x0431…0441 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0441…0458 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0458…0477 Line {l1=0x1d, l2=»PROCEDURE VAREOPL(O:INTEGER);«, l3=0x1d}
0x0477…048b Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x048b…049b Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x049b…04a8 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x04a8…04af Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04af…04c1 Line {l1=0x10, l2=» WITH TOLDPO DO«, l3=0x10}
0x04c1…04ce Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x04ce…04e3 Line {l1=0x13, l2=» 1: BEGIN REPEAT«, l3=0x13}
0x04e3…0507 Line {l1=0x22, l2=» GOTOXY(20,1);READLN;READ(R)«, l3=0x22}
0x0507…0543 Line {l1=0x3a, l2=» UNTIL (R>=1000.0) AND (R<10000.0) AND (IORESULT=0);«, l3=0x3a}
0x0543…055a Line {l1=0x15, l2=» NR1:=TRUNC(R);«, l3=0x15}
0x055a…057d Line {l1=0x21, l2=» NR2:=TRUNC(1000.0*(R-NR1))«, l3=0x21}
0x057d…058a Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x058a…059f Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x059f…05c8 Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x05c8…05e9 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x05e9…0609 Line {l1=0x1e, l2=» FILLCHAR(TEKST,30,' ');«, l3=0x1e}
0x0609…0648 Line {l1=0x3d, l2=» FOR I:=1 TO LENGTH(STRENG) DO TEKST(I):=STRENG(I) END;«, l3=0x3d}
0x0648…0651 Line {l1=0x07, l2=» END«, l3=0x07}
0x0651…0657 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0657…066a Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x066a…0671 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0671…0683 Line {l1=0x10, l2=» WITH TOLDPO DO«, l3=0x10}
0x0683…068c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x068c…06a0 Line {l1=0x12, l2=» NR1:=0;«, l3=0x12}
0x06a0…06b4 Line {l1=0x12, l2=» NR2:=0;«, l3=0x12}
0x06b4…06d4 Line {l1=0x1e, l2=» FILLCHAR(TEKST,30,' ');«, l3=0x1e}
0x06d4…06db Line {l1=0x05, l2=» END«, l3=0x05}
0x06db…06e1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06e1…06f3 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x06f3…06fa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06fa…071f Line {l1=0x23, l2=» WRITELN('FEJL I TOLDPOREG ',IER);«, l3=0x23}
0x071f…0733 Line {l1=0x12, l2=» ICLOSE(TPZ.H,F);«, l3=0x12}
0x0733…074e Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x074e…0756 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x0756…075c Line {l1=0x04, l2=»END;«, l3=0x04}
0x075c…0771 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x0771…078a Line {l1=0x17, l2=»VAR I,O,P,KODE:INTEGER;«, l3=0x17}
0x078a…07a0 Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x07a0…07b4 Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x07b4…07cd Line {l1=0x17, l2=» STRENG1:STRING(10);«, l3=0x17}
0x07cd…07d4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07d4…07fc Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x07fc…080c Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x080c…0833 Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x0833…0859 Line {l1=0x24, l2=» GOTOXY(20,1);READLN;READ(STRENG1);«, l3=0x24}
0x0859…0865 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x0865…0887 Line {l1=0x20, l2=» IF STRENG1=KODE1 THEN KODE:=1;«, l3=0x20}
0x0887…08a9 Line {l1=0x20, l2=» IF STRENG1=KODE2 THEN KODE:=2;«, l3=0x20}
0x08a9…08b3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x08b3…08c3 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x08c3…08cd Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x08cd…091b Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x091b…0940 Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x0940…097d Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x097d…098a Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x098a…09a8 Line {l1=0x1c, l2=» 1: IF ÆNDRE=1 THEN BEGIN«, l3=0x1c}
0x09a8…09b9 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x09b9…09cc Line {l1=0x11, l2=» PRVAROPL;«, l3=0x11}
0x09cc…09f2 Line {l1=0x24, l2=» FOR I:=1 TO 2 DO VAREOPL(I);«, l3=0x24}
0x09f2…0a05 Line {l1=0x11, l2=» PRVAROPL;«, l3=0x11}
0x0a05…0a15 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0a15…0a64 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x0a64…0a8c Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x0a8c…0abf Line {l1=0x31, l2=» IF ((O>=1) AND (O<=2)) THEN VAREOPL(O);«, l3=0x31}
0x0abf…0ad2 Line {l1=0x11, l2=» PRVAROPL«, l3=0x11}
0x0ad2…0ae6 Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x0ae6…0af6 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0af6…0b19 Line {l1=0x21, l2=» INSERT(TPZ.H,F,TOLDPO.A);«, l3=0x21}
0x0b19…0b31 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x0b31…0b40 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b40…0b7f Line {l1=0x3d, l2=» GOTOXY(1,23);WRITELN('TOLDPONR FINDES I FORVEJEN ');«, l3=0x3d}
0x0b7f…0b94 Line {l1=0x13, l2=» VAREOPL(1)«, l3=0x13}
0x0b94…0ba1 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0ba1…0baf Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0baf…0bcd Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x0bcd…0be3 Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x0be3…0bf0 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0bf0…0bfe Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x0bfe…0c0f Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x0c0f…0c5e Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('TOLDPOSITIONSNR ');«, l3=0x4d}
0x0c5e…0c86 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(R)«, l3=0x26}
0x0c86…0cc4 Line {l1=0x3c, l2=» UNTIL (IORESULT=0) AND (R>=1000.0) AND (R<10000.0);«, l3=0x3c}
0x0cc4…0ce4 Line {l1=0x1e, l2=» TOLDPO.NR1:=TRUNC(R);«, l3=0x1e}
0x0ce4…0d18 Line {l1=0x32, l2=» TOLDPO.NR2:=TRUNC(1000.0*(R-TOLDPO.NR1));«, l3=0x32}
0x0d18…0d3c Line {l1=0x22, l2=» GETREC(TPZ.H,F,TOLDPO.A);«, l3=0x22}
0x0d3c…0d80 Line {l1=0x42, l2=» IF IER=-6 THEN WRITELN('TOLDPOSITIONSNR EKSISTERER IKKE')«, l3=0x42}
0x0d80…0d8f Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x0d8f…0dae Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR«, l3=0x1d}
0x0dae…0dbd Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x0dbd…0dcd Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x0dcd…0de1 Line {l1=0x12, l2=» PRVAROPL;«, l3=0x12}
0x0de1…0dfb Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x0dfb…0e0c Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x0e1d…0e6c Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x0e6c…0e94 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x0e94…0ecb Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (ÆNDRE=1));«, l3=0x35}
0x0ecb…0f05 Line {l1=0x38, l2=» IF O=2 THEN BEGIN VAREOPL(2);CHANGED:=TRUE END;«, l3=0x38}
0x0f05…0f17 Line {l1=0x10, l2=» PRVAROPL«, l3=0x10}
0x0f17…0f2b Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x0f2b…0f5d Line {l1=0x30, l2=» IF CHANGED THEN PUTREC(TPZ.H,F,TOLDPO.A)«, l3=0x30}
0x0f5d…0f69 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x0f69…0f75 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0f75…0f92 Line {l1=0x1b, l2=» 3: IF ÆNDRE=1 THEN BEGIN«, l3=0x1b}
0x0f92…0fa2 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0fa2…0ff1 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('TOLDPOSITIONSNR ');«, l3=0x4d}
0x0ff1…1019 Line {l1=0x26, l2=» GOTOXY(30,23);READLN;READ(R)«, l3=0x26}
0x1019…1056 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND (R>=1000.0) AND (R<10000.0);«, l3=0x3b}
0x1056…1075 Line {l1=0x1d, l2=» TOLDPO.NR1:=TRUNC(R);«, l3=0x1d}
0x1075…10a8 Line {l1=0x31, l2=» TOLDPO.NR2:=TRUNC(1000.0*(R-TOLDPO.NR1));«, l3=0x31}
0x10a8…10cb Line {l1=0x21, l2=» GETREC(TPZ.H,F,TOLDPO.A);«, l3=0x21}
0x10cb…110e Line {l1=0x41, l2=» IF IER=-6 THEN WRITELN('TOLDPOSITIONSNR EKSISTERER IKKE')«, l3=0x41}
0x110e…111c Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x111c…113a Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x113a…1148 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1148…1157 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1157…116c Line {l1=0x13, l2=» PRVAROPL;«, l3=0x13}
0x116c…1186 Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x1186…11a0 Line {l1=0x18, l2=» WITH TOLDPO DO«, l3=0x18}
0x11a0…11b1 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x11b1…11c8 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x11c8…1217 Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x1217…1244 Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x1244…127d Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (O=1));«, l3=0x37}
0x127d…1299 Line {l1=0x1a, l2=» IF O=1 THEN«, l3=0x1a}
0x1299…12af Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x12af…12d4 Line {l1=0x23, l2=» DELETE(TPZ.H,F,A);«, l3=0x23}
0x12d4…12f0 Line {l1=0x1a, l2=» PRVAROPL;«, l3=0x1a}
0x12f0…1317 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x1317…132b Line {l1=0x12, l2=» END«, l3=0x12}
0x132b…133c Line {l1=0x0f, l2=» END«, l3=0x0f}
0x133c…134e Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x134e…1361 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x1361…137f Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x137f…13c5 Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x13c5…13d6 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x13d6…13e4 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x13e4…13ef Line {l1=0x09, l2=» END«, l3=0x09}
0x13ef…13f7 Line {l1=0x06, l2=» END«, l3=0x06}
0x13f7…1405 Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x1405…140b Line {l1=0x04, l2=»END;«, l3=0x04}
0x140b…1412 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1412…1430 Line {l1=0x1c, l2=» FILNAVN1:='SYSREG:P2:1:I';«, l3=0x1c}
0x1430…144d Line {l1=0x1b, l2=» REWRITE(SYSFIL,FILNAVN1);«, l3=0x1b}
0x144d…1460 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1460…1470 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1470…1488 Line {l1=0x16, l2=» KODE1:=' ';«, l3=0x16}
0x1488…1499 Line {l1=0x0f, l2=» KODE2:=KODE1;«, l3=0x0f}
0x1499…14ae Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x14ae…14b7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x14b7…14d9 Line {l1=0x20, l2=» KODE1(I):=SYSFIL^.KODE(1,I);«, l3=0x20}
0x14d9…14fa Line {l1=0x1f, l2=» KODE2(I):=SYSFIL^.KODE(2,I)«, l3=0x1f}
0x14fa…1502 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1502…1514 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1514…1524 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1524…1544 Line {l1=0x1e, l2=» WRITELN('0 Kikke, 1 Ændre');«, l3=0x1e}
0x1544…154e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x154e…1561 Line {l1=0x11, l2=» GOTOXY(18,1);«, l3=0x11}
0x1561…1579 Line {l1=0x16, l2=» READLN;READ(ÆNDRE)«, l3=0x16}
0x1579…15ae Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND (ÆNDRE>=0) AND (ÆNDRE<=1);«, l3=0x33}
0x15ae…15d1 Line {l1=0x21, l2=» FILNAVN2:='TOLDPORG:P2:0000:I';«, l3=0x21}
0x15d1…15e4 Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x15e4…1614 Line {l1=0x2e, l2=» REWRITE(F,FILNAVN2) ELSE RESET(F,FILNAVN2);«, l3=0x2e}
0x1614…1624 Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x1624…1658 Line {l1=0x32, l2=»IF I<>0 THEN BEGIN WRITELN('REWRITE ',I);STOP END;«, l3=0x32}
0x1658…166b Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x166b…169e Line {l1=0x31, l2=» IOPEN(TPZ.H,F,SKRIV) ELSE IOPEN(TPZ.H,F,LÆS);«, l3=0x31}
0x169e…16c7 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x16c7…16ce Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x16ce…16db Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x16db…16e1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x16e1…16f5 Line {l1=0x12, l2=» ICLOSE(TPZ.H,F);«, l3=0x12}
0x16f5…1705 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1705…1720 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x1720…1746 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1746…174c Line {l1=0x04, l2=»END.«, l3=0x04}
0x174c…1760 00 00 52 45 45 4e 3b 0e 19 20 20 57 52 49 54 45 4c 4e 28 27 ┆ REEN; WRITELN('┆
0x1760…1780 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 3b 19 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 45 20 20 ┆ICLOSE ',IER); $ CHAIN('INTRE ┆
0x1780…17a0 20 2a 31 27 2c 27 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e 04 00 00 27 2c 51 ┆ *1','HOVSA:P1',QUQ)$ END. ',Q┆
0x17a0…17c0 55 51 29 24 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆UQ)$ END. ┆
0x17c0…17e0 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 ┆ ┆
[…0x4…]