Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
AEF\DB\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"F\D0E\FE\C8\E5\B7 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"C\B8\BE\F5E\CD\BE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\E7\E1\D5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\F0\CD\E7\E1\CC\AF\CB\C8\CB\CBCF
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
E\A2\CD\D5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CD\E7\E9\D3\FF\CD\F1\DB\FE\CD\F1\F3
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
D\EF\C9
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
B
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
C\B5\F7\C9ED\FD\C9
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
E\CDA\FB\CD
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
E
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
\CDA\F6\B7C\BD\F5\CDE
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
E\CD\CDA\E3\B7D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"F\BC\F4\CD\D2C\BA itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
\A7\CB\C9A\CB\BCC itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"\CB\C9B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"F\E7\F0\CB\FC\E5\B8\BEE\B7\F6E\E1\C9
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
BE\E1\C9\E5\C5\D5
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
A
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
C
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"F
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
\ED\B0
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
B\D1\C1\E1\C9E
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
\CD\C9\C5
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
E
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
\DB\FE\B1F\FA\CB\F0\C1\C9EF\DB\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"F
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
\E1\C9\E5
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
\CDC\FE\C9C\E1\C9
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
A
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
B
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
C
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
B
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
D
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
E
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"E
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
D
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"B
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
AA
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
CBC
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
EDE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"DF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"CF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"DE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"EC itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"F
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
F
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
A
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
D\BC\BA itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"BA
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.1 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.0"A
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
B\C0
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
FC
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
CEDDC
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
Skip to content
Morse Code Translator
Products: Morse Code Translator
Developer(s): Paul Thomson
Date: 1984
Type: Cassette
Platform(s): TS 1000
Load program, select speed, play morse code into EAR jack. Play Morse Code Example.wav for an example of expected input. Morse Code Example.wav works at 9 WPM.
Content
Source Code
1 REM \76\76\2A\10\40\23\23\23\3E\7F\DB\FE\1F\D0\7E\FE\80\C8\23\E5\B7\28\1C\21\B8\41\BE\28\08\34\35\28\12\23\23\18\F5\23\4E\CD\BE\40\21\01\50\CD\E7\40\E1\18\D5\21\01\F0\CD\E7\40\E1\18\CC\AF\CB\19\C8\CB\17\CB\17\3C\5F\2E\A2\CD\D5\40\21\01\28\CD\E7\40\18\E9\53\D3\FF\CD\F1\40\DB\FE\CD\F1\40\15\20\F3\2D\20\EF\C9\2B\00\00\00\00\7C\B5\20\F7\C9\3E\50\3D\20\FD\C9\00\21\24\00\11\00\12\0E\80\CD\9A\41\38\FB\CD\2E\41\26\00\CD\9A\41\30\F6\B7\7C\17\BD\38\F5\CD\4E\41\0E\80\CD\69\41\CD\9A\41\30\E3\B7\7D\1F\85\BC\30\F4\CD\81\41\18\D2\7C\17\BA\30\07\54\1E\00\A7\CB\19\C9\7A\CB\17\BC\30\08\54\6C\1E\01\37\CB\19\C9\7B\1F\30\E7\18\F0\37\CB\19\30\FC\E5\21\B8\41\23\79\BE\28\09\23\7E\B7\20\F6\3E\17\E1\C9\2B\7E\E1\C9\E5\C5\D5\2A\0C\40\11\22\00\19\54\5D\23\01\1F\00\ED\B0\2B\77\D1\C1\E1\C9\3E\00\CD\69\41\C9\C5\06\50\0E\00\24\DB\FE\B1\4F\10\FA\79\CB\17\38\F0\C1\C9\3E\7F\DB\FE\1F\1F\38\02\E1\C9\E5\26\00\CD\87\41\7C\FE\06\38\03\33\33\C9\7C\E1\84\67\37\C9\26\06\27\11\28\15\29\09\2A\02\2B\14\2C\0B\2D\10\2E\04\2F\1E\30\0D\31\12\32\07\33\05\34\0F\35\16\36\1B\37\0A\38\08\39\03\3A\0C\3B\18\3C\0E\3D\19\3E\1D\3F\13\1C\3F\1D\3E\1E\3C\1F\38\20\30\21\20\22\21\23\23\24\27\25\2F\13\2A\0D\68\BC\22\BA\28\1B\6A\19\55\0E\47\1A\73\0B\52\C0\52\0F\4C\0C\5E\16\61\18\29\10\6D\11\6D\83\6C\14\31\08\32\12\35\00\00\00\00\00
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120
People
10 FAST
15 CLS
20 PRINT "ENTER SPEED IN WPM (9 TO 100)";
25 INPUT Q
30 IF Q<9 OR Q>100 THEN GOTO 15
35 CLS
37 PRINT "SPEED=";Q;" WPM",""""" TO RECEIVE"
40 POKE 16558,720/Q
50 POKE 16567,2160/Q
60 POKE 16585,1461/Q
70 POKE 16591,360/Q
75 CLEAR
80 INPUT A$
90 IF A$="" THEN GOTO 120
100 RAND USR 16516
110 GOTO 80
120 CLS
130 FOR F=0 TO 2
140 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
150 NEXT F
160 PRINT "PRESS . TO GENERATE"
170 SLOW
180 RAND USR 16640
190 RUN
200 SAVE "MC%T"
210 PRINT TAB 5;"MORSE CODE TRANSLATOR"
220 PRINT TAB 5;"(C) 1984 PAUL THOMSON"
230 PAUSE 200
240 GOTO 120