DataMuseum.dk

top - download

    Length: 1248 (0x4e0)
    Notes: Mikados_J
    Names: »FARVDESC.J«

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »FARVDESC.J« 

Default Hex Dump

0x000…020 2f 78 02 4e 52 42 49 4c 50 47 06 0a 00 00 01 00 17 00 01 00 03 00 00 00 08 00 00 00 08 46 61 72   ┆/x NRBILPG                   Far┆
0x020…040 76 65 6e 72 3a 00 d4 00 01 f9 0d 00 12 70 73 0c 53 4b 5b 52 4d 42 49 4c 50 47 06 0a 00 00 00 00   ┆venr:        ps SKÆRMBILPG      ┆
0x040…060 0f 00 10 10 00 0a 00 00 00 20 00 00 00 00 00 00 e9 a6 0a 4f 75 74 70 75 74 2d 66 69 6c 00 d2 13   ┆                   Output-fil   ┆
0x060…080 9e 00 e9 d2 16 9e 00 d5 84 b9 0c 01 d2 1d 06 28 31 2d 31 30 29 10 d2 1c d5 84 bb a5 82 cf a6 10   ┆               (1-10)           ┆
0x080…0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b7 04 a1 05 d5 84 bb ce 07 d5 84 bc a5 82 cf 20   ┆                                ┆
0x0a0…0c0 aa 50 d5 84 bd a5 82 cf 01 82 eb 01 01 95 82 be bf d5 84 be a6 0a 4c 20 20 20 20 20 20 20 2a 31   ┆ P                    L       *1┆
0x0c0…0e0 01 00 06 00 00 00 00 00 01 00 01 00 4f 56 45 44 3a 50 32 2c 09 d2 01 00 00 00 01 00 0a 00 01 00   ┆            OVED:P2,            ┆
0x0e0…100 05 54 45 4b 53 54 1e d5 84 bf 00 00 01 00 17 00 01 00 05 00 00 00 00 00 01 00 08 46 61 72 76 65   ┆ TEKST                     Farve┆
0x100…120 20 20 3a 00 e9 9e 22 00 d2 0d 9e 00 e9 d2 16 9e 00 c6 81 52 00 d2 06 c1 00 0f b9 02 d8 00 ec 00   ┆  :   "            R            ┆
0x120…140 64 01 53 01 c5 01 3e 03 14 07 06 00 1b 00 6a 03 01 00 70 03 48 07 84 0a c8 0c 5c 0d d0 12 50 15   ┆d S   >       j   p H     Ø   P ┆
0x140…160 f8 17 74 1a 9e 1d 8e 19 f8 21 32 22 09 28 33 30 20 74 65 67 6e 29 50 34 1e 2d 5c 3b 2c 00 00 16   ┆  t      !2" (30 tegn)P4 -Ø;,   ┆
0x160…180 c6 83 61 a5 05 d2 1e d5 84 bf 9e 22 00 cb a1 21 d5 84 bf e9 a6 09 49 4f 52 45 53 55 4c 54 20 00   ┆  a        "   !      IORESULT  ┆
0x180…1a0 d2 13 9e 00 e9 9e 22 00 d2 0d 9e 00 e9 d2 16 9e 00 c6 d8 00 01 00 05 54 45 4b 53 54 1e d5 84 bf   ┆      "                TEKST    ┆
0x1a0…1c0 00 00 01 00 17 00 01 00 05 00 00 00 00 00 01 00 08 46 61 72 76 65 20 20 3a 00 e9 9e 22 00 d2 0d   ┆                 Farve  :   "   ┆
0x1c0…1e0 9e 00 e9 d2 16 9e 00 c6 81 52 00 d2 06 c1 00 0f b9 02 d8 00 ec 00 64 01 53 01 c5 01 3e 03 14 07   ┆         R            d S   >   ┆
0x1e0…200 06 00 1b 00 6a 03 01 00 70 03 48 07 84 0a c8 0c 5c 0d d0 12 50 15 f8 17 74 1a 9e 1d 8e 19 f8 21   ┆    j   p H     Ø   P   t      !┆
0x200…220 32 22 09 28 33 30 20 74 65 67 6e 29 50 34 1e 2d 5c 3b 2c 00 00 16 c6 83 61 a5 05 d2 1e d5 84 bf   ┆2" (30 tegn)P4 -Ø;,     a       ┆
0x220…240 9e 22 00 cb a1 21 d5 84 bf e9 a6 09 49 4f 52 45 53 55 4c 54 20 00 d2 13 9e 00 e9 9e 22 00 d2 0d   ┆ "   !      IORESULT        "   ┆
0x240…260 9e 00 e9 d2 16 9e 00 c6 d8 00 ec 00 64 01 53 01 c5 01 3e 03 05 00 1e 00 00 00 03 00 d5 79 d5 79   ┆            d S   >          y y┆
0x260…280 04 4b 4f 44 45 0a c8 0c 5c 0d 01 00 01 00 17 00 01 00 07 00 00 00 00 00 01 00 08 4b 6f 64 65 20   ┆ KODE   Ø                  Kode ┆
0x280…2a0 20 20 3a 2c c6 34 94 2d d2 3b 2c 00 00 16 c6 83 61 a5 05 d2 1e d5 84 bf 9e 22 00 cb a1 21 d5 84   ┆  :, 4 - ;,     a        "   !  ┆
0x2a0…2c0 bf e9 a6 09 49 4f 52 45 53 55 4c 54 20 00 d2 13 9e 00 e9 9e 22 00 d2 0d 9e 00 e9 d2 16 9e 00 c6   ┆    IORESULT        "           ┆
0x2c0…2e0 81 52 00 d2 06 c1 00 0f b9 02 20 20 24 28 30 3a 73 74 61 6e 64 61 72 64 2c 20 31 3a 73 70 65 63   ┆ R          $(0:standard, 1:spec┆
0x2e0…300 69 65 6c 20 66 6f 72 73 74 7b 72 6b 6e 69 6e 67 29 20 20 20 20 45 4e 44 0d 05 20 20 45 4e 44 05   ┆iel forstærkning)    END    END ┆
0x300…320 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 4d 41 49 4e 54 02 00   ┆ END;  (*$P*)  PROCEDURE MAINT  ┆
0x320…340 06 00 00 00 00 00 52 20 01 00 3a 53 54 52 49 4e 47 28 31 29 3b 11 00 00 00 00 01 00 4e 48 45 44   ┆      R   :STRING(1);       NHED┆
0x340…360 45 52 2c 43 45 4e 54 49 4d 45 52 3a 49 4e 54 45 47 45 52 3b 1d 0d 20 20 20 20 4c 5c 4e 3a 52 45   ┆ER,CENTIMER:INTEGER;      LØN:RE┆
0x360…380 41 4c 3b 0d 1b 46 55 4e 43 54 49 4f 4e 20 52 55 4e 44 28 52 3a 52 45 41 4c 29 3a 52 45 41 4c 3b   ┆AL;  FUNCTION RUND(R:REAL):REAL;┆
0x380…3a0 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 3d 54 52 55   ┆  VAR R1:REAL;  BEGIN    R1:=TRU┆
0x3a0…3c0 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 30 30 2e 30   ┆NC(R/10000.0);    R1:=R1*10000.0┆
0x3c0…3e0 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 4e 44 3b 04   ┆;    RUND:=ROUND(R-R1)+R1  END; ┆
0x3e0…400 05 42 45 47 49 4e 05 0e 20 20 00 ff 00 ff 00 ff 00 ff 01 00 3a 53 54 52 49 4e 47 28 31 29 00 00   ┆ BEGIN              :STRING(1)  ┆
0x400…420 00 00 00 00 01 00 4e 48 45 44 45 52 2c 43 45 4e 54 49 4d 45 52 3a 49 4e 54 45 47 45 52 3b 1d 0d   ┆      NHEDER,CENTIMER:INTEGER;  ┆
0x420…440 20 20 20 20 4c 5c 4e 3a 52 45 41 4c 3b 0d 1b 46 55 4e 43 54 49 4f 4e 20 52 55 4e 44 28 52 3a 52   ┆    LØN:REAL;  FUNCTION RUND(R:R┆
0x440…460 45 41 4c 29 3a 52 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   ┆EAL):REAL;  VAR R1:REAL;  BEGIN ┆
0x460…480 17 20 20 52 31 3a 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   ┆   R1:=TRUNC(R/10000.0);    R1:=┆
0x480…4a0 52 31 2a 31 30 30 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   ┆R1*10000.0;    RUND:=ROUND(R-R1)┆
0x4a0…4c0 2b 52 31 16 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 0e 20 20 00 ff 00 ff 00 ff 00 ff 00 00 00 00   ┆+R1  END;  BEGIN                ┆
0x4c0…4e0 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   ┆                                ┆