ftest2.pll

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

PROGRAM FILE_TEST_2 (INPUT, OUTPUT);

{------------------------------}
{ Purpose: program Tests:      }
{	Delete                 }
{	Creat                  }
{	Write                  }
{	Close (on Write)       }
{ Author: Ron Chernich	       }
{ Date:   10-Sep-94            }
{------------------------------}

VAR
  ipf, ch, i, j : INTEGER;

BEGIN
  ASSIGN(ipf@, 'A:FRED.TXT');
  REWRITE(ipf@);
  FOR i := 1 TO 3 DO BEGIN
    ch := 64 + i;
    FOR j := 1 TO 128 DO
      Write(ipf@, ch);
    Writeln('Block ', i#, ' = ', ch)
  END;
  CLOSE(ipf@);
  Writeln('File "FRED.TXT" created.')
END.