codechars.pas

unit codechars;

(*  Copyright (c) 2003 - 2006 Julian Moss, G4ILO
    Released under the GNU General Public License Version 2
    (see http://www.gnu.org/licenses/old-licenses/gpl-2.0.txt)      *)


{$mode objfpc}
{$H+}
{$J-}

interface

const
  code: array[32..90] of string =
    ('',               {32 - space }
    '.-...',           {33 - ! <AS>}
    '',
    '-.--.',           {35 - # <KN>}
    '...-.-',          {36 - $ <SK>}
    '...-.',           {37 - % <SN>}
    '-.-.-',           {38 - & <KA>}
    '',
    '',
    '',
    '...-.-',          {42 - * <SK>}
    '.-.-.',           {43 - + <AR>}
    '--..--',          {44 - , }
    '-....-',          {45 - - }
    '.-.-.-',          {46 - . }
    '-..-.',           {47 - / }
    '-----',           {48 - 0 }
    '.----',
    '..---',
    '...--',
    '....-',
    '.....',
    '-....',
    '--...',
    '---..',
    '----.',           {57 - 9 }
    '',
    '',
    '',
    '-...-',           {61 - = <BT>}
    '',
    '..--..',          {63 - ? }
    '.-.-',            {64 - @ <AA>}
    '.-',              {65 - A }
    '-...',
    '-.-.',
    '-..',
    '.',
    '..-.',
    '--.',
    '....',
    '..',
    '.---',
    '-.-',
    '.-..',
    '--',
    '-.',
    '---',
    '.--.',
    '--.-',
    '.-.',
    '...',
    '-',
    '..-',
    '...-',
    '.--',
    '-..-',
    '-.--',
    '--..');

implementation

end.