Manualy fixed encoding...

[mirrors/Programs.git] / turbopascal / MORSE.PAS

diff --git a/turbopascal/MORSE.PAS b/turbopascal/MORSE.PAS
index eb0c2696a08d53e659f75ebfb8426ca9f162c0ae..60b1b21090ce381af635a3cd9dbfe69e59b453f3 100755 (executable)
--- a/turbopascal/MORSE.PAS
+++ b/turbopascal/MORSE.PAS
@@ -11,11 +11,11 @@ i:byte;
 \r
 begin\r
 writeln ('***PROGRAM  *M*O*R*S*E*  ----  PREVEDE TEXT DO MORSEOVY ABECEDY*** ');\r
-write   ('ZADEJ TEXT PRO PRýEVOD: '); READLN (s);\r
+write   ('ZADEJ TEXT PRO PREVOD: '); READLN (s);\r
 \r
 FOR i:= 1 TO LENGTH (s) DO\r
 CASE s[i] OF\r
      'A'..'Z','a'..'z': WRITE (Tab[Upcase (s[i])],'|');\r
      ' '                WRITE ('|');\r
    END;\r
-end.
\ No newline at end of file
+end.\r