A2337:E(45)(46)2564F$"":I116:13CF$F$A$:RI1611n(F$,I,1)" "ZI:I0:F$(F$,Z)13:L$A$:13:H$A$B(L$(0))256(H$(0)) 3,8,3,F$",P,W" I1B:13:3,A$;: 3:AE2 "ALL DONE!": A$((A)):A:AA1:DRS _ Ѝ!Ѝ  +, B LtLDRLDR jK4L eiL L KT.STDSO.STDSPRITECHARESC Ѝ!Т Ly`IGITAL ECORDING TUDIO BY TEVE RACE (C) 1986 LECTRICAL OFTWAREESC  ) 'ЍЩ    !Ѝ _ )iЩs&s& b Z  # L^ vL JJI)ȑi'( s m i  L ȭi'ȭ`ii()i`xmmX䭆  [ JJJJ [ ) [ `i0 ` !  $ !   u  u u   U" L # " L # " L " " L # " L Y""L(  }"7i"L@ "!"LW  ""Lu  k""L       "% ""L  "! ""L  ""  !c$! " j LF `1" Lw `Q" L `"  L ` (@ @ ["!"" ` L  )L? Ɍ$ɈɋɇɊɆ ɉɅʎ&` ` C !"8    LL[LL4""LLhL" L` &!!%%` ` N` `"LZ '`"LZ `"LZ# L` &LLtLLLLLL"LZ&$ L[` &!!#%')+-1` ` _Lh RLh ALh Lh Lh Lh"LZ"LZ$ L u  ` &!#%)`"LZ L L LZ \LZ"LZ"LZe% L4"&&`""!"`"L"L"L)"Ю"!i м"8н! i2Щ`"LN""!c ""LN"")"L""`"ʎ"! ""("L"t"";c Ll DiLw:iLw,i)!! " j `"""  8L88Lwԝԝ` GC?>:651 -,(!$#"#LlLLL)LFLYLg#$ %  & LLkLvL)*+,-LBLLLLL#ȹ)L@L L&&&LBȩȭLBȭ ) LBȹ) LBȭL)LFLȹ- LB ))&) LB LB) LB) LB) LB) .L   h hL~ȹmԙȹi`    `&`'&#&  `'& ` 'ȩrڍsڍt`)  rڍsڍt`@&`&&ș&ș&&#&& &&&& & &C&@ &&2& &&*,.079=>LhL&L _Lh RLh ALh& ULh Lh@&L"&&  u  hhL[ && &t&&&ޠ& t&&&@L&& ,&(&-&)&& ,&*&-&+& <&(&)&&ٓ&*轰) &L&轰)Թ&& '&L2&& && `&&)&&`& 8 L  s &8 &,&%-&&JmI N-&n,&`8*&(&+&)&NnNnNn &89(&m(&)&m)&L88(&(&)&)& ;L4-ԍ (&m(&)&m)&`" "  21481t&t&)t& t&L"  `w&x&" `w&t&u&v& ڍڍک&&`~&" (t&@iiϐ u`xX'&'&`΄&'&΅& '&&l&&.xmmmXؠ# JJJJ [ ) [ `&͍&&&&L&i&&i&ii `&&(`'&8'''L'i''i'`&&(iiϰ&i&&i&L` u   ` u&&  L&8&&&8 &  &``(@ i@8 L8i ϰiiL`(@ȱϰiiiiL ''.''` C & c&U&& & c&2&& & c&&&LLb Dž& s! &ީۅ&ii !&&&i&&i&&&&&&iiii&&` s! ۅ&ii !&& ii(`& @ .&& L0: &&&&& ` .& L @ 3ʎLm0[:Aɮe& иe& ` e&  ` e& `Sg&Oh&`Sg&Qh&` C 8& ` C =& `B& L`H& L#`i.i`'  `  S e& L}  `Z& `  *j&d&   "  q"  XL"=    L L  `   s&Lt&u&v&    ! K LKg&Th& Q& L    0L   ! R  ` LN  L  !  LZ C `υ8@ L/ eiii`؝ٝڝ`.mi`...#mmii`( s ii` `ƥ` `&&L! ) &m&&m&` Lz!`DIGITAL RECORDING STUDIOSLG   #&#%'c  WF PW PI OC A D S R S R FV PLFOOSC 1 OSC 2 OSC 3]]]]] ]]]]] ]]]]]89 89 89 > > > >=? =? =? =? =? F1 NEXT CONTROL F2 NEXT GROUP F3 LAST CONTROL F4 DISK OPTIONS F5 CONTROL UP F6 RECORDER F7 CONTROL DOWN F8 EDITOR DISK OPTIONS F1 LOAD SOUND F2 SAVE SOUND F3 LOAD SEQUENCE F4 SAVE SEQUENCE F5 SOUND DIRECTORY F6 LOAD KEYTABLE F7 SEQ DIRECTORY RECORDER F1 PLAY F2 RECORD F3 REVERSE F4 FORWARD F5 TEMPO FASTER F6 ERASE F7 TEMPO SLOWER F8 EDITOR EDITOR F1 STEP EDITOR F2 TRANSPOSE UP F4 TRANSPOSE DOWN F6 COMPRESS F7 COPY F8 RECORDER STEP EDITOR F1 NEXT STEP F2 RECORD F3 REVERSE F4 FORWARD F5 LAST STEP F6 ERASE F7 REST F8 RECORDER~. ( FILENAME LOAD SAVE SOUNDSEQUENCEKEYTABLE DIRECTORY$0:.RECORD ERASE@@@ COPY FROM COPY THRU COPY TO REPETITIONS @CHAR f< 1620: CLEAR ARRAYL " ";b I1 (N$) 2s Z$(N$,I,2) Z$" ";  ""  I0 4 "Z$((I),2) , Z$: 6 @"" J F$"" 1530: 1680: CONVERT & DISPLAY T 2010: MENU ^ R0 4( h C0 118 r 580: GETU | Z$"" 460: F1=NEXTq  Z$"" 460: F2=DEL  Z$"" 500: F3=PREV  Z$"" 530: F4=CLEAR  Z$"" 540: F5=LOAD  Z$"" 550: F6=DIR  Z$"" 560: F7=SAVE  Z$"" 490: F8=EXIT% + 5  350A "";:`  C0 CC1: 370: PREVr  R0 RR1|  370 R5:C12::: 1620: 1680: 350: CLEAR/REDISPLAY R5:C12::: 850: LOAD & 2500: 370: DIR 0 1000: 370: SAVE% : ------------------------------9 D 'GET' ROUTINEM NXC33:YR22i X 781,Y: 782,X: 783,0 b 65520: PLOT $FFF0 l 204,0: TURN CURSOR ON v Z$: Z$"" 630  204,1: TURN CURSOR OFF  Z$"" A(C,R)64: F2=DEL/ (Z$)132 (Z$)141 680: FUNCTION KEY PRESSEDAA(C,R)(203)gX$A$(A(C,R)): 1790: PRINT CHARm ------------------------------ SET UP MATRIX I0 64 A$(I) I DL,RT,CR," "," "," "," ",CD 3,W,A,4,Z,S,E,??  5,R,D,6,C,F,T,X4 7,Y,G,8,B,H,U,VJ  9,I,J,0,M,K,O,Nd* +,P,L,-,.,":",@,","|4 \,*,;,HM,??,=,^,/> 1,_,??,2,SP,??,Q,RS," "H ------------------------------R LOAD\T$"LOAD"f 1280: FILENAMEp F$"" 970z 15,8,15$ 2,8,2,F$",P,R"<15,EN$,ED$,ET$,EB$I 2: 15d (EN$)20 970: OK: EN$","ED$","ET$","EB$ 2090 870: TRY AGAIN F$"" 340 F$,8,1 ------------------------------ SAVE 2150: CHECK FOR DUPLICATE) Z$"DUP" 12504 1440BT$"SAVE"X 1280: FILENAMEk$ F$"" 1250. F$"KT.STD" 10508 15,8,15B15,"S:"F$L I1 FV 678I,((F$,I,1))`j 780,1: 781,8: 782,255t 65466: SETLFS ~ 780,F: 781,167: 782,25 65469: SETNAMP 251,128: 252,3: SA^ 780,251y 781,192: 782,3: EA 65496: SAVE15,EN$,ED$,ET$,EB$: EN$","ED$","ET$","EB$ 15 2090 2010  ------------------------------ FILENAME&  19100 DN$< T$""L(F$"":X$""_2"FILENAME";F$r< F$"" 1420F (F$)7 1290P I1 (F$)ZZ((F$,I,1))d Z48 (Z57 Z65) Z90 X$"*":I(F$)1nx X$"*" 1290F$"KT."F$:F(F$)> ------------------------------\ CONVERT ARRAY TO MEMORYk I0 63x LI,64~ I0 11: J0 4 LA(I,J),J12I: ------------------------------ CONVERT MEMORY TO ARRAY  1620 I0 63/ (LI)64 1590P"Y((LI)12):X(LI)Y12],A(X,Y)Ic6i@J ------------------------------T CLEAR ARRAY^ I0 11: J0 4hA(I,J)64r:| ------------------------------ DISPLAY R00 4' C00 11=XC033:YR022Y 781,Y: 782,X: 783,0r 65520: PLOT $FFF0X$A$(A(C0,R0)): 1790: PRINT CHAR ------------------------------ PRINT CHARACTER (X$)1 X$""X$""X$X$" "  ""X$;&&K0 ------------------------------`: FILL COLOR RAMyD I0 4: J0 39N 55296I280J,0X:bl ------------------------------v CLEAR LOWER SCREEN/RESET LINKS DN$ I1 12  BL$;$ I217 2427 I,(I) 128=Ch ------------------------------s MENU~ 1910 DN$ I1 7 2 M$(I);20);M$(I1):  I  ------------------------------* WAIT FOR 'RETURN'4:"RETURN TO CONTINUE"*> 198,0BH A$: A$"" 2120HRm\ ------------------------------f CHECK FOR DUPLICATE KEYSp 1910z DN$ "NOW CHECKING FOR DUPLICATE KEYS..."; I0 63X(I)0 I0 11: J0 4ZA(I,J):X(Z)X(Z)1-::Z$""< I0 63T X(I)1 Z$"DUP"Ze 1910x Z$"" 2330 DN$ "DUPLICATE KEYS FOUND!" 2090 $ ------------------------------. SET UP MENU8 I1 8B M$(I)&L M$(I)"F"((I),2)" "M$(I).V I4` Cj NEXT KEYTt DELETE KEYg~ PREVIOUS KEYy CLEAR TABLE LOAD TABLE DIRECTORY SAVE TABLE EXIT ------------------------------ DIRECTORY 1910 DN$ " DIRECTORY "( LN0:Q0:F$""> 2,8,0,"$0:KT.*"s #2,Z$:(Z$(0))34 QQ1: Q2 Q0: 2560~ 2552 #2,Z$ (ST 64) 2640 (Z$(0))34 QQ1: Q1 2560 Q1 2560,2600,2610( F$F$Z$: 25602 (F$,4):LNLN1!< LN9 26406F F$"":Q0: 2560>P 2IZ 2090Td 2010Zn KT.STD B@@@@@@@@@@@@@@@@ @@@@ @ @@@@@@@@@@@@@@@@@@@SO.STD 0SO.PIANO 0 SO.HRPSCHD 0  SO.VIOLIN 0   PSO.TRUMPET 0 SO.FLUTE 0  SO.DRUM 0SO.FINLAND 0     PSQ.FINLAND '@@@@@@@@@@@@@@@@@@@@@@@@@@@                                                                                 @@@@@@@@@@@@    @@                                       @@                                                                                 @@@@@@@@@@@@                                                   @@@       @@@       @@                       @@       @@@               @@@              @@@         @@@                        @        @@@ @@@@@@@@@@@@ @@@ @        @@@       @@@        @@       @@@        @       @@@              @@@         @@@                                               @@@                        @       @                                 @@