ftest6b.pll

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

PROGRAM FTEST_6B (INPUT, OUTPUT);

VAR
  ch, ipf : INTEGER;
  
BEGIN
  ASSIGN(ipf@, 'PRIMES.TXT');
  RESET(ipf@);
  Writeln('Reading PRIMES file..');
  WHILE NOT EOF(ipf@) DO BEGIN
    Read(ipf@, ch);
    Write(ch)
  END;
  Writeln;
  CLOSE(ipf@)
END.