home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / TEST02.IPS < prev    next >
Text File  |  1998-03-25  |  659b  |  26 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.  
  10.    ConsoleClear; ConsoleShow;
  11.    WRITE("Zadejte libovoln² °et∞zec:");
  12.    READLN(myStr);
  13.  
  14.    WRITELN("V²stup bude proveden do ");
  15.    WRITELN("textoveho souboru TEST02.TXT");
  16.    IF (rewrite(tFile) = 0)
  17.       l := length(myStr)
  18.       FOR i := 1 TO l
  19.           WRITELN(tFile, copy(blank, 1, l - i + 1),
  20.                   copy(myStr, l - i + 1, l),
  21.                   copy(myStr, 1, i))
  22.       ENDFOR
  23.       Close(tFile);
  24.    ENDIF
  25. ENDPROC
  26.