Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

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

diff --git a/turbopascal/MORSE.PAS b/turbopascal/MORSE.PAS
new file mode 100755 (executable)
index 0000000..eb0c269
--- /dev/null
+++ b/turbopascal/MORSE.PAS
@@ -0,0 +1,21 @@
+program morse;\r
+uses crt;\r
+const\r
+tab: array ['A'..'Z'] of string[6] = (\r
+     '._','_...','_._.','_..','.','.._.','__.','....','____','..',\r
+     '.___','_._','._..','__','_.','___','.__.','._.','...','_','.._',\r
+     '..._','_.__','__..');\r
+var\r
+s:string;\r
+i:byte;\r
+\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
+\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