kodovi/fajlovi/ispis.mod

   1 MODULE ispis;
   2 FROM FIO IMPORT File, Exists, Open, Close, EOF, RdStr;
   3 FROM InOut IMPORT WriteString, WriteLn, ReadString;
   4
   5 PROCEDURE ispisF(ime: ARRAY OF CHAR);
   6 VAR
   7   f:File;
   8   s : ARRAY[1..100] OF CHAR;
   9 BEGIN
  10   IF Exists(ime) THEN
  11     f:=Open(ime);
  12     EOF := FALSE;
  13     WHILE NOT EOF DO
  14         RdStr(f,s);
  15         WriteString(s);
  16         WriteLn;
  17     END;
  18     Close(f);
  19   ELSE
  20     WriteString("-- fajl ne postoji --");
  21     WriteLn;
  22   END;
  23 END ispisF;
  24
  25 VAR
  26   ime: ARRAY[1..100] OF CHAR;
  27 BEGIN
  28   WriteString("unesite ime fajla:");
  29   ReadString(ime);
  30   ispisF(ime);
  31 END ispis.