DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

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

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦36ef22de6⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »TFMAIN.PAS«

Derivation

└─⟦59c2ecd8d⟧ Bits:30009789/_.ft.Ibm2.50006600.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »TFMAIN.PAS«

TextFile

var
  input_file : name;
  ok : boolean;
  input_line : f_string;
begin
  write('Filnavn : '); readln(input_file); writeln;
  init_input(input_file, ok);
  if not ok then
    writeln('Filen ', input_file, ' findes ikke')
  else begin
    init_output;
    init_1;
    while not eof_input do begin
      get_line_input(input_line);
      write_line_1(input_line);
    end;
    terminate_1;
    terminate_output;
    terminate_input;
  end;
end.«eof»