|
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: 33248 (0x81e0)
Types: TextFile
Notes: Mikados_K
Names: »1EDITFIL.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »1EDITFIL.K«
PROGRAM REGREORG;
(*$IISFHEAD*)
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR= ARRAY (0..0) OF REAL;
REGLIZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..583) OF INTEGER
END;
REGLIPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
LØN :REAL;
ORDRENR,
PRODUKT1NR,
PRODUKT2NR,
OPERATIONSNR,
MEDARBEJDERNR,
DAT1,DAT2,
CENTIMER,
ENHEDER :INTEGER
END;
VAR F1,RGF:ISF;
RGZ,RGZ1:REGLIZONE;
FILNAVN1:STRING(20);
IER,I:INTEGER;
RGPOST:REGLIPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IINITIATE*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IINSERT*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(RGZ.H,RGF);
ICLOSE(RGZ1.H,RGF);
EXIT(REGREORG)
END;
PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . 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(FIL);
CLEARSCREEN
END;
BEGIN
CLEARSCREEN;
RGZ.H.FILENAME:='REGLIREG';
FILNAVN1:='REGLIREG:P2:0000:I';
REWRITE(RGF,FILNAVN1);
IOPEN(RGZ.H,RGF,LÆS);IF IER<>0 THEN OFEJL(RGZ.H.FILENAME);
RGZ1.H.FILENAME:='REGLIREK';
FILNAVN1:='REGLIREK:P1:0000:I';
REWRITE(F1,FILNAVN1);
IOPEN(RGZ1.H,F1,SKRIV);IF IER<>0 THEN OFEJL(RGZ1.H.FILENAME);
FOR I:=5 TO 10 DO RGPOST.A(I):=0;
NEXTREC(RGZ.H,RGF,RGPOST.A);
IF IER<>-1 THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0;
INITIATE(RGZ1.H,F1,2*RGZ.H.RECINUSE);
IF IER<>0 THEN ERROR(RGZ1.H.FILENAME);
I:=0;
WHILE IER=0 DO
WITH RGPOST DO
BEGIN
INSERT(RGZ1.H,F1,A);
IF IER<>0 THEN ERROR(RGZ1.H.FILENAME);
WRITELN('INS ',ORDRENR:6,PRODUKT1NR*10000.0+PRODUKT2NR:10:-2,OPERATIONSNR:6,
MEDARBEJDERNR:6,DAT1*10000.0+DAT2:10:-2);
NEXTREC(RGZ.H,RGF,A);
I:=I+1
END;
IF IER<>-2 THEN ERROR(RGZ.H.FILENAME);
WRITELN('INDPOSTER, UDPOSTER',RGZ.H.RECINUSE:5,I:5);
ICLOSE(RGZ.H,RGF);
ICLOSE(RGZ1.H,F1);
WRITELN('ICLOSE ',IER);
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM REGREORG;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0049 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0049…0065 Line {l1=0x1a, l2=»RAR= ARRAY (0..0) OF REAL;«, l3=0x1a}
0x0065…0077 Line {l1=0x10, l2=»REGLIZONE=RECORD«, l3=0x10}
0x0077…008b Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x008b…00af Line {l1=0x22, l2=» T:ARRAY(1..583) OF INTEGER«, l3=0x22}
0x00af…00b5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00b5…00c7 Line {l1=0x10, l2=»REGLIPOST=RECORD«, l3=0x10}
0x00c7…00d7 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x00d7…00e4 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x00e4…00f4 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x00f4…0110 Line {l1=0x1a, l2=» LØN :REAL;«, l3=0x1a}
0x0110…0120 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x0120…0133 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x0133…0146 Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x0146…015b Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x015b…0171 Line {l1=0x14, l2=» MEDARBEJDERNR,«, l3=0x14}
0x0171…0183 Line {l1=0x10, l2=» DAT1,DAT2,«, l3=0x10}
0x0183…0194 Line {l1=0x0f, l2=» CENTIMER,«, l3=0x0f}
0x0194…01b2 Line {l1=0x1c, l2=» ENHEDER :INTEGER«, l3=0x1c}
0x01b2…01b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01b8…01cc Line {l1=0x12, l2=»VAR F1,RGF:ISF;«, l3=0x12}
0x01cc…01e8 Line {l1=0x1a, l2=» RGZ,RGZ1:REGLIZONE;«, l3=0x1a}
0x01e8…0205 Line {l1=0x1b, l2=» FILNAVN1:STRING(20);«, l3=0x1b}
0x0205…021c Line {l1=0x15, l2=» IER,I:INTEGER;«, l3=0x15}
0x021c…0236 Line {l1=0x18, l2=» RGPOST:REGLIPOST;«, l3=0x18}
0x0236…023f Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x023f…0252 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0252…0262 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x0262…026f Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x026f…027c Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x027c…028c Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x028c…029c Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x029c…02ab Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x02ab…02b9 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x02b9…02c7 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x02c7…02d6 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x02d6…02df Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x02df…02e8 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x02e8…030b Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x030b…0312 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0312…0347 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0347…035d Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x035d…0374 Line {l1=0x15, l2=» ICLOSE(RGZ1.H,RGF);«, l3=0x15}
0x0374…0386 Line {l1=0x10, l2=» EXIT(REGREORG)«, l3=0x10}
0x0386…038c Line {l1=0x04, l2=»END;«, l3=0x04}
0x038c…03af Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x03af…03bf Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x03bf…03c6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03c6…03d7 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x03d7…0426 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x0426…0456 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0456…048f Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x048f…04ab Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x04ab…04ba Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x04ba…04c0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04c0…04c7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04c7…04d7 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x04d7…04f6 Line {l1=0x1d, l2=» RGZ.H.FILENAME:='REGLIREG';«, l3=0x1d}
0x04f6…0519 Line {l1=0x21, l2=» FILNAVN1:='REGLIREG:P2:0000:I';«, l3=0x21}
0x0519…0533 Line {l1=0x18, l2=» REWRITE(RGF,FILNAVN1);«, l3=0x18}
0x0533…0571 Line {l1=0x3c, l2=» IOPEN(RGZ.H,RGF,LÆS);IF IER<>0 THEN OFEJL(RGZ.H.FILENAME);«, l3=0x3c}
0x0571…0591 Line {l1=0x1e, l2=» RGZ1.H.FILENAME:='REGLIREK';«, l3=0x1e}
0x0591…05b4 Line {l1=0x21, l2=» FILNAVN1:='REGLIREK:P1:0000:I';«, l3=0x21}
0x05b4…05cd Line {l1=0x17, l2=» REWRITE(F1,FILNAVN1);«, l3=0x17}
0x05cd…060e Line {l1=0x3f, l2=» IOPEN(RGZ1.H,F1,SKRIV);IF IER<>0 THEN OFEJL(RGZ1.H.FILENAME);«, l3=0x3f}
0x060e…0633 Line {l1=0x23, l2=» FOR I:=5 TO 10 DO RGPOST.A(I):=0;«, l3=0x23}
0x0633…0653 Line {l1=0x1e, l2=» NEXTREC(RGZ.H,RGF,RGPOST.A);«, l3=0x1e}
0x0653…0689 Line {l1=0x34, l2=» IF IER<>-1 THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0;«, l3=0x34}
0x0689…06b2 Line {l1=0x27, l2=» INITIATE(RGZ1.H,F1,2*RGZ.H.RECINUSE);«, l3=0x27}
0x06b2…06dc Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(RGZ1.H.FILENAME);«, l3=0x28}
0x06dc…06e5 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x06e5…06f7 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x06f7…0709 Line {l1=0x10, l2=» WITH RGPOST DO«, l3=0x10}
0x0709…0712 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0712…072c Line {l1=0x18, l2=» INSERT(RGZ1.H,F1,A);«, l3=0x18}
0x072c…0758 Line {l1=0x2a, l2=» IF IER<>0 THEN ERROR(RGZ1.H.FILENAME);«, l3=0x2a}
0x0758…07a6 Line {l1=0x4c, l2=»WRITELN('INS ',ORDRENR:6,PRODUKT1NR*10000.0+PRODUKT2NR:10:-2,OPERATIONSNR:6,«, l3=0x4c}
0x07a6…07e0 Line {l1=0x38, l2=» MEDARBEJDERNR:6,DAT1*10000.0+DAT2:10:-2);«, l3=0x38}
0x07e0…07fb Line {l1=0x19, l2=» NEXTREC(RGZ.H,RGF,A);«, l3=0x19}
0x07fb…0807 Line {l1=0x0a, l2=» I:=I+1«, l3=0x0a}
0x0807…080f Line {l1=0x06, l2=» END;«, l3=0x06}
0x080f…0839 Line {l1=0x28, l2=» IF IER<>-2 THEN ERROR(RGZ.H.FILENAME);«, l3=0x28}
0x0839…0871 Line {l1=0x36, l2=» WRITELN('INDPOSTER, UDPOSTER',RGZ.H.RECINUSE:5,I:5);«, l3=0x36}
0x0871…0887 Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x0887…089d Line {l1=0x14, l2=» ICLOSE(RGZ1.H,F1);«, l3=0x14}
0x089d…08b8 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x08b8…08be Line {l1=0x04, l2=»END.«, l3=0x04}
0x08be…08c0 00 00 ┆ ┆
0x08c0…08e0 3a 3d 56 41 4c 49 44 45 53 43 3b 21 32 20 20 20 20 20 20 20 20 46 45 4c 54 5e 2e 56 41 4c 49 44 ┆:=VALIDESC;!2 FELT^.VALID┆
0x08e0…0900 49 54 45 54 53 54 59 50 45 3a 3d 46 46 49 4c 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 32 ┆ITETSTYPE:=FFIL^.VALIDITETSTYPE2┆
0x0900…0920 0a 20 20 20 20 20 20 45 4e 44 3b 0a 19 20 20 20 20 20 20 46 45 4c 54 5e 2e 4e 5b 53 54 45 56 41 ┆ END; FELT^.NÆSTEVA┆
0x0920…0940 4c 3a 3d 4e 49 4c 19 08 20 20 20 20 45 4e 44 3b 08 0d 20 20 20 20 47 45 54 28 46 46 49 4c 29 0d ┆L:=NIL END; GET(FFIL) ┆
0x0940…0960 06 20 20 45 4e 44 3b 06 0e 20 20 43 4c 4f 53 45 28 46 46 49 4c 29 3b 0e 10 20 20 41 4e 54 41 4c ┆ END; CLOSE(FFIL); ANTAL┆
0x0960…0980 46 45 4c 54 45 52 3a 3d 49 10 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 1f 50 52 4f 43 45 44 55 ┆FELTER:=I END; (*$P*) PROCEDU┆
0x0980…09a0 52 45 20 4c 5b 53 46 45 4c 54 28 56 41 52 20 46 3a 4e 46 45 4c 54 29 3b 1f 17 56 41 52 20 49 2c ┆RE LÆSFELT(VAR F:NFELT); VAR I,┆
0x09a0…09c0 54 41 4c 2c 54 41 4c 31 3a 49 4e 54 45 47 45 52 3b 17 0e 20 20 20 20 56 41 4c 3a 4e 46 45 4c 54 ┆TAL,TAL1:INTEGER; VAL:NFELT┆
0x09c0…09e0 3b 0e 13 20 20 20 20 42 55 4d 4d 45 44 3a 42 4f 4f 4c 45 41 4e 3b 13 01 20 01 06 28 2a 24 50 2a ┆; BUMMED:BOOLEAN; (*$P*┆
0x09e0…0a00 29 06 13 50 52 4f 43 45 44 55 52 45 20 4c 5b 53 4c 49 4e 49 45 3b 13 0f 56 41 52 20 4f 4b 3a 42 ┆) PROCEDURE LÆSLINIE; VAR OK:B┆
0x0a00…0a20 4f 4f 4c 45 41 4e 3b 0f 1b 20 20 20 20 44 45 43 53 2c 49 2c 46 4f 52 54 45 47 4e 3a 49 4e 54 45 ┆OOLEAN; DECS,I,FORTEGN:INTE┆
0x0a20…0a40 47 45 52 3b 1b 0c 20 20 20 20 44 4d 3a 52 45 41 4c 3b 0c 01 20 01 05 42 45 47 49 4e 05 08 20 20 ┆GER; DM:REAL; BEGIN ┆
0x0a40…0a60 52 45 50 45 41 54 08 0e 20 20 20 20 4f 4b 3a 3d 46 41 4c 53 45 3b 0e 10 20 20 20 20 52 45 53 55 ┆REPEAT OK:=FALSE; RESU┆
0x0a60…0a80 4c 54 3a 3d 30 2e 30 3b 10 0b 20 20 20 20 54 41 4c 3a 3d 30 3b 0b 0c 20 20 20 20 54 41 4c 31 3a ┆LT:=0.0; TAL:=0; TAL1:┆
0x0a80…0aa0 3d 30 3b 0c 24 20 20 20 20 47 4f 54 4f 58 59 28 46 5e 2e 49 4e 44 50 4f 53 2e 58 2c 46 5e 2e 49 ┆=0; $ GOTOXY(F^.INDPOS.X,F^.I┆
0x0aa0…0ac0 4e 44 50 4f 53 2e 59 29 3b 24 38 20 20 20 20 57 52 49 54 45 4c 4e 28 46 5e 2e 4c 45 44 45 54 45 ┆NDPOS.Y);$8 WRITELN(F^.LEDETE┆
0x0ac0…0ae0 4b 53 54 2c 27 20 27 3a 46 5e 2e 4c 5b 4e 47 44 45 2b 32 2c 46 5e 2e 46 5c 4c 47 45 54 45 4b 53 ┆KST,' ':F^.LÆNGDE+2,F^.FØLGETEKS┆
0x0ae0…0b00 54 29 3b 38 3b 20 20 20 20 47 4f 54 4f 58 59 28 46 5e 2e 49 4e 44 50 4f 53 2e 58 2b 4c 45 4e 47 ┆T);8; GOTOXY(F^.INDPOS.X+LENG┆
0x0b00…0b20 54 48 28 46 5e 2e 4c 45 44 45 54 45 4b 53 54 29 2b 31 2c 46 5e 2e 49 4e 44 50 4f 53 2e 59 29 3b ┆TH(F^.LEDETEKST)+1,F^.INDPOS.Y);┆
0x0b20…0b40 3b 0e 20 20 20 20 4c 49 4e 45 3a 3d 27 30 27 3b 0e 19 20 20 20 20 45 44 49 54 28 4c 49 4e 45 3a ┆; LINE:='0'; EDIT(LINE:┆
0x0b40…0b60 46 5e 2e 4c 5b 4e 47 44 45 29 3b 19 41 20 20 20 20 57 48 49 4c 45 20 4c 49 4e 45 28 4c 45 4e 47 ┆F^.LÆNGDE); A WHILE LINE(LENG┆
0x0b60…0b80 54 48 28 4c 49 4e 45 29 29 3d 27 20 27 20 44 4f 20 4c 49 4e 45 28 30 29 3a 3d 43 48 52 28 4f 52 ┆TH(LINE))=' ' DO LINE(0):=CHR(OR┆
0x0b80…0ba0 44 28 4c 49 4e 45 28 30 29 29 2d 31 29 3b 41 17 20 20 20 20 43 41 53 45 20 46 5e 2e 46 45 4c 54 ┆D(LINE(0))-1);A CASE F^.FELT┆
0x0ba0…0bc0 54 59 50 45 20 4f 46 17 06 54 45 4b 53 54 3a 06 23 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 4c ┆TYPE OF TEKST: # IF LENGTH(L┆
0x0bc0…0be0 49 4e 45 29 3c 3d 46 5e 2e 4c 5b 4e 47 44 45 20 54 48 45 4e 23 09 20 20 20 20 42 45 47 49 4e 09 ┆INE)<=F^.LÆNGDE THEN# BEGIN ┆
0x0be0…0c00 0f 20 20 20 20 20 20 4f 4b 3a 3d 54 52 55 45 3b 0f 25 20 20 20 20 20 20 57 48 49 4c 45 20 4c 45 ┆ OK:=TRUE; % WHILE LE┆
0x0c00…0c20 4e 47 54 48 28 4c 49 4e 45 29 3c 46 5e 2e 4c 5b 4e 47 44 45 20 44 4f 25 1b 20 20 20 20 20 20 20 ┆NGTH(LINE)<F^.LÆNGDE DO% ┆
0x0c20…0c40 20 49 46 20 46 5e 2e 46 4f 52 41 4e 30 3d 30 20 54 48 45 4e 1b 20 20 20 20 20 20 20 20 20 20 20 ┆ IF F^.FORAN0=0 THEN ┆
0x0c40…0c60 4c 49 4e 45 3a 3d 43 4f 4e 43 41 54 28 4c 49 4e 45 2c 27 20 27 29 20 0c 20 20 20 20 20 20 20 20 ┆LINE:=CONCAT(LINE,' ') ┆
0x0c60…0c80 45 4c 53 45 0c 20 20 20 20 20 20 20 20 20 20 20 4c 49 4e 45 3a 3d 43 4f 4e 43 41 54 28 27 20 27 ┆ELSE LINE:=CONCAT(' '┆
0x0c80…0ca0 2c 4c 49 4e 45 29 20 08 20 20 20 20 45 4e 44 3b 08 0f 48 45 4c 54 41 4c 2c 44 4f 42 42 54 41 4c ┆,LINE) END; HELTAL,DOBBTAL┆
0x0ca0…0cc0 3a 0f 1a 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3e 30 20 54 48 45 4e 1a 09 20 ┆: IF LENGTH(LINE)>0 THEN ┆
0x0cc0…0ce0 20 20 20 42 45 47 49 4e 09 0b 20 20 20 20 20 20 49 3a 3d 30 3b 0b 11 20 20 20 20 20 20 46 4f 52 ┆ BEGIN I:=0; FOR┆
0x0ce0…0d00 54 45 47 4e 3a 3d 31 3b 11 19 20 20 20 20 20 20 49 46 20 4c 49 4e 45 28 31 29 3d 27 2d 27 20 54 ┆TEGN:=1; IF LINE(1)='-' T┆
0x0d00…0d20 48 45 4e 19 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 14 20 20 20 20 20 20 20 20 46 4f 52 54 45 47 ┆HEN BEGIN FORTEG┆
0x0d20…0d40 4e 3a 3d 2d 31 3b 14 0c 20 20 20 20 20 20 20 20 49 3a 3d 31 0c 0a 20 20 20 20 20 20 45 4e 44 3b ┆N:=-1; I:=1 END;┆
0x0d40…0d60 0a 1d 20 20 20 20 20 20 57 48 49 4c 45 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3e 49 20 44 4f 1d ┆ WHILE LENGTH(LINE)>I DO ┆
0x0d60…0d80 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 11 20 20 20 20 20 20 20 20 4f 4b 3a 3d 54 52 55 45 3b 11 ┆ BEGIN OK:=TRUE; ┆
0x0d80…0da0 0f 20 20 20 20 20 20 20 20 49 3a 3d 49 2b 31 3b 0f 2d 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 ┆ I:=I+1; - IF NOT┆
0x0da0…0dc0 20 28 4c 49 4e 45 28 49 29 20 49 4e 20 28 2e 27 30 27 2e 2e 27 39 27 2e 29 29 20 54 48 45 4e 2d ┆ (LINE(I) IN (.'0'..'9'.)) THEN-┆
0x0dc0…0de0 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 14 20 20 20 20 20 20 20 20 20 20 4f 4b 3a 3d 46 41 ┆ BEGIN OK:=FA┆
0x0de0…0e00 4c 53 45 3b 14 19 20 20 20 20 20 20 20 20 20 20 49 3a 3d 4c 45 4e 47 54 48 28 4c 49 4e 45 29 19 ┆LSE; I:=LENGTH(LINE) ┆
0x0e00…0e20 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 29 20 20 20 20 20 20 20 20 52 45 53 55 4c 54 3a 3d 31 ┆ END; ) RESULT:=1┆
0x0e20…0e40 30 2a 52 45 53 55 4c 54 2b 4f 52 44 28 4c 49 4e 45 28 49 29 29 2d 34 38 29 0a 20 20 20 20 20 20 ┆0*RESULT+ORD(LINE(I))-48) ┆
0x0e40…0e60 45 4e 44 3b 0a 1d 20 20 20 20 20 20 52 45 53 55 4c 54 3a 3d 52 45 53 55 4c 54 2a 46 4f 52 54 45 ┆END; RESULT:=RESULT*FORTE┆
0x0e60…0e80 47 4e 3b 1d 10 20 20 20 20 20 20 49 46 20 4f 4b 20 54 48 45 4e 10 19 20 20 20 20 20 20 43 41 53 ┆GN; IF OK THEN CAS┆
0x0e80…0ea0 45 20 46 5e 2e 46 45 4c 54 54 59 50 45 20 4f 46 19 4a 20 20 20 20 20 20 48 45 4c 54 41 4c 3a 49 ┆E F^.FELTTYPE OF J HELTAL:I┆
0x0ea0…0ec0 46 20 41 42 53 28 52 45 53 55 4c 54 29 3c 3d 33 32 37 36 37 20 54 48 45 4e 20 54 41 4c 3a 3d 54 ┆F ABS(RESULT)<=32767 THEN TAL:=T┆
0x0ec0…0ee0 52 55 4e 43 28 52 45 53 55 4c 54 29 20 45 4c 53 45 20 4f 4b 3a 3d 46 41 4c 53 45 3b 4a 2e 20 20 ┆RUNC(RESULT) ELSE OK:=FALSE;J. ┆
0x0ee0…0f00 20 20 20 20 44 4f 42 42 54 41 4c 3a 49 46 20 41 42 53 28 52 45 53 55 4c 54 29 3c 3d 33 32 37 36 ┆ DOBBTAL:IF ABS(RESULT)<=3276┆
0x0f00…0f20 37 39 39 39 39 2e 30 20 54 48 45 4e 2e 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 ┆79999.0 THEN. BEGI┆
0x0f20…0f40 4e 13 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 41 4c 3a 3d 54 52 55 4e 43 28 52 45 ┆N + TAL:=TRUNC(RE┆
0x0f40…0f60 53 55 4c 54 2f 31 30 30 30 30 2e 30 29 3b 2b 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SULT/10000.0);+/ ┆
0x0f60…0f80 54 41 4c 31 3a 3d 54 52 55 4e 43 28 52 45 53 55 4c 54 2d 31 30 30 30 30 2e 30 2a 54 41 4c 29 2f ┆TAL1:=TRUNC(RESULT-10000.0*TAL)/┆
0x0f80…0fa0 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 11 1c 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END ┆
0x0fa0…0fc0 20 20 45 4c 53 45 20 4f 4b 3a 3d 46 41 4c 53 45 1c 09 20 20 20 20 20 20 45 4e 44 09 16 20 20 20 ┆ ELSE OK:=FALSE END ┆
0x0fc0…0fe0 20 45 4e 44 20 45 4c 53 45 20 4f 4b 3a 3d 54 52 55 45 3b 16 05 52 45 45 4c 3a 05 1a 20 20 20 20 ┆ END ELSE OK:=TRUE; REEL: ┆
0x0fe0…1000 49 46 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3e 30 20 54 48 45 4e 1a 09 20 20 20 20 42 45 47 49 ┆IF LENGTH(LINE)>0 THEN BEGI┆
0x1000…1020 4e 09 0b 20 20 20 20 20 20 49 3a 3d 30 3b 0b 11 20 20 20 20 20 20 46 4f 52 54 45 47 4e 3a 3d 31 ┆N I:=0; FORTEGN:=1┆
0x1020…1040 3b 11 0f 20 20 20 20 20 20 44 45 43 53 3a 3d 2d 31 3b 0f 19 20 20 20 20 20 20 49 46 20 4c 49 4e ┆; DECS:=-1; IF LIN┆
0x1040…1060 45 28 31 29 3d 27 2d 27 20 54 48 45 4e 19 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 14 20 20 20 20 ┆E(1)='-' THEN BEGIN ┆
0x1060…1080 20 20 20 20 46 4f 52 54 45 47 4e 3a 3d 2d 31 3b 14 0c 20 20 20 20 20 20 20 20 49 3a 3d 31 0c 0a ┆ FORTEGN:=-1; I:=1 ┆
0x1080…10a0 20 20 20 20 20 20 45 4e 44 3b 0a 2c 20 20 20 20 20 20 57 48 49 4c 45 20 28 4c 45 4e 47 54 48 28 ┆ END; , WHILE (LENGTH(┆
0x10a0…10c0 4c 49 4e 45 29 3e 49 29 20 41 4e 44 20 28 44 45 43 53 3c 30 29 20 44 4f 2c 0b 20 20 20 20 20 20 ┆LINE)>I) AND (DECS<0) DO, ┆
0x10c0…10e0 42 45 47 49 4e 0b 11 20 20 20 20 20 20 20 20 4f 4b 3a 3d 54 52 55 45 3b 11 0f 20 20 20 20 20 20 ┆BEGIN OK:=TRUE; ┆
0x10e0…1100 20 20 49 3a 3d 49 2b 31 3b 0f 27 20 20 20 20 20 20 20 20 49 46 20 4c 49 4e 45 28 49 29 20 49 4e ┆ I:=I+1; ' IF LINE(I) IN┆
0x1100…1120 20 28 2e 27 30 27 2e 2e 27 39 27 2e 29 20 54 48 45 4e 27 2b 20 20 20 20 20 20 20 20 20 20 52 45 ┆ (.'0'..'9'.) THEN'+ RE┆
0x1120…1140 53 55 4c 54 3a 3d 31 30 2a 52 45 53 55 4c 54 2b 4f 52 44 28 4c 49 4e 45 28 49 29 29 2d 34 38 2b ┆SULT:=10*RESULT+ORD(LINE(I))-48+┆
0x1140…1160 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 2e 20 20 20 20 20 20 20 20 49 46 20 28 4c 49 4e 45 28 ┆ ELSE . IF (LINE(┆
0x1160…1180 49 29 3d 27 2e 27 29 20 4f 52 20 28 4c 49 4e 45 28 49 29 3d 27 2c 27 29 20 54 48 45 4e 2e 11 20 ┆I)='.') OR (LINE(I)=',') THEN. ┆
0x1180…11a0 20 20 20 20 20 20 20 20 20 44 45 43 53 3a 3d 30 11 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 0d ┆ DECS:=0 ELSE ┆
0x11a0…11c0 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 14 20 20 20 20 20 20 20 20 20 20 4f 4b 3a 3d 46 41 4c ┆ BEGIN OK:=FAL┆
0x11c0…11e0 53 45 3b 14 19 20 20 20 20 20 20 20 20 20 20 49 3a 3d 4c 45 4e 47 54 48 28 4c 49 4e 45 29 19 0b ┆SE; I:=LENGTH(LINE) ┆
0x11e0…1200 20 20 20 20 20 20 20 20 45 4e 44 0b 0a 20 20 20 20 20 20 45 4e 44 3b 0a 0e 20 20 20 20 20 20 44 ┆ END END; D┆
0x1200…1220 4d 3a 3d 31 2e 30 3b 0e 1d 20 20 20 20 20 20 57 48 49 4c 45 20 4c 45 4e 47 54 48 28 4c 49 4e 45 ┆M:=1.0; WHILE LENGTH(LINE┆
0x1220…1240 29 3e 49 20 44 4f 1d 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 0f 20 20 20 20 20 20 20 20 49 3a 3d ┆)>I DO BEGIN I:=┆
0x1240…1260 49 2b 31 3b 0f 14 20 20 20 20 20 20 20 20 44 4d 3a 3d 44 4d 2f 31 30 2e 30 3b 14 27 20 20 20 20 ┆I+1; DM:=DM/10.0; ' ┆
0x1260…1280 20 20 20 20 49 46 20 4c 49 4e 45 28 49 29 20 49 4e 20 28 2e 27 30 27 2e 2e 27 39 27 2e 29 20 54 ┆ IF LINE(I) IN (.'0'..'9'.) T┆
0x1280…12a0 48 45 4e 27 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 2e 20 20 20 20 20 20 20 20 20 20 52 45 ┆HEN' BEGIN . RE┆
0x12a0…12c0 53 55 4c 54 3a 3d 52 45 53 55 4c 54 2b 44 4d 2a 28 4f 52 44 28 4c 49 4e 45 28 49 29 29 2d 34 38 ┆SULT:=RESULT+DM*(ORD(LINE(I))-48┆
0x12c0…12e0 29 3b 2e 16 20 20 20 20 20 20 20 20 20 20 44 45 43 53 3a 3d 44 45 43 53 2b 31 16 0b 20 20 20 20 ┆);. DECS:=DECS+1 ┆
0x12e0…1300 20 20 20 20 45 4e 44 0b 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 0d 20 20 20 20 20 20 20 20 42 ┆ END ELSE B┆
0x1300…1320 45 47 49 4e 0d 14 20 20 20 20 20 20 20 20 20 20 4f 4b 3a 3d 46 41 4c 53 45 3b 14 19 20 20 20 20 ┆EGIN OK:=FALSE; ┆
0x1320…1340 20 20 20 20 20 20 49 3a 3d 4c 45 4e 47 54 48 28 4c 49 4e 45 29 19 0b 20 20 20 20 20 20 20 20 45 ┆ I:=LENGTH(LINE) E┆
0x1340…1360 4e 44 0b 0a 20 20 20 20 20 20 45 4e 44 3b 0a 1d 20 20 20 20 20 20 52 45 53 55 4c 54 3a 3d 46 4f ┆ND END; RESULT:=FO┆
0x1360…1380 52 54 45 47 4e 2a 52 45 53 55 4c 54 3b 1d 23 20 20 20 20 20 20 49 46 20 44 45 43 53 3e 46 5e 2e ┆RTEGN*RESULT; # IF DECS>F^.┆
0x1380…13a0 44 45 43 20 54 48 45 4e 20 4f 4b 3a 3d 46 41 4c 53 45 23 07 20 20 20 20 45 4e 44 07 11 20 20 20 ┆DEC THEN OK:=FALSE# END ┆
0x13a0…13c0 20 45 4c 53 45 20 4f 4b 3a 3d 54 52 55 45 11 07 20 20 20 20 45 4e 44 07 0a 20 20 55 4e 54 49 4c ┆ ELSE OK:=TRUE END UNTIL┆
0x13c0…13e0 20 4f 4b 0a 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 13 50 52 4f 43 45 44 55 52 45 20 43 48 45 ┆ OK END; (*$P*) PROCEDURE CHE┆
0x13e0…1400 43 4b 56 41 4c 3b 13 23 56 41 52 20 49 2c 44 41 54 30 2c 4d 5d 4e 45 44 2c 5d 52 2c 4d 4f 44 55 ┆CKVAL; #VAR I,DAT0,MÅNED,ÅR,MODU┆
0x1400…1420 4c 43 3a 49 4e 54 45 47 45 52 3b 23 21 20 20 20 20 43 50 4e 3a 41 52 52 41 59 20 28 31 2e 2e 31 ┆LC:INTEGER;#! CPN:ARRAY (1..1┆
0x1420…1440 30 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 21 05 42 45 47 49 4e 05 1d 20 20 43 41 53 45 20 56 41 ┆0) OF INTEGER;! BEGIN CASE VA┆
0x1440…1460 4c 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 20 4f 46 1d 0c 20 20 48 49 4e 54 45 52 56 41 ┆L^.VALIDITETSTYPE OF HINTERVA┆
0x1460…1480 4c 3a 0c 2f 20 20 20 20 42 55 4d 4d 45 44 3a 3d 28 28 54 41 4c 3c 56 41 4c 5e 2e 4d 49 4e 29 20 ┆L: / BUMMED:=((TAL<VAL^.MIN) ┆
0x1480…14a0 4f 52 20 28 54 41 4c 3e 56 41 4c 5e 2e 4d 41 58 29 29 3b 2f 0c 20 20 44 49 4e 54 45 52 56 41 4c ┆OR (TAL>VAL^.MAX));/ DINTERVAL┆
0x14a0…14c0 3a 0c 3e 20 20 20 20 42 55 4d 4d 45 44 3a 3d 28 28 54 41 4c 2a 31 30 30 30 30 2e 30 2b 54 41 4c ┆: > BUMMED:=((TAL*10000.0+TAL┆
0x14c0…14e0 31 3c 56 41 4c 5e 2e 4d 49 4e 31 2a 31 30 30 30 30 2e 30 2b 56 41 4c 5e 2e 4d 49 4e 32 29 20 4f ┆1<VAL^.MIN1*10000.0+VAL^.MIN2) O┆
0x14e0…1500 52 3e 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 41 4c 2a 31 30 30 30 30 2e 30 2b 54 41 4c ┆R>= (TAL*10000.0+TAL┆
0x1500…1520 31 3e 56 41 4c 5e 2e 4d 41 58 31 2a 31 30 30 30 30 2e 30 2b 56 41 4c 5e 2e 4d 41 58 32 29 29 3b ┆1>VAL^.MAX1*10000.0+VAL^.MAX2));┆
0x1520…1540 3d 0c 20 20 52 49 4e 54 45 52 56 41 4c 3a 0c 37 20 20 20 20 42 55 4d 4d 45 44 3a 3d 28 28 52 45 ┆= RINTERVAL: 7 BUMMED:=((RE┆
0x1540…1560 53 55 4c 54 3c 56 41 4c 5e 2e 52 4d 49 4e 29 20 4f 52 20 28 52 45 53 55 4c 54 3e 56 41 4c 5e 2e ┆SULT<VAL^.RMIN) OR (RESULT>VAL^.┆
0x1560…1580 52 4d 41 58 29 29 3b 37 07 20 20 44 41 54 4f 3a 07 1a 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 ┆RMAX));7 DATO: IF LENGTH(┆
0x1580…15a0 4c 49 4e 45 29 3d 36 20 54 48 45 4e 1a 09 20 20 20 20 42 45 47 49 4e 09 2f 20 20 20 20 20 20 5d ┆LINE)=6 THEN BEGIN / Å┆
0x15a0…15c0 52 3a 3d 31 30 2a 28 4f 52 44 28 4c 49 4e 45 28 31 29 29 2d 34 38 29 2b 4f 52 44 28 4c 49 4e 45 ┆R:=10*(ORD(LINE(1))-48)+ORD(LINE┆
0x15c0…15e0 28 32 29 29 2d 34 38 3b 2f 32 20 20 20 20 20 20 4d 5d 4e 45 44 3a 3d 31 30 2a 28 4f 52 44 28 4c ┆(2))-48;/2 MÅNED:=10*(ORD(L┆
0x15e0…1600 49 4e 45 28 33 29 29 2d 34 38 29 2b 4f 52 44 28 4c 49 4e 45 28 34 29 29 2d 34 38 3b 32 31 20 20 ┆INE(3))-48)+ORD(LINE(4))-48;21 ┆
0x1600…1620 20 20 20 20 44 41 54 30 3a 3d 31 30 2a 28 4f 52 44 28 4c 49 4e 45 28 35 29 29 2d 34 38 29 2b 4f ┆ DAT0:=10*(ORD(LINE(5))-48)+O┆
0x1620…1640 52 44 28 4c 49 4e 45 28 36 29 29 2d 34 38 3b 31 4c 20 20 20 20 20 20 49 46 20 28 44 41 54 30 3c ┆RD(LINE(6))-48;1L IF (DAT0<┆
0x1640…1660 31 29 20 4f 52 20 28 4d 5d 4e 45 44 3c 31 29 20 4f 52 20 28 4d 5d 4e 45 44 3e 31 32 29 20 4f 52 ┆1) OR (MÅNED<1) OR (MÅNED>12) OR┆
0x1660…1680 20 28 44 41 54 30 3e 33 31 29 20 54 48 45 4e 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 3b 4c 18 20 ┆ (DAT0>31) THEN BUMMED:=TRUE;L ┆
0x1680…16a0 20 20 20 20 20 49 46 20 4e 4f 54 20 42 55 4d 4d 45 44 20 54 48 45 4e 18 13 20 20 20 20 20 20 43 ┆ IF NOT BUMMED THEN C┆
0x16a0…16c0 41 53 45 20 4d 5d 4e 45 44 20 4f 46 13 2d 20 20 20 20 20 20 34 2c 36 2c 39 2c 31 31 3a 20 49 46 ┆ASE MÅNED OF - 4,6,9,11: IF┆
0x16c0…16e0 20 44 41 54 30 3e 33 30 20 54 48 45 4e 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 3b 2d 49 20 20 20 ┆ DAT0>30 THEN BUMMED:=TRUE;-I ┆
0x16e0…1700 20 20 20 32 3a 20 49 46 20 28 44 41 54 30 3e 32 39 29 20 4f 52 20 28 28 44 41 54 30 3d 32 39 29 ┆ 2: IF (DAT0>29) OR ((DAT0=29)┆
0x1700…1720 20 41 4e 44 20 28 5d 52 20 4d 4f 44 20 34 20 3c 3e 30 29 29 20 54 48 45 4e 20 42 55 4d 4d 45 44 ┆ AND (ÅR MOD 4 <>0)) THEN BUMMED┆
0x1720…1740 3a 3d 54 52 55 45 49 09 20 20 20 20 20 20 45 4e 44 09 07 20 20 20 20 45 4e 44 07 16 20 20 20 20 ┆:=TRUEI END END ┆
0x1740…1760 45 4c 53 45 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 3b 16 06 20 20 43 50 52 3a 06 1b 20 20 20 20 ┆ELSE BUMMED:=TRUE; CPR: ┆
0x1760…1780 49 46 20 4c 45 4e 47 54 48 28 4c 49 4e 45 29 3d 31 30 20 54 48 45 4e 1b 09 20 20 20 20 42 45 47 ┆IF LENGTH(LINE)=10 THEN BEG┆
0x1780…17a0 49 4e 09 30 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 43 50 4e 28 ┆IN 0 FOR I:=1 TO 10 DO CPN(┆
0x17a0…17c0 49 29 3a 3d 4f 52 44 28 4c 49 4e 45 28 49 29 29 2d 34 38 3b 30 1d 20 20 20 20 20 20 44 41 54 30 ┆I):=ORD(LINE(I))-48;0 DAT0┆
0x17c0…17e0 3a 3d 43 50 4e 28 31 29 2a 31 30 2b 43 50 4e 28 32 29 3b 1d 1e 20 20 20 20 20 20 4d 5d 4e 45 44 ┆:=CPN(1)*10+CPN(2); MÅNED┆
0x17e0…1800 3a 3d 43 50 4e 28 33 29 2a 31 30 2b 43 50 4e 28 34 29 3b 1e 1b 20 20 20 20 20 20 5d 52 3a 3d 43 ┆:=CPN(3)*10+CPN(4); ÅR:=C┆
0x1800…1820 50 4e 28 35 29 2a 31 30 2b 43 50 4e 28 36 29 3b 1b 4c 20 20 20 20 20 20 49 46 20 28 44 41 54 30 ┆PN(5)*10+CPN(6); L IF (DAT0┆
0x1820…1840 3c 31 29 20 4f 52 20 28 4d 5d 4e 45 44 3c 31 29 20 4f 52 20 28 4d 5d 4e 45 44 3e 31 32 29 20 4f ┆<1) OR (MÅNED<1) OR (MÅNED>12) O┆
0x1840…1860 52 20 28 44 41 54 30 3e 33 31 29 20 54 48 45 4e 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 3b 4c 18 ┆R (DAT0>31) THEN BUMMED:=TRUE;L ┆
0x1860…1880 20 20 20 20 20 20 49 46 20 4e 4f 54 20 42 55 4d 4d 45 44 20 54 48 45 4e 18 13 20 20 20 20 20 20 ┆ IF NOT BUMMED THEN ┆
0x1880…18a0 43 41 53 45 20 4d 5d 4e 45 44 20 4f 46 13 2d 20 20 20 20 20 20 34 2c 36 2c 39 2c 31 31 3a 20 49 ┆CASE MÅNED OF - 4,6,9,11: I┆
0x18a0…18be 46 20 44 41 54 30 3e 33 30 20 54 48 45 4e 20 42 55 4d 4d 45 44 3a 3d 54 52 55 45 3b 2d 48 ┆F DAT0>30 THEN BUMMED:=TRUE;-H┆
0x18be…71e0 […elided…]
0x71e0…7200 4e 07 0f 20 20 20 20 46 4e 41 56 4e 3a 3d 27 20 27 3b 0f 17 20 20 20 20 46 4e 41 56 4e 28 31 29 ┆N FNAVN:=' '; FNAVN(1)┆
0x7200…7220 3a 3d 50 41 52 4d 5e 28 31 29 3b 17 39 20 20 20 20 43 48 41 49 4e 28 27 4c 20 20 20 20 20 20 20 ┆:=PARM^(1); 9 CHAIN('L ┆
0x7220…7240 2a 31 27 2c 43 4f 4e 43 41 54 28 27 49 4e 54 52 45 2c 27 2c 46 2c 27 2c 27 2c 46 4e 41 56 4e 29 ┆*1',CONCAT('INTRE,',F,',',FNAVN)┆
0x7240…7260 2c 51 55 51 29 3b 39 35 20 20 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 ┆,QUQ);95 IF IORESULT<>0 THEN ┆
0x7260…7280 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 35 05 20 ┆WRITELN('IORESULT ',IORESULT)5 ┆
0x7280…72a0 20 45 4e 44 05 04 45 4e 44 2e 04 00 00 42 45 52 53 54 20 20 27 3b 19 19 20 20 4e 49 56 45 41 55 ┆ END END. BERST '; NIVEAU┆
0x72a0…72c0 44 28 36 29 3a 3d 27 47 45 4e 45 52 41 4c 20 27 3b 19 1a 20 20 46 4e 41 56 4e 3a 3d 27 4b 4f 44 ┆D(6):='GENERAL '; FNAVN:='KOD┆
0x72c0…72e0 45 46 49 4c 3a 50 32 3a 31 3a 4a 27 3b 1a 13 20 20 52 45 57 52 49 54 45 28 46 2c 46 4e 41 56 4e ┆EFIL:P2:1:J'; REWRITE(F,FNAVN┆
0x72e0…7300 29 3b 13 0c 20 20 53 45 45 4b 28 46 2c 31 29 3b 0c 09 20 20 47 45 54 28 46 29 3b 09 0e 20 20 43 ┆); SEEK(F,1); GET(F); C┆
0x7300…7320 4c 45 41 52 53 43 52 45 45 4e 3b 0e 49 28 2a 24 58 4f 2a 29 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆LEARSCREEN; I(*$XO*) FOR I:=1 TO┆
0x7320…7340 20 32 30 20 44 4f 20 42 45 47 49 4e 20 46 5e 28 49 29 2e 4b 4f 44 45 3a 3d 27 20 20 20 20 20 20 ┆ 20 DO BEGIN F^(I).KODE:=' ┆
0x7340…7360 20 20 20 27 3b 46 5e 28 49 29 2e 4e 49 56 3a 3d 30 20 45 4e 44 3b 49 07 28 2a 24 58 2d 2a 29 07 ┆ ';F^(I).NIV:=0 END;I (*$X-*) ┆
0x7360…7380 16 20 20 49 46 20 50 41 52 4d 5e 28 31 29 3d 27 30 27 20 54 48 45 4e 16 07 20 20 42 45 47 49 4e ┆ IF PARM^(1)='0' THEN BEGIN┆
0x7380…73a0 07 1a 20 20 20 20 55 53 45 52 4b 4f 44 45 3a 3d 27 20 20 20 20 20 20 20 20 20 27 3b 1a 0a 20 20 ┆ USERKODE:=' '; ┆
0x73a0…73c0 20 20 52 45 50 45 41 54 0a 12 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 31 29 3b 12 1e 20 20 ┆ REPEAT GOTOXY(1,1); ┆
0x73c0…73e0 20 20 20 20 57 52 49 54 45 4c 4e 28 27 49 6e 64 74 61 73 74 20 6b 6f 64 65 27 29 3b 1e 24 20 20 ┆ WRITELN('Indtast kode'); $ ┆
0x73e0…7400 20 20 20 20 47 4f 54 4f 58 59 28 31 34 2c 31 29 3b 45 44 49 54 28 55 53 45 52 4b 4f 44 45 3a 39 ┆ GOTOXY(14,1);EDIT(USERKODE:9┆
0x7400…7420 29 3b 24 17 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 32 30 20 44 4f 17 21 20 20 20 ┆);$ FOR I:=1 TO 20 DO ! ┆
0x7420…7440 20 20 20 49 46 20 46 5e 28 49 29 2e 4b 4f 44 45 3d 55 53 45 52 4b 4f 44 45 20 54 48 45 4e 21 0b ┆ IF F^(I).KODE=USERKODE THEN! ┆
0x7440…7460 20 20 20 20 20 20 42 45 47 49 4e 0b 24 20 20 20 20 20 20 20 20 50 41 52 4d 5e 28 31 29 3a 3d 43 ┆ BEGIN $ PARM^(1):=C┆
0x7460…7480 48 52 28 46 5e 28 49 29 2e 4e 49 56 2b 34 38 29 3b 24 0d 20 20 20 20 20 20 20 20 49 3a 3d 33 30 ┆HR(F^(I).NIV+48);$ I:=30┆
0x7480…74a0 0d 09 20 20 20 20 20 20 45 4e 44 09 0e 20 20 20 20 55 4e 54 49 4c 20 49 3e 33 30 0e 05 20 20 45 ┆ END UNTIL I>30 E┆
0x74a0…74c0 4e 44 05 06 20 20 45 4c 53 45 06 07 20 20 42 45 47 49 4e 07 44 20 20 20 20 46 4f 52 20 49 3a 3d ┆ND ELSE BEGIN D FOR I:=┆
0x74c0…74e0 31 20 54 4f 20 32 30 20 44 4f 20 57 52 49 54 45 4c 4e 28 46 5e 28 49 29 2e 4b 4f 44 45 2c 27 20 ┆1 TO 20 DO WRITELN(F^(I).KODE,' ┆
0x74e0…7500 27 3a 31 30 2c 4e 49 56 45 41 55 44 28 46 5e 28 49 29 2e 4e 49 56 29 29 3b 44 0a 20 20 20 20 52 ┆':10,NIVEAUD(F^(I).NIV));D R┆
0x7500…7520 45 50 45 41 54 0a 13 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 13 2a 20 20 20 20 ┆EPEAT GOTOXY(1,23); * ┆
0x7520…7540 20 20 57 52 49 54 45 4c 4e 28 27 4b 6f 64 65 20 6e 72 20 20 20 20 20 30 20 66 6f 72 20 66 7b 72 ┆ WRITELN('Kode nr 0 for fær┆
0x7540…7560 64 69 67 27 29 3b 2a 13 20 20 20 20 20 20 47 4f 54 4f 58 59 28 39 2c 32 33 29 3b 13 15 20 20 20 ┆dig');* GOTOXY(9,23); ┆
0x7560…7580 20 20 20 52 45 41 44 4c 4e 3b 52 45 41 44 28 49 29 3b 15 1e 20 20 20 20 20 20 49 46 20 28 49 3e ┆ READLN;READ(I); IF (I>┆
0x7580…75a0 30 29 20 41 4e 44 20 28 49 3c 32 31 29 20 54 48 45 4e 1e 0b 20 20 20 20 20 20 42 45 47 49 4e 0b ┆0) AND (I<21) THEN BEGIN ┆
0x75a0…75c0 15 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 32 29 3b 15 1d 20 20 20 20 20 20 20 20 ┆ GOTOXY(1,22); ┆
0x75c0…75e0 55 53 45 52 4b 4f 44 45 3a 3d 46 5e 28 49 29 2e 4b 4f 44 45 3b 1d 19 20 20 20 20 20 20 20 20 45 ┆USERKODE:=F^(I).KODE; E┆
0x75e0…7600 44 49 54 28 55 53 45 52 4b 4f 44 45 3a 39 29 3b 19 1d 20 20 20 20 20 20 20 20 46 5e 28 49 29 2e ┆DIT(USERKODE:9); F^(I).┆
0x7600…7620 4b 4f 44 45 3a 3d 55 53 45 52 4b 4f 44 45 3b 1d 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e ┆KODE:=USERKODE; REPEAT ┆
0x7620…7640 18 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 30 2c 32 32 29 3b 18 27 20 20 20 20 20 ┆ GOTOXY(20,22); ' ┆
0x7640…7660 20 20 20 20 20 55 53 45 52 4b 4f 44 45 3a 3d 4e 49 56 45 41 55 44 28 46 5e 28 49 29 2e 4e 49 56 ┆ USERKODE:=NIVEAUD(F^(I).NIV┆
0x7660…7680 29 3b 27 1b 20 20 20 20 20 20 20 20 20 20 45 44 49 54 28 55 53 45 52 4b 4f 44 45 3a 38 29 3b 1b ┆);' EDIT(USERKODE:8); ┆
0x7680…76a0 1a 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 4a 3a 3d 30 20 54 4f 20 36 20 44 4f 1a 25 20 20 20 ┆ FOR J:=0 TO 6 DO % ┆
0x76a0…76c0 20 20 20 20 20 20 20 49 46 20 4e 49 56 45 41 55 44 28 4a 29 3d 55 53 45 52 4b 4f 44 45 20 54 48 ┆ IF NIVEAUD(J)=USERKODE TH┆
0x76c0…76e0 45 4e 25 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 19 20 20 20 20 20 20 20 20 20 20 20 ┆EN% BEGIN ┆
0x76e0…7700 20 46 5e 28 49 29 2e 4e 49 56 3a 3d 4a 3b 19 11 20 20 20 20 20 20 20 20 20 20 20 20 4a 3a 3d 32 ┆ F^(I).NIV:=J; J:=2┆
0x7700…7720 30 11 0d 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 12 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 ┆0 END UNTIL ┆
0x7720…7740 4a 3e 32 30 12 09 20 20 20 20 20 20 45 4e 44 09 0e 20 20 20 20 55 4e 54 49 4c 20 49 3d 30 3b 0e ┆J>20 END UNTIL I=0; ┆
0x7740…7760 0e 20 20 20 20 53 45 45 4b 28 46 2c 31 29 3b 0e 0a 20 20 20 20 50 55 54 28 46 29 0a 06 20 20 45 ┆ SEEK(F,1); PUT(F) E┆
0x7760…7780 4e 44 3b 06 0b 20 20 43 4c 4f 53 45 28 46 29 3b 0b 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c ┆ND; CLOSE(F); 3 IF IORESULT<┆
0x7780…77a0 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 ┆>0 THEN WRITELN('IORESULT ',IORE┆
0x77a0…77c0 53 55 4c 54 29 33 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 35 50 52 4f 43 45 44 55 52 45 20 53 ┆SULT)3 END; (*$P*) 5PROCEDURE S┆
0x77c0…77e0 45 54 55 50 28 56 41 52 20 42 55 46 46 45 52 3a 44 49 52 45 43 54 42 55 46 3b 4c 45 4e 47 54 48 ┆ETUP(VAR BUFFER:DIRECTBUF;LENGTH┆
0x77e0…7800 3a 49 4e 54 45 47 45 52 29 3b 35 09 45 58 54 45 52 4e 41 4c 3b 09 17 46 55 4e 43 54 49 4f 4e 20 ┆:INTEGER);5 EXTERNAL; FUNCTION ┆
0x7800…7820 41 56 41 49 4c 3a 42 4f 4f 4c 45 41 4e 3b 17 09 45 58 54 45 52 4e 41 4c 3b 09 13 46 55 4e 43 54 ┆AVAIL:BOOLEAN; EXTERNAL; FUNCT┆
0x7820…7840 49 4f 4e 20 4e 45 58 54 3a 43 48 41 52 3b 13 09 45 58 54 45 52 4e 41 4c 3b 09 10 50 52 4f 43 45 ┆ION NEXT:CHAR; EXTERNAL; PROCE┆
0x7840…7860 44 55 52 45 20 46 49 4e 49 53 3b 10 09 45 58 54 45 52 4e 41 4c 3b 09 06 28 2a 24 50 2a 29 06 0d ┆DURE FINIS; EXTERNAL; (*$P*) ┆
0x7860…7880 50 52 4f 43 45 44 55 52 45 20 55 52 3b 0d 05 42 45 47 49 4e 05 14 20 20 53 45 54 55 50 28 44 42 ┆PROCEDURE UR; BEGIN SETUP(DB┆
0x7880…78a0 55 46 2c 4c 4e 47 54 48 29 3b 14 09 20 20 43 3a 3d 27 20 27 3b 09 0f 20 20 49 46 20 54 5b 4e 44 ┆UF,LNGTH); C:=' '; IF TÆND┆
0x78a0…78c0 54 20 54 48 45 4e 0f 07 20 20 42 45 47 49 4e 07 1e 20 20 47 4f 54 4f 58 59 28 36 32 2c 31 29 3b ┆T THEN BEGIN GOTOXY(62,1);┆
0x78c0…78e0 57 52 49 54 45 28 27 41 6c 61 72 6d 27 29 3b 1e 38 20 20 49 46 20 41 4c 41 52 4d 20 54 48 45 4e ┆WRITE('Alarm'); 8 IF ALARM THEN┆
0x78e0…7900 20 42 45 47 49 4e 20 47 4f 54 4f 58 59 28 37 32 2c 31 29 3b 57 52 49 54 45 28 41 4c 41 52 4d 54 ┆ BEGIN GOTOXY(72,1);WRITE(ALARMT┆
0x7900…7920 49 4d 45 29 20 45 4e 44 3b 38 1d 20 20 47 4f 54 4f 58 59 28 36 32 2c 32 29 3b 57 52 49 54 45 28 ┆IME) END;8 GOTOXY(62,2);WRITE(┆
0x7920…7940 27 54 69 6d 65 27 29 3b 1d 06 20 20 45 4e 44 3b 06 09 20 20 53 56 3a 3d 2d 31 3b 09 08 20 20 52 ┆'Time'); END; SV:=-1; R┆
0x7940…7960 45 50 45 41 54 08 1b 20 20 49 46 20 43 3c 3e 43 4c 4f 43 4b 5e 2e 54 49 4d 45 28 38 29 20 54 48 ┆EPEAT IF C<>CLOCK^.TIME(8) TH┆
0x7960…7980 45 4e 1b 07 20 20 42 45 47 49 4e 07 10 20 20 20 49 46 20 54 5b 4e 44 54 20 54 48 45 4e 10 08 20 ┆EN BEGIN IF TÆNDT THEN ┆
0x7980…79a0 20 20 42 45 47 49 4e 08 11 20 20 20 20 47 4f 54 4f 58 59 28 36 37 2c 32 29 3b 11 17 20 20 20 20 ┆ BEGIN GOTOXY(67,2); ┆
0x79a0…79c0 57 52 49 54 45 28 43 4c 4f 43 4b 5e 2e 54 49 4d 45 29 3b 17 07 20 20 20 45 4e 44 3b 07 16 20 20 ┆WRITE(CLOCK^.TIME); END; ┆
0x79c0…79e0 20 20 43 3a 3d 43 4c 4f 43 4b 5e 2e 54 49 4d 45 28 38 29 3b 16 11 20 20 20 20 4f 46 46 53 45 54 ┆ C:=CLOCK^.TIME(8); OFFSET┆
0x79e0…7a00 3a 3d 54 49 4d 45 3b 11 25 20 20 20 20 49 46 20 53 54 49 4d 45 52 3e 30 20 54 48 45 4e 20 53 54 ┆:=TIME; % IF STIMER>0 THEN ST┆
0x7a00…7a20 49 4d 45 52 3a 3d 53 54 49 4d 45 52 2d 31 25 06 20 20 45 4e 44 3b 06 0f 20 20 49 46 20 54 5b 4e ┆IMER:=STIMER-1% END; IF TÆN┆
0x7a20…7a40 44 54 20 54 48 45 4e 0f 07 20 20 42 45 47 49 4e 07 0f 20 20 47 4f 54 4f 58 59 28 37 36 2c 32 29 ┆DT THEN BEGIN GOTOXY(76,2)┆
0x7a40…7a60 3b 0f 21 20 20 57 52 49 54 45 28 28 54 49 4d 45 2d 4f 46 46 53 45 54 29 20 4d 4f 44 20 31 30 30 ┆; ! WRITE((TIME-OFFSET) MOD 100┆
0x7a60…7a80 3a 34 29 3b 21 06 20 20 45 4e 44 3b 06 13 20 20 49 46 20 53 54 4f 50 57 41 54 43 48 20 54 48 45 ┆:4);! END; IF STOPWATCH THE┆
0x7a80…7aa0 4e 13 07 20 20 42 45 47 49 4e 07 1f 20 20 20 20 49 46 20 28 54 49 4d 45 3c 30 29 20 41 4e 44 20 ┆N BEGIN IF (TIME<0) AND ┆
0x7aa0…7ac0 28 54 54 3e 30 29 20 54 48 45 4e 1f 2e 20 20 20 20 20 20 53 45 43 31 30 30 3a 3d 53 45 43 31 30 ┆(TT>0) THEN . SEC100:=SEC10┆
0x7ac0…7ae0 30 2b 28 33 32 37 36 37 2d 54 54 29 2b 28 33 32 37 36 37 2b 54 49 4d 45 2b 32 29 2e 08 20 20 20 ┆0+(32767-TT)+(32767+TIME+2). ┆
0x7ae0…7b00 20 45 4c 53 45 08 1d 20 20 20 20 20 20 53 45 43 31 30 30 3a 3d 53 45 43 31 30 30 2b 54 49 4d 45 ┆ ELSE SEC100:=SEC100+TIME┆
0x7b00…7b20 2d 54 54 3b 1d 0d 20 20 20 20 54 54 3a 3d 54 49 4d 45 3b 0d 33 20 20 20 20 53 45 43 3a 3d 53 45 ┆-TT; TT:=TIME; 3 SEC:=SE┆
0x7b20…7b40 43 2b 53 45 43 31 30 30 20 44 49 56 20 31 30 30 3b 53 45 43 31 30 30 3a 3d 53 45 43 31 30 30 20 ┆C+SEC100 DIV 100;SEC100:=SEC100 ┆
0x7b40…7b60 4d 4f 44 20 31 30 30 3b 33 2c 20 20 20 20 4d 49 4e 3a 3d 4d 49 4e 2b 53 45 43 20 44 49 56 20 36 ┆MOD 100;3, MIN:=MIN+SEC DIV 6┆
0x7b60…7b80 30 3b 20 20 20 20 53 45 43 3a 3d 53 45 43 20 4d 4f 44 20 36 30 3b 2c 11 20 20 20 20 49 46 20 54 ┆0; SEC:=SEC MOD 60;, IF T┆
0x7b80…7ba0 5b 4e 44 54 20 54 48 45 4e 11 09 20 20 20 20 42 45 47 49 4e 09 11 20 20 20 20 47 4f 54 4f 58 59 ┆ÆNDT THEN BEGIN GOTOXY┆
0x7ba0…7bc0 28 36 30 2c 33 29 3b 11 20 20 20 20 20 57 52 49 54 45 28 4d 49 4e 3a 34 2c 53 45 43 3a 33 2c 53 ┆(60,3); WRITE(MIN:4,SEC:3,S┆
0x7bc0…7be0 45 43 31 30 30 3a 33 29 3b 20 08 20 20 20 20 45 4e 44 3b 08 06 20 20 45 4e 44 3b 06 3a 20 20 49 ┆EC100:3); END; END; : I┆
0x7be0…7c00 46 20 41 4c 41 52 4d 20 54 48 45 4e 20 49 46 20 41 4c 41 52 4d 54 49 4d 45 3c 3d 43 4c 4f 43 4b ┆F ALARM THEN IF ALARMTIME<=CLOCK┆
0x7c00…7c20 5e 2e 54 49 4d 45 20 54 48 45 4e 20 48 4f 57 4c 3a 3d 54 52 55 45 3b 3a 0f 20 20 49 46 20 54 5b ┆^.TIME THEN HOWL:=TRUE;: IF TÆ┆
0x7c20…7c40 4e 44 54 20 54 48 45 4e 0f 1d 20 20 49 46 20 48 4f 57 4c 20 54 48 45 4e 20 57 52 49 54 45 28 43 ┆NDT THEN IF HOWL THEN WRITE(C┆
0x7c40…7c60 48 52 28 37 29 29 3b 1d 0f 20 20 49 46 20 41 56 41 49 4c 20 54 48 45 4e 0f 07 20 20 42 45 47 49 ┆HR(7)); IF AVAIL THEN BEGI┆
0x7c60…7c80 4e 07 0d 20 20 20 20 43 48 3a 3d 4e 45 58 54 3b 0d 35 20 20 20 20 49 46 20 54 5b 4e 44 54 20 4f ┆N CH:=NEXT; 5 IF TÆNDT O┆
0x7c80…7ca0 52 20 28 43 48 3d 27 54 27 29 20 4f 52 20 28 43 48 20 49 4e 20 28 2e 27 30 27 2e 2e 27 39 27 2e ┆R (CH='T') OR (CH IN (.'0'..'9'.┆
0x7ca0…7cc0 29 29 20 54 48 45 4e 35 0e 20 20 20 20 43 41 53 45 20 43 48 20 4f 46 0e 0d 20 20 20 20 27 53 27 ┆)) THEN5 CASE CH OF 'S'┆
0x7cc0…7ce0 3a 42 45 47 49 4e 0d 24 20 20 20 20 20 20 20 20 20 20 53 54 4f 50 57 41 54 43 48 3a 3d 4e 4f 54 ┆:BEGIN $ STOPWATCH:=NOT┆
0x7ce0…7d00 28 53 54 4f 50 57 41 54 43 48 29 3b 24 47 20 20 20 20 20 20 20 20 20 20 49 46 20 53 54 4f 50 57 ┆(STOPWATCH);$G IF STOPW┆
0x7d00…7d20 41 54 43 48 20 54 48 45 4e 20 42 45 47 49 4e 20 4d 49 4e 3a 3d 30 3b 53 45 43 3a 3d 30 3b 53 45 ┆ATCH THEN BEGIN MIN:=0;SEC:=0;SE┆
0x7d20…7d40 43 31 30 30 3a 3d 30 3b 54 54 3a 3d 54 49 4d 45 20 45 4e 44 3b 47 0c 20 20 20 20 20 20 20 20 45 ┆C100:=0;TT:=TIME END;G E┆
0x7d40…7d60 4e 44 3b 0c 45 20 20 20 20 27 55 27 3a 42 45 47 49 4e 20 47 4f 54 4f 58 59 28 36 37 2c 32 29 3b ┆ND; E 'U':BEGIN GOTOXY(67,2);┆
0x7d60…7d80 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 43 4c 4f 43 4b 5e 2e 54 49 4d 45 28 49 29 3a ┆FOR I:=1 TO 8 DO CLOCK^.TIME(I):┆
0x7d80…7da0 3d 4e 45 58 54 20 45 4e 44 3b 45 2b 20 20 20 20 27 43 27 3a 42 45 47 49 4e 20 53 54 4f 50 57 41 ┆=NEXT END;E+ 'C':BEGIN STOPWA┆
0x7da0…7dc0 54 43 48 3a 3d 54 52 55 45 3b 54 54 3a 3d 54 49 4d 45 20 45 4e 44 3b 2b 19 20 20 20 20 27 54 27 ┆TCH:=TRUE;TT:=TIME END;+ 'T'┆
0x7dc0…7de0 3a 54 5b 4e 44 54 3a 3d 4e 4f 54 20 54 5b 4e 44 54 3b 19 43 27 30 27 2c 27 31 27 2c 27 32 27 2c ┆:TÆNDT:=NOT TÆNDT; C'0','1','2',┆
0x7de0…7e00 27 33 27 2c 27 34 27 2c 27 35 27 2c 27 36 27 2c 27 37 27 2c 27 38 27 2c 27 39 27 3a 42 45 47 49 ┆'3','4','5','6','7','8','9':BEGI┆
0x7e00…7e20 4e 20 46 49 4e 49 53 3b 53 56 3a 3d 4f 52 44 28 43 48 29 2d 34 38 3b 43 38 20 20 20 20 20 20 20 ┆N FINIS;SV:=ORD(CH)-48;C8 ┆
0x7e20…7e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x7e40…7e60 20 57 52 49 54 45 4c 4e 28 53 56 29 20 45 4e 44 3b 38 0d 20 20 20 20 27 4d 27 3a 42 45 47 49 4e ┆ WRITELN(SV) END;8 'M':BEGIN┆
0x7e60…7e80 0d 17 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 37 30 2c 33 29 3b 17 1b 20 20 20 20 20 ┆ GOTOXY(70,3); ┆
0x7e80…7ea0 20 20 20 20 20 49 46 20 53 54 4f 50 57 41 54 43 48 20 54 48 45 4e 1b 29 20 20 20 20 20 20 20 20 ┆ IF STOPWATCH THEN ) ┆
0x7ea0…7ec0 20 20 20 20 20 57 52 49 54 45 28 4d 49 4e 3a 34 2c 53 45 43 3a 33 2c 53 45 43 31 30 30 3a 33 29 ┆ WRITE(MIN:4,SEC:3,SEC100:3)┆
0x7ec0…7ee0 3b 29 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 27 41 27 3a 42 45 47 49 4e 0d 16 ┆;) END; 'A':BEGIN ┆
0x7ee0…7f00 20 20 20 20 20 20 20 20 20 20 48 4f 57 4c 3a 3d 46 41 4c 53 45 3b 16 1c 20 20 20 20 20 20 20 20 ┆ HOWL:=FALSE; ┆
0x7f00…7f20 20 20 41 4c 41 52 4d 3a 3d 4e 4f 54 28 41 4c 41 52 4d 29 3b 1c 1e 20 20 20 20 20 20 20 20 20 20 ┆ ALARM:=NOT(ALARM); ┆
0x7f20…7f40 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 39 29 3a 3d 27 30 27 3b 1e 17 20 20 20 20 20 20 20 20 20 20 ┆CLOCK^.DATE(9):='0'; ┆
0x7f40…7f60 49 46 20 41 4c 41 52 4d 20 54 48 45 4e 17 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 20 ┆IF ALARM THEN BEGIN ┆
0x7f60…7f80 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 39 29 3a 3d 27 31 27 3b ┆ CLOCK^.DATE(9):='1';┆
0x7f80…7fa0 20 19 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 37 32 2c 31 29 3b 19 38 20 20 20 ┆ GOTOXY(72,1); 8 ┆
0x7fa0…7fc0 20 20 20 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 20 42 45 47 49 4e 20 ┆ FOR I:=1 TO 8 DO BEGIN ┆
0x7fc0…7fe0 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 49 29 3a 3d 4e 45 58 54 3b 38 3f 20 20 20 20 20 20 20 20 20 ┆CLOCK^.DATE(I):=NEXT;8? ┆
0x7fe0…8000 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 41 4c 41 52 4d 54 ┆ ALARMT┆
0x8000…8020 49 4d 45 28 49 29 3a 3d 43 4c 4f 43 4b 5e 2e 44 41 54 45 28 49 29 3f 21 20 20 20 20 20 20 20 20 ┆IME(I):=CLOCK^.DATE(I)?! ┆
0x8020…8040 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 21 29 20 20 20 20 20 ┆ END;!) ┆
0x8040…8060 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 37 32 2c 31 29 3b 57 52 49 54 45 28 41 4c 41 52 4d 54 ┆ GOTOXY(72,1);WRITE(ALARMT┆
0x8060…8080 49 4d 45 29 29 0e 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0e 0c 20 20 20 20 20 20 20 20 45 4e ┆IME)) END; EN┆
0x8080…80a0 44 3b 0c 08 20 20 20 20 45 4e 44 3b 08 06 20 20 45 4e 44 3b 06 0d 20 20 55 4e 54 49 4c 20 53 56 ┆D; END; END; UNTIL SV┆
0x80a0…80c0 3e 2d 31 0d 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 12 50 52 4f 43 45 44 55 52 45 20 52 45 47 ┆>-1 END; (*$P*) PROCEDURE REG┆
0x80c0…80e0 56 45 44 4c 3b 12 13 43 4f 4e 53 54 20 4d 41 58 46 45 4c 54 45 52 3d 33 30 3b 13 12 20 20 20 20 ┆VEDL; CONST MAXFELTER=30; ┆
0x80e0…8100 20 20 4d 41 58 4e 5c 47 4c 45 52 3d 39 3b 12 13 20 20 20 20 20 20 4d 41 58 5a 4f 4e 45 3d 31 30 ┆ MAXNØGLER=9; MAXZONE=10┆
0x8100…8120 30 30 3b 13 12 20 20 20 20 20 20 4d 41 58 50 4f 53 54 3d 32 35 30 3b 12 0d 28 2a 24 49 49 53 46 ┆00; MAXPOST=250; (*$IISF┆
0x8120…8140 48 45 41 44 2a 29 0d 0f 5a 5a 4f 4e 45 20 20 20 3d 52 45 43 4f 52 44 0f 12 20 20 20 20 20 20 20 ┆HEAD*) ZZONE =RECORD ┆
0x8140…8160 20 48 3a 49 53 46 48 45 41 44 3b 12 26 20 20 20 20 20 20 20 20 54 3a 41 52 52 41 59 28 31 2e 2e ┆ H:ISFHEAD; & T:ARRAY(1..┆
0x8160…8180 4d 41 58 5a 4f 4e 45 29 20 4f 46 20 49 4e 54 45 47 45 52 26 04 45 4e 44 3b 04 17 4e 46 45 4c 54 ┆MAXZONE) OF INTEGER& END; NFELT┆
0x8180…81a0 3d 5e 46 45 4c 54 42 45 53 4b 52 49 56 45 4c 53 45 3b 17 0f 53 4b 5b 52 4d 50 4f 53 3d 52 45 43 ┆=^FELTBESKRIVELSE; SKÆRMPOS=REC┆
0x81a0…81c0 4f 52 44 0f 0e 20 20 20 58 2c 59 3a 49 4e 54 45 47 45 52 0e 04 45 4e 44 3b 04 22 46 54 59 50 45 ┆ORD X,Y:INTEGER END; "FTYPE┆
0x81c0…81e0 3d 28 48 45 4c 54 41 4c 2c 44 4f 42 42 54 41 4c 2c 52 45 45 4c 2c 54 45 4b 53 54 29 3b 22 2f d2 ┆=(HELTAL,DOBBTAL,REEL,TEKST);"/ ┆