home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 October
/
Chip_1997-10_cd.bin
/
invex
/
ozogan
/
filetxt1.ips
< prev
next >
Wrap
Text File
|
1997-07-13
|
486b
|
16 lines
PROCEDURE main
VAR
f : text = "FILETXT1.IPS" {definuje textov² soubor}
s : string
ENDVAR
ConsoleClear {vyma₧e textovΘ v²stupnφ okno}
IF (Reset(f) = 0) {otev°e textov² soubor}
WHILE (NOT EOF(f)) {dokud nenφ konec souboru}
READLN(f,s) {p°eΦte °ßdek souboru}
WRITELN(s) {vypφÜe °ßdek na obrazovku}
ENDWHILE {konec cyklu}
Close(f) {uzav°e soubor}
ENDIF
ENDPROC