X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbopascal%2FMORSE.PAS;h=60b1b21090ce381af635a3cd9dbfe69e59b453f3;hb=HEAD;hp=eb0c2696a08d53e659f75ebfb8426ca9f162c0ae;hpb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;p=mirrors%2FPrograms.git

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