DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦49697ccb7⟧ TextFile

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

Derivation

└─⟦7b7460039⟧ Bits:30005889 KnowledgeMan - ACP - dBase II
    └─⟦this⟧ »PRINTER.PAS«

TextFile

program printer;
var
  terminal,printer: text;
  ch: char;
begin
  assign(terminal,'TRM:');
        reset(terminal);
  assign(printer,'LST:');
        rewrite(printer);
  
  repeat
    repeat 
      read(terminal,ch);
      if not eoln(terminal) then
      begin
        write(printer,ch);
      end;
    until eoln(terminal);
 
    if not eof(terminal) then
    begin
      readln(terminal);
      writeln(printer);
    end;
  until eof(terminal);
end.
    «eof»