turbopascal/MORSE.PAS

   1 program morse;
   2 uses crt;
   3 const
   4 tab: array ['A'..'Z'] of string[6] = (
   5      '._','_...','_._.','_..','.','.._.','__.','....','____','..',
   6      '.___','_._','._..','__','_.','___','.__.','._.','...','_','.._',
   7      '..._','_.__','__..');
   8 var
   9 s:string;
  10 i:byte;
  11
  12 begin
  13 writeln ('***PROGRAM  *M*O*R*S*E*  ----  PREVEDE TEXT DO MORSEOVY ABECEDY*** ');
  14 write   ('ZADEJ TEXT PRO PREVOD: '); READLN (s);
  15
  16 FOR i:= 1 TO LENGTH (s) DO
  17 CASE s[i] OF
  18      'A'..'Z','a'..'z': WRITE (Tab[Upcase (s[i])],'|');
  19      ' '                WRITE ('|');
  20    END;
  21 end.