From a0c44f80cabeeb6189ae1ac90f4a97e269c907b1 Mon Sep 17 00:00:00 2001 From: Harvie Date: Tue, 25 May 2010 17:28:53 +0200 Subject: [PATCH] Manualy fixed encoding... --- turbopascal/MORSE.PAS | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.30.2