home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / ozogan / filetxt1.ips < prev    next >
Text File  |  1997-07-13  |  486b  |  16 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.    IF (Reset(f) = 0)      {otev°e textov² soubor}
  9.       WHILE (NOT EOF(f))  {dokud nenφ konec souboru}
  10.          READLN(f,s)      {p°eΦte °ßdek souboru}
  11.          WRITELN(s)       {vypφÜe °ßdek na obrazovku}
  12.       ENDWHILE            {konec cyklu}
  13.       Close(f)            {uzav°e soubor}
  14.    ENDIF
  15. ENDPROC
  16.