' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 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- ( D  Ϡ@跻~!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 ~(`F d ֠z# u`hzw~?W{_z_'^yy_*U*U*U*}y~s~gO?~s|g{/U*U*U*Ux*$z<g_ss_sLggxu~_zv_*U*U*U*}/U*U*U*UDz?p``x||?@A~`<@_zs_z_fzc}g}_z_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U *;z?x``xx|~COp0<@_z_Gws_zoy7~s_ ռz}qGxxxx~??|qwGc?|p_z_xnys_z_<=>?zr_zoys_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U!/ */ z_es_zp_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U"`z/}j}_z'~yy_*U*U*U*}|x@G~|/U*U*U*U zs~Os?`sLgg?a;_zy_*U*U*U*}/U*U*U*U9:;z}G~yxggxg?qwGcs_q_zc_z_&%&z_{w~_z_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+z_z_ws_zoxv|s_&Yz}hGxxxx~?zqoGc?|q_zp_z_6 z?o_zors_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U z_Ns_zoc{s_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz_{u~_z?0~yA_*U*U*U*}/U*U*U*Uzo}~x?ss`O?p_gU_z_*U*U*U*}/U*U*U*Uz}G~{xos?~xO?qoGcy?q_zo_z_z?u8~_z_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz_z_vs_z/xxxx~G~?wq_Gc?|q_z_8nys_zy_`zq_S_zors_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U zp_zoG{s_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uƴz'uc:_z?~yy_*U*U*U*}/U*U*U*U ﳐz_{|yrx|goGn_z_*U*U*U*}|O@9~~|/U*U*U*U z}G~{xoy|x?q_Gc|?q_z0@p_z_zv?[_z_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UBêz_z_?ts_zp_ⵍz>G~xxxx~c}?Goq?Gc?|q_z_8nys_zq_ܵ i znoS_zo?gs_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UȱBLzN_zo{s_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UըժժժժժժժժժժժժժժժժժժŪ`/| B`qC@ŪԃŪŪ/ ŪŪoCwo׀ԢÀŪ뇀݊ŪըŪny B1dBgCcŪ݊תŪժժժժժժժժժժժժժժժժժժժժ6|yyy}y|ĀתУŪ?o=xxo{ݢŪը'Ncs9&`sgg|<>N3FfOg<?N?~Ū9x|ggeŪŪ׀ŪՀwŪыŪըժժժժժժժժժժժժժժժժժժŪՀ?xoq9gs<^@g?f׃ՂŪŪŪ Ū;իŪg{oŪԣŪըŪnva~q_qgX ŪދĂѻŪժժժժժժժժժժժժժժժժժժժժ 6N3J9f`g>8JŪ6|qxOyyݠߪŪŪը|?~ggcŪŪ ŪըժժժժժժժժժժժժժժժժժժŪXGwϢߪŪŪՀժժժժժժժժժժժժժժժժժժժժ?hog9gs;~dgggŪԃŪŪŪŪՊ Ū݊ŪըŪ `~__w?s{?Ū݊Ūժժժժժժժժժժժժժժժժժժժժ0||yv}CŪ?w]wno{ՊŪըsLfs9fgsgg|s<>N3L9f?~Ss??JyŪpyyyyy|~߾ŪŪըy_8ny/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}/}/}b3y9/}c?>|~cx=\G~q?|G/}}O_N/}?y/}b9gC/}7L_z/}b;gG[o> ~/}@H|/}~Go}/}O/}^j~/}?}?90@`/}~;cannq``q/}~Q_SZq/}/}^/}c?|~g{x}G~~s=|G/}?=y}_?t/}/}/}?}|]__8ny/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}/}/}F'|w~/}c?<|~cx>G~q?|G/}O|O`/}N?s/}b9spe/}Oa?{/}{;ol=o ~/}><|?&~/}~OSz/}/};~{]2/}?}??x~_/}~/}~C_UZq/}/}>\/}c?|~cx}G}~q?|G/}?]~Gx_p/}/}/}?=no_8n|/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}/}/}o}/}c?<|~c{x F~q=|G/}/~GN/}F7gx/}b3ysNf/}t/}b9g{;K~/m=~/}?y?f/}~/w/}?/ժժժժժժժժժժժժժժժժժժժn9gs?ggg{ŪŪըժժժժժժժժժժժժժժժժժժŪ~c?os{osa߀ܫԂŪŪsgcЊŪԋŪըժժժժժժժժժժժժժժժժժժŪ`9gs?NgggwтТŪԫԃՂŪժժժժժժժժժժժժժժժժժժժժ6|yyy~y|Ū?o}wvo{ŪըOgs9fgsggN3N9f?Og{<?N=~Ū~~#~gs~{{7<;~wc}9,10:0,25:768:T1500::3 *** CLEAR CHOICE3:80,33266,33266,6980,6980,33:80,70266,70266,10680,10680,70:80,107266,107266,14280,14280,107(#SOUND190302#SOUND09050<#F# ** APPLE SPEAKER <P#769,50:N192TPVL  :::5:32:"RHYTHM MATCH"<::r(RD2ĺ3);"SCORE FOR FIRST ROUND: ";PC;"%":134023);"SCORE FOR ";RD1;" ROUNDS: ";PC;"%"<:F3);:"PRESS FOR MAIN MENU ";X$P(4);"RUN MUSIC-INTRO"Zx76}G/};~?~q~/}N?s/}p/}~C;/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}~?WZy/}?}~oc/}~Gwf`jn{pq/}>\?0e/}/}F'|/}c?|~}x}G_~O>|G/}?}zs_w/}/}/}?}#w~`/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}/}/}b9s?^/}c?|~cx}hG?~q?|G/}?zOx_e/}><|/}b9gG/}7~?~o}/}F7g/}?x/}$W~/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U***"{q~}<~gwDARS~r99{c~0-7999{_| g@_w@RAM*99?|~c|s_|{?|O?~x?|sq0-5399{oyժժժժժժժժժժժժժժժժժժժժ0-69ES U?|********?|~cO?|cc{Q?|sqq@?<~qO0-392774{c~@?[<~[{xs`a8}{<o{S ($FC42 gIABL25:0,127:768:769,100:0,150:768)Q#?Z# ** MOCKINGBOARDId#S.25gx#A1,NM(N):A11,CM(N):P1#A2,NM(N):A21,CM(N):P2#9130#O1:O2## DELAY#D(TEMPOS):T11D::# 145,0,0,0,0,0,0,62,15,0,0,0,0,0,0,0.#A13302 }~y|{aN;~wn}n `p`^wa}Cxvv?}} `|aKժժժժժժժժժժժժժժժժժժժժw`|{_]Y_x|w}ws?sx?xC~?|qqcqx?qo?|{qx?~oc?|_@w=|wq}y??D^;~ժժժժժժժժժժժժժժժժժժժժolwyK?|gqQqx?wqoc=|wqxc?|O?~w?y{}}?gNwn}nw?|n~Aw_}xw}?oo?o~}y|}wcc|7|~c}yOyC?|gg||?|wq?|~c_?|cc{?|qq<|~1|w~ss|s|ss|ssss|s|ss|ssss|~?~^ժժժժժժժժժժժժժժժժժժժժ?~{x~{?~ o?;_{}?{~?{_|ժժժժժժժժժժժժժժժժժժժժ<<~c|s|c?|sO?~y?|sqO?|~cO?|cc{w?|qq><~~s'~s|s}s~sss'~s|s}s~sss'~{x~?| oժժժժժժժժժժժժժժժժժժժժ{q~{_|@?;__{}?;?_px|`` p?@`0@|{_|ժժժժժժժժժժժժժժժժժժժժEXx|0p |?@00p?~  ?|`@?|cc{c?|qq?~p|~~~~|~~~~|,203,192,181,170,160,150,142,134,127,120,114,107,101,96,85,75,71,67,63,59,56,52g 255,200,100,50,25 36864:36908:36897:36941: (#36864:36908:36897:36941:>16:P132768:P232796:O136897:O236941E#8,0:9,129:10,16:11,129f#I015:D:A1I,D:A2I,D:# 244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0#I18:NM(I),CM(I):#1127:768:769,100:0,150:768.Z# PLAY SCALE8d#S.25Cn#I18_x#A1,N(I):A11,C(I):P1{#A2,N(I):A21,C(I):P2#9130:#O1:O2## DELAY#D(TEMPOS):T11D::# 145,0,0,0,0,0,0,62,15,0,0,0,0,0,0,0&#A133024:A2A1ȫ148033);"SCORE FOR ";NT1;" ROUNDS: ";P$;"%";:i3);:"PRESS FOR MAIN MENU ";X$(4);"RUN MUSIC-INTRO"(#SOUND190302#SOUND09050<#F# ** APPLE SPEAKER P#769,50:N19217022:0,N:768::769,25:0, * (4)"RUN TABLE.MUSIC CONCEPTS" ,7,141,130,196,96 d LATCH2K n 169,7,141,128,196,169,4,141,128,196,96X x WRITE2 169,6,141,128,196,169,4,141,128,196,96 RESET2 169,0,141,128,196,169,4,141,128,196,96 A36864: BEGINNING ADDRESS, $9000 X087:D AX,D,  INIT7 169,255,141,3,196,169,7,141,2,196,96C LATCHl 169,7,141,0,196,169,4,141,0,196,96x( WRITE2 169,6,141,0,196,169,4,141,0,196,96< RESETF 169,0,141,0,196,169,4,141,0,196,96P INIT2 Z 169,255,141,131,196,169  ,203,192,181,170,160,150,142,134,127,120,114,107,101,96,85,75,71,67,63,59,56,52g 255,200,100,50,25 36864:36908:36897:36941: (#36864:36908:36897:36941:>ЅҩӠH҅h8ұH҅h8`ӥ` 44,192,15,240,4,200,76,33,128,96G dA32768: BEGINNING ADDRESS, $8000V nX055:Da xAX,Dg r 36864} 36908 (4);"RUN MUSIC-INTRO"X TABLE ACCESS ROUTINE( START> 32,33,144,160,0I( LOOP2 140,1,196,32,11,144,177,8,141,1,196,32,22,144,192,15,240,4,200,76,5,128,96< START2F 32,77,144,160,0P LOOP2 Z 140,129,196,32,55,144,177,10,141,129,196,32,66,1    (4)"RUN TABLE" ((1)25)10& }C1C1DI:C152C116 ~C11C152L (1).1DIDI1h (1).3DD(((1)5)) 0,P(C1):769,D:768 K127150 CC1:110 999 (4);"RUN PRIMARY ROUTINES" (4);"RUN ";SYS$;"-INTRO":O 255,241,228,215* P(52):(4);"BLOAD SOUND GENERATOR"4DI1d:::(4)"BLOAD VENTURA LOGO":16302,0:16300,0:16297,0:16304,0:C0:SYS$"MUSIC":16368,0iI126:P(I):P(53I)P(I):jI04:D(I):nC2000150xK(16384) |(1).5C1  5,C(I):A212,20:A213,9:P1C#A2,N(I):A21,C(I):A213,9:P2O#9130:[#O1:O2a#m# DELAY#D(TEMPOS):T11D::# 145,1,145,1,145,1,3,62,15,0,0,0,0,0,0,0 #A133024:A2A116:P132768:P232796:O136897:O236941#8,0:9,NTRO" (#SOUND19030/2#SOUND090505<#MF# ** APPLE SPEAKER P#769,50:N19217022:0,N:768::769,25:0,127:768:769,100:0,150:768Z# PLAY SCALEd#S.25n#I18x#A2,N(I):A21,C(I):A22,N(I):A23,C(I):A24,N(I):A2:9601020:::5:35:"MELODY MATCH";C:yNT2ĺ3);"SCORE FOR FIRST ROUND: ";P$;"%":14803);"SCORE FOR ";NT1;" ROUNDS: ";P$;"%":3);:"PRESS FOR MAIN MENU ";X$:PRINT CHR$ (4);"RUN MUSIC-I TEST NOTESI18, S(16336)9:FLAG0^A$(I)D$(C(I))Ğ:SCSC1:FLAG1t(22:H3I:A$(I)223:H3I:D$(C(I));<FLAG11360FECEC1P:ZP$(((SC(NT8).005)100))d22:34:P$;"%"n1:1:K$x870 *** BRANCHES"K$"Q"14205K$(13)1270_K$(80)āI18:CC(I):LL(I):750:K$(83)Ĺ16302,0:I18:CI:L3:750::16301,0K$(8)AA1:A1A8K$(21)AA1:A8A11260A$(A)K$22:H3A:K$:1130"ROUND: "(NT):21:41(P1$):P1$-B1120^LI18:LL(I):CC(I):CYC:CXI:N14C:790:VI18:LL(I):CC(I):CYC:CXI:N14C:790:750:`A1:H6:22:H3A:K$j(K$)65(K$)711180tA$(A)K$~22:H3A:K$AA1:A8A1SE MELODY$X135:Y197:SY3:SX22QCX0:I18:CC(I):LL(I):CXI:CYC:790C1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y2:4001:K$:16301,0:470NTNT1NT101420$X135:Y197:X135:SX22.330:520#8P1$7,0:16302,0BR(4)"BLOAD NOTE SHAPES,A$1DFC":232,252:233,29H\Zf ERASE SCALEhpCX0:CY0zX135:Y1151:SY3:SX22:L3I18:CXCX1:CYCY1790I1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y216302,0  ERA O1:O2ACY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2Q  DRAW NOTEvXX1CXSX:YY1(SYCY2):LX,Y CY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2*4 LOAD SCREEN>(4);"BLOAD MELODY MATCH.PIC" H16304,0:16300,0:1629206,1,3,240,9,202,208,245,174,0,3,76,2,3,96E L15:L1(L),L2(L):l  255,2,200,1,100,.5,50,.25,25,.12r   PLAY NOTE POKE 768,D(C,T): POKE 769,L1(L): CALL 770 A1,NM(C):A11,CM(C):P1 A2,NM(C):A21,CM(C):P2 SL2(L):9140 DNOTE,NATURAL,SHARP,FLAT. N C,96,90,0 @ X B,101,0,107T b A,114,107,120h l G,127,120,134z v F,142,134,0  E,150,0,160  D,170,160,181  C,192,181,0  MUSIC ROUTINE L770790 V:L,V:L+  173,48,192,136,208,5,FY THE NOTES IN THE MELODY :";S "::::::::::::::::::::::::::::::::::::::::";:Y a 21 " NOTE: 1 2 3 4 5 6 7 8 "; " "; &" "; 0 :0)100 ^C((1)8)14 hL(I)L:C(I)C:CXI:CYCB r790:750H |N a  PLAY SCALE 2r X135:Y1151 SY3:SX22 240  I2123:1:BL$;:: 21:1: 21 "::::::::::::::::::::::::::::::::::::::::"; ": IDENTI(R,1),D(R,2),D(R,3) :670- 820:91507 1020L *** PLAY SCALEZ CX0:CY0e I18w D(I,T)0300 CXCX1:CYCY1 CI:L3 "790:750 , 6 @ *** SET UP PROBLEM JCX0:I18 TL((1)5)1 YTEMPO((1)90 ******************4 ** MELODY MATCH ** M ******************S dNM(8),CM(8)ld:nP$"0":TEMPO100x1:0D$(16),D(16,3)X135:Y197SY3:SX22T1BL$BL$" ":(BL$)40170R811 D$(R),D0&MSLOT(211)192+&MSLOT0SOUND11&Z'::(13):(4);"RUN MUSIC-INTRO":"211)192{&MSLOT0SOUND1&'::(13):(4);"RUN MUSIC-INTRO":A2I,D:# 70,1,34,1,2,1,244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0,108,0,96,0,91,0,81,0,72,0,64,0,61,0,54,0,48,0,45,0,40,0,36,0,32,0,30,0,27,0,24,0 #I127:NM(I),CM(I):#&(4);"BRUN SLOTFINDER":MBFLAG(208):MBFLAG0MSLOT0:992,CM(NF):P2#9130!#O1:O2'#3# DELAYO#DUD(D1(I)):I1DU400`#T11DU::# 145,0,0,0,0,0,0,62,15,0 ,0 ,0,0 ,0,0,0#A133024:A2A116:P132768:P232796:O136897:O236941#8,0:9,129:10,16:11,129#I015:D:A1I,D:(49(I15))RX,Y/(#SOUND19030A2#SOUND09050G<#_F# ** APPLE SPEAKER P#769,50:N19217022:0,N:768::769,25:0,127:768:769,100:0,150:768Q#Z# ** MOCKINGBOARDx#A1,NM(NF):A11,CM(NF):P1 #A2,NM(NF):A21"RHYTHM MATCH"::O(RD2ĺ3);"SCORE FOR FIRST ROUND: ";PC;"%":1340}23);"SCORE FOR ";RD1;" ROUNDS: ";PC;"%"<:F3);:"PRESS FOR MAIN MENU ";X$P(4);"RUN MUSIC-INTRO"Zx769,10:0,25:768:T1500:: 41,128,196,96 RESET2G 169,0,141,128,196,169,4,141,128,196,96n(A36864: BEGINNING ADDRESS, $9000}2X087:D<AX,DFP) 169,6,141,0,196,169,4,141,0,196,965 RESET^ 169,0,141,0,196,169,4,141,0,196,96j INIT2 169,255,141,131,196,169,7,141,130,196,96 LATCH2 169,7,141,128,196,169,4,141,128,196,96 WRITE2   169,6,141,128,196,169,4,1,137,1291490I1NN(D200APITCHPITCH(I):1490GM^33184,PITCHiSOUNDvT1D:DDL930 INIT 169,255,141,3,196,169,7,141,2,196,96 LATCH 169,7,141,0,196,169,4,141,0,196,96 WRITE128,196,96 RESET2D( 169,0,141,128,196,169,4,141,128,196,96k2A36864: BEGINNING ADDRESS, $9000z<X087:DFAX,DPZdNN12nPITCH(NN)xSOUND32768I1NN:PITCH(I): 244,230,217,205,193,183,172,163,153,145 169,6,141,0,196,169,4,141,0,196,962 RESET[ 169,0,141,0,196,169,4,141,0,196,96g INIT2 169,255,141,131,196,169,7,141,130,196,96 LATCH2 169,7,141,128,196,169,4,141,128,196,96  WRITE2  169,6,141,128,196,169,4,141,D1(I)'VR10D:XX(I):I15XX(I14)A`D1Y56(49(I15))[jD2Y54(49(I15))utD2Y58(49(I15))~RX,Y INIT 169,255,141,3,196,169,7,141,2,196,96 LATCH 169,7,141,0,196,169,4,141,0,196,96 WRITE&31:""1OF0:I15X0X(I14):OF49FP0İ1090:1080{P10Ę32:D0(2(D03))X05,Y0(OF4):0:1080D0X0,Y0OF$P4ēX03,Y(4)(OF2)X010,Y(4)(OF2).P2ēX03,Y(2)(OF2)X010,Y(2)(OF2)8B RESTLD MARK KEY,:940:LK$K$::940:WLK$(8)LK$(21)Ģ21:3:""xLK$(32)Ģ22:3:""LK$(13)Ģ23:3:""LK$"C"Ģ21:20:""LK$"P"Ģ21:31:"

"LK$"-"Ģ22:30:"<->" LK$"Q"Ģ23:D0D1(I):CI:X0X(I):Y0Y(P):0:1020:450643:720<>BHTR TEXT SCREENc\420::21f": PITCH CLEAR

PLAY :";p": DURATION <-> ERASE :";z": SELECT QUIT :";1X20:720530JX1,Y1X1S1,Y1X1S1,Y1S1X1,Y1S1X1,Y1:d ERASE AND PLAY BACKrNC08403:720:760:790:I1NCPP1(I):D0D1(I):CI:X0X(I):Y0Y(P):3:1020 :I1NC PP1(I):X1PS1X2:5:720**32)Ē3:D259,147:DD1:D5D1= vK$(8)NN1:N0N16[ K$(21)NN1:N16N0s K$(13)NC28710 K$(13)N0P0:NCNC1:INC:P1(NC)0:D1(NC)D:1090:710 K$(13)PN:NCNC1:P1(NC)P:D1(NC)D:CNC:440 3:720X1NS$"C"K$"Q"K$"P"K$(13)K$(8)K$(21)K$"-"K$(32)530R 0930h :769,5:0,25:768 DK$"C"İ760:3:720:NC0:510 NK$"-"NC0INC:D0D1(I):X0X(I):PP1(I):Y0Y(P):3:1020:NCNC1 XK$"P"İ730 bK$"Q"1160 lK$(,0:16301,0:$  *** PLAY A NOTE- 480G P0āT1D(D)::470f 769,D(D1(I)):0,P(P):768l  INC:D0D:X0X(I):Y0Y(P):0:1020: D259,147:  *** INPUT X1X2S1:720:N1 860:D1 0:D259,147 1:1:K$I &K116:P(I): TI19:D(I):; ^I026:Y(I1)Y0I3:V hI116:X(I)I1540:\ ro | *** GRAPHICS  *** HGR PAGE 1 FULL SCREEN 16304,0:16300,0:16297,0:16302,0:  *** HGR PAGE 1 SPLIT SCREEN 16304,0:16300,0:16297AD THE COMPOSER.PIC,A$2000":400B (4);"BLOAD SOUND GENERATOR"{ (4);"BLOAD COMPOSER.NOTES,A$1DFC":232,252:233,29 " , *** TABLES 6 255,228,203,192,170,150,142,127,114,101,96,85,75,71,63,56 @ 255,240,200,150,100,75,50,37,25 JIЏ 5000d1170n::'x:11:0[P(27),D(9),Y(30),P1(30),D1(30),X(30)pX050:NN12:XX0Y083:XI15S114:X212:Y1138D0250330:400420510440220 *** LOAD SECTION (4);"BLO      L10:V0VL0590h23:27((PTS)):" ";PTS;" ":21:35((VL)):VL:23:34((PC)):" ";PCn SET UP NEW PROBLEMPTSPTSVLTP0PC(((PTSTP)100).5)810:530:720:810:550TPTPVL :::5:3:4,0,48,0,45,0,40,0,36,0,32,0,30,0,27,0,24,0 G#I127:NM(I),CM(I):M#&(4);"BRUN SLOTFINDER":MBFLAG(208):MBFLAG0MSLOT0:100&MSLOT(211)192&MSLOT0SOUND1&'::(13):(4);"RUN MUSIC-INTRO":X590:1210VLV,0,0,56,16,16,16,0,16,9,0,0 V#A133024:A2A116:P132768:P232796:O136897:O236941u#8,0:9,129:10,16:11,129#I015:D:A1I,D:A2I,D:,# 70,1,34,1,2,1,244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0,108,0,96,0,91,0,81,0,72,0,64,0,61,0,517022:0,N:768::769,25:0,127:768:769,100:0,150:768CQ#YZ# ** MOCKINGBOARDyx#A1,NM(NF):A11,CM(NF):P1#A2,NM(NF):A21,CM(NF):P2#9130#O1:O2## DELAY#DUD(D1(I)):I1DU400#T11DU::# 138,4,0,0,00,Y(2)(OF2) REST*DD1(I)LR10D:XX(I):I15XX(I14)fD1Y56(49(I15))D2Y54(49(I15))D2Y58(49(I15))RX,Y(#SOUND190302#SOUND09050<#F# ** APPLE SPEAKER =P#769,50:N192K$"-"Ģ22:30:"<->"1LK$"Q"Ģ23:31:""7XOF0:I15X0X(I14):OF49lP0İ1000:920P10Ę32:D0(2(D03))X05,Y0(OF4):0:920D0X0,Y0OFP4ēX03,Y(4)(OF2)X010,Y(4)(OF2) P2ēX03,Y(2)(OF2)X01LECT QUIT :";#4)>8H MARK KEYSR:860:LK$K$::860:~\LK$(8)LK$(21)Ģ21:3:""fLK$(32)Ģ22:3:""pLK$(13)Ģ23:3:""uLK$"C"Ģ21:20:""zLK$"P"Ģ21:31:"

"{L1NC#PP1(I):X1PS1X2:5:660QD0D1(I):CI:X0X(I):Y0Y(P):0:900:440]3:660ci{ TEXT SCREEN 410::21": PITCH CLEAR

PLAY :"; ": DURATION <-> ERASE :";*": SED1(NC)D:CNC:430l3:660-vX1NS1X290:660B510sX1,Y1X1S1,Y1X1S1,Y1S1X1,Y1S1X1,Y1: ERASE AND PLAY BACKNC07603:660:690:720:I1NCPP1(I):D0D1(I):CI:X0X(I):Y0Y(P):3:900:IK$"P"İ670 0K$"Q"9999I :K$(32)Ē3:D259,147:DD1:D5D1f NK$(8)NN1:N0N16 XK$(21)NN1:N16N0 YK$(13)NC28650 ]K$(13)N0P0:NCNC1:INC:P1(NC)0:D1(NC)D:1000:650bK$(13)PN:NCNC1:P1(NC)P:D1 0:D259,147# 1:1:K$s K$"C"K$"Q"K$"P"K$(13)K$(8)K$(21)K$"-"K$(32)510| 850 769,5:0,25:768 K$"C"İ690:3:660:NC0:490 K$"-"NC0INC:D0D1(I):X0X(I):PP1(I):Y0Y(P):3:900:NCNC1 &6300,0:16297,0:16301,0:2  *** PLAY A NOTE; 460U P0āT1D(D)::450r SOUND0NFP:9080:450 769,D(D1(I)):0,P(P):768  INC:D0D:X0X(I):Y0Y(P):0:900: D259,147:  *** INPUT X1X2S1:660:N1 780:,37,25 @I116:P(I):- JI19:D(I):I TI026:Y(I1)Y0I3:d ^I116:X(I)I1540:j h} r *** GRAPHICS | *** HGR PAGE 1 FULL SCREEN 16304,0:16300,0:16297,0:16302,0:  *** HGR PAGE 1 SPLIT SCREEN 16304,0:1. (4);"BLOAD THE COMPOSER.PIC,A$2000":390P (4);"BLOAD SOUND GENERATOR" (4);"BLOAD COMPOSER.NOTES,A$1DFC":232,252:233,29  " *** TABLES , 255,228,203,192,170,150,142,127,114,101,96,85,75,71,63,56 6 255,240,200,150,100,75,50 d:::16384n9900&x1:09}NM(27),CM(27)cP(27),D(9),Y(30),P1(30),D1(30),X(30)xX050:NN12:XX0Y083:XI15S114:X212:Y1138D0240320:9150:390410490430210 *** LOAD SECTION        ! #8,0:9,129:10,16:11,129<#I015:D:A1I,D:A2I,D:r# 244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0#I18:NM(I),CM(I):#):#NZ#9110d#I1NNn#D2007x#PITCHPITCH(I):9110=#C#T#33184,PITCH_#SOUNDl#T1D:y#DDL930# D RESET2:N 169,0,141,128,196,169,4,141,128,196,96aX A36864: BEGINNING ADDRESS, $9000pb X087:D{l AX,Dv (#NN122#PITCH(NN)<#SOUND32768F#I1NN:PITCH(I):P# 244,230,217,205,193,183,172,163,153,145,137,129141,0,196,169,4,141,0,196,96( RESETQ 169,0,141,0,196,169,4,141,0,196,96] INIT2 169,255,141,131,196,169,7,141,130,196,96 LATCH2& 169,7,141,128,196,169,4,141,128,196,960 WRITE2: 169,6,141,128,196,169,4,141,128,196,96R10D:XX(I):I15XX(I14)7VD1Y56(49(I15))Q`D2Y54(49(I15))kjD2Y58(49(I15))vtRX,Y|~ INIT 169,255,141,3,196,169,7,141,2,196,96 LATCH 169,7,141,0,196,169,4,141,0,196,96 WRITE 169,6,'OF0:I15X0X(I14):OF49<P0İ1080:1070qP10Ę32:D0(2(D03))X05,Y0(OF4):0:1070D0X0,Y0OFP4ēX03,Y(4)(OF2)X010,Y(4)(OF2)$P2ēX03,Y(2)(OF2)X010,Y(2)(OF2).8 RESTBDD1(I)LARK KEY":930:LK$K$::930:MLK$(8)LK$(21)Ģ21:3:""nLK$(32)Ģ22:3:""LK$(13)Ģ23:3:""LK$"C"Ģ21:20:""LK$"P"Ģ21:31:"

"LK$"-"Ģ22:30:"<->"LK$"Q"Ģ23:31:""I:X0X(I):Y0Y(P):0:1010:440,*3:710248>JH TEXT SCREENYR410::21\": PITCH CLEAR

PLAY :";f": DURATION <-> ERASE :";p": SELECT QUIT :";z M0:710520@X1,Y1X1S1,Y1X1S1,Y1S1X1,Y1S1X1,Y1:Z ERASE AND PLAY BACKhNC08303:710:750:780:I1NCPP1(I):D0D1(I):CI:X0X(I):Y0Y(P):3:1010: I1NCPP1(I):X1PS1X2:5:710  D0D1(I):C259,147:DD1:D5D13 lK$(8)NN1:N0N16Q vK$(21)NN1:N16N0i K$(13)NC28700 K$(13)N0P0:NCNC1:INC:P1(NC)0:D1(NC)D:1080:700 K$(13)PN:NCNC1:P1(NC)P:D1(NC)D:CNC:430 3:710 X1NS1X2"Q"K$"P"K$(13)K$(8)K$(21)K$"-"K$(32)520H &920^ 0769,5:0,25:768 :K$"C"İ750:3:710:NC0:500 DK$"-"NC0INC:D0D1(I):X0X(I):PP1(I):Y0Y(P):3:1010:NCNC1 NK$"P"İ720 XK$"Q"1160 bK$(32)Ē3:D,0:  *** PLAY A NOTE# 470= P0āT1D(D)::460\ 769,D(D1(I)):0,P(P):768b  INC:D0D:X0X(I):Y0Y(P):0:1010: D259,147:  *** INPUT X1X2S1:710:N1 850:D1 0:D259,147 1:1:K$? K$"C"K$: JI19:D(I):1 TI026:Y(I1)Y0I3:L ^I116:X(I)I1540:R he r *** GRAPHICS | *** HGR PAGE 1 FULL SCREEN 16304,0:16300,0:16297,0:16302,0:  *** HGR PAGE 1 SPLIT SCREEN 16304,0:16300,0:16297,0:16301POSER.PIC,A$2000":3908 (4);"BLOAD SOUND GENERATOR"q (4);"BLOAD COMPOSER.NOTES,A$1DFC":232,252:233,29w  " *** TABLES , 255,228,203,192,170,150,142,127,114,101,96,85,75,71,63,56 6 255,240,200,150,100,75,50,37,25 @I116:P(I) 3000d::n:'x1:0QP(27),D(9),Y(30),P1(30),D1(30),X(30)fX050:NN12:XX0vY083:XI15S114:X212:Y1138D0240320:390410500430210 *** LOAD SECTION (4);"BLOAD THE COM     z #??   ٠Ȯˠ ٠ȮΠ ٠ҮΠ!ˠ˱  ҠĠР !ҮӠР ŠҮˠ ŮàӠˮҠ ٠Ӡծˠ  Ϡ"ȠȮà"͠Ƞ͠Ȯà"ȠȠŠҮà" ŠҠϠ٠Ȯà"٠ȠŠӠĠҠíϠ Š#I18:NM(I),CM(I): #DELAY" #D(TEMPOS):T11D::L # 145,0,0,0,0,0,0,62,15,0,0,0,0,0,0,0 #A133024:A2A116:P132768:P232796:O136897:O236941 #8,0:9,129:10,16:11,129 #I015:D:A1I,D:A2I,D: # 244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0 (# *** MOCKINGBOARD SETUP(2# ***9<#NM(8),CM(8){F#(4);"BRUN SLOTFINDER":MBFLAG(208):MBFLAG0MSLOT0:9050P#MSLOT(211)192Z#:d#I18n#A1,N(I):A11,C(I):P1x#A2,N(I):A21,C(I):P2#9120:#O1:O2# # 0,127:768:769,100:0,150:7681 PLAY SCALE;S.25FI18bA1,N(I):A11,C(I):P1~A2,N(I):A21,C(I):P24900:O1:O2$ DELAY.D(930S):T1D::(# 145,0,0,0,0,0,0,62,15,0,0,0,0,0,0,0&2#A133024:A2A1ȃ " "JI05:J12:D$(I,J)::Pr36864:36908:36897:36941: *** BRANCH FOR SOUNDSSOUND13000SOUND04000  ** APPLE SPEAKER  769,50:N19217022:0,N:768::769,25:OTATION. "; "PITCH MATCH: CHOOSE THE CORRECT "k "NOTATION FOR A GIVEN MELODY. " "DISK I: TRANSFER TO MUSIC STUDY UNIT, " "DATA RETRIEVAL UTILITY OR QUIZ MACHINE." "GOODBYE: EXIT SYSTEM. "+WRITE MUSICAL MELODIES "KO "A PLAY BACK YOUR CREATION. "{X "MELODY MATCH: LEARN MUSICAL NOTATION BY"b "NAMING THE NOTES IN A GIVEN MELODY. "l "RHYTHM MATCH: HEAR A RHYTHM AND MATCH " v "IT WITH THE CORRECT MUSICAL NLACE MUSIC CONCEPTS DISK #1 IN DRIVE #1"[12:"PRESS ANY KEY WHEN READY ";:X$::(13)e470(4);"OPEN DISKNAME":(4);"READ DISKNAME"N$:(4);"CLOSE":N$"MUSIC CONCEPTS DISK #1"470(4);"RUN MUSIC-INTRO"N "THE COMPOSER: 470< :10:10:"ONE MOMENT PLEASE...":769,20:0,40:768B d C0ĺ(4);"RUN THE COMPOSER" C1ĺ(4);"RUN MELODY MATCH" C2ĺ(4);"RUN RHYTHM MATCH" C3ĺ(4);"RUN PITCH MATCH"  HP20((P$)2):VP:HP:P$:(:10:"P8K11K21K102606 @:VP7C2:P$C$(C):460S JK8K11CC1:C0C5q TK21K10CC1:C5C0w ^ hVP7C2:P$C$(C):460 i19:D$(C,1):D$(C,2) r260 |C5ĉ:: 20:" " C4RETURN >>"::460:4 C0::VP7C2:P$C$(C):460B 16368,0n 16303,0:16300,0:16297,0:16302,0 19:D$(0,1):D$(0,2) :K(16384):K127260 16368,0 769,10:0,25:768 VP6:P$T3$:460 "KK128 ,K13380 6KE 769,50: FOR N = 192 TO 170 STEP - 22: POKE 0,N: CALL 768: NEXT : POKE 769,25: POKE 0,127: CALL 768: POKE 769,100: POKE 0,150: CALL 768 VP2:P$T0$:460:VP4:P$T1$:460:VP6:P$T2$:460 C05:VP7C2:P$C$(C):460: VP22:P$"<< ARROWS OR *** CLEAR CHOICE3:80,33266,33266,6980,6980,33:80,70266,70266,10680,10680,70:80,107266,107266,14280,14280,107(#SOUND190302#SOUND09050<#F# ** APPLE SPEAKER P#769,50:N19217022:0,N:768::769,25:0,127:16:P132768:P232796:O136897:O236941G<#I015:D:A1I,D:A2I,D:VF#N(8),C(8)P# 244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0Z#I18:N(I),C(I):#(* P(52):(4);"BLOAD SOUND GENERATOR"4DI1d:::(4)"BLOAD VENTURA LOGO":16302,0:16300,0:16297,0:16304,0:C0:SYS$"MUSIC":16368,0iI126:P(I):P(53I)P(I):jI04:D(I):nC2000150xK(16384) |(1).2C1   z_n]_z/^Iyy_*U*U*U*}/U*U*U*U-` z?sw|sqy?~gw w_z_*U*U*U*}y~s~gO?N9~s|g{/U*U*U*U0(z}G~xxxx~?q?Gc?|q_z_s_z_ӵԵ zi?g_z_z_ z_z_ps_z/w|s_ z F~xxxx~q{?c_qFc?|?q_z_8n|s_zw_ z?gw/_zp_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UǴҵԵzM_zozs_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U ERS z?Un_z?p`cy_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UϠzj~pspC~?p{]{_z_*U*U*U*}ys|gO?F~s|g/U*U*U*UƬ~ABRz}G~xxxx~?q@c?|q_z_g/~s_z_UAGE NOTzG?o_z_z_BUFFhH*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz p_z/w|s_6zEE~{xy|xxw?q?qEwcw|?q_z_x,~s_z p_BLOlZlz?W;^_z?g_*U*U*U*}/U*U*U*U@DAEzm_zo?xs_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uȑ@oz:?u_z_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U` [Lz]}n_z_*U*U*U*}ys|~|?~9~~g/U*U*U*U eօz}G>xxxx~?q}Gc?|q_z_so|s_z_`L zOn_z_z_oL*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz_qs_z/7~s_ õzaC~{xs?~xO?|o?xpCwcwyq_z_q s_zoGGs_lV z?Q~|?xs?xag?p=.}_zf_*U*U*U*}/U*U*U*U)rzs_z@p_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uõ8`Dzu~_{_z_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ULꢩ z+:w_z?p`_*U*U*U*}ys|gO?~9~s|g/U*U*U*ULꢩГz}{Gxxxx~?~q{Gc?|q_z_qmys_z_ Lzq_z_z_E *U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uz_ss_z/<s_ɠzqG~yxgxg~_?|qGgcssq_z p_zoss_ ]            ******************4 ** MELODY MATCH ** M ******************S dNM(8),CM(8)(4);"BRUN SLOTFINDER":MBFLAG(208):MBFLAG0MSLOT0:100(MSLOT(211)192d:nP$"0":TEMPO100x1:0D$(16),D(16,3) X135:     223:H3I:D$(C(I));+<FLAG113607FECEC1?P:aZP$(((SC(NT8).005)100))ud22:34:P$;"%"n1:1:K$x870:9601020:::5:3:"MELODY MATCH":NT2ĺ3);"SCORE FOR FIRST ROUND: ";P$;"%":6301,0"K$(8)AA1:A1A8?K$(21)AA1:A8A1I1260VA$(A)K$22:H3A:K$:(K$)90K$((K$)32)1130 TEST NOTESI18 S(16336):FLAG0A$(I)D$(C(I))Ğ:SCSC1:FLAG1(22:H3I:A$(I)A:K$:(K$)90K$((K$)32):j(K$)65(K$)711180GtA$(A)K$Z~22:H3A:K$mAA1:A8A1 *** BRANCHESK$"Q"1420K$(13)1270K$(80)āI18:CC(I):LL(I):750:K$(83)Ĺ16302,0:I18:CI:L3:750::1,0:470NTNT1#NT101420?$X135:Y197:X135:SX22M.330:520y8P1$"ROUND: "(NT):21:41(P1$):P1$B1120LI18:LL(I):CC(I):CYC:CXI:N14C:790:VI18:LL(I):CC(I):CYC:CXI:N14C:790:750:`A1:H6:22:H3901I1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y27E16302,0K_ ERASE MELODYzX135:Y197:SY3:SX22CX0:I18:CC(I):LL(I):CXI:CYC:790C1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y2:4001:K$:163014 LOAD SCREEN7>(4);"BLOAD MELODY MATCH.PIC"cH16304,0:16300,0:16297,0:16302,0R(4)"BLOAD NOTE SHAPES,A$1DFC":232,252:233,29\f ERASE SCALEpCX0:CY0zX135:Y1151:SY3:SX22:L3I18:CXCX1:CYCY1770:760%A1,NM(C):A11,CM(C):P1CA2,NM(C):A21,CM(C):P2USL2(L):9140aO1:O2gCY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2  DRAW NOTEXX1CXSX:YY1(SYCY2):LX,Y CY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2*92,181,0  MUSIC ROUTINE+ L770790: V:L,V:L  173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 L15:L1(L),L2(L):  255,2,200,1,100,.5,50,.25,25,.12   PLAY NOTEMBFLAG0Ĺ768,D(C,T):769,L1(L):7 ";J &" ";P 0V :s DNOTE,NATURAL,SHARP,FLAT N C,96,90,0 X B,101,0,107 b A,114,107,120 l G,127,120,134 v F,142,134,0  E,150,0,160  D,170,160,181  C,1 21:1: 21E "::::::::::::::::::::::::::::::::::::::::";v ": IDENTIFY THE NOTES IN THE MELODY :"; "::::::::::::::::::::::::::::::::::::::::";:  21 " NOTE: 1 2 3 4 5 6 7 8 "; "  6 @ *** SET UP PROBLEM0 JCX0:I18B TL((1)5)1\ YTEMPO((1)900)100n ^C((1)8)1 hL(I)L:C(I)C:CXI:CYC r790:750 |   PLAY SCALE 2 X135:Y1151 SY3:SX22 240  I2123:1:BL$;::Y197 SY3:SX22 T1; BL$BL$" ":(BL$)40170I R811i D$(R),D(R,1),D(R,2),D(R,3)t :670 820:9150 1020 *** PLAY SCALE CX0:CY0 I18 D(I,T)0300 CXCX1:CYCY1 CI:L3 "790:750 , ******************4 ** MELODY MATCH ** M ******************S dNM(8),CM(8)(4);"BRUN SLOTFINDER":MBFLAG(208):MBFLAG0MSLOT0:100(MSLOT(211)192d:nP$"0":TEMPO100x1:0D$(16),D(16,3) X135:      CALEd#S.25n#I185x#A1,N(I):A11,C(I):P1Q#A2,N(I):A21,C(I):P2]#9130:i#O1:O2o#{# DELAY#D(TEMPOS):T11D::# 145,0,0,0,0,0,0,62,15,0,0,0,0,0,0,0#A133024:A2A116:P132768:P232796:O136897:O236941:33);:"PRESS FOR MAIN MENU ";X$[:PRINT CHR$ (4);"RUN MUSIC-INTRO"as(#SOUND190302#SOUND09050<#F# ** APPLE SPEAKER P#769,50:N19217022:0,N:768::769,25:0,127:768:769,100:0,150:768Z# PLAY S1 P:+ZP$(((SC(NT8).005)100))?d22:34:P$;"%"Mn1:1:K$[x870:960e1020u:::5:3:"MELODY MATCH":NT2ĺ3);"SCORE FOR FIRST ROUND: ";P$;"%":14803);"SCORE FOR ";NT1;" ROUNDS: ";P$;"%":A1A8&K$(21)AA1:A8A101260=A$(A)K$V22:H3A:K$:1130g TEST NOTESrI18 S(16336):FLAG0A$(I)D$(C(I))Ğ:SCSC1:FLAG1(22:H3I:A$(I)223:H3I:D$(C(I));<FLAG11360FECECA:K$!j(K$)65(K$)711180.tA$(A)K$A~22:H3A:K$TAA1:A8A1g *** BRANCHESxK$"Q"1420K$(13)1270K$(80)āI18:CC(I):LL(I):750:K$(83)Ĺ16302,0:I18:CI:L3:750::16301,0 K$(8)AA1,0:470NTNT1#NT101420?$X135:Y197:X135:SX22M.330:520y8P1$"ROUND: "(NT):21:41(P1$):P1$B1120LI18:LL(I):CC(I):CYC:CXI:N14C:790:VI18:LL(I):CC(I):CYC:CXI:N14C:790:750:`A1:H6:22:H3901I1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y27E16302,0K_ ERASE MELODYzX135:Y197:SY3:SX22CX0:I18:CC(I):LL(I):CXI:CYC:790C1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y2:4001:K$:163014 LOAD SCREEN7>(4);"BLOAD MELODY MATCH.PIC"cH16304,0:16300,0:16297,0:16302,0R(4)"BLOAD NOTE SHAPES,A$1DFC":232,252:233,29\f ERASE SCALEpCX0:CY0zX135:Y1151:SY3:SX22:L3I18:CXCX1:CYCY1770:760%A1,NM(C):A11,CM(C):P1CA2,NM(C):A21,CM(C):P2USL2(L):9140aO1:O2gCY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2  DRAW NOTEXX1CXSX:YY1(SYCY2):LX,Y CY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2*92,181,0  MUSIC ROUTINE+ L770790: V:L,V:L  173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 L15:L1(L),L2(L):  255,2,200,1,100,.5,50,.25,25,.12   PLAY NOTEMBFLAG0Ĺ768,D(C,T):769,L1(L):7 ";J &" ";P 0V :s DNOTE,NATURAL,SHARP,FLAT N C,96,90,0 X B,101,0,107 b A,114,107,120 l G,127,120,134 v F,142,134,0  E,150,0,160  D,170,160,181  C,1 21:1: 21E "::::::::::::::::::::::::::::::::::::::::";v ": IDENTIFY THE NOTES IN THE MELODY :"; "::::::::::::::::::::::::::::::::::::::::";:  21 " NOTE: 1 2 3 4 5 6 7 8 "; "  6 @ *** SET UP PROBLEM0 JCX0:I18B TL((1)5)1\ YTEMPO((1)900)100n ^C((1)8)1 hL(I)L:C(I)C:CXI:CYC r790:750 |   PLAY SCALE 2 X135:Y1151 SY3:SX22 240  I2123:1:BL$;::Y197 SY3:SX22 T1; BL$BL$" ":(BL$)40170I R811i D$(R),D(R,1),D(R,2),D(R,3)t :670 820:9150 1020 *** PLAY SCALE CX0:CY0 I18 D(I,T)0300 CXCX1:CYCY1 CI:L3 "790:750 ,` 2Ot ( -u??@ ( --6@$$$$??@ ( -u??---99?,m@ $$$$ ( --6?',.$5. 5@$$$$t2@555 ( --6?',.$5. 5@$$$$t6555@65:9601020:::5:35:"MELODY MATCH";C:yNT2ĺ3);"SCORE FOR FIRST ROUND: ";P$;"%":14803);"SCORE FOR ";NT1;" ROUNDS: ";P$;"%":3);:"PRESS FOR MAIN MENU ";X$:PRINT CHR$ (4);"RUN MUSIC-I TEST NOTESI18, S(16336)9:FLAG0^A$(I)D$(C(I))Ğ:SCSC1:FLAG1t(22:H3I:A$(I)223:H3I:D$(C(I));<FLAG11360FECEC1P:ZP$(((SC(NT8).005)100))d22:34:P$;"%"n1:1:K$x870 *** BRANCHES"K$"Q"14205K$(13)1270_K$(80)āI18:CC(I):LL(I):750:K$(83)Ĺ16302,0:I18:CI:L3:750::16301,0K$(8)AA1:A1A8K$(21)AA1:A8A11260A$(A)K$22:H3A:K$:1130"ROUND: "(NT):21:41(P1$):P1$-B1120^LI18:LL(I):CC(I):CYC:CXI:N14C:790:VI18:LL(I):CC(I):CYC:CXI:N14C:790:750:`A1:H6:22:H3A:K$j(K$)65(K$)711180tA$(A)K$~22:H3A:K$AA1:A8A1SE MELODY$X135:Y197:SY3:SX22QCX0:I18:CC(I):LL(I):CXI:CYC:790C1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y2:4001:K$:16301,0:470NTNT1NT101420$X135:Y197:X135:SX22.330:520#8P1$7,0:16302,0BR(4)"BLOAD NOTE SHAPES,A$1DFC":232,252:233,29H\Zf ERASE SCALEhpCX0:CY0zX135:Y1151:SY3:SX22:L3I18:CXCX1:CYCY1790I1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y216302,0  ERA O1:O2ACY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2Q  DRAW NOTEvXX1CXSX:YY1(SYCY2):LX,Y CY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2*4 LOAD SCREEN>(4);"BLOAD MELODY MATCH.PIC" H16304,0:16300,0:1629206,1,3,240,9,202,208,245,174,0,3,76,2,3,96E L15:L1(L),L2(L):l  255,2,200,1,100,.5,50,.25,25,.12r   PLAY NOTE POKE 768,D(C,T): POKE 769,L1(L): CALL 770 A1,NM(C):A11,CM(C):P1 A2,NM(C):A21,CM(C):P2 SL2(L):9140 DNOTE,NATURAL,SHARP,FLAT. N C,96,90,0 @ X B,101,0,107T b A,114,107,120h l G,127,120,134z v F,142,134,0  E,150,0,160  D,170,160,181  C,192,181,0  MUSIC ROUTINE L770790 V:L,V:L+  173,48,192,136,208,5,FY THE NOTES IN THE MELODY :";S "::::::::::::::::::::::::::::::::::::::::";:Y a 21 " NOTE: 1 2 3 4 5 6 7 8 "; " "; &" "; 0 :0)100 ^C((1)8)14 hL(I)L:C(I)C:CXI:CYCB r790:750H |N a  PLAY SCALE 2r X135:Y1151 SY3:SX22 240  I2123:1:BL$;:: 21:1: 21 "::::::::::::::::::::::::::::::::::::::::"; ": IDENTI(R,1),D(R,2),D(R,3) :670- 820:91507 1020L *** PLAY SCALEZ CX0:CY0e I18w D(I,T)0300 CXCX1:CYCY1 CI:L3 "790:750 , 6 @ *** SET UP PROBLEM JCX0:I18 TL((1)5)1 YTEMPO((1)90 ******************4 ** MELODY MATCH ** M ******************S dNM(8),CM(8)ld:nP$"0":TEMPO100x1:0D$(16),D(16,3)X135:Y197SY3:SX22T1BL$BL$" ":(BL$)40170R811 D$(R),D     0L`4:A2A116:P132768:P232796:O136897:O236941M#8,0:9,129:10,16:11,129n#I015:D:A1I,D:A2I,D:# 244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0#I18:NM(I),CM(I):#&(4);"BRUN SLOTFINDER":MBFLAG(208):MBFLAG0MSLOT05,C(I):A212,20:A213,9:P1C#A2,N(I):A21,C(I):A213,9:P2O#9130:[#O1:O2a#m# DELAY#D(TEMPOS):T11D::# 145,1,145,1,145,1,3,62,15,0,0,0,0,0,0,0 #A133024:A2A116:P132768:P232796:O136897:O236941#8,0:9,NTRO" (#SOUND19030/2#SOUND090505<#MF# ** APPLE SPEAKER P#769,50:N19217022:0,N:768::769,25:0,127:768:769,100:0,150:768Z# PLAY SCALEd#S.25n#I18x#A2,N(I):A21,C(I):A22,N(I):A23,C(I):A24,N(I):A2 "6 "DISK I: TRANSFER TO MUSIC STUDY UNIT, "f "DATA RETRIEVAL UTILITY OR QUIZ MACHINE." "GOODBYE: EXIT SYSTEM. " " "I05:J12:D$(I,J)::: VENTUN MUSICAL NOTATION BY"Fb "NAMING THE NOTES IN A GIVEN MELODY. "vl "RHYTHM MATCH: HEAR A RHYTHM AND MATCH "v "IT WITH THE CORRECT MUSICAL NOTATION. " "PITCH MATCH: CHOOSE THE CORRECT " "NOTATION FOR A GIVEN MELODY. 3) 470<(4);"OPEN DISKNAME":(4);"READ DISKNAME"tN$:(4);"CLOSE":N$"MUSIC CONCEPTS DISK #1"470(4);"PR#6"N "THE COMPOSER: WRITE MUSICAL MELODIES "O "A PLAY BACK YOUR CREATION. "X "MELODY MATCH: LEARE COMPOSER"- C1ĺ(4);"RUN MELODY MATCH"O C2ĺ(4);"RUN RHYTHM MATCH"p C3ĺ(4);"RUN PITCH MATCH"v  HP20((P$)2):VP:HP:P$: :10:"PLACE MUSIC CONCEPTS DISK #1 IN DRIVE #1"12:"PRESS ANY KEY WHEN READY ";:X$::(1K21K10CC1:C5C0 ^9 hVP7C2:P$C$(C):460S i19:D$(C,1):D$(C,2)\ r260k |C5ĉ:: 20:" " C4470 :10:10:"ONE MOMENT PLEASE...":769,20:0,40:768  C0ĺ(4);"RUN TH0:16297,0:16302,0/ 19:D$(0,1):D$(0,2)L :K(16384):K127260Z 16368,0q 769,10:0,25:768 VP6:P$T3$:460 "KK128 ,K13380 6K8K11K21K10260 @:VP7C2:P$C$(C):460 JK8K11CC1:C0C5 T:768::769,25:0,127:768:769,100:0,150:768g VP2:P$T0$:460:VP4:P$T1$:460:VP6:P$T2$:460 C05:VP7C2:P$C$(C):460: VP22:P$"<< ARROWS OR RETURN >>"::460: C0::VP7C2:P$C$(C):460 16368,0 16303,0:16300,RA EDUCATIONAL SYSTEMS *****"6 C$(0)"THE COMPOSER" T1$"MUSIC CONCEPTS --- DISK #2":T2$"":SYS$"MUSIC":C$(1)" MELODY MATCH ":C$(2)" RHYTHM MATCH ":C$(3)" PITCH MATCH ":C$(4)" DISK #1 ":C$(5)" GOODBYE " 6700 769,50:N19217022:0,Nd ***********************=n * MUSIC-INTRO DISK #2 *[x * COPYRIGHT 1984 *y * VENTURA EDUCATIONAL * * SYSTEMS * ***********************:::16384:36864:(4);"BLOAD SOUND GENERATOR" T0$"***** VENTU     :9920&MSLOT(211)1920&MSLOT0SOUND16&I129:10,16:11,1293#I015:D:A1I,D:A2I,D:i# 244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0#I18:NM(I),CM(I):#PàӠˠ6|}Ogo߮ՀŪx88LGq߫ŪըsLgs9f9rsgg<'>>N3Ng?^9s=?Dy~Ūw6xyywyy|Ū߀ŀŪըŪŪ ŪըժժժժժժժժժժժժժժժժժժŪ߃Ū؂Ūժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժno9gs?vgg?g׿Ūԃ0ŪŪG_ժ ŪߋЂŪ9ŪкЀ݂Ūը9>pgŪn{g߀Ū݊Ūժժժժժժժժժժժժժժժժժժժժ&|_{ݪŪŪըs g@9|xgA8NGg`90NŪO6|yyoyy|ŃŪ߫ŪըŪŪŪϺŪߠŪ׺Ūժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժn9gs?zggB߯߂ŪŪըժժժժժժժժժժժժժժժժժժŪo~g߀ЫwŪϾŪ~y߀ЎŪŪը?~ggŪ?>.tgŪޫԃջŪՀ>|qŪŪըŪ 6|yyCpy|ǣŪx88LGqŪըŪŪ Ū߫ŪŪ߀Ūժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժn9gs?FggCq Ūԃ"ŪըժժժժժժժժժժժժժժժժժժŪ@w?{w ŪߏŪ~7~}oŪ݂Ūը?|g@Ū| hgߠAŪ݊ŪըժժժժժժժժժժժժժժժժժժŪ>|{ŪׇŪըŪ 6|yy0|y|Ū?w]wno{ߊŪը_gsgg>pAs<8N9|`g>0NŪŪŪ;׫ѺŪŪמŪժժժժժժժժժժժժժժժժժժժժ ժժժժժժժժժժժժժժժժժժժժn9gs?ggg{ŪŪըժժժժժժժժժժժժժժժժժժŪ~c?os{osa߀ܫԂŪŪ            }7~PJ/}?}O;|~_g/~/}~;~/}$_UZq/}/}~X/}c?|~cx}G~q?|G/},s `/}O/}/}?=?sq_x,~/}/}/}/}^_y/}c?<<>g{xEE^_s=|G/}_M/}b;g?w/}F'|m&g/}c/}b9g{;[}Om=oo/}N?sa/}~_j/}@~/}7p/}?}_;|~_so|/}~/}~G_UZq/}||~/}~Q/}c?|~cx}Gw~q?|G/}WOg_q/}/}/}?=_~_q /}/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}/}>\?u/}c?><>OyxaC^_g<|G/}m/}_s/}VZf/}g/}b9s{G{}o ~/}F7g?g/}~;~a?]/}><|/}O{/}?}_]~_qmy/};~/}~O_UZr/}?}{;/}~C;cannq{`p/}c?|~cx}{Go~q?|G/}kOg_s/}?/}/}?=ow~ `/}/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}/}~Xn/}c?<xxqGOO?<|G/}s/}b9g_k/}^?[:e/}/}b3y/}b;gpG/}\:/}?y/}/}?}_n~_xny/}/}~_s/}?}}Ws/}$;wnnfn{~o~/}`?|~c}qG_~q?@/}us_e/}@/}px`|?p~x|?p~/}?=ww_Gw/}/ U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*}O/}~QU/}`0`|?x~?@?@ p~/}/}b9g_h/            ":CAGİ1240:590:12101VLVL10:V0VL0:59023:27((PTS)):" ";PTS;" ":21:35((VL)):VL:23:34((PC)):" ";PC SET UP NEW PROBLEMPTSPTSVLTP0PC(((PTSTP)100).5)810:530:720:810:550TPCK tX$"A"G1:21:3:"<*>">~X$"B"G2:21:7:"<*>"]X$"C"G3:21:11:"<*>"G(CA)Ģ22:3:"<< CORRECT >>":769,10:0,25:768:119022:3:"<< INCORRECT >>":769,10:0,200:768:1190T11000:T:22:3::" X $$ PLAYING SCREEN*.b821:1:": VALUE: :";B22:1:": MATCH RHYTHM

PLAY QUIT :";L23:1:": ROUND: SCORE: % :";V16301,0:16300,0`1510:j CHE127:768:769,100:0,150:768#6 SCRAMBLE 2&3BI1NCaR2$R2$(6((RH$,I,1)))R3$R3$((((78)(79)256)5)1):I120CA(((78)(79)256)3)1CA;" ";::I110X(((78)(79)256)5)1* *** DRAW RHYTHMS#4NC(RH$)/>I1NCDHN1((R1$,I,1))YRN2((R2$,I,1))n\N3((R3$,I,1))fN1100(I15),56ApN2100(I15),93AzN3100(I15),130A1510769,50:N19217022:0,N:768::769,25:0,6302,0 # *** SET PROBLEM<R1$"":R2$"":R3$""JNC(RH$)kCA(((78)(79)256)3)1t930CA1R1$RH$ CA2R1$R2$:R2$RH$:(1).5T$R1$:R1$R3$:R3$T$CA3R1$R3$:R3$RH$:(1).5T$R1$:R1$R2$:R2$T$ 769,D(N):0,240:768(vPAUSE110:.:1070:X *** LOAD SCREEN & SOUNDz(4);"BLOAD SOUND GENERATOR"(4);"BLOAD NOTE SHAPES,A$1DFC":232,252:233,29(4);"BLOAD RHYTHM MATCH.PIC,A$2000"16304,0:16300,0:16297,0:1:::::::::::::::::::::::::::::::";YP22:1:": MATCH RHYTHM WITH NOTATION :";Q23:1:"::::::::::::::::::::::::::::::::::::::::";S16301,0:16300,0W1:1:K$:K$" "599XI1NCbN((RH$,I,1))gSOUND0İ9050:640l 53533,32455,35452,4234,25543,34258I15:D(I):KI18:P(I):aI1NR:RH$(I):gy SET PATTERNX(((78)(79)256)20)1&RH$RH$(X)RH$(X)0VL(RH$)10:D PLAY RHYTHMNNC(RH$):!O21:1:"::::::::::21:11:""B X$"Q"Ģ22:30::" QUIT":1400:810:1290K 320Q b  DURATION |  255,200,100,50,25  PITCH  192,170,150,142,127,114,101,96  233,3244,3443,323,2443,3442,323  322,3454,45332,3523,4342,3442,4534%6,10680,10680,70G kX$"C"Ē5:80,107266,107266,14280,14280,107y rX$"A"ĝ:21:3:"":1130::21:3:"" sX$"A"Ē1:80,33266,33266,6980,6980,33 |X$"B"ĝ:21:7:"":1130::21:7:"" X$"C"ĝ:21:11:"":1130:((X$)32)O ZX$"A"X$"B"X$"C"X$"P"X$"Q"Ĺ769,10:0,20:768:345 ^X$"P"Ģ22:20:RDRD1::"

PLAY":1400:580:VLVL10(VL0):410 h769,10:0,20:768 iX$"A"Ē5:80,33266,33266,6980,6980,33 jX$"B"Ē5:80,70266,70261:23:10((RD)):" ";RD;" "; E22:3::"MATCH RHYTHM" J23:27((PTS)):" ";PTS;" ":21:35((VL)):VL:23:35((PC)):PC T1510 U80,70266,70266,10680,10680,70 V80,107266,107266,14280,14280,107 Y1:1:X$:(X$)90X$""& NC0:N150:X$"":I0:X0:NR20I VL0:PTS0:CA0:N10:N20:N30h R1$"":R2$"":R3$"":T$""u G0:PC0~ 660 910 1:0 490:9150:530 720:810 T11000:T "580:TPTPVL ,1070 @RD0RD0 ARDRDPd***********************;n* RHYTHM MATCH *Xx* VENTURA EDUCATIONAL *u* SYSTEMS ** (C) 1984 ************************ 9900D(5),P(8),RH$(20)TEMPO100:NF6 RD0:TP0:T0:VL0:RH$      """||pawccA{Aw;[}{_yqw|`xA|]? qcqx?qo?|?qxc?|_@}w|?{?NOO|\`?|gq{{q{x?xp~|p}x=~gc?|G_s||xgwq}wnlw_s~{{H^;~|wG}|``wyKkwkw;Ua{_yy?~w?y{_}M?Dqcqx?~qo_?|~qxc?|?~i | `_w~DKժժժժժժժժժժժժժժժժժժժժg||?~N;~?|sqGwsqyx?|q?|qyx||cc?|?s||{NOwc}w|``~|y{?&`w|pw}|~w|gogw;N}{_}y|w?y{_me?|pcq??|qo?|}qx|~?|w?|p<@?@` |?@0p?@`xp_w~|7|{qxc?|ow}w|?|cqcqx?qo?|}qx|wc?|__ww~|` ժժժժժժժժժժժժժժժժժժժժ{~{|LN|w_wcc          3:1551:1552:1553:<12,32198,32199,7112,7112,32:e80,72266,72266,11080,11080,72:12,115198,115198,15312,15312,115:(#SOUND190302#SOUND09050<#F# ** APPLE SPEAKER #P#769,50:N19217022:0,N:768::769,:9RD2ĺ3);"SCORE FOR FIRST ROUND: ";PC;"%":1490g3);"SCORE FOR ";RD1;" ROUNDS: ";PC;"%"o:3);:"PRESS FOR MAIN MENU ";X$(4);"RUN MUSIC-INTRO"769,10:0,25:768:T1500:: *** CLEAR CHOICEF670XP23:27((PTS)):" ";PTS;" ":21:35((VL)):VL:23:34((PC)):" ";PC^Zwd SET UP NEW PROBLEMnPTSPTSVLxTP0PC(((PTSTP)100).5)930:620:930:850TPTPVL:::5:3:"PITCH MATCH":1:7:"<*>"*X$"C"G3:21:11:"<*>"iG(CA)Ģ22:3:"<< CORRECT >>":769,10:0,25:768:1330(22:3:"<< INCORRECT >>":769,10:0,200:768:13302T11000:T:22:3::" ":CAGİ1390:670:1360<VLVL10:V0VL01:": VALUE: :";g22:1:": MATCH NOTES

PLAY QUIT :";23:1:": ROUND: SCORE: % :";16301,0:16300,01550: CHECKX$"A"G1:21:3:"<*>"  X$"B"G2:2(2)(I15),Y(2)N2313X(3)(I15),Y(3)N337A1550G769,50:N19217022:0,N:768::769,25:0,127:768:769,100:0,150:768$~I110X(((78)(79)256)5)1X PLAYING SCREEN/21:4,0:16300,0:16297,0:16302,0'>>H *** SET PROBLEM_RCA(((78)(79)256)3)1szP$"":P$R$(CA)y *** DRAW NOTESI1NNN1((R1$,I,1))N2((R2$,I,1))N3((R3$,I,1))3X(1)(I15),Y(1)N133XSOUND0İ9050:7602769,100:0,P(N):768DPAUSE110:JV1210:t  *** LOAD SCREEN & SOUND(4);"BLOAD SOUND GENERATOR" (4);"BLOAD NOTE SHAPES,A$1DFC":232,252:233,29*(4);"BLOAD PITCH MATCH.PIC,A$2000"!41630RH$):>21:1:"::::::::::::::::::::::::::::::::::::::::";v22:1:": MATCH PITCHES WITH NOTATION :";23:1:"::::::::::::::::::::::::::::::::::::::::";16301,0:16300,01:1:X$:X$" "711I1NNN((P$,I,1)):X(I),Y(I): X' b SET PATTERNSH lNN(((78)(79)256)5)3Z mVL50:RDRD1s vI13:R$"":J1NN xP(((78)(79)256)8)1 yR$R$(P) { R$(I)R$  R1$R$(1):R2$R$(2):R3$R$(3)   PLAY PITCHESNC(1270::21:11:""I X$"Q"Ģ22:30::" QUIT":1530:930:1440R 320X i  DURATION  255,200,100,50,25  PITCH  192,170,150,142,127,114,101,96  50,72,120,112,50,155 :I15:D(I): DI18:P(I): NI139,10:0,20:768$ X$"A"Ē1:15519 X$"B"Ē1:1552N X$"C"Ē1:1553 X$"A"ĝ:21:3:"":1270::21:3:"" X$"A"Ē1:80,33266,33266,6980,6980,33 X$"B"ĝ:21:7:"":1270::21:7:"" X$"C"ĝ:21:11:"":22:3::"MATCH NOTES"8 E23:10((RD)):" ";RD;" " J23:27((PTS)):" ";PTS;" ":21:35((VL)):VL:23:35((PC)):PC T1550 r1:1:X$:(X$)90X$((X$)32) |X$"P"Ģ22:20::"

PLAY":1530:660:VLVL10(VL0):480 76L0:RH$""- NC0:N150:X$"":I0:X0:NR20P VL0:PTS0:CA0:N10:N20:N30o R1$"":R2$"":R3$"":T$"" G0:PC0::10:10:"LOADING..." 780 1050 1:0 610 840:930 T11000:T "660:TPTPVL ,1210 @7d***********************;n* PITCH MATCH *Xx* VENTURA EDUCATIONAL *u* SYSTEMS ** (C) 1984 ************************ D(5),P(8),X(3),Y(3)570:9150:9900TEMP940 RD0:TP0:T0:V      * S{G~ NO. {oy g) 3= PR?|~c}y?Oy{?|g||?>|wqG|s|~~~s|s|~~~s|s|ADDRESS@ . TARR} * KY =?|~c_?|cc{8?|gq1x?|~q PT = C{G~{qq?ZCwV;S7|~c}|?gs  ?|Gs9|??|wq~10          16:P132768:P232796:O136897:O236941E#8,0:9,129:10,16:11,129f#I015:D:A1I,D:A2I,D:# 244,0,217,0,193,0,183,0,163,0,145,0,129,0,122,0#I18:NM(I),CM(I):#&(4);"BRUN SLOTFINDER":MBFLAG(208):MBFLAG0MSLOT0:100768:769,100:0,150:768Q#5Z# ** MOCKINGBOARDUx#A1,NM(NF):A11,CM(NF):P1u#A2,NM(NF):A21,CM(NF):P2#9130#O1:O2## DELAY#D(TEMPO(5N)):T11D::# 138,4,0,0,0,0,0,56,16,16,16,0,20,0,0,0&#A133024:A2A1((1)25)10& }C1C1DI:C152C116 ~C11C152L (1).1DIDI1h (1).3DD(((1)5)) 0,P(C1):769,D:768 K127150 CC1:110 999 (4);"RUN PRIMARY ROUTINES" (4);"RUN ";SYS$;"-INTRO":O 255,241,228,215,Y0(OF4):0:920#D0X0,Y0OFQP4ēX03,Y(4)(OF2)X010,Y(4)(OF2)P2ēX03,Y(2)(OF2)X010,Y(2)(OF2) RESTDD1(I)R10D:XX(I):I15XX(I14)D1Y56(49(I15))D2Y54(49(I15)) D2Y5822:3:""3pLK$(13)Ģ23:3:""OuLK$"C"Ģ21:20:""kzLK$"P"Ģ21:31:"

"{LK$"-"Ģ22:30:"<->"LK$"Q"Ģ23:31:""OF0:I15X0X(I14):OF49P0İ1000:920P10Ę32:D0(2(D03))X05": PITCH CLEAR

PLAY :";^ ": DURATION <-> ERASE :";*": SELECT QUIT :";4>H MARK KEYR:860:LK$K$::860:\LK$(8)LK$(21)Ģ21:3:""fLK$(32) NC0760%3:660:690:720:1I1NCbPP1(I):D0D1(I):CI:X0X(I):Y0Y(P):3:900j:vI1NCPP1(I):X1PS1X2:5:660D0D1(I):CI:X0X(I):Y0Y(P):0:900:4403:660 TEXT SCREEN 410::21-(13)NC28650N]K$(13)N0P0:NCNC1:INC:P1(NC)0:D1(NC)D:1000:650bK$(13)PN:NCNC1:P1(NC)P:D1(NC)D:CNC:430l3:660vX1NS1X20:660510X1,Y1X1S1,Y1X1S1,Y1S1X1,Y1S1X1,Y1: ERASE AND PLAY BACK147:D1:3:660:NC0:490` K$"-"NC0INC:D0D1(I):X0X(I):PP1(I):Y0Y(P):3:900:NCNC1x &K$"P"K$"p"İ670 0K$"Q"K$"q"9999 :K$(32)Ē3:D259,147:DD1:D5D1 NK$(8)NN1:N0N16 XK$(21)NN1:N16N0YK$780:D1 0:D259,147* 1:1:K$ K$"c"K$"q"K$"p"K$(13)K$(8)K$(21)K$"-"K$(32)K$"C"K$"Q"K$"P"K$(13)K$(8)K$(21)K$"-"K$(32)510 850 769,5:0,25:768 K$"C"K$"c"İ690:D259,4,0:16300,0:16297,0:16301,0:9  *** PLAY A NOTEB 460\ P0āT1D(D)::450y SOUND0NFP:9080:450 769,D(D1(I)):0,P(P):768  INC:D0D:X0X(I):Y0Y(P):0:900: D259,147:  *** INPUT X1X2S1:660:N1 ECTION5 (4);"BLOAD THE COMPOSER.PIC,A$2000":390W (4);"BLOAD SOUND GENERATOR" (4);"BLOAD COMPOSER.NOTES,A$1DFC":232,252:233,29  " *** TABLES , 255,228,203,192,170,150,142,127,114,101,96,85,75,71,63,56 6 255,240,200,150,10[d:::16384e5#n9900-x1:0@}NM(27),CM(27)jP(27),D(9),Y(30),P1(30),D1(30),X(30)X050:NN12:XX0Y083:XI15S114:X212:Y1138D0240320:9150:390410490430210 *** LOAD S        TEST NOTESI18, S(16336)9:FLAG0^A$(I)D$(C(I))Ğ:SCSC1:FLAG1t(22:H3I:A$(I)223:H3I:D$(C(I));<FLAG11360FECEC1P:ZP$(((SC(NT8).005)100))d22:34:P$;"%"n1:1:K$x870 *** BRANCHES"K$"Q"14205K$(13)1270_K$(80)āI18:CC(I):LL(I):750:K$(83)Ĺ16302,0:I18:CI:L3:750::16301,0K$(8)AA1:A1A8K$(21)AA1:A8A11260A$(A)K$22:H3A:K$:1130"ROUND: "(NT):21:41(P1$):P1$-B1120^LI18:LL(I):CC(I):CYC:CXI:N14C:790:VI18:LL(I):CC(I):CYC:CXI:N14C:790:750:`A1:H6:22:H3A:K$j(K$)65(K$)711180tA$(A)K$~22:H3A:K$AA1:A8A1SE MELODY$X135:Y197:SY3:SX22QCX0:I18:CC(I):LL(I):CXI:CYC:790C1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y2:4001:K$:16301,0:470NTNT1NT101420$X135:Y197:X135:SX22.330:520#8P1$7,0:16302,0BR(4)"BLOAD NOTE SHAPES,A$1DFC":232,252:233,29H\Zf ERASE SCALEhpCX0:CY0zX135:Y1151:SY3:SX22:L3I18:CXCX1:CYCY1790I1Ē7:X5,Y2X1,Y2:X8,Y2X11,Y216302,0  ERA O1:O2ACY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2Q  DRAW NOTEvXX1CXSX:YY1(SYCY2):LX,Y CY1Ē0:X5,Y2X1,Y2:X8,Y2X11,Y2*4 LOAD SCREEN>(4);"BLOAD MELODY MATCH.PIC" H16304,0:16300,0:1629206,1,3,240,9,202,208,245,174,0,3,76,2,3,96E L15:L1(L),L2(L):l  255,2,200,1,100,.5,50,.25,25,.12r   PLAY NOTE POKE 768,D(C,T): POKE 769,L1(L): CALL 770 A1,NM(C):A11,CM(C):P1 A2,NM(C):A21,CM(C):P2 SL2(L):9140 DNOTE,NATURAL,SHARP,FLAT. N C,96,90,0 @ X B,101,0,107T b A,114,107,120h l G,127,120,134z v F,142,134,0  E,150,0,160  D,170,160,181  C,192,181,0  MUSIC ROUTINE L770790 V:L,V:L+  173,48,192,136,208,5,FY THE NOTES IN THE MELODY :";S "::::::::::::::::::::::::::::::::::::::::";:Y a 21 " NOTE: 1 2 3 4 5 6 7 8 "; " "; &" "; 0 :0)100 ^C((1)8)14 hL(I)L:C(I)C:CXI:CYCB r790:750H |N a  PLAY SCALE 2r X135:Y1151 SY3:SX22 240  I2123:1:BL$;:: 21:1: 21 "::::::::::::::::::::::::::::::::::::::::"; ": IDENTI(R,1),D(R,2),D(R,3) :670- 820:91507 1020L *** PLAY SCALEZ CX0:CY0e I18w D(I,T)0300 CXCX1:CYCY1 CI:L3 "790:750 , 6 @ *** SET UP PROBLEM JCX0:I18 TL((1)5)1 YTEMPO((1)90= ******************4 ** MELODY MATCH ** M ******************S dNM(8),CM(8)ld:nP$"0":TEMPO100x1:0D$(16),D(16,3)X135:Y197SY3:SX22T1BL$BL$" ":(BL$)40170R811 D$(R),D&MSLOT(211)192'&MSLOT0SOUND1-&EOT0:100O&MSLOT(211)192d&MSLOT0SOUND1j&T ** (C) 1984 ************************ D(5),P(8),RH$(20)TEMPO100:NF6RD0:TP0:T0:VL0:RH$"" NC6666[@@@M,l,l,$@>>> $$$$$)( $I(((((( @ۓڒ=8(E(((((p'I)--"dLK$(32)Ģ22:3:""LK$(13)Ģ23:3:""LK$"C"Ģ21:20:""LK$"P"Ģ21:31:"

"LK$"-"Ģ22:30:"<->"LK$"Q"Ģ23:31:"":Y0Y(P):0:1010:440"*3:710(4.>@H TEXT SCREENOR410::21\": PITCH CLEAR

PLAY :";f": DURATION <-> ERASE :";p": SELECT QUIT :";z MARK KEYD1:D5D1) lK$(8)NN1:N0N16G vK$(21)NN1:N16N0_ K$(13)NC28700 K$(13)N0P0:NCNC1:INC:P1(NC)0:D1(NC)D:1080:700 K$(13)PN:NCNC1:P1(NC)P:D1(NC)D:CNC:430 3:710 X1NS1X2 0:710P"K$(13)K$(8)K$(21)K$"-"K$(32)520> &920T 0769,5:0,25:768w :K$"C"İ750:3:710:NC0:500 DK$"-"NC0INC:D0D1(I):X0X(I):PP1(I):Y0Y(P):3:1010:NCNC1 NK$"P"İ720 XK$"Q"1160 bK$(32)Ē3:D259,147:D *** PLAY A NOTE 4703 P0āT1D(D)::460R 769,D(D1(I)):0,P(P):768X  INC:D0D:X0X(I):Y0Y(P):0:1010: D259,147:  *** INPUT X1X2S1:710:N1 850:D1 0:D259,147 1:1:K$5 K$"C"K$"Q"K$"19:D(I):' TI026:Y(I1)Y0I3:B ^I116:X(I)I1540:H h[ r *** GRAPHICS| | *** HGR PAGE 1 FULL SCREEN 16304,0:16300,0:16297,0:16302,0:  *** HGR PAGE 1 SPLIT SCREEN 16304,0:16300,0:16297,0:16301,0: A$2000":390. (4);"BLOAD SOUND GENERATOR"g (4);"BLOAD COMPOSER.NOTES,A$1DFC":232,252:233,29m ~ " *** TABLES , 255,228,203,192,170,150,142,127,114,101,96,85,75,71,63,56 6 255,240,200,150,100,75,50,37,25 @I116:P(I): JIМ d::n:x1:0GP(27),D(9),Y(30),P1(30),D1(30),X(30)\X050:NN12:XX0lY083:XI15S114:X212:Y1138D0240320:390410500430210 *** LOAD SECTION (4);"BLOAD THE COMPOSER.PIC,"" " " " " """""