`>R?.!6X'T:\B<|<~<B~|%@ @ #<@@>B<|B<>B~xB>B>BB><||<<|B<@Bx~<~BB~|<|B~<@~<|B>B<B<fBB@@BBD@BBBBbDBBb@B%@88x D8<@88x88Dx#B@@b@BBBBb@BbDBBBfB@BB@BBbBb@DBBbB@BfBBBBbB@BD@@@BBBB@Bbb@B@BBBb@@@@BBbbBBbD@@bBZBB<|@BB|BBBBRBBBR|B%@D DB~B%~<< D<x8D B<B<<>B~x$>B>BB><@B<B<~BB~B<B<<>B~<~~BBB>B<BBx~<>B<-88~|B<@~B<|<~B|B~<~<|B<<~BB<BB<<|~~x<>B<>BB@<~xB<|<~<>|B~||B|@~@BBf@bB@@fBB@@B@B@bBBB@BBBbD@BBbD+B@B@BB@B@@BBB@@BBBb@@@BBBB@@BBBBBB@@@BBb@DB@fBB@@@DfBB@@B@BDbB@B@@D@b@fB@B@DfBB@@BBB@BBBbB@@BBfBB(DxhbBBDB@@|BBZ<R@@|ZBB<|@~BBB@|B<R|B~<@~BRBB<~~BB|<B<>B~<@B<<@~~x<>B<>B<~B~xB@B~BBBB<~@B(@T>BB|~~@ JB<|<~~(@T><557űa$>11,1:100d pA$="7"9000(# s x 3,3;"PLEASE ENTER YOUR CHOICE OF"'" CHARACTERS TO BE INCLUDED IN"'" YOUR CHOSEN ROUTINE"''''"10 NUMERALS ONLY"''"26 ALPHBETIC CHARACTERS ONLY"'''"36 ALPHANUMERIC CHARACTERS":;4;1;"ENTER APPROPRIATE NUMBER";g$:g$=""120x } g$="10"a=26:131 Zg$<502ůg$>513ůg$(2)546űg$21,1:120x g=g$  2,0;"READERS ";1;2,0;"_":3,0;"YOU MAY NOW SELECT A SPEED TO"'"MATCH YOUR ABILITIES. THE WIDE"'"SPEED RANGE IS INTENDED TO LET"'"YOU IMPROVE YOUR READING SKILL"'"IN EASY STAGES" D9 ,0;"BEGINNERS";1;9 ,0;" _" J10 ,0;"IF YOU ARE LEARNING OR TESTING"'"YOUR MEMORY(ROUTINES 1 TO 4) YOU"'"SHOULD SELECT AS FAST A SPEED AS"'"POSSIBLE TO MATCH YOUR VISUAL"'"AND HEARING COMPETENCE. YOUR AIM"'"AT THIS STAGE SHOULD BE TO"'"ATTAIN A SPEED INPUT OF AT LEAST"'"30 IN READING OR TESTING YOUR"'"KNOWLEDGE OF THE SINGLE MORSE"'"CHARACTERS" c;4;20,0;"ENTER ANY NUMBER BETWEEN "'"10 (FAST) AND 99 (VERY SLOW) " 1000  Ùa$="5"4;7,0;"MORSE TRANSMISSION WILL START "'"IN SIX SECONDS. PAPER AND "'"PENCIL AT THE READY PLEASE ":300,: n=136$:m$(n):n m=15 x=((*g)+1)+a c$=m$(x) l=c$ n=2l a$"5"a$"3"300, c$(n)="-"da,p c$(n)="."dit,p n a$="5"321A "a$="3"430 ,a$="1"462 6a$="6"630v 8a$="2"660 :a$="4"3000 Av,w;c$(1) J""900 Tb;4;20,0;"PRESS ANY KEY TO STOP THEN CHECK"'"YOUR READING.No OF WORDS ";y ^ w=w+1 h9w=5w=11 w=17w=23w=w+1 r$w=29v=v+1:w=0 |v=20900 o m  y=y+1 r  220 d7,0;" PRESS APPROPRIATE KEY -"''" OR SYMBOL SHIFT + M TO"'" RETURN TO MENU" M12 ,0;" TO CHANGE SPEED PRESS SYMBOL "'" SHIFT + L" 0:q$= ="."20 ="="1000 q$="="220 a=c$(1);4;14,10 ;"OK ";c$:.5,40(:502::220 kc$;4;14,0;"WRONG. CORRECT LETTER WAS ";c$:2,2:502::220 4,0;"IF YOU ARE LEARNING THE MORSE"'"SYMBOLS YOU SHOULD PRESS KEY~Y~"''"SHOULD YOU WISH TO INPUT MORE"'"THAN ONE LETTER/NUMERAL PRESS"'"KEY ~N~":14,8;"PRESS ~Y~ OR ~N~" #0::y$=:y$=""462 y$="Y"467 y$="N"475 y$"Y"y$"N"462 1;1,0;" ALL ALPHANUMERIC KEYS ARE"'" OPERATIVE IN THIS ROUTINE":4;5,0;"PRESS ANY KEY AND LISTEN TO THE "'"CORRESPONDING MORSE SYMBOL "''';6;" OR "''';4;"PRESS SYMBOL SHIFT + M TO "'"RETURN TO MENU "''':18,0;4;"IF YOU WISH TO CHANGE SPEED IN "'"THIS ROUTINE PRESS SYMBOL SHIFT "'"+ L ":0: d$=:="="1000 ="."20 Fd$=""ůd$<46.ůd$>90Zůd$>579Ưd$<65A467  500 57,0;" ENTER LETTER, WORD OR SENTENCES" W1;1,0;" ALL ALPHANUMERIC KEYS ARE"'" OPERATIVE IN THIS ROUTINE" 10 ,0;" ENTER 'ZZZZ' TO RETURN TO MENU"''"( Between sentences enter three"'"spaces. Do not enter symbol"'"shifted keys otherwise program"'"will stop'Integer out of range'"'"If this happens enter ~GOTO 610~)" :20,0;" ENTER YYYY TO CHANGE SPEED " "4;"ENTER YOUR MESSAGE";d$ d$="ZZZZ"20 d$="YYYY"1000 d$="YYYY"485 n=1̱d$ Ad$(n)579Ưd$(n)480z=(d$(n)-21):540 (d$(n)=32 z=37%:540  A$="6" z=(d$(n )-64@)  a$="4" m=2̱m$(z) &m$(z,m)="-"da,p 0m$(z,m)="."dit,p : 1 Dm NDd$=1;7;1;16,13 ;m$(z)(1) Sy$="Y"467 X)d$>10,13 ;" " ]o bn d 475 v5,0;"IF YOU HAVE SELECTED A SLOW"'"SPEED YOU MAY WISH TO SEE THE "'"INTERPRETATION AT THE SAME TIME"'"AS YOU ARE READING ALDIS LAMP"'''"FOR SIMULTANEOUS READ AND CHECK ENTER .7"''"FOR CHECK AFTER READING ENTER 0" w#"ENTER 0 7";i$:i$=""631w xi$"7"i$"0"631w yi=i$ {7:0: ;3;7,0;"ALDIS LAMP SIGNALS WILL COMMENCE"'"IN EIGHT SECONDS. WHEN READING "'"AT FAST SPEEDS A FRIEND SHOULD "'"WRITE DOWN THE LETTERS/NUMBERS "'"AS YOU CALL THEM ":400:  502 m=15  940 a$="2"2000 l;6;0;20,0;"PRESS ANY KEY WHEN YOU WISH "'"TO CHECK YOUR READING "  n=2l 1c$(n)="-"15,15;"":da*100d 2c$(n)="."15,15;"":dit*100d $;0;15,15;"" dit*200 n  a$="2" ""850R  w=w+1 i;v,w;c$(1)  9w=5w=11 w=17w=23w=w+1 $w=29w=0:v=v+1  v=15850R *o 4m >r H 660 RYn=021:;1;1;n,0;" ":n \k;7;20,0;"PRESS ANY KEY TO RETURN TO MENU! ":910 fc$(n)="-"da,p pc$(n)="."dit,p z `;5;20,0;"PRESS ANY KEY TO RETURN TO MENU! " ""910 =""930 ""20  930 x=((*g)+1)+a  c$=m$(x) l=c$  K24,126~,0,255,255,0,126~,24 "A.-","B-...","C-.-.","D-..","E.","F..-.","G--.","H....","I..","J.---","K-.-","L.-..","M--","N-.","O---","P.--.","Q--.-","R.-.","S...","T-","U..-","V...-","W.--","X-..-","Y-.--","Z--..","0-","1.----","2..---","3...--","4....-","5.","6-....","7--...","8---..","9----."  " " %"".1}L,30:1000 94;1;"ENTER SPEED ";s$:s$=""1002 rs$<491ůs$>579ůs$(2)<480ůs$(2)>579űs$21,1:1002 s=s$ !da=s/150:dit=s/600X s>30dit=.07}\( $.y$="N"a$="5"a$="6"s>30da=.2~L .,s>30o=2+(s-30)*2 8&s30o=(S/10 +.5) Br=o+.75@*o L 0:7: k6;0;10 ,0;"PRESS CORRECT KEY AFTER YOU SEE "'" THE ALDIS LAMP VISUAL SIGNAL " ۨ1;0,0;"T0 ESCAPE- PRESS SYMBOL SHIFT+ M"''"TO CHANGE SPEED - KEEP SYMBOL "'"SHIFT + L PRESSED UNTIL YOU HEAR"'"A SERIES OF BEEPS " ="="1000  100d  690  0 ="."20 l=c$(1).5,40(:1;14,6;"OK ";c$;" ":100d:660 ]c$(1)2,2:1;14,0;"WRONG- CORRECT LETTER WAS ";c$  100d  :660 0:7: r1;0,0;"TO ESCAPE - PRESS SYMB SHIFT + M";3,0;"TO CHANGE SPEED - SYMB SHIFT + L" Ž6;0;10 ,0;" PRESS KEY AND SEE THE ALDIS "'" LAMP FLASH THE CORRESPONDING "'" MORSE SYMBOL " 0:d$= d$=13 3020 d$="="1000 d$="."20 Ad$<480ůd$>90Zůd$>579Ưd$<65A3020 500 d$="="3020 n=2̱m$(z) 3m$(z,n)="-"15,15;"":da*100d 4m$(z,n)="."15,15;"":dit*100d !0;15,15;" " dit*200 n  3020 #(,:10 ,8;"RUN THE TAPE":"" '8:*"M";1;"MORSE"2:*"M";1;"MORSE": ':"MORSE"2  ""  p P P P Mw3333`M`>v>>BB<DHpHDB@~BfZBBBBbRJFB