L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`::"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 SENDINGTHIS 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]]]QPa()Pa()q/?rq<@*#rr\\2UVW̳Yo Pa@*#rUVW̳Yo Pa()`.?6@r$ _ d6?e cccd2e[ M6q66 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 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,031) 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`  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  REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23 ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USED0L?`e(PMRUVW8rYZYdUVW8rYY_]ԠЮӠM6AS(ŠĠŬؠ)'`$q8r2a(ҠŠϠŠĠϠź)cR@!(UVW8;@rrq<@*#rr*`$R2UVWq8r4q.?r`$d<de88rr Fd`@K N@"rq?q?h M6Koa()oa(ŠŠҠ)` o a(ԠŠҮ)oa() UVWY  "TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTS)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        z #??XҰ    ŠŠҠ"ŠŠ٠ŠŠ̠ŠŠҠ  ŠŠĠàŠŠĠӠŠŠĠŠŠŠҠ ŠŠҠ ŠŠҠڠ.!ŠŠҠΠˠñŠŠŠŠ̠ŠŠàŠŠàҠŠŠҠŠŠŠZ ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)   Ŭî)d2eXUVWY`7.?6r%M6 @p()]̠a@E()Qz]РԠġ͠ĮŠҠΠǮVd]ϠàΠ٠ĠĮf]ŠԠŬ٠ ,`7.?6r%M6oPd2e?.a(ŠΠ a(Š)P  a(Ŭ٠)cFP&xS(Ϡ̠ǠӠ)&@`7.?6r%M6c@p()]̠a@E()QaӠҠӠϠ٠ĠŮ)P#a(ŬĠӠ٠)c,a(ŧ̠ΠҠˬĠ).!a(٠ŠՠŠ͠ҠǬ)&a(Ƞ٠Ӯ)0cDP%Xa(ŠΠŬî)lP &ha(ŠӠĠŠ)|c-a(ӠՠĠŠ٠)a(ĠՠĠͿ)c*a(ŠՠΠˠӠƠŠ))a(Š͠͠ĠϠĿ)cTa(ŠĠŠϠԠҠħWd]ŠàΠ٠ĠĮf]ŠԠŬ٠ `7.?6r%M6cc,P @a(ΠΠ)TP   ȱʠøΠǵӠϮڸ̠ϠֶƠԠ˴ՠ״ðɰ˹Ųɷز÷ҠȠʴĠѶàִ͠Ϸƶʿȱ̳زʠĠױĠՠȱԵ˿֠֠Ѹήظ ѠԿسֱĴŴΠóԠִ̠Ȯ̠Ҡɹô ͹ֲЮʲҿƠͰڶȠտֱдͷڵðˠ̵˶̠Ҡ `[]ĠΠΠ٠ΠƠԠ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[ӄΠŠŠ),a(ŠŠŠ)a(ΠŠŠ)a(ŠŠŠ)Xa(ΠŠŠ) b a(ΠŠŠ)a(ŠŠŠ)a(àŠŠ)Qq*[ 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]ΠˠΠ    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(Ӡ̠͠ĠŠ),^a(ԠĠ     ̮ή 5}qjm 6}q~m7}[-i}qqZqqDqj}[-k}qqZqq"qTl}[-n}qqZqqqo}[-s}qqZqqZq_t}[_][HqUVW!Y[ydeM[T}dede0dededededed ed e_}d ed ed ededededeLdedede`[2}qm]Šҩ!4}qm] cc_ a(נ٠)T & UVW`m]ԧ%jma()Gq\yUVWY[tm]ȧ%~ma()Gq\yUVWY[m]ŧmUVWY[m]ĠҧmUVWY[f\\\\[p\\\\\[z\\\\\[\\\\\[4\\\\\\\\ \\,\\ \\\\\\\[7 M6o a(ٮŠĠŠŮ)\[\\\\\[\\\[ \\\[UVW\Y\[ \\\\\[*\\\\\[4\\\\[>UVW\Y\[H\\[R\\\\[\\\\\\\[\\\[\\\\\[\\\\\[\\\\[\\[\\\\\[\\\\[UVW\Y\[\\\[ \UVW\Y\[\\\\\\[/X\ \4\\>\ \\\H\3Y\ \\4\\\\\ \\>Z\\\\\ \\\:\\&\\[b\\\\\\["v\\\\\\\[\\\[ UVW\Y\\[UVW\Y\[ \UVW\Y\[&\\\\\\[$0UVW\Y\\\[ :UVW\Y\\[.DUVW\YUVW\Y\["N\\\\\>["\\\\\\\[$\UVW\Y\\["\\\\\\\[\\\\\\[UVW\Y\[\\\\\\[\\\\\\[\\\\\\["T\\\\\\\[^\\[h[r[|\\ \[$\UVW\Y\\["\\\\\\\["\\\\\\\[1\\\\f\\\\ \R[\ \\RҧӮ X\<@r bYl`%[&v]ҠŠӠԬԠM6Poa@]ԠԠҠԠǮ o _a(ŠŠο)R@`@9()$`@*#r9()$_ @\[ JUVW\Y\\ŠǮ)ca(ԠΩ)R@0]РԠӠȠԭҠƠ`@9()$ UVW;@r@p@*#r3&M6]ԠȠԭҠΠŠƠ 0o P:`@9()%a@ Do PN]ȠԦȧΩ)GR@`@9()$]Ԡ=M6o8ra(ӠҠſҠ)GT(` $ \d}N@"rC@" r`;@r$ca(ſ) cR@M6o8r6a(ŠӠӠҠ)brca(ŠŠŠՠȠϠ)a(ĠԠΧӠ̠Ҡ)a(ή):|ca(ϠҠŠŬԠΧ)a(ή)chcca(ϠՠԠŠҠǠԠϠ)a(ĠΠŠο٠ M6 6]ŠŠҠϠ@\}6J]ΠӠϠĠT\2}!^dec]ԠѮƠhM6o8r-la(Ӡ̠͠ĠŠ),na(ԠĠӠƠҠ)pa(     1, 2,1,2,1,2,1, 2,2,2,1,1,1, 1,2,2,2,2,1, 2,1,1,1,1,2, 2,1,1,2,1, 2,1,2,2,1,2, 2,1,2,2,1,2  N BRANCHES HERE IF USER TYPES A "$".Z2,2,2,2,1,2,1,2,1,1,2,2,2,1,2,2,2,1,2,2,1,2,2,1,2,1,2,1 D/1,1,1,2,1,1,2,1,1,1,2,1,2,2,2,1,1,2,2,1,2,2,2,2,1,1, 1,2,2,2,2,1,1,2,2,2,1,1,1,2,2,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,2,2,1,1,1,2,2,2,1,1,2,2,2,2,1,2,2,2,2,2[v/2,2,1,1,2,2, 1,2,1,2,1,2, 1,1,2,2,1,3,1,4,3,4,2,4,3,4,2,2,3,4,4,3,3,1,3,4,3,4,4,4,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,5,6,6 .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,1,2,3,4,5,6,7,8,9,0,",",.,?,";",":","'",-,/,"(",")"8/1,2,2,1,1,1,2,1,2,1,2,1,1,1,1,1,2,1,2,2,1,1,1,1,1,1,1,1,5570 B$;# HE0HE1:TAIL07 TAILQSTAIL0G TAILTAIL1X QU$(TAIL)B$^ p B$"":"";: REMOVE CHAR FROM QUEUE HE0ī5670 B$QU$(HE) HETAILHE0:TAIL0: HEHE1 HEQSHE1  &B$"":U .2,4,4,X(16384):X127İ1200! `J:? GET CHAR FROM KEYBOARD W X128ĺ" ***X=";X;g B$(X128)u 16368,0 5500  GET NEXT CHARACTER 1100:5600:B$""ī5005  |INSERT CHAR INTO QUEUE (TAILHE10)(TAILHE1QS)ī723 I1I:730 I' "";:7103 BP(I1)F IBBL(I1)1b CM(I):1000:MAKE BEEP 1100:PAUSE BETWEEN BEEPS I 1100:1100:PAUSE BETWEEN CHARACTERS 710 J1DL(C):Z(SP)(SP)(SP)(SP):J  LJ1T01 VT1:TTL(I)::I& qI1NC:C$(I):I0 vM(T)D I1T:M(I):I~ "TYPE IN TEXT TO BE SENT.":"ENTER A '$' WHEN DONE:" 5000:GET CHAR IN B$ B$" "İ1100:1100:1100:710:PAUSE BETWEEN WORDS B$"$"ī20000 I10:I1NC:B$C$(I)ċ9364"AUTOMATIC MORSE CODE SENDER"ZBY PHILIP ZIMMERMANN - 23 OCT 78sXNC46:T04:SP16336]DL(2):DL(1)1:DL(2)5_DL(1)DL(1)T0:DL(2)DL(2)T0bC$(NC),L(NC),P(NC)gQS100:QU$(QS):HE0:TAIL0 lI1NC:L(I):P(I)     d e_:ud ed ed ededededeLdedede`[DuQӠ͠ӠԠĠ(]ΠՠŠŠϠԮW]ĠΠΠ٠ΠƠ[q\\\[q\[q\\q\[q\_q\_q\_q\q\_q\_UVWqYT0udede0dededededed e\\\[ 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\\\\[q\\[!q\q_HG_PHq%_P]Z`@%_nd_n`[%_xY q@_`/%_Y `9%Y q \UVWqYY_Q6deGdeP`%a()`%a()M[q\o N@"r N@"r \0u* M6a(ĠϠӠ)c a(Ġ)T q=@p( àĠŠƠǠȠɠʠˠ̠͠ΠϠРѠҠӠԠՠ֠נؠ٠ڠ)UVW;@r(@p@*#r)M6Po a@c 2q<@r