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

⟦f144d6b2e⟧ TextFile

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

Derivation

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

Mikados K File

PROGRAM COPY;
VAR F1,F2:TEXT;
    NAVN1,NAVN2:STRING(20);
    IND,UD:CHAR;
BEGIN
  NAVN1:='FAKTURA:P2:0:K';
  NAVN2:='GAKTURA:P2:150:K';
  REWRITE(F1,NAVN1);
  REWRITE(F2,NAVN2);
  READLN(F1);
(*$C-*)
  REPEAT
     REPEAT
       READ(F1,IND);
     UNTIL IORESULT=0;
     WRITE(IND);
     WRITE(F2,IND);
     IF EOLN(F1) THEN BEGIN WRITELN;WRITELN(F2) END;
  UNTIL FALSE;
END.

Full view