MORSE.WS4
---------

A>mallard

Mallard-80  BASIC with Jetsam   Version 1.48
(c) Copyright 1984  Locomotive Software Ltd
All rights reserved

28474 free bytes

Ok
run"morse

MORSE> 0123456789

0 = -----
1 = .----
2 = ..---
3 = ...--
4 = ....-
5 = .....
6 = -....
7 = --...
8 = ---..
9 = ----.

MORSE> THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG

T = -
H = ....
E = .
  = 
Q = --.-
U = ..-
I = ..
C = -.-.
K = -.-
  = 
B = -...
R = .-.
O = ---
W = .--
N = -.
  = 
F = ..-.
O = ---
X = -..-
  = 
J = .---
U = ..-
M = --
P = .--.
S = ...
  = 
O = ---
V = ...-
E = .
R = .-.
  = 
T = -
H = ....
E = .
  = 
L = .-..
A = .-
Z = --..
Y = -.--
  = 
D = -..
O = ---
G = --.

MORSE> !"#$%&'

! = -.-.--
" = .-..-.
# = #
$ = ...-..-
% = %
& = .-...
' = .----.

MORSE> ()*+,-./

( = -.--.
) = -.--.-
* = *
+ = .-.-.
, = --..--
- = -....-
 . = .-.-.-     (WordStar does not like "dot commands"...)
/ = -..-.

MORSE> 01234567

0 = -----
1 = .----
2 = ..---
3 = ...--
4 = ....-
5 = .....
6 = -....
7 = --...

MORSE> 89:;<=>?

8 = ---..
9 = ----.
: = ---...
; = -.-.-.
< = <
= = -...-
> = >
? = ..--..

MORSE> @ABCDEFG

@ = .--.-.
A = .-
B = -...
C = -.-.
D = -..
E = .
F = ..-.
G = --.

MORSE> HIJKLMNO

H = ....
I = ..
J = .---
K = -.-
L = .-..
M = --
N = -.
O = ---

MORSE> PQRSTUVW

P = .--.
Q = --.-
R = .-.
S = ...
T = -
U = ..-
V = ...-
W = .--

MORSE> XYZ[\]^_

X = -..-
Y = -.--
Z = --..
[ = [
\ = \
] = ]
^ = ^
_ = ..--.-

MORSE> `abcdefg

` = `
a = .-
b = -...
c = -.-.
d = -..
e = .
f = ..-.
g = --.

MORSE> hijklmno

h = ....
i = ..
j = .---
k = -.-
l = .-..
m = --
n = -.
o = ---

MORSE> pqrstuvw

p = .--.
q = --.-
r = .-.
s = ...
t = -
u = ..-
v = ...-
w = .--

MORSE> xyz{|}~

x = -..-
y = -.--
z = --..
{ = {
| = |
} = }
~ = ~

MORSE> ^C
Break in 90
Ok
list
10 REM MORSE.BAS  by Emmanuel ROCHE
20 :
30 REM  ! " # $ % & '
40 DATA -.-.--, .-..-., "#", ...-..-, "%", .-..., .----.
50 REM  ( ) * + , - . /
60 DATA -.--., -.--.-, "*", .-.-., "--..--", -....-, .-.-.-, -..-.
70 REM  0 1 2 3 4 5 6 7
80 DATA -----, .----, ..---, ...--, ....-, ....., -...., --...
90 REM  8 9 : ; < = > ?
100 DATA ---.., ----., ---..., -.-.-., "<", "-...-", ">", "..--.."
110 REM  @ A B C D E F G
120 DATA .--.-., .-, -..., -.-., -.., ., ..-., --.
130 REM  H I J K L M N O
140 DATA ...., .., .---, -.-, .-.., --, -., ---
150 REM  P Q R S T U V W
160 DATA .--., --.-, .-., ..., -, ..-, ...-, .--
170 REM  X Y Z [ \ ] ^ _
180 DATA -..-, -.--, --.., "[", "\", "]", "^", ..--.-
190 REM  ` a b c d e f g
200 DATA "`", .-, -..., -.-., -.., ., ..-., --.
210 REM  h i j k l m n o
220 DATA ...., .., .---, -.-, .-.., --, -., ---
230 REM  p q r s t u v w
240 DATA .--., --.-, .-., ..., -, ..-, ...-, .--
250 REM  x y z { | } ~
260 DATA -..-, -.--, --.., "{", "|", "}", "~"
270 :
280 DIM code$ (126)
290 FOR c = 33 TO 126
300     READ code$ (c)
310 NEXT c
320 PRINT
330 LINE INPUT "MORSE> ", msg$
340 PRINT
350 L = LEN (msg$)
360 FOR d = 1 TO L
370     PRINT code$ (ASC (MID$ (msg$, d, 1))) " ";
380 '    PRINT MID$ (msg$, d, 1) " = " code$ (ASC (MID$ (msg$, d, 1)))
390 NEXT d
400 PRINT
410 PRINT
420 GOTO 330
Ok
system

A>That's All, Folks!


Yours Sincerely,
Mr. Emmanuel Roche, France


EOF