ftest1c.pll

一个嵌入式系统的C代码

PROGRAM FTEST_1C (INPUT, OUTPUT);

VAR
  ch, ipf : INTEGER;

BEGIN
  ASSIGN(ipf@, 'ZZ.TXT');
  RESET(ipf@);
  WHILE NOT EOF(ipf@) DO BEGIN
    Read(ipf@, ch);
    Write(ch)
  END;
  CLOSE(ipf@);
  Writeln;
  Writeln(ipf%)
END.