Morse Tuto\ /23658j\,255:force upper case input #Morse Tutor @ Robert Erskine 1983 ( 85004! d1:5:1: n1,11 ;"OPTIONS" x "1 Print a message": "2 Message with sound only": "3 Create your own message": "4 Test section": "5 Change speed": "6 The Morse Code": ="1"2005 ="2"2000 ="3"2030 ="4"5000 ="5"6000p ="6"7000X " 210 x$=v$:v$=q$+v$+h$ x=1̱v$-32 /O=021,0;v$(xx+31) T=v$(x+31) y=15 6T>64@c((v$(x+31))-64@,y),25 AT<58:T>47/c((v$(x+31))-21,y),25 y  3 x  2110>  O=1 v$=f$  1000  100d ':2,7;"CREATE A MESSAGE" Z"Enter your own message at the ","bottom of the screen and then ","press the ENTER key." v$  J:"Do you want the message displayed in both sound and vision? (Y or N)"  100d =""2070  ="Y"21004 * O=1 4 1000 > O=0 \f$=x$ f 100d $:1,10 ;"TEST SECTION"  H"Do you want to be tested on characters (1) code (2) or sound (3)?";A$ A$="1"W=1 A$="2"W=2 A$="3"W=3 'A$<491ůA$>5135020 9"Do you want testing on letters (1) or numbers (2)?";A$ A$="1"B=1 A$="2"B=2 'A$<491ůA$>5025060 W>15250  502 V"The character will appear first, followed shortly by the code and sound":100d  x=115 $B=1v=(*26)+1 /B=2v=((*10 )+1)+26 (B=1(v+64@); 2B=2(v+21); < 502 Fy=15 Pc(v,y),25 Zy d " = ";c$(v) nx x502:100d W>25390 U"The code will appear first, followed shortly by the chracter and sound":100d x=115 $B=1v=(*26)+1 /B=2v=((*10 )+1)+26 c$(v);:502 y=15 c(v,y),25 y " = "; B=1(v+64@) B=2(v+21) x 502:100d X"The sound will be heard first, followed shortly by the character and code":100d x=115 "$B=1v=(*26)+1 ,/B=2v=((*10 )+1)+26 6y=15 @c(v,y),25 Jy T 502 ^"That was "; h'B=1(v+64@);" = ";c$(v), r'B=2(v+21);" = ";c$(v), | 502 x 502:100d p,:1,6;"ALTER SPEED OF CODE": zn"Enter a multiplication factor to alter the speed of the morse. Values less than 1 will increase the speed" A A>9 6020 )"Please wait":s=s*A:l=l*A:9000(#  100d X':0,7;"THE MORSE CODE": bX=136$ l(X<27(X+64@);" = ";C$(X), v(X>26(X+21);" = ";C$(X), X /:21,0;"PRESS ANY KEY TO RETURN"  0  100d !4*s=.1}L:l=.3:O=0:x$="" !>f$="THIS IS A MESSAGE TO DEMONSTRATE THE MORSE CODE TUTOR THE COMPLETE ALPHABET IS AS FOLLOWS ABCDEFGHIJKLMNOPQRSTUVWXYZ AND THE NUMBERS ARE 1234567890" !H&q$=" " !Rh$=" " #(:c(36$,5) #2x=136$ #<y=15 #Fc(x,y) #Py #Zx #d%s,l,0,0,0,l,s,s,s,0,l,s,l,s,0,l,s,s,0,0,s,0,0,0,0,s,s,l,s,0,l,l,s,0,0,s,s,s,s,0,s,s,0,0,0,s,l,l,l,0,l,s,l,0,0,s,l,s,s,0,l,l,0,0,0,l,s,0,0,0,l,l,l,0,0,s,l,l,s,0,l,l,s,l,0,s,l,s,0,0,s,s,s,0,0,l,0,0,0,0,s,s,l,0,0,s,s,s,l,0,s,l,l,0,0,l,s,s,l,0,l,s,l,l,0,l,l,s,s,0 #nel,l,l,l,l,s,l,l,l,l,s,s,l,l,l,s,s,s,l,l,s,s,s,s,l,s,s,s,s,s,l,s,s,s,s,l,l,s,s,s,l,l,l,s,s,l,l,l,l,s #xc$(36$,9 ) #x=136$ #c$(x) # "._","_...","_._.","_..",".",".._.","_ _.","....","..","._ _ _","_._","._..","_ _","_.","_ _ _","._ _ .","_ _._","._.","...","_",".._","..._","._ _","_.._","_._ _","_ _..","_ _ _ _ _","._ _ _ _",".._ _ _","..._ _","...._",".....","_....","_ _...","_ _ _..","_ _ _ _." #x # D