|
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: 1248 (0x4e0)
Notes: Mikados_J
Names: »SYSRDESC.J«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »SYSRDESC.J«
0x000…020 2f 78 02 4e 52 42 49 4c 50 47 06 0a 00 00 01 00 05 00 01 00 05 00 08 00 08 00 00 00 10 4e 72 20 ┆/x NRBILPG Nr ┆ 0x020…040 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 73 0c 53 4b 5b 52 4d 42 49 4c 50 47 06 0a 00 00 00 00 ┆ :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 00 84 ba a5 82 cf 50 10 d2 1c d5 84 bb a5 82 cf a6 10 ┆ P ┆ 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 00 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 03 00 01 00 ┆ OVED:P2, ┆ 0x0e0…100 07 4f 52 44 52 45 4e 52 84 bf 00 00 01 00 06 00 01 00 06 00 00 00 07 00 01 00 10 4e 7b 73 74 65 ┆ ORDRENR Næste┆ 0x100…120 20 6f 72 64 72 65 6e 72 20 20 3a 00 e9 d2 16 9e 00 c6 81 52 00 d2 06 c1 00 0f b9 02 d8 00 ec 00 ┆ ordrenr : 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 01 20 58 23 ae 28 4c 29 2a 2c 50 34 1e 2d 5c 3b 2c 00 00 16 ┆ t !2" X# (L)*,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 07 4f 52 44 52 45 4e 52 84 bf ┆ " ORDRENR ┆ 0x1a0…1c0 00 00 01 00 06 00 01 00 06 00 00 00 07 00 01 00 10 4e 7b 73 74 65 20 6f 72 64 72 65 6e 72 20 20 ┆ Næste ordrenr ┆ 0x1c0…1e0 3a 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 01 20 58 23 ae 28 4c 29 2a 2c 50 34 1e 2d 5c 3b 2c 00 00 16 c6 83 61 a5 05 d2 1e d5 84 bf ┆2" X# (L)*,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 02 00 04 00 00 00 00 00 d3 79 d3 79 ┆ d S > y y┆ 0x260…280 04 44 41 54 4f 0a c8 0c 5c 0d 00 00 01 00 07 00 01 00 07 00 00 00 00 00 01 00 10 44 61 67 73 20 ┆ DATO Ø Dags ┆ 0x280…2a0 64 61 74 6f 20 20 20 20 20 20 3a 00 00 16 c6 83 61 a5 05 d2 1e d5 84 bf 9e 22 00 cb a1 21 d5 84 ┆dato : 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 06 5d 5d 4d 4d 44 44 54 2e 41 28 46 5e 2e 49 4e 44 45 4b 53 ┆ R ÅÅMMDDT.A(F^.INDEKS┆ 0x2e0…300 2b 31 29 3a 3d 54 41 4c 31 27 0d 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 05 20 20 45 4e 44 05 ┆+1):=TAL1' 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 03 00 ┆ END; (*$P*) PROCEDURE MAINT ┆ 0x320…340 06 00 06 00 01 00 01 00 01 00 43 48 3a 53 54 52 49 4e 47 28 01 00 03 00 1d 20 20 20 20 45 4e 48 ┆ CH:STRING( ENH┆ 0x340…360 45 44 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 ┆EDER,CENTIMER:INTEGER; LØN:┆ 0x360…380 52 45 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 ┆REAL; FUNCTION RUND(R:REAL):REA┆ 0x380…3a0 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 3d 54 ┆L; VAR R1:REAL; BEGIN R1:=T┆ 0x3a0…3c0 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 30 30 ┆RUNC(R/10000.0); R1:=R1*10000┆ 0x3c0…3e0 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 4e 44 ┆.0; RUND:=ROUND(R-R1)+R1 END┆ 0x3e0…400 3b 04 05 42 45 47 49 4e 05 0e 20 20 04 82 a4 01 f8 9a 01 00 43 48 3a 53 54 52 49 4e 47 28 00 00 ┆; BEGIN CH:STRING( ┆ 0x400…420 00 00 1d 20 20 20 20 45 4e 48 45 44 45 52 2c 43 45 4e 54 49 4d 45 52 3a 49 4e 54 45 47 45 52 3b ┆ ENHEDER,CENTIMER:INTEGER;┆ 0x420…440 1d 0d 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 ┆ LØN:REAL; FUNCTION RUND(R┆ 0x440…460 3a 52 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 ┆:REAL):REAL; VAR R1:REAL; BEGI┆ 0x460…480 4e 05 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 ┆N R1:=TRUNC(R/10000.0); R1┆ 0x480…4a0 3a 3d 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 ┆:=R1*10000.0; RUND:=ROUND(R-R┆ 0x4a0…4c0 31 29 2b 52 31 16 04 45 4e 44 3b 04 05 42 45 47 49 4e 05 0e 20 20 04 82 a4 01 f8 9a 00 00 00 00 ┆1)+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 ┆ ┆