ftest1d.pll

来自「一个嵌入式系统的C代码」· PLL 代码 · 共 19 行

PROGRAM FTEST_1D (INPUT, OUTPUT);

VAR
  ch, ipf, opf : INTEGER;

BEGIN
  ASSIGN(ipf@, 'ZZ.TXT');
  RESET(ipf@);
  ASSIGN(opf@, 'ZZNEW.TXT');
  REWRITE(opf@);
  WHILE NOT EOF(ipf@) DO BEGIN
    Read(ipf@, ch);
    Write(opf@, ch)
  END;
  CLOSE(ipf@);
  CLOSE(opf@);
  Writeln('File Copied')
END.