ftest3.pll

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

PROGRAM FILE_TEST_1 (INPUT, OUTPUT);


VAR
  ipf, ch, i, j : INTEGER;

BEGIN
  ASSIGN(ipf@, 'A:DUMMY.TXT');
  RESET(ipf@);
  i := 1;
  WHILE NOT EOF(ipf@) DO BEGIN
    FOR j := 1 TO 128 DO
      READ(ipf@, ch);
    Writeln('Block ', i#, ' = ', ch);
    i := i + 1
  END;
  CLOSE(ipf@);
END.