|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »SKÆRMFIL.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »SKÆRMFIL.K«
PROGRAM SKÆRMBILLEDBEHANDLING;
CONST MAXFELTER=30;
TYPE
NFELT=^FELTBESKRIVELSE;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
BESKRIVELSESTYPE=(FELTDESC,VALIDESC);
FELTBESKRIVELSE=RECORD
NÆSTEVAL:NFELT;
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS:INTEGER;
LÆNGDE:INTEGER;
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITETSTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
FELTFIL=FILE OF FELTBESKRIVELSE;
VAR FELT:NFELT;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
I,ANTALFELTER:INTEGER;
FFIL:FELTFIL;
FNAVN:STRING(20);
(*$R-*)
(*$P*)
PROCEDURE LÆSDESC;
BEGIN
FNAVN:='FELTDESC:P2:30:J';
REWRITE(FFIL,FNAVN);
GET(FFIL);
I:=0;
WHILE NOT EOF(FFIL) DO
BEGIN
I:=I+1;
CASE FFIL^.FELTTYPE OF
REEL:NEW(PICTURE(I),FELTDESC,REEL);
HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)
END;
FELT:=PICTURE(I);
WITH FELT^ DO
BEGIN
DESCTYPE:=FELTDESC;
INDPOS.X:=FFIL^.INDPOS.X;
INDPOS.Y:=FFIL^.INDPOS.Y;
UDPOS.X:=FFIL^.UDPOS.X;
UDPOS.Y:=FFIL^.UDPOS.Y;
KIKKENIVEAU:=FFIL^.KIKKENIVEAU;
ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;
LEDETEKST:=FFIL^.LEDETEKST;
FØLGETEKST:=FFIL^.FØLGETEKST;
EDITERING:=FFIL^.EDITERING;
FELTTYPE:=FFIL^.FELTTYPE;
INDEKS:=FFIL^.INDEKS;
LÆNGDE:=FFIL^.LÆNGDE;
FORAN0:=FFIL^.FORAN0;
IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;
WHILE FFIL^.NÆSTEVAL<>NIL DO
BEGIN
GET(FFIL);
CASE FFIL^.VALIDITETSTYPE OF
HINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,HINTERVAL);
NÆSTEVAL^.MIN:=FFIL^.MIN;
NÆSTEVAL^.MAX:=FFIL^.MAX
END;
DINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,DINTERVAL);
NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;
NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2
END;
RINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,RINTERVAL);
NÆSTEVAL^.RMIN:=FFIL^.RMIN;
NÆSTEVAL^.RMAX:=FFIL^.RMAX
END;
DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)
END;
FELT:=FELT^.NÆSTEVAL;
DESCTYPE:=VALIDESC;
VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE
END;
NÆSTEVAL:=NIL
END;
GET(FFIL)
END;
ANTALFELTER:=I
END;
(*$P*)
PROCEDURE SKRIVDESC;
BEGIN
FNAVN:='FELTDESC:P2:30:J';
REWRITE(FFIL,FNAVN);
FOR I:=1 TO ANTALFELTER DO
BEGIN
FELT:=PICTURE(I);
REPEAT
FFIL^:=FELT^;
PUT(FFIL);
FELT:=FELT^.NÆSTEVAL
UNTIL FELT=NIL
END;
CLOSE(FFIL)
END;
BEGIN
END.
0x000…020 Line {l1=0x1e, l2=»PROGRAM SKÆRMBILLEDBEHANDLING;«, l3=0x1e}
0x020…035 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x035…03b Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x03b…054 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x054…09f Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x09f…0b0 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0b0…0c0 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0c0…0c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c6…0ea Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0ea…11b Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x11b…142 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x142…15a Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x15a…16e Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x16e…194 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x194…1a2 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x1a2…1bd Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x1bd…1e1 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x1e1…1f8 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x1f8…219 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x219…22d Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x22d…241 Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x241…255 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x255…270 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x270…288 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x288…2a6 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x2a6…2b4 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x2b4…2d5 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x2d5…2f9 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x2f9…329 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x329…34c Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x34c…360 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x360…366 Line {l1=0x04, l2=»END;«, l3=0x04}
0x366…388 Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x388…399 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x399…3c5 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x3c5…3e1 Line {l1=0x1a, l2=» I,ANTALFELTER:INTEGER;«, l3=0x1a}
0x3e1…3f4 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x3f4…40b Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x40b…414 Line {l1=0x07, l2=»(*$R-*)«, l3=0x07}
0x414…41c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x41c…430 Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x430…437 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x437…455 Line {l1=0x1c, l2=» FNAVN:='FELTDESC:P2:30:J';«, l3=0x1c}
0x455…46d Line {l1=0x16, l2=» REWRITE(FFIL,FNAVN);«, l3=0x16}
0x46d…470 Line {l1=0x01, l2=» «, l3=0x01}
0x470…47e Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x47e…487 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x487…4a1 Line {l1=0x18, l2=» WHILE NOT EOF(FFIL) DO«, l3=0x18}
0x4a1…4aa Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4aa…4b7 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x4b7…4d3 Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x4d3…4fc Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x4fc…536 Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x536…540 Line {l1=0x08, l2=» END;«, l3=0x08}
0x540…557 Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x557…55a Line {l1=0x01, l2=» «, l3=0x01}
0x55a…56d Line {l1=0x11, l2=» WITH FELT^ DO«, l3=0x11}
0x56d…578 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x578…593 Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x593…5b4 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x5b4…5d5 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x5d5…5f4 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x5f4…613 Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x613…63a Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x63a…661 Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x661…684 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x684…6a9 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x6a9…6cc Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x6cc…6ed Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x6ed…70a Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x70a…727 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x727…744 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x744…771 Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x771…795 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x795…7a2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7a2…7b6 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x7b6…7dc Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x7dc…7f7 Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x7f7…830 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x830…861 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x861…891 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x891…8ab Line {l1=0x18, l2=» END;«, l3=0x18}
0x8ab…8c6 Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x8c6…8ff Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x8ff…94d Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x94d…99a Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x99a…9b4 Line {l1=0x18, l2=» END;«, l3=0x18}
0x9b4…9cf Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x9cf…a08 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0xa08…a3b Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0xa3b…a6d Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0xa6d…a87 Line {l1=0x18, l2=» END;«, l3=0x18}
0xa87…ab7 Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0xab7…ac5 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xac5…ae4 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0xae4…b01 Line {l1=0x1b, l2=» DESCTYPE:=VALIDESC;«, l3=0x1b}
0xb01…b2f Line {l1=0x2c, l2=» VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x2c}
0xb2f…b3b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0xb3b…b50 Line {l1=0x13, l2=» NÆSTEVAL:=NIL«, l3=0x13}
0xb50…b5a Line {l1=0x08, l2=» END;«, l3=0x08}
0xb5a…b69 Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0xb69…b71 Line {l1=0x06, l2=» END;«, l3=0x06}
0xb71…b83 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0xb83…b89 Line {l1=0x04, l2=»END;«, l3=0x04}
0xb89…b91 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0xb91…ba7 Line {l1=0x14, l2=»PROCEDURE SKRIVDESC;«, l3=0x14}
0xba7…bae Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0xbae…bcc Line {l1=0x1c, l2=» FNAVN:='FELTDESC:P2:30:J';«, l3=0x1c}
0xbcc…be4 Line {l1=0x16, l2=» REWRITE(FFIL,FNAVN);«, l3=0x16}
0xbe4…be7 Line {l1=0x01, l2=» «, l3=0x01}
0xbe7…c05 Line {l1=0x1c, l2=» FOR I:=1 TO ANTALFELTER DO«, l3=0x1c}
0xc05…c0e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0xc0e…c25 Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0xc25…c31 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0xc31…c46 Line {l1=0x13, l2=» FFIL^:=FELT^;«, l3=0x13}
0xc46…c58 Line {l1=0x10, l2=» PUT(FFIL);«, l3=0x10}
0xc58…c74 Line {l1=0x1a, l2=» FELT:=FELT^.NÆSTEVAL«, l3=0x1a}
0xc74…c88 Line {l1=0x12, l2=» UNTIL FELT=NIL«, l3=0x12}
0xc88…c90 Line {l1=0x06, l2=» END;«, l3=0x06}
0xc90…c9f Line {l1=0x0d, l2=» CLOSE(FFIL)«, l3=0x0d}
0xc9f…ca5 Line {l1=0x04, l2=»END;«, l3=0x04}
0xca5…cac Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0xcac…cb2 Line {l1=0x04, l2=»END.«, l3=0x04}
0xcb2…cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0xcc0…ce0 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 ┆ ┆
[…0xd…]
0xe80…ea0 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 d5 ┆ ┆