From: Harvie <tomas@mudrunka.cz>
Date: Tue, 25 May 2010 15:28:53 +0000 (+0200)
Subject: Manualy fixed encoding...
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=a0c44f80cabeeb6189ae1ac90f4a97e269c907b1;p=mirrors%2FPrograms.git

Manualy fixed encoding...
---

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.