home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 October
/
Chip_1997-10_cd.bin
/
invex
/
ozogan
/
test02.ips
< prev
next >
Wrap
Text File
|
1997-07-13
|
642b
|
24 lines
PROCEDURE main
VAR
blank : string = " "
myStr : string
tFile : text = "TEST02.TXT"
i : byte;
l : byte;
ENDVAR
WRITE("Zadejte libovoln² °et∞zec:");
READLN(myStr);
ConsoleClear;
WRITELN("V²stup bude proveden do ");
WRITELN("textoveho souboru TEST02.TXT");
IF (rewrite(tFile) = 0)
l := length(myStr)
FOR i := 1 TO l
WRITELN(tFile, copy(blank, 1, l - i + 1),
copy(myStr, l - i + 1, l),
copy(myStr, 1, i))
ENDFOR
Close(tFile);
ENDIF
ENDPROC