@L|=}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`01WAIOFTYPELINHOVEMDECAVVVVLOOPAG} ..SOUNDCOM (c) 1981 by Jerry White 11/1/81 J6}-6-@'6-@36-@@;@@,J A2A@4 F:A@,@R6$<:}-@327 :$F 6-B:,-H0-@(7<,07<,4 @vJMM}SOUND 0,25,4,6:FOR DECAY=6 TO 0 STEP -0.5:SOUND 0,10,0,DECAY:NEXT DECAYL   $dc6- BA6.!The SOUND c }ommand consists of theM6-@Y6-@c @pxe-6.#word SOUND followed by 4 variables.96-@E6-@ }O @p[6-@`e @PE#6.This is the format of the/6-@;6-@ E @pD6.SOUND command: }$6-@06-@: @pD @PO-6.#SOUND VOICE,PITCH,DISTORTION,VOLUME96-@E6-@O @p } B B,P.6.$This tutorial will use the following:6-@F6-@P @p@A!6.numeric variab }le names:-6-@7 @pA @PTD"6.V0=VOICE 0 V1=VOICE 1.6-@:6-@ D @ph8"6.V2=VOI}CE 2 V3=VOICE 3.6-@8 @p|K)6.P=PITCH D=DISTORTION V=VOLUME56-@A6-@K @p B} BY-6.#We have 4 VOICES numbered 0 thru 3.96-@E6-@O @pY @P\06.&Our VOICE var}iables will never change.<6-@H6-@R @p\ @PI6.V0=0:V1=1:V2=2:V3=3)6-@56-@ ? }@pI @PV*6. PITCH (P) can be any number from66-@B6-@L @pV @PA6. 0 thru 255.}!6-@-6-@7 @pA @P B BJ(6.DISTORTION (D) can be any even46-@@6-@}J @p0L 6.number from 0 thru 14.,6-@86-@B @pL @PDH&6.VOLUME (V) can be any nu}mber26-@>6-@ H @pXE6.from 0 thru 15.%6-@16-@; @pE @Pl B B}J(6.We will begin exploring sounds46-@@6-@J @p?)6.using only VOICE 0 (V0) and the56-}@? @pH(6.clear DISTORTION (D) level 10.46-@ > @pH @PZ.6.$This SOUND command creates} middle C.:6-@F6-@P @pZ @P`-@@*(SOUND 0,121,10,8L2A!@@}V @P` @`6-A  B I'6.Using the same sound, we will36-@?6-@I @p }N,6."change only the volume at variable86-@D6-@N @p =6.speeds.6-@)6-@ 3 @p}= @P4)-@@)(SOUND 0,60,10,0HY-@)-@@C(SOUND 0,121,10, Y2}A!@\6-@  @P pb -@6@2-@@L(SOUND 0,121,10, b2}A!@36-@  @P )6-@`3 @PY-@)-@@C(SOUND 0,1}21,10, Y2A!@6-@ @P b -@6@2-@@L(SOUND 0},121,10, b2A!@36-@ @P )6-@`3 @P]-@)-@@}C(SOUND 0,121,10, Y2A!@] f -@6@2-@@L(SOUND 0,121,10, } b2A!@f 6-@` @Pe-@@1-@@K(SOUND 0,121,10!}, a2A!@e $p -@6@2-@@L(SOUND 0,121,10, b2A!@"}f p @P8p -@6@2-@@L(SOUND 0,121,10, b2A!@f p #}@PLp -@6@2-@@L(SOUND 0,121,10, b2A!@f p @P`s $}-@6?P2-@@O(SOUND 0,121,10,P:, e2A!@i s @Pts -@%}6? 2-@@O(SOUND 0,121,10,P:, e2A!@i s @Pc-@@+(&}SOUND 0,121,10,10M2A!@@Y6-@ c @PK-@@+(SOUND 0,121,10,0 5 @`'}A6-@ K @Pw-@@)-@@?(SOUND 0,121,10,10a2A!@@m6-(}@w @PY-@@+(SOUND 0,121,10,0 5 @`? @PC O6-@`Y @Pa-@@)})-@@?(SOUND 0,121,10,10a2A!@@O-@@+(SOUND 0,121,10,0 5 *}@`9 E6-@`O @P6-A  B (^&6.Leaving the VOLUME set at 8,26-@>6-@H @p+}T6-@`^ @P<G'6.and using only DISTORTION 10,36-@= @pG @PPA+6.!watch what happens,} when we change76-@ A @pdI6.the PITCH variable.)6-@56-@? @pI @Pxb--}AU)-@@B(SOUND 0,,10,8 ^2@@b k -AU6@2-@.}@K(SOUND 0,,10,8 g2@@k j-AU@1-@@J(SOUND /}0,,10,8 f2@@j k -AU6@2-@@K(SOUND 0,,10,8 g20}@@k j-AP@1-@@J(SOUND 0,,10,8 f2@@1}j k -AP6@2-@@K(SOUND 0,,10,8 g2@@k J-@2}@*(SOUND 0,0,0,0 4 @`@6-AJ B H&6.Now let's combine changes of26-@>6-@3}H @pN,6."PITCH and VOLUME to create a piano86-@D6-@N @p,W6. like SOUND.!6-@-4}6-@ 7 @pC6-@`M @PW#A@5560,53,47,45,40,35,31,29,29,31,35,40,45,47,53,60T|-@@5}"8-@6@J-@@f(SOUND 0,,10, |2@h+ 6-@6} @P! +#A`|[[243,193,162,121,96,81,60,47,40,29,23,19,14,14,19,23,29,40,47,60,81,96,121,162,193,243|-@7}@&"8-@6@J-@@f(SOUND 0,,10, |2@! 6-8}@ @P! 3 #A6-A # B 3% D:SOUND.EXP N9-@@ 'A@9AR@9}*N$$(4N$$(| Press to continue |>N$$(HNFF:B2y:},@*AU@<AU@F B@RNAU@$R +'0@@ A0@;}@ [0@@ @mAR@@@@@9A@ R6<}-%@R(R(| The command |!R""(| screen # |&R(=}0R@w$U9-@@'A@9AR@U$$(>}U$$(| Press to repeat |V$$(| Press to continue |V$$(V7F:B2y,?}"@*AU@4 B7$"VMF:B2y,"@'-AU@?-@@I(M ,V1A@}U@'AU@1 B @a$-@@!($$ D:SOUNDCOM_V5HMSEBUTTOCHOIC//SOUND.EXP (c) 1982 bB}y Jerry White[6/3/82]d16-A6-@'6-@1+@x/(@/(@ Šsound}*(C}@*(@ screen 9,(@,(@ CT=CTRL KEY/(@/(@ D}/(@/(@CT+/(@/(@ /(@/(@CT+E}.(@.(@ .(@.(@CT+-(@-(F}@ ,(@,(@ @Y-@@"?(@sound 0,,G}, O2Y ATX-@@"6(@sound 0,0,0,0 X2H}AdAU:"F:Ad,"@* AU06-%@: A :"F:Ad,"A8*!06-&@I}: A :"F:Ad,"@* @06-%@: A :"F:Ad,"AD*!06-&@: A J}:"F:Ad,"@X* @06-%@: A :"F:Ad,"A*!06-&@: A  FK}:Ad,"@3A@0:+F:Ad,"@B)F:Ad,"@(:% D:BASMUSICD A  D:SOUND.EXPc) 1982 bt)* TYPEWAIOFLINHOVEMDECANIPAG@M} ..BASMUSIC (c) 1981 by Jerry White 11/1/81 %;@@,9@P,%N} A2A@4 F:A@,@R6$<:-@327 :$F 6O}-B:,-H0-@(7<,07<,4 @vJQQSOUND 0,25,4,6:FOR DECAY=6 TO 0 STEP -0.5:SOUND 0,10,0,DECAP}Y:NEXT DECAYECAYL   $dhh14,15,16,17,18,19,21,22,23,24,26,27,29,31,33,35,37,40,42,45,47,50,53,57,60,64,68,72,76,81,85,Q}91,96nII102,108,114,121,128,136,144,153,162,173,182,193,204,217,230,243,255x>6-@  B--@@P1R}":68,-> F$6.Although there are pitches06-@<6-@F @pM+6.!numbered from 0 thru 255, we nS}eed76-@C6-@M @pL*6. only the ones that correspond to66-@B6-@ L @p_'6.muT}sical notes to write music.36-@?6-@I @pU6-@`_ @PH&6.I put these specific pitches26U}-@>6-@H @pI'6.into an array as shown in the36-@?6-@I @p@6.printed PITCV}H CHART.*6-@ 66-@@ @p B B, A6U-@@P4-@6@W}M28,@Q U @A(A0J^ -@P@6@=-@6@X}V28,@Z ^ O"AATI'6.We can now access these notes36-@?6-@I Y}@p^M+6.!using a 50 element array as shown76-@C6-@M @phH&6.in the FOR NEXT loops above.26Z}-@>6-@H @p6-A B L*6. We also need some way of telling66-@B6-@L [}@pe-6.#BASIC how long to hold onto a note.96-@E6-@O @p[6-@`e @PQ/6.%One way \}is to use one of the counters;6-@G6-@ Q @pO#6.built into your computer./6-@ ;6-@E ]}@pO @PO-6.#RAM location 540 contains a counter96-@E6-@O @pN,6."which counts backwa^}rds at the rate86-@D6-@N @p=6.of 60 per second.'6-@36-@= @p B_} BY-6.#1/60 of a second is called a JIFFY.96-@E6-@O @pY @PM+6.!We can poke any nu`}mber of jiffies76-@C6-@M @pT(6.(up to 255) into location 540,46-@@6-@ J @pTa} @PO-6.#then loop there until that location96-@E6-@O @p&F6.contains a zero.&6-@b}26-@< @pF @PX B BbM+6.!This is how we turn on a note for76-@C6-@M c}@plA6. one second.!6-@-6-@7 @pA @PvI6.(1) Turn on a SOUND)6-@56-@ d}? @pI @PE6.(2) POKE 540,60%6-@16-@; @pE @PY-6.#(3) IF PEEK(540)<>0 THEN Pe}EEK AGAIN96-@E6-@O @pY @PZ.6.$(4) LOCATION 540=0 SO TURN OFF SOUND:6-@F6-@Pf} @pZ @P B BT(6.Since this will be done often,46-@@6-@J @pT @Pg}H(6.we will use a WAIT subroutine.46-@> @pH @P>(6.For example, this program uses46-@ h}> @p?)6.the variable WAIT as the number56-@? @p[/6.%of jiffies to POKE into location 540.;6-i}@G6-@Q @p[ @PW+6.!We set WAIT=60 to wait one second76-@C6-@M @pW @Pj}:6.then GOSUB 50.$6-@06-@: @p  B B*R&6.This is our wait subroutine:26-k}@>6-@H @pR @P4[@@( -@P@T?@@E( Q6-A [ @Pl}>L*6. And here is a subroutine to turn66-@B6-@L @pHH6.off all SOUNDS:%6-@16-@m}Z6-@`d @PI'6.we can store the NOTE numbers36-@?6-@I @pW+6.!and durations in o}DATA statements.76-@C6-@ M @pW @PJ(6.We read the data, then let our46-@@6-@p}J @pI'6.subroutines play the music as36-@?6-@I @pK)6.demonstrated by later programs.5q}6-@A6-@K @p5A@(& B5% D:MAJRMINR N9-@@ 'A@r}9AR@*N$$(4N$$(| Press to continue |>N$$(s}HNFF:B2y,@*AU@<AU@F B@RNAU@$R +'0@@ t}A0@@ [0@@ @mAR@@@@@9Au}@ R6-%@R(R(|àà|!R( | screen # |&R(0v}R@w$U9-@@'A@9AR@U$$(U$$(|w} Press to repeat |V$$(| Press to continue |V$$(V7F:B2y,"@*x}AU@4 B7$"VMF:B2y,"@'-AU@?-@@I(M ,V1AU@y}'AU@1 B @ D:BASMUSICPAG@045TYPEWAIOFLINHOVEMDECANIVVVVBASPPAG {}@ ..MAJRMINR (c) 1981 by Jerry White 1 |}1/1/81 m;@@,9@P,'6-36-@?6-@K6-@]@@c(m A2A@ }}4 F:A@,@R6$<:-@327 :$F 6-B:,-H0 ~}-@(7<,07<,4 @vJMMSOUND 0,25,4,6:FOR DECAY=6 TO 0 STEP -0.5:SOUND 0,10,0,DECAY:NEXT DECAYL  } $dhh14,15,16,17,18,19,21,22,23,24,26,27,29,31,33,35,37,40,42,45,47,50,53,57,60,64,68,72,76,81,85,91,96nII102,108,114 },121,128,136,144,153,162,173,182,193,204,217,230,243,255x>6-@ B--@@P1":68,-> K)6 }.Using the array method makes it56-@A6-@K @pM+6.!possible to find the notes of any76-@C }6-@M @p`(6.CHORD with a BASIC subroutine.46-@@6-@J @pV6-@`` @PL*6. } This way, we can create a 3 or 466-@B6-@L @pK)6.note chord by entering only one56-@A6- }@K @p`*6. number or the ROOT of the chord.66-@B6-@L @pV B` B[6. MA }JOR CHORDS:#6-@/6-@9 @pC @PF(I([AA-@@P628,@ }@]2@8&@,@@2@8&@,@@2@8&@,@@ } @` $A($A A0 -@P@6@?28,@@f2@ }8&@,@@2@8&@,@@2@8&@,@@ @` }6-A B X6. MINOR CHORDS:#6-@/6-@9 @pC @PF(XA`Ap-@ }@P628,@@]2@8&@,@@2@8&@,@@2@ }8&@,@@ @` $A`($AA" -@P@6@?2 }8,@@f2@8&@,@@2@8&@,@@2@8&@ },@@, @` 66-A` B @6-@IJM6.C MAJOR6-@)6-@3 @p }= @P@(JA@M(T6-@I.28,@@U2@8&@,@@|2@8 }&@,@@2@8&@,@@^#6-@` @P# @`hYA@6.C MI }NOR)6-@56-@? @pI @PL(VApY(r6-@I.28,@@U2@8& }@,@@|2@8&@,@@2@8&@,@@|#6-@` @P }# @`6-A@ B K)6.Let's go back to standard SOUND56-@A6-@K @pX,6."comm }ands now to make a comparison.86-@D6-@N @pX @PL*6. The lowest note we can get using66-@ }B6-@L @pZ.6.$DISTORTION 10 is pitch 255, a low B.:6-@F6-@P @pZ @Pw6. }SOUND V0,255,10,8'6-@36-@= @pG @`c2AU@@m @Pw @` B }BU)6.Now compare these two sounds...56-@A6-@K @pU @PG6.SOUND V0,255,10,8'6- }@36-@= @pG @P=2AU@@) @P3 @`= @PF6.SOUND V0,33,12,8 }&6-@26-@< @pF @P=2@3@@) @P3 @`= @P&M+6.!The tone q }uality is different but76-@C6-@M @p0Y-6.#the actual PITCH is the same low B.96-@E6-@ }O @pY @P:n-@@+(Ġְ=-@@R(SOUND V0,33,12,8n2AU@ }@DI @P @`! @P3-@@I(SOUND V0,255,10,8Nd-@@*(ĠְF2 }@3@@P @PZ @`d @PX-@@+(ĠְG2AU@@ }Y-@@n(Ġֱ2@3@@b- @P @`#6-Ap- B lM+6.!We }can get much deeper BASS NOTES76-@C6-@M @pvR&6.in DISTORTION 12 than in 10.26-@>6-@ }H @pR @PB6. FOR EXAMPLE:"6-@.6-@8 @pB @PQQ25,27,28,30,31,33,36,37,40,42,45 },48,51,52,57,60,63,67,72,75,82,85,90,97,1028-@@%"8-@6@J-@@2( }SOUND V0,,12, B2@F J # #A6-A# B  M+6.!The next program will demonstrat }e76-@C6-@M @p*G%6.a complete song using these16-@=6-@G @p4L*6. methods. }Later you will be given66-@B6-@L @p>O-6.#a small subroutine to add your own 96-@E6-@ }O @pCJ6.words and music to. *6-@66-@@ @pJ BH%D:KEYOFC N9-@@ ' }A@9AR@*N$$(4N$$(| Press to continue |>N$$( }HNFF:B2y,@*AU@<AU@F B@RNAU@$R +' }0@@ A0@@ [0@@ @mAR@@@@@ }9A@ R6-%@R(R(| The command |!R!!(| screen # } |&R(0R@w$U9-@@'A@9AR@U$$( }U$$(| Press to repeat |V$$(| Press to continue |V$$( }V7F:B2y,"@*AU@4 B7$"VMF:B2y,"@'-AU@?-@ }@I(M ,V1AU@'AU@1 B @ D:MAJRMINR X!"r WAIHOLOFVOMSEBUTTOCHOIC }..KEYOFC (c) 1982 by Jerry White [6/3/82]x@@ A-@A $M @,}%@)/%@7,%@M/%@%@[,&@%@//%@%@E,&@%@}[/%@%@S,%@'/%@%@=,%@%@S/%@%@2,%@}&@//%@%@2$R-@A /-@K2O R$8&(} PRESS ANY KEY TO CONTINUE.8AdAU33F:Ad,"AU*F:B2y,"@A, A$@8&( }@@A0@@@[0@@@u0@@@0@@@y} @,@ @ 1/A@@ C,@ @&U/A@@&g,@ @2y/A@@2`A}R@',@ @89/A@@8K,@ @D]/A@@D`$e @#,%@%@9}/%@&@O,%@%@e/%@ &@^,%@%@//%@%@E,%@}%@[/%@%@^$8 A ( THE C SCALE#(8(C D E F G A B Cb6-@@6-@G% A`}B-@6? ^2A!@b E @,@3@P1/@H@P; A@E}@l6-@P6-@D% A`B-@6? ^2A@b l A@0l6-@`}6-@A% A`B-@6? ^2@@b l A@Dl6-@p6-@8}% A`B-@6? ^2@@b l A@Xl6-@6-@5% A`B-@}6? ^2@@b l A@ll6-@6-@2% A`B-@6? }^2@r@b l A@l6-A6-@)% A`B-@6? ^2@}d@b l A@l6-A6-@&% A`B-@6? ^2@`@b} l A@ A`-(THE C MAJOR CHORD-( C + E + Gb6-@`6-@G% A`B-@}6? ^2A!@b ',@U@P'/@h@Pb6-@6-@A% A`B-}@6? ^2@@b  l6-A6-@5% A`B-@6? ^2}@@b l A  I( ((SOUND 0,121,10,84(SOUND 1,96,10,8I(SOUND 2,81,10,84s%2}A!@@G2@@@@i2@@@@s A@H A 0u% D:K}EYATOCD:KEYOFCOFVOMSEBUTTOCHOIC wQQQQQQQQQ1Q1Q1Q1Q1Q1Q2Q2Q2Q2Q2Q3Q3Q3Q4Q4Q4Q4Q4Q4Q5Q5Q5Q5Q6Q6Q6Q7Q7Q7Q7Q8}Q8Q8Q9Q9Q9Q10Q10Q11Q12Q12Q13Q13Q15Q17Q25Q25Q30Q76Q10ZAZZZZZZZZZHOLOFVOGQMSEBUTTOCHOI}C }} !"#$%&'()*+,-.}/0123456789:;<=}>?@ABCDEFGHIJKLM}NOP..KEYATOC (c) 1982 by Jerry White [6/3/82]@@6-6-@'6-}@36-@?6-@K6-@W6-? c6-@o6-@{6-@6-@6-@6-@}6-@6-@ 6-@"6-@#6-@&6-@)6-@26-@56-@8'6-@@}36-@A?6-@BK6-@DW6-@Ec6-@Go6-@P{6-@S6-@U6-@W6-@`6-}@d6-@h6-@p6-@r6-@u6-@v6-@'6-@36-@?6-@K6-@}W6-@c6-Ao6-A{6-A6-A!6-A"6-A06-A86-ATW6-Ax}6-AU'6-AV36-A?6-AdK6-AW6-@ ;, AP(6-F:A`,%F:Aa,$}*P6-F:%,%F:%,$"-B:,@6-BsD%++@:7<,,&,$,P6-%$%%&,3-@ %$F:%,$ ,6-%}0 3$2),%/%,%)/%%4+ ,&%/%%!,&%+/%%5) ,%/%%,%%)/}%%7 ,%&/%%$<.-A -'2+ .$F.(( PRESS ANY KEY TO CONTINUE..}G''F:,"*F:B2y,"@@qH$P7+000'03AR7Q3 ,/,/}!,'/-,3/U; ,/6-!6-A%46. BASIC CHORDS8 ;$d-62 $L+0}((1( ԠG( BY NUMBERL(=( ( 1= %(=( 2= }=( ( 3=  %(=( 4= à ( ( 5= ã)(( 6= Ѡՠɠ}%6-) 6 K:#)(66-&@H"B )!A3 3A1A}4A7AA AP,E6.THE C MAJOR CHORD!6-'6-+ E(500 SOUND 0,122,10,25 6.C6}-6- !6-% +6-16-5  ,/>(510 SOUND 1,96,10,2$6.E*6-06-4 :6-> D 6-}6- ,(520 SOUND 2,81,10,246.G:6-@6-D l 6- 6-6- '6. C+E+G=C MAJOR6-#6-'} , 22!2% ) ,$_6.THE C# MAJOR CHORD"6-(6-, F(500 SOUND 0,114,10,2O6.C#}U6-[6-_ / 6- A6-6-# ),//L 6.#6-6- 4(510 SOUND 1,91,10,2<6.FB}6-H6-L 46 6- 6-6- 6(520 SOUND 2,76,10,26 6.G#6-6- "6-& ,6-26-6 }B 6.#6-6- 26.C#+F+G#=C# MAJOR86->6-B , 22!2% ) ,$ \6.THE A MA}JOR CHORD!6-'6-+ D(500 SOUND 0,72,10,2L6.AR6-X6-\ F E-62 "6-(6-, E(5}10 SOUND 1,57,10,2 E 6.C#6-6- '-6125 ;6-A6-E  L 6.#6-6- 4(520 S}OUND 2,47,10,2<6.EB6-H6-L  ,-62 "6-(6-,  (6.A+C#+E=A MAJOR6-$6-(  }, 22!2% ) ,$H ^6.THE A# MAJOR CHORD"6-(6-, E(500 SOUND 0,68,10,2N6.A#T6-}Z6-^ r D-62 "6-(6-, 46.#:6-@6-D  M(510 SOUND 1,53,10,2$6.D*6-06-}4 ?-6I2M  D 6-6- ,(520 SOUND 2,45,10,246.F:6-@6-D $,-62 }"6-(6-, B)6.A#+D+F=A# MAJOR6-%6-) L, 22!2% ) ,$t\6.THE B MAJOR C}HORD!6-'6-+ D(500 SOUND 0,64,10,2L6.BR6-X6-\ E-62 "6-(6-, E(510 SO}UND 1,50,10,2E 6.D#6-6- '-6125 ;6-A6-E M 6.#6-6- 4(520 SOUND }2,42,10,2=6.F#C6-I6-M PD-62 "6-(6-, 46.#:6-@6-D n)6.B+D#+F#=B MAJ}OR6-%6-) x, 22!2% ) ,$0uU +AR@1A@HC@@}UA@ 5u% D:KEYDTOG D:KEYATOCQ2Q2Q3Q3Q3Q4Q4Q4Q4Q4Q4Q5Q5Q5Q5Q6Q6Q6Q7Q7Q7Q7Q89]nQQQQQQQQQ1Q1Q1Q1Q1Q1Q2Q2Q2Q2Q2Q3Q3Q3Q4Q4Q4Q4Q4Q4Q5Q5Q5Q5Q6Q6Q6Q7Q7Q7Q7Q8}Q8Q8Q9Q9Q9Q10Q10Q11Q12Q12Q13Q13Q15Q17Q25Q25Q30Q76Q10ZAZZZZZZZZZHOLOFVOGQMSEBUTTOCHOI}CAD }} !"#$%&'()*+,-}./0123456789:;<=}>?@ABCDEFGHIJKLM}NOPQ..KEYDTOG (c) 1982 by Jerry White [6/3/82]6-6-@'6-@36}-@?6-@K6-@W6-? c6-@o6-@{6-@6-@6-@6-@6-@}6-@ 6-@"6-@#6-@&6-@)6-@26-@56-@8'6-@@36-@A}?6-@BK6-@DW6-@Ec6-@Go6-@P{6-@S6-@U6-@W6-@`6-@d6}-@h6-@p6-@r6-@u6-@v6-@'6-@36-@?6-@K6-@W6-}@c6-Ao6-A{6-A6-A!6-A"6-A06-A86-ATW6-Ax6-A}U'6-AV36-A?6-AdK6-AW6-@ ;, AP(6-F:A`,%F:Aa,$*P6-F:}%,%F:%,$"-B:,@6-BsD%++@:7<,,&,$,P6-%$%%&,3-@ %$F:%,$ ,6-%0 3$2)},%/%,%)/%%4+ ,&%/%%!,&%+/%%5) ,%/%%,%%)/%%7} ,%&/%%$<.-A -'2+ .$F.(( PRESS ANY KEY TO CONTINUE..G''F:,"}*F:B2y,"@@qH$P7+000'03AR7Q3 ,/,/!,'/}-,3/U; ,/6-!6-A%46. BASIC CHORDS8 ;$d-62 $L+0(}(1( ԠG( BY NUMBERL(=( ( 1= Ġ%(=( 2= ģ=(} ( 3= Š%(=( 4= ƠZ( ( 5= ƣ%(=( 6= ǠB(Z(} 7= ǣ)(( 8= Ѡՠɠ%6-) 6 K:#)(66-&@H"B} )!@AC CAAAAA"A%A( APY6.THE} D MAJOR CHORD!6-'6-+ E(500 SOUND 1,108,10,2M6.DS6-Y6-:  6- 6-6-! :(510 SOUND }1,85,10,2V6 6.F#6-6- "6-& ,6-26-6 tL 6.#6-6- 4(520 SOUND 2,72,10,2<6.AB}6-H6-L  6- 6-6- (6.D+F#+A=D MAJOR6-$6-( , 22!2% )  },$_6.THE D# MAJOR CHORD"6-(6-, F(500 SOUND 0,102,10,2O6.D#U6-[6-_ >5 6- 6-6-  }%6.#+6-16-5 x>(510 SOUND 1,81,10,2$6.G*6-06-4 :6-> E 6-6- ,(520 SOUND 2,6 }8,10,256.A#;6-A6-E 5 6- 6-6- %6.#+6-16-5 *6.D#+G+A#=D# MAJOR 6-&6-*  }, 22!2% ) ,$@\6.THE E MAJOR CHORD!6-'6-+ D(500 SOUND 0,96,10,2L6.ER6 }-X6-\ j6 6- 6-6- 6(510 SOUND 1,76,10,26 6.G#6-6- "6-& ,6-26-6 L }6.#6-6- 4(520 SOUND 2,64,10,2<6.BB6-H6-L  6- 6-6- :(6.E+G#+B=E MAJOR}6-$6-( D, 22!2% ) ,$l\6.THE F MAJOR CHORD!6-'6-+ D(500 SOUND 0,91,10},2L6.FR6-X6-\ 6 6- 6-6- 6(510 SOUND 1,72,10,25 6.A6-6- !6-% +6-1}6-5 4>(520 SOUND 2,60,10,2$6.C*6-06-4 :6-> R7 6-6- '6. F+A+C=F MAJOR-6-36-7 }p, 22!2% ) ,$^6.THE F# MAJOR CHORD"6-(6-, E(500 SOUND 0,85,10,2N6.F#T6}-Z6-^ 5 6- 6-6- %6.#+6-16-5 ?(510 SOUND 1,68,10,2%6.A#+6-16-5 ;6-}?  ] 6-6- 6.#!6-'6-+ D(520 SOUND 2,57,10,2M6.C#S6-Y6-] t 5 6- 6-6- }%6.#+6-16-5  +6.F#+A#+C#=F# MAJOR!6-'6-+  , 22!2% ) ,$ \6.THE} G MAJOR CHORD!6-'6-+ D(500 SOUND 0,81,10,2L6.GR6-X6-\  6 6- 6-6- 6(510 SOUND 1},64,10,22 5 6.B6-6- !6-% +6-16-5  >(520 SOUND 2,53,10,2$6.D*6-06-4 :6-> } 7 6-6- '6. G+B+D=G MAJOR-6-36-7  , 22!2% ) ,$ ^6.THE G# MAJOR CHORD}"6-(6-, E(500 SOUND 0,76,10,2N6.G#T6-Z6-^  5 6- 6-6- %6.#+6-16-5 T >(}510 SOUND 1,60,10,2$6.C*6-06-4 :6-> r E 6-6- ,(520 SOUND 2,50,10,256.D#;6-A6-E } 5 6- 6-6- %6.#+6-16-5  *6.G#+C+D#=G# MAJOR 6-&6-*  ( 22!2}% ($0uU +AR@1A@HC@@UA@ 6u% D:CHORDS12 D:KE}YDTOG]nQQQQQQQQQ1Q1Q1Q1Q1Q1Q2Q2Q2Q2Q2Q3Q3Q3Q4Q4Q4Q4Q4Q4Q5Q5Q5Q5Q6Q6Q6Q7Q7Q7Q7Q8[\D - AASBCCSDDSEFFSGGSCHORPPPP1P2P3HOLMCWAIPITCVOLUMMSEBUTTOCHOICAD} @@ }@//CHORDS12 (c) 1982 by Jerry White!} [6/3/82]44MAJOR CHORDS IN DISTORTION LEVEL 12 BASS RANGE44ALL PITCHES IN DISTORTION LEVEL 10 CLEAR SOUND--FOUR T"}EXT COLORS USING GRAPHICS MODE 18;@,;@,;@,;@,;@,;@,;@,;@#},;@,;@,;@,;@,C19@,9@,9@,;@,C6. ҠP6. A $} C# E "6.A# D F 26. B D# F#A6.C E G P6.C# F G# N6.D F# A !6.D# G A#06.E G# B ?6.F %}A C N6.F# A# C#"+6.G B D !6.G# C D#+ A#(@ A $((@ A# $-(&}@ B $2(@ C $7(@ C# $<(@ D $A(@ '} D# $F(@ E $K(@ F $P(@ F# $U(@ G $Z(}(@ G# $_(@ A $c-@A $dDD75,60,51,72,57,48,67,55,45,63,51,42,6)}0,48,40,57,45,37,55,42,36f;;51,40,33,48,37,31,45,36,30,42,33,28,40,31,27,37,30,25>-@@"(68,-*}168,-:68,-> >-@@!+@3AY>(@oo@5@@@E@P@+}U@`@e@p@u@@@@FAY@4 (@F(@ sound 1,},8,,12,4,"2@8,@@, @$4(@4(@ sound 2,8,,12,2.,"2@-}8,@@, @84(@4(@ sound 3,8,,12,2B,"2@8,@@, @.}x-@A i%2@G2@i2@/}@+(@+(@  F:B2y,@A 8 +@(@8(@0} Šsound42 -AU6@2-@@HO0@30@%@@O01}@%@@%%(@SOUND 0,,10,V > -@6@62@: > 02}uU +AR@1A@HC@@UA@ 6u% D:DORAYME D:CHORDS12w=>TYPEWAIOFLINHOVEMDECANILINEPPPPVVVVCHOR!4}@ !5}--DORAYME (c) 1981 by Jerry White 11/1/81 U;@@,9@P,'6-36-@?6-@K6-@U !6}A&28,@@& @P(7 6-8,6-8,&6-8&@,76-8&@,*[2@@!7}/2@@E2@@[2@@2A@4 F:A@,@R6"2!8}"$<:-@327 :$F7 6-8,6-8,&6-8&@,76-8!9}&@,H` -@6@02@@2@P2@`2@J   $dhh14,1!:}5,16,17,18,19,21,22,23,24,26,27,29,31,33,35,37,40,42,45,47,50,53,57,60,64,68,72,76,81,85,91,96nII102,108,114,121,128,136,1!;}44,153,162,173,182,193,204,217,230,243,255x2 B!-@@P%".68,-2 ( B@@%!<}( (( "( @@K-@@"' @0+ 5 @`A6-@K @P "(!=}( @@K-@@"' @0+ 5 @`A6-@0K @P "(( @@K!>}-@@"' @0+ 5 @`A6-@K @P "(( @@K-@@"!?}' @0+ 5 @`A6-@0K @P" "(( @@,+-@@"' @0+ 6!@}5 " @@ @`+6-@05 @P@ "(( @@J+-@@"' @0+ T!A}5 " @@ @`+6-@05 @P^ "(( @@h+-@@"' @0+ !B}r5 " @@ @`+6-@5 @P| "(( @@ " @0 " @@!C} " @0 " @@ " @0 " @@] @`6-@# @P@-@!D}6?PY28@,@] 6 +@(@6(@ P-@@"!E}5-$@@&B(@L @pP Y -@@6@(">-$@@&K(@!F}U @pY >6-@ @P+-@@>(@PRESS&= -@6?P928@!G},@= 0>6-@ @P+-@@>(@START:= -@6?P928@,!H}@= X= 0F:@ ,@=F:B2y,@A[ +@'0@@A0@!I}@@[0@@@S(@(@7(@ PRESS optionS(@ TO RERUN!J}6-@` @PH(@+(@ PRESS H(@ TO CONTINUEF:B2y,"@%!K} F:B2y,"@A  A@%D:BIRTHDAY.BASDOE A DEER A FEMALE DEER2249,37,45,35,15,33,45,37,!L}15,33,30,37,30,33,45RAY A DROP OF GOLDEN SUN2242,35,45,33,15,32,15,32,15,33,15,35,15,32,90ME A NAME I CALL MY!M}SELF2249,33,45,32,15,30,45,33,15,30,30,33,30,30,45$ FA' A LONG LONG WAY TO RUN.2244,32,45,30,15,28,15,28,15,30,15,!N}32,15,28,908!!SEW A NEEDLE PULLING THREADB5549,30,45,37,15,35,15,33,15,32,15,30,15,44,28,90LLA A NOTE TO FOLLOW SE!O}WV5544,28,45,35,15,33,15,31,15,30,15,28,15,42,26,90`$$TEA A DRINK WITH JAM AND BREADj5542,26,45,33,15,31,15,29,15,28!P},15,26,15,49,25,90t$$THAT WILL BRING US BACK TO DOE~49,25,15,26,1544,28,30,32,3042,26,30,30,3049,25!Q},90 49,37,C 47,35,D 45,33,E 44,32,F 42,30,G 40,28,A 38,26,B 37,25,C 37,25,c !R}38,26,b( 40,28,a2 42,30,g< 44,32,fF 45,33,eP 47,35,dZ 49,37,cR +'0@@ !S}A0@@ [0@@ @mAR@@@@@9A@!T}R& ( &(R (|ҠĠ٠|&R (0R@w$!U} D:DORAYMEWAIOFLINHOVEMDECANILINEPPPPVVVVCHOR <= NAMEWORDDISPBLANKHOLVVVVSWITCLFMSEBUTTOCHOIC%W} 33BIRTHDAY.BAS (c) 1982 BY JERRY WHITE [6/3/%X}82]P +;@ ,(8(BIRTHDAY SONG PROGRAM:;(L( ENTER NAME:P(K&;@ ,;@ ,;@ ,A6%Y}. K AdA@+2@@G2@@@c2@@%Z}@2@@@e F:A@,Af%2G2@%[}i2@2@$,"6"@6.%\} A`J#"@+@# A`T"@ Ah. 6-B:,6.!@$6.. Ar16-@%]}&P:'@,167<%&@,.|6-@"(@, A6 A))121,121,243,243,19,1,HA٠%^}ٛ))121,121,243,243,19,0,HAPPY ٛ))108,108,217,217,39,0,HAPPY BIRTHٛ))121,121,243,243,39,0,HAPPY BIR%_}THDAY91,91,182,182,39,1,TO՛&96,96,193,193,79,0,TO YOUX))121,121,243,243,19,1,HA٠ٛb))121,121,243%`},243,19,0,HAPPY ٛl))108,108,217,217,39,0,HAPPY BIRTHٛv))121,121,243,243,39,0,HAPPY BIRTHDAY81,81,162,162%a},39,1,TO՛91,91,182,182,79,0,TO YOU))121,121,243,243,19,1,HA٠ٛ))121,121,243,243,19,0,HAPPY %b}''60,60,121,121,39,0,HAPPY BIRTHٛ''72,72,144,144,39,0,HAPPY BIRTHDAY91,91,182,182,39,1,DEAR96,96,193,19%c}3,39,3,NAME108,108,217,217,79,3,NAME0,0,0,0,19,3,NAME ''68,68,136,136,19,1,HA٠ٛ*''68,68,136,136,1%d}9,0,HAPPY ٛ4''72,72,144,144,39,0,HAPPY BIRTHٛ>''91,91,182,182,39,0,HAPPY BIRTHDAYH81,96,121,162,39,1,TO %e}՛R 91,121,144,182,79,0,TO YOU@0,0,0,0,0,9,END(#[ +@'0@@@A0@@[0@%f}@#1-@@1(@HAPPY BIRTHDAY#%-@A % B0uU +A%g}R@1A@HC@@UA@ 6u%D:SILENTD:BIRTHDAY.BAS$j?b=SOUNDCOM b ASOUND EXPb.LBASMUSIC b3zMAJRMINR bKEYOFC b)KEYATOC b/KEYDTOG bCHORDS12 b#3DORAYME bVBIRTHDAYBASbqSILENT b6JINGLE b SONGRITE b\PIANODSK b(FILEDUMP b'=DOS SYSb1dLOGO bAUTORUN SYSbSAMPLE bBALLGAME bBIRTHDAY bPIANO SCR78  VVVVHOLSWITCWORDDISPBLANKLFMSEBUTTOCHOIC)r} ,,SILENT(c) 1982 by Jerry White [6/3/82][ +@'0)s}@@@A0@@[0@@(K&;@ ,;@ ,;@ ,A6. )t} K AdA@+2@@G2@@@c2@@@)u}2@@@e F:A@,Af%2G2@)v}i2@2@$,"J"@6.T"@)w} Ah. 6-B:,6.!@$6.. Ar16-@&P:'@,167<%&@,.|6-@)x}"(@, A6 AX%%81,96,121,162,89,1,SIԠԛb%%72,72,144,144,29,0,SIԠԛl%%81,96,12)y}1,162,59,0,SILENT ԛv&&96,121,81,193,119,0,SILENT NIGHT0,0,0,0,59,2,REST##81,96,121,162,89,1,HO٠ԛ##)z}72,72,144,144,29,0,HO٠ԛ##81,96,121,162,59,0,HOLY ԛ$$96,121,81,193,119,0,HOLY NIGHT0,0,0,0,59,2,REST){}$$53,64,81,108,119,1,ALL Ӡ͛##53,64,81,108,59,0,ALL IS ͛%%64,81,108,128,119,0,ALL IS CALM0,0,0,0,59,2,)|}REST&&60,81,96,121,119,0,ALL Ӡԛ%%60,81,96,121,59,0,ALL IS ԛ''81,96,121,162,119,0,ALL IS BRIGHT0)}},0,0,0,59,2,REST ##72,91,121,144,119,1,ROUND Λ*""72,91,121,144,59,0,ROUND YON460,72,91,121,89,1,VIRΛ>64,6)~}4,128,128,29,0,VIRΛH72,71,121,144,59,0,VIRGINR))81,96,121,162,89,1,MOҠĠě\))72,72,144,144,29,0,MOTHER )}Ġěf))81,96,121,162,59,0,MOTHER AND ěp**96,121,81,193,119,0,MOTHER AND CHILDz0,0,0,0,59,2,REST((72,9)}1,121,144,119,1,HO٠Ԡϛ''72,91,121,144,59,0,HOLY Ԡϛ&&60,72,91,121,89,0,HOLY INԠϛ''64,64,128,12)}8,29,0,HOLY INFANT ϛ''72,71,121,144,59,0,HOLY INFANT SO((81,96,121,162,89,1,TENҠĠě((72,72,144,144,29,0,)}TENDER Ġě((81,96,121,162,59,0,TENDER AND ě))96,121,81,193,119,0,TENDER AND MILD0,0,0,0,59,2,REST!!)}53,64,81,108,119,1,SLEEP Λ 53,64,81,108,59,0,SLEEP IN%%45,53,64,81,89,1,HEA٠ś&&53,64,81,108,29,0,HEAVE)}N٠ś''64,81,108,128,59,0,HEAVENLY ś''60,81,96,121,179,0,HEAVENLY PEACE$&&47,60,81,96,119,0,HEAVENLY PEACE)}.0,0,0,0,59,2,RESTL 60,81,96,121,59,1,SLEEP ΛV!!81,96,121,162,59,0,SLEEP Λ`""96,121,162,193,59,0,SLEEP INj)}((81,108,128,162,89,1,HEA٠śt''91,91,182,182,29,0,HEAVEN٠ś~))108,128,162,217,59,0,HEAVENLY ś**12)}1,162,193,243,179,0,HEAVENLY PEACE@0,0,0,0,0,9,END(#[ +@'0@@@A0@@[0@)}@#2-@@2(@MERRY CHRISTMAS#%-@A % B0uU +)}AR@1A@HC@@UA@ 5u%D:JINGLED:SILENT(e`aQPMPLLPLRHOLVVVVMSWITCWORDTIMEVTAATAOFFHLBLANKOFSEBUTTOCHOICMCCLEAI-} -} JINGLE BY JERRY WH-}ITEO +@;;A H,;@,;@,;@@,E A O AdE@ !B7`-B7b-}9B7dEB7fe"Af3AA'A3AnF:@ , A-}xKB7`'B7b9B7dKB7fNA@'A@9A-}@KA@N$,"T"@ A^2 A`2"@*4 DASHING THRUAh-}4*)"@A|&(>:A%, A& A A AX##47,60,81,96,19,1,JINGLE BELLSb-}47,60,81,96,19,0,*l47,60,81,96,29,0,*q0,0,0,0,9,2,RESTv##47,60,81,96,19,1,JINGLE BELLS47,60,81,96,19,0,*-}47,60,81,96,29,0,*0,0,0,0,9,2,REST47,60,81,96,19,1,JINGLE40,47,60,81,19,0,*##60,81,96,121,29,1,AL-}L THE WAY53,53,108,108,9,0,*47,60,81,96,79,0,*0,0,0,0,9,2,REST""45,60,72,91,19,1,OH WHAT FUN45,60-},72,91,19,0,*45,60,72,91,29,0,*##45,60,72,91,9,1,IT IS TO RIDE45,60,72,91,19,0,*47,60,81,96,19,0,* -}47,60,81,96,19,0,*$$47,60,81,96,9,0,IN A ONE HORSE 47,60,81,96,9,0,**47,60,81,96,19,0,*453,64,81,108,19,0-},*>##53,64,81,108,19,1,OPEN SLEIGHH47,60,81,96,19,0,*R53,64,81,108,39,0,*W0,0,0,0,4,2,REST\40,47,60,16-}2,39,0,*f0,0,0,0,4,2,REST##47,60,81,96,19,1,JINGLE BELLS47,60,81,96,19,0,*47,60,81,96,29,0,*0,0,0,-}0,9,2,REST##47,60,81,96,19,1,JINGLE BELLS47,60,81,96,19,0,*47,60,81,96,29,0,*0,0,0,0,9,2,REST47,6-}0,81,96,19,1,JINGLE40,47,60,81,19,0,*##60,81,96,121,29,1,ALL THE WAY53,53,108,108,9,0,*47,60,81,96,79,0-},*0,0,0,0,9,2,REST""45,60,72,91,19,1,OH WHAT FUN45,60,72,91,19,0,*45,60,72,91,29,0,*##45,60,72,91,9-},1,IT IS TO RIDE45,60,72,91,19,0,*47,60,81,96,19,0,*$47,60,81,96,19,0,*.$$47,60,81,96,9,1,IN A ONE HORSE-}847,60,81,96,9,0,*B40,53,64,81,19,0,*L40,53,64,81,19,0,*V""45,53,64,81,19,1,OPEN SLEIGH`53,64,81,108,19-},0,*j60,81,96,121,79,0,*t0,0,0,0,9,2,REST%%81,96,121,162,19,1,DASHING THRU47,47,96,96,19,0,*53,53,1-}08,108,19,0,*!!60,60,121,121,19,1,THE SNOW81,96,121,162,59,0,*0,0,0,0,9,2,REST&&81,96,121,162,9,1,IN A ON-}E HORSE81,96,121,162,9,0,*81,96,121,162,19,0,*47,47,96,96,19,0,* $$53,53,108,108,19,1,OPEN SLEIGH6-}0,60,121,121,19,0,*72,91,121,144,79,0,*(0,0,0,0,9,2,REST2((72,91,121,144,19,1,OVER THE FIELDS<45,45,91,91,-}19,0,*F47,47,96,96,19,0,*P53,53,108,108,19,1,WE GOZ64,81,108,128,79,0,*d0,0,0,0,9,2,RESTn 40,47,60,81-},19,1,LAUGHING x40,47,60,81,19,0,*""45,45,91,91,19,1,ALL THE WAY53,53,108,108,19,0,*47,60,81,96,79,0,*-}0,0,0,0,9,2,REST%%81,96,121,162,19,1,BELLS ON BOB47,47,96,96,19,0,*53,53,108,108,19,0,*##60,60,121,12-}1,19,1,TAILS RING81,96,121,162,79,0,* 0,0,0,0,9,2,REST''81,96,121,162,19,1,MAKING SPIRITS47,47,96,96,19,-}0,*"53,53,108,108,19,0,*,60,60,121,121,19,0,*672,91,121,144,79,1,BRIGHT@0,0,0,0,9,2,RESTJ&&72,91,121,1-}44,9,1,WHAT FUN IT IST72,91,121,144,19,0,*^45,45,91,91,19,0,*h47,47,96,96,19,0,*r))53,53,108,108,19,1,TO RI-}DE AND SING|40,53,64,81,19,0,*40,53,64,81,19,0,*40,53,64,81,29,0,*!!40,53,64,81,9,1,A SLEIGHING35,-}35,72,72,9,0,*40,53,64,81,19,0,*##45,45,91,91,19,1,SONG TONIGHT53,53,108,108,19,0,*60,81,96,121,79,0,*-}\AR@'AY@b>6-F:A,&@2JBBy\A#@3%%6-F:A4,%F:A5,$AV-}%%6-F:A@,%F:AA,$AV 6-$AV%A$&$6-P:'AV,$6-&$AV*%@%-}@4d;@B,A6.*hhhhhͦΠˈ0̠`Z6-?:C:,:A%, MERRY CHRISTMASK(from Jerry White#k-A1?P+A?-}A%@SA%@gA%@$k T$) BB2w) B%66-%@%--}@@@) ,#6 A'#67@<@,.>:@2,C67@<@,.>:A,c67@<@,.>:A-}H,67@<@,.7@<@,67@<@,.7@<@,'#67@<@,.>:@,C6-}7@<@,.>:@,c67@<@,.>:@1,67@<@,.7@<@,67@<@,.7-}@<@,'U-@pAP@ :67%AV<%A`,.U67%Af<%Ap,.'=67%A<%A-},.967%A"<%A&,.= 'H67A<A,.167A4<A8,.H67AT<AX,.'H67A<-}A,.167A <A ,.H67A "<A &,.'AA'A@e9A@KA @-}r]A@o@e@@( B'm%27B7aAh-}IB7cAd[B7eAdmB7gAd'cAe@)-@@?6-@$%@M6--}@$c6-@&@$$'Q @,@@ 5,&@&@;/Q,&@%@.'A-%@-}&@A@@@S:8'[ @,)/&@%@/,E/%@%@[/&-}@%@:'+,%@'/%@%@+ B'M ,@@ )@;Ae@M,@-}@gL'a/@@y'/@p@y9-@p@ga@@@S:V'U @-}Ae@1,@@C/@@U/@@ `'a-@t@=@@@-}S:O/@@a/@u@j'o/@@'/@@9/@v@ K,@@]A-}@oB2w@*NB2HA'B2IA9B2PA2KB2QAFN$ N*-B2HB2-}Q#' *$0uU +AR@1A@HC@@UA@ 5u% D:SONGRITE-}D:JINGLEPLLPLRHOLVVVVMSWITCWORDTIMEVTAATAOFFHLBLANKOFSEBUTTOCHOICMCCLEAI,()WORDDISPBLANKHOLVVVVSWITCLF1} ""****************************""*ǠҠ*""*é1}*""**************************** MODIFIED BY Becky Johnson +AR@AA01}($.+(# ENTER DATA BEGINNING AT LINE 500.(.&&( DELETE LINES 1050 THRU3)&( 1130 BEFORE TESTIN1}G )(8%%( TO RUN PLAYER PIANOB'$( PRESS START '(L((( TO ADD DATA PRESS SELECTV'1}F:B2y,"@'% D:PIANODSK`'F:B2y,"@$AR'j At&&;@@,;@@,;@@,1}~226.(  A٠ŠŠA@2@@1}2@@@2@@@2@@@ F:A@,A1}0G%2G2@G%2@G2@1}$ĠŠ" $"@ !AR$ 6-B:,6.1}!@86. A0(16-@!&P:'@,167<%&@,.2--@(# A- A<1}##47,60,81,96,19,1,JINGLE BELLSF47,60,81,96,19,0,*P0,0,0,0,0,9,END D:SONGRITE0`--Q1QGQQ1Q10PXPQ1ERPPLQPYPMQ24QQ6Q1MJJFILEQ76Q25Q2Q2NQ76Q2Q17QQ75Q40DQ1Q5}30Q12KQ1QQ1Q1Q2Q2Q28QP10OJJCPMJF@@5} @@5} !"#$%&'5}()*+,-./012345675}89:;<=>? ) #AAY) A ; )25}" @"06-&@B7"6;   8," S28,6-?:C:,<,/67<,.>:8,,J6-?:C:,:8,,/6-?:C:,:8,,% @6-?:C:,:,L(7<,V A/ A"AU,67<,. /$# "67<,. '# 5"A&5}*! (~(6-&567<,. :67<,. 6-&$A0A: A   $ 005} S)(!} TYPE C TO READ FROM CASSETTEO( TYPE D TO READ FROM DISKETTES  " "@hA5}P @g( AL (} INSERT DATA CASSETTE7( PRESS PLAY THENL( PRESS % A5}C:% AF (}-( READING CASSETTE FILE4)?68<,-F)!) )A<5}-8<,)"68<,-))468<,-8 < I ((} TYPE DISK FILE NAME?2 A;6.D:I67B:,%5},.H A(}.(  READING 3>H A' ))'!) )A?68<5},--8<,")-68<,-4)?68<,-   "N)(!} THE FILE IN MEMORY IS LOSTH(WHEN YOU C5}REATE NEW DATA.N$PL(C TYPE 1 TO CREATE NEW DATA TYPE 2 TO SAVE DATA FILEP % " &,6-&5}@H"6-(68<,-, ("A`* ( A,* 00 &8<,")"* rJ (}5}6( TYPE DURATION (1-120) ?@ A`F"J w Ap6-A:, |' 6-P:, )!(' Ap5}}  (~' 6-%#( TYPE NOTE #' 0 2 A%6-&@B,"60  "66- A5} 8,"6-&( J28,!67<,.>:8,,/6-?:C:,<,J6-?:C:,68,-B  " Bl6+000'066-F:A5},eB2w6-&@2/AY@b;BByA6-SA@1e6-+%,$AV4.6.d  85}HH0" B!.B2w B 0 A%(  PF(= PRESS SPACE BAR FOR REST 5} PRESS ESC FOR OPTIONSM"6P$ A%  " AP A  " AP   AP  6}-62 $R0@0@L(} THERE ARE 8<, NOTES IN MEMORYRB8<,"(6}"-A& ,6-26-8B Ap4 ( ENTER STARTING NOTE#* A`0"4 6 A@6-A:,%6} )!8<,,(6 A@>(!( ENTER ENDING NOTE#+ A`5 A@>6-A:,& ) )!8<,(& A6}@   $>>23,45,41,26,40,28,42,29,30,43,32,31,33,37,34,17,3,1,19,0X- 6-00# - Ap]6}MM(E} TYPE 1 TO PLAY KEYBOARD PIANO TYPE 2 TO READ A DATA FILEbMM(D TYPE 3 TO CREATE A NEW DATA FILE T6}YPE 4 TO END THIS PROGRAMl- 6-P:&@H,%"6@!) - n  )!( Ap $ "6-6(( 6} A"h$ "A"*8<,"6- "A"*8<,"Ap (}4( 6} TYPE 1 TO SAVE MEMORY DATAX( TYPE 2 TO END THIS PROGRAMb App6-&@H"6@! "A6}"A ( Ap' 6-00# ' MM(E} TYPE 1 TO ADD DATA TO MEMORY 6 } TYPE 2 TO SAVE MEMORY DATAMM(D TYPE 3 TO PLAY MEMORY DATA TYPE 4 TO FIX MEMORY DATA0 6-&@H6 }""6@!& 0 Ap  )!( Aq  " "A` "6-8<, R0@ 6 }0@ %R(} THERE ARE 8<, NOTES IN MEMORY,8<," (( A, 2(( TY6 }PE NOTE NUMBER TO BE FIXED2 A` Aq`" 8 6-A:, '!8<,) )!.(8 Aq` W (}6 }6( TYPE DURATION (1-120) RETURN?@ ArJ A`S6-A:,W *' 6-P:, )!(' Ar>5 6} (%( TYPE NOTE #) 5ARH0 2 Ar@%6-&@B,"60 M "66- ArR 6}8,"6-&( WJ28,!67<,.>:8,,/6-?:C:,<,J6-?:C:,6.d||ffff||````267<,.>:@@,>@$O-@06}!67<,.>:,<6-?:C:,:,@6-?:C:,:,$I6-?:C:,:,8@,$I-@0!67<,.>:,66-?:C:, -@%67<,.>:,:6-?:C:, @$@-@AR! 26}-@6@67<,.>:,E$I6-?:C:,(( é6}0-AP6:2> ^$9 2-( ,-@5(9 h$B -( "-@6}+(/ 5->(B r$8 -( -%() /-8(|$  -@( 6}$J6.d~~``||````~~*A>67<,.>:A(,J@$6-?:C:,:,<6-?:C:,:,=6-?:C:,>ҠϠ㩠 D:PIANODSKQ17QQ75Q40DQ1Q4gn DFLINEGNUDUBYTKELIN :)}$$******************************$$*** PLAYER PIANO FILEDUMP ***$$*** by Jerry White ***($$*************:*}*****************2[@.@@K:Q;@,;@,;@&,[ A<D( (&( T:+}YPE D TO DISPLAY FILE)(D( TYPE P TO PRINT FILEF2)@"@h(6-2 AP<"@6-@:,}% A(32 B< AZ%d A APnK +'0@9AR@K:-}@@x,( (&( PLAYER PIANO FILE DUMP)(,$%(%(NOTE# KEYCODE DURATION KEYQ67@,..%67@%:.},..=67@,.7@,N67@&,. Q$"A"3 PLAYER PIANO FILEDUMP"32(&(ENTER:/} SONG NAME FOR HEADING*/323%"3NOTE# KEYCODE DURATION KEY%3H( ('( TYPE C FOR CASSETTE FILE*(H( TYPE D:0} FOR DISKETTE FILE"AdAU")@"@gA0#@h A# A?AR:1}(1(TYPE DISK FILE NAME5? A= 6.D: 67B:,%@,.=@@ A :2}A0)@)@5-@)@+)@5 A@"6-%@"M:3} @)67@<@,.=:,C67@<@,. M A ,L A)67@<@,.=:,B67@<:4}@,. L A 667@<@,.=:,@) @)67@<@,.=:,J)!@ )67@<@:5},.=:,T3 @)67@<@,.=:,3 Ap^3 A)67@<@,.=:,3 Aph67@<:6}@,.=:,r%%67@%<@%,.>:%@B,|)"@)67@%<@&,.SP  3(%"@:7}6-% APU ( END OF FILEDUMP.AdAU@ARR@@U@(!(PRESS PL:8}AY ON CASSETTE$(@(PRESS RETURN WHEN READYF A@<@@C:F AP6($(:9}PRESS ANY KEY TO CONTINUE6AdAUB+F:Ad,AU)F:B2y,@5 A? A0B$ A`::}7F:A,"A6-( END OF FILEDUMP7 ADD( ERROR F:A, AT LINE F:A,%F:A,$AV<:;}@@'AdAU9AR<N(>:AS,(/( PRESS START WHEN YOUR2(N( PRINTER IS R:<}EADY..... F:B2y,@A  @ D:FILEDUMP 8I D  C D     )16CS S)  C)D1 p p >>}0 C9DI pCDL~CiCDiD` DD˙` d J)L !>?}D L(( LL()  L| L( S LH 0p n  >@} CY?  q  L L  ` )>A} `A! d߰")-݆ "  $G@LLL&0") $G%>B}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0>C})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)>D}  hyhyB q L> Lm JJ  Ln*` dB%'>E}8  H H` 1 { LL   !L     Hh SY?  q  1L>F}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L>G}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@>H}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q>I} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF >J} G) *Gȩ GȽG GȌd q q G`  8   0G  `D>K}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y>L}`piH n0)բY? 08`0 >M}  0$L GGȽG L `8L`L>N}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`>O}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE>P} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR>Q}1LJ舩9GIH`LJJ`HGHh l`>R} S gL   8 rii `дCDCG W  >S}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}pp>T}EAD |||DDOS DOSDOS SYS }>U}<}U}>V}B#3DORAYME BVBIRTHDAYBASBqSILENT B6JINGLE B SONGRITE B\PIANODSK B(FILEDUMP C=DOS >W} SYS 0`BDELV !B >X}`LVUQ   ]   TU J ]L!T  #      TU >Y} L ? .  t`GBJ V~DEHI B V0dV>Z}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh>[}DEL8HI   0 HI,0 0  9 .G VLO>\},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI>]} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI>^} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO >_}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  ->`}LLu DEHILV 9 .l 9 .l  `` s$B VBH>a}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL>b}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e>c}1i1232435ޥ<<8<}MDLRSWTCMMCMPSMBSVBV0V1LFBOINP10PMCHDLBYTSCROLSIPIXETONCORODISPCOLVRHRBEASFOOBe}PCOLRLODECA Bf}Bg} !"#$%&&&;A,;@,;AU, ;Bh}@W, _D:TDELAY.OBJ**67@,.hh ))67@$,.h67@F,. Bi}`( ;@6, _D:CLRMEM.OBJ2**67@,.hhhhḧ< 67@$,. `P Bj};@V, _D:MOVCHR.OBJZ**67@,.hhύPhhh̩d))67@$,.̑n67@F,.Bk} ޭP` ;A, _D:MOVPMS.OBJ**67@,.hhhЩةΥͪ芅ϥ))67@$,.ЪiΐBl}))67@F,.hh i))67@h,.hhe΅Π̑))67@,.ΩЅϦBm}67A,.hh` ;@, _D:SCROLL.OBJ67@,. hhhhh` ;A6, _D:BEASTS.OBJ**Bn}67@,.8\|DJ@8l|DDD8t|D))67@$,. 8t|DDL8t|DDD8t|D))67@F,.DF8\|DDD8l|DDD8t))6Bo}7@h,.|DDD<<8l|J8"))67@,.~@8||0>?,((67A,.?~~667Bp}A3,.J ;@, _D:VBLANK.OBJT!!67@,.Α̥ύLbh ;@#, _D:VBLNK0.OBJr**67@Bq},.nԩb䪩 \h` ;@, _D:VBLNK1.OBJ67@,. hhh \` ;@C, _D:LDFILE.OBJBr}**67@,.h hh`hhhhB''67@$,.hEhDhIhHLV6-A0 6-F:A, 6-&@Bs}6-&@6-&@!A!+@%@&!!6-?:C:,<$AV<A@,D-@B:,N##&Bt}@%$AV@:7<,,X b@w@l0@v @!!6-?:C:,<$AV<@Bu},-@!!@%%$AVAU -@!" '"@)"@!'Bv}6-%@"@6-%@ %$AV* H112,112,112,71,112,0R7,7,7,7,7,7,7,7,7,7\7Bw}1,0,0,65,0,0'6-+%@,$AV'6-0@@-@@ 6-%Bx}@ "4.ENDA%@-@B:,6-@:7<,,"A`6-@2 A(6By}-%@2!!!A$) A(A#  6-&@2  6-%@6-%@$  . 8Bz} 6-%@6-%@B A"@` EDUCATIONAL SOFTWAREj PRESENTS ٠̛t ĠÛB{}~ prof. von chip and his pals teach you how to write music from basic. && B|} .END !A`!Aa AY@4( -@@72  @ 6-%@< !@B}}6-&@F 2@@P 0@@Z  ",d 6-?:C:,<@,n  x 70@B~}@@70@@ 1,0,4,2,8,6,4,8,6,4,6,0 1,2,3,4,5,6,3,6,2,3,1,1 3,0,6,8,8,8,7,6,B}5,0,3,2 1,4,8,4,2,1,3,8,6,6,7,4 4,0,5,8,4,6,3,5,2,4,1,3 5,4,2,2,8,7,4,4,7,8,2,0 4,5 %%2B} 6-?:C:,<@, --@ @-(@ DUCATIONAL 6-@6-@  6-?:CB}:,<@@," *-@ @*(@OFTWARE, 6-@@6-@ T -@@ ^ -@B}(@ h &-@%@&(@Ar 6-?:C:,<@,|   -@(@  11+%@B},$AV%@@e&@2 6-A6-@  BBy B2w@ AY@FB} A#@ B2V@ A 6-A@: 6-@@D -@VAp@B}N -@X 112$@%A&@@b 6-?:C:,<<<<,l 6-?:C:,<@B},v     ++6-?:C:,<<@<<%@, G%2G2@B} 6-?:C:,<@, @x %%6-+$AV,%A%%@ Ad -%@%@b B}-2@@-6-&@ #@#%@@   %%2 B}6-?:C:,<@0,> -@@6@H -&@6@R ##&@@\  f B}@A4Pp ))+%@,$AV%@z &-@%@&(@  -@(@B}A 6-A6-@    $-@@$(@  @ %%2B} -&@6@ ##&@@   ##&@Ap A@B} 6-?:C:,<@0, -Av@V6@$ -@6@.112$@%A&B}`EiͩkΩ͙kCop(j`j0 {j`Hi͝ΝhF}`L"OGOL:D"NUR:"...ENOYREVE OLLEH";6#?:81.RGCop(j`j0 {j`Hi͝ΝhDI-(- - -(- - ((((((----(--J}(((----(--(((      % % J}  % %      <-(- - ((((((----(--H,C!  <<!  x!! !(!(!!""! !  <(( !P!"(("! N}+ !<"< <<!  x!! !(!(!!""! !  <(( !P!"(("! L <<<<<<< <<<