home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / ozogan / TEST02.IPS < prev    next >
Text File  |  1997-07-13  |  642b  |  24 lines
  1. PROCEDURE main
  2.    VAR
  3.       blank : string = "                                                 "
  4.       myStr : string
  5.       tFile : text = "TEST02.TXT"
  6.       i     : byte;
  7.       l     : byte;
  8.    ENDVAR
  9.    WRITE("Zadejte libovoln² °et∞zec:");
  10.    READLN(myStr);
  11.    ConsoleClear;
  12.    WRITELN("V²stup bude proveden do ");
  13.    WRITELN("textoveho souboru TEST02.TXT");
  14.    IF (rewrite(tFile) = 0)
  15.       l := length(myStr)
  16.       FOR i := 1 TO l
  17.           WRITELN(tFile, copy(blank, 1, l - i + 1),
  18.                   copy(myStr, l - i + 1, l),
  19.                   copy(myStr, 1, i))
  20.       ENDFOR
  21.       Close(tFile);
  22.    ENDIF
  23. ENDPROC
  24.