ftest2a.pll

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

PROGRAM FILE_TEST_2A (INPUT, OUTPUT);


VAR
  ipf, ch, i, j : INTEGER;

BEGIN
  ASSIGN(ipf@, 'A:FRED.TXT');
  RESET(ipf@);
  Writeln('Reading file: "FRED.TXT" ..');
  FOR i := 1 TO 3 DO BEGIN
    FOR j := 1 TO 128 DO
      READ(ipf@, ch);
    Writeln('Block ', i#, ' = ', ch)
  END;
  CLOSE(ipf@);
END.