' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`rUVW;@r\za@*#rGY\pde q_UVWY[f}dede0dededede ded ed ed ed eh}d edededededededeLd)[!@p(ͮ͠ˬҮ)[@p(İà)[<P88;@rrrUVW;@r\za@*#rGYc\p[.M6o\\\\\c\-cc\\c\\c\\cc \c\\\c\8P88;@rredeFdeFMdede<de2M[1zdededeM[2@p()[@p(ȠŠ)[@p(̠)[@p(٭W _q [ `qY aq [bqY_a cq\ dq [ eq [fq]_egq]_e hqc iqc jqc kq [j@p(ڱ)[]pd[Hq?_GIq?_G JqE KqE LqE Mq[ Nq[OqF_NPqF_N QqK RqK Sq[TqK_SUqK_S VqP WqP Xq[YqP_XZqP_X [qU \qU ]q[ ^q[1q(_02q(_03q(_0 4q. 5q. 6q[7q._6 8q2 9q2 :q[ ;q[ <q[ =q[ >q[ ?q[ @q[ Aq; Bq; Cq[Dq;_C Eq> Fq[ Gq[ qj[ qd[ q_[ qZ[ qU[ qQ[ qM[ !qI[ "qF[ #qC[ $q@[ %q>[ &q<['q_&(q_& )q# *q# +q1[,q#_+-q#_+ .q( /q( 0q)\\\\[\\\\[\\\\[ q[ q[ q[ q[ q[ q[[ q%[ q[ q[ q[ q[ q[ q[ q[ q{[ qv[ qq\\[\\\\[\\[\\[\\\[\\\\[\\\\[\\\[\\\[ \[\\\[\\\\[\\\[[#\\\\\\[[\\[\\\\[\\\\[\\\[ \[\\\\[\\\[\\\\[\\[\\\\[\\\\\[\\\\\[\\\\\[\\\\\[\\\\\[\\\\\[#\\\\\\[#\\\\\\[[[#\\\\\\[\\\\\[#\\\\\\[\\\\\[\\\\\[\\\\\[\\\\\[\\\\\[\a()GY'de \oPbE()0cPa(Ƞ٠٠ϠŠ)_ \\\\\[[[[[#\\\\\\[#\\\\\\[#\\\\\\[[ijkijkijklmnijkijk[,6lmnlmnlmn[1d6?eM6oP a(ȠŠ)]o P S(ԠĠϠՠԠ)'`%q`c%qco UVW'lmnlmn[/ijkijk[,0ijkijklmn[1ijkijk[2ijkijk[,3lmnlmnlmn[4ijkijk[`5ijkijk[6'ghghghghlmn[(ijkijk[,)lmnlmnlmn[,*lmnlmnlmn[,lmnlmn[-lmn[,.lmnTHIS SECTION WILL PRESENT SIMULATED QSO'S AT A SPEED YOU SELECT."::`$"SPEED IN WPM? ";A$$A1143.228057:B1.111686508:E12.71828183$A(A$)$A5A455015$D(A1(E1(B1A)))$D13D$D2D1:D3D$P75$770,P:794,P%C46#C59C44## C60C472#C61C69A#C62C73P#C64C72[#(C);d#"500k#'Jv#,10075#1(32);#6K(16384):16368,0#;K1554165#@4080#E#J##13)"PRACTICE QSO'S":16)"('N' WPM)"::G$" THE SENDING AND RETURN TO THE MENU, DEPRESS THE 'ESCAPE (ESC)' KEY. DEPRESS THE SPACE BAR TO START SENDING."w"Z$"35,23:24:7)"PRESS ESCAPE (ESC) TO STOP":"33,36"J15"A((1)43)"CA48"C48C90JJ1:4135#C58AND LETTERS WILLBE MIXED WITH NUMERALS AND PUNCTUATION.":S!"SPEED IN WPM? ";A$!A1143.228057:B1.111686508:E12.71828183!A(A$)!A5A454015!D(A1(E1(B1A)))!D13D!D2D1:D3D!P75!770,P:794,Po":" TO STOPR MINUTE."3 ::8)"PRESS SPACE BAR TO START"P D31:D193:D2255:D3200[ R8800e 8000k  10)"RANDOM GROUPS AT 'N' WPM"::!" APPLE WILL NOW SEND CODED GROUPS AT A SPEED YOU SELECT, FROM 5 TO 45 WPM. SPACING WILL BE NORMAL,  (32);% K(16384):16368,05 K1552585? 2500E K Q  13)"PRACTICE QSO'S":13)"(HAM CONTACTS)":: " THIS SECTION WILL PRESENT A SERIES OF RANDOMLY GENERATED SIMULATED HAM QSO'S AT THE NOVICE STANDARD OF 5 WORDS PE235,23:24:7)"PRESS ESCAPE (ESC) TO STOP":= 33,36H J15Y A((1)43)d CA48 C48C90JJ1:2555 C58C46 C59C44 C60C47 C61C69 C62C73 C64C72 (C); 500 J 10075NED OFF WHILE THE CODE IS COPIED BY HAND. COPY CAN BE CHECKED BY TURNING THE VIDEO BACK ON WHEN";y" FINISHED.": " TO STOP THE SENDING AND RETURN TO THE MENU, DEPRESS THE 'ESCAPE (ESC)' KEY. DEPRESS THE SPACE BAR TO START SENDING."Z$RACTERS WILL BE SEND AT OF SPEED OF 13 WPM BUT SPACED AT 5 WPM. NUMERALS AND PUNCTUA- TION WILL BE MIXED WITH LETTERS.":e" THE CHARACTERS WILL BE DISPLAYED ON THE SCREEN AS THEY ARE SENT, BUT IT IS STONGLY RECOMMENDED THAT THE VIDEO BE TUR368,0cK1551990!h(32);,m100756r1600B:1000KD31UD193`D2255kD3200tP75770,P794,P10)"RANDOM GROUPS AT 5 WPM":~" APPLE WILL NOW SEND RANDOM CODE GROUPSAT FIVE WORDS PER MINUTE. CHAI1)(C);500(I211000:0 J1<(32);G10075aK(16384):16368,0qK1551990yI1"'I11M,C(I1)1I16@I115EJ2((1)M1)JCC(J2)O(C);T500YI1^K(16384):16AR - END OF MESSAGE"8"= IS BT - BREAK, DOUBLE DASH"N"@ IS AS - WAIT"i"! IS ERROR (8 DITS)"s34,5}150035,23:24:7)"PRESS ESCAPE (ESC) TO STOP":D50:D1150:D2255:D3200:33,36I11NC(I1)J115CC(EY TO START THE FIRST LESSON"%Z$/1320:(R1100F-N9:M9P21500[<R1120iAN10:M19sF1500~PR1140UN12:M31Z1500dR1160iN5:M36n1500xR1180}N4:M401500R1190N4:M44:"+ IS AT YOUR OWN PACE. YOU WILL BE PRESENTED""WITH THE LETTERS OF THE ALPHABET BOTH VISUALLY AND WITH SOUND. COPY THE LET- TERS AS THEY ARE SENT. REPEAT EACH SEC- TION UNTIL YOU HAVE MASTERED IT BEFORE""GOING ON TO THE NEXT.":"PRESS ANY K]]]Qedede`[6 D9 60"4Y$Y$" N D823G",4I1(Y$)H4511I,((Y$,I,1))128V4:72,0:y4 BY GARY KELTZ, WB1FOK, 1979E 1B 03 F0 09 CA D0 F5 AE 1A 03 4C 1C 03 60"A3Y$Y$" N D823G"P3"I1(Y$)l3'511I,((Y$,I,1))128z3,:72,0:4|Y$"340:C9 52 D0 26 20 B1 00 20 67 DD 20 52 E7 20 1A D6 90 08 A0 04 B1 9B C9 83 F0 03 4C 7C D9 A5 9B A4 9C 38 E9 01 20 50 D8 4C AR$"5"İ1007523'I28'10060/2='771,D:77252B'F2G'771,D1:772L2L']2Q'795,D2:796c2V'n2['H172`'795,D3:7962e'H2j'2,3Y$"302:00 00 AD 30 C0 88 D0 05 CE 03 03 F0 09 CA D0 F5 AE 02 03 4C 04 03 60 00 00 00 AD 19 03 88 D0 05 CUDY,RAINING,CLEAR,OVERCAST1"SO BACK TO YOU,THAT IS THE STORY HERE,SO TELL ME ABOUT YOURSELF,NOW YOU KNOW THE SORDID DETAILS,HOW IS EVERY THING THERE?1'L(E$)1'I1L1'R$(E$,I,1)1'R$"1"İ100451$'R$"3"İ100551)'R$"4"İ10065 2.'AS 215X,A CENTURY 21,A SWAN CX 500,A YAESU FT 101 ZD, A KENWOOD TR 180,A HOME BREW RIG, A SIGNAL ONE0y"A TRIBANDER,A DIPOLE,A LONG WIRE,A RANDOM WIRE,AN INVERTED VEE,A VERTICAL,A TH 36 JR,A SLOPER,A ZEPP,A DOUBLET1~" HOT,WARM,COOL,COOL,COLD,SUNNY,CLOD,CLEVELAND,CHICAGO@/j"1,3,2,6,4,0,4,4,5,3,7,6,0,0,4,5,1,3,8,9/o"A DOCTOR,A LAWYER,A PLUMBER,A POLICE OFFICER,A TRUCK DRIVER,A CHEMIST,AN ENGINEER,A TECHNICIAN,A JEWLER,AN FCC EMPLOYEEd0t" A YAESU FT 101 EE,A KENWOOD TR 520S,A HEATHKIT SB 104,AN ATLWALLY,GERALDINE,RITA,GREGORY,GEORGE,AL,BILL,RUSSELL,MARY LOU,SAM,WILLY,HARRY,LARRY,VINCE/e"BOSTON,LANCASTER,BUFFALO,SAN DIEGO,PALM BEACH,MINNEAPOLIS,LOUISVILLE,GREENVILLE,HOUSTON,BALTIMORE,PHOENIX,SAN JOSE,DENVER,BISMARK,AUGUSTA,BILOXI,HARTFORD,HAVERFOR-C$;"-K(16384):16368,02-K1558245:- I1K- I11(SS$)^- C$(SS$,I1,1)j- C(C$)s- 500|- C$;-! K(16384):16368,0-& K1558245-+ I1-0 ::8065-5 -: X.`"W,K,N,WA,WB,KA,GARY,JOHN,MARY,SUSAN,JOSEPH,WALTER,P1$(R3),SS$". MY RIG IS "R1$(R5)", AND THE ANTENNA IS "A1$(R4)" AT "AH$" FEET. THE WEATHER HERE IS "W1$(R6)" AND "W2$(R6)", AND THE TEMPERATURE IS "TP$" DEGREES. "E1$(R7)" K + ",I11(S$),C$(S$,I1,1),C(C$),5000) +T240+R61T280,+R62T260<+R65T220U+TP$(((1)20)T2),S$P2$(R8)CD$(R2)CA$" DE "P2$(R9)CD$(R0)CB$" OK "N1$(Q1)", YOUR RST IS "RS$" HERE IN "C1$(R0)". MY NAME IS "N1$(R1)" AND I AM "AG$" YEARS OLD. I AM "(1)20)1*Q1((1)20)1Y*CA$(((1)26)65)(((1)26)65)(((1)26)65)*CB$(((1)26)65)(((1)26)65)(((1)26)65)*RS$((((1)37))(((1)37)10)(((1)33)100))*AG$(((1)30)30)+AH$(((1)50)55:E1$(I):)wZ$F)|35,23:24:7)"PRESS ESCAPE (ESC) TO STOP":Z)R1((1)20)1n)R2((1)20)1)R3((1)10)1)R4((1)10)1)R5((1)10)1)R6((1)5)1)R7((1)5)1)R8((1)6)1)R9((1)6)1 *R0(,A1$(10),W1$(5),W2$(5),E1$(5),R1$(10),P2$(6),CD$(20)I(EI16:P2$(I):_(JI120:N1$(I):u(OI120:C1$(I):(TI120:CD$(I):(YI110:P1$(I):(^I110:R1$(I):(cI110:A1$(I):(hI15:W1$(I):(mI15:W2$(I): )rI1SS SPACE BAR TO START"'Z$N':35,23:24:10)"PRESS RETURN TO STOP ":l'"ENTER COPY TO BE SENT:"t'T$'I11(T$)'C$(T$,I1,1)'T$""6135'C(C$)'500'I1'6090'::''4(@N1$(20),C1$(20),P1$(10)." &:1&"ENTER SPEED FROM 5 TO 35 WPM";A$H&A$""Ģ(10):6030k&(A$)48(A$)57Ģ(10):6030w&A(A$)&A5A35Ģ(10):6030&A1143.228057:B1.111686508:E12.71828183&D(A1(E1(B1A)))&D13D&D2D1:D3D'::"PRE::"PRESS SPACE BAR TO START"*%R88004%8000:%pF%u(17):U%z"BONUS":]%:&" THIS BONUS SECTION WILL SEND MORSE AT A SPEED YOU CHOOSE FROM TEXT TYPED ON THE KEYBOARD. TYPE IN THE TEXT TO BE SENT AND HIT RETURN TO START SENDING31) Q$A$ī2510  Z%(J)08 "WRONG IT WAS ";A$B 2680P CORRECT` "CORRECT";t Z2%(J)Z2%(J)1 Z%(J)Z%(J)1 Z%(J)M1ī2630 Z%(J)900ĺ" (ALREADY REMOVED)";:2630 " (REMOVED FROM TABLE)"; Z%(J)999 K1R16J16:MM1, KA%(M)F:K0ī2340@ 0,40:1,K:768N K1H:KU$ Jc. K1L:Kj8 IpB L VERIFY ANSWERV "WHAT IS YOUR GUESS?":` I1Ej Q$:Q$"#"Q$(13)ıt Q$;" ";~ JD%(I) Z1%(J)Z1%(J)1 A$(J CHAR TABLE INSERTION#\I1X20fXX1I1ApJ(X32)61TzA%(J)0ī2220d12);(X);}A$:A$(13)A$" "" ";A$A$"Y"RR1:C%(R)X31I SEND CODEE1ıI1EY0ĺ(D%(I)31);M(D%(I)1)A$"Y"ī2050& SPECIAL SYMBOLS:"DO YOU WANT:"PX133:X215:2130eX158:X27:2130r WRAPUPR1ī1800 I1RX((R)R)1 J((R)R)1*KC%(X):C%(X)C%(J):C%(J)K:I4I1R:D%(I)C%(I):I>R9RHR٠îҮ']']ӠӠΠa@E()G`%\`.?6@r$Yq[ccq[B(#]ҠҠǠŠŹϠҠŠӠŠ']']٠ǠĠԠ']נӠ']Ϭ']']c[_9a(ɠ̠נĠŠΠ̠ƠӮҠƠՠȬԠΠϠЮ),:ca(̠ǠȠŠ)[ pd"e tq uqzUVW ~qq/?/r$\<@*#rr\2`@9()%_ՠĠ)FE(ԠƠ)F %ca(ԠӠ)FdE()I*cS(ԠϠŠĠΠΠҠӿ)&@`@9()@9()%_/cUVWY[\4S(ҠĠӠĠ٠ǠҠΠĠҠŠӠ)'5$dea@c`<@*#rr$  d6?eEd2e?a(ǡ)Gd2ea(ŠҠӽ)E@*#rcq_ d6?e,d2e?a()d2eqc_UVWYM6. a(ԧӠ̬%a(ԠŠΠĠ)`$!ca(ҠӠź)E@cUVWY`$#q/?rq<@*#rr q2?r\\2(bE(ԠӠҠҿ)Gq.?6@r`Ӡ)a(ӠĠ)SS(ӬӠ̠ӠҠŠӠ)'`%q:`%q$`%q.`$[]ԠqqqcS(נ٠)'>`̠ŠǠȠŠ)cca(ϠРŠԠή)XUɸVW;@r(Zq<@*ɸ#ɸrr`$b ]\\2b`.?6@r$qgYɸl_X qd6?ev[ -ɷrqɶ ɷqɷ[Ia(ŠŠҠӺ)a(ΠϠ)`.?6@r%__ d6?e[,M6a(Š)cc\4`7$q?@a(ŠΠ٠ŠՠԠŠϠĠΠԠ)cc!S(ҠŠӺ)&@MSca(%_q/?ɲrq<@*#rr`$\\2`.?6@r%_q`%_ qa()E@*#rG_`%_UVWYa@*#rG_ d6?e2cca(נĠՠϿԠqq&"a(ԠҠ)cc$\4%`7%_|q@S'a(ΠӠΠŠŠӠՠȠϠŮΠԠή)@cER@ Oɲq;@rwc M6\9UVWYccq`Pa()Pa()q/?rq<@*#rr\\2UVW̳Yo Pa@*#rUVW̳Yo Pa()`.?6@r$ _ d6?e cccd2e[ M6q6  0,0l 1,2,2,1,0,0'v 2,2,1,2,0,09 1,2,1,0,0,0K 1,1,1,0,0,0] 2,0,0,0,0,0o 1,1,2,0,0,0 1,1,1,2,0,0 1,2,2,0,0,0 2,1,1,2,0,0  2,1,2,2,0,0 2,2,1,1,0,0 824 33,33  929 33,40 A$0,0,0,0 2,1,1,1,0,0+ 2,1,2,1,0,0= 2,1,1,0,0,0O 1,0,0,0,0,0a 1,1,2,1,0,0s 2,2,1,0,0,0 1,1,1,1,0,0& 1,1,0,0,0,00 1,2,2,2,0,0: 2,1,2,0,0,0D 1,2,1,1,0,0N 2,2,0,0,0,0X 2,1,0,0,0,0b 2,2,2,0,1,1,1,2,2,0T 1,1,1,1,2,0/^ 1,1,1,1,1,0Ah 2,1,1,1,1,0Sr 2,2,1,1,1,0e| 2,2,2,1,1,0w 2,2,2,2,1,0 2,2,2,1,1,1 2,1,2,1,2,1 0,0,0,0,0,0 0,0,0,0,0,0 0,0,0,0,0,0 1,1,2,2,1,1 0,0,0,0,0,0 1,2, 0,0,0,0,0,0! 0,0,0,0,0,03 1,2,2,2,2,1E 2,1,2,2,1,2W 2,1,2,2,1,2i 0,0,0,0,0,0{ 1,2,1,2,1,0 2,2,1,1,2,2 2,1,1,1,1,2 1,2,1,2,1,2" 2,1,1,2,1,0, 2,2,2,2,2,06 1,2,2,2,2,0@ 1,1,2,2,2,0 J  C%(K)Jī26105( K1C%(K):C%(K)C%(R):C%(R)K1<2 KF< RR1XF REPLACE HIMaP " "pZ REī2680d X((R)R)1n D%(I)C%(X)x I  0,0,0,0,0,0  0,0,0,0,0,0 1,2,1,1,2,1 0,0,0,0,0,0 0,0,0,0,0,0E D)QUVWq/?;@rra@*#rG5q]ԠҠY a()G5q]ԠҠ,_)ya(ŠŠŠ)za(ΠŠŠ){a(ŠŠŠ) bq `(%_q)q]ԠҠc` $a(ŠŠŠΠˠΠ׭B]ǠӺC]!D]Ua(Πìɬ).Zq]ŠҠdN@"r]Ҡ2n@p(ͮ) sTxa(ΠŠŠľ2]ŠŠҠ3]ӠȠŠ4]ҠĠŠ5]àҠ6]ȠԠŠ7]Šá<]=] >]ΠǠӠ?]͠ĠԠ@]̠ħҠA]  bX165:X226:2130l936Jv"DO YOU WANT NUMBERS?(Y/N/P)";:A$:A$]A$"Y"ī1940}I110:RR1:C%(R)I16:IA$"P"ī1980"WHICH NUMBERS?"X148:X210:2130936:"DO YOU WANT SPECIAL CHARACTERS?(Y/N)";:A$:A$11ī1690#F300F1:F127F1279IF6:HI4:LI7?W DEFINE CHAR TABLEeR0:936"DO YOU WANT THE ALPHABET?(Y/N/P)";:A$:A$&" "0A$"Y"ī1870:I126:C%(I)I33:IDR26NA$"P"ī1910X"WHICH LETTERS:" TO END)"::@E1:A$)J(A$)13ı<TD%(1)(A$)31Q^D%(1)1D%(1)1ghD%(1)59D%(1)1qr2240{|1600 CODE SPEED23:1:958"CODE SPEED?";:I:I;F1II4ī1750I:I;F1F110I" " F USED SEND MESSAGE"9361E1ī1520R"DO YOU WANT IT READABLE?";nA$:A$:Y1:A$"Y"Y0x2240~"NO MESSAGE DEFINED"I11000I TYPEWRITER,F11İ16801936:Y0 6"START TYPING(HIT RETURN0:936/2"ENTER MESSAGE (RETURN TO END)":7<A$GF(A$)13ı\PA$(08)ī1380pZEE1:I1:1340dI0ī1410nI0:2::958xJ1E:(D%(J)31);:JEE1:D%(E)(A$)31D%(E)1D%(E)59D%(E)1A$;:1340: NOT240V0V01:V024ī1210.V04:H0H0135I`24:1:"HIT ANY KEY TO CONTINUE";:A$i660~ PRINT ACCURACYP30:P20P3(P1100P2)P1;"/";P2;" ";P3;"%";I1R1 I DEFINE MESSAGEF11İ1680(E0:IDY"; A$$936:27."CHARACTER TABLE";D8" ";]B"REMOVAL LIMIT:";M1kLH01:V04wVI1R1`Z1%(I)0ī1210jH0:V0:(I31);tZ%(I)900ī1170~" REMOVED";1190" ";Z%(I);" ";P1Z2%(I):P2Z1%(I):11240 )"YOU HAD PROBLEMS WITH:"7H01:V04CI1R1WZ1%(I)0ī1020pZ1%(I)Z2%(I)ī1020|H0:V0(I31);" ";P1Z2%(I):P2Z1%(I):1240V0V01:V024ī1020V04:H0H013I1:24:"HIT ANY KEY WHEN REA0:Z70I1R10 Z4Z4Z1%(I):Z5Z5Z2%(I)CZ1%(I)0ī820^ Z1%(I)Z2%(I)Z7Z71j*Z6Z61q4I> LIST RESULTSH936R"INDIVIDUAL ACCURACY: ";\P1Z7:P2Z6:1240fp"TOTAL ACCURACY: ";z" ";P1Z5:P2Z4:ECT RESPONSES"8 "BEFORE A CHAR IS REMOVED?";:M1:M1D M11ıN 936r "TABLE CONTAINS ";R;" CHARS": I11000:I 2240 2380 Q$"#"ī1060 Q$(13)ī750 I11000:I R0ī660  TEST WRAPUP Z40:Z50:Z6    CODE TEST( 9360 Y1C &RR9:Z30:Z40l 0I159:Z%(I)0:Z1%(I)0:Z2%(I)0:I{ :R1İ1800 DF11İ1680 N23:1:958 X"HOW MANY CHARS PER GROUP?";:E:E bE1ı l23:1:958 v"HOW MANY CONSECUTIVE CORRA$"2"İ1300 ^A$"3"İ14501 hA$"4"İ1560C rA$"5"İ1680U |A$"6"İ1800f A$"9"ī410o 140  END ROUTINE 936  ERROR ROUTINE 958 I(222) I254ī500 "ERROR:";I;" OCCURED IN ";(218)(219)255 :: " 1 - CODE TEST"< " 2 - DEFINE MESSAGE"V " 3 - SEND MESSAGE"n " 4 - TYPEWRITER" " 5 - CHANGE CODE SPEED" "" 6 - DEFINE CHARS TO BE SENT" ," 9 - QUIT" 6::"ENTER OPTION:"; @A$:A$ JA$"1"İ520 T12:R0:F10 dR2R16:R904 nI1R1:Z%(I)0:IJ xI1R2:A%(I):IP Z 936g I10:Y1 I);"CODE TUTORIAL" I);"-------------" : "CODE SPEED = "; F1;:" WPM" "CHARS IN TABLE = ";R E1ĺ"MESSAGE DEFINED"  3032900LAST EDIT JULY 25, 1980C# VERSION 2.00N$33,40h(I768786:J:I,J:I2 173,48,192,136,208,4,198,1,240,88,202,208,246,166,0,76,0,3,96<A%(354),C%(59),D%(500),Z%(59)FZ1%(59),Z2%(59)P440 Z936:R159:M              )ccSa(ΠӠΠŠĠɠĠΠŠĠȠŠŠϠ)c\ M60ca(ӠΠ٠ϠŠӠ)(q̳q2?r`̳%̳q d2e?2o Pa()Pa()Pa()Sa(ԠӠ)cS(ĠՠŠϠ٠ο)&@`@9()@9()%__ca(ՠĺ)E@c$a(ԠӠ)F8drE()CcS(ԠϠŠĠΠҠӿ)&@`@9()@9()%\[*M6a(Ƞӡ)Gd2ea(ŠҠӽ)E@*#rd]i@Brp@*#rnYs_ xd6?e}d2e?a()d2eqYUVWYM6Da(ԧӠ̬ՠĠ)FE(ԠƠ)Fc`$YUVW2q/?rq<@*#rr7\9\2,<cbE(ԠӠҠҿ)GAq.?6@rF`$Adea@cK`<@*#rr$x Pd6?eUqZqC_d2e?a(c \ \4`7$ q@HS(ԠӠŠ̠ҠƠӠԠՠԠŠϠ)'M"`%a(͠ҠӠ)c`%_-#q@p()qqq(UVW`%_a@*#rG_3cca(נĠՠϿŠΠϠ) d6?e`.?6@r%__ d6?e[)M6a(٠Ġ)cBa(ΠӠάҠǠŠŠŠΠԠԠӮ))cqq6\4'`7$q@\M6\9ccUVWYq/?rq<@*#rrq`$\\2`.?6@r%_q`%_qa()E@*#rG_@p(߮)[@p(߮)[ @p()[ @p(߮)[@p()[@p(߮)[@p(߮)[@p(߮)[@p()[ @p()[@p()[@p()[@p()[@p(߮)[@p(߮)[@p(߮)[+M6a(٠Ƞ)[@p(߮)[ @p()[ @p()[ @p()[ @p()[ @p()[@p(߮)[ @p()[ @p()[@p(߮)[@p(߮߮)[@p(߮)[ @p()[@p(߮)[@p(߮)[@p()[ @p()[@p()[ @p()[ @p()[@p(߮)[@p(߮)[@p(߮)[ @p()[@p(߮߮)[@p(߮߮)[@p()[@p()[@p()[@p()[@p()[@p()[@p(߮)[@p(߮)[@p(ZPde_deMUUVWY ZY\`$_!]UVWY[&_UVW2?rY[@p()[ @p()[ @p()[@p(߮߮)[@p(߮)[@p(߮)[@p(߮߮)[ @p()[%K+`$&I,`%\`%\`%\`%\`%\-`$.KM6a()Q._2`@9()@9()$_,<UVW;@r`@*#r9()$PFde_deMKUVWY_Ӡ)cc:"cP a(٠Ƞ)P a(٠Ġ)g$P a(Ƞ)P a(ԠҠ)P a(Š)P a(Ԡ) %d"e&o(S(ԠΠ)'*`C@"/rC@"rC@"r8@p(ڰ)Ioa(٠)oPa()o Pa(׷) oP#a(ϠŠԠΩ)cc\p d6?eK M63 a(0Tdede0dededededed ed e0d ed ed edede0dedeLdedede` KM6 @p() q q6q:3N@"rC@"rD4r          ŠҠԠ)FE()E@E()>[Y>]ΠϠŠŠƠΠϠҠŠƠӠԮ>]?]ԠĮ٠ ?]?]Šҧ}]@*#r\>;@pԲ@*#r\>;@pԳ@*#r\>$;@pԴ@*#r\>.;@pԵ@*#r\>8;@pԶ@*#r\>B;@pԷ@*#r\>`;q\.>]ӠӠ>q>`@9()$* >q>`@9()$* >`@9()%[>`@9()$>%>a(.q.?6?r.?6?r.Y.[d2]ˠ2UVW3I2b'HԱ@*#rEԲ@*#rEԳ@*#rEԴ@*#rEԵ@*#rEԶ@*#rEԷ@*#r2UVW,2Y2Y2[4:]ĠҠΠؤ:q<@r :q:`6$.:`3%[;@pԠԠƠӠ*]ˠŠҠ*]٠Ԡ*]ԽӠӠ*UVW+q.?6?r.?6?r +Y+q|.]ŠҠ.]٠Ԡ.]ԽӠӠ.UVW_Pca(ϠΠ) Zcccccd_p]%za(͠ӠҠ)cְq.?6@rq/?4r@pԹ@*#ra@G\:`ְ.?6@r$X._W_4X]Ԡ bd6?el_(#Q '] rS()&@|cca@cc_]Īq8r 0ca(ŠĠӠנ)FE(ӠҠ)+ca(ՠΠԠԠ͠Ϡ׮Юͮ) ca(ԠĠϠՠ)GT`<$P ca()q8r cc @p()cc,a(ϠԠҠ٠٠Ϡ٠)UVW,YUVWPq/?4r@B;@rrpԹ@*#rYUVWP@p@*#r\:`ְ.?6@r$X"Y^cc1ha(ŠŠΧ٠ϠŠŠҮ)GĠ)G_ ] cc, a(ŠŠϠŠԠӠؾ) S()&@ q;@r `$4 cca()c ְq.?6@r UVW @p@*#r a@G `ְ.?6@r$X \:& Y cc_ ]ְq.?6@rӠ͠)&Ra(ԠӠ͠)'\a(ĠӠŠ) fa(ĠӠŠ)kq8r ,la(ŠĠӠנ)FE(׮Юͮ)pcc&a(ϠԠŠ٠)cca(Š)_ S()&@`@9@$ `@9@$`@9@$`@9@$pcca()ca(ĠƠ) a(ĠƠ)a() c4a(ŠӠ)c>a(ŠӠ)&Ha(ͮ)=Զ@p()=Է@p()"] Ӡl]ӠĠvcca(Ա@p(ŮŭŮŮ)=Բ@p()=Գ@p()=Դ@p()=Ե@p(rC@"rC@"rC@"rKnN@"rCԱ@">rCԲ@">rCԳ@">rCԴ@">rCԵ@">rCԶ@">rCԷ@">rx@p()@p()@p()@p() NԹ@"4r>Թ@p(ڠ) q ]ɠ=1oa(ӠŠŠҠϠŮ)`.?6@r$`.?6@r$d6?eM6[Md6?eM6o P a(ŠĠ)Q]ĠĠZ]ԠҠ\P;@r^a@`cb[$dN@"N@"(rM6 K\_d/o@p(͠ϠȠŠ)\Z@p(٠ǮʮӠ)\Z@p(Ҡ)\Z*@p(ՠ٠ŠŠ)\Z$@p(ԠĠՠ)\Z oa(ӠçϠ)     66,68,54,71,88,80,90,74,49,67,81,89750,51,55,56,57H46,44,63,47Y43,61,64,33_8)"LEARNING THE MORSE CODE"::)" YOU WILL NOW LEARN THE MORSE ALPHABET.THE MENU WILL ALLOW YOU TO STUDY THE VARIOUS GROUPS OF RELATED CHARACTERS" 8 EXIT"4::"CHOOSE ONE. ENTER NUMBER: ";A$IA$""Ģ12:1050l$(A$)49(A$)56Ģ(12):1050x)A(A$).A1200,1320,1340,1360,1380,1400,1420,1080310008L69,73,83,72,53,84,77,79,48`65,78,82,75,76,70,85,86,52,87#t 310)"LEARN MORSE ALPHABET"::I" 1 BEGINNING"g" 2 E,I,S,H,5,T,M,O,0"" 3 A,N,R,K,L,F,U,V,4,W"" 4 B,D,6,G,X,P,Z,J,1,C,Q,Y"" 5 2,3,7,8,9" " 6 '.' ',' '?' '/'"" 7 AR, BT, AS, ERROR "13114":E$"334":'E$"314":7E$"3334":HE$"13314":YE$"33134":iE$"1314":yE$"1114":E$"34":E$"1134":E$"11134":E$"1334":E$"31134":E$"31334":E$"33114":E$"311134":"E$"311414":5E$"1133114":GE$"131114":VE$"134":gE$"31114":xE$"31314":E$"3114":E$"14":E$"11314":E$"3314":E$"11114":E$"114":E$"13334":E$"3134": E$E$"311314":#E$"333334":5E$"133334":GE$"113334":YE$"111334":kE$"111134":}E$"111114":E$"311114":E$"331114":E$"333114":E$"333314":E$"3331114":E$"3131314":E$"3311334":311144111334":#|E$"11131134":O}E$"13141114344411111443333144333314":c~E$"14411144":vE$"1333314":E$"3133134":E$"313144433134":E$"1113134":E$"131314":E$"3311334":E$"3111134":E$"1313134":[ \]^_%`+a1b7c=dCeIfOgUh[iajgkmlsmynopqrsE$"313144433134":tuvwxE$"5":yE$"111111114":zE$"1311314":{E$"35C657,658,659,660,661,662,663,664,665,666,667,668,669,670,671,672,673,674,675,676,677,678,679,680,681,682,683,684,685,686,687,688,689,690,691,692,693,694,695 10000XX(0)::62YE$"1334431114413333441131443334431344":ZC56CC56:520 C601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,626,627,628,629,630,631,632,633,634,635,636,637,638,639,640,641,642,643,644,645,646,647,648,649,650,651,652,653,654,655,65652" } " 6 BONUS" 0 " 7 EXIT"8 :T "SELECTED NUMBER? ";A$j A$""Ģ(19):150 (A$)49(A$)55Ģ(19):150 A(A$) A1000,2000,3000,4000,5000,6000,180 :65 1013,76:1014,88:1015,255 540  >C(50) A7 F"ENTER NUMBER OF DESIRED OPTION:"? K:` P" 1 LEARN MORSE ALPHABET"f U Z" 2 RANDOM GROUPS--5 WPM _ d" 3 PRACTICE QSO'S--5 WPM" i n" 4 RANDOM GROUPS--'N' WPM" s x" 5 PRACTICE QSO'S--'N' WPM A MENU WHICH LISTS YOUR OPTIONS FOR STUDY. FOR YOUR FIRST LESSON, CHOOSE OPTION ONE. 7:" AS YOU ADVANCE, YOU MAY CHOOSE THOSE OPTIONS WHICH ARE MOST SUITED TO YOUR LEVEL OF PROGRESS. GOOD LUCK!" <:8)"PRESS SPACE TO CONTINUE":34,0:Z$:794,75:D25:D175:D275:D3D:J1(S$):C((S$,J,1)):500:JJ (:: -" YOU ARE NOW READY TO LEARN THE INTER- NATIONAL MORSE CODE, THE COMMON LANGUAGEWHICH HAMS USE TO COMMUNICATE WITH EACH OTHER WORLD WIDE.":Y 2" YOU WILL BE PRESENTED WITHz,!BY GARY KELTZ,WB1FOK, 1979D ::J13:I140:" ";:I:Ju" INTERNATIONAL MORSE CODE TEACHER ";J13:I140:" ";:I:J:34,863000:144:63100:144:1013,76:1014,64:1015,3@ #S$"QST DE APPLE"::14)S$:770,75               z #?   ŠŠҠ ŠŠĠŠ!ŠŠҠ "ŠŠҠŠŠҠڠ.ŠŠҠŠŠ٠ ŠŠ̠ ŠŠȠ!ŠŠҠŠŠŠ ŠŠҠŠŠŠŠŠĠàŠŠĠӠϠ àϠŠŠŠŠŠ̠ŠŠàŠŠàҠ#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "      Ӡ]ӠΠՠ]ԠԠԠ ]ΠӠˠӠQfx]]à]٠ĠĠ]Š]Ŭ٠] ] M6o,P%@a(ŠΠŬî)TUVWY hM6|a()Q] ]ĮϠˠ &S(Ϡ̠ǠӠ)&@ M6ca() Q&a()QĠӠ٠)cpa(ŧ̠ΠҠŬĠȠ٠ˠŠՠŠ͠Š٬ȠҠӮ)0cDP%Xa(ŠΠŬî)lP a(Š)P a(Ŭ٠)cĠŠƠŠӠŠӠĠՠĠͿŠՠΠˠŠӠϠŭ).a(Š٠ͿΠ٠Ů)cTa(ŠĠŠϠԠҠħӠҠӠϠ٠ĠŮ)P#a(ŬDx]]à]٠ĠĮ]Š]Ŭ٠] ] M6cc,P @a(ΠΠ)TP&ha(ŠӠĠŠ)|c|a(ӠՠŠ   ȱʠøΠǵӠϮڸ̠ϠֶƠԠ˴ՠ״ðɰ˹Ųɷز÷ҠȠʴĠѶàִ͠Ϸƶʿȱ̳زʠĠױĠՠȱԵ˿֠֠Ѹήظ ѠԿسֱĴŴΠóԠִ̠Ȯ̠Ҡɹô ͹ֲЮʲҿƠͰڶȠտֱдͷڵðˠ̵˶̠Ҡ `[]ĠΠΠ٠ΠƠԠq\_q\q\_q\_UVWqYT0udede0dededededed ed e_:ud ed ed ededededeLdedede[q\q\[q\\\[%q\q\\q\[%q\\q\q\[ q\q\q\[q\\\[q\[q\\q\[q\_q\_\[q\[%q\\q\q\[q\\q\[q\\\\[q\\[!q\q\\\[ q\q\q\[%q\q\q\\[q\\Y q@_`/%_Y `9%Y q \UVWqYY_QdeGdeM[q\q\[!q\q\\\[)q\q\q\q\[q\q\ N@"r N@"r \0u M6o a()T q-M6o a(ҠӠϠŠ)R@UVW;@r(@p@*#r 2q<@r<`%qF` %_HG_PHq%_P]Z`@%_nd_n`[%_x     ΠŠŠҍΠŠŠҍq[qJ[qa[qr[q[q[q[q[q[q[q[q[q[q[q[q[q[q[ d]ŠŠàe]ӠŠf]ҠĠg]ŠҠh]ϠŠΠ i]áj]k]n]ΠǠӠo]͠ĠԠp]̠ħҠ q]ΠˠΠ r]Ӻs]t]Ġu]v] M6 d eo $a(ҠŠĠĠ)#a(ϠӠҠŠ)a(ΠӠΧ)T d e \a(Πìɬ)a( d]ŠŠàe]ӠŠf]ҠĠg]ŠҠh]ϠŠΠ i]áj]k]n]ΠǠӠo]͠ĠԠp]̠ħҠ q]ΠˠΠ    nlmn_,Flmnlmnlmnlmnlmn[pijkijkijkijklmnlmnlmnlmn_-%KM6d!eoa()oQ&ijklmnijkijk[Flmnlmnlmnlmnlmn[Flmnlmnlmnlmnlmn[clmnlmnlmnlmnlmnlmlmnijkijklmnlmnlmnlmn_)cijkijkijkijkijkijklmn_*,ijkijklmn[9lmnnlmnijkijkijkijk[Slmnijkijkijkijklmn[cijkijklmnlmnlmnlmnlmn_(cghghghghghgh_',lmnijkijk[Flmnlmnlmnlmnlmn[Flmnlmnlmnlmnlmn[Slmnijkijk[9lmnlmnijkijk[Fijkijkijkijklmn[9lmnijkijklmn[bghghghghijkijk[`ijkijkijkijkijkijklmn[Fijkijkijkijklmn[`ijkijklmnlmnlmk[clmnlmnlmnijkijkijkijk_&`ijkijkijkijklmnlmnlmn[Slmnlmnijkijkn[,lmnlmnlmn[[[[`ijkijklmnlmnlmnlmnlmn[[`lmnlmnlmnlmnlmnijkijnlmnlmn[cijkijkijkijkijkijklmn_3cijkijklmnlmnijkijklmn_4lmnlmk[cijkijklmnijkijklmnlmn_1cijkijklmnlmnijkijklmn_2Sijkijklmnlmijkijklmnlmnlmnlmnlmn_/Vijkijklmnlmnlmnlmn_0Slmnlmnlmnlmnijkij_5lmn[Flmnlmnlmnlmnlmn[Vlmnlmnijkijkijkijk_.9lmnlmnlmnlmn[plmnUVWY\#(`.?6@r$2d6?e_ %2`.?6@r$<d6?eK_<d6?eKM6oQlmnlmn[clmnlmnlmnijkijkijkijk(KM6\}N@"r\\_Hdeded6?eMd6?eUVWY[Pdeded6?eMd6?eUVWY[(q/?_rq<@*#rra@*#rG[ Lf\ \          98:16373,1:16374,240{}16375,8:16376,202:16377,208:16378,246:16379,166:16380,0:16381,76:16382,2:16383,0:16384O,H,V,F,-,L,-,P,J,B,X,CRx# Y,Z,Q,-,-,5,4,-,3,-,-,-,2,AS,-,AR,-,-,-,-,1,6,BT,/,-# -,-,KN,-,7,-,-,-,8,-,9,0,-,-,-,-,-,SK,-,-,-,-,-,-,?'-,-,-,-,-,-,-,-,.,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-,-367,48:16368,192:16369,136:16370,208:16371,4:16372,1^BB10h A128 70301r B(.5C) 8020<| 9030KA(49249)VBB10i A128 7030~(# B(2C) 80702#" ";<# 7020F#DADA2P#DDADOU# D100 D100Z# R$(D);_#DA0:DO0d#n#E,T,I,A,N,M,S,U,R,W,D,K,G,,0 : 500q A127 7020$vB0:A(49257):BB10y A127 C((5C)(2B))6:DO2DO:DA2DA:DODO1: 8010 B(.5C) 7040DO2DO:DA2DA:DADA1A(49249):BB10 A128 7080@C((4C)B)5JB0TA(49257)8: 785,1: 786,240sz 787,8: 788,202: 789, 208: 790,246: 791,166: 792,0: 793,76: 794,10: 795,3: 796,96yX R$(100)b B1 100: R$(B): Bdgj"HIT ANY KEY FOR MENU.":lA(49249) nX(16384): X127 16368./":A$(55)"--.../":A$(56)"---../":A$(57)"----./":A$(46)".-.-.-/":A$(32)" "A$(33)"-.-./--.-/":A$(34)"-.././":A$(35)".--/.-/-...././-.-/--./":A$(47)"-..-./":A$(63)"..--../"p 778,173: 779,48: 780,192: 781,136: 782,208: 783, 4: 784,19$(81)"--.-/":A$(82)".-./":A$(83)".../":A$(84)"-/":A$(85)"..-/":A$(86)"...-/":A$(87)".--/":A$(88)"-..-/"A$(89)"-.--/":A$(90)"--../":A$(48)"-----":A$(49)".----":A$(50)"..---/":A$(51)"...--/":A$(52)"....-/"OA$(53)"...../":A$(54)"-... A$(99),C$(255)A$(65)".-/":A$(66)"-.../":A$(67)"-.-./":A$(68)"-../":A$(69)"./":A$(70)"..-./":A$(71)"--./":A$(72)"..../"A$(73)"../":A$(74)".---/":A$(75)"-.-/":A$(76)".-../":A$(77)"--/":A$(78)"-./":A$(79)"---/":A$(80)".--./"oA5);"4...RECEIVE."( + 5);"5...QUIT."G 0: X: 4);X;: X4 610X 5 X4 7015t :"..SPEED IN WPM";: SP DS250(SP3.5) N X X 330,210,380 ] 510 b1,255:778:" ..DONE." l 0,50:1,D:49241,0:778  49240,0:: 70154 Y((9147)(1)47): Y57 Y65 410@ B$(Y)I  40W  B$;" ";a  100k  400q  ::: 9);"DO YOU WANT:" : 5);"1...ONE LETTER AT A TIME."  5);"2...A COMPLETE MESSAGE."  5);"3...RANDOM CODE." & MENU":"TYPE 'CTRL R' TO RECEIVE":; O B$: B$"*" 500O P B$"" 7015X T 40b ^ B$;l h 100v r 335 |"TYPE * TO RETURN TO MENU" "TYPE 'CTRL R' TO RECEIVE"   (49152)170 49168,0: 500  (49152)146 49168,0 100* ,:"TYPE: RETURN TO RETRANSMIT."N 1" SPACE FOR NEW MESSAGE"p 6" * TO RETURN TO MENU" 7" 'CTRL R' TO RECEIVE" ; D$: (D$)13 270 < D$"" 7015 @ D$"*" 500 EC(936): 210$ J"TYPE * TO RETURN TO (C$(L),M,1)"." DS3: 170C (C$(L),M,1)"/" 160] B0 S7: B: 180u B0 S: B: 180 1000 : "TYPE IN MESSAGE, THEN HIT RETURN": B$ 40 :"HIT ANY KEY TO TRANSMIT"::B$  D$ } L 20: MSE CODE ERPRETER BY R HALSTEAD WA6EKG^ 5000: 7000h 500z( X1 (B$)2Y((B$,X,1))<C$(X)A$(Y) FPd L1 (B$)n M1 (C$(L))x (C$(L),M,1)"-" DS: 170'      @p()[ @p()[*@p()[4@p()[>@p()[ H@p()[R@p()[\@p()[f@p()[p@p()[z@p()[@p()[*)[D@p()[N@p()[v@p()[ @p()[@p()[@p()[@p()[ @p()[@p()[@p()[@p()[ @p()[@p()[@p()[@p()[ @p()[ @p()[UVWYY$[dedeM[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[@p()[&@p()[0@p()[:@p(`%_`%_`%_`%_dea@G \ \Yqdea@G`8.?%rr%cUVW8rYY cc_ q;@r UVW`@*#r9()%q`@*#r9()%q\o  d2e#S(ԠРӠٯΩ)&@"`@9()$4'`@9()%_ ,S(נŠٯΩ)&@6`@9()$x@_M6UVWY UVW qUVWq8/?*rr`%_`%_c d2e? UVWPUVW;@r@p@*#ra@G q<@r`$`$`$`$`$`$`$ \ \UVW8rYYccYM6ԠϠҠŠҠ)#ga(ŠҠŠ)hS(Ӡͯǩ)&@i`@9()$njS(נ٠ӿ)'l_ncS(נ٠Ӡ)'sc,xa(ҠŠؠө)}ca()GR@cϠˠٯΩŠŠԠ̠ԮԠ٠٠Ϡ)&@9`@9()$d1:UV(Wqa(ŠŠӠ)Gb\;`.?6@r%_@<Y@d6?eAS(ҠŠŠ)'B`$2dcS(Ġ)'-fa(Ϡ1-o a()/.ca(àנŠ٠ˠӠ)./ca()0cc 2q3'4S(ԠϠҠŠٯΩ)&@5`@:()$d6@p()7q \N8S( T dede0dededededed ed e]d ed ed ededededeLdedede` @p()"N@"rC@"drC@"r #d2e (M6*q,q     0L?`W8rYYrq|` %_a(ŠŠŠ)Q)Tq8r a(Π)a(ĠŠŠ)R@!UVW8;@rrq<@*#rr`$T"UVWq8r,q.?r`$h6de88rr @de(JMTUVW8rY^YhUVĠԠ]̠ħҠ]ΠˠΠ׭]ǠӺ]]]]]KN@"rq?q? M6a(Πìɬ)a(ΠŠŠ)a(ĠŠŠSd@i]j] n]ŠŠҠͮx]ӠҠ̠]ŠŠҠ ]ĠŠŠà]͠ȠԠ]ΠŠŠá]] ]ΠǠӠ]͠     qw-<rq6-=rq6->rq6-?rq-@rq60-,rq_--rq6-.rq -/rq[ N@"rR@ q<@r qb_qrq}-Qrq-Rrq-SrqP-Trq-Urq5-Vrq-Wrq=-Xrq-Yrq-Zrq_P-0rq-1rq-2rq-3rq-4rqU-5rqU-6rqW/-7rq_-8rq-9rq-:rqI-;rq`%\`%\Lq`%_\[/-Arq -BrqW-Crqw-Drq/-Erq-Frqu-Grq-HrqUP-Irq-Jrq-Krq7-Lrq]-Mrq-Nrq-Orq?/-PԠΧ)_ UVW q.?6?rY\[Lq8r QUVW Vq.?6?r[Y`\e[q8r UVW]Y[ q UVW]#Y([xUVW}]Y[ q YZ_+O4r\,UVW6q,/?/r ;q-r=`%_6@\EbJJYT\x^_,6S(ϠՠԠҠĠŠӿ)&@`@9()@9()%_,Ga(ϠԠŠŠԠԠŠŠŠΠ%KM6oPa(Š)cO4rC@"r N@" r\@ S(ԠΠĠϠՠȠӠĩ)'_R@ q;@r (UVW2q<@*#rr 7q8` %_<9\x:_P <q-rF\P     qDqj}[-k}qqZqq"qTl}[-n}qqZqqqo}[-s}qqZqqZq_t}[_]]]]Qdededed ed e_}d ed ed ededededeLdedede`[2}qm]Šҩ!4}qm]̮ή 5}qjm 6}q~m7}[-i}qqZqma()Gq\yUVWY[tm]ȧ%~ma()Gq\yUVWY[m]ŧmUVWY[m]ĠҧmUVWY[HqUVW!Y[ydeM[T}dede0dede\\\\\\[]f\\\\[]p\\\\\[]z\\\\\[]\\\\\[]]ĠŠ[[]ޠԠΩ a(נ٠)T & UVW`m]ԧ%j\[]\\\[] \\\[] UVW\Y\[] \\\\\[]*\\\\\[]4\\\\[]!>UVW\Y\[]H\\[]R\\\\[]\\[]\\\\[]\\[]\\\\\[]\\\\[]!UVW\Y\[]\\\[]%\UVW\Y\[]\\\\[]\\\\\Y\[]'N\\\\\\\[] X[]#b\\\\\\[]l]ĠŠn[&v\\\\\\\[]]ĠŠ[\\\[]\\\\\[]\\\\[]$UVW\Y\\[] UVW\Y\[]$\UVW\Y\[]"&\\\\\\[](0UVW\Y\\\[]$:UVW\Y\\[]3DUVW\YUVW\\\[])\UVW\Y\\[]'\\\\\\\[]#\\\\\\[] UVW\Y\[]"\\\\\\[]"\\\\\\[]"\\\\\h]ĠŠj[r]ĠŠt[|\\>\[](\UVW\Y\\[])\\\\\\\[]ҩ)\\\\\\\[]ҩ]ĠŠ[]ĠŠ[&\\\\W]שĽ\2 a()GY c\_#0cS(ŠРҠ)&@:`@9()$h;`@9()$hD_rF[]̠̠ǩ @\[J\\\\\[]&T\\\\\\\[]^]ĠŠ`[ԠԠ0a(ӠҠſҠ)GT(` $1]ؽϠԠغ͠٠ϠԠ \d}q]ؠҠӠƠq]Š`%_0 bE()GUVŠ)DTa(ԠĠӠƠҠ)a(ӠҠ)ccG^a(ŠŠՠҠΠ)a(ŠŠΠԠ̠Š)ccVha(ҠŠӬӬ)S(ӠԠՠԠϠŠ)&@rc|q] M6 N@"r_,2q/?;@rr<@p@*#r >a@GA\<@r F[%,\}]ŠŠҠϠ06\2}]ΠӠϠĠ @dec]ԠѠƠ:JM6o8ra(Ӡ̠͠     q"qTl}[-n}qqZqqqo}[-s}qqZqqZq_t}[_]]]]Qe_}d ed ed ededededeLdedede`[2}qm]Šҩ!4}qm]̮ή 5}qjm 6}q~m7}[-i}qqZqqDqj}[-k}qqZq%~ma()Gq\yUVWY[m]ŧmUVWY[m]ĠҧmUVWY[HqUVW!Y[ydeM[T}dede0dededededed ed [z\\\\\[\\\\\[4\\\\\\\\ \\,\\ \\\\\\\[ a(נ٠)T & UVW`m]ԧ%jma()Gq\yUVWY[tm] \\\[UVW\Y\[ \\\\\[*\\\\\[4\\\\[>UVW\Y\[H\\[R\\\\[\\\\\\[f\\\\[p\\\\\[\\\\\[\\\\[\\[\\\\\[\\\\[UVW\Y\[\\\[ \UVW\Y\[\\\\[\\\\\[\\\[.HUVW\YUVW\Y\[N`@9()$RP["R\\\\\\\[X[b\\\\\\[l]ĠŠn["v\\\\\\\[]ĠŠ[\\\[\\\\\\\\[\\\\\\[ UVW\Y\\[UVW\Y\[ \UVW\Y\[&\\\\\\[$0UVW\Y\\\[ :UVW\Y\\[D`@9()$HF[\\[`@9()$[$\UVW\Y\\["\\\\\\\["\\\\\\\[`@9()$[\\\\\\[UVW\Y\[\\\\\\[\\\[`@9()$[$\UVW\Y\\[`@9()$["\\\\\\\[`@9()$["\\\\\\\[]ĠŠ[]ĠŠ[`@9()$["\\\\\ϠҠ͠׻ a()GY c\_ @\[J`@9()$NL[ NUVW\Y\\[T`@9()$XV["X\\\\\\\[^]ĠŠ`[h]ĠŠj[r]ĠŠt[|]ĠŠ~%UVW Y]٠ϠԠ \d}q]ؠҠӠƠq]Š]Ơؾ͠ΠϠ`%_i bE()GUVW]שĽ\\8/?8rr ]ҠӠӠƠҠ)ha(ӠҠ)icc+lS(ϠՠԠӿٯΩ)&@$na(̠Š)rcc|q]ԠԠ0a(ӠҠſҠ)GT(` $ M6%,\}]ŠŠҠϠ06\2}]ΠӠϠĠ @dec]ԠѠƠJM6o8r$Ka(̠Š) Mo8r-Ta(Ӡ̠͠Ġ