|
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: 7648 (0x1de0)
Notes: Mikados_J
Names: »ORDRDESC.J«
└─⟦65d77fd29⟧ Bits:30009010 INDUPERM P2
└─⟦this⟧ »ORDRDESC.J«
0x0000…0020 27 78 00 00 01 00 01 00 01 00 01 00 00 00 08 00 01 00 07 4f 52 44 52 45 4e 52 00 03 72 00 c0 02 ┆'x ORDRENR r ┆
0x0020…0040 34 03 80 00 d4 00 d4 00 01 f9 1d 00 07 70 73 0c d2 13 9e 00 e9 d2 16 9e 00 d5 84 2d e9 a6 17 34 ┆4 ps - 4┆
0x0040…0060 20 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 64 61 74 61 66 69 6c 00 d2 13 9e 00 e9 d2 16 9e 00 ┆ Oprettelse af datafil ┆
0x0060…0080 d5 84 2e e9 07 34 20 43 49 46 52 45 74 65 72 75 64 73 6b 72 69 66 74 20 61 66 20 66 65 6c 74 62 ┆ . 4 CIFREterudskrift af feltb┆
0x0080…00a0 65 73 6b 72 69 76 65 6c 73 65 00 d2 13 9e 00 e9 d2 16 9e 00 d5 84 2f e9 a6 08 56 7b 6c 67 20 30 ┆eskrivelse / Vælg 0┆
0x00a0…00c0 2d 35 00 d2 13 9e 00 e9 d2 16 9e 00 d5 84 30 d5 84 31 0c 06 d2 1d 11 00 04 00 00 00 00 00 d5 84 ┆-5 0 1 ┆
0x00c0…00e0 01 00 a5 27 00 00 e8 03 0f 27 00 c4 a7 27 05 c8 84 a1 f4 d5 84 34 fd 78 00 00 01 00 02 00 01 00 ┆ ' ' ' 4 x ┆
0x00e0…0100 02 00 00 00 08 00 01 00 09 50 52 4f 44 55 4b 54 4e 52 37 d5 84 38 ee ab 08 d5 84 39 08 ab 07 d5 ┆ PRODUKTNR7 8 9 ┆
0x0100…0120 84 3a ce 08 d5 84 3b ce 0a d5 84 3c d5 84 3d e8 d2 15 9e 00 d5 84 3e 01 ab 27 a7 28 cc 83 5c a7 ┆ : ; < = > ' ( Ø ┆
0x0120…0140 27 ca 83 5c c8 a1 15 d5 84 3f a5 09 a7 27 01 95 a4 01 ce 0b a7 27 01 82 ab 27 07 36 20 43 49 46 ┆' Ø ? ' ' ' 6 CIF┆
0x0140…0160 52 45 9e 00 d5 84 40 e8 a5 27 d2 0c 9e 00 d5 84 41 a7 27 01 91 cb a1 05 d5 84 41 ce 0a a7 27 01 ┆RE @ ' A ' A ' ┆
0x0160…0180 91 c3 a1 f0 d5 84 43 ef ab 07 b9 28 d5 84 45 ee 07 c4 a1 05 d5 84 45 ce 02 b9 19 d5 84 46 ce 15 ┆ C ( E E F ┆
0x0180…01a0 fd 78 00 00 01 00 02 00 01 00 02 00 00 00 08 00 01 00 09 50 52 4f 44 55 4b 54 4e 52 37 d5 84 38 ┆ x PRODUKTNR7 8┆
0x01a0…01c0 ee ab 08 d5 84 39 08 ab 07 d5 84 3a ce 08 d5 84 3b ce 0a d5 84 3c d5 84 3d e8 d2 15 9e 00 d5 84 ┆ 9 : ; < = ┆
0x01c0…01e0 3e 01 ab 27 a7 28 cc 83 5c a7 27 ca 83 5c c8 a1 15 d5 84 3f a5 09 a7 27 01 95 a4 01 ce 0b a7 27 ┆> ' ( Ø ' Ø ? ' '┆
0x01e0…0200 01 82 ab 27 07 36 20 43 49 46 52 45 9e 00 d5 84 40 e8 a5 27 d2 0c 9e 00 d5 84 41 a7 27 01 91 cb ┆ ' 6 CIFRE @ ' A ' ┆
0x0200…0220 a1 05 d5 84 41 ce 0a a7 27 01 91 c3 a1 f0 d5 84 43 ef ab 07 b9 28 d5 84 45 ee 07 c4 a1 05 d5 84 ┆ A ' C ( E ┆
0x0220…0240 45 ce 02 b9 19 d5 84 46 ce 15 b9 12 ac 13 01 00 05 00 b9 0a b0 00 12 00 06 00 00 00 01 00 a7 27 ┆E F '┆
0x0240…0260 01 00 a1 ea 01 00 0a 00 00 00 63 00 0f 27 0a 4f 75 74 70 75 74 2d 01 00 00 00 01 00 03 00 01 00 ┆ c ' Output- ┆
0x0260…0280 03 00 00 00 00 00 01 00 0d 41 4e 54 41 4c 20 42 45 53 54 49 4c 54 4d a5 82 ca a6 10 20 20 20 20 ┆ ANTAL BESTILTM ┆
0x0280…02a0 20 20 20 20 20 20 20 20 20 20 20 20 b7 04 a1 05 d5 84 4d ce 06 d5 84 4e a5 82 ca 20 aa 50 d5 84 ┆ M N P ┆
0x02a0…02c0 4f a5 82 ca 01 82 eb 01 01 95 82 be bf d5 84 50 a6 0a 4c 20 20 20 20 20 20 20 00 31 00 cc 83 5c ┆O P L 1 Ø┆
0x02c0…02e0 c6 83 5c a6 09 48 4f 56 45 44 3a 50 32 2c 09 d2 17 c6 83 5c a5 82 ca 59 d2 17 c6 83 5c a5 05 d2 ┆ Ø HOVED:P2, Ø Y Ø ┆
0x02e0…0300 1e d5 84 51 9e 22 00 cb a1 21 d5 84 51 e9 a6 09 49 4f 52 45 53 55 4c 54 20 00 d2 13 9e 00 e9 9e ┆ Q " ! Q IORESULT ┆
0x0300…0320 01 00 00 00 01 00 03 00 01 00 03 00 00 00 00 00 01 00 0d 41 4e 54 41 4c 20 42 45 53 54 49 4c 54 ┆ ANTAL BESTILT┆
0x0320…0340 4d a5 82 ca a6 10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b7 04 a1 05 d5 84 4d ce 06 d5 ┆M M ┆
0x0340…0360 84 4e a5 82 ca 20 aa 50 d5 84 4f a5 82 ca 01 82 eb 01 01 95 82 be bf d5 84 50 a6 0a 4c 20 20 20 ┆ N P O P L ┆
0x0360…0380 20 20 20 20 00 31 00 cc 83 5c c6 83 5c a6 09 48 4f 56 45 44 3a 50 32 2c 09 d2 17 c6 83 5c a5 82 ┆ 1 Ø Ø HOVED:P2, Ø ┆
0x0380…03a0 ca 59 d2 17 c6 83 5c a5 05 d2 1e d5 84 51 9e 22 00 cb a1 21 d5 84 51 e9 a6 09 49 4f 52 45 53 55 ┆ Y Ø Q " ! Q IORESU┆
0x03a0…03c0 4c 54 20 00 d2 13 9e 00 e9 9e 22 00 d2 0d 9e 00 e9 d2 16 9e 00 c6 01 00 0a 00 00 00 02 00 00 00 ┆LT " ┆
0x03c0…03e0 01 00 00 00 01 00 04 00 01 00 04 00 00 00 00 00 01 00 0d 4d 41 54 45 52 49 41 4c 45 50 52 49 53 ┆ MATERIALEPRIS┆
0x03e0…0400 3c 10 8c 12 30 15 a4 17 cc 1a c0 16 24 1f 5e 1f b6 1f 80 20 cc 25 6a 26 2c 29 44 2f 96 2a 2a 00 ┆< 0 $ ^ %j&,)D/ ** ┆
0x0400…0420 00 15 d2 17 c6 83 5c a5 05 d2 1e d5 84 51 9e 22 00 cb a1 21 d5 84 51 e9 a6 09 49 4f 52 45 53 55 ┆ Ø Q " ! Q IORESU┆
0x0420…0440 4c 54 20 00 00 13 9e 00 e9 9e 22 00 d2 0d 9e 00 e9 d2 16 9e 00 c6 81 52 00 d2 06 c1 00 d2 b9 02 ┆LT " R ┆
0x0440…0460 d8 00 ec 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccc┆
0x0460…0480 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 02 00 0a 00 00 00 02 00 02 00 ┆cccccccccccccccccccccc ┆
0x0480…04a0 01 00 00 00 01 00 05 00 01 00 05 00 00 00 00 00 01 00 09 53 41 4c 47 53 50 52 49 53 30 95 0e 00 ┆ SALGSPRIS0 ┆
0x04a0…04c0 0a 00 00 00 00 00 01 00 01 00 00 00 01 00 06 00 01 00 00 00 28 00 04 00 28 00 14 00 03 00 04 00 ┆ ( ( ┆
0x04c0…04e0 01 00 14 53 61 6c 64 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 87 7c ce 2b d5 87 7d a5 22 ┆ Saldo ø + å "┆
0x04e0…0500 20 b7 10 a1 00 d5 87 7e a5 22 a6 04 53 54 4f 50 b7 04 a1 f0 d5 87 7f d5 87 80 a5 2a 20 aa 50 d5 ┆ ü " STOP * P ┆
0x0500…0520 87 81 a5 2a 01 82 eb 01 01 95 82 be bf d5 87 82 a6 0a 4c 20 01 20 20 20 20 20 2a 31 00 cc 80 a5 ┆ * L *1 ┆
0x0520…0540 c6 80 a5 a6 06 49 4e 54 52 45 2c 06 d2 17 c6 80 a5 a5 22 11 d2 17 03 00 0a 00 00 00 02 00 02 00 ┆ INTRE, " ┆
0x0540…0560 01 00 00 00 01 00 06 00 01 00 06 00 00 00 00 00 01 00 06 46 41 4b 54 4f 52 83 e9 a6 09 49 4f 52 ┆ FAKTOR IOR┆
0x0560…0580 45 53 55 4c 54 20 01 00 0a 00 00 00 02 00 02 00 43 7c 00 00 01 00 0c 00 01 00 0c 00 03 00 01 00 ┆ESULT Cø ┆
0x0580…05a0 01 00 14 43 70 72 2d 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 20 20 45 47 45 52 20 cb 7b b9 7b ┆ Cpr-nummer EGER æ æ┆
0x05a0…05c0 7d 7b 06 5d 00 4d 4d 44 44 4c 20 20 20 20 13 7c ef 7b 81 7b 7b ff 00 f8 43 48 41 52 20 20 20 20 ┆åæ Å MMDDL ø æ ææ CHAR ┆
0x05c0…05e0 dd 7b 27 7c 85 7b 7b ff 00 f8 42 4f 4f 4c 45 41 4e 20 e7 7d 0f 55 64 65 6e 20 62 69 6e 64 65 73 ┆ æ'ø ææ BOOLEAN å Uden bindes┆
0x05e0…0600 74 72 65 67 d3 7d 01 7c 9b 7b 00 60 78 ff 54 45 58 54 20 20 0f 00 04 00 0a 00 00 00 02 00 02 00 ┆treg å ø æ `x TEXT ┆
0x0600…0620 01 00 00 00 00 00 06 00 01 00 06 00 00 00 00 00 01 00 06 46 41 4b 54 4f 52 83 e9 a6 09 49 4f 52 ┆ FAKTOR IOR┆
0x0620…0640 45 53 55 4c 54 20 01 00 0a 00 00 00 02 00 02 00 43 7c 00 00 01 00 0c 00 01 00 0c 00 03 00 01 00 ┆ESULT Cø ┆
0x0640…0660 01 00 14 43 70 72 2d 6e 75 6d 6d 65 72 20 20 20 20 20 20 20 20 20 20 45 47 45 52 20 cb 7b b9 7b ┆ Cpr-nummer EGER æ æ┆
0x0660…0680 7d 7b 06 5d 00 4d 4d 44 44 4c 20 20 20 20 13 7c ef 7b 81 7b 7b ff 00 f8 43 48 41 52 20 20 20 20 ┆åæ Å MMDDL ø æ ææ CHAR ┆
0x0680…06a0 dd 7b 27 7c 85 7b 7b ff 00 f8 42 4f 4f 4c 45 41 4e 20 e7 7d 0f 55 64 65 6e 20 62 69 6e 64 65 73 ┆ æ'ø ææ BOOLEAN å Uden bindes┆
0x06a0…06c0 74 72 65 67 d3 7d 01 7c 9b 7b 00 60 78 ff 54 45 58 54 20 20 0f 00 04 00 0a 00 00 00 02 00 02 00 ┆treg å ø æ `x TEXT ┆
0x06c0…06e0 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 ┆ ┆
0x06e0…0700 53 54 41 52 54 20 20 20 4b 41 00 02 00 00 00 00 00 00 00 35 00 19 00 00 00 fe 00 00 00 00 00 00 ┆START KA 5 ┆
0x0700…0720 0e 50 52 4f 47 52 41 4d 20 53 54 41 52 54 3b 0e 11 56 41 52 20 51 55 51 3a 5e 49 4e 54 45 47 45 ┆ PROGRAM START; VAR QUQ:^INTEGE┆
0x0720…0740 52 3b 11 05 42 45 47 49 4e 05 27 20 20 43 48 41 49 4e 28 27 4c 20 20 20 20 20 20 20 2a 31 27 2c ┆R; BEGIN ' CHAIN('L *1',┆
0x0740…0760 27 48 4f 56 45 44 3a 50 32 2c 30 27 2c 51 55 51 29 3b 27 33 20 20 49 46 20 49 4f 52 45 53 55 4c ┆'HOVED:P2,0',QUQ);'3 IF IORESUL┆
0x0760…0780 54 3c 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 ┆T<>0 THEN WRITELN('IORESULT ',IO┆
0x0780…07a0 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆RESULT)3 END. ┆
0x07a0…07c0 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 ┆ ┆
[…0x1…]
0x07e0…0800 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x7…]
0x08e0…0900 53 54 41 52 54 20 20 20 50 41 00 0a 00 00 00 00 00 00 00 36 00 09 00 00 00 80 00 00 00 00 00 00 ┆START PA 6 ┆
0x0900…0920 00 00 00 56 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 ┆ V ┆
0x0920…0940 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 ┆ ┆
0x0940…0960 00 e9 d2 16 9e 00 c1 00 02 00 06 00 06 00 4e 00 01 00 02 00 00 01 3a 69 7e ff 22 01 58 00 c6 85 ┆ N :iü " X ┆
0x0960…0980 dc c6 86 f4 40 d2 03 c6 81 b2 c6 82 ca c7 fe ff 93 71 9a 1a f0 37 d3 3a e9 03 10 00 76 39 f0 37 ┆ @ q 7 : v9 7┆
0x0980…09a0 d5 04 a6 0a 4c 20 20 20 20 20 20 20 2a 31 a6 0a 48 4f 56 45 44 3a 50 32 2c 30 a5 04 d2 1e d5 05 ┆ L *1 HOVED:P2,0 ┆
0x09a0…09c0 9e 22 00 cb a1 20 d5 05 e9 a6 09 49 4f 52 45 53 55 4c 54 20 00 d2 13 9e 00 e9 9e 22 00 d2 0d 9e ┆ " IORESULT " ┆
0x09c0…09e0 00 e9 d2 16 9e 00 c1 00 02 00 06 00 06 00 4e 00 01 00 02 00 00 01 3a 69 7e ff 22 01 58 00 c6 85 ┆ N :iü " X ┆
0x09e0…0a00 dc c6 86 f4 40 d2 03 c6 81 b2 c6 82 ca c7 fe ff 93 71 9a 1a f0 37 d3 3a e9 03 10 00 76 39 f0 37 ┆ @ q 7 : v9 7┆
0x0a00…0a20 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x46…]
0x12e0…1300 48 4f 56 45 44 20 20 20 4b 41 04 14 00 37 00 03 00 00 00 37 00 03 00 00 00 fe 00 00 00 00 00 00 ┆HOVED KA 7 7 ┆
0x1300…1320 0e 50 52 4f 47 52 41 4d 20 48 4f 56 45 44 3b 0e 0f 43 4f 4e 53 54 20 4c 4e 47 54 48 3d 32 30 3b ┆ PROGRAM HOVED; CONST LNGTH=20;┆
0x1320…1340 0f 10 20 20 20 20 20 20 54 49 4d 45 52 3d 31 32 30 3b 10 04 54 59 50 45 04 27 50 41 52 4d 41 52 ┆ TIMER=120; TYPE 'PARMAR┆
0x1340…1360 52 41 59 3d 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 39 29 20 4f 46 20 43 48 41 52 ┆RAY=PACKED ARRAY (1..39) OF CHAR┆
0x1360…1380 3b 27 2a 44 49 52 45 43 54 42 55 46 3d 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 4c 4e ┆;'*DIRECTBUF=PACKED ARRAY (1..LN┆
0x1380…13a0 47 54 48 29 20 4f 46 20 43 48 41 52 3b 2a 14 43 4c 4f 43 4b 52 45 43 4f 52 44 20 3d 20 52 45 43 ┆GTH) OF CHAR;* CLOCKRECORD = REC┆
0x13a0…13c0 4f 52 44 14 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 3a 50 41 43 4b 45 44 20 ┆ORD 1 DATE:PACKED ┆
0x13c0…13e0 41 52 52 41 59 20 28 31 2e 2e 31 30 29 20 4f 46 20 43 48 41 52 3b 31 2f 20 20 20 20 20 20 20 20 ┆ARRAY (1..10) OF CHAR;1/ ┆
0x13e0…1400 20 20 20 20 20 20 20 54 49 4d 45 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 38 29 20 ┆ TIME:PACKED ARRAY (1..8) ┆
0x1400…1420 4f 46 20 43 48 41 52 2f 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 12 49 4e 49 56 ┆OF CHAR/ END; INIV┆
0x1420…1440 45 41 55 3d 28 4d 45 4e 49 47 2c 53 45 52 47 45 4e 54 2c 4c 5c 4a 54 4e 41 4e 54 2c 4b 41 50 54 ┆EAU=(MENIG,SERGENT,LØJTNANT,KAPT┆
0x1440…1460 41 4a 4e 2c 4d 41 4a 4f 52 2c 4f 42 45 52 53 54 2c 47 45 4e 45 52 41 4c 2c 48 53 4d 2c 55 4d 55 ┆AJN,MAJOR,OBERST,GENERAL,HSM,UMU┆
0x1460…1480 4c 49 55 53 29 3b 49 17 56 41 52 20 20 20 20 50 41 52 4d 3a 5e 50 41 52 4d 41 52 52 41 59 3b 17 ┆LIUS);I VAR PARM:^PARMARRAY; ┆
0x1480…14a0 1a 20 20 20 20 20 20 20 43 4c 4f 43 4b 3a 5e 43 4c 4f 43 4b 52 45 43 4f 52 44 3b 1a 32 20 20 20 ┆ CLOCK:^CLOCKRECORD; 2 ┆
0x14a0…14c0 20 20 20 20 53 54 49 4d 45 52 2c 53 56 2c 54 54 2c 4f 46 46 53 45 54 2c 4d 49 4e 2c 53 45 43 2c ┆ STIMER,SV,TT,OFFSET,MIN,SEC,┆
0x14c0…14e0 53 45 43 31 30 30 3a 49 4e 54 45 47 45 52 3b 32 2a 20 20 20 20 20 20 20 54 5b 4e 44 54 2c 48 4f ┆SEC100:INTEGER;2* TÆNDT,HO┆
0x14e0…1500 57 4c 2c 41 4c 41 52 4d 2c 53 54 4f 50 57 41 54 43 48 3a 42 4f 4f 4c 45 41 4e 3b 2a 2d 20 20 20 ┆WL,ALARM,STOPWATCH:BOOLEAN;*- ┆
0x1500…1520 20 20 20 20 41 4c 41 52 4d 54 49 4d 45 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 38 ┆ ALARMTIME:PACKED ARRAY (1..8┆
0x1520…1540 29 20 4f 46 20 43 48 41 52 3b 2d 16 20 20 20 20 20 20 20 44 42 55 46 3a 44 49 52 45 43 54 42 55 ┆) OF CHAR;- DBUF:DIRECTBU┆
0x1540…1560 46 3b 16 19 20 20 20 20 20 20 20 55 53 45 52 4e 49 56 45 41 55 3a 4e 49 56 45 41 55 3b 19 12 20 ┆F; USERNIVEAU:NIVEAU; ┆
0x1560…1580 20 20 20 20 20 20 43 2c 43 48 20 3a 43 48 41 52 3b 12 14 20 20 20 20 20 20 20 46 3a 53 54 52 49 ┆ C,CH :CHAR; F:STRI┆
0x1580…15a0 4e 47 28 31 31 29 3b 14 14 20 20 20 20 20 20 20 51 55 51 3a 5e 49 4e 54 45 47 45 52 3b 14 11 20 ┆NG(11); QUQ:^INTEGER; ┆
0x15a0…15c0 20 20 20 20 20 20 49 3a 49 4e 54 45 47 45 52 3b 11 25 20 20 20 20 20 20 20 46 4e 41 56 4e 2c 52 ┆ I:INTEGER; % FNAVN,R┆
0x15c0…15e0 45 47 4e 41 56 4e 2c 44 45 53 43 4e 41 56 4e 3a 53 54 52 49 4e 47 3b 25 06 28 2a 24 50 2a 29 06 ┆EGNAVN,DESCNAVN:STRING;% (*$P*) ┆
0x15e0…1600 13 50 52 4f 43 45 44 55 52 45 20 4b 4f 44 45 56 45 44 4c 3b 13 04 54 59 50 45 04 0c 45 4e 54 52 ┆ PROCEDURE KODEVEDL; TYPE ENTR┆
0x1600…1620 59 3d 52 45 43 4f 52 44 0c 17 20 20 20 20 20 20 20 20 4b 4f 44 45 3a 53 54 52 49 4e 47 28 39 29 ┆Y=RECORD KODE:STRING(9)┆
0x1620…1640 3b 17 13 20 20 20 20 20 20 20 20 4e 49 56 3a 49 4e 54 45 47 45 52 13 04 45 4e 44 3b 04 1d 4b 4f ┆; NIV:INTEGER END; KO┆
0x1640…1660 44 45 52 3d 41 52 52 41 59 20 28 31 2e 2e 32 30 29 20 4f 46 20 45 4e 54 52 59 3b 1d 16 4b 4f 44 ┆DER=ARRAY (1..20) OF ENTRY; KOD┆
0x1660…1680 45 46 49 4c 3d 46 49 4c 45 20 4f 46 20 4b 4f 44 45 52 3b 16 0e 56 41 52 20 46 3a 4b 4f 44 45 46 ┆EFIL=FILE OF KODER; VAR F:KODEF┆
0x1680…16a0 49 4c 3b 0e 15 20 20 20 20 46 4e 41 56 4e 3a 53 54 52 49 4e 47 28 32 30 29 3b 15 17 20 20 20 20 ┆IL; FNAVN:STRING(20); ┆
0x16a0…16c0 55 53 45 52 4b 4f 44 45 3a 53 54 52 49 4e 47 28 39 29 3b 17 26 20 20 20 20 4e 49 56 45 41 55 44 ┆USERKODE:STRING(9); & NIVEAUD┆
0x16c0…16e0 3a 41 52 52 41 59 20 28 30 2e 2e 36 29 20 4f 46 20 53 54 52 49 4e 47 28 38 29 3b 26 10 20 20 20 ┆:ARRAY (0..6) OF STRING(8);& ┆
0x16e0…1700 20 49 2c 4a 3a 49 4e 54 45 47 45 52 3b 10 05 42 45 47 49 4e 05 19 20 20 4e 49 56 45 41 55 44 28 ┆ I,J:INTEGER; BEGIN NIVEAUD(┆
0x1700…1720 30 29 3a 3d 27 4d 45 4e 49 47 20 20 20 27 3b 19 19 20 20 4e 49 56 45 41 55 44 28 31 29 3a 3d 27 ┆0):='MENIG '; NIVEAUD(1):='┆
0x1720…1740 53 45 52 47 45 4e 54 20 27 3b 19 19 20 20 4e 49 56 45 41 55 44 28 32 29 3a 3d 27 4c 5c 4a 54 4e ┆SERGENT '; NIVEAUD(2):='LØJTN┆
0x1740…1760 41 4e 54 27 3b 19 19 20 20 4e 49 56 45 41 55 44 28 33 29 3a 3d 27 4b 41 50 54 41 4a 4e 20 27 3b ┆ANT'; NIVEAUD(3):='KAPTAJN ';┆
0x1760…1780 19 19 20 20 4e 49 56 45 41 55 44 28 34 29 3a 3d 27 4d 41 4a 4f 52 20 20 20 27 3b 19 19 20 20 4e ┆ NIVEAUD(4):='MAJOR '; N┆
0x1780…17a0 49 56 45 41 55 44 28 35 29 3a 3d 27 4f 42 45 52 53 54 20 20 27 3b 19 19 20 20 4e 49 56 45 41 55 ┆IVEAUD(5):='OBERST '; NIVEAU┆
0x17a0…17c0 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┆
0x17c0…17e0 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┆
0x17e0…1800 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┆
0x1800…1820 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┆
0x1820…1840 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:=' ┆
0x1840…1860 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-*) ┆
0x1860…1880 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┆
0x1880…18a0 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:=' '; ┆
0x18a0…18c0 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); ┆
0x18c0…18e0 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'); $ ┆
0x18e0…1900 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┆
0x1900…1920 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 ! ┆
0x1920…1940 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! ┆
0x1940…1960 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┆
0x1960…1980 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┆
0x1980…19a0 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┆
0x19a0…19c0 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:=┆
0x19c0…19e0 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,' ┆
0x19e0…1a00 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┆
0x1a00…1a20 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); * ┆
0x1a20…1a40 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┆
0x1a40…1a60 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); ┆
0x1a60…1a80 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>┆
0x1a80…1aa0 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 ┆
0x1aa0…1ac0 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); ┆
0x1ac0…1ae0 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┆
0x1ae0…1b00 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).┆
0x1b00…1b20 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 ┆
0x1b20…1b40 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); ' ┆
0x1b40…1b60 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┆
0x1b60…1b80 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); ┆
0x1b80…1ba0 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 % ┆
0x1ba0…1bc0 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┆
0x1bc0…1be0 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 ┆
0x1be0…1c00 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┆
0x1c00…1c20 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 ┆
0x1c20…1c40 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; ┆
0x1c40…1c60 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┆
0x1c60…1c80 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<┆
0x1c80…1ca0 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┆
0x1ca0…1cc0 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┆
0x1cc0…1ce0 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┆
0x1ce0…1d00 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 ┆
0x1d00…1d20 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┆
0x1d20…1d40 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┆
0x1d40…1d60 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*) ┆
0x1d60…1d80 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┆
0x1d80…1da0 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┆
0x1da0…1dc0 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);┆
0x1dc0…1de0 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 82 ┆WRITE('Alarm'); 8 IF ALARM THE ┆