|
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: »SKELETON.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »SKELETON.K«
PROGRAM SKELETON;
(*SKELET TIL ALM. PROGRAMMER, DER BRUGER ISF-SYSTEMET*)
CONST
MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=3;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
POSTADR=0..MAXRECSIZE;
COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)
POINTREC=^COMMBUF;
NAME =STRING(10);
PCB =^INTEGER;
MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,
INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS,
RETURNHEAD,RETURNSTAT);
MESSAGE =RECORD
KOMMANDO:MESSAGETYPE;
INFO,IREC:INTEGER
END;
AR=ARRAY (-4..-4) OF INTEGER;
ARAR=PACKED ARRAY(-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
VAR PARM:^PARMARRAY;
USERNIVEAU:NIVEAU;
F:STRING(18);
IER,MODE,IREC,STATUSER,REMUSERS,
I:INTEGER;
FNAVN:STRING(18);
SEMAFOR:NAME;
FILEINIT:BOOLEAN;
SNYD:AR;
CPPCB:PCB;
COMREC:POINTREC;
BESKED:MESSAGE;
(*$P*)
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
GOTOXY(1,23);
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);
EXTERNAL;
PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);
EXTERNAL;
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
(*@@BRUGERPOSTER, F.EKS.*)
TYPE
PPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
CONTENTS: ARRAY (1..100) OF INTEGER
END;
(*@@BRUGERVARIABLE, F.EKS.*)
VAR
POST:PPOST;
(*$P*)
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
BEGIN
(*$R-*)
WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
ICLOSE(POST.A);
EXIT(REGVEDL)
END;
PROCEDURE OFEJL(VAR REC:AR);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20); (*$R-*)
WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),
' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR(REC);
CLEARSCREEN
END;
(*@@BRUGERPROGRAMMETS PROCEDURER, EVT. BRUGERPROGRAMMET SOM EN PROCEDURE*)
(*$P*)
BEGIN
CLEARSCREEN;
(*@@ÅBNING AF EN ISF-FIL, EKS.*) (*$R-*)
POST.A(-3):=5; (*FILNR*) (*$R+*)
MODE:=3;(*SKRIV*)
IOPEN(POST.A);IF IER<>0 THEN OFEJL(POST.A);
(*@@EKSEMPEL SLUT*)
(*@@BRUGERHOVEDPROGRAM, ELLER KALD AF SAMME*)
(*@@LUKNING AF EN ISF-FIL*)
ICLOSE(POST.A);
CLEARSCREEN;
IF IER<>0 THEN BAD(6,IER)
END;
(*$P*)
BEGIN
SEMAFOR:='ALLOCOMBUF';
(*@@KUN NØDVENDIGT, HVIS USERNIVEAU SKAL BRUGES
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END;*) (*$R-*)
SNYD(-3):=0;
FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;
IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)
UDFØR(PTILMELD,SNYD);
UDFØRT(PTILMELD,SNYD);
IF IER<>0 THEN BAD(1,IER);
REGVEDL;
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),CPPCB);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM SKELETON;«, l3=0x11}
0x0013…004c Line {l1=0x37, l2=»(*SKELET TIL ALM. PROGRAMMER, DER BRUGER ISF-SYSTEMET*)«, l3=0x37}
0x004c…0053 Line {l1=0x05, l2=»CONST«, l3=0x05}
0x0053…006b Line {l1=0x16, l2=» MAXRECSIZE=1000;«, l3=0x16}
0x006b…0073 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0073…0087 Line {l1=0x12, l2=» PROGRAMNR=3;«, l3=0x12}
0x0087…008d Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x008d…00b6 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00b6…0101 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0101…0119 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x0119…0164 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0164…0178 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0178…018e Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x018e…01a2 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x01a2…01eb Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01eb…023b Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x023b…0285 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0285…0296 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0296…02b8 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02b8…02d7 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02d7…02e6 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x02e6…0305 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0305…032b Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x032b…0346 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0346…035f Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x035f…037a Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x037a…0390 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0390…03b9 Line {l1=0x27, l2=» IER,MODE,IREC,STATUSER,REMUSERS,«, l3=0x27}
0x03b9…03cc Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x03cc…03e6 Line {l1=0x18, l2=» FNAVN:STRING(18);«, l3=0x18}
0x03e6…03fc Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03fc…0416 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x0416…0427 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0427…043a Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x043a…0453 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0453…046b Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x046b…0473 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0473…0499 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0499…04a0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04a0…04b1 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x04b1…04d3 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x04d3…04dd Line {l1=0x08, l2=» READLN«, l3=0x08}
0x04dd…04e3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04e3…051a Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x051a…0541 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0541…054c Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x054c…0584 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x0584…058f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x058f…05c3 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x05c3…05f8 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x05f8…0603 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0603…063a Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x063a…0661 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0661…066c Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x066c…06a4 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x06a4…06cb Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x06cb…06d6 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06d6…070b Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x070b…0716 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0716…0723 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0723…0733 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x0733…073b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x073b…074f Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x074f…076b Line {l1=0x1a, l2=»(*@@BRUGERPOSTER, F.EKS.*)«, l3=0x1a}
0x076b…0771 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0771…077f Line {l1=0x0c, l2=»PPOST=RECORD«, l3=0x0c}
0x077f…078f Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x078f…079c Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x079c…07ac Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x07ac…07d7 Line {l1=0x29, l2=» CONTENTS: ARRAY (1..100) OF INTEGER«, l3=0x29}
0x07d7…07dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x07dd…07fb Line {l1=0x1c, l2=»(*@@BRUGERVARIABLE, F.EKS.*)«, l3=0x1c}
0x07fb…0800 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x0800…0811 Line {l1=0x0f, l2=» POST:PPOST;«, l3=0x0f}
0x0811…0819 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0819…0837 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x0837…084a Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x084a…0851 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0851…08a0 Line {l1=0x4d, l2=» (*$R-*)«, l3=0x4d}
0x08a0…08ef Line {l1=0x4d, l2=» WRITELN('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4d}
0x08ef…0904 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x0904…0917 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x0917…0928 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0928…092e Line {l1=0x04, l2=»END;«, l3=0x04}
0x092e…094c Line {l1=0x1c, l2=»PROCEDURE OFEJL(VAR REC:AR);«, l3=0x1c}
0x094c…095c Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x095c…0963 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0963…09b2 Line {l1=0x4d, l2=» GOTOXY(1,20); (*$R-*)«, l3=0x4d}
0x09b2…09fb Line {l1=0x47, l2=» WRITELN('REGISTERFEJL ',IER,' I ',REC(-3), «, l3=0x47}
0x09fb…0a4a Line {l1=0x4d, l2=» ' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)«, l3=0x4d}
0x0a4a…0a93 Line {l1=0x47, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES'); «, l3=0x47}
0x0a93…0acc Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0acc…0ae8 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(REC);«, l3=0x1a}
0x0ae8…0af7 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0af7…0afd Line {l1=0x04, l2=»END;«, l3=0x04}
0x0afd…0b49 Line {l1=0x4a, l2=»(*@@BRUGERPROGRAMMETS PROCEDURER, EVT. BRUGERPROGRAMMET SOM EN PROCEDURE*)«, l3=0x4a}
0x0b49…0b51 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0b51…0b58 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b58…0b68 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0b68…0bb7 Line {l1=0x4d, l2=»(*@@ÅBNING AF EN ISF-FIL, EKS.*) (*$R-*)«, l3=0x4d}
0x0bb7…0c06 Line {l1=0x4d, l2=» POST.A(-3):=5; (*FILNR*) (*$R+*)«, l3=0x4d}
0x0c06…0c1b Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x0c1b…0c4a Line {l1=0x2d, l2=» IOPEN(POST.A);IF IER<>0 THEN OFEJL(POST.A);«, l3=0x2d}
0x0c4a…0c5f Line {l1=0x13, l2=»(*@@EKSEMPEL SLUT*)«, l3=0x13}
0x0c5f…0c69 Line {l1=0x08, l2=» «, l3=0x08}
0x0c69…0c98 Line {l1=0x2d, l2=»(*@@BRUGERHOVEDPROGRAM, ELLER KALD AF SAMME*)«, l3=0x2d}
0x0c98…0cad Line {l1=0x13, l2=» «, l3=0x13}
0x0cad…0cca Line {l1=0x1b, l2=»(*@@LUKNING AF EN ISF-FIL*)«, l3=0x1b}
0x0cca…0cdd Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x0cdd…0ced Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0ced…0d0a Line {l1=0x1b, l2=» IF IER<>0 THEN BAD(6,IER)«, l3=0x1b}
0x0d0a…0d10 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d10…0d18 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0d18…0d1f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d1f…0d39 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x0d39…0d6a Line {l1=0x2f, l2=»(*@@KUN NØDVENDIGT, HVIS USERNIVEAU SKAL BRUGES«, l3=0x2f}
0x0d6a…0d82 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x0d82…0d98 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x0d98…0da8 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x0da8…0db1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0db1…0dd4 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x0dd4…0de0 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x0de0…0e2f Line {l1=0x4d, l2=» END;*) (*$R-*)«, l3=0x4d}
0x0e2f…0e3f Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x0e3f…0e7f Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x0e7f…0ece Line {l1=0x4d, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4d}
0x0ece…0ee7 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x0ee7…0f01 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x0f01…0f1f Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x0f1f…0f2b Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x0f2b…0f43 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x0f43…0f5c Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x0f5c…0f7a Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x0f7a…0f8f Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x0f8f…0fb7 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x0fb7…0fef Line {l1=0x36, l2=» CHAIN('L *1',CONCAT('HOVED:P1,',FNAVN),CPPCB);«, l3=0x36}
0x0fef…1024 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x1024…102a Line {l1=0x04, l2=»END.«, l3=0x04}
0x102a…1040 00 00 15 9e 00 d5 71 e8 01 00 d2 0b 93 a1 0b d5 71 e8 d8 a2 3c 12 ┆ q q < ┆
0x1040…1060 d2 12 9e 00 d5 72 e9 a6 06 4e 49 56 45 41 55 00 d2 13 9e 00 e9 d8 a3 28 03 d2 0d 9e 00 e9 d2 04 ┆ r NIVEAU ( ┆
0x1060…1080 9e 00 d5 73 d5 74 0c 0e d2 1d d5 74 e8 d2 15 9e 00 d5 75 e8 01 00 d2 0b a1 0a d5 75 d8 a3 28 ab ┆ s t t u u ( ┆
0x1080…10a0 85 eb b9 0a d5 75 e8 a5 85 eb d2 0c 9e 00 9e 22 00 c3 a7 85 eb c7 ff 01 01 8b 84 a1 f6 d5 77 d8 ┆ u " w ┆
0x10a0…10c0 a2 50 00 9a d5 78 e9 a6 06 5a 2d 53 49 5a 45 00 d2 13 9e 00 e9 d8 a3 29 06 d2 0d 9e 00 e9 d2 04 ┆ P x Z-SIZE ) ┆
0x10c0…10e0 9e 00 d5 78 e8 d2 15 9e 00 d5 78 e8 01 00 d2 0b 93 a1 0a d5 79 e8 d8 a2 52 d2 0c 9e 00 d5 7a a7 ┆ x x y R z ┆
0x10e0…1100 85 eb 00 c5 a1 19 d5 7b d5 7c a7 85 eb 01 95 ab 85 eb d5 7d d8 a2 50 d8 a3 28 01 82 9a b9 f4 d5 ┆ æ ø å P ( ┆
0x1100…1120 7f d5 80 80 a5 2d a7 85 ea d2 09 9e 00 d5 80 80 cf 02 d5 80 81 a5 2d 00 d2 08 9e 00 d5 80 81 cf ┆ - - ┆
0x1120…1140 02 a7 85 ea 00 c3 a1 f0 d5 80 84 a5 2d 00 d2 06 9e 00 d5 80 84 cf 02 b9 d8 d5 80 87 d5 80 88 a5 ┆ - ┆
0x1140…1160 04 a6 12 4c 49 53 54 44 45 46 53 3a 50 32 3a 30 30 30 30 3a 53 aa 50 d5 80 89 a5 81 6f a5 04 00 ┆ LISTDEFS:P2:0000:S P o ┆
0x1160…1180 00 d2 05 d5 80 89 cf 02 d5 80 8a d5 80 8b ce 04 d5 80 8c a7 85 ea 00 c5 a1 e6 d5 80 8d d5 80 8e ┆ ┆
0x1180…11a0 9e 27 d5 80 8f a5 81 6f a7 85 ea d2 09 9e 00 d5 80 8f cf 02 d5 80 90 a5 81 6f 00 d2 07 9e 00 d5 ┆ ' o o ┆
0x11a0…11c0 80 90 cf 02 d5 80 91 01 0a d2 1d d5 80 92 a5 81 6f a2 82 30 cc 01 d5 80 93 d5 80 94 e9 a6 09 4e ┆ o 0 N┆
0x11c0…11e0 41 56 4e 20 20 20 20 20 00 d2 13 9e 00 e9 d2 04 9e 00 d5 80 94 d8 1e 00 d2 1c d5 80 95 e9 a6 09 ┆AVN ┆
0x11e0…1200 44 45 53 43 4c 49 53 54 20 00 d2 13 9e 00 e9 d2 04 9e 00 d5 80 95 d8 a2 20 12 00 d2 1c d5 80 96 ┆DESCLIST ┆
0x1200…1220 e9 a6 08 5a 50 4f 53 54 4e 52 20 00 d2 13 9e 00 e9 d8 a3 1c 03 d2 0d 9e 00 e9 d2 04 9e 00 d5 80 ┆ ZPOSTNR ┆
0x1220…1240 97 d5 80 98 0d 0c d2 1d d5 80 98 e8 d2 15 9e 00 d5 80 98 e8 d8 a2 38 d2 0c 9e 00 9e 22 00 c3 a1 ┆ 8 " ┆
0x1240…1260 ee d5 80 9a e9 a6 06 4e 49 56 45 41 55 00 d2 13 9e 00 e9 d8 a3 1a 03 d2 0d 9e 00 e9 d2 04 9e 00 ┆ NIVEAU ┆
0x1260…1280 d5 80 9b d5 80 9c 0c 0d d2 1d d5 80 9c e8 d2 15 9e 00 d5 80 9c e8 a5 85 eb d2 0c 9e 00 9e 22 00 ┆ " ┆
0x1280…12a0 c3 a7 85 eb c7 ff 01 01 8b 84 a1 ec d5 80 9e d8 a2 34 00 9a d5 80 9f a7 85 eb 00 c5 a1 1c d5 80 ┆ 4 ┆
0x12a0…12c0 a0 d5 80 a1 a7 85 eb 01 95 ab 85 eb d5 80 a2 d8 a2 34 d8 a3 1a 01 82 9a b9 ea d5 80 a4 e9 a6 0c ┆ 4 ┆
0x12c0…12e0 42 4c 41 4e 4b 45 54 54 59 50 45 20 00 d2 13 9e 00 e9 d8 a3 1b 05 d2 0d 9e 00 e9 d2 04 9e 00 d5 ┆BLANKETTYPE ┆
0x12e0…1300 80 a5 d5 80 a6 0c 0e d2 1d d5 80 a6 e8 d2 15 9e 00 d5 80 a6 e8 d8 a2 36 d2 0c 9e 00 9e 22 00 c3 ┆ 6 " ┆
0x1300…1320 a1 e8 d5 80 a8 d5 80 a9 a5 81 6f a7 85 ea d2 09 9e 00 d5 80 a9 cf 02 d5 80 aa a5 81 6f 00 d2 08 ┆ o o ┆
0x1320…1340 9e 00 d5 80 aa cf 02 a7 85 ea 00 c3 a1 e4 d5 80 ad a5 81 6f 00 d2 06 9e 00 d5 80 ad cf 02 b9 d8 ┆ o ┆
0x1340…1360 d5 80 af ce 05 b9 d8 d5 80 b1 d5 80 b2 a5 04 a6 12 50 52 4f 47 46 49 4c 45 3a 50 32 3a 30 30 30 ┆ PROGFILE:P2:000┆
0x1360…1380 30 3a 53 aa 50 d5 80 b3 a5 84 bc a5 04 00 00 d2 05 d5 80 b3 cf 02 d5 80 b4 d5 80 b5 ce 04 d5 63 ┆0:S P c┆