' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `AA`>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-(p `AààĠ@跻~!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 ֠ĠAz# Au`̠٠҇Π                        q \qq \qq \qq\ qq \q q\ q_ Q,q6(qqq dede de M[q\qq\qq\q q\`$q q \qq \qq\qq\q q\qq \qq\qqq<\Aqq F\Kqq P\Uq q Z\[`$_qqd\iqqn\sqqx\}q q~\Yqq\qq\q M6o Pa(Š)oUVWqqS(ŽϠ)'cS(ٽϠ)'UVW qq \qq\qq\#qq(\-qq2\7    ededeM [q\q+qZ\q.q<\q0q<\q2q<\q(q\YѲ_+M6o8 ra(ŭ)UѲVWqѲq\qѲq\YѲUVW2Y[_)dq q\q&qK\q#q\&Yѱ+_N0qq\:q q\Dѱq_Nq(qd\"SUVWYq(q\Xq"qd\bq$qd\lq&q\vq(VWq(q(\Yq&q\UVWYq&qd\qq\qqd\q q\q"qK\`ѱ$0UVWYq"qK\q qK\qqK\д\qqX\UVW"qqK\,qqK\6q qK\@qq\Jqq\TY^qqK\hqqK\rqqK\|q qX\YѱUѱVW"UMY.`/?dr$r\M6o8 ra()3UѳVWq qd\UѴVWYѴZѳUѳVWdYѳ`/?dr$1M6o8 ra(̠)UѲVWUѱVW"UVWq(q-\Yq"qW&xM6o8 ra()UVW qdededeMYY`/? r$`/? r$r`/? r$_s/M6o8 ra()UVW/?<rq/?2r q/?rdedede(q8r\Y/M6o8 ra(ҲIJ)q/?r UVWq/? r2q/?r/?r <deFdePde8rZMdYnUVW/?rdoYp`/? r$r`/? r%\sq/?rUV UVWYf dede0dededede ded ed ed ed efd edededededededeLdedede`M6o8 ra()"UVW& &]ŠӠ$]٠ǠȠɩĠҭ"]Π˩ĠǠFM6o8 ra(ӠĠ)a(٠٠ʮΠѮ)c-a(ԠϠՠȠŠ٠)a(נǬî)   SON 32000) "PITCH,DURATION?";P,D@ 776,P:777,D:778H 20m }LOC776798:BYTE:LOC,BYTE:: } 255,255,173,48,192,136,208,5,206,9,3,240,9,202,208,245,174,8,3,76,10,3,968) REVISED APPLESOFT TONE SUBROUTINE HERE IS THE SAME TONE SUBROUTINE THAT APPEARED IN THE OCTOBER CALL-APPLE WITH A DIFFERENT METHOD OF POKING IT INTO MEMORY THE DATA STATEMENT IS VERY USEFUL FOR THIS TYPE OF OPERATION.  BY GENE JACK]͠ĠàΠ]ԠĠ٠J]]Ġӧ]x]Ӡ͠ΠϠŠŠƠΠϠҠŠƠӠ٠ΠϠŠ®Q]٠ĠΠ٠٠Š٠ή8Ҡ)ccc+Pa(ӠӠӠ)c#Pa(ӠϠө)c oa(ӠçϠ)1oa(ӠŠŠҠϠŮ)`.?6@r$"`.?6@r$,d6?eKM6[6]@]dedede`<de/?rd e/?rde /?rM^q`$_ ]]ĠӠ]9d6?eKM6o P a(ŠĠ)Q&M6oP a(Ġ)cP a(de /?rMd]xndededede)dededeid e d ed ed ede0deBxdedededededede`Bdededede3M6\ ]ĠӠxdededede)dededeid e d ed ed ede0deBdedededededede`<(de/?rd e/?r     ILL NOW BEGIN THE FOLLOWING TONE TEST "6 1600,1700W @I1255:940,I:941,10:942` I:TINE IN THE APPLEII REFERENCE MANUEL WITH THE"Q "FOLLOWING DIFFERENCES:": L"INSTEAD OF 0 FOR FREQUENCY POKE 940":"INSTEAD OF 1 FOR DURATION POKE 941" "INSTEAD OF CALL2 USE CALL942": "(TOUCH A KEY TO CONTINUE ) ":756:' x3:"I WG X"THE FOLLOWING LIST OF DATA:"::"(TOUCH A KEY TO CONTINUE)":756V :100,200 :"THIS WILL PLACE THE TONE ROUTINE IN":"MEMORY STARTING AT 942 ($3AE) TO":"963 ($3C2)."1 :"TO USE THIS USE THE SAME TYPE OF POKES AS YOU WOULD WITH THE ROUaMd173,48,192,136,208,5,206,173,3,240,9,202,208,245,174,172,3,76,174,3,96gI121:X:941I,X:,::5:"INSTRUCTIONS FOR APPLESOFT TONE WITH DOS"10)"BY [ DOGFISH SOFTWORKS ]"10:"TO USE THIS TONE ROUTINE FIRST POKE AS FOLLOWS:":UVWX6 de ded deMY q`$_ Y_ UVW de de  deMY_  UVW *UVW,YHUVW  Rde  \de( fdepMzY{Y_ UVW de ded deMY deMY_ UVW  de de  deM&Y0UV WX6 5de :de  ?deDMIYqK` $ N_XUVWX6 bde lde  vdeMdUVdWX6 nde xde  deMY_ UVWd de de  deMY_ ,UVdWX6 6de @de JdeTM^Yh_ UVWd de de a(ȠϠ)cca(РРĠ)&ca(ԠӠРԠŠ)ca(ҠР)ca(Ҡ)ca(Ƞ)ca()ca()ca(à)ca()c#T(` $ _d`nO4rdede0dededede ded ed ed ed efd edededededededeLdedede` M6 q d eoP  ŠӠ)FӰL a(ҠŠӠ)Fӱ+` a(ȠΠҠŠԠ٠Ϡ)t `.?6?r$ `.?6@r$  `.?6?r$ _t  KM6QedexMӱqӱ_ T`%ӱqӱ `%ӱqӱ cc3`%a(٠ĠҠԠӠԮ)3`%a(٠ҠԠӠԠ)UVWY _$  $ q8 a(Ҡ`%ӰqӰ cc3`%a(٠ĠҠԠӠԮ)3 `%a(٠ҠԠӠԠ) UVWY4_$ !Hcca(ҠŠҠ)7\UVW`.?6@r$Yca(٭ϠŠ).pdde-r q.?6?r q.?6?r`$l`$H 0MDYX_!lcca(ҠŠҠ)6UVW`.?6@r$Yca(٭Ϡ).dedexMӰqӰ_ T`%ӰqӰ ʵYa@E(Š)Lq6( q qqde 8/?rr,UVW2@`-r$$ Tde-r h-rq-r8-r r  |f-r`'$`-r $gh9-r d6?e`O42rD42rtLӰqӱq d6?eq/?.r ccca(ҠŠӠ)FӰa(ҠŠӠ)Fӱ d6?e @p()(a@E(ΠӬ̲)<a@E(ĠӬ)FPUVW2 dT-rx`-r$ӠǠ̠ŠŠϮ)BZca(ŠȠƠȠŠӠԠϠŠ)H[ca(ƠՠŠϠǠϠҠҠӠՠŠ)/\d6?eca(ӠĠ) ]d6?e^`.?6@r$`_^ _(ŠŠ̠ΠΠҠҠӠŠŠ)mXca(ΠՠˠՠנŠŠȠŠΠΠĠҠŠŠҠ͠Š)mYca(ŠҠՠӠŠҠҠŠ̠ŮԠƠՠӢ M6"ccccca(ŠԠ)"ccca(٠͠)2$ccca(Ǡ)8ccca(Ҡ)L`.?6@r$V_LDVcca(ŠŠŠӠŠǠŠҠϠӮ)JWca  ,",A4 ",".B4 ","/C5 "0: END OF KEYBOARD DATA6`;P>BRUCE W. CHRISTOPHERe> MUSICAL MEMORYT "$7 "9 ","0 ","QD5 ","WE5 "F@8 "EF5 ","RG5 ","TA5 ","YB5 "h8 "UC6 ","IC7 ","OC8 ","P "9 "AG3#","SA3#","D ","FC4#" l9 "GD4#","H ","JF4#","KG4#"9 "LA4#","; ","ZA3 ","XB3 "4: "CC4 ","VD4 ","BE4 ","NF4 ": "MG4 "204,"Q",193B 5 "2",182,"W",172,"E",162,"4",153,"R",144,"5",136 v5 "T",128,"6",121,"Y",114,"U",108,"I",54,"O",265 "A",546L6 " ",0: END OF NOTE DATA6 KEYBOARD LAYOUT DATA7 "1C5#","2D5#","3 ","4F5#"x7 "5G5#","6A5#","7 ","8 2802,206:803,40(2804,3:805,208=3806,229:807,96H3808,0N,3f3 --- NOTE DATA ---3 "Z",516,"S",487,"X",459,"C",434,"F",409,"V",386X4 "G",364,"B",344,"N",325,"J",306,"M",289,"K",273 4 ",",257,"L",243,".",229,"/",216,"1",144-786,249.787,24)|.788,2064.789,0?D/790,3L/791,208Y 0792,243ep0793,96r0794,20281795,2081796,2392797,76d2798,52799,32 PATCH TO ORIGINAL ROUTINE2791,76:792,32:793,32800,208:801,234I777:DLO779:DUR768: DEFINE VARIABLE LOCATIONS='769,24Jt'770,216W'771,169b<(772,0o(773,141{)774,32h)775,192)776,1620*777,0*778,160*779,0\+780,136+781,240$,782,11,783,105,784,1P-785,!NC$;" NOT FOUND.",`"D$;"DELETE";NC$6"7700P(#"+";:I110:"--+";[#I::u#"!";:I110:" !";T$I::$V:H:9000%H:9200:H:9200:H:9200:H:9000%% --------------H& LOAD TONE GENERATION SUBROUTINE1&DH 4800L::: QUIT2:: LOAD ROUTINER"NAME OF COMPOSITION:";NC$[xN%1nD$;"OPEN";NC$@D$;"READ";NC$8300 J,T(N%) N$(N%)(J) N%N%1:8200l 216,0:D$ D$;"CLOSE";NC$4!N%18700!NN%N%1:4800T(I)(TEMPO) J1TEMPO:J+400:I5d4800M:: SAVE ROUTINE r,"NAME OF THIS COMPOSITION:";NC$D$;"OPEN";NC$D$;"DELETE";NC$XD$;"OPEN";NC$D$;"WRITE";NC$ I1NN%*(N$(I));",";T(I)4ID$;"CLOSE";NC$CTION:";NA/|NA(NA)NA1NA5ĺ(7):4800PNA5900,6300,6600,7500,7600lD: SHOULD NOT GET HERE REACTIVATE KEYBOARD ROUTINE pK$,X:K$" "600028008 REPLAY ROUTINE"TEMPO:";TEMPOI1NN%X$N$(I) TРAz #?  Ġ  ĠӠӠĠӠנϠĠӠ͠ĠŠӠĠàӠ ŠҠ Ӡ& àԠàϠӠ àҠ!̠Ġ"̠Įؠ"̠٠ŠԠŠ  àӠ$ àŠ àΠ àҠ àԠŠ à٠à٠ϠΠΠ ààĠΠŠΠà ٠٠àӠàҠ(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":T |:1000o 1:" 80N":0,63998:0X23:D$T$A$(A) 4 NAME$(105),A$(105),T(105)L "X138:B$B$"=":j ,X10511:NAME$(X)B$: 6NAME$(0)(B$,19) @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":H h00 L40  MAXX) 85:34,227 23:958s "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) ((NA$(N),8,1))6520006 ((NA$(N),8,1))942000@ XX1Y A$(X)(NA$(N),8,30)s T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:20,21:32,19:2:1::0 U33,40:32,0:23:1::v Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 p8(ST6UVk,ȱk-`)E,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:9:"COMPUTER LEARNING CENTER":20:22:20:34,2:3: P33(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":T |:1000o 1:" 80N":0,63998:023:D$T$A$(A) 4 NAME$(105),A$(105),T(105)L "X138:B$B$"=":j ,X10511:NAME$(X)B$: 6NAME$(0)(B$,19) @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":H h00 L40  MAXX) 85:34,227 23:958s "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) ((NA$(N),8,1))6520006 ((NA$(N),8,1))942000@ XX1Y A$(X)(NA$(N),8,30)s T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:20,21:32,19:2:1::0 U33,40:32,0:23:1::v Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 p8(ST6UVk,ȱk-`)E,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:9:"COMPUTER LEARNING CENTER":20:22:20:34,2:3: P33     qq dede  de M[q\ qY q\ q\ q\ q\ q\ q\ q\ q\qq`%q\Q,q6(q\ #q'\ +q/\ 3q7\ ;q?\ CqG\ KqO\ Sq W\ [q_\ cqg\ kqo\ sqw\ {q\ q\ \ q\ q \ q \ q \ q \ q\ q\ q\ q\ q\ q \ q \ q KqO\ SqW\ [q _\ cq g\ kq o\ sqw\ {q \ q \ q \ q\ q \ q \ q\ q\ q\ q \ q \ q \ q\ q\ q\ q\ #q '\ +q /\ 3q 7\ ;q ?\ Cq G\w\ {q\ q \ q \ q\ q\ q\ q\ q\ q\ q\ q YUVW q\ q q\ q \ q \ #q'\ +q/\ 3q7\ ;q ?\ Cq G\ Kq O\ Sq W\ [q_\ cqg\ kqo\ sq \ q \ q \ q \ q \ q\ q\ q \ q \ q \ q\ q \ q \ q \ 3q7\ ;q?\ CqG\ KqO\ SqW\ [q_\ cq g\ kq o\ sq w\ {q\ q\ q\ q\ qE M6o P a(ΠŠΠ)qoQS(נԠϠՠԠŠàϠٿŠϠӠԩ)'UVW q\ q\ q\ #q'\ +q /\      M6 qd\} _*q-rdedeM2f/?ñrرq/?rٱq/?rڱq/?(rұq/?r Ҳq/?r`ұ$""`رٱҲ%iرjٱرkڱ*`رٱҲ%iرjٱرkڱ `رٱ%iرjٱkڱ![     16368,016304,0# 2220Kp"PLOT IS OFF SCALE...TRYING AGAIN"orSS10: SHORTEN VERTICAL SCALE}tK11000vKx1300z C.B.PUTNEY,FAIRFIELD CONN.,VERSION 3/1/79":2100'::"FIFTH HARMONIC":2100Q:"CONSTANT = ";A0;" Y AT 100 = ";Ts:"HIT SPACE BAR FOR REVIEW"*H0:22004A(H),B(H)>HH1: REVIEW ROUTINE(16384)127222016368,016303,0(16384)1272270 ,79Y |K;:H1: SETTING UP COEFFICIENT TABLEc5:" COEFFICIENT TABLE"::" SINES"," COSINES":"FIRST HARMONIC":2100::"SECOND HARMONIC":2100::"THIRD HARMONIC":2100::"FOURTH HARMONIC:"THIRD HARMONIC":16009::"FOURTH HARMONIC":1600Y::"FIFTH HARMONIC":1600c,2000@HH1: ROUTINE FOR PLOTTING HARMONICSJK02694TXK(0.75360)6.283185^YA(H)(HX)B(H)(HX)hY(1T)YSm(Y)796000rK<YA0A(1)(X)B(1)(X)A(2)(2X)B(2)(2X)A(3)(3X)B(3)(3X)A(4)(4X)B(4)(4X)A(5)(5X)B(5)(5X)FY(1T)YSK(Y)796000PK,79YnK6::"FIRST HARMONIC":1600::"SECOND HARMONIC":1600:AND CALCULATION CONSTANT TO ZEROr::"PLOT OF INPUT DATA CALCULATED TO FIFTH HARMONIC. Y AT 100= ";T:y30,79279,79(0,00,159)0,79S5,79S*0,79S5,79S+269,77269,812K026947XK(.75360)6.28318531{TERM #10":1200%k"TERM #11":1210/l1250Q" ";A(H);" SIN(";H;"X)":t" ";B(H);" *COS(";H;"X)": OK NON GRAPHICS TO HERE ALSO CHAGE 1132 GOTO 1132"DO YOU WANT A PLOT (Y/N)? ";A$A$"N"6010  S70:H0: SETTING SCALE "TERM #1-(WILL BE ZERO IF GRAPH IS SYMMETRICAL)"?a" ";A0Xb"TERM #2":H1:1200mc"TERM #3":1210d"TERM #4":H2:1200e"TERM #5":1210f"TERM #6":H3:1200g"TERM #7":1210h"TERM #8":H4:1200i"TRERM # 9":1210j"I15 @A(I)Y(IX)A(I)4 JB(I)Y(IX)B(I); TIE ^NN1X hT(Y)T(Y)a 210 A0(A0N): CALCULATE COEFFICIENT AVERAGES I15 A(I)(A(I)N)2 B(I)(B(I)N)2 I L V"TERMS OF THE FOURIER SERIES ARE:"0`:TYPE 'DONE,DONE'"R :"ARE X DATA POINTS EQUAL STEPS DEGREES(D) OR RADIANS(R)?"f D$:D$"D"R1 :" INPUT DATA AS X,Y" X$,Y$ X$"DONE"1000 ,X(X$):Y(Y$) - CALCULATE SUMS OF COEFFICIENTS 1A0YA0:RX(X360)6.28318 6PH ARE SYMETRICAL, X,Y VALUES FOR ONE FULL CYCLE MUST BE ENTERED."i z"START AT DATA POINT #1 (NOT #0)"o { }"---HIT ANY KEY AND RETURN TO CONTINUE---":Q$ :2:"INPUT X,Y VALUES OF POINTS ON GRAPH UNTIL ALL INPUTTED. AFTER LAST ENTRY <" (B)THERE IS ONLY ONE VALUE OF Y FOR EVERY VALUE OF X."} F" (C)Y HAS ONLY A FINITE NUMBER OF MAXIMA OR MINIMA." d n"MAKE A TABLE OF X,Y VALUES PICKED FROM THE GRAPH FOR EACH SECTION."B x"EVEN IF THE FIRST AND LAST HALVES OF THE GRA=JUNE 9,1979===3 :5:13:"HARMONIC ANALYSIS": "THIS PROGRAM CALCULATES THE COEFFICIENTS OF FOURIER SERIES TO THE FIFTH HARMONIC" "OF PERODIC FUNCTIONS F(Y)=F(X)" ("FUNCTIONS MUST MEET THIS CRITERIA:" 2:" (A)YIS NOT INFINITE."? - ***HARMONIC ANALYSIS FOR THE APPLE***N ***BY CHARLES B. PUTNEY***l ***1085 UNGUOWA ROAD*** ***FAIRFIELD ,CT. 06430*** ---AS PUBLISHED IN THE MAY 1979--- ---ISSUE OF 'MICRO'--- ===ENTERED BY JUDD ELLMERS===  ==Š ıq/?r` %q ` %qq\\qq\\q\\ q\\\(`ı%q`ı%q\ \*\/\4[" `رٱҲ%iرjٱz\`%_UVWY6`ز%q`ز%qq-rY_Y\ccEa(ĠՠŠϠ٠Ԡ)a(ŠҠϬҠ)GT`$ }K _Q$]̠Š\ UVWY6%`ز%q`ز%qq-r*\/_4`$fq>UVWH\M`%_RUVWY6W`ز%q`ز%qq-r\Ya_ fqpUVW`$q\\_`$q\_`$q~\_`$q?\_`$q2\UVW Y6`ز%q`ز%qq-r \_`$4q_-v`-r$q`%q_-`-r$q`%q_-`-r$q`%q _-`-r$q`%q _q`%q_"q/?rq-rزq/?rr$&q`%q_-&`-r$0q`%q _-0`-r$:q`%q _:q`%q_Xq/?r-b`-r$lq`%q_-l`-r$vq`%qrq-rq-rq-rq ^UVWq/?Ͱr`ص$`ض$X_q/?r-`-r$q`%q_-`-r$q`%q_-`-r$q`%q_-`--rq-rq-rq-rq-rq-rqv-rqjf6- rqd- rqY- rqN- rqI- rqA-rq:-rq4-rq1-rq,q@-rq'-rq$-rq -rq-rq-rq-ӠŬĠΠȠ)a(Π٠Ů)<a(ȠԠӠϠՠ)a(ŠǺ)ca(ĠԠ)GTصa(ĠԠ)GTضa(ŠȠ)GTطcͰqصضطضqضصLf,-rq-rqqqqqqqqcKa(נ٠ӠϠՠ)a(ҠŠ̠٠Ϡ)GTñ`ññ%__9a(ŠŠΠҠ)a(Ƞ)_c^a(ՠϠ̠נΠ)a(Ӡ)GTa(ƠӠ)GTa(ҠӠ)GTZa(ȠŠ)GTa(ȠӠ)GTa(ȠӠ)GT=a(ȠӠ)GTa(ȠӠ)GTq-֠)M}a(ϠŠҠŠ)a(ŠҠŠàӠΡ)GT`$7a(ŠŠҠΠ)a()G_}cJa(נ̠ŠŠŠ)a(ƠŠǠŠӮ)cZa(Š]ba(ԠȠ)GT-ra(ҠȠ)GT-ra(ҠȠ)GT-r!da(Š)GT-rnq-r-rsckxa(נŠנǠՠ)a(ӠàϠԮԠ)a(ԠϠӠŠΠŠ٠ΠӠ)a(ԠȬŠΠ)[\a(ҠҠӮ)ca(٠׬̠ŠŠ)a(ӠƠŠǺ)^c]`a(ҠĠ)GT-ra(ҠĠ)GT-ra(ԠȠ)GT-rca(ŠҠ̠̠ŠϬ)a(ԠՠԠРŠ)a(ŠŠӠĠͮ)fXca(ՠԠԠŠ)a(ԠԠΠ)a(̠ŮҠŬ)nZa(ƠՠԠŠӠϠ)a(""`رٱҲ%lرmٱرnڱ*#`رٱҲ%lرmٱرnڱ$`رٱ%lرmٱnڱ%[*O4rO4 rq$Pa(Ҡà)QcMRa(ՠԠРŠҠ)a(ӠͩԠŠƠî)qT(ҠנŠӠĠ٠ò)- a(ĠҠԠŠӠĠ)D a(Š̠öҠŬ)a(ŠàŠô)4 cP8ra(РӠĠ٠Š)- a(ĠϠŠĠƠŠŮ). a(ȿ)&@ `;@r$ a()_ & `<@r<@r$ a()_  q<@r[' M6oa(Ӡ)cV P8ra(ҠŠӠԠìϠ)a(נŠîԠӠԠì)N a(ӠŠŠî)cP8raY [ \ q_ + M6oa(ϠΠ)c' P8ra(ԠϠӠŠǿ)cM P8ra(٠)P8ra()P8ra()8 P8ra()P8ra(٠)ccc P8rS(ô)q;@r\T \[q@p()@p()2q;@r\T \\\\\\[T UVWU -rq<@*#rrV -rq<@*#rrW `@*#r9()%-rq2X Y@p()?@p()q;@r\T \[Kq@p()E@p(@r\T \[ q]@p()]@p() q;@r\T \\[Eq) q;@r\T  \[ qR@p()R@p()q; ra(Šӧ)!P8 ra(Ӡ٧)(P8 ra(Ş̌)4cP8 rS(ȿ)'5`$76a()_7_8r  q8@p()8@p($q<@r`$a()_`$\_`$\ _`$\2_ \,_*M6oP8ra(Ӡ)cc&P8 ra(ΠРƠĠ٧) P8 ra(Πӧ)P8d6@e`.?6@r$a()_M6a(ӡ)cM6oP8ra(à)cP8 ra(٠)P8 ra(Š)=P8 ra( )P8 ra(Π)ccFP8 rS(ȿ)&@q;@r`_q_],M6o8ra(٠)ca(٠ڠö)ca(Π)ca(̠ҠӠ)<-q.?6@r`$:`$-q`1$-.q-rd6?e/d?e0d?e 8MŲ9_-:[,-rr-r _-r-`-r2$dedeȳ\d-`-r2$deȳdeðY[q_q_q__q_q_q_qca(Π)ca(̠ҠӠ)<3q.?6@r`$c`$3q`1$34q-rq-r\d_3c[ dde ede fde gde hMi[`%[UVW q--rrq-"E>KM6o P a(Π٠ՠ)UVWY_}TO42rD42rC@"rD4,rD4,rCα@"KrCβ@"KrC@"rC@"rC@"r\ _& UVW1q-rq-r\dY[]2M6o8ra(٠)ca(٠ڠö)             kڱT}dede0dededededed ed e_}d ed ed ededededeLdedede`[ }Q´õõĵĵŵƵƵǵǵµö)@p(נȠȮѠѮŠŮӠӮ)9ȳq0ðqqȳq?-2rq|-2rq['R@b;@rQ }q? }dedede?$}dede0de}ded--rqo]ǵ-.rqo-.rq]-/rqi-/rq]-0rqc-0rq]µ-1rq]-1rq]öUα@p(òòIJIJŲƲƲDzDz²óóijijųƳƳdzdz³ô)Uβ@p(ôĴĴŴƴƴǴ%rq-%rq]õ-&rq-&rq]õ-'rq-'rq]ĵ -(rq-(rq]ĵ-)rq-)rq]ŵ-*rq-*rq ]Ƶ -+rq-+rq*]Ƶ-,rq}-,rqL]ǵ --rqv-rq--rq]Ŵ-rq-rq]ƴ-rq -rq]ƴ- rq- rq&]Ǵ -!rq-!rq7]Ǵ-"rq-"rqJ] -#rq-#rq^]-$rq-$rqr]´-]dz -rq-rq]-rq-rq]-rq-rq]³?-rq|-rq]ô͠ҠΠӠŠ-rqf-rq]ô-rqR-rq]Ĵ-rq?-rq]Ĵrq- rqb]ó-rq-rqh]ó-rq-rqn]ij-rq-rqu]ij-rq\-rq|]ų-rq:-rq]Ƴ-rq-rq]Ƴ-rq-rq]dz-rq-rqIJ-rq-rq>]Ų-rqw-rqA]Ʋ-rq7-rqE]Ʋ-rq-rqJ]Dz- rq- rqN]Dz- rq- rqS]- rqX- rqW]- rq(- rq]]²- rr9`$cS(ӠΠϠ)&@M64YcS(ӠΠϠ٠Ԡ)&@[ t\ [-rq-rq1]ò-rq-rq4]ò-rqP-rq7]IJ-rq-rq:] M6oa(ǠȠ)FcS(ӠΠϠ٠Ԡ)&@[M6UVW+q8-rr`K%qK(`-r$@pα@*#r_@pβ@*#r?bE()E@E()E@*8-rr#8-r[ q;@r UVWKX `@9α@*#r$0  `@9β@*#r$& Y ! q6[ & q'0 q`%q[ q;@r UVWX `@9@*#r$  Y q6[ q[ \[ H w_ UǠ)P8 rO a(٠)P8 ra(Š)P8 ra()ccP8 r; S(ȿ)&@`;@r$ q<@r`$  a()_ ( `%_d}`%[\ d_ , q`;@r$ `@*#r9()% -rqI Ya(هԠƠ)S(ӠΠϠ٠Ǡ)&@  q \`%qN M6oP8ra(Ԡ)cP8 ra(٠ŠǠ)M P8 ra(ŠҠĠϠ)P8 ra(ԠȠ)'_  q UVW,ca(Š)FA S(ԠŠϠٿ)&@`;@r;@r$ a()_ + \ `$ `6$ a()_  -rq5 S(נǿ)&@`;@r;@r$ a()_ ! \ `6$ a()_ H ca(ŠΠħϠ٠Ҡ)ccS(ӠΠϠ)&@@ M6oS(ǠϠǿ)&@`;@r$ a()_ 9 `@*#r9()$ `@*#r9()$ a()_ P M6oa(ԠǠĠ)FE()S(ԠŠϠa(Ӡ)cP8ra() P8ra()ccY a(נŠ)a(ȮĠƠ)a(ȠƠ)a(ѮĠҠ)d a(ѠҠ)a(ŮĠȠ)a(ӮĠȠ)a(ӠȠ)ŬàРŠàĠ)Y a(Ġ٠Š̠ô)a(ΠŠĠ٠ǠŠҠŧ)O a(ЮҠŬԠӠ̠)a(dzҠԧҠ)& ccS(ӠΠϠ)&@8 M6oԱ-rqY_@UVW`α@9@*#r%[Y_a(ҠΠ)_?]٠Šή @M6AUVWJqӱ-rqԱ-rT\,^Yr`$@a(Ӡ̬)Qf`$pqzq|`@*#r:()$~q8rq_ α@p@*#r\qq qq#ӱ-rq_`$  q_ q -r)*`@*#r9()%q)4`@*#r9()%qF>`@*#r9()@*#r9()%qHq-rRα@p@*#r\\ѬѮ)#{@BSrp(Ѯ)]٠ŠӠ!qqqUVW;@rα@p@*#rUVW `α@9@*#r$Y`α@:()$q_@`α@9()$@ȮȮѮȮ)tl@p(ƣƣƣƣƣƣƣƣƣ)q@p@nv@p(ѮѮѮȮѮѮ7-rq-rq-rq-rq*-rq-rq -rq _lYX@p(ƣƣƣƣƣƣƣƣ)cb@p(ѮȮѮȮŮѮȮ-rq?-rq;-rq8-rq5-rq2_%']àŠϠ٠,dede@MJ[N@"rC@"rN@"rC@" rCα@"rO4rDӱ4rDԱ4r@p()@p()rq/d-rq-rq-rq-rq$n- rq- rq- rq/x- rq- rq-rq~-rqw%-rqp-rqj-rqdE-rq^-rqY-rqT-rqO-rqK-rqGE-rqCedededed ed e(d ed ed e2dedede<deLdede Fde`1K]ӠҠĠàŮ PO4r/Z-rq -rq-rq- ]à&]ŢΠӠĠ&]ȬΠӠ ]Ġ٠Ů N@"r']ŠŠŠŠ# M6o a(Ǯ) dede0ded p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@p()[!}UVW8-rq-rYQ$,~UV;W+X6-rq-rYQWb-rGYca(ĽΨΤ  )Q t}@p()[ u}@p()[ v}@p()[ w}@p()[ x}@p()[ y}@p()[ z}@p()[ {}@p()[ |}@p()[ }}@p()[ ~}@p()[ }@p()[ }@p()[ }@p()[ }@p()[ }@d eE}dededededede`E}de0dede0dedede}d?e_;d}M6a(ԽΤ)GUVW\-rd}a@GYci}ca(̤)GUVede}dede}d ed!e8}q?qq?qq?Ųq?&}q?dede0deE}dedededed ed e$}d ed ee}ded e}d ed e}d ed e}de }dede$ }dedede? }dede/ }dedede?de }dede`}d_" Գq_" Դq_" Եq_" Զq_" Էq_" Ըq_" Թq_" Աq "`$|r_ |]٠}M6ccc1~a(נӠŠϠ٠Ԡ)cc\d`.?6@r$ d6@e q q_ Ķq_ ķq_ ĸq_ Ĺq_ ıqc,a(ԠŠŠҠ)GT:`$`$`$` $`@$&a(ˠҠŠҠ)G_ _ Աq_" Բq Uеq__ Vжq__ Wзq__ Xиq__ Yйq__ Zбq_c"da(ԠŠŨϠ)GnTx`8r8r$#a(ˠҠ͠Ϡ)G_n _ ıq_ IJq_ ijq_ Ĵq_ ĵq_ q q M6ccc+ a(ԠŠӠҠŠҠ)F cc#a(ԠȠŠϠ)GT(`8r83r$P-a(ˠҠϠ)G2_ P_P Qбq__ Rвq__ Sгq__ Tдq__%q `%q@`%_`_\(#_]ŠӠ M6 ccca(Š)ccc.a(נ٠ӠϠϠՠ)a(Ϡ)GT`8r8 r$$a(ԠҠ͠Ϡ)GŠ)a()a()a()a()a()a(ΠϠ)T`8r8r$#a(ԠҠ͠Ϡ)G_U`%q`%q`%q`Tv `%_ `%_` a(ԠҭҠ)G _l % a(ԠҠ͠Ϡ)G _&  M6cc^q(^q a()c#a(ŠΠŠŠƠ׮)ca(ȠӠŠӠ)ca(Ԡc! a()ccc) a(ԠҠ͠Ϡ) cc(! a(ΠӠήȠӠ)" cc# a(ŠӠ)G& T0 `8r8r$: 5 _ : ^qD \(#N a(Ҡſ)X a() b a()l ( T* `8r83r$2 $, a(ԠҠ͠Ϡ)G. _( 2 \(#7 a(Ҡſ)< a() F a()P TZ `$ d `$`n a(ԠҭҠ)Gs _P  ]Š ^q ^q ^q M6cc$'`$ `$pR`$`#\a(ԠҠΠϠ)Ga_> M6^q(^q ccc a(Ƞ) cc" a(ԠҠ͠Ϡ) c+ a(ΠӠήΠӠ) c a(ŠӠ)Gccc,a(ȭŠΠŠ͠Ϡ)c& a(Ԡ͠Ӡ׺)c,a(ϠԠŠĠҠ)c% a(ϠҠŠŠ)%c*a(ϠΠϠ)/c4a(Ϡ)>T$H`Ԡ)'a(ԠӠũ)c.a(̠ƠŠŠҠŠ)ca()T:`$'`$`$ `$`$a(ԠҠϠ)G_]ȠM6Ϡũ)V`.?6@r$V [d6@e `M6cc+ba(ԠŠŠԠՠȠ)ea(κ)gc*ja(ȠנȠҠנũ)oc*ta(ŠנǠŠԠӠ)va(ĩ)yc(~a(ŠŠҧӠ)c%a(̠ŠǮ)cc+$a(Ӡ̠͠Рՠ))c,.a(ŠҠӠҠȬŠ)3c*8a(ŠϠĠ̠ӠϠ)=cBa(ҠӮ)GcLa(ԠŠ,q6(qqq M6cc!a(ǠҠ)ca(٠Ƞ)c,a(Ӡ̠͠ˠ٠Ơ)c/a(ŠҧӠĠΠҠ).a(ĠҠƠ          drq \ [( ]٠ - q 2 UVWq-r\LY%7 UVWX6q-r\LY: UVW2Y6< qUVW qUVW2YUVWA q-rq-rF \LqYK UVWX6P  \$ [` ]ӠӠtj @p(òöö)t \ ~ \ [ ]͠ UVWc -rq/?r -rq/?r Y -z[]٠Š͠B@p()\ \[]ԠРĠ٠` @p(²) \q`%qq-rq\L_[4]ŠL>@p(²²²²ò²)H\ R\D\@p()f\ p\-rq-rq~-rqZ8[!L]ԠРŠРĠ٠Vq8#r  `dejqtq~dedeM["q.?6@r`$d6?e`$qq1?r-rq -rq--rqG-rq- rq-- rqG- rq- rq-- rqp-rq1-rq--rq-rq-rqS-$-rq#-rq-rq-.Šŧ)da(͠)na()xa(ӠӠŧ)a(͠)a()ccP S(Ҡ)'`%Q\ld_(--rq-rqb-rq--rqw ]Šà]ٺ ҭ]٠- O4drD4drD4rC@"r\\X\p (KM62oa(Šà)<a()FcPa(ŠҠΠ)Za(   )IиIĸIԸ`$a()IйIĹIԹ` $a()IбIıIԱ[(#]à 2#de <#de F#de P#MZ#['QŠȠŠ)na()IбIıIԱ`$sa()IвIIJIԲ`$xa()IгIijIԳ`$}a()IдIĴIԴ`$a()IеIĵIԵ`$a()IжIĶIԶ`$a()IзIķIԷ`$a()ca()Fca()Fca(Ҡ)ca(ΠϠ)T`$``$`$`$# a(ԠҠ͠Ϡ)G_ ^q\(#(_$da(Ҡ))c.a()FjTt` $v`8r8 r$~"xa(ԠҠ͠Ϡ)Gz_j ~^q\(#_ M6cc.a(ԠҭҠҠ)cca()a(͠Ϡ)ca()c$a(ԠȠԠ)c.a()FE()F c.a()FE()Fc.a()FE()Fc0$a()FE($_a(٠ŠŠſ)a() a()T`$|`$`a(ˠҭҠ)G_o_` pM6z^q(^q ^q_ ^q`0$M6ccc/a(ԠҠƱ _qбqıqԱ_qвqIJqԲ_qгqijqԳ_qдqĴqԴ_qеqĵqԵ_qжqĶqԶ_qзqķqԷ_qиqĸqԸ_qйqĹqԹ_qбqıqԱ\(# `qDZֲq̲q\6UVWFYL@qֱqӱ\ֱqDZ\ֱqӱ\ֱq\ֱqӱ\ֱq±\J[Eqֱq²ֲq̲\ֱqDz\qֱqIJֲqı\ֲq̲\Gֱq²ֲqı\ֱqóֲq̲\ֲqı\ֱqñ\ֱqı\ֱqò\ֱqIJ\:ֱqŲ\ֱqƲ\ֱqŲ\ֱqIJ\ֱqò\/ֱq±\ֱq\ֱqDZ\ֱqƱ\[ֱqűֲq̲q\="ֲqñ\qֲqֱ̲qӱ\ֱqDZ\ֱqӱ\6,ֱqűֲqñ\ֱqӱ\ֱֱq\ֱqDZqֲqñ\qֱq\ֱq±\:ֱqò\ֱqIJ\ֱqŲ\ֱqƲ\ֱqDz\:ֱqƲ\ֱqŲ\ֱqIJ\ֱqò\ֱq±\.ֱq\ֱqDZ\ֱqƱqֲqñ\>qֱqDZ\ֱq\ֱq±\ֲqDZ\ֱqƲ\ֱqŲqֲqñ\$ֲqDZ\ֲqű\ֲqDZ\DֱqֲqƱ\ֱq±q\ֱqò\ֱqIJ\ֱqŲ\$ֱqƲ\ֱqDz\ֱq\EֱqDz\ֱqƲ\ֱqŲ\ֱqIJ\ֱqò\ֱq±\=9qֱqòֲqñ\ֲqDZ\ֲqű\ֲqDZ\5ֱqֲqñ\ֲq\ֲqƱ\ֲq\;ֱqDzֲqñ\ֲqDZ\ֲqűֱqó\ֲqDZ\AֱqDzֲq̲\ֲqDZ\ֱqƲֲqıq\ֱqDz\?ֱqƲ\ֱqŲca(Ԡ)-F_]ΠŠ9dqֱqòֲqñ\ֲqDZ\ֲqű\ֲqDZ\;nֱqŲֲqñ\ֲqDZ\ֲqűֱqDz\ֲqDZ\Jxֱq±ֲqı\ֲqDZ\ֲqƱ\ֲqDZֱqòq\ֱqIJ\ӱqRñqW̲q\`̲qa̲qg̲qn̲qt̲qz̲q̲q̲q̲q̲q̲q&;]ӠǠ@<q^qqqqqqq:Ao a(ŠĠ)Ӡq ӳq dzqӳqƳqųqӳqijqӳqóq²qӲqqӲqDzqӲqƲq Ųq"Ӳq$IJq&Ӳq(òq+±q-ӱq0q3ӱq6DZq9ӱq=ƱqAűqEӱqIıqMedededededededefde`dede0dedededeLde deded e ' d!ed"eLd#ed$e ' \ M6#]ŠŠŠ%KM6d6?eM6|d6?e\_!dedeֱdeֲM[!dedeֱdeֱM[fdededededededededed ed efd ed ed ed     qq6Y[X]ԠРŠbO4rD4rlUVW-rqY0v-rq-rq-rq?-rq-rq-rq-rq[`ȱ %ȱqȱȲq<@*rr`Ȳ %ȲqȲqȱȲ deq Y[ pqr-rquq#qzUVW qUVWq q8r Y -rqqlmnfgh\LJYT[hUVW-rmUVWYrY|_J]ԠРŠN@"2r7@p(ijðİİöưöð) q;@r qUVWXȱq<@*rrYx qY [ q;@r UVWX q -rq<@*rr -rq<@*rr Y []٠ŠLUVWdq-r`%[`-r$hq-rq-r,fq( q-rq-rR `%q U \LYZ qY_ UVW2Y6a qUVW qUVW2YUVWd q-rq-rg \LqYj UVWX6n q-rq-rq `%q t \Lxxtxtxrxnxjxx~x|x~hx`xdxfdx`<d|`PdPfxjfxdx`xfxjxnjxfxdx`,\<\x`h`xdxfdx`<d|dPdPfjxfxd<`fPjPnjxfxd`x\x\x`Hfxnxjjj<f<dxfx`x`xdxfxjxnxjxjxfxdx\x\x`h0B& 22̡xNxVx`xdxVxNxdxfxVxNxfxZxRxHxZxVxNxHxNVxNxHxDxHxHxHxNxVxdxVxNxdxfxVxNxfxZxRxHxZxVxNxHxNVxNxHxDxHxHnrxtxpxnhtxttt<r<rxrn          {LLQU 2P26x,x>x6x4x,x&6x,x>x6x4x,x&ɽɽɽtnd`\ᅌX@xDxHD@>xVVVV>X@xDxHD@>xVVVV\\A 2P2VXXx\x`\XVVH`xdx\xdx`xdx\xdxVxdxVXXx\x`\XVVx`xdx\xdx`xdx\xdxVxdx{{LLLLLLLLLLLLLLNNNNNNLLRPNLRPNLʽB& 22nXrxtxxtrnd`<\Xnnxrxtxxtrnd`<\X%%%\Rb 2P>Vxthnxd`x`x\X% >>>>```````````````````{LLLLLLLLLLLLNNNNNN[o DDDD \x`xdx\Vh\x`xdxjfxdxfdx`xd`x\x`X\x`xdxfhd\x`xdx\Vh\x`xdxjfxdxfdx`xd`x\x`x`\x`xdxfhd`\x`hdx\VhVxnhdx`\x\xV8`\x`hdx\VhΊꪪꠠ͠ٺĠΠꠠꪪo a(ΠҠϠԠϠӠ͠Ӡ)a(ͬՠԠˠРΠ)!a(ϠŠŠԠ)$a(Π٠Ӡή)G `.?6@r$d6?e[cϠŠŠ٠Ġ\F.qֱqֲq̲\ֱqӲ\ֲqıqֱqIJ\ֲqñ\A8ֱqֲqı\ֱqDzֲq̲\ֲqı\qֱq̲\B\\\L\X\@\d@ֱqűֲq̲q\ֱqDZֲqű\ֱqòqֲq̲\x_[Р)1oa(ӠŠŠҠϠŮ)`.?6@r$`.?6@r$d6?eKM6[\d]\\dֱqűֲq̲q\-ֱqDZֲqűq\ֱqòqֲqű\UVWdY\\$\l[9d6?eKM6o P a(ŠĠ)Q!oP a(Ԡ)c"P a(٠Ġ)cPa(Š)c+Pa(Ӡ̠͠٠)cP a(ȠϠ)c oa(Ӡç[;qֲqֱ̲q\ֱqӲ\ֲqıֱqIJq\<ֲqñ\ֱqֲqı\ֱq²ֲq̲\ֱqı\ֱq̲\ֱqı\[FXqֱqֲq̲\ֱqӲ\ֲqıqֱqIJ\ֲqñ\&bֱqֲqı\ֱqDzֲq̲: '6x>xDxVxZxRxHxXxVxNxHxNxLxHx0x4xNxDx>xNx\xLxDx\xRxRxR0x4x6x>xDxNxZxRxHxZxVxNxHxVxVxHx0x4x6x>xDxNx:xHxRxXx@x@x@HFD@@4x0x0HFDB@XXXXXx\x`x`x\x\xXXXXXx\x`x`x\x\xXXXXXx\x`x`x\x\xxV8`x`x\x\xxV8ffffffffffffffffffffffffjfdjf` AØRx\xRxLxHxHx>xHxNxHxLxNxVx\xNxLxRx\xXxxVXNxRxNxVx\xNxLxRx\xLxZ`x`x\x\xXXXXXx\x`x`x\x\xXXXXXx\x`x`xdxdxXXXX\x\x`x`x\x\xXXXXXx\x`x`x\x\xVx\xNxLxRx\xLxdxd<N<dxdVRZhZxH<ZxH<Zx\x\<H<\x\Vd`\`hdxd<H<dxdVRbhbxb<H<Xdxd<H<dxdVd`\`hNxVx\xNxLxRx\xRxLxHxHx>xHxNxHxLxNxVx\xNxLxRx\xXxxVXHxLxNxVx\xNxLxdb\bhdxd<H<dxdVRZhZxZ<H<ZxZ<H<\x\<H<\x\Vdb\bhNxVx\xNxLxRx\xRxLxHxHx>xHxNxHxLxNxVx\xNxLxRx\xXxxVXHxLxNxVx\xNxLxRx\xRxLxHxHx>xHxNxHxLxNxVx\xNxLxRx\xXxxVXHxLxNx\`h6x>xDxNxLxRxDxRxHxNxHxVxHxNxHxLxNxVx\xNxLxRx\xXxxVX`xdxNxVx\xNxLxRx\xRxHxNxHxVxHxNxHxLxNxVx\xNxLxRx\xXxxVXHxLxNxVx\xNxLxRx\xRx\x\<H<\x\VRbhXxX<H<XxX<H<\x\<H<\xdVXxxVXHxLxNxVx\xNxLxRxDxRxLxH>xHxNxNxVx\xNxLxRx\xXxxVXHxLxNxVx\xNxLxRx\xLxdxd<N<dxdVRZhZxZ<H<ZxZ<H<dxd<H<dxdVd`\`h\x\<H<\x\VRZhZxZ<H<ZxZ<H<\x\<H<\x\Vd`<N<VxN<H<<H<N<V<N<H<x<jxnxnR\x\<H<Nx\VRXhXxX<H<XxX<H<\x\<H<\x\Vd`\`h\x\<H<\x\VRZhZxZ<H<ZxZ<H<\x\<H<\x\Vdb\bhNxVx\xNxLxRxDxLxLxH>xHxNxx>xDxNxLx:xDx\xR<Z<RxRx>xDxVxZxRxHxZxVxNxHxNxLxHhVxDx>xNxZxRxHxZxVxVxVxNxVx`xdxVxNxdxfxVxNxfxZxRxHxZxVxNxHxNVxNxHxdxfx`xHxNx`xd<V<N<V<d<V<N<<<N<V<f<V<N<x<N<R<Z<R<H<x<H`xpxxtxx~xLxNxNxNxVx`xdxVxNxdxfxVxNxfxZxRxHxZxVxNxHxNVxNxHxDxNxNxNxVx`xdxVxNxdxfxVxNxfxZxRxHxZxVxNxHxNVxNxHxdxfxfx>xDxNxZxRxHxRxVxNxHxVxLxHhVxDxNxVx\xRxDxfjnjfdfxdx`<\\f`Rb 2ȯ2HFDB@4x0h0x0x@x>x0FDB@4x0x00x4x6x>xDxVxZxRxHxZxVxNxHxVxLxHx0x4xNxDx>xNx\xLxDx\xj<<jxjfnxnxnxjx`xxxxxxxxx~<||x~<|<xxxxxxxxxx~x|x|<xxxxxx~x|xxx|<|xx xxxxxxx~x|xx<||<xxxxxxxx~x|<xtxxxxxxxxxxx~xx<xxxxxx<~<|<~x~x@~@ N|xfxxnxjxfxjxfx`x\x`xf`<`<\<`xVhx`xfxnxjxf<`x\<f`Xxnxjxfxjxfx`x\x`xf`<\<`xVhxfxfxnxjxfx`xf`x`x`Xxxxxxx<~|xxxt<xxxxx<x~<|xxx|~<|<xhx<fjxfxd<`fxjxnjxfxnxjxfx\`Hxnxjxfxjxfx`x\x`<f`<`<\<`xVhxdxfxnxjxfx`<\<f`Xxnxjxfxjxfx`x\x`xf`<`<\<`xVhfxnxjxd<f`<ff<`xj<j<jPjPf`fxjxnjxfxdx`x\x\`X`xdxfjxfxd`xdxfjxfx`fxjxnjxfxdx`x\x\`Hfxfxdxfxdx`hff<d<f<dxf<d`h`xdxfjxfxd<``xdxfjf<d<`fxjxnjxfxdx`x\x\`X`xdxfjf<d<`hd`xdxfdx`<d<``P\PdPfjxfxd<`fxjxnjfdx`\x\x`h`xdxfjxfxf<d,`<d<fjxfxd<`fxjxnjxfxd`x\x\x`x`xffxdxfxdx`Hff<d<f<dx`h`xdxfdx`xd@`PdPfjxdxq \j\q8r\q\q\\q8r\q\kq\q\q\q\q\q\q\q\$q\\q\[q\q\Qq\q\q\q\q\q\ q8\j\q8r\q\q\UVWdYMq \j\q8r\q\q\q\c\.q\.q\dq\8q\.iUVWdYPnqq8r\q\.q\.q\.q\.sUVWdY^xq\q\q\q\q\q\`.??r%\}_UVW Y[UVWY[<KM6o8rPa(ŠӠɠ̮)d"e M6+P d2e?a(Š٠)d2e ֱqֲq q \_q@qֱq8r\q         0014,208:40015,246:40016,174:40017,64:40018,156:40019,76:40020,66:40021,156:40022,96:} }40000,P:40001,D:40002: S1:32020 P119:D1:320202 P113:D2:32020G P107:D8:32020\ P100:D3:32020q P95:D10:32020w }40002,173:40003,48:40004,192:40005,136:40006,208:40007,5:40008,206:40009,65:40010,156:40011,240^ }40012,9:40013,202:4  32000!P150:D3:320206P142:D8:32020K(P126:D2:32020`2P119:D2:32020u<P142:D8:32020FP126:D2:32020PP119:D2:32020ZP143:D3:32020dP126:D1:32020nP119:D1:32020xP142:D3:32020 P126:D,x,xx((x((<(<(<(<(<(<(<(<,<000<,x,x,x(x(x(x((<(<(<(x(x,x000<,x,x,<,<,x(x(x(6<@x6<@<6<(<,<0x&x00<,x,x,<,<,<,<(x(x((<(<6<@x6<@<6<(<0x0x0,x,x,(` x(((((x,x0x0xxx,x,xxx(((((x,x0x0xxx,x,xxx(((((x,x0x0xxx,x,xxx(((((x,x0x0xxx,x,xxx(((((x,x0x0xxx,x,xx((x((<(<(<(<(<(<(<(<,<0x0xxx:<0<"h0<:<6400x&x0x4x64h0xx0X0x4x6400x&x0x4x64h0xx0X<0<4<4<64"0x0x,x,x(((((x,x0x0xxx,x,xxx(((((x,x0x0xxx,x,xxx(((((x,x0x0xxx,x,xx:0<"h0x00""x::h00:0<"h0x6400x4x64h(xx0X0x4x64000x4x64h(xx0X0x4x64&x0&"0"x*,0xh&x0x&"<0<x0"x*,0xh0&"x"BD<:<0<0<h0x0x&"<0<:h00x4x64h0xx0X0x4x64000x4x64h(xx0X0x4x6h6x4h0x00""x:X00:0<"h0x00::0<"h0x6400x4x64h(xx0X0x4x6400x4x64h0xx0X0x4x64h0x00""x::h004x0x00x4x6:@00x4x6,:x:x:0x4x6:@0x4x6:DxHxHHFDB@4x0x0h0x@x>x0FF<DhDxBhBx@@h@x4x0x04hxx"":6x0:0<"h0x00""x@X00::0<"h0x64.q\G>q\j\\8\L\B\8\L\8\B\8\\1Hq\q\jqֲ\\\34Rq\Bq\\$\3q\8T\q\j\\\.\\\.\\\\\q\Vq\B\.\Iq\\.q\Bq\8q\.q\j \9%q\j*qֱq1/M6d2e?P a(Š)d2eO4q\\8\L\B\8\L\8\B\8\\q\\\j\\\ q\q\\\j:\B\.\\\$\.\8\B\8\.\8Sq\.q\j\\ \q\.q\q\.M q\\.\\\.\BPq\q\j\\\ q\q\\\jE\\\ q\q\\\j\\\Z\$q\$\$q\\ \q\q\j\\\ Zq\\.\B\.\8q\B2q\$q\8q8r\.['q\\\ q\Mq\\\j\\\ q\q\\\j:\B\.\\\$\.\8\B\8\.\8q\q\.q)\.\8\=\B\.\8qB\Bq\$q\8q8r\.q\j@\.\8\B\.\8q\Bq\.\8\.R\B\.\8q\Bq\.\8.q\j\\Ib\q\.q\q\.q\q\.2lq\\\ \\.q\B>vq\8\.\q \8q \j\\Q\q\.q\q\.)d2e5qֱq6\9qֲ_9qֱT:\\\q\.q\q\.q\q8 r%D\.q8r \.\8\=9N\B\.\8q\Bq\$q\8-Xq8r\q8r\q\q\$\84q\Bq\j\$\.\8q;\B\Bq\Bq\.\$\\\ 4q\q\ \\ q\>0q\jM6P d2e?a(Š\.\$\\$\.\8\B\8\$Fq\q\\$\q\\q\Q\$UVW\Yq\.\.q\.\jq\$\$m\q\q8r\ q8r\q\q\\q\ Qq\q\jq\q\ q\ q\:q\q8r\q\\\2q\$q\jUV$W8X \YCUVW\BYY5\Bq\q\q8r\UVW\$\8Y5\$q\q\q8r\Tq8r \q \jqֲ\q\ q\q\Oq\q8r\q\q8r\5Tq8r\q\q\\$^UVBW$X6 \Y'hq\q\8\B\8"r\jq\Bq\85|\Bq\8q\$q8r\UVW\\\\.*q\jq\q\Bq\joP d2e?a(ŠŠ)d2e"qֱq 1,\\\\jq\$q\6\$\\\@UVW\\Y5J\q\ͳ\Lq\Bq\Lq\B\.\q\.gqq8r\Bq\Lq\Bq\Lq\B\.\q\._qq8r\8q\q\q\q\\UVWdYq\\\q\qֲMq \j\.q8r\8q\Lq\Lq\LPqq8r\Vq\Lq\Lq\Lq\Lgqq8r\Bq)%q:`@9()@9(ǫ)%qD`@9(ǭ)@9(ƫ)%qN`@9(ŭ)@9(ī)%qX`@9(ĭ)@9(ë)%q"b`@9(­)@9()%q"l`@9()@9(ǭ)%q"v`@9(ǭ)@9(ƭ)%q"`@9(ŭ)@9(ĭ]ЬԿ `@9(Ų)@9(IJ)%q/ `@9(IJ)@9(ò)%q- `@9(±)@9()%q* `@9()@9(DZ)%q( `@9(DZ)@9(Ʊ)%q& `@9(ű)@9(ı)%q# &`@9(ı)@9(ñ)%q!0`@9(­)@9(r`@9(­)%q|`@9()%q`@9(ǭ)%q`@9(ƭ)%q `@9(ŭ)%q `@9(ĭ)%q `@9(í)%q`@9(­)%q`@9()%q`@9(ǭ)%q`@9(ƭ)%q`@9(DZ)%q'`@9(Ʊ)%q%`@9(ű)%q$`@9(ı)%q""`@9(ñ)%q ,`@9()%q6`@9()%q@`@9()%qJ`@9()%qT`@9()%q^`@9()%qh`@9()%q`@9()$.%`@9()%S(נӠٯΩ)&@`@9()%\>`@9()$n`@9()%Q`@9()$`@9()$`@9(Ų)%q0`@9(IJ)%q.`@9(ò)%q,`@9(±)%q+`@9()%q) q6(de qq"N@"rC@"crD4rD4r O40r(O42r\2-rq<KM6S(ӿ)&@F`@9()@9()$P\PM6\Z-rq-rqdqnS(ſ)&@x`@9()$P      !!! ! ! ! ! !!!!!!!![Vq8(rdedededeM?[dq8rq8rdedededeMB?[]٠ǮڠЮ[de?edf?edg?eK}dh?edi?edj?edk?edl?edm?edn?edo?eK}dp?edq?edr?eds?edt?edu?edv?edw?e)}dx?edy?edz?ed{?e`[%qqֱ\qֲ\qI?edJ?edK?edL?edM?edN?edO?eKd}dP?edQ?edR?edS?e0dT?edU?edV?edW?eKn}dX?edY?edZ?ed[?ed\?ed]?ed^?ed_?eKx}d`?eda?edb?edc?edd?e.?ed/?eK<}d0?ed1?ed2?ed3?ed4?ed5?ed6?ed7?eKF}d8?ed9?ed:?ed;?ed?ed??eKP}d@?edA?e`dB?edC?edD?edE?edF?edG?eKZ}dH?edd?ed?ed?ed?ed?eK}d?ed?ed?ed?eLd?e d?e?d?ed?eK(}d ?ed!?ed"?ed#?ed$?ed%?ed&?ed'?e0K2}d(?ed)?ed*?ed+?ed,?ed-?edq^_ QqW_ VqR_ `qH_jUVWY[ 'tuK}d?ed?ed?ed?ed?ed?ed?ed?eK }d?ed ?ed ?ed ?ed ?ed ?ed?ed?e0K}d?ed?ed?e\\\\3q\8d"eQ q_ q_ q_ q_ q_ q_ q_ q_ q_ q_ q_ $q_ .qz_ 3qt_ 8qn_ =qh_ Bqc_ L\8\L\8\B\8\\.q\Tq\j\\8\L\B\8\L\8\B\8\\q\Pq\j\\\3q\Bq\\\3q\8Oq\\\.\\\.\q\4fq\j\8\8\3q\.qkUVWAY/pq\Bq\8\q\Pzq\j\\.\q\q\\\q\qֱTq\j\\8\L\B""" " " " " ] ]*]4]٬ϠԠ׬Šק)Hc#Rca(ŠӠŠΠ)*\ca(ϠԠή٠Š)fca(ҠԮ)Epcca(ϠҠԠŠΠҧĠ)a(ŠŠή)zoS(Ԡή)&@[] ]٠Šcca(Ϡ̠ǠŞ̌)' ca(ҠŠŠŧԮ)%cca(Ϡ٠ǠŠ٧)0 cca(ϠԠŬŠ˧Ԡ).*ca(ſԠĠŭҠŠŮ)4oS(Ԡή)&@/>M6a(̮)/ca(ŠŠԠ٠ŠԠ)ca(ˮ)oS(Ԡή)&@.M6a(ϠŠǠŠŧԠ).ca(ſԮŠ̠͠)-ca(ՠҠŠŮŠΠ)ca(ĠԠή)-ӠΠҠӠΠϠ)0ca(ŮӠȠӠíŠԠ)0cca(ŠӠΠĠ٠Ҡ)+ca(ϠŠӠϠ)c)a(ŬϠƬϠҬ)&ca(îϠҠȠ(ŠŠŠŠàϠŠƠ):ca(ӠנŠî))Dca(ŠŠӠŠĠ)Nca(ŲĠƭ)XoS(Ԡή)&@-bM6a(ŠàĠŠĠӠç)/lca(ӠĠӠŠĠ٠)+vca(%ٱqa(ŭҠ)G_nM6a(Ӻ) ca(Ӡ̠͠)%ca(ՠϠ٠ŠԠ)%ca(ӠРϠӠǮ)0ca(ӠŠĠ٠ŠӠӺ)(&a(ŠŠ͠ϠӠ)*0ca'k ij'k ij'kij'kij'kDij'kij'kij'kij'kij'kl mn+UV WX l mnlmnY ٱq[q ٱqٱ`ٱrq-rq-rq-rq- rq- rq- rq- rq"- rq,-rq6-rq@-rqJ-rqT-rq^-rqh-rqr-rq|[ LfDij-#rq (-"rq 2-!rq <- rq F-rqP-rqZ-rqd-rqn-rqx-rq-rq-rq-rq-rq-rq-rq-rq-rq-VWjT-rT-rtY ~a()_n]ԠР-0rq-/rq-.rq--rq-,rq-+rq-*rq-)rq-(rq-'rq -&rq  -%rq -$rq î)E@a(î)E@bUVWb-rb-rY a()*a(ĠϠΠŠ)UVWY$_n .KM68a(Šſ)R@Ba(Πî)E@La(Ġî)E@VTq`Uq-rp`@9()%\zdeW`%q`%q`%q?`%q`%q`%q'`%q`%qdeMY\[ KM6a(Šſ)R@a(Πq \_nرq-rٱqٱ#`ٱ ٱٱ%ٱqٱ `ٱ'$ \ٱq f`%f *gٱhر4[>qH`@9()%\RUVW\q-rfԱ)%q "`@9(ĭ)@9(í)%q "`@9(­)@9()%q"`@9()@9(ǭ)%q"`@9(ǭ)@9(ƭ)%qS()'`@9()%q`$-rq-rq:N%N%1" X$Z$NN%N%2:48001 \400:45009 :d $"1 - ENTER COMPOSITION FROM KEYBOARD" :"2 - REPLAY FROM MEMORY" :"3 - SAVE CURRENT COMPOSITION" P:"4 - QUIT" :"5 - LOAD OLD COMPOSITION FROM DISK" ::"SELECT NEXT A NATURAL <H:H0H02:V" :w "TO OBTAIN NOTES SHOWN, PADDLE-1 MUST BE AT MAXIMUM COUNTER-CLOCKWISE POSITION" h:"PADDLE-0 CONTROLS NOTE DURATION" "PADDLE-1 CONTROLS PITCH" 0"TYPE '*' TO END COMPOSITION." 310:N$(N%)X$:T(N%1)TC"1900 774,32 4800* ::N%1< T H1:V1134O 9400:HH2:Vb  H02:V2144t HH0H0293 X$:V:H H (X$,1)"#"ĝ:3600 (X$,1);" ";: KEY ID tV1:H:(X$,2,2);: NOTE V2:H:(X$,1);" ";: SHARP OR xK$,X K$" "1800( @A((K$))X2 1400= Z$"*"G l::P v255W 5| 4" M U S I C A L M E M O R Y " :" A = APPLE SPEAKER " " C = CASSETTE OUTPUT ": ` :"SELECT OUTPUT MODE:";OM$ OM$"A"Ĺ774,48:4800 ( OM$"$))(1) J((DF1)2561)5 XKDF(DF256)256G DHI,J:DLO,KV NA2800p TH(T256):808,TH1 DUR,TTH256:1000 X%(0):X%0X%1 DUR,X%:808,1 MM%: L9900 X099:A(X)2000:  2000 IS THE DEFAULT NOTEf' T0:KB%16384:KF%16368:KZ%128SdA(99),N$(200),T(200):MM%769:X%0:N%1_D$(4)hNA0r,11005 KEYBOARD MONITOR6T07X%(KB%):TT1:X%KZ%311@KF%,0JX$(X%KZ%): --- NOTE GENERATION --- DFA((X""""""     67`ɠ%25H h5`HhHɎ hH $h `E 0L$`h@67`ɠ%25H Ph5`HɎh `hL` "8]vB]Ӡ͠ΠϠŠŠƠΠϠҠŠƠӠ٠ҺΠٮ8L]͠ĠàΠӠΠͭ8]٠͠B]ŠϠƸ]]Ġ]Π]ŠϠ]Ԡ]Ӡ$].]Ů)`.?6@r$`.?6@r$d6?eKM6[]]]]Π٠]ŠϠ]Š]$]ŠϠ.]ààÁ)Ta(à à)^a(àà)rc|\ a(Π̠Į)]9d6?eKM6o P a(ŠĠ)Q oa(ӠçϠ)1oa(ӠŠŠҠϠΠĠ)#a(Š͠٠Ǡ̠)/a(ƠՠŠϠԠŠ͠)a(̠Π)c\ d2e)"M6ca(ŠϠĠϠ)+,a(Ӡ̠Ӯ٠ŭ)6c@a(àĠà)Ja("Pa(Ϡ)d2ec-a(ϠŠϠĠ).a(ΠԬҠҠŠҠĠŻ)\ca()c%d2e?P a(̠) d2ec0a(ŠǠϠĠՠÿN@"dr M6#Pd2e?a(Ϡ) (d2e2c,<a(ϠĠӠŠ).Fa(͠ȠŠŠϠ).Pa(ŠȠ̠ŠǠ)Za()_\dc nd2e?