|
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)
Notes: Mikados_K, Mikados_K_Other
Names: »2EDITFIL.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »2EDITFIL.K«
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…04e0 05 42 45 47 49 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 1d 20 20 52 47 5a 2e 48 2e 46 49 ┆ BEGI CLEARSCREEN; RGZ.H.FI┆
0x04e0…0500 4c 45 4e 41 4d 45 3a 3d 27 52 45 47 4c 49 52 45 47 27 3b 1d 21 20 20 46 49 4c 4e 41 56 4e 31 3a ┆LENAME:='REGLIREG'; ! FILNAVN1:┆
0x0500…0520 3d 27 52 45 47 4c 49 52 45 47 3a 50 32 3a 30 30 30 30 3a 49 27 3b 21 18 20 20 52 45 57 52 49 54 ┆='REGLIREG:P2:0000:I';! REWRIT┆
0x0520…0540 45 28 52 47 46 2c 46 49 4c 4e 41 56 4e 31 29 3b 18 3c 20 20 49 4f 50 45 4e 28 52 47 5a 2e 48 2c ┆E(RGF,FILNAVN1); < IOPEN(RGZ.H,┆
0x0540…0560 52 47 46 2c 4c 5b 53 29 3b 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 4f 46 45 4a 4c 28 52 47 ┆RGF,LÆS);IF IER<>0 THEN OFEJL(RG┆
0x0560…0580 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 3c 1e 20 20 52 47 5a 31 2e 48 2e 46 49 4c 45 4e 41 4d ┆Z.H.FILENAME);< RGZ1.H.FILENAM┆
0x0580…05a0 45 3a 3d 27 52 45 47 4c 49 52 45 47 27 3b 1e 21 20 20 46 49 4c 4e 41 56 4e 31 3a 3d 27 52 45 47 ┆E:='REGLIREG'; ! FILNAVN1:='REG┆
0x05a0…05c0 4c 49 52 45 47 3a 50 31 3a 30 30 30 30 3a 49 27 3b 21 17 20 20 52 45 57 52 49 54 45 28 46 31 2c ┆LIREG:P1:0000:I';! REWRITE(F1,┆
0x05c0…05e0 46 49 4c 4e 41 56 4e 31 29 3b 17 3f 20 20 49 4f 50 45 4e 28 52 47 5a 31 2e 48 2c 46 31 2c 53 4b ┆FILNAVN1); ? IOPEN(RGZ1.H,F1,SK┆
0x05e0…0600 52 49 56 29 3b 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 4f 46 45 4a 4c 28 52 47 5a 31 2e 48 ┆RIV);IF IER<>0 THEN OFEJL(RGZ1.H┆
0x0600…0620 2e 46 49 4c 45 4e 41 4d 45 29 3b 3f 1c 20 20 46 4f 52 20 49 3a 3d 35 20 54 4f 20 31 30 20 44 4f ┆.FILENAME);? FOR I:=5 TO 10 DO┆
0x0620…0640 20 41 28 49 29 3a 3d 30 3b 1c 1e 20 20 4e 45 58 54 52 45 43 28 52 47 5a 2e 48 2c 52 47 46 2c 52 ┆ A(I):=0; NEXTREC(RGZ.H,RGF,R┆
0x0640…0660 47 50 4f 53 54 2e 41 29 3b 1e 34 20 20 49 46 20 49 45 52 3c 3e 2d 31 20 54 48 45 4e 20 45 52 52 ┆GPOST.A); 4 IF IER<>-1 THEN ERR┆
0x0660…0680 4f 52 28 52 47 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 20 45 4c 53 45 20 49 45 52 3a 3d 30 3b 34 ┆OR(RGZ.H.FILENAME) ELSE IER:=0;4┆
0x0680…06a0 27 20 20 49 4e 49 54 49 41 54 45 28 52 47 5a 31 2e 48 2c 46 31 2c 32 2a 52 47 5a 2e 48 2e 52 45 ┆' INITIATE(RGZ1.H,F1,2*RGZ.H.RE┆
0x06a0…06c0 43 49 4e 55 53 45 29 3b 27 28 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 ┆CINUSE);'( IF IER<>0 THEN ERROR┆
0x06c0…06e0 28 52 47 5a 31 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 28 07 20 20 49 3a 3d 30 3b 07 10 20 20 57 ┆(RGZ1.H.FILENAME);( I:=0; W┆
0x06e0…0700 48 49 4c 45 20 49 45 52 3d 30 20 44 4f 10 10 20 20 57 49 54 48 20 52 47 50 4f 53 54 20 44 4f 10 ┆HILE IER=0 DO WITH RGPOST DO ┆
0x0700…0720 07 20 20 42 45 47 49 4e 07 18 20 20 20 20 49 4e 53 45 52 54 28 52 47 5a 31 2e 48 2c 46 31 2c 41 ┆ BEGIN INSERT(RGZ1.H,F1,A┆
0x0720…0740 29 3b 18 2a 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 28 52 47 5a ┆); * IF IER<>0 THEN ERROR(RGZ┆
0x0740…0760 31 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 2a 4c 57 52 49 54 45 4c 4e 28 27 49 4e 53 20 27 2c 4f ┆1.H.FILENAME);*LWRITELN('INS ',O┆
0x0760…0780 52 44 52 45 4e 52 3a 36 2c 50 52 4f 44 55 4b 54 31 4e 52 2a 31 30 30 30 30 2e 30 2b 50 52 4f 44 ┆RDRENR:6,PRODUKT1NR*10000.0+PROD┆
0x0780…07a0 55 4b 54 32 4e 52 3a 31 30 3a 2d 32 2c 4f 50 45 52 41 54 49 4f 4e 53 4e 52 3a 36 2c 4c 38 20 20 ┆UKT2NR:10:-2,OPERATIONSNR:6,L8 ┆
0x07a0…07c0 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 45 44 41 52 42 45 4a 44 45 52 4e 52 3a 36 2c 44 41 54 ┆ MEDARBEJDERNR:6,DAT┆
0x07c0…07e0 31 2a 31 30 30 30 30 2e 30 2b 44 41 54 32 3a 31 30 3a 2d 32 29 3b 38 19 20 20 20 20 4e 45 58 54 ┆1*10000.0+DAT2:10:-2);8 NEXT┆
0x07e0…0800 52 45 43 28 52 47 5a 2e 48 2c 52 47 46 2c 41 29 3b 19 0a 20 20 20 20 49 3a 3d 49 2b 31 0a 06 20 ┆REC(RGZ.H,RGF,A); I:=I+1 ┆
0x0800…0820 20 45 4e 44 3b 06 28 20 20 49 46 20 49 45 52 3c 3e 2d 32 20 54 48 45 4e 20 45 52 52 4f 52 28 52 ┆ END; ( IF IER<>-2 THEN ERROR(R┆
0x0820…0840 47 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 28 36 20 20 57 52 49 54 45 4c 4e 28 27 49 4e 44 50 ┆GZ.H.FILENAME);(6 WRITELN('INDP┆
0x0840…0860 4f 53 54 45 52 2c 20 55 44 50 4f 53 54 45 52 27 2c 52 47 5a 2e 48 2e 52 45 43 49 4e 55 53 45 3a ┆OSTER, UDPOSTER',RGZ.H.RECINUSE:┆
0x0860…0880 35 2c 49 3a 35 29 3b 36 14 20 20 49 43 4c 4f 53 45 28 52 47 5a 2e 48 2c 52 47 46 29 3b 14 14 20 ┆5,I:5);6 ICLOSE(RGZ.H,RGF); ┆
0x0880…08a0 20 49 43 4c 4f 53 45 28 52 47 5a 31 2e 48 2c 46 31 29 3b 14 19 20 20 57 52 49 54 45 4c 4e 28 27 ┆ ICLOSE(RGZ1.H,F1); WRITELN('┆
0x08a0…08c0 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 3b 19 04 45 4e 44 2e 04 00 00 00 00 3a 4f 50 4c 49 4e 50 ┆ICLOSE ',IER); END. :OPLINP┆
0x08c0…08e0 4f 53 54 3b 15 15 20 20 20 20 4f 41 50 4f 53 54 3a 4f 50 45 52 41 50 4f 53 54 3b 15 15 20 20 20 ┆OST; OAPOST:OPERAPOST; ┆
0x08e0…0900 20 52 47 50 4f 53 54 3a 52 45 47 4c 49 50 4f 53 54 3b 15 15 20 20 20 20 48 49 50 4f 53 54 3a 48 ┆ RGPOST:REGLIPOST; HIPOST:H┆
0x0900…0920 49 53 54 4f 50 4f 53 54 3b 15 07 28 2a 24 4c 2d 2a 29 07 11 28 2a 24 52 2d 2c 49 45 58 43 4f 4d ┆ISTOPOST; (*$L-*) (*$R-,IEXCOM┆
0x0920…0940 43 4f 50 2a 29 11 0e 28 2a 24 49 52 45 41 44 50 52 4f 43 2a 29 0e 0b 28 2a 24 49 53 5b 54 5c 47 ┆COP*) (*$IREADPROC*) (*$ISÆTØG┆
0x0940…0960 2a 29 0b 0d 28 2a 24 49 46 4f 52 53 4b 59 44 2a 29 0d 0b 28 2a 24 49 49 4f 50 45 4e 2a 29 0b 0e ┆*) (*$IFORSKYD*) (*$IIOPEN*) ┆
0x0960…0980 28 2a 24 49 46 49 4e 44 50 4f 53 54 2a 29 0e 0c 28 2a 24 49 49 43 4c 4f 53 45 2a 29 0c 0c 28 2a ┆(*$IFINDPOST*) (*$IICLOSE*) (*┆
0x0980…09a0 24 49 50 55 54 47 45 54 2a 29 0c 0d 28 2a 24 49 4e 45 58 54 52 45 43 2a 29 0d 0c 28 2a 24 49 44 ┆$IPUTGET*) (*$INEXTREC*) (*$ID┆
0x09a0…09c0 45 4c 45 54 45 2a 29 0c 0c 28 2a 24 49 49 4e 53 45 52 54 2a 29 0c 07 28 2a 24 4c 2b 2a 29 07 06 ┆ELETE*) (*$IINSERT*) (*$L+*) ┆
0x09c0…09e0 28 2a 24 50 2a 29 06 21 50 52 4f 43 45 44 55 52 45 20 45 52 52 4f 52 28 56 41 52 20 46 49 4c 3a ┆(*$P*) !PROCEDURE ERROR(VAR FIL:┆
0x09e0…0a00 46 49 4c 4e 41 56 4e 29 3b 21 05 42 45 47 49 4e 05 33 20 20 57 52 49 54 45 4c 4e 28 27 46 45 4a ┆FILNAVN);! BEGIN 3 WRITELN('FEJ┆
0x0a00…0a20 4c 20 49 20 52 45 47 49 53 54 45 52 20 27 2c 46 49 4c 2c 27 20 46 45 4a 4c 4b 4f 44 45 20 27 2c ┆L I REGISTER ',FIL,' FEJLKODE ',┆
0x0a20…0a40 49 45 52 29 3b 33 14 20 20 49 43 4c 4f 53 45 28 4f 52 5a 2e 48 2c 4f 52 46 29 3b 14 14 20 20 49 ┆IER);3 ICLOSE(ORZ.H,ORF); I┆
0x0a40…0a60 43 4c 4f 53 45 28 4f 50 5a 2e 48 2c 4f 50 46 29 3b 14 14 20 20 49 43 4c 4f 53 45 28 4f 41 5a 2e ┆CLOSE(OPZ.H,OPF); ICLOSE(OAZ.┆
0x0a60…0a80 48 2c 4f 41 46 29 3b 14 14 20 20 49 43 4c 4f 53 45 28 52 47 5a 2e 48 2c 52 47 46 29 3b 14 14 20 ┆H,OAF); ICLOSE(RGZ.H,RGF); ┆
0x0a80…0aa0 20 49 43 4c 4f 53 45 28 48 49 5a 2e 48 2c 48 49 46 29 3b 14 0f 20 20 45 58 49 54 28 52 45 47 56 ┆ ICLOSE(HIZ.H,HIF); EXIT(REGV┆
0x0aa0…0ac0 45 44 4c 29 0f 04 45 4e 44 3b 04 21 50 52 4f 43 45 44 55 52 45 20 4f 46 45 4a 4c 28 56 41 52 20 ┆EDL) END; !PROCEDURE OFEJL(VAR ┆
0x0ac0…0ae0 46 49 4c 3a 46 49 4c 4e 41 56 4e 29 3b 21 0e 56 41 52 20 49 3a 49 4e 54 45 47 45 52 3b 0e 05 42 ┆FIL:FILNAVN);! VAR I:INTEGER; B┆
0x0ae0…0b00 45 47 49 4e 05 0f 20 20 47 4f 54 4f 58 59 28 31 2c 32 30 29 3b 0f 4d 20 20 57 52 49 54 45 4c 4e ┆EGIN GOTOXY(1,20); M WRITELN┆
0x0b00…0b20 28 27 52 45 47 49 53 54 45 52 46 45 4a 4c 20 27 2c 49 45 52 2c 27 20 49 20 27 2c 46 49 4c 2c 27 ┆('REGISTERFEJL ',IER,' I ',FIL,'┆
0x0b20…0b40 20 2e 20 53 49 54 55 41 54 49 4f 4e 45 4e 20 45 52 20 46 4f 52 53 5c 47 54 20 52 45 44 44 45 54 ┆ . SITUATIONEN ER FORSØGT REDDET┆
0x0b40…0b60 2e 27 29 3b 4d 2e 20 20 57 52 49 54 45 4c 4e 28 27 54 41 53 54 20 30 2c 20 48 56 49 53 20 44 45 ┆.');M. WRITELN('TAST 0, HVIS DE┆
0x0b60…0b80 52 20 53 4b 41 4c 20 46 4f 52 54 53 5b 54 54 45 53 27 29 3b 2e 37 20 20 52 45 50 45 41 54 20 47 ┆R SKAL FORTSÆTTES');.7 REPEAT G┆
0x0b80…0ba0 4f 54 4f 58 59 28 34 30 2c 32 31 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 28 49 29 20 55 4e 54 49 ┆OTOXY(40,21);READLN;READ(I) UNTI┆
0x0ba0…0bc0 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 37 1a 20 20 49 46 20 49 3c 3e 30 20 54 48 45 4e 20 45 52 ┆L IORESULT=0;7 IF I<>0 THEN ER┆
0x0bc0…0be0 52 4f 52 28 46 49 4c 29 3b 1a 0d 20 20 43 4c 45 41 52 53 43 52 45 45 4e 0d 04 45 4e 44 3b 04 06 ┆ROR(FIL); CLEARSCREEN END; ┆
0x0be0…0c00 28 2a 24 50 2a 29 06 13 50 52 4f 43 45 44 55 52 45 20 4d 41 49 4e 54 41 49 4e 3b 13 11 56 41 52 ┆(*$P*) PROCEDURE MAINTAIN; VAR┆
0x0c00…0c20 20 43 48 3a 53 54 52 49 4e 47 28 31 29 3b 11 1f 20 20 20 20 52 2c 53 55 4d 31 2c 53 55 4d 32 2c ┆ CH:STRING(1); R,SUM1,SUM2,┆
0x0c20…0c40 53 55 4d 33 2c 53 55 4d 34 3a 52 45 41 4c 3b 1f 36 20 20 20 20 4b 43 45 4e 54 2c 52 43 45 4e 54 ┆SUM3,SUM4:REAL; 6 KCENT,RCENT┆
0x0c40…0c60 2c 52 45 4e 48 45 44 2c 4b 4c 5c 4e 2c 52 4c 5c 4e 3a 41 52 52 41 59 20 28 30 2e 2e 36 29 20 4f ┆,RENHED,KLØN,RLØN:ARRAY (0..6) O┆
0x0c60…0c80 46 20 52 45 41 4c 3b 36 1b 46 55 4e 43 54 49 4f 4e 20 52 55 4e 44 28 52 3a 52 45 41 4c 29 3a 52 ┆F REAL;6 FUNCTION RUND(R:REAL):R┆
0x0c80…0ca0 45 41 4c 3b 1b 0c 56 41 52 20 52 31 3a 52 45 41 4c 3b 0c 05 42 45 47 49 4e 05 17 20 20 52 31 3a ┆EAL; VAR R1:REAL; BEGIN R1:┆
0x0ca0…0cc0 3d 54 52 55 4e 43 28 52 2f 31 30 30 30 30 2e 30 29 3b 17 11 20 20 52 31 3a 3d 52 31 2a 31 30 30 ┆=TRUNC(R/10000.0); R1:=R1*100┆
0x0cc0…0ce0 30 30 2e 30 3b 11 16 20 20 52 55 4e 44 3a 3d 52 4f 55 4e 44 28 52 2d 52 31 29 2b 52 31 16 04 45 ┆00.0; RUND:=ROUND(R-R1)+R1 E┆
0x0ce0…0d00 4e 44 3b 04 06 28 2a 24 50 2a 29 06 0f 50 52 4f 43 45 44 55 52 45 20 44 4f 49 54 3b 0f 05 42 45 ┆ND; (*$P*) PROCEDURE DOIT; BE┆
0x0d00…0d20 47 49 4e 05 22 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 52 47 5a 2e 48 2c 52 47 46 2c 52 47 50 ┆GIN " NEXTREC(RGZ.H,RGF,RGP┆
0x0d20…0d40 4f 53 54 2e 41 29 3b 22 49 20 20 20 20 20 20 49 46 20 28 49 45 52 3c 3e 2d 31 29 20 41 4e 44 20 ┆OST.A);"I IF (IER<>-1) AND ┆
0x0d40…0d60 28 49 45 52 3c 3e 2d 32 29 20 41 4e 44 20 28 49 45 52 3c 3e 2d 39 29 20 54 48 45 4e 20 45 52 52 ┆(IER<>-2) AND (IER<>-9) THEN ERR┆
0x0d60…0d80 4f 52 28 52 47 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 49 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆OR(RGZ.H.FILENAME)I; ┆
0x0d80…0da0 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 ┆ ┆
0x0da0…0dc0 20 20 20 45 4c 53 45 20 49 45 52 3a 3d 30 3b 3b 2f 20 20 20 20 20 20 57 48 49 4c 45 20 28 4f 50 ┆ ELSE IER:=0;;/ WHILE (OP┆
0x0dc0…0de0 50 4f 53 54 2e 4f 52 44 52 45 4e 52 3d 4f 52 50 4f 53 54 2e 4f 52 44 52 45 4e 52 29 20 41 4e 44 ┆POST.ORDRENR=ORPOST.ORDRENR) AND┆
0x0de0…0e00 2f 35 20 20 20 20 20 20 20 20 20 20 20 20 28 4f 50 50 4f 53 54 2e 50 52 4f 44 55 4b 54 31 4e 52 ┆/5 (OPPOST.PRODUKT1NR┆
0x0e00…0e20 3d 4f 52 50 4f 53 54 2e 50 52 4f 44 55 4b 54 31 4e 52 29 20 41 4e 44 35 40 20 20 20 20 20 20 20 ┆=ORPOST.PRODUKT1NR) AND5@ ┆
0x0e20…0e40 20 20 20 20 20 28 4f 50 50 4f 53 54 2e 50 52 4f 44 55 4b 54 32 4e 52 3d 4f 52 50 4f 53 54 2e 50 ┆ (OPPOST.PRODUKT2NR=ORPOST.P┆
0x0e40…0e60 52 4f 44 55 4b 54 32 4e 52 29 20 41 4e 44 20 28 49 45 52 3d 30 29 20 44 4f 40 0b 20 20 20 20 20 ┆RODUKT2NR) AND (IER=0) DO@ ┆
0x0e60…0e80 20 42 45 47 49 4e 0b 38 20 20 20 20 20 20 20 20 49 46 20 28 4f 50 50 4f 53 54 2e 4f 50 45 52 41 ┆ BEGIN 8 IF (OPPOST.OPERA┆
0x0e80…0ea0 54 49 4f 4e 53 4e 52 3c 3e 52 47 50 4f 53 54 2e 4f 50 45 52 41 54 49 4f 4e 53 4e 52 29 20 4f 52 ┆TIONSNR<>RGPOST.OPERATIONSNR) OR┆
0x0ea0…0ec0 38 2e 20 20 20 20 20 20 20 20 20 20 20 28 4f 50 50 4f 53 54 2e 4f 52 44 52 45 4e 52 3c 3e 52 47 ┆8. (OPPOST.ORDRENR<>RG┆
0x0ec0…0ee0 50 4f 53 54 2e 4f 52 44 52 45 4e 52 29 20 4f 52 2e 34 20 20 20 20 20 20 20 20 20 20 20 28 4f 50 ┆POST.ORDRENR) OR.4 (OP┆
0x0ee0…0f00 50 4f 53 54 2e 50 52 4f 44 55 4b 54 31 4e 52 3c 3e 52 47 50 4f 53 54 2e 50 52 4f 44 55 4b 54 31 ┆POST.PRODUKT1NR<>RGPOST.PRODUKT1┆
0x0f00…0f20 4e 52 29 20 4f 52 34 36 20 20 20 20 20 20 20 20 20 20 20 28 4f 50 50 4f 53 54 2e 50 52 4f 44 55 ┆NR) OR46 (OPPOST.PRODU┆
0x0f20…0f40 4b 54 32 4e 52 3c 3e 52 47 50 4f 53 54 2e 50 52 4f 44 55 4b 54 32 4e 52 29 20 54 48 45 4e 36 0d ┆KT2NR<>RGPOST.PRODUKT2NR) THEN6 ┆
0x0f40…0f60 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 2a 20 20 20 20 20 20 20 20 20 20 49 46 20 28 4f 50 50 ┆ BEGIN * IF (OPP┆
0x0f60…0f80 4f 53 54 2e 4f 50 45 52 41 54 49 4f 4e 53 4e 52 3c 3e 30 29 20 54 48 45 4e 2a 0f 20 20 20 20 20 ┆OST.OPERATIONSNR<>0) THEN* ┆
0x0f80…0fa0 20 20 20 20 20 42 45 47 49 4e 0f 44 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆ BEGIN D WRITELN(┆
0x0fa0…0fc0 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆LIST,'--------------------------┆
0x0fc0…0fe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 2c 44 3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--------------',D? ┆
0x0fe0…1000 20 20 20 20 20 20 20 20 20 20 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ '--------------------┆
0x1000…1020 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 3f 4b 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆--------------');?K I┆
0x1020…1040 46 20 48 49 50 4f 53 54 2e 41 4e 54 41 4c 42 45 53 54 49 4c 54 3d 30 20 54 48 45 4e 20 52 3a 3d ┆F HIPOST.ANTALBESTILT=0 THEN R:=┆
0x1040…1060 31 20 45 4c 53 45 20 52 3a 3d 48 49 50 4f 53 54 2e 41 4e 54 41 4c 42 45 53 54 49 4c 54 3b 4b 43 ┆1 ELSE R:=HIPOST.ANTALBESTILT;KC┆
0x1060…1080 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 4f 50 50 4f 53 54 2e ┆ WRITELN(LIST,OPPOST.┆
0x1080…10a0 4f 50 45 52 41 54 49 4f 4e 53 4e 52 3a 34 2c 27 20 27 3a 31 31 2c 27 52 45 41 4c 49 53 45 52 45 ┆OPERATIONSNR:4,' ':11,'REALISERE┆
0x10a0…10c0 54 27 2c 43 37 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 52 43 ┆T',C7 RC┆
0x10c0…10e0 45 4e 54 28 30 29 3a 31 32 3a 2d 32 2c 52 43 45 4e 54 28 30 29 2f 52 3a 38 3a 31 2c 37 26 20 20 ┆ENT(0):12:-2,RCENT(0)/R:8:1,7& ┆
0x10e0…1100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 4c 5c 4e 28 30 29 3a 31 ┆ RLØN(0):1┆
0x1100…1120 34 3a 32 2c 26 2a 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 52 ┆4:2,&* R┆
0x1120…1140 45 4e 48 45 44 28 30 29 3a 31 35 3a 2d 32 29 3b 2a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 57 ┆ENHED(0):15:-2);*= W┆
0x1140…1160 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 20 27 3a 31 35 2c 27 4b 41 4c 4b 55 4c 45 52 45 54 27 2c ┆RITELN(LIST,' ':15,'KALKULERET',┆
0x1160…1180 4b 43 45 4e 54 28 30 29 3a 31 32 3a 2d 32 2c 3d 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KCENT(0):12:-2,=@ ┆
0x1180…11a0 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 4f ┆ O┆
0x11a0…11c0 50 50 4f 53 54 2e 43 45 4e 54 49 4d 45 52 3a 38 2c 40 3c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PPOST.CENTIMER:8,@< ┆
0x11c0…11e0 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 ┆ ┆
0x11e0…1200 20 4b 4c 5c 4e 28 30 29 3a 31 34 3a 32 29 3b 3c 40 20 20 20 20 20 20 20 20 20 20 20 20 4b 43 45 ┆ KLØN(0):14:2);<@ KCE┆
0x1200…1220 4e 54 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 3a 3d 4b 43 45 4e 54 28 4f 41 50 4f 53 54 2e ┆NT(OAPOST.GRUPPE):=KCENT(OAPOST.┆
0x1220…1240 47 52 55 50 50 45 29 2b 4b 43 45 4e 54 28 30 29 3b 40 40 20 20 20 20 20 20 20 20 20 20 20 20 52 ┆GRUPPE)+KCENT(0);@@ R┆
0x1240…1260 43 45 4e 54 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 3a 3d 52 43 45 4e 54 28 4f 41 50 4f 53 ┆CENT(OAPOST.GRUPPE):=RCENT(OAPOS┆
0x1260…1280 54 2e 47 52 55 50 50 45 29 2b 52 43 45 4e 54 28 30 29 3b 40 3d 20 20 20 20 20 20 20 20 20 20 20 ┆T.GRUPPE)+RCENT(0);@= ┆
0x1280…12a0 20 4b 4c 5c 4e 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 3a 3d 4b 4c 5c 4e 28 4f 41 50 4f 53 ┆ KLØN(OAPOST.GRUPPE):=KLØN(OAPOS┆
0x12a0…12c0 54 2e 47 52 55 50 50 45 29 2b 4b 4c 5c 4e 28 30 29 3b 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 ┆T.GRUPPE)+KLØN(0);== ┆
0x12c0…12e0 52 4c 5c 4e 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 3a 3d 52 4c 5c 4e 28 4f 41 50 4f 53 54 ┆RLØN(OAPOST.GRUPPE):=RLØN(OAPOST┆
0x12e0…1300 2e 47 52 55 50 50 45 29 2b 52 4c 5c 4e 28 30 29 3b 3d 23 20 20 20 20 20 20 20 20 20 20 20 20 57 ┆.GRUPPE)+RLØN(0);=# W┆
0x1300…1320 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 31 39 2c 27 25 27 29 3b 23 20 20 20 20 20 20 20 20 20 ┆RITE(LIST,' ':19,'%');# ┆
0x1320…1340 20 20 20 20 49 46 20 4b 43 45 4e 54 28 30 29 3d 30 2e 30 20 54 48 45 4e 20 26 20 20 20 20 20 20 ┆ IF KCENT(0)=0.0 THEN & ┆
0x1340…1360 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 ┆ WRITE(LIST,'----------')┆
0x1360…1380 26 10 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 10 37 20 20 20 20 20 20 20 20 20 20 20 20 ┆& ELSE 7 ┆
0x1380…13a0 20 20 57 52 49 54 45 28 4c 49 53 54 2c 31 30 30 2e 30 2a 52 43 45 4e 54 28 30 29 2f 4b 43 45 4e ┆ WRITE(LIST,100.0*RCENT(0)/KCEN┆
0x13a0…13c0 54 28 30 29 3a 31 30 3a 32 29 3b 37 1f 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c ┆T(0):10:2);7 WRITE(L┆
0x13c0…13e0 49 53 54 2c 27 20 27 3a 31 32 29 3b 1f 1f 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 4c 5c ┆IST,' ':12); IF KLØ┆
0x13e0…1400 4e 28 30 29 3d 30 2e 30 20 54 48 45 4e 1f 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 ┆N(0)=0.0 THEN & WRI┆
0x1400…1420 54 45 28 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 26 10 20 20 20 20 20 20 20 20 20 ┆TE(LIST,'----------')& ┆
0x1420…1440 20 20 20 45 4c 53 45 10 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 ┆ ELSE 5 WRITE(LIS┆
0x1440…1460 54 2c 31 30 30 2e 30 2a 52 4c 5c 4e 28 30 29 2f 4b 4c 5c 4e 28 30 29 3a 31 30 3a 32 29 3b 35 1f ┆T,100.0*RLØN(0)/KLØN(0):10:2);5 ┆
0x1460…1480 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 31 32 29 3b 1f ┆ WRITE(LIST,' ':12); ┆
0x1480…14a0 2b 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 52 50 4f 53 54 2e 41 4e 54 41 4c 42 45 53 54 ┆+ IF ORPOST.ANTALBEST┆
0x14a0…14c0 49 4c 54 3d 30 2e 30 20 54 48 45 4e 2b 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 ┆ILT=0.0 THEN+( WRIT┆
0x14c0…71e0 […elided…]
0x71e0…7200 46 20 46 3c 3e 27 53 54 4f 50 27 20 54 48 45 4e 13 07 20 20 42 45 47 49 4e 07 0f 20 20 20 20 46 ┆F F<>'STOP' THEN BEGIN F┆
0x7200…7220 4e 41 56 4e 3a 3d 27 20 27 3b 0f 17 20 20 20 20 46 4e 41 56 4e 28 31 29 3a 3d 50 41 52 4d 5e 28 ┆NAVN:=' '; FNAVN(1):=PARM^(┆
0x7220…7240 31 29 3b 17 39 20 20 20 20 43 48 41 49 4e 28 27 4c 20 20 20 20 20 20 20 2a 31 27 2c 43 4f 4e 43 ┆1); 9 CHAIN('L *1',CONC┆
0x7240…7260 41 54 28 27 49 4e 54 52 45 2c 27 2c 46 2c 27 2c 27 2c 46 4e 41 56 4e 29 2c 51 55 51 29 3b 39 35 ┆AT('INTRE,',F,',',FNAVN),QUQ);95┆
0x7260…7280 20 20 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 ┆ IF IORESULT<>0 THEN WRITELN(┆
0x7280…72a0 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 35 05 20 20 45 4e 44 05 04 45 4e ┆'IORESULT ',IORESULT)5 END EN┆
0x72a0…72c0 44 2e 04 00 00 45 4e 44 50 52 4f 43 20 0d 19 32 36 30 30 20 50 52 4f 43 20 43 4f 4e 56 44 41 54 ┆D. ENDPROC 2600 PROC CONVDAT┆
0x72c0…72e0 45 28 49 31 2c 49 32 29 19 11 32 36 31 30 20 4b 30 3d 49 32 3b 49 31 24 3d 22 22 11 19 32 36 32 ┆E(I1,I2) 2610 K0=I2;I1$="" 262┆
0x72e0…7300 30 20 46 4f 52 20 49 3d 38 20 54 4f 20 31 20 53 54 45 50 20 2d 31 19 1d 32 36 32 35 20 49 31 24 ┆0 FOR I=8 TO 1 STEP -1 2625 I1$┆
0x7300…7320 28 49 29 3d 43 48 52 28 4b 30 20 4d 4f 44 20 31 30 2b 34 38 29 1d 17 32 36 33 30 20 49 46 20 49 ┆(I)=CHR(K0 MOD 10+48) 2630 IF I┆
0x7320…7340 20 4d 4f 44 20 33 3d 30 20 54 48 45 4e 20 17 0f 32 36 33 31 20 49 31 24 28 49 29 3d 22 2d 22 0f ┆ MOD 3=0 THEN 2631 I1$(I)="-" ┆
0x7340…7360 0a 32 36 33 32 20 45 4c 53 45 20 0a 11 32 36 33 33 20 4b 30 3d 4b 30 20 44 49 56 20 31 30 11 0b ┆ 2632 ELSE 2633 K0=K0 DIV 10 ┆
0x7360…7380 32 36 33 34 20 45 4e 44 49 46 20 0b 0b 32 36 39 30 20 4e 45 58 54 20 49 0b 0d 32 37 30 30 20 45 ┆2634 ENDIF 2690 NEXT I 2700 E┆
0x7380…73a0 4e 44 50 52 4f 43 20 0d 18 32 37 31 30 20 50 52 4f 43 20 43 4f 4e 56 45 52 54 28 49 31 2c 49 32 ┆NDPROC 2710 PROC CONVERT(I1,I2┆
0x73a0…73c0 29 18 17 32 37 32 30 20 49 31 24 3d 22 20 20 20 20 20 20 20 20 20 20 30 2b 22 17 13 32 37 33 30 ┆) 2720 I1$=" 0+" 2730┆
0x73c0…73e0 20 49 46 20 49 32 3c 3e 30 20 54 48 45 4e 20 13 3f 32 37 34 30 20 49 31 24 28 39 2c 31 30 29 3d ┆ IF I2<>0 THEN ?2740 I1$(9,10)=┆
0x73e0…7400 22 2c 30 22 3b 49 30 3d 41 42 53 28 49 32 29 3b 4b 30 3d 49 4e 54 28 28 49 30 2d 49 4e 54 28 49 ┆",0";I0=ABS(I2);K0=INT((I0-INT(I┆
0x7400…7420 30 29 29 2a 31 30 30 2b 30 2e 35 30 30 30 31 29 3f 1d 32 37 37 30 20 49 46 20 49 32 3c 30 20 54 ┆0))*100+0.50001)? 2770 IF I2<0 T┆
0x7420…7440 48 45 4e 20 49 31 24 28 31 32 29 3d 22 2d 22 1d 1a 32 37 38 30 20 46 4f 52 20 49 3d 31 31 20 54 ┆HEN I1$(12)="-" 2780 FOR I=11 T┆
0x7440…7460 4f 20 31 20 53 54 45 50 20 2d 31 1a 12 32 37 39 30 20 49 46 20 49 3c 3e 39 20 54 48 45 4e 20 12 ┆O 1 STEP -1 2790 IF I<>9 THEN ┆
0x7460…7480 1d 32 38 30 30 20 49 31 24 28 49 29 3d 43 48 52 28 4b 30 20 4d 4f 44 20 31 30 2b 34 38 29 1d 11 ┆ 2800 I1$(I)=CHR(K0 MOD 10+48) ┆
0x7480…74a0 32 38 31 30 20 4b 30 3d 4b 30 20 44 49 56 20 31 30 11 1e 32 38 32 30 20 49 46 20 4b 30 3d 30 20 ┆2810 K0=K0 DIV 10 2820 IF K0=0 ┆
0x74a0…74c0 41 4e 44 20 49 3c 31 30 20 54 48 45 4e 20 49 3d 30 1e 0a 32 38 33 30 20 45 4c 53 45 20 0a 0f 32 ┆AND I<10 THEN I=0 2830 ELSE 2┆
0x74c0…74e0 38 34 30 20 4b 30 3d 49 4e 54 28 49 30 29 0f 0b 32 38 35 30 20 45 4e 44 49 46 20 0b 0b 32 38 36 ┆840 K0=INT(I0) 2850 ENDIF 286┆
0x74e0…7500 30 20 4e 45 58 54 20 49 0b 0b 32 38 37 30 20 45 4e 44 49 46 20 0b 0d 32 38 38 30 20 45 4e 44 50 ┆0 NEXT I 2870 ENDIF 2880 ENDP┆
0x7500…7520 52 4f 43 20 0d 18 32 38 39 30 20 50 52 4f 43 20 50 45 52 56 45 52 54 28 49 31 2c 49 32 29 18 09 ┆ROC 2890 PROC PERVERT(I1,I2) ┆
0x7520…7540 32 39 30 30 20 49 32 3d 30 09 1a 32 39 31 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 4c 45 4e 28 49 ┆2900 I2=0 2910 FOR I=1 TO LEN(I┆
0x7540…7560 31 24 29 2d 31 1a 40 32 39 32 30 20 49 46 20 49 31 24 28 49 29 3c 3e 22 20 22 20 41 4e 44 20 49 ┆1$)-1 @2920 IF I1$(I)<>" " AND I┆
0x7560…7580 31 24 28 49 29 3c 3e 22 2c 22 20 54 48 45 4e 20 49 32 3d 31 30 2a 49 32 2b 4f 52 44 28 49 31 24 ┆1$(I)<>"," THEN I2=10*I2+ORD(I1$┆
0x7580…75a0 28 49 29 29 2d 34 38 40 0b 32 39 33 30 20 4e 45 58 54 20 49 0b 1e 32 39 34 30 20 49 46 20 49 31 ┆(I))-48@ 2930 NEXT I 2940 IF I1┆
0x75a0…75c0 24 28 49 29 3d 22 2d 22 20 54 48 45 4e 20 49 32 3d 2d 49 32 1e 0e 32 39 35 30 20 49 32 3d 49 32 ┆$(I)="-" THEN I2=-I2 2950 I2=I2┆
0x75c0…75e0 2f 31 30 30 0e 0d 32 39 36 30 20 45 4e 44 50 52 4f 43 20 0d 13 32 39 37 30 20 50 52 4f 43 20 53 ┆/100 2960 ENDPROC 2970 PROC S┆
0x75e0…7600 4b 52 49 56 42 55 4e 44 13 12 32 39 38 30 20 49 46 20 4a 36 3e 30 20 54 48 45 4e 20 12 13 32 39 ┆KRIVBUND 2980 IF J6>0 THEN 29┆
0x7600…7620 39 30 20 57 48 49 4c 45 20 4a 36 3c 4b 31 2d 31 32 13 06 33 30 30 30 20 3b 06 0c 33 30 31 30 20 ┆90 WHILE J6<K1-12 3000 ; 3010 ┆
0x7620…7640 4a 36 3d 4a 36 2b 31 0c 0e 33 30 32 30 20 45 4e 44 57 48 49 4c 45 20 0e 18 33 30 33 30 20 45 58 ┆J6=J6+1 3020 ENDWHILE 3030 EX┆
0x7640…7660 45 43 20 43 4f 4e 56 28 43 33 24 2c 47 36 2c 36 29 18 18 33 30 34 30 20 45 58 45 43 20 43 4f 4e ┆EC CONV(C3$,G6,6) 3040 EXEC CON┆
0x7660…7680 56 28 46 31 24 2c 47 37 2c 34 29 18 10 33 30 35 30 20 43 33 24 3d 43 33 24 2b 46 31 24 10 21 33 ┆V(F1$,G7,4) 3050 C3$=C3$+F1$ !3┆
0x7680…76a0 30 36 30 20 3b 54 41 42 28 31 31 29 3b 22 4c 5c 4e 4d 4f 44 54 41 47 45 52 20 22 3b 43 33 24 3b ┆060 ;TAB(11);"LØNMODTAGER ";C3$;┆
0x76a0…76c0 21 17 33 30 37 30 20 3b 55 53 49 4e 47 20 22 20 23 23 23 23 22 3a 46 38 3b 17 26 33 30 38 30 20 ┆! 3070 ;USING " ####":F8; &3080 ┆
0x76c0…76e0 3b 54 41 42 28 34 34 29 3b 22 41 52 42 45 4a 44 53 47 49 56 45 52 20 22 3b 44 33 24 28 31 2c 37 ┆;TAB(44);"ARBEJDSGIVER ";D3$(1,7┆
0x76e0…7700 29 26 06 33 30 39 30 20 3b 06 06 33 31 30 30 20 3b 06 29 33 31 31 30 20 3b 54 41 42 28 31 33 29 ┆)& 3090 ; 3100 ; )3110 ;TAB(13)┆
0x7700…7720 3b 44 31 24 28 31 2c 32 35 29 3b 54 41 42 28 34 36 29 3b 44 33 24 28 38 2c 33 32 29 29 18 33 31 ┆;D1$(1,25);TAB(46);D3$(8,32)) 31┆
0x7720…7740 32 30 20 3b 54 41 42 28 31 33 29 3b 44 31 24 28 32 36 2c 34 38 29 18 2b 33 31 33 30 20 3b 54 41 ┆20 ;TAB(13);D1$(26,48) +3130 ;TA┆
0x7740…7760 42 28 31 33 29 3b 44 31 24 28 34 39 2c 37 31 29 3b 54 41 42 28 34 36 29 3b 44 33 24 28 33 33 2c ┆B(13);D1$(49,71);TAB(46);D3$(33,┆
0x7760…7780 35 35 29 2b 3a 33 31 34 30 20 3b 54 41 42 28 31 33 29 3b 44 32 24 28 31 2c 34 29 3b 22 20 22 3b ┆55)+:3140 ;TAB(13);D2$(1,4);" ";┆
0x7780…77a0 44 32 24 28 35 2c 31 38 29 3b 54 41 42 28 34 36 29 3b 44 34 24 28 31 2c 34 29 3b 22 20 22 3b 3a ┆D2$(5,18);TAB(46);D4$(1,4);" ";:┆
0x77a0…77c0 0f 33 31 35 30 20 3b 44 34 24 28 35 2c 31 38 29 0f 0c 33 31 36 30 20 4a 36 3d 4a 36 2b 37 0c 10 ┆ 3150 ;D4$(5,18) 3160 J6=J6+7 ┆
0x77c0…77e0 33 31 37 30 20 57 48 49 4c 45 20 4a 36 3c 4b 31 10 06 33 31 38 30 20 3b 06 0c 33 31 39 30 20 4a ┆3170 WHILE J6<K1 3180 ; 3190 J┆
0x77e0…7800 36 3d 4a 36 2b 31 0c 0e 33 32 30 30 20 45 4e 44 57 48 49 4c 45 20 0e 09 33 32 31 30 20 4a 36 3d ┆6=J6+1 3200 ENDWHILE 3210 J6=┆
0x7800…7820 30 09 0b 33 32 32 30 20 45 4e 44 49 46 20 0b 0d 33 32 33 30 20 45 4e 44 50 52 4f 43 20 0d 18 33 ┆0 3220 ENDIF 3230 ENDPROC 3┆
0x7820…7840 32 34 30 20 50 52 4f 43 20 53 4b 52 49 56 48 4f 56 45 44 28 47 35 29 18 06 33 32 35 30 20 3b 06 ┆240 PROC SKRIVHOVED(G5) 3250 ; ┆
0x7840…7860 14 33 32 36 30 20 41 36 28 47 35 29 3d 41 36 28 47 35 29 2b 31 14 1f 33 32 37 30 20 3b 55 53 49 ┆ 3260 A6(G5)=A6(G5)+1 3270 ;USI┆
0x7860…7880 4e 47 20 22 20 53 49 44 45 23 23 23 23 22 3a 41 36 28 47 35 29 3b 1f 2b 33 32 38 30 20 3b 54 41 ┆NG " SIDE####":A6(G5); +3280 ;TA┆
0x7880…78a0 42 28 34 39 29 3b 22 4c 5c 4e 50 45 52 49 4f 44 45 4e 20 22 3b 41 37 24 3b 22 20 2f 20 22 3b 41 ┆B(49);"LØNPERIODEN ";A7$;" / ";A┆
0x78a0…78c0 38 24 3b 2b 10 33 32 39 30 20 43 41 53 45 20 47 35 20 4f 46 20 10 0b 33 33 30 30 20 57 48 45 4e ┆8$;+ 3290 CASE G5 OF 3300 WHEN┆
0x78c0…78e0 20 31 0b 09 33 33 31 30 20 4a 36 3d 36 09 20 33 33 32 30 20 3b 54 41 42 28 33 33 29 3b 22 4c 5c ┆ 1 3310 J6=6 3320 ;TAB(33);"LØ┆
0x78e0…7900 4e 53 50 45 43 49 46 49 4b 41 54 49 4f 4e 22 20 20 33 33 33 30 20 3b 54 41 42 28 33 33 29 3b 22 ┆NSPECIFIKATION" 3330 ;TAB(33);"┆
0x7900…7920 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 20 06 33 33 34 30 20 3b 06 43 33 33 35 30 20 ┆****************" 3340 ; C3350 ┆
0x7920…7940 3b 22 20 4c 41 20 54 45 4b 53 54 22 3b 54 41 42 28 32 36 29 3b 22 4e 55 4d 4d 45 52 20 20 20 20 ┆;" LA TEKST";TAB(26);"NUMMER ┆
0x7940…7960 20 20 53 41 4c 44 4f 20 20 20 20 45 4e 48 45 44 45 52 20 20 20 20 53 41 54 53 20 20 22 3b 43 19 ┆ SALDO ENHEDER SATS ";C ┆
0x7960…7980 33 33 36 30 20 3b 22 55 44 42 45 54 41 4c 54 2f 54 52 55 4b 4b 45 54 22 3b 19 0b 33 33 37 30 20 ┆3360 ;"UDBETALT/TRUKKET"; 3370 ┆
0x7980…79a0 57 48 45 4e 20 32 0b 09 33 33 38 30 20 4a 36 3d 35 09 26 33 33 39 30 20 3b 54 41 42 28 32 39 29 ┆WHEN 2 3380 J6=5 &3390 ;TAB(29)┆
0x79a0…79c0 3b 22 46 45 52 49 45 2d 20 4f 47 20 53 48 2d 4f 50 47 5c 52 45 4c 53 45 22 26 26 33 34 30 30 20 ┆;"FERIE- OG SH-OPGØRELSE"&&3400 ┆
0x79c0…79e0 3b 54 41 42 28 32 39 29 3b 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;TAB(29);"**********************┆
0x79e0…7a00 22 26 06 33 34 31 30 20 3b 06 0d 33 34 32 30 20 45 4e 44 43 41 53 45 20 0d 0d 33 34 33 30 20 45 ┆"& 3410 ; 3420 ENDCASE 3430 E┆
0x7a00…7a20 4e 44 50 52 4f 43 20 0d 0f 33 34 34 30 20 50 52 4f 43 20 4e 5b 53 54 45 0f 0c 33 34 35 30 20 52 ┆NDPROC 3440 PROC NÆSTE 3450 R┆
0x7a20…7a40 45 50 45 41 54 20 0c 0c 33 34 36 30 20 46 38 3d 46 38 2b 31 0c 09 33 34 37 30 20 48 31 3d 31 09 ┆EPEAT 3460 F8=F8+1 3470 H1=1 ┆
0x7a40…7a60 14 33 34 38 30 20 49 46 20 46 38 3c 3d 49 39 20 54 48 45 4e 20 14 16 33 34 39 30 20 45 58 45 43 ┆ 3480 IF F8<=I9 THEN 3490 EXEC┆
0x7a60…7a80 20 49 4e 4c 5c 4e 4d 4f 44 28 46 38 29 16 1e 33 35 30 30 20 49 46 20 41 39 24 3c 3e 44 32 24 28 ┆ INLØNMOD(F8) 3500 IF A9$<>D2$(┆
0x7a80…7aa0 32 31 29 20 54 48 45 4e 20 48 31 3d 30 1e 2d 33 35 31 30 20 49 46 20 42 30 24 3d 22 41 22 20 41 ┆21) THEN H1=0 -3510 IF B0$="A" A┆
0x7aa0…7ac0 4e 44 20 44 32 24 28 32 34 2c 32 35 29 3e 22 38 39 22 20 54 48 45 4e 20 48 31 3d 30 2d 2d 33 35 ┆ND D2$(24,25)>"89" THEN H1=0--35┆
0x7ac0…7ae0 32 30 20 49 46 20 42 30 24 3d 22 46 22 20 41 4e 44 20 44 32 24 28 32 34 2c 32 35 29 3c 22 39 30 ┆20 IF B0$="F" AND D2$(24,25)<"90┆
0x7ae0…7b00 22 20 54 48 45 4e 20 48 31 3d 30 2d 0b 33 35 33 30 20 45 4e 44 49 46 20 0b 0f 33 35 34 30 20 55 ┆" THEN H1=0- 3530 ENDIF 3540 U┆
0x7b00…7b20 4e 54 49 4c 20 48 31 3e 30 0f 0d 33 35 35 30 20 45 4e 44 50 52 4f 43 20 0d 15 33 35 36 30 20 50 ┆NTIL H1>0 3550 ENDPROC 3560 P┆
0x7b20…7b40 52 4f 43 20 42 45 52 45 47 4e 46 45 52 49 45 15 17 33 35 37 30 20 45 58 45 43 20 53 4b 52 49 56 ┆ROC BEREGNFERIE 3570 EXEC SKRIV┆
0x7b40…7b60 48 4f 56 45 44 28 32 29 17 1d 33 35 38 30 20 49 46 20 4b 32 3d 30 20 54 48 45 4e 20 45 58 45 43 ┆HOVED(2) 3580 IF K2=0 THEN EXEC┆
0x7b60…7b80 20 49 4e 44 54 5b 4c 1d 0a 33 35 38 35 20 4b 34 3d 48 31 0a 20 33 35 39 30 20 49 46 20 41 34 28 ┆ INDTÆL 3585 K4=H1 3590 IF A4(┆
0x7b80…7ba0 4b 33 29 3e 48 31 20 54 48 45 4e 20 4b 34 3d 41 34 28 4b 33 29 20 0a 33 35 39 35 20 4b 35 3d 48 ┆K3)>H1 THEN K4=A4(K3) 3595 K5=H┆
0x7ba0…7bc0 36 0a 28 33 36 34 30 20 49 46 20 41 35 28 4b 33 29 3c 48 36 20 4f 52 20 48 36 3d 30 20 54 48 45 ┆6 (3640 IF A5(K3)<H6 OR H6=0 THE┆
0x7bc0…7be0 4e 20 4b 35 3d 41 35 28 4b 33 29 28 1d 33 36 39 30 20 4b 36 3d 4b 35 20 4d 4f 44 20 31 30 30 2d ┆N K5=A5(K3)( 3690 K6=K5 MOD 100-┆
0x7be0…7c00 4b 34 20 4d 4f 44 20 31 30 30 1d 35 33 37 30 30 20 4b 36 3d 4b 36 2b 33 30 2a 28 4b 35 20 44 49 ┆K4 MOD 100 53700 K6=K6+30*(K5 DI┆
0x7c00…7c20 56 20 31 30 30 20 4d 4f 44 20 31 30 30 2d 4b 34 20 44 49 56 20 31 30 30 20 4d 4f 44 20 31 30 30 ┆V 100 MOD 100-K4 DIV 100 MOD 100┆
0x7c20…7c40 29 35 1e 33 37 30 35 20 4b 37 3d 49 4e 54 28 32 2a 49 37 2a 4b 36 2f 33 36 35 2b 30 2e 35 29 2f ┆)5 3705 K7=INT(2*I7*K6/365+0.5)/┆
0x7c40…7c60 32 1e 2a 33 37 31 30 20 4b 36 3d 4b 36 2b 33 36 35 2a 28 4b 35 20 44 49 56 20 31 30 30 30 30 2d ┆2 *3710 K6=K6+365*(K5 DIV 10000-┆
0x7c60…7c80 4b 34 20 44 49 56 20 31 30 30 30 30 29 2a 19 33 37 32 30 20 49 46 20 41 39 24 3d 22 31 22 20 54 ┆K4 DIV 10000)* 3720 IF A9$="1" T┆
0x7c80…7ca0 48 45 4e 20 4b 37 3d 30 19 19 33 37 37 30 20 45 58 45 43 20 43 4f 4e 56 45 52 54 28 43 33 24 2c ┆HEN K7=0 3770 EXEC CONVERT(C3$,┆
0x7ca0…7cc0 4b 37 29 19 10 33 37 38 30 20 43 34 24 3d 43 35 24 28 34 34 29 10 1a 33 37 39 30 20 45 58 45 43 ┆K7) 3780 C4$=C5$(44) 3790 EXEC┆
0x7cc0…7ce0 20 43 28 30 2c 43 33 24 2c 43 34 24 2c 46 31 24 29 1a 10 33 38 30 30 20 43 34 24 3d 43 35 24 28 ┆ C(0,C3$,C4$,F1$) 3800 C4$=C5$(┆
0x7ce0…7d00 32 39 29 10 1a 33 38 31 30 20 45 58 45 43 20 43 28 30 2c 46 31 24 2c 43 34 24 2c 46 31 24 29 1a ┆29) 3810 EXEC C(0,F1$,C4$,F1$) ┆
0x7d00…7d20 16 33 38 32 30 20 43 35 24 28 32 39 29 3d 42 33 24 28 32 3a 31 31 29 16 12 33 38 33 30 20 49 46 ┆ 3820 C5$(29)=B3$(2:11) 3830 IF┆
0x7d20…7d40 20 4b 33 3d 33 20 54 48 45 4e 20 12 19 33 38 34 30 20 45 58 45 43 20 43 4f 4e 56 45 52 54 28 43 ┆ K3=3 THEN 3840 EXEC CONVERT(C┆
0x7d40…7d60 33 24 2c 49 37 29 19 1a 33 38 35 30 20 45 58 45 43 20 43 28 34 2c 46 31 24 2c 43 33 24 2c 43 34 ┆3$,I7) 3850 EXEC C(4,F1$,C3$,C4┆
0x7d60…7d80 24 29 1a 19 33 38 36 30 20 49 46 20 53 49 3d 32 20 54 48 45 4e 20 46 31 24 3d 43 33 24 19 0b 33 ┆$) 3860 IF SI=2 THEN F1$=C3$ 3┆
0x7d80…7da0 38 37 30 20 45 4e 44 49 46 20 0b 16 33 38 38 30 20 43 35 24 28 34 34 29 3d 46 31 24 28 32 3a 31 ┆870 ENDIF 3880 C5$(44)=F1$(2:1┆
0x7da0…7dc0 31 29 16 43 33 38 39 30 20 3b 22 20 46 45 52 49 45 4b 4f 44 45 20 22 3b 44 32 24 28 32 32 29 3b ┆1) C3890 ;" FERIEKODE ";D2$(22);┆
0x7dc0…7de0 22 20 4f 52 2d 4b 4f 44 45 20 22 3b 44 32 24 28 32 34 2c 32 35 29 3b 22 20 46 41 47 47 52 2d 4b ┆" OR-KODE ";D2$(24,25);" FAGGR-K┆
0x7de0…7e00 4f 44 45 22 3b 48 35 43 1a 33 39 31 30 20 45 58 45 43 20 43 4f 4e 56 44 41 54 45 28 43 34 24 2c ┆ODE";H5C 3910 EXEC CONVDATE(C4$,┆
0x7e00…7e20 4b 34 29 1a 20 33 39 32 30 20 3b 22 20 41 4e 53 41 54 20 46 52 41 20 22 3b 43 34 24 3b 22 20 54 ┆K4) 3920 ;" ANSAT FRA ";C4$;" T┆
0x7e20…7e40 49 4c 20 22 3b 20 1a 33 39 33 30 20 45 58 45 43 20 43 4f 4e 56 44 41 54 45 28 43 34 24 2c 4b 35 ┆IL "; 3930 EXEC CONVDATE(C4$,K5┆
0x7e40…7e60 29 1a 1a 33 39 34 30 20 45 58 45 43 20 43 28 33 2c 46 31 24 2c 42 35 24 2c 43 33 24 29 1a 22 33 ┆) 3940 EXEC C(3,F1$,B5$,C3$) "3┆
0x7e60…7e80 39 34 35 20 49 46 20 43 33 24 28 38 29 3d 22 20 22 20 54 48 45 4e 20 43 33 24 28 38 29 3d 22 30 ┆945 IF C3$(8)=" " THEN C3$(8)="0┆
0x7e80…7ea0 22 22 3d 33 39 35 30 20 3b 43 34 24 3b 22 20 46 45 52 49 45 44 41 47 45 20 22 3b 46 31 24 28 37 ┆""=3950 ;C4$;" FERIEDAGE ";F1$(7┆
0x7ea0…7ec0 2c 31 30 29 3b 22 20 48 45 52 41 46 20 22 3b 43 33 24 28 38 29 3b 22 20 4c 5c 52 44 41 47 45 22 ┆,10);" HERAF ";C3$(8);" LØRDAGE"┆
0x7ec0…7ee0 3d 06 33 39 36 30 20 3b 06 47 33 39 37 30 20 3b 22 20 4c 41 20 54 45 4b 53 54 22 3b 54 41 42 28 ┆= 3960 ; G3970 ;" LA TEKST";TAB(┆
0x7ee0…7f00 33 38 29 3b 22 53 41 4c 44 4f 20 20 20 20 45 4e 48 45 44 45 52 20 20 20 20 53 41 54 53 20 20 55 ┆38);"SALDO ENHEDER SATS U┆
0x7f00…7f20 44 42 45 54 41 4c 54 2f 54 52 55 4b 4b 45 54 22 3b 47 2a 33 39 39 30 20 49 46 20 43 35 24 28 31 ┆DBETALT/TRUKKET";G*3990 IF C5$(1┆
0x7f20…7f40 36 2c 31 31 29 3d 22 2b 22 20 54 48 45 4e 20 43 35 24 28 31 36 2c 31 31 29 3d 22 20 22 2a 33 34 ┆6,11)="+" THEN C5$(16,11)=" "*34┆
0x7f40…7f60 30 30 30 20 3b 54 41 42 28 35 29 3b 22 46 45 52 49 45 42 45 52 45 54 54 20 4c 5c 4e 22 3b 54 41 ┆000 ;TAB(5);"FERIEBERETT LØN";TA┆
0x7f60…7f80 42 28 34 32 29 3b 22 30 20 22 3b 43 35 24 28 31 36 29 33 16 34 30 31 30 20 43 35 24 28 31 36 29 ┆B(42);"0 ";C5$(16)3 4010 C5$(16)┆
0x7f80…7fa0 3d 42 33 24 28 32 3a 31 31 29 16 14 34 30 32 30 20 45 58 45 43 20 49 4e 44 41 52 54 28 39 30 29 ┆=B3$(2:11) 4020 EXEC INDART(90)┆
0x7fa0…7fc0 14 17 34 30 32 35 20 45 58 45 43 20 4f 50 28 38 2c 43 35 24 28 32 30 29 29 17 23 34 30 33 30 20 ┆ 4025 EXEC OP(8,C5$(20)) #4030 ┆
0x7fc0…7fe0 46 30 24 28 34 32 29 3d 22 30 22 3b 46 30 24 28 34 34 2c 35 34 29 3d 43 35 24 28 32 30 29 23 11 ┆F0$(42)="0";F0$(44,54)=C5$(20)# ┆
0x7fe0…8000 34 30 34 30 20 45 58 45 43 20 4f 55 54 4c 49 4e 45 11 14 34 30 35 30 20 45 58 45 43 20 49 4e 44 ┆4040 EXEC OUTLINE 4050 EXEC IND┆
0x8000…8020 41 52 54 28 39 31 29 14 17 34 30 35 35 20 45 58 45 43 20 4f 50 28 39 2c 43 35 24 28 31 37 29 29 ┆ART(91) 4055 EXEC OP(9,C5$(17))┆
0x8020…8040 17 23 34 30 36 30 20 46 30 24 28 34 32 29 3d 22 30 22 3b 46 30 24 28 34 34 2c 35 34 29 3d 43 35 ┆ #4060 F0$(42)="0";F0$(44,54)=C5┆
0x8040…8060 24 28 31 37 29 23 11 34 30 37 30 20 45 58 45 43 20 4f 55 54 4c 49 4e 45 11 12 34 30 38 30 20 49 ┆$(17)# 4070 EXEC OUTLINE 4080 I┆
0x8060…8080 46 20 48 30 3e 30 20 54 48 45 4e 20 12 19 34 30 39 30 20 45 58 45 43 20 43 4f 4e 56 45 52 54 28 ┆F H0>0 THEN 4090 EXEC CONVERT(┆
0x8080…80a0 43 33 24 2c 48 30 29 19 0a 34 31 30 30 20 45 4c 53 45 20 0a 16 34 31 31 30 20 4b 38 3d 49 4e 54 ┆C3$,H0) 4100 ELSE 4110 K8=INT┆
0x80a0…80c0 28 47 39 2a 31 32 2f 33 36 35 29 16 19 34 31 32 30 20 45 58 45 43 20 43 4f 4e 56 45 52 54 28 43 ┆(G9*12/365) 4120 EXEC CONVERT(C┆
0x80c0…80e0 34 24 2c 4b 38 29 19 10 34 31 32 35 20 46 31 24 3d 43 35 24 28 34 34 29 10 1a 34 31 33 30 20 45 ┆4$,K8) 4125 F1$=C5$(44) 4130 E┆
0x80e0…8100 58 45 43 20 43 28 32 2c 46 31 24 2c 43 34 24 2c 43 33 24 29 1a 0b 34 31 34 30 20 45 4e 44 49 46 ┆XEC C(2,F1$,C4$,C3$) 4140 ENDIF┆
0x8100…8120 20 0b 40 34 31 35 30 20 42 31 24 3d 43 35 24 28 32 30 29 3b 43 34 24 3d 43 35 24 28 31 37 29 3b ┆ @4150 B1$=C5$(20);C4$=C5$(17);┆
0x8120…8140 43 35 24 28 32 30 29 3d 42 33 24 28 32 3a 31 31 29 3b 43 35 24 28 31 37 29 3d 42 33 24 28 32 3a ┆C5$(20)=B3$(2:11);C5$(17)=B3$(2:┆
0x8140…8160 31 31 29 40 1a 34 31 39 30 20 45 58 45 43 20 43 28 30 2c 42 31 24 2c 43 34 24 2c 42 31 24 29 1a ┆11)@ 4190 EXEC C(0,B1$,C4$,B1$) ┆
0x8160…8180 17 34 32 30 30 20 45 58 45 43 20 4f 50 54 5b 4c 28 33 34 2c 42 31 24 29 17 14 34 32 33 30 20 45 ┆ 4200 EXEC OPTÆL(34,B1$) 4230 E┆
0x8180…81a0 58 45 43 20 49 4e 44 41 52 54 28 38 32 29 14 17 34 32 33 35 20 46 30 24 28 33 33 2c 34 33 29 3d ┆XEC INDART(82) 4235 F0$(33,43)=┆
0x81a0…81c0 43 35 24 28 33 34 29 17 29 34 32 34 30 20 46 30 24 28 36 34 2b 28 42 31 24 28 31 32 29 3d 22 2d ┆C5$(34) )4240 F0$(64+(B1$(12)="-┆
0x81c0…81e0 22 29 2a 36 3a 31 30 29 3d 42 31 24 28 32 3a 31 30 29 29 11 34 32 35 30 20 45 58 45 43 20 4f a7 ┆")*6:10)=B1$(2:10)) 4250 EXEC O ┆