home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / FILETXT1.IPS < prev    next >
Text File  |  1998-03-25  |  503b  |  17 lines
  1. PROCEDURE main
  2.    VAR
  3.       f : text = "FILETXT1.IPS"  {definuje textov² soubor}
  4.       s : string
  5.    ENDVAR
  6.  
  7.    ConsoleClear           {vyma₧e textovΘ v²stupnφ okno}
  8.    ConsoleShow;
  9.    IF (Reset(f) = 0)      {otev°e textov² soubor}
  10.       WHILE (NOT EOF(f))  {dokud nenφ konec souboru}
  11.          READLN(f,s)      {p°eΦte °ßdek souboru}
  12.          WRITELN(s)       {vypφÜe °ßdek na obrazovku}
  13.       ENDWHILE            {konec cyklu}
  14.       Close(f)            {uzav°e soubor}
  15.    ENDIF
  16. ENDPROC
  17.