|
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)
Types: TextFile
Notes: Mikados_K
Names: »OPRLANDE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »OPRLANDE.K«
PROGRAM OPRLANDE;
TYPE LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;
VAR LANDFIL:LANDFILE;
FNAVN:STRING(20);
POST:PACKED ARRAY (1..30) OF CHAR;
I:INTEGER;
BEGIN
FNAVN:='LANDEREG:P2:118:I';
REWRITE(LANDFIL,FNAVN);
SEEK(LANDFIL,1);
POST:='LANGTBORTISTAN ';
FOR I:=1 TO 999 DO
BEGIN
LANDFIL^:=POST;
LANDFIL^(20):=CHR(I DIV 100 +48);
LANDFIL^(21):=CHR(I MOD 100 DIV 10 +48);
LANDFIL^(22):=CHR(I MOD 10 + 48);
PUT(LANDFIL)
END;
CLOSE(LANDFIL)
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM OPRLANDE;«, l3=0x11}
0x013…048 Line {l1=0x33, l2=»TYPE LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x33}
0x048…05f Line {l1=0x15, l2=»VAR LANDFIL:LANDFILE;«, l3=0x15}
0x05f…076 Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x076…09e Line {l1=0x26, l2=» POST:PACKED ARRAY (1..30) OF CHAR;«, l3=0x26}
0x09e…0ae Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x0ae…0b5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b5…0d4 Line {l1=0x1d, l2=» FNAVN:='LANDEREG:P2:118:I';«, l3=0x1d}
0x0d4…0ef Line {l1=0x19, l2=» REWRITE(LANDFIL,FNAVN);«, l3=0x19}
0x0ef…103 Line {l1=0x12, l2=» SEEK(LANDFIL,1);«, l3=0x12}
0x103…12e Line {l1=0x29, l2=» POST:='LANGTBORTISTAN ';«, l3=0x29}
0x12e…144 Line {l1=0x14, l2=» FOR I:=1 TO 999 DO«, l3=0x14}
0x144…14d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x14d…162 Line {l1=0x13, l2=» LANDFIL^:=POST;«, l3=0x13}
0x162…189 Line {l1=0x25, l2=» LANDFIL^(20):=CHR(I DIV 100 +48);«, l3=0x25}
0x189…1b7 Line {l1=0x2c, l2=» LANDFIL^(21):=CHR(I MOD 100 DIV 10 +48);«, l3=0x2c}
0x1b7…1de Line {l1=0x25, l2=» LANDFIL^(22):=CHR(I MOD 10 + 48);«, l3=0x25}
0x1de…1f0 Line {l1=0x10, l2=» PUT(LANDFIL)«, l3=0x10}
0x1f0…1f8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1f8…20a Line {l1=0x10, l2=» CLOSE(LANDFIL)«, l3=0x10}
0x20a…210 Line {l1=0x04, l2=»END.«, l3=0x04}
0x210…220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x220…240 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 ┆ ┆
[…0x15…]