!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP PP PP H(PP P@#HP$A#($AP(@ wj ** COPYRIGHT 1982 80 MICRO MAGAZINE ** A DIVISION OF WAYNE GREEN INC. DOCUMENTATION CONTAINED SOLELY IN 80 MICRO CALL 800-258-5473 FOR BACK ISSUES k:DUAL-VOICE MUSIC SYNTHESIZER0k:BY LEE MORGENSTERN, MAY, 19828k:Lk: 256: AZpk"DUAL-VOICE MUSIC SYNTHESIZER"k: "READING DATA:"k$E1$"TREBLE OR BASE LIST EMPTY"k.E2$"PLAY BUFFER NOT BUILT"k8E3$"NOTE LIST EMPTY"kBE4$"IMPROPER NOTE"lLE5$"IMPROPER OCTAVE"(lVM$(152,0)Kl`P!((M$)1) 256((M$)2)hlj P!32767 P!P!65536qltPP!l~ X1 152: @141,152X;l Q: P,Q: PP1: l 205,127, 10,243,235,221, 33, 0, 0,221m 25,221, 78, 0,221, 70, 1,221, 35,2212m 35, 17, 8, 0,217, 62, 4, 8,221,102`m 0,221,110, 1,221, 78, 2,221, 70, 3m 221, 94, 4,221, 86, 5, 62, 6, 60,185m 48, 72,187, 56, 28,121,147, 79,125,147m 111,221, 94, 4, 62, 2, 21, 32, 14, 8n 221,174, 7,211,255, 8,221, 86, 5, 62Fn 5, 24, 4, 60,185, 48, 37,189, 56,214tn 121,149, 79,123,149, 95,221,110, 1, 62n 2, 37, 32,200,217,221, 25, 11,120,177n 200,217, 6, 1, 22, 1,221,102, 0,221n  110, 1, 24,178,123,145, 95,125,145,111,o 221, 78, 2, 62, 3, 5, 32,170, 8,221Zo 174, 6,211,255, 8,221, 70, 3, 62, 5ho( 24,156{o2 N$(12),N(12)o< F0 12: N$(F),N(F): oF R,255,B,50,A#,53,A,56,G#,59,G,63,F#,67,F,71,E,75oP D#,79,D,84,C#,89,C,94 pZ:"ALLOCATING MEMORY"pdM12100/pn T(M),B(M),D(4M)lpxBF0: T(0)0: B(0)0: TD0: BD0: TE0: TF0: BE0: BF0pF$"": EM0: L0: D0: E0: N0: T0: B0: M!0pC1255: C2256: C33840: C4192: C54096p:p:**** MAIN MENUpq"DUAL-VOICE MUSIC MAIN MENU"q4q"<1> LOAD MUSIC FILE"Oq"<2> SAVE MUSIC FILE"eq"<3> EDIT MUSIC"q"<4> BUILD PLAY BUFFER"q"<5> CHANGE TIMING"q"<6> PLAY MUSIC"qqM0: "SELECTION";Mq M1 M6 1550r" M4 (T(0)0 B(0)0) E1$: 15506r, M5 BF0 E2$: 1550^r6 M 1630,1870,2100,3190,3520,3600ir@ 1450qrJ:rT:**** LOAD MUSIC FILEr^rhBF0rr"<1> LOAD FROM DISK"r|"<2> LOAD FROM CASSETTE"s"<3> LOAD FROM CASSETTE WITH DISK BASIC"s sM0: "SELECTION";M7s M1 M3 1690Ps M 1730,1810,1800Vsps"MUSIC FILE SPEC";F$~s"I",1,F$s#1,T(0),B(0)s T(0)0 X1 T(0): #1,T(X): s B(0)0 X1 B(0): #1,B(X): sss"T" t#1,T(0),B(0)4t T(0)0 X1 T(0): #1,T(X): ^t& B(0)0 X1 B(0): #1,B(X): dt0lt::tD:**** SAVE MUSIC FILEtNtX"<1> SAVE TO DISK"tb"<2> SAVE TO CASSETTE"tl"<3> SAVE TO CASSETTE WITH DISK BASIC"tv uM0:"SELECTION";M"u M1 M3 1920;u M 1960,2040,2030Au[u"MUSIC FILE SPEC";F$iu"O",1,F${u#1,T(0),B(0)u T(0)0 X1 T(0): #1,T(X): u B(0)0 X1 B(0): #1,B(X): uuu"T"u#1,T(0),B(0)v T(0)0 X1 T(0): #1,T(X): Iv  B(0)0 X1 B(0): #1,B(X): OvWv :nv*:**** EDIT MUSICwv4EM0v>: "DUAL-VOICE MUSIC EDITOR"vH EM0 "TREBLE:";T(0); : "BASE:";B(0);vR"NOTES"v\vf"<0> TOGGLE TREBLE/BASE"wp"<1> APPEND TO END OF LIST"3wz"<2> INSERT NOTES"Kw"<3> DELETE NOTES"dw"<4> DISPLAY NOTES"{w"<5> PRINT NOTES"w"<6> EXIT"wwM1: "SELECTION";Mw M6 w M0 EM1EM: 2110w M1 M5 2230 x EM0 LT(0) : LB(0)1x M2 M6 L0 E3$: 2230Tx M 2330,2540,2750,2860,3000_x 2110gx :x :**** APPEND NOTESx x$ "APPENDING ";x. EM0 "TREBLE"; : "BASE";x8 " NOTES"xB xL "DURATION,NOTE"xV LL1y` "####:";L;yj D1: D,F$: D0 ?yt F$"R" E0: F0: 2480]y~ (F$)2 E4$: 2400y E((F$,1)): E1 E5 E5$: 2400y F1: F$(F$,2)y F$N$(F) FF1: F13 2460y F12 E4$: 2400y EM0 T(0)L : B(0)Lz P4096E 256F D5z EM0 T(L)P : B(L)PFz BF0: 2390Nz :gz :**** INSERT NOTESmz z N0: "INSERT BEFORE WHICH NOTE";Nz N1 NL 2550z "DURATION,NOTE"z "####:";N;z D1: D,F$: D0 {( F$"R" E0: F0: 2660-{2 (F$)2 E4$: 2580Z{< E((F$,1)): E1 E5 E5$: 2580n{F F1: F$(F$,2){P F$N$(F) FF1: F13 2640{Z F12 E4$: 2580{d EM0 T(0)T(0)1 : B(0)B(0)1{n XL N 1|x EM0 T(X1)T(X) : B(X1)B(X)| X4| P4096E 256F DR| EM0 T(N)P : B(N)Pq| BF0: LL1: NN1: 2580y| :| :**** DELETE NOTES| | P0: Q0: "DELETE FROM,TO";P,Q| P1 PQ QL 2760 } EM0 T(0)T(0)(QP1) : B(0)B(0)(QP1)} BF0$} QL 4} XQ1 LX} EM0 T(P)T(X) : B(P)B(X)j} PP1: X: r} :}" :**** DISPLAY NOTES}, }6 EM0 "TREBLE" : "BASE"}@ }J " DURATION,NOTE"}T X1 L: "####:";X;~^ EM0 DT(X) 255 : DB(X) 255B~h EM0 ET(X)4096 : EB(X)4096~r EM0 F(T(X) 3840)256 : F(B(X) 3840)256~| F$N$(F)~ E0 "##### #%% ";D;E;F$ : "##### %% ";D;F$~ X : "PRESS ENTER";M:  :" :**** PRINT NOTES( M M0: "PRINT HOW MANY COLUMNS";M^ M1 3010f : EM0 "TREBLE" : "BASE"  X1 M: " DURATION,NOTE";:   P!LM: QLM: P!Q QQ1 X1 Q N0 M1: PXNQ: PL 3160<& EM0 DT(P) 255 : DB(P) 255d0 EM0 ET(P)4096 : EB(P)4096: EM0 F(T(P) 3840)256 : F(B(P) 3840)256D F$N$(F)N E0 "####:##### #%% ";P;D;E;F$; : "####:##### %% ";P;D;F$;$X N: : X: ,b :Jl :**** BUILD PLAY BUFFERPv n "BUILDING PLAY BUFFER": "","TREBLE","BASE" "LENGTH",T(0),B(0) T1: B1: X1: 3440: 3480 D(X1)C22(5TE) N(TF) D(X2)C22(5BE) N(BF) D(X3)(P 2) C2(Q 1). @256,,T,BB TDBD 3320_ D(X)TD: TT1: BDBDTDv TT(0) 3440 3390 TDBD 3360 D(X)BD: BB1: TDTDBDȂ BB(0) 3480ӂ 3390 D(X)BD: BB1: TT1* TT(0) 34404 BB(0) 34803> D(X)D(X)C2: XX4RH TT(0) BB(0) 3240iR D(0)X4: BF1: q\ :f :**** COMPUTE TREBLE PLAY BUFFER ENTRYp TDC4(T(T) C1): TET(T)C5z TF(T(T) C3)C2: PTF0: 郄 : :**** COMPUTE BASE PLAY BUFFER ENTRY6 BDC4(B(B) C1): BEB(B)C5W BF(B(B) C3)C2: QBF0: _ :y :**** CHANGE TIMING M!1: "TIMING MULTIPLIER";M! X1 D(0)4 4ׄ D(X)(D(X) 255)M! 256݄ ::**** PLAY MUSIC)"<1> PLAY USING DISK BASIC"N$"<2> PLAY USING LEVEL II BASIC"T.l8M0: "SELECTION";MB M1 M2 3640L: Q(D(0))V M2 3720ƅ`P!((M$)1)256((M$)2)j P!32767 P!P!65536tPP!: 0P: M0(Q)~ 16526,((M$)1)3 16527,PPEK((M$)2)>M(Q)DL:b:END OF PROGRAMODERN FON hOUSE COM KOUSE SY$ JOUSEHP COM NLj dj13000:AZ:9000jTAU(36),NT$(36),MUSIC$(1500),FR(36),B,N:230:350j"BASE NOTE (DEF=220) ";BN:BN0BN220j"WHAT NOTE GETS ONE BEAT (DEF=4) 1/";NBkNB0NB4kS4608:/kISS63:J:I,J:II0tHF01ER3:8000:2050,tRIL0L1:MUSIC$(I1)MUSIC$(I):IQt\MUSIC$(L)(127(M$))(128F0)itfLL1:L0L01:2050qt :yt :t L1ER6:8000:520t L0Lt "LINE TO BEGIN REPLACING";Lt 1010t LL0ʍ520t LL0:520t :t :t 1000u 520u :u :/u L1ER6:8000:520Uu "BEATS PER MINUTE";BM:BM03530cu BS!BM60ru SP4352:u "LOADING TUNE, PLEASE WAIT"u I1L1u @58,Iu S0$MUSIC$(I)uPS((S0$,2))128u$TAUTAU(PS)u.FRFR(PS)v8D!NB((S0$)127)BS!(1FR)%vBH1(D!256)8vLH2D!(H1256)xvVH1255ʱSP,255:SP1,255:SP2,TAU:SPSP3:H1H1256:3670v`SP,H2:SP1,H1:SP2,TAUvjSPSP3vtIvy:(23);AZ$::"NOW PLAYING...."v~SP,0:SP1,0:SP2,0wX(0):(13)3740wB$"PLAY"3720"w:520*w:2w:KwL1ER6:8000:520]wC14:I1L1wI;") ";((MUSIC$(I))127);"-";NT$(((MUSIC$(I),2))128)wC0ʑ7000wCC1wIw520w:w:wI160:N(37)1x(3)1MUSIC$(I)(135)(N128):I:4550?xMUSIC$(I)(143)(N128):IHxL61[xB$"PLAY CONT"lxAZ$"RANDOM"vx3530~x:x:xI036:MUSIC$(I1)(143)(I128):IxAZ$"SCALE"xL37:3530x|:x:y"ARE YOU SURE YOU WANT TO KILL THIS BUFFER?"1yK$:K$"Y"K$"N"5530AyK$"N"520NyL1:520Vyp:^yz:y"READY CASSETTE AND PRESS 'NEW LINE'"y(13)6030y#1,AZ$yL1yK1y#1,A$:@63," ";yA1$(A$,K,2)zA1$""6050:A1$"."520!zMU$(L)A1$:KK2:LL1:6070)zd:1zn:Yzx"READY TAPE, AND PRESS 'NEW LINE'"lz(13)6530yz#1,AZ$zI1zA$"":@63," ";zA$A$MU$(I):II1zILA$A$".":#1,A$:520z(A$)240ʲ@62,"**";:#1,A$:6550z6560{X:{b:#{lA$:A$""70207{v(A$)32C1:L{(A$)13C15:V{7020^{L:f{V:n{`P0{jI11(S0$){t(S0$,I1,(S1$))S1$PI1:I1(S0$){~I1:{@:{J:{TER8030,8040,8050,8060,8070,8080|^"WRONG FORMAT: "(34)"-"(34)" EXPECTED.":I|h"NUMERAL EXPECTED BEFORE "(34)"-"(34):f|r"INCORRECT NOTE CODE":||"?INVALID LINE NUMBER":|"?IMPROPER SEQUENCE":|"?MUSIC BUFFER EMPTY":|4!:|>!:|H!:@149,"MUSIC-80 VERSION 3.1"|R!:|f!}(#44ʡ0}2#:LL0LL0(}<#5200}F#:8}%:@}&%:}0%"ADD","INSERT","PLAY CONT","SCALE","COMPOSE","KILL","RANDOM","TUNE","DELETE","LOAD","REPLACE","VIEW","HELP","PLAY","SAVE"}:%520Sj14308,1]j1000NkD1$"010.@% ).1 7 > > B > B > B J > B > B > B J@J S B > 7`. 1 1 .@% ).1 7 > > B > B > B J > B > B > B J@J S . ) . 1 7>}}c}c}c}c} 1 117 B 77>@J B`c 1 117@B7> J %`' !  !  !   % ! '!%"?lD2$"'``1`.@% ).1 7 > > B > B > B J > B > B > B J@J S . ) . 1 7 >` ! # %`! % ' )`% ) . 17:7) . 1 7 >` ! # %`! % ' )%).1 7!%). 1!%) .!% )!%).17%)` 7 )>P>@B J BSJBS>71.)"0mD3$"%!X>@B J BSJBS>71.)%! ```@!!%%)),%)  1). % B>P>@B J BSJBS>71,)%!P>@B J BB>J7S1,)%! `bb@!'%1.!%%)1> S@% ))>)11>"!nD4$"11>1>1%%7%%%7%))!)7))7))>)>11>1%11>1%%7%%%7%))!)7))!))>))>))77"n D5$"711)1%%!%7%B%%7%B%!% !1))1 1S1S111"oQ1$"7,% ) , , 1 , )@7@: 7 1 7 : 7 1,1`1 1@) 1 :`J SX7`! `) !01,0)% ! ) 1 7@% J JJo %   o 7 1 , % ) , 1 7 : % )@.`, 7 1 , % ) ,`1 7 : % ) , o o o o7 7 71,141,), 1 ,17:71,)%!!%),)%),)"pQ2$"!%)%!%)%!%!%),)%!!%),)%!  o o o 71,)%!` %   % ,) 1,)%!`    % `  `!!  !!%`))% !!% )),1,141),)1,171),) 1!#!#!#!#!#!),"9qQ3$"1,%),)%!  @1,1,1,1,1,1,1,1 7 7 o o o ! %   ! @%0JJ "Bq760vqS$Q1$:K(0):S$Q2$:K(0):S$Q3$:K(0):1050rR1$"@)@)@)0#'.o.].F.F.o.].F@.@.@.0'S4i4S4F44i4S4F4@)@.84.04777o7F777o7F7@.@48>70>FFFiFSFFFiFSFrR2$"0.)@.6.%@#..)'@)8)!@)4#F#F# 4  4  4  4  4  4  4  4  4 444@#'#'@)@.40#@o]0#@iSJsR3$"S0# '  #  ' @)@.40#     # @0#   #  # @0#     #      #      # #F!00#'0).!4iSF4)#@s M1$"'N'>'40')N)>)4) ).N.N.N.N.F.F.>.>.:.:.@.8)#@'@)@.@'::@48.'@)@.@4@)@>>@>@i@]@N@>@4''N'>'4''))N)>)4))"Tt%M2$".N.N.N.N.F.F.>.>.:.:.D.>)#F'F)F.LFL#L'L.L> > 4 ' @#@'i"tRW1$"44`444 4 > N > 4 > 4 ' 4 > N > 4 > 4 '`444`444`444`444 444 4 4 444 4 4 444 4 4 444 4 44"~uWW2$"ii iii iii N F >ii iii N>> F S iii iii iii N F >N>P4:>F N > N44 444 444 ' # 44 444 ' # ) 444 444 444 ' # 'P# '  '"v\W3$"          # ' ) .                       # ' ) .           "vaW4$"44 4FF FFF F > :F :>N }u> i F F## ### #  ##''}ui#44 4"ewfW5$"'#   #')'.######)4   #')'."wkW6$"#### ' 4 '"_xpW7$"FFFFFF>>::FFFF::>>NNNN>>FFFFFFF>>::FFFF"xuW8$"::>>NNNN>>F44 4"yzW9$"i}      i  #i}      i  ))''"z|WA$"))''c!c!c!c!!!!!iiii     !!  "z~WB$"#').47:>F#N'S)F#')') '"{WC$"         @  @   "{WD$"41.,)'%#!''' 444 >>> '4'4'4 ''' ' ' '44 4 4 4>> > > >NN N N N i"|WE$" N i > N 4 > ' 4 ' 4  '  `NNNNii}}ii'iN'N}Ni}NNNNNNNNNN@"|:|QQ$".&~#^#V==V#N#> Az((> Az( Az"}1360}30000*}:(23):@0,(32,144);`}@64," TRS OPERA THEATER";:@128,(32,129);x}$@212,"SELECTIONS";})@330,"<1> WILLIAM TELL OVERTURE";}*@458,"<2> SEMPRE LIBERA";}+@586,"<3> MUSETTA'S WALTZ~,@714,"<4> QUEEN OF THE NIGHT";%~-@842,"<5> LA DONNA E' MOBILE";4~2X1400:]~3@960,"PLEASE ENTER YOUR CHOICE --";q~6S$(30)(180)~8@1016,(42);:K(0):X170::A$:A$"",@1016," ";:X160::1080~=X1200:::(23);@N$(1)" THE WILLIAM TELL OVERTURE BY GIOACCHINO ROSSINI"`AN$(2)" SEMPRE LIBERA FROM LA TRAVIATA BY GIUSEPPE VERDI"BN$(3)" MUSETTA'S WALTZ FROM LA BOHEME BY GIACOMO PUCCINI"CN$(4)" QUEEN OF THE NIGHT ARIA BY WOLFGANG AMADEUS MOZART"5DN$(5)"LA DONNA E'MOBILE FROM RIGOLETTO BY GIUSEPPE VERDI"OFA(A$):A1A51050vG@404,"NOW PLAYING:";:@512,N$(A);hA10000,1130,1170,740,1160i1050΀jS$D1$:K(0):S$D2$:K(0):S$D3$:K(0)tS$D4$:K(0):S$D5$:K(0)~10503S$R1$:K(0):K(0):S$R2$:K(0):S$R3$:K(0):1050YS$M1$:K(0):S$M2$:K(0):1050aP:sZS$"":V(S$)dC0(V256):CCVC0256nQ(QQ$):Q1(Q1):Q2(Q2):Q0Q2256Q1Ɂs2000߁xQ01,CC:Q03,C0y0(16396)201LV0:LV1/LVʰQ0:"T"::16526,Q1:16527,Q25=:TC0126C0&H82:kC0125C0&H83:C0124C0&H84:C0123C0&H85:C0122C0&H86:':,'S$W1$:K(0):S$W2$:K(0):S$W3$:K(0):S$W4$:K(0):S$W2$:K(0):S$W5$:K(0):S$W6$:K(0):S$W3$:K(0)'S$W7$:K(0):S$W8$:K(0):S$W2$:K(0):S$W9$:K(0):S$WA$:K(0):S$WB$:K(0):S$W9$:K(0):S$WA$:K(0):S$WB$:K(0)'S$WC$:K(0):X1400::S$WD$:K(0):S$WE$:K(0):1050ބ0u:(23);" WELCOME TO THE 'TRS OPERA THEATER' THERE IS NOTHING TO WATCH DURINGTHIS PROGRAM BUT THERE IS PLENTYTO LISTEN TO! WHILE THE ORCHESTRA TUNES, USE THIS TIME TO ADJUST YOUR SOUND. PLUG THE LINE FROM ";V:u"YOUR CASSETTE RECORDER INTO ANY AMPLIFIER. THE BETTER THE AMP THE BETTER THE SOUND. HIT ENTER TO BEGIN";DuS$((60))((220)):K(0):"",30020:?@: AS YOU SEE, THIS PROGRAM DOES NOT TAKE WELL TO LISTING. THIS PROGRAM WAS WRITTEN BY: RICHARD TAYLOR 100 MANHATTAN AVE.1809 UNION CITY,N.J. 07087EPÀA B C D E F G H I J K L M N O P Q R S T U V W Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  p!r~$(3#ͳ#l :!A2q! s~(3#:qG:8(:@8((*Dq(!rG~$((+###:q=(2q:8 :q (<2q:8 :82q#^#V>F#N#~y*q_͐$>2@= :!AOXSa.qlB>C>y(A:8 >2qG:q,p- oyOzWq,plB>C>y(A:8 >2qG:q,p- oyOzW,p:8SqI͢q!r:8͈q:8͈q:8͈q:8͈q:8͈q: 8͈q:@8͈q8# :8ĝq~8z r  " $ & ( * ,y0s2l4f8`<[>VBQFMJHPDT@X=^9d6jr`K[OUTQYL^HdDj@pZqSqXqDqCqVqGqBqHqNqMqKq,qLq.q;q/qQq2qWq3qEqRq5qTq6qYr7rUrI r9 rOr0rPr$@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_0123456789:;,-./  !"#$%&'()*+<=>? RELATIVE DURATION OF NOTsE (1-9)? $*TRS-80* C# D# F# G# A# C# D# *ORGAN*KEYS^ 2 3 5 6 7 9 0 t KEYS^ Q W E R T Y U I O P COPY RIGHT C D E F G A B C D u E CLOADNOTES^ G# A# C# D# F# G# A# MAGAZINE S D G H K L ; v Z X C V B N M , . / NOTES^ G A B MID C D E F G A w B p Z X C V B N M , . / NOTES^ G A B MICDEFGHIJKLMNOPQRSTUVWXAZ[\]^_`abcdefgpijklmnoqrstuvwxyz{|}~rb@ jUB0  ~wpic^XSNJ!E#A%=':)6,3.01-4+7(:&>#A!EINRW\bhntzs!t2s!@<|!r~@!<0/?@o> @w(>>o#V##^#F#N+  + :@8st+)+*+&)'$$&#&'+*+*+&)'$$&'&$+*+*+&)'$$&#&'+*+*+&)'$$&'&$&')+",+) +)')'&+++7*+*+u*+*+*+*+&)'$$&#&'+*+*+&)'$$&'&$&')+",+) +)')'&+++7*+*+*+*+*+*+&)'$$&#&'+*+*+&)'$$&v'&$  $', ++ ) 1 00.,+)'% $ %$"$%')*++,$') &'.".$.&.'.).+.320.,+).,)'.".$.&.'.).+.320.,+).,)+,+*+&+*+&+*+&+*+&+*+*+*+*+*+&)'$w$&#&'+*+*+&)'$$&'&$&')+",+) +)')'&+++7*+*+*+*+*+&)'$$&#&'+*+*+&)'$$&'& $ P*'###$'x**/*'#,/,(,/,/,./13*'#'*/*/*'*#'*'*(%(*%'#/#*/131*/,//,//,/1,),1,),1.*.1.*./131*/,*,./.,(*'#'/*'#(%(*/*(%#//#*'###$'**/*'#,/,(,y/,/,./13*'#'*/*/*'*#'*'*(%(*%'#/#*/131*/,//,//,/1,),1,),1.*.1.*./131*/,*,./.,(*'#'/*'#(%(*/*(%#//#%**('*/3'/*1/P8765654343210/.z-,+*)*)('('&%$#"!   !   !    !   "#$%$#"!&%$%$#"!"#$%$#"!&%#%$#"!"#{$%$#"#"! !"#$%&%#%$#"#"! !"#$%&%# %%1%&&2&%%%&2&2&2&%%***+++***++7+7+7|+*+*)*+*)*+*)*+*)*+,-.-,+*+,-.-,+*)('&7656543234565434321234545678765654343210/.-,-,+ -+-+-+ -,+      },(%!%(,841-148 !"#$%&'()*+,-,+,-,+,+*)(-,+,+*)()*+,+*)(-,+,+*)()*+,+*)*)('()*+,-,+,+*)*)('()*+,./~010/.-./010/.-21010/.-./010/./.-,-./0121010/.-./013468987876549878765456787654987876545678801234565434321012345678987898788012345654323210123456789878:;<=<;:;:989876543210/./.-,-,+*)('&%&%$%&%$%&%$%')*,-,+,-,+,-,+,./011 !"#$%&'()*+,./01 % -s54323210123456789878:;<=<;:;:989876543210/./.-,-,+*)('&%&%$%&%$%&%$%')*,-,+,-,+,-,+,./011 FY(R0 GY(iS1 HY(S2 IY(OS!~(!I@"'> 3!]J> 3~ ,!J!3J!nJ!J!JI 1890G3x0G! J!GJ7?!oR3!o+&"D0"1890 0G#~ >o D~# ( 3J3ɪ  (c) 1981 William V. Neville, III HIMEM will be automatically set. For voice, D&EFUSR=EF8EH. To change speed, poke EFFBH with a value between 3 and 15. To select phrase mode, poke EFFFH with 0. To select word mode, poke EFFFH with word number. Reserve space for how many extra modules (1-8 or ENTER for 0)? To swap modules, poke EF78H &with module number to swap with. Then make USR call to routine at EF6FH. 7?!oR!~Gwx#| !:(( =G###\#nf^Vþ!FNV^fnv~(#(>> Gx(= <~D8!y݆w>ȯ2~~wɤ@ABC:^I8>DƴG:or<2>I&D&dj:"CELESTIAL MUSIC DEMO"rj 254,255j S$"......................................................................"j S1((S$)1):S2((S$)2):S0S1S2256k 16422,S1:16423,S2EkA$"...................................................."rkA1((A$)1):A2((A$)2):A0A1A2256zk60kS01,A2:S02,A2::k2 33,1,1,243,62,5,8,62,35,61,190,32,6,251k3 201,126,35,86,94,29,14,10,6,225,21,32,14,87&l4 62,120,190,40,6,8,238,3,211,255,8,122,86,29Wl5 32,15,95,62,120,190,40,6,8,238,3,211,255,8l6 123,94,29,16,219,13,32,214,61,32,209,35,24,193l7 32,149,32,74,16,79,8,99,8,88,16,79,12,74,4,120l8 32,149,32,88,48,99,16,120,32,177,32,111,16,118)m9 8,149,8,133,16,118,12,111,4,120,16,133,8,158Jm: 8,149,16,133,16,118,64,149fm<:N069:D:S0N,D:NmAN051:D:A0N,D:N: BMUSIC 00/00/00 r^BOOT SYS` SOUND CMDBB #]DIR SYS  CELEST BASBB  MUSIC80 BASBB# ORGAN CMDBB ! OPERA BASBB% MUSIC BASBB% zSPEECH CMDBB