|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »NBTBEHAN.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTBEHAN.K«
BEGIN
FOR I1:=1 TO 16 DO
BEGIN
RAMME.NR:=RAMME16(I1);
IF RAMME.NR>19 THEN
BEGIN
GETREC(RAMZ.H,RAMF,RAMME.A);
IF IER<>0 THEN IOF(RAMZ.H.FILENAME);
GOTOXY(15,14);
WRITELN('Rammenr: ',I1);
DIMNR:=1;
IF RAMME.TYP=3 THEN DIMNR:=2;
REGN(BREDDE,I1,1,(I1-1)MOD 4+1,OLINIE.BLAMBRED,OLINIE.BREDDE,VBREDDE,
RAMME16);
REGN(HØJDE,I1,4,(I1+3)DIV 4,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,
RAMME16);
J:=1;
WHILE (I1<>OLINIE.RAMMENR(J)) AND (J<3) DO J:=J+1;
IF RAMME.TYP=3 THEN
BEGIN
FAKODE:=1;KGUMMI:=GLASGUM(J);
END
ELSE
BEGIN
(*KARMTÆTNING*)
GENER(6,KTÆTGUM(1),KTÆTGUM(2),BREDDE,HØJDE,0,NULLER,NULLER);
(*RAMMETÆTNING*)
GENER(7,RTÆTGUM(1),RTÆTGUM(2),BREDDE,HØJDE,0,NULLER,NULLER);
FAKODE:=2;J:=J+3;
(*RAMMEPROFILER*)
PROFILBEHANDLING(BREDDE,HØJDE,RREGELNR,RAMME.FORSTÆRK,RFORSTÆRK,
RAMME.BESLAG,RAMMEPROFIL,RTÆTGUM,GLASGUM(J),
RAMME.VREGEL,RAMME.LREGEL);
BREDDE:=BREDDE-2*RDIM(1);HØJDE:=HØJDE-2*RDIM(1);
END;
PLACERING:=20;
(*GLASLISTE*)
GENER(1,0,GLASLIST(J),BREDDE,HØJDE,0,GLASLGUM(J),NULLER);
(*GLASGUMMI*)
GENER(9,GLASGUM(J,1),GLASGUM(J,2),BREDDE,HØJDE,0,NULLER,NULLER);
BREDDE:=BREDDE-2*GDIM(J,1);HØJDE:=HØJDE-2*GDIM(J,1);
(*GLASLISTEGUMMI*)
GENER(8,GLASLGUM(J,1),GLASLGUM(J,2),BREDDE,HØJDE,0,NULLER,NULLER);
J:=(J-1) MOD 3+1;
(*GLAS*)
GENER((4-FAKODE),0,OLINIE.GLASART(J),BREDDE,HØJDE,0,NULLER,NULLER);
END;
END;
I1:=0;FAKODE:=1;J:=(J-1) MOD 3+1;
KARM.NR:=VKARM;
GETREC(KARZ.H,KARF,KARM.A);
IF IER<>0 THEN IOF(KARZ.H.FILENAME);
(*KARMPROFILER*)
PROFILBEHANDLING(OLINIE.BLAMBRED,OLINIE.BLAMHØJD,KREGELNR,KARM.FORSTÆRK,
KFORSTÆR,KARM.BESLAG,KARMPROFIL,KTÆTGUM,KGUMMI,
KARM.VREGEL,KARM.LREGEL);
FOR PLACERING:=5 TO 19 DO
BEGIN
TYPE1:=NULLER;TYPE2:=0;
POST.KARMNR:=VKARM;POST.NR:=PLACERING-4;
GETREC(POSZ.H,POSF,POST.A);
IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);
IF IER=0 THEN
BEGIN
IF POST.VANDLOD=0 THEN
POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)
ELSE
POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);
MÅL:=LÆNGDE;
STÆRKNING(KREGELNR,POST.FORSTÆRK,POST.FORSTÆRK);
(*POSTFORSTÆRKNING*)
GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);
(*POSTPROFIL*)
GENER(1,0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);
END;
END;
END;
0x0000…0007 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0007…001d Line {l1=0x14, l2=» FOR I1:=1 TO 16 DO«, l3=0x14}
0x001d…0028 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0028…0046 Line {l1=0x1c, l2=» RAMME.NR:=RAMME16(I1);«, l3=0x1c}
0x0046…0061 Line {l1=0x19, l2=» IF RAMME.NR>19 THEN«, l3=0x19}
0x0061…006e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x006e…0094 Line {l1=0x24, l2=» GETREC(RAMZ.H,RAMF,RAMME.A);«, l3=0x24}
0x0094…00c2 Line {l1=0x2c, l2=» IF IER<>0 THEN IOF(RAMZ.H.FILENAME);«, l3=0x2c}
0x00c2…00da Line {l1=0x16, l2=» GOTOXY(15,14);«, l3=0x16}
0x00da…00fc Line {l1=0x20, l2=» WRITELN('Rammenr: ',I1);«, l3=0x20}
0x00fc…010f Line {l1=0x11, l2=» DIMNR:=1;«, l3=0x11}
0x010f…0136 Line {l1=0x25, l2=» IF RAMME.TYP=3 THEN DIMNR:=2;«, l3=0x25}
0x0136…0185 Line {l1=0x4d, l2=» REGN(BREDDE,I1,1,(I1-1)MOD 4+1,OLINIE.BLAMBRED,OLINIE.BREDDE,VBREDDE,«, l3=0x4d}
0x0185…019d Line {l1=0x16, l2=» RAMME16);«, l3=0x16}
0x019d…01e7 Line {l1=0x48, l2=» REGN(HØJDE,I1,4,(I1+3)DIV 4,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,«, l3=0x48}
0x01e7…01ff Line {l1=0x16, l2=» RAMME16);«, l3=0x16}
0x01ff…020e Line {l1=0x0d, l2=» J:=1;«, l3=0x0d}
0x020e…024a Line {l1=0x3a, l2=» WHILE (I1<>OLINIE.RAMMENR(J)) AND (J<3) DO J:=J+1;«, l3=0x3a}
0x024a…0267 Line {l1=0x1b, l2=» IF RAMME.TYP=3 THEN«, l3=0x1b}
0x0267…0276 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0276…029f Line {l1=0x27, l2=» FAKODE:=1;KGUMMI:=GLASGUM(J);«, l3=0x27}
0x029f…02ac Line {l1=0x0b, l2=» END«, l3=0x0b}
0x02ac…02ba Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x02ba…02c9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x02c9…02da Line {l1=0x0f, l2=»(*KARMTÆTNING*)«, l3=0x0f}
0x02da…0322 Line {l1=0x46, l2=» GENER(6,KTÆTGUM(1),KTÆTGUM(2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x46}
0x0322…0334 Line {l1=0x10, l2=»(*RAMMETÆTNING*)«, l3=0x10}
0x0334…037c Line {l1=0x46, l2=» GENER(7,RTÆTGUM(1),RTÆTGUM(2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x46}
0x037c…0399 Line {l1=0x1b, l2=» FAKODE:=2;J:=J+3;«, l3=0x1b}
0x0399…03ac Line {l1=0x11, l2=»(*RAMMEPROFILER*)«, l3=0x11}
0x03ac…03f8 Line {l1=0x4a, l2=» PROFILBEHANDLING(BREDDE,HØJDE,RREGELNR,RAMME.FORSTÆRK,RFORSTÆRK,«, l3=0x4a}
0x03f8…0441 Line {l1=0x47, l2=» RAMME.BESLAG,RAMMEPROFIL,RTÆTGUM,GLASGUM(J),«, l3=0x47}
0x0441…0479 Line {l1=0x36, l2=» RAMME.VREGEL,RAMME.LREGEL);«, l3=0x36}
0x0479…04b5 Line {l1=0x3a, l2=» BREDDE:=BREDDE-2*RDIM(1);HØJDE:=HØJDE-2*RDIM(1);«, l3=0x3a}
0x04b5…04c3 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x04c3…04db Line {l1=0x16, l2=» PLACERING:=20;«, l3=0x16}
0x04db…04ea Line {l1=0x0d, l2=»(*GLASLISTE*)«, l3=0x0d}
0x04ea…052d Line {l1=0x41, l2=» GENER(1,0,GLASLIST(J),BREDDE,HØJDE,0,GLASLGUM(J),NULLER);«, l3=0x41}
0x052d…053c Line {l1=0x0d, l2=»(*GLASGUMMI*)«, l3=0x0d}
0x053c…0586 Line {l1=0x48, l2=» GENER(9,GLASGUM(J,1),GLASGUM(J,2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x48}
0x0586…05c4 Line {l1=0x3c, l2=» BREDDE:=BREDDE-2*GDIM(J,1);HØJDE:=HØJDE-2*GDIM(J,1);«, l3=0x3c}
0x05c4…05d8 Line {l1=0x12, l2=»(*GLASLISTEGUMMI*)«, l3=0x12}
0x05d8…0624 Line {l1=0x4a, l2=» GENER(8,GLASLGUM(J,1),GLASLGUM(J,2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x4a}
0x0624…063f Line {l1=0x19, l2=» J:=(J-1) MOD 3+1;«, l3=0x19}
0x063f…0649 Line {l1=0x08, l2=»(*GLAS*)«, l3=0x08}
0x0649…0696 Line {l1=0x4b, l2=» GENER((4-FAKODE),0,OLINIE.GLASART(J),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x4b}
0x0696…06a2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x06a2…06ac Line {l1=0x08, l2=» END;«, l3=0x08}
0x06ac…06d3 Line {l1=0x25, l2=» I1:=0;FAKODE:=1;J:=(J-1) MOD 3+1;«, l3=0x25}
0x06d3…06e8 Line {l1=0x13, l2=» KARM.NR:=VKARM;«, l3=0x13}
0x06e8…0709 Line {l1=0x1f, l2=» GETREC(KARZ.H,KARF,KARM.A);«, l3=0x1f}
0x0709…0733 Line {l1=0x28, l2=» IF IER<>0 THEN IOF(KARZ.H.FILENAME);«, l3=0x28}
0x0733…0745 Line {l1=0x10, l2=»(*KARMPROFILER*)«, l3=0x10}
0x0745…0793 Line {l1=0x4c, l2=» PROFILBEHANDLING(OLINIE.BLAMBRED,OLINIE.BLAMHØJD,KREGELNR,KARM.FORSTÆRK,«, l3=0x4c}
0x0793…07d9 Line {l1=0x44, l2=» KFORSTÆR,KARM.BESLAG,KARMPROFIL,KTÆTGUM,KGUMMI,«, l3=0x44}
0x07d9…0809 Line {l1=0x2e, l2=» KARM.VREGEL,KARM.LREGEL);«, l3=0x2e}
0x0809…0828 Line {l1=0x1d, l2=» FOR PLACERING:=5 TO 19 DO«, l3=0x1d}
0x0828…0833 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0833…0852 Line {l1=0x1d, l2=» TYPE1:=NULLER;TYPE2:=0;«, l3=0x1d}
0x0852…0882 Line {l1=0x2e, l2=» POST.KARMNR:=VKARM;POST.NR:=PLACERING-4;«, l3=0x2e}
0x0882…08a5 Line {l1=0x21, l2=» GETREC(POSZ.H,POSF,POST.A);«, l3=0x21}
0x08a5…08e1 Line {l1=0x3a, l2=» IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);«, l3=0x3a}
0x08e1…08f6 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x08f6…0903 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0903…0923 Line {l1=0x1e, l2=» IF POST.VANDLOD=0 THEN«, l3=0x1e}
0x0923…0958 Line {l1=0x33, l2=» POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)«, l3=0x33}
0x0958…0966 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0966…099b Line {l1=0x33, l2=» POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);«, l3=0x33}
0x099b…09b1 Line {l1=0x14, l2=» MÅL:=LÆNGDE;«, l3=0x14}
0x09b1…09eb Line {l1=0x38, l2=» STÆRKNING(KREGELNR,POST.FORSTÆRK,POST.FORSTÆRK);«, l3=0x38}
0x09eb…0a01 Line {l1=0x14, l2=»(*POSTFORSTÆRKNING*)«, l3=0x14}
0x0a01…0a3f Line {l1=0x3c, l2=» GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);«, l3=0x3c}
0x0a3f…0a4f Line {l1=0x0e, l2=»(*POSTPROFIL*)«, l3=0x0e}
0x0a4f…0a85 Line {l1=0x34, l2=» GENER(1,0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);«, l3=0x34}
0x0a85…0a91 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0a91…0a9b Line {l1=0x08, l2=» END;«, l3=0x08}
0x0a9b…0aa1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0aa1…0ac0 00 00 20 45 4e 44 3b 0c 0a 20 20 20 20 20 20 45 4e 44 3b 0a 32 20 20 20 20 20 20 49 31 3a 3d ┆ END; END; 2 I1:=┆
0x0ac0…0ae0 30 3b 46 41 4e 52 3a 3d 46 41 52 56 45 4e 52 28 31 29 3b 46 41 4b 4f 44 45 3a 3d 46 41 52 56 45 ┆0;FANR:=FARVENR(1);FAKODE:=FARVE┆
0x0ae0…0b00 4b 4f 44 45 28 31 29 3b 32 19 20 20 20 20 20 20 42 45 53 54 45 4d 46 4f 52 53 54 5b 52 4b 4e 49 ┆KODE(1);2 BESTEMFORSTÆRKNI┆
0x0b00…0b20 4e 47 3b 19 35 20 20 20 20 20 20 4d 5d 4c 3a 3d 4f 4c 49 4e 49 45 2e 42 4c 41 4d 42 52 45 44 3b ┆NG; 5 MÅL:=OLINIE.BLAMBRED;┆
0x0b20…0b40 53 54 5b 52 4b 52 31 3a 3d 4b 56 52 45 47 45 4c 28 52 45 47 45 4c 4e 52 29 3b 35 30 20 20 20 20 ┆STÆRKR1:=KVREGEL(REGELNR);50 ┆
0x0b40…0b60 20 20 53 54 5b 52 4b 52 32 3a 3d 4b 4c 52 45 47 45 4c 28 52 45 47 45 4c 4e 52 29 3b 53 54 5b 52 ┆ STÆRKR2:=KLREGEL(REGELNR);STÆR┆
0x0b60…0b80 4b 52 3a 3d 53 54 5b 52 4b 52 31 3b 30 41 20 20 20 20 20 20 50 52 4f 46 49 4c 42 45 48 41 4e 44 ┆KR:=STÆRKR1;0A PROFILBEHAND┆
0x0b80…0ba0 4c 49 4e 47 28 4f 4c 49 4e 49 45 2e 42 4c 41 4d 48 5c 4a 44 2c 4b 46 4f 52 53 54 5b 52 4b 2c 4b ┆LING(OLINIE.BLAMHØJD,KFORSTÆRK,K┆
0x0ba0…0bc0 50 52 4f 46 49 4c 2e 46 4f 52 53 54 5b 52 2c 41 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PROFIL.FORSTÆR,AA ┆
0x0bc0…0be0 20 20 20 20 20 20 20 20 4b 42 45 53 4c 41 47 2c 4b 41 52 4d 50 52 4f 46 49 4c 2c 4b 50 52 4f 46 ┆ KBESLAG,KARMPROFIL,KPROF┆
0x0be0…0c00 49 4c 2e 54 5b 54 47 55 4d 2c 4b 47 55 4d 4d 49 29 3b 41 27 20 20 20 20 20 20 20 20 20 20 20 20 ┆IL.TÆTGUM,KGUMMI);A' ┆
0x0c00…0c20 20 20 20 20 20 20 20 20 20 20 20 28 2a 4b 41 52 4d 50 52 4f 46 49 4c 45 52 2a 29 27 19 20 20 20 ┆ (*KARMPROFILER*)' ┆
0x0c20…0c40 20 20 20 42 45 53 54 45 4d 46 4f 52 53 54 5b 52 4b 4e 49 4e 47 3b 19 1f 20 20 20 20 20 20 46 4f ┆ BESTEMFORSTÆRKNING; FO┆
0x0c40…0c60 52 20 50 4c 41 43 45 52 49 4e 47 3a 3d 35 20 54 4f 20 31 39 20 44 4f 1f 0b 20 20 20 20 20 20 42 ┆R PLACERING:=5 TO 19 DO B┆
0x0c60…0c80 45 47 49 4e 0b 1f 20 20 20 20 20 20 20 20 54 59 50 45 31 3a 3d 4e 55 4c 4c 45 52 3b 54 59 50 45 ┆EGIN TYPE1:=NULLER;TYPE┆
0x0c80…0ca0 32 3a 3d 30 3b 1f 30 20 20 20 20 20 20 20 20 50 4f 53 54 2e 4b 41 52 4d 4e 52 3a 3d 56 4b 41 52 ┆2:=0; 0 POST.KARMNR:=VKAR┆
0x0ca0…0cc0 4d 3b 50 4f 53 54 2e 4e 52 3a 3d 50 4c 41 43 45 52 49 4e 47 2d 34 3b 30 23 20 20 20 20 20 20 20 ┆M;POST.NR:=PLACERING-4;0# ┆
0x0cc0…0ce0 20 47 45 54 52 45 43 28 50 4f 53 5a 2e 48 2c 50 4f 53 46 2c 50 4f 53 54 2e 41 29 3b 23 3c 20 20 ┆ GETREC(POSZ.H,POSF,POST.A);#< ┆
0x0ce0…0d00 20 20 20 20 20 20 49 46 20 28 49 45 52 3c 3e 30 29 20 41 4e 44 20 28 49 45 52 3c 3e 2d 36 29 20 ┆ IF (IER<>0) AND (IER<>-6) ┆
0x0d00…0d20 54 48 45 4e 20 49 4f 46 28 50 4f 53 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 3c 15 20 20 20 20 ┆THEN IOF(POSZ.H.FILENAME);< ┆
0x0d20…0d40 20 20 20 20 49 46 20 49 45 52 3d 30 20 54 48 45 4e 15 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆ IF IER=0 THEN BEGIN┆
0x0d40…0d60 0d 20 20 20 20 20 20 20 20 20 20 20 49 46 20 50 4f 53 54 2e 56 41 4e 44 4c 4f 44 3d 30 20 54 48 ┆ IF POST.VANDLOD=0 TH┆
0x0d60…0d80 45 4e 20 35 20 20 20 20 20 20 20 20 20 20 20 20 50 4f 53 54 42 45 52 45 47 4e 28 4f 4c 49 4e 49 ┆EN 5 POSTBEREGN(OLINI┆
0x0d80…0da0 45 2e 42 52 45 44 44 45 2c 4f 4c 49 4e 49 45 2e 42 4c 41 4d 42 52 45 44 29 35 0e 20 20 20 20 20 ┆E.BREDDE,OLINIE.BLAMBRED)5 ┆
0x0da0…0dc0 20 20 20 20 20 45 4c 53 45 0e 35 20 20 20 20 20 20 20 20 20 20 20 20 50 4f 53 54 42 45 52 45 47 ┆ ELSE 5 POSTBEREG┆
0x0dc0…0de0 4e 28 4f 4c 49 4e 49 45 2e 48 5c 4a 44 45 2c 4f 4c 49 4e 49 45 2e 42 4c 41 4d 48 5c 4a 44 29 3b ┆N(OLINIE.HØJDE,OLINIE.BLAMHØJD);┆
0x0de0…0e00 35 35 20 20 20 20 20 20 20 20 20 20 4d 5d 4c 3a 3d 4c 5b 4e 47 44 45 3b 53 54 5b 52 4b 52 3a 3d ┆55 MÅL:=LÆNGDE;STÆRKR:=┆
0x0e00…0e20 50 4f 53 54 2e 46 4f 52 53 54 5b 52 4b 28 52 45 47 45 4c 4e 52 29 3b 35 14 20 20 20 20 20 20 20 ┆POST.FORSTÆRK(REGELNR);5 ┆
0x0e20…0e40 20 20 20 53 54 5b 52 4b 4e 49 4e 47 3b 14 29 20 20 20 20 20 20 20 20 20 20 54 59 50 45 31 3a 3d ┆ STÆRKNING; ) TYPE1:=┆
0x0e40…0e60 4b 50 50 52 4f 46 49 4c 2e 46 4f 52 53 54 5b 52 28 54 59 50 45 52 29 3b 29 37 20 20 20 20 20 20 ┆KPPROFIL.FORSTÆR(TYPER);)7 ┆
0x0e60…0e80 20 20 20 20 47 45 4e 45 52 32 28 34 2c 54 59 50 45 31 2c 30 2c 4c 5b 4e 47 44 45 29 3b 20 20 20 ┆ GENER2(4,TYPE1,0,LÆNGDE); ┆
0x0e80…0ea0 20 28 2a 46 4f 52 53 54 5b 52 4b 4e 49 4e 47 2a 29 37 35 20 20 20 20 20 20 20 20 20 20 47 45 4e ┆ (*FORSTÆRKNING*)75 GEN┆
0x0ea0…0ec0 45 52 31 28 30 2c 50 4f 53 54 31 2c 4c 5b 4e 47 44 45 2c 4d 5d 4c 2c 30 2c 4e 55 4c 4c 45 52 2c ┆ER1(0,POST1,LÆNGDE,MÅL,0,NULLER,┆
0x0ec0…0ee0 4e 55 4c 4c 45 52 29 3b 35 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NULLER);55 ┆
0x0ee0…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 50 4f 53 54 50 52 4f 46 49 4c 2a 29 35 ┆ (*POSTPROFIL*)5┆
0x0f00…0f20 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0a 20 20 20 20 20 20 45 4e 44 3b 0a 00 00 20 20 47 45 ┆ END; END; GE┆
0x0f20…0f40 54 52 45 43 28 52 41 4d 5a 2e 48 2c 52 41 4d 46 2c 52 41 4d 4d 45 2e 41 29 3b 26 2e 20 20 20 20 ┆TREC(RAMZ.H,RAMF,RAMME.A);&. ┆
0x0f40…0f60 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 49 4f 46 28 52 41 4d 5a 2e 48 2e ┆ IF IER<>0 THEN IOF(RAMZ.H.┆
0x0f60…0f80 46 49 4c 45 4e 41 4d 45 29 3b 2e 0d 55 44 53 4b 52 49 56 28 31 2c 31 29 3b 0d 18 20 20 20 20 20 ┆FILENAME);. UDSKRIV(1,1); ┆
0x0f80…0fa0 6e 72 20 33 20 20 20 20 20 20 3a ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆nr 3 : ┆
0x0fa0…0fc0 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x0fc0…0fe0 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 03 28 30 29 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ (0) ┆
0x0fe0…1000 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x1000…1020 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 7f 82 08 47 4c 41 53 41 52 54 33 ff ┆ GLASART3 ┆
0x1020…1040 00 00 01 00 17 00 37 00 0c 00 00 00 00 00 01 00 10 47 6c 61 73 61 72 74 20 33 20 20 20 20 20 20 ┆ 7 Glasart 3 ┆
0x1040…1060 3a ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆: ┆
0x1060…1080 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x1080…10a0 4f 4c 49 54 44 45 53 43 4a 44 03 05 00 84 00 00 7a 00 08 84 00 00 00 00 00 ca 00 00 00 00 00 00 ┆OLITDESCJD z ┆
0x10a0…10c0 00 ff 05 28 31 2d 39 29 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ (1-9) ┆
0x10c0…10e0 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x10e0…1100 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 18 00 01 00 00 00 00 00 01 00 01 00 ┆ ┆
0x1100…1120 00 ff 00 ff 00 ff 00 ff 00 ff 01 00 00 00 01 00 09 00 5b 83 08 42 4c 41 4d 42 52 45 44 ff 00 00 ┆ Æ BLAMBRED ┆
0x1120…1140 01 00 17 00 01 00 0e 00 00 00 00 00 01 00 10 42 4c 41 4d 2d 62 72 65 64 64 65 20 20 20 20 3a ff ┆ BLAM-bredde : ┆
0x1140…1160 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
[…0x1…]
0x1180…11a0 1a 28 69 20 6d 69 6c 69 6d 65 74 65 72 2c 20 6d 61 78 20 34 20 63 69 66 72 65 29 ff 00 ff 00 ff ┆ (i milimeter, max 4 cifre) ┆
0x11a0…11c0 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x11c0…11e0 00 ff 00 ff 00 ff 00 ff 5b 83 08 42 4c 41 4d 42 52 45 44 ff 00 00 01 00 17 00 01 00 0e 00 00 00 ┆ Æ BLAMBRED ┆
0x11e0…1200 00 00 01 00 10 42 4c 41 4d 2d 62 72 65 64 64 65 20 20 20 20 3a ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ BLAM-bredde : ┆
0x1200…1220 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x1220…1240 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 1a 28 69 20 6d 69 6c 69 6d 65 ┆ (i milime┆
0x1240…1260 74 65 72 2c 20 6d 61 78 20 34 20 63 69 66 72 65 29 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ter, max 4 cifre) ┆
0x1260…1280 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x1280…12a0 00 ff 00 ff 00 ff 00 ff 19 00 04 00 00 00 00 00 01 00 01 00 00 ff 00 ff 00 ff 00 ff 00 ff 01 00 ┆ ┆
0x12a0…12c0 00 00 00 00 0f 27 37 84 08 42 4c 41 4d 48 5c 4a 44 ff 00 00 01 00 17 00 1e 00 0e 00 00 00 00 00 ┆ '7 BLAMHØJD ┆
0x12c0…12e0 01 00 10 42 4c 41 4d 2d 68 7c 6a 64 65 20 20 20 20 20 3a ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ BLAM-højde : ┆
0x12e0…1300 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0x1300…1320 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 1a 28 69 20 6d 69 6c 69 6d 65 74 65 ┆ (i milimete┆
0x1320…1340 72 2c 20 6d 61 78 20 34 20 63 69 66 72 65 29 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆r, max 4 cifre) ┆
0x1340…1360 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 37 84 08 42 ┆ 7 B┆
0x1360…1380 4c 41 4d 48 5c 4a 44 ff 00 00 01 00 17 00 1e 00 0e 00 00 00 00 00 01 00 10 42 4c 41 4d 2d 68 7c ┆LAMHØJD BLAM-hø┆