!� Auto morse code transmitter
F�L$(90):�X=1 �22:� L$(X):�:�X=48 �57:� L$(X):�:�X=65 �90:� L$(X):�
��4:�:�"Morse code translator":�:�"Transmit speed: 1)Warp speed Mr.Zulu":�(16)"2)Normal":�(16)"3)Hang on a minute":� BASE%:� BASE%>3 � BASE%<1 ��
(6� BASE%=1 � BASE%=1 �� BASE%=2 � BASE%=4 � BASE%=7
2L�:�:�"Morse code translator":�:�"Special codes must be inside [ and ]":�
<� Draw screen then wait 
F��0,13)"[01] Period":�20,13)"[02] Error":�0,14)"[03] Question mark":�20,14)"[04] Hyphen":�0,15)"[05] Call":�20,15)"[06] Apostrophe":�0,16)"[07] Close )":�20,16)"[08] Plus"
P��0,17)"[09] Stroke /":�20,17)"[10] Understood":�0,18)"[11] Close":�20,18)"[12] Comma ,":�0,19)"[13] Wait":�20,19)"[14] End of message":�0,20)"[15] Colon or ~"
Z��20,20)"[16] Quotes":�0,21)"[17] Open (":�20,21)"[18] Equals":�0,22)"[19] Multiply":�20,22)"[20] Warning!":�0,23)"[21] Received":�20,23)"[22] Closing down";
dC�0,3)"":� MES$:� �(MES$)=0 � �:�"No message":�  ��A=1 ��(MES$)
n^� Take each letter in turn and find it in the data base then play it one element at a time
x� �MES$,A,1)="[" ��d\@
�.� �MES$,A,1)=" " � � 1,0,89,7*BASE%:� �dH@
��B=3 ��(L$(�(�MES$,A,1))))
�7� �L$(�(�MES$,A,1))),B,1)="L" � � 1,-15,150,3*BASE%
�5� �L$(�(�MES$,A,1))),B,1)="S" � � 1,-15,150,BASE%
�� 1,0,150,BASE%
�� B
�� 1,0,150,3*BASE%
�� A
��:�"Done":�
�� Special words
�SP$=�MES$,A+1,2)
�3� �(SP$)>22 � �(SP$)<1 � �:�"Keyword unknown":�
�#PSN=�L$(�(�MES$,A+1,2))),"/")+1

 �B=PSN ��L$(�(�MES$,A+1,2)))

9� �L$(�(�MES$,A+1,2))),B,1)="L" � � 1,-15,150,3*BASE%

7� �L$(�(�MES$,A+1,2))),B,1)="S" � � 1,-15,150,BASE%

"� 1,0,150,BASE%

,� B

6A=A+3:�t~@

@2� Data where L=long or dash and S=short or dot

J��"PERIOD/SLSLSL","ERROR/SSSSSSSS","?/SSLLSS","-/LSSSSL","CALL/LSLSL","'/SLLLLS",")/LSLLSL","+/SLSLS","STROKE/LSSLS","UNDERSTOOD/SSSLS","CLOSE/SSSLSL",",/LLSSLL","WAIT/SLSSS","EOM/SLSLS","~/LLLSSS","QUOTES/SLSSLS","(/LSLLS"

TO�"=/LSSSL","*/LSSL","WARNING/SLSSL","RECEIVED/SLS","CLOSING TRANSM/LSLSSLS"

^h�"0/LLLLL","1/SLLLL","2/SSLLL","3/SSSLL","4/SSSSL","5/SSSSS","6/LSSSS","7/LLSSS","8/LLLSS","9/LLLLS"

h��"A/SL","B/LSSS","C/LSLS","D/LSS","E/S","F/SSLS","G/LLS","H/SSSS","I/SS","J/SLLL","K/LSL","L/SLSS","M/LL","N/LS","O/LLL","P/SLLS","Q/LLSL","R/SLS","S/SSS","T/L","U/SSL","V/SSSL","W/SLL","X/LSSL","Y/LSLL","Z/LLSS"
�

00000000  0d 00 0a 21 f4 20 41 75  74 6f 20 6d 6f 72 73 65  |...!. Auto morse|
00000010  20 63 6f 64 65 20 74 72  61 6e 73 6d 69 74 74 65  | code transmitte|
00000020  72 0d 00 14 46 de 4c 24  28 39 30 29 3a e3 58 3d  |r...F.L$(90):.X=|
00000030  31 20 b8 32 32 3a f3 20  4c 24 28 58 29 3a ed 3a  |1 .22:. L$(X):.:|
00000040  e3 58 3d 34 38 20 b8 35  37 3a f3 20 4c 24 28 58  |.X=48 .57:. L$(X|
00000050  29 3a ed 3a e3 58 3d 36  35 20 b8 39 30 3a f3 20  |):.:.X=65 .90:. |
00000060  4c 24 28 58 29 3a ed 0d  00 1e 96 eb 34 3a f1 3a  |L$(X):......4:.:|
00000070  f1 22 4d 6f 72 73 65 20  63 6f 64 65 20 74 72 61  |."Morse code tra|
00000080  6e 73 6c 61 74 6f 72 22  3a f1 3a f1 22 54 72 61  |nslator":.:."Tra|
00000090  6e 73 6d 69 74 20 73 70  65 65 64 3a 20 31 29 57  |nsmit speed: 1)W|
000000a0  61 72 70 20 73 70 65 65  64 20 4d 72 2e 5a 75 6c  |arp speed Mr.Zul|
000000b0  75 22 3a f1 89 28 31 36  29 22 32 29 4e 6f 72 6d  |u":..(16)"2)Norm|
000000c0  61 6c 22 3a f1 89 28 31  36 29 22 33 29 48 61 6e  |al":..(16)"3)Han|
000000d0  67 20 6f 6e 20 61 20 6d  69 6e 75 74 65 22 3a e8  |g on a minute":.|
000000e0  20 42 41 53 45 25 3a e7  20 42 41 53 45 25 3e 33  | BASE%:. BASE%>3|
000000f0  20 84 20 42 41 53 45 25  3c 31 20 8c f9 0d 00 28  | . BASE%<1 ....(|
00000100  36 e7 20 42 41 53 45 25  3d 31 20 8c 20 42 41 53  |6. BASE%=1 . BAS|
00000110  45 25 3d 31 20 8b e7 20  42 41 53 45 25 3d 32 20  |E%=1 .. BASE%=2 |
00000120  8c 20 42 41 53 45 25 3d  34 20 8b 20 42 41 53 45  |. BASE%=4 . BASE|
00000130  25 3d 37 0d 00 32 4c db  3a f1 3a f1 22 4d 6f 72  |%=7..2L.:.:."Mor|
00000140  73 65 20 63 6f 64 65 20  74 72 61 6e 73 6c 61 74  |se code translat|
00000150  6f 72 22 3a f1 3a f1 22  53 70 65 63 69 61 6c 20  |or":.:."Special |
00000160  63 6f 64 65 73 20 6d 75  73 74 20 62 65 20 69 6e  |codes must be in|
00000170  73 69 64 65 20 5b 20 61  6e 64 20 5d 22 3a f1 0d  |side [ and ]":..|
00000180  00 3c 1c f4 20 44 72 61  77 20 73 63 72 65 65 6e  |.<.. Draw screen|
00000190  20 74 68 65 6e 20 77 61  69 74 20 0d 00 46 b6 f1  | then wait ..F..|
000001a0  8a 30 2c 31 33 29 22 5b  30 31 5d 20 50 65 72 69  |.0,13)"[01] Peri|
000001b0  6f 64 22 3a f1 8a 32 30  2c 31 33 29 22 5b 30 32  |od":..20,13)"[02|
000001c0  5d 20 45 72 72 6f 72 22  3a f1 8a 30 2c 31 34 29  |] Error":..0,14)|
000001d0  22 5b 30 33 5d 20 51 75  65 73 74 69 6f 6e 20 6d  |"[03] Question m|
000001e0  61 72 6b 22 3a f1 8a 32  30 2c 31 34 29 22 5b 30  |ark":..20,14)"[0|
000001f0  34 5d 20 48 79 70 68 65  6e 22 3a f1 8a 30 2c 31  |4] Hyphen":..0,1|
00000200  35 29 22 5b 30 35 5d 20  43 61 6c 6c 22 3a f1 8a  |5)"[05] Call":..|
00000210  32 30 2c 31 35 29 22 5b  30 36 5d 20 41 70 6f 73  |20,15)"[06] Apos|
00000220  74 72 6f 70 68 65 22 3a  f1 8a 30 2c 31 36 29 22  |trophe":..0,16)"|
00000230  5b 30 37 5d 20 43 6c 6f  73 65 20 29 22 3a f1 8a  |[07] Close )":..|
00000240  32 30 2c 31 36 29 22 5b  30 38 5d 20 50 6c 75 73  |20,16)"[08] Plus|
00000250  22 0d 00 50 a9 f1 8a 30  2c 31 37 29 22 5b 30 39  |"..P...0,17)"[09|
00000260  5d 20 53 74 72 6f 6b 65  20 2f 22 3a f1 8a 32 30  |] Stroke /":..20|
00000270  2c 31 37 29 22 5b 31 30  5d 20 55 6e 64 65 72 73  |,17)"[10] Unders|
00000280  74 6f 6f 64 22 3a f1 8a  30 2c 31 38 29 22 5b 31  |tood":..0,18)"[1|
00000290  31 5d 20 43 6c 6f 73 65  22 3a f1 8a 32 30 2c 31  |1] Close":..20,1|
000002a0  38 29 22 5b 31 32 5d 20  43 6f 6d 6d 61 20 2c 22  |8)"[12] Comma ,"|
000002b0  3a f1 8a 30 2c 31 39 29  22 5b 31 33 5d 20 57 61  |:..0,19)"[13] Wa|
000002c0  69 74 22 3a f1 8a 32 30  2c 31 39 29 22 5b 31 34  |it":..20,19)"[14|
000002d0  5d 20 45 6e 64 20 6f 66  20 6d 65 73 73 61 67 65  |] End of message|
000002e0  22 3a f1 8a 30 2c 32 30  29 22 5b 31 35 5d 20 43  |":..0,20)"[15] C|
000002f0  6f 6c 6f 6e 20 6f 72 20  7e 22 0d 00 5a a7 f1 8a  |olon or ~"..Z...|
00000300  32 30 2c 32 30 29 22 5b  31 36 5d 20 51 75 6f 74  |20,20)"[16] Quot|
00000310  65 73 22 3a f1 8a 30 2c  32 31 29 22 5b 31 37 5d  |es":..0,21)"[17]|
00000320  20 4f 70 65 6e 20 28 22  3a f1 8a 32 30 2c 32 31  | Open (":..20,21|
00000330  29 22 5b 31 38 5d 20 45  71 75 61 6c 73 22 3a f1  |)"[18] Equals":.|
00000340  8a 30 2c 32 32 29 22 5b  31 39 5d 20 4d 75 6c 74  |.0,22)"[19] Mult|
00000350  69 70 6c 79 22 3a f1 8a  32 30 2c 32 32 29 22 5b  |iply":..20,22)"[|
00000360  32 30 5d 20 57 61 72 6e  69 6e 67 21 22 3a f1 8a  |20] Warning!":..|
00000370  30 2c 32 33 29 22 5b 32  31 5d 20 52 65 63 65 69  |0,23)"[21] Recei|
00000380  76 65 64 22 3a f1 8a 32  30 2c 32 33 29 22 5b 32  |ved":..20,23)"[2|
00000390  32 5d 20 43 6c 6f 73 69  6e 67 20 64 6f 77 6e 22  |2] Closing down"|
000003a0  3b 0d 00 64 43 f1 8a 30  2c 33 29 22 22 3a e8 20  |;..dC..0,3)"":. |
000003b0  4d 45 53 24 3a e7 20 a9  28 4d 45 53 24 29 3d 30  |MES$:. .(MES$)=0|
000003c0  20 8c 20 f1 3a f1 22 4e  6f 20 6d 65 73 73 61 67  | . .:."No messag|
000003d0  65 22 3a e0 20 20 8b e3  41 3d 31 20 b8 a9 28 4d  |e":.  ..A=1 ..(M|
000003e0  45 53 24 29 0d 00 6e 5e  f4 20 54 61 6b 65 20 65  |ES$)..n^. Take e|
000003f0  61 63 68 20 6c 65 74 74  65 72 20 69 6e 20 74 75  |ach letter in tu|
00000400  72 6e 20 61 6e 64 20 66  69 6e 64 20 69 74 20 69  |rn and find it i|
00000410  6e 20 74 68 65 20 64 61  74 61 20 62 61 73 65 20  |n the data base |
00000420  74 68 65 6e 20 70 6c 61  79 20 69 74 20 6f 6e 65  |then play it one|
00000430  20 65 6c 65 6d 65 6e 74  20 61 74 20 61 20 74 69  | element at a ti|
00000440  6d 65 0d 00 78 1b e7 20  c1 4d 45 53 24 2c 41 2c  |me..x.. .MES$,A,|
00000450  31 29 3d 22 5b 22 20 8c  e5 8d 64 5c 40 0d 00 82  |1)="[" ...d\@...|
00000460  2e e7 20 c1 4d 45 53 24  2c 41 2c 31 29 3d 22 20  |.. .MES$,A,1)=" |
00000470  22 20 8c 20 d4 20 31 2c  30 2c 38 39 2c 37 2a 42  |" . . 1,0,89,7*B|
00000480  41 53 45 25 3a e5 20 8d  64 48 40 0d 00 8c 1e e3  |ASE%:. .dH@.....|
00000490  42 3d 33 20 b8 a9 28 4c  24 28 97 28 c1 4d 45 53  |B=3 ..(L$(.(.MES|
000004a0  24 2c 41 2c 31 29 29 29  29 0d 00 96 37 e7 20 c1  |$,A,1))))...7. .|
000004b0  4c 24 28 97 28 c1 4d 45  53 24 2c 41 2c 31 29 29  |L$(.(.MES$,A,1))|
000004c0  29 2c 42 2c 31 29 3d 22  4c 22 20 8c 20 d4 20 31  |),B,1)="L" . . 1|
000004d0  2c 2d 31 35 2c 31 35 30  2c 33 2a 42 41 53 45 25  |,-15,150,3*BASE%|
000004e0  0d 00 a0 35 e7 20 c1 4c  24 28 97 28 c1 4d 45 53  |...5. .L$(.(.MES|
000004f0  24 2c 41 2c 31 29 29 29  2c 42 2c 31 29 3d 22 53  |$,A,1))),B,1)="S|
00000500  22 20 8c 20 d4 20 31 2c  2d 31 35 2c 31 35 30 2c  |" . . 1,-15,150,|
00000510  42 41 53 45 25 0d 00 aa  13 d4 20 31 2c 30 2c 31  |BASE%..... 1,0,1|
00000520  35 30 2c 42 41 53 45 25  0d 00 b4 07 ed 20 42 0d  |50,BASE%..... B.|
00000530  00 be 15 d4 20 31 2c 30  2c 31 35 30 2c 33 2a 42  |.... 1,0,150,3*B|
00000540  41 53 45 25 0d 00 c8 07  ed 20 41 0d 00 d2 0f f1  |ASE%..... A.....|
00000550  3a f1 22 44 6f 6e 65 22  3a e0 0d 00 dc 13 f4 20  |:."Done":...... |
00000560  53 70 65 63 69 61 6c 20  77 6f 72 64 73 0d 00 e6  |Special words...|
00000570  14 53 50 24 3d c1 4d 45  53 24 2c 41 2b 31 2c 32  |.SP$=.MES$,A+1,2|
00000580  29 0d 00 f0 33 e7 20 bb  28 53 50 24 29 3e 32 32  |)...3. .(SP$)>22|
00000590  20 84 20 bb 28 53 50 24  29 3c 31 20 8c 20 f1 3a  | . .(SP$)<1 . .:|
000005a0  f1 22 4b 65 79 77 6f 72  64 20 75 6e 6b 6e 6f 77  |."Keyword unknow|
000005b0  6e 22 3a e0 0d 00 fa 23  50 53 4e 3d a7 4c 24 28  |n":....#PSN=.L$(|
000005c0  bb 28 c1 4d 45 53 24 2c  41 2b 31 2c 32 29 29 29  |.(.MES$,A+1,2)))|
000005d0  2c 22 2f 22 29 2b 31 0d  01 04 20 e3 42 3d 50 53  |,"/")+1... .B=PS|
000005e0  4e 20 b8 a9 4c 24 28 bb  28 c1 4d 45 53 24 2c 41  |N ..L$(.(.MES$,A|
000005f0  2b 31 2c 32 29 29 29 0d  01 0e 39 e7 20 c1 4c 24  |+1,2)))...9. .L$|
00000600  28 bb 28 c1 4d 45 53 24  2c 41 2b 31 2c 32 29 29  |(.(.MES$,A+1,2))|
00000610  29 2c 42 2c 31 29 3d 22  4c 22 20 8c 20 d4 20 31  |),B,1)="L" . . 1|
00000620  2c 2d 31 35 2c 31 35 30  2c 33 2a 42 41 53 45 25  |,-15,150,3*BASE%|
00000630  0d 01 18 37 e7 20 c1 4c  24 28 bb 28 c1 4d 45 53  |...7. .L$(.(.MES|
00000640  24 2c 41 2b 31 2c 32 29  29 29 2c 42 2c 31 29 3d  |$,A+1,2))),B,1)=|
00000650  22 53 22 20 8c 20 d4 20  31 2c 2d 31 35 2c 31 35  |"S" . . 1,-15,15|
00000660  30 2c 42 41 53 45 25 0d  01 22 13 d4 20 31 2c 30  |0,BASE%..".. 1,0|
00000670  2c 31 35 30 2c 42 41 53  45 25 0d 01 2c 07 ed 20  |,150,BASE%..,.. |
00000680  42 0d 01 36 0f 41 3d 41  2b 33 3a e5 8d 74 7e 40  |B..6.A=A+3:..t~@|
00000690  0d 01 40 32 f4 20 44 61  74 61 20 77 68 65 72 65  |..@2. Data where|
000006a0  20 4c 3d 6c 6f 6e 67 20  6f 72 20 64 61 73 68 20  | L=long or dash |
000006b0  61 6e 64 20 53 3d 73 68  6f 72 74 20 6f 72 20 64  |and S=short or d|
000006c0  6f 74 0d 01 4a e2 dc 22  50 45 52 49 4f 44 2f 53  |ot..J.."PERIOD/S|
000006d0  4c 53 4c 53 4c 22 2c 22  45 52 52 4f 52 2f 53 53  |LSLSL","ERROR/SS|
000006e0  53 53 53 53 53 53 22 2c  22 3f 2f 53 53 4c 4c 53  |SSSSSS","?/SSLLS|
000006f0  53 22 2c 22 2d 2f 4c 53  53 53 53 4c 22 2c 22 43  |S","-/LSSSSL","C|
00000700  41 4c 4c 2f 4c 53 4c 53  4c 22 2c 22 27 2f 53 4c  |ALL/LSLSL","'/SL|
00000710  4c 4c 4c 53 22 2c 22 29  2f 4c 53 4c 4c 53 4c 22  |LLLS",")/LSLLSL"|
00000720  2c 22 2b 2f 53 4c 53 4c  53 22 2c 22 53 54 52 4f  |,"+/SLSLS","STRO|
00000730  4b 45 2f 4c 53 53 4c 53  22 2c 22 55 4e 44 45 52  |KE/LSSLS","UNDER|
00000740  53 54 4f 4f 44 2f 53 53  53 4c 53 22 2c 22 43 4c  |STOOD/SSSLS","CL|
00000750  4f 53 45 2f 53 53 53 4c  53 4c 22 2c 22 2c 2f 4c  |OSE/SSSLSL",",/L|
00000760  4c 53 53 4c 4c 22 2c 22  57 41 49 54 2f 53 4c 53  |LSSLL","WAIT/SLS|
00000770  53 53 22 2c 22 45 4f 4d  2f 53 4c 53 4c 53 22 2c  |SS","EOM/SLSLS",|
00000780  22 7e 2f 4c 4c 4c 53 53  53 22 2c 22 51 55 4f 54  |"~/LLLSSS","QUOT|
00000790  45 53 2f 53 4c 53 53 4c  53 22 2c 22 28 2f 4c 53  |ES/SLSSLS","(/LS|
000007a0  4c 4c 53 22 0d 01 54 4f  dc 22 3d 2f 4c 53 53 53  |LLS"..TO."=/LSSS|
000007b0  4c 22 2c 22 2a 2f 4c 53  53 4c 22 2c 22 57 41 52  |L","*/LSSL","WAR|
000007c0  4e 49 4e 47 2f 53 4c 53  53 4c 22 2c 22 52 45 43  |NING/SLSSL","REC|
000007d0  45 49 56 45 44 2f 53 4c  53 22 2c 22 43 4c 4f 53  |EIVED/SLS","CLOS|
000007e0  49 4e 47 20 54 52 41 4e  53 4d 2f 4c 53 4c 53 53  |ING TRANSM/LSLSS|
000007f0  4c 53 22 0d 01 5e 68 dc  22 30 2f 4c 4c 4c 4c 4c  |LS"..^h."0/LLLLL|
00000800  22 2c 22 31 2f 53 4c 4c  4c 4c 22 2c 22 32 2f 53  |","1/SLLLL","2/S|
00000810  53 4c 4c 4c 22 2c 22 33  2f 53 53 53 4c 4c 22 2c  |SLLL","3/SSSLL",|
00000820  22 34 2f 53 53 53 53 4c  22 2c 22 35 2f 53 53 53  |"4/SSSSL","5/SSS|
00000830  53 53 22 2c 22 36 2f 4c  53 53 53 53 22 2c 22 37  |SS","6/LSSSS","7|
00000840  2f 4c 4c 53 53 53 22 2c  22 38 2f 4c 4c 4c 53 53  |/LLSSS","8/LLLSS|
00000850  22 2c 22 39 2f 4c 4c 4c  4c 53 22 0d 01 68 d8 dc  |","9/LLLLS"..h..|
00000860  22 41 2f 53 4c 22 2c 22  42 2f 4c 53 53 53 22 2c  |"A/SL","B/LSSS",|
00000870  22 43 2f 4c 53 4c 53 22  2c 22 44 2f 4c 53 53 22  |"C/LSLS","D/LSS"|
00000880  2c 22 45 2f 53 22 2c 22  46 2f 53 53 4c 53 22 2c  |,"E/S","F/SSLS",|
00000890  22 47 2f 4c 4c 53 22 2c  22 48 2f 53 53 53 53 22  |"G/LLS","H/SSSS"|
000008a0  2c 22 49 2f 53 53 22 2c  22 4a 2f 53 4c 4c 4c 22  |,"I/SS","J/SLLL"|
000008b0  2c 22 4b 2f 4c 53 4c 22  2c 22 4c 2f 53 4c 53 53  |,"K/LSL","L/SLSS|
000008c0  22 2c 22 4d 2f 4c 4c 22  2c 22 4e 2f 4c 53 22 2c  |","M/LL","N/LS",|
000008d0  22 4f 2f 4c 4c 4c 22 2c  22 50 2f 53 4c 4c 53 22  |"O/LLL","P/SLLS"|
000008e0  2c 22 51 2f 4c 4c 53 4c  22 2c 22 52 2f 53 4c 53  |,"Q/LLSL","R/SLS|
000008f0  22 2c 22 53 2f 53 53 53  22 2c 22 54 2f 4c 22 2c  |","S/SSS","T/L",|
00000900  22 55 2f 53 53 4c 22 2c  22 56 2f 53 53 53 4c 22  |"U/SSL","V/SSSL"|
00000910  2c 22 57 2f 53 4c 4c 22  2c 22 58 2f 4c 53 53 4c  |,"W/SLL","X/LSSL|
00000920  22 2c 22 59 2f 4c 53 4c  4c 22 2c 22 5a 2f 4c 4c  |","Y/LSLL","Z/LL|
00000930  53 53 22 0d ff                                    |SS"..|
00000935