X-Git-Url: https://git.harvie.cz/?a=blobdiff_plain;f=turbopascal%2FMORSE.PAS;fp=turbopascal%2FMORSE.PAS;h=eb0c2696a08d53e659f75ebfb8426ca9f162c0ae;hb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;hp=0000000000000000000000000000000000000000;hpb=c366db83dc933f6f5c79ba92dce91769455593f1;p=mirrors%2FPrograms.git

diff --git a/turbopascal/MORSE.PAS b/turbopascal/MORSE.PAS
new file mode 100755
index 0000000..eb0c269
--- /dev/null
+++ b/turbopascal/MORSE.PAS
@@ -0,0 +1,21 @@
+program morse;
+uses crt;
+const
+tab: array ['A'..'Z'] of string[6] = (
+     '._','_...','_._.','_..','.','.._.','__.','....','____','..',
+     '.___','_._','._..','__','_.','___','.__.','._.','...','_','.._',
+     '..._','_.__','__..');
+var
+s:string;
+i:byte;
+
+begin
+writeln ('***PROGRAM  *M*O*R*S*E*  ----  PREVEDE TEXT DO MORSEOVY ABECEDY*** ');
+write   ('ZADEJ TEXT PRO PRýEVOD: '); 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