DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦2ede74737⟧ TextFile

    Length: 1248 (0x4e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »OPRLANDE.K«

Derivation

└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
    └─⟦this⟧ »OPRLANDE.K«

Mikados K File

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.

Full view