8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RPHASORJ+ ' &PRODOS:J ! 2,BASIC.SYSTEM&(J ! & 'STARTUP; J !HERR.PRFQJ !JSLOT.AEGJ 8VERSIONH J !H (PRODRIVEJJ ! 8(AUTOCOPYN J !/ GET.LENVzJ !0*$TESTX. M!MMUSIC]J M SPEECHJ M EFFECTSJ J& C! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ )f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱ((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ꠙ,<ʆ>*=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <(h`@ڍL3،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)mי_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G 밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H ( )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  , "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8` ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`JGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i п` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@ `@Nȱ@O`؝}I轆ؐ` ~ؽ؝ ~ = ~؝؈` ` H  hh)N@ X; L  H$ )bJ s ) H LhL ) 8  )حJjIHIH؊  )PLEήʱNLMOMEKP%MEKήL< O,  PeNNO f(` R  F 8AJHIHI؊ HIHI`  ;` 8A H ع H ؙ؊ؠIhHIhH  iع `   عiعi` )؍0CGHFHBFG ުhFhG`@5͔ M @Bi ׭` &. J#ع؍0 v讑)`L@. i 8`L L )ܹ0 )p )@ )  ؝X0ZF[G 밝 \]Z[FG 嬒؍r؍s؝t ؝o _) _ )حYͦ `H@h`h``N8`  ) X⬒Ȣ؝@ݪ@ʈLf &KIJHȢݪ)Jn 8  ؍ ؍ xH8 ع)JJJJ Ȣ؝I؈ Hh(8H X &h(8Hh(`ؑ@`@ȱ@ ` B@8Z_ ~鮑ٍٍٍHٍ~8rhs_JJJJ_ )_@` %I -}) 0@_)N8` @LL =@ KȹP8` K@J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHхhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠLL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,LP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8`` XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ %  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL%'()*+,-./0123456789YL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLL7 PHASOR MAIN STARTUP (C) 1986 APPLIED ENGINEERINGvIN$"":64367:H16384:D$(4):C64668:C8(49932)16:6101150:IN847:ER897:UC907:D$"BLOAD"RD$"ERR.PR"(602F$"VERSION":D$"OPEN"F$:D$"READ"F$:V$:D$"CLOSE"F$:70> <ER:D$"CLOSE":V$"Ver ?.?.?":D$"OPEN"F$:D$"WRITE"F$:V$:D$"CLOSE"F$k F216,0:650:VTLC(DS80C88.5)DS80 PDS80S$" ":(49183)128(34)4ĺD$"PR#3":1130 ZDS40(34)4İ1050 dLCĺD$"PR# A"UC n1110:770,DSLC8 x:<=>?@ABCDE1:"Applied Engineering":"The Phasor Menu ":34,4b UL$"":I1DS:UL$UL$"_":I:3:UL$p 22:UL$;z 550 D$"BLOAD"RD$"SLOT.AE,A768":216,0:S(769):SLS:1270:SSL560 1300:1:24:13(DS80));V$27(DS80));" Slot "(769)4 2:25:940(DS80)(MN$AP$));MN$" Apple "AP$S 6:S$"1) Music Programs"r :S$"2) Speech Programs" :S$"3) Sound Effects Programs" :S$"4) Change Phasor Slot" :S$"5) Test Phasor" :S$"6) Exit Phasor Programs"6 (MN$)256RD$"/RAM/"ĺ:S$" 7) Copy Disk to /RAM/"p 23:C:"Please Select an Option:";:1000:KB31ĺQ$; Q(Q$):Q350,360,380,400,395,320 (MN$)256RD$"/RAM/"Q$"7"1400 KB27Ģ20:(7):250 "22::1090:"Do You Want to Quit? ";:1000:KB31ĺQ$;< ,Q$"N"Q$"n"Ģ22::1090:250] 6Q$"Y"Q$"y"ĺ(7);:290g @630 J::49166,0:1130:1070:::D$"PREFIX/":D$"PREFIX":Q$:Q$RD$Q$"/PHASOR/"ĺD$"-STARTUP" TD$"PR#0":640^F$"MUSIC":D$"PREFIX"F$:390ah(AP$,2)"]["İ1070:::F$"SPEECH":D$"PREFIX"F$:F$"STARTUP":770,40((770)41):D$"-"F$r1030:F$"SPEECH":D$"PREFIX"F$:390|1030:F$"EFFECTS":D$"PREFIX"F$22::1090:1030:F$"STARTUP":D$"-"F$1070:::F$"TEST":D$"-TEST"0CHANGE SLOT NUMBER OR GRAPHICS DURING PLAY 1030:12:"Phasor Program is configured for Slot "(769)(" without",53((768)0))" music graphics enabled."23:C:"Is this Correct? ";:1000:KB31ĺQ$Q$"Y"Q$"y"KB27KB13540Q$"N"Q$"n"ĺ(7);:420P23:"What Slot number? ";:1000:KB27KB13540_KB31ĺQ$SX(Q$):SX1SX7ĺ(7);:450SL(Q$)23:"Graphics during Play? ";:1000:KB27KB13540KB31ĺQ$ Q$"Y"Q$"y"Q$"N"Q$"n"ĺ(7);:4903SLSX:769,SL:768,(Q$"Y")(Q$"y")VD$"BSAVE"RD$"SLOT.AE,A768,L2"e1030:170}&ER:E(222):216,00590:1200:1:24:13(DS80));V$27(DS80));" Slot "S:23DD$"BSAVE"RD$"SLOT.AE,A768,L2":400INER:E(222):E4Ģ10:"Please REMOVE Disk's Write Protect Tab, Then Push RETURN";Q$::wX10:"Unable to Save File:"RD$"SLOT.AE":b:"CANNOT FIND PATH:"RD$"ERR.PR"l640vER:::D$"PREFIX"RD$: FIND APPLE MACHINE TYPEID(49048):ID192AP$"///":IDID192:710FID186AP$"//c":MN$"128K":DS80:820lID128AP$"//e":IDID128:710ID64AP$"][+":IDID64:710AP$"][ "ID48760768,0:AD0āAD768808:CODE:AD,CODE:u0,141,9,192,160,127,140,115,192,132,255,136,16,248,200,200,192,128,240,12,140,115,192,196,255,208,244,238,0,3,208,239,141,8,192,169,0,141,115,192,96769:ZY(768)2ID48ZY2MN$(ZY64)"K":IDID48:790ID32MN$"64K":IDID32:790ID16MN$"48K":IDID16  MN$"???""ID4IDID4:7908 ID2DS80:820B*DS40l4(AP$,2)"//"DS80(770)41LC1:>(770)40880H10:"LOWERCASE:abcdefghijklmnopqrstuvwxyz":R"DISPLAY LOWERCASE LETTERS? (Y/N)";:Q$:Q$\Q$"Y"Q$"y"LC1:890fQ$"N"Q$"n"ĺ(7):840(pLC04z1030:kE(222):ER:D$"CLOSE"F$:E5ĺ:216,0:1050:130E20E21ĺD$"CLOSE":1150E6E7ĺ:23:"Path of "F$" not Found":940:23:"Error "E" using File:"F$20::24:"Push Space for Main Menu";:1000<D$"CLOSE"F$:216,0:10::1050:130Q:" ";::(8);49152,128:KB(49152)128:Q$(KB):49168,0:" ";(8);:49152,128:49168,0:VTĹ35,21::35,24:(34)1:(11):22:UL$:(34)1::VIDEX 80 COLUMN VTĹ35,24::C$(34)1:(11):(34)1::VIDEX 80 COLUMN _.VTĺ(21):D$"PR#0":}8(26)(49):D$"PR#0"::BDS80ČC:L(29);:V(49932)130ı`VM49328:XT32:XB8:VM,10:VM1,XT:VM,11:VM1,XB:jVTė:t(26)"0":~D$"PREFIX":RD$:7PHASOR SLOT FINDER?S7rA49168256S:(A1)(A15)(A14)1281240S0SS1:1220769,S:(768)1Ĺ768,1S0ĉ::10:"The Phasor is NOT installed, Please install before running program.":PA49168256S:(A1)(A15)(A14)128ı:VERIFY PHASOR SLOT ON DISK 1200:IF VERIFY FAILS, TRY TO FIND PHASORCHECK FOR PHASOR MODEMC49280(769)16:MC13,0:A49152(769)256:I0(I3I1013402(AI)(AI16)1350<I16II1:1320"FMC8,0PI16ĉ::10:" The Phasor in Slot "(769)" MUST have its DIP switches set for PHASOR Mode!":Zx1420D$"VERIFY /RAM/MUSIC/COMPOSE":1030:22::1090:D$"PREFIX /RAM/":D$"-STARTUP"ER:216,0:::D$"-PRODRIVE":D$"-AUTOCOPY"L ij3 j z z z zL9`hhߚHH`H)@hLh)LVer 1.1.0 LR BY MICHAEL WILKSCopyright (c) 1986 by Applied Engineering)00~ k"gx sIȌ##~ svI ##$###֩s##$#(## $#  ` e HH,H w"$#% ## & & ##Jj8% %x ,,####s$##$%Hˍs(%H k" 32121&'11 k"2)JJJ,, b0Y>b09Bw"DEIKLFG w"-"FFB  )h" g"hh*h ,,`,`k"12`##0 idiؘJJJJ ") "JJJJ ") " ک" # " # ` ֲ砠ˠ!8Je ${ȱ `,?<> ,,8 =';1'H h  <=>?< >   h<(,,L7 <=<= Ȍ Ȍ Ȍ   Í" '# $ ' FG) * )H>Jf>Jf>Jf>?<=? <=<>h 8j?@ADE<= >D@<`L%BxsLLFG`D><@`s(8`4 ********************************************g ** ** ** AUTOCOPY ** ** WRITTEN BY MICHAEL WILKS **  ** WITH CONTRIBUTIONS FROM **3  ** LARRY COLTON AND DAVID KAMINSKY **f  ** **  ** COPYRIGHT (c) 1986 APPLIED ENGINEERING **  ** **  ** MODIFIED FOR PHASOR SEPT 1986 ** MOPQRSTU7  ** ** j  ********************************************u 28672 D$(4):F$(99),V$(30):YES1:NO0 #D$"PREFIX":MV$(0):READ CURRENT PREFIX ' USER OPTIONS: (PROMPTNO )ASKFILENO *EXITFILE$"/RAM/STARTUP"* ,MULTIVOLYES< -MU$(0)"/RAM"\ c TITLE AND USER PROMPTS j dD$"pr#3" eI81828191:V:I,V::104,168,104,166,223,154,72,152,72,96 n:30:"APPLIED ENGINEERING":28:"ProDOS /RAM Copy Utility" xD$"BLOAD GET.LEN" 216,05 MUMV$(MV)"/?"V1$MV$(MV):160 4:958:"Enter name of volume directory to copy ( to quit) /";V1$:V1$"/"V1$ C$"":I(V1$):(V1$,1)"="160 II1:(V1$,I,1)"/"154 A$(V1$,I1,(V1$)I1):V1$(V1$,I)5 I1(A$):V((A$,I,1)):C$C$(V32(V96)):N V1$"/"V1$""1820u MUMU$(MV)"/?"V2$MU$(MV):170 V2$"/RAM/":V(V2$):"Enter name of subdirectory to copy to ";V2$; A$:(A$)8V1167 (A$)8VV1:A$;:167"(A$)13V2$(V2$,V)A$:VV1:A$;:167A(V1$,1)"/"V1$V1$"/"`(V2$,1)"/"V2$V2$"/":PRĢ8:958:"Insert "V1$" and press ";:A$:A$V0:V$""195A$"/":I2(V2$)A$A$(V2$,I,1):(V2$,I,1)"/"ĺD$"create "A$ 19681824 READ DIRECTORY ?1600cD$"fre":D$"open "V1$V$",tdir"vD$"read"V1$V$A$,A$,A$264I199A$:A$""MI:I99::270F$(I)(A$,2,16):II1MIl (222)5Ģ21:958::(7)"WARNING: A system error occurred trying to read "V1$V$;(7):"Not all files will be copied.":I12000:~ (222)Č8182D$"close"F0:F$(M)""+ COPY THE FILES ,1620.(16384)155Ĺ16368,0:18001FF1:F$(F)""180046NM$F$(F):1000:(V2$,5)"/RAM/"NM$"PRODOS"300\;C$""A$(NM$,(C$)):A$C$300x@ASİ1200:NCNC0:300TD$"prefix"V1$V$X347YD$"verify "V2$V$NM$Z300[8182\1620^1100:D$"create "V2$V$NM$",t"T h1300:T15İ1400:300 rB0L120480D|L0L(L20480)20480(L20480)sD$"bload "V1$V$NM$",A$2000,B"B",L"L0",T"TD$"bsave "V2$V$NM$",A$2000,B"B",L"L0;",T"TLL20480D$"PREFIX"V2$V$896:(768)ĺ(7)"ProDOS error":300 Find Length 7I116:(NM$,I,1)" "NMI1:I16M:NM$(NM$,NM):iK GET ACTUAL LENGTH wL7685,NMVI1NM:7685I,((NM$,I,1)):`768,0:816j(768)ė:"ProDOS error, code: ";(768);(7):tL(770)256(771)65536(772)~T(769):& Copy File? h:9:868:"Press to copy, 'N' or to skip."868:"File: "V$NM$" Y";(8);:A$:A$" "A$"N"A$"N"A$"n"NC1:1300 Status 12:15:"Files on current directory left to copy: ";M1F;" "HNCĢ13:15:868:"Now copying file: "V1$V$NM$N(dw SUBDIRECTORY xVV1:V30V30:22:"WARNING: More than 30 directories on stack, cannot copy all files.":V$(V)V$NM$"/"? Error >@21:958::(7)"WARNING: A system error occurred trying to read "V1$V$(7)[JI12000::3288:1800T21:958::(7)"WARNING: A system error occurred while copying "F$(F)^3288:300h21:958::"Cannot run "EX$:: Exit VV$V$(V):VV1:200MUMVMV1130(1640Y&V0:I1(EX$):VV(IV)((EX$,I,1)"/"):r0D$"prefix "(EX$,V):EX$"/?"ĺD$"-"EX$D:13:30:"COPY COMPLETE":23::' Copyright (c) 1986 by Applied EngineeringMichael Wilks ȏ$ ѕ ̚  Ĝ` Ü`  7 PHASOR TEST PROGRAM (C) 1986 APPLIED ENGINEERINGI36352:18432hD$(4):1200:SLOTS:1300p(:25:10:"PHASOR TEST PROGRAM"<:7:"PHASOR WAS FOUND IN SLOT "SLOT:10F9:8:"READ/WRITE TEST":1400P11:TL500\ dD$"BLOAD EFFECTS/BIN.SOUNDS":SN38200:CPSN1:RGSN2:OFFSN3:RSN6:CDSN9:DT38144:SN,SLOT:OFF xD$"BLOAD EFFECTS/SOUND.1,A37376" ,ADDR37376:1000 6N14:N420,430,440,450 @X1TL:X:N JX1TL:X:OFF:::2000 CN0:"LOW CHIME":460WYZ[\ CN1:"HIGH CHIME":4607 CN2:"EXPLOSION":460P CN3:"STEAM ENGINE" CP,CN1:ADT14CN8:A,16((A)16)15:CD: I055:DTI,(ADDRI):I: ADTCN14RN:RG,RN:A,R%256(R%256):R RG,RN1:A1,R%256:R: ADTCN14RN:RG,RN:A,RD:R:1 ADTCN14:TY01060} PAA42:RR(PP((P)256(P1))):P1,RR256:P,RR256(P1):P: $PA:RR(PP((P)256(P1))):P1,RR256:P,RR256(P1) .PP2:RR(((P)256(P1))PP):P1,RR256:P,RR256(P1)C 8PP2:RR(PP((P)256(P1))):P1,RR256:P,RR256(P1):[ PHASOR SLOT FINDERc S7 A49168256S:(A1)(A15)(A14)1281240 S0SS1:1220 769,S:(768)1Ĺ768,1! S0ĉ::10:"THE PHASOR IS NOT INSTALLED, PLEASE INSTALL BEFORE RUNNING PROGRAM.":' B CHECK FOR PHASOR MODEy MC49280(769)16:MC13,0:A49152(769)256:I0 (I3I101340 2(AI)(AI16)1350 <I16II1:1320 FMC8,0)PI16ĉ::10:" THE PHASOR IN SLOT "(769)" MUST HAVE ITS DIP SWITCHES 1 AND 2 CLOSED!":/ZMxREAD AND WRITE TO PHASOR}MC8,0:A2,255:A3,255:AAA128:AA2,255:AA3,255I17:A,2I:AA,0:(A)2IFAIL1A1,2I:AA1,0:(A15)2IFAIL1FAILĢ9:I:FAIL1ĺ:"CANNOT READ/WRITE TO CHIP 1":,9:" "WI17:AA,2I:A,0:(AA)2IFAIL1AA1,2I:A1,0:(AA15)2IFAIL1FAILĢ9:I:FAIL1ĺ:"CANNOT READ/WRITE TO CHIP 2":9:"PASSES":D$"BLOAD SPEECH/TTS":8710,SLOT:8192:In"APPLIED ENGINEERING PHASOR SPEECH TEST":T,"APPLIED ENGINEERING FASOR SPEECH TEST":W:X11000:X"TESTING ONE, TWO, THREE":T,"TESTING 1 2 3..TESTING..1..2..3..TESTING...1...2...3...":W"LET ME OUT OF HERE!!":T,"LET ME OUTTA HERE!":WI:Q38400- (4)"-STARTUP"MUSICuHUSTON!J '  ''STARTUP_ J !%]ERR.PRgQJ !J# ]&PLAYERi ZM !J)](PLAY.BINtUJ !@H ]'COMPOSEyJ !&. ](COMPOSER} J !&- ])COMPOSE.0 J !@1 ])COMPOSE.1>J !1 ])COMPOSE.2J !D@1 ]COMPOSE.VJ !l$$ ]+COMPOSE.DOCQJ !)% ])BREAKDOWN sJ !]1 MUSIC STARTUP (C) 1986 APPLIED ENGINEERING32768:IN$"":64367:H16384:Q$(50):D$(4):C64668:C8(49932)16:5501800:IN847:ER897:UC907:F$RD$"ERR.PR":D$"BLOAD"F$#F$RD$"VERSION":D$"OPEN"F$:D$"READ"F$:V$:D$"CLOSE"F$& (216,0:600:VTLC(DS80C88.5)DS80r 2DS80S$" ":(49183)128(34)4ĺD$"PR#3":1700 7DS40(34)4İ1300 <LCĺD$"PR# A"UC F1600:D$"BLOAD"RD$"SLOT.AE,A768":770,DSLC P1200:1:"Applied Engineering":"Phasor M^`abcdefusic Menu "N Z34,4:1:24:13(DS80));V$;27(DS80));" Slot "(769) d2:25:4((768)1)40(DS80));"Graphics "("OffOn",13((768)1),3) nUL$"":I1DS:UL$UL$"_":I:3:UL$ x6:S$"1) Phasor Music Player" :S$"2) Compose Music Editor"9 :S$"3) Review COMPOSE Instructions"` :S$"4) Convert Song File Types" :S$"5) Phasor Main Menu" 22:UL$; 23:1500:"Please Select an Option:";:1100:KB31ĺQ$; Q(Q$):Q400,300,900,320,250 KB27Ģ20:(7):180E 22::1500:"Do You Want to Quit? ";:1100:KB31ĺQ$;i Q$"N"Q$"n"Ģ22::1500:180 Q$"Y"Q$"y"ĺ(7);:200 49166,0:22::1500:1200:D$"PREFIX"RD$:D$"-STARTUP" ,1200:23:1500:(AP$,2)"]["İ480:KB(49152)128:49168,0:KB2780- 61400:::D$"-COMPOSE"S @22::1500:1200:D$"-CONVERTER"c PLAY SONGS 1200:X((78)(79)256) 23:1500::(49152)155Ĺ49168,0:370 D$"RUN PLAYER" 49264,0:22::23::(49152)155ĝ:>((49252)127)((49253)127)Ė1:"PLEASE CONNECT BOTH GAME PADDLES";:480R:22::1500:o&:"CANNOT FIND PATH:"F$u0X FIND APPLE MACHINE TYPEbID(49048):ID192AP$"///":IDID192:660lID186AP$"//c":MN$"128K":DS80:770vID128AP$"//e":IDID128:660<ID64AP$"][+":IDID64:660JAP$"][ "YID48710768,0:AD0āAD768808:CODE:AD,CODE:!0,141,9,192,160,127,140,115,192,132,255,136,16,248,200,200,192,128,240,12,140,115,192,196,255,208,244,238,0,3,208,239,141,8,192,169,0,141,115,192,966769:ZY(768)2fID48ZY2MN$(ZY64)"K":IDID48:740ID32MN$"64K":IDID32:740ID16MN$"48K":IDID16MN$"???"ID4IDID4:740ID2DS80:770DS40(AP$,2)"//"DS80(770)41LC1:+(770)40820] 10:"LOWERCASE:abcdefghijklmnopqrstuvwxyz":"DISPLAY LOWERCASE LETTERS? (Y/N)";:Q$:Q$ Q$"Y"Q$"y"LC1:*Q$"N"Q$"n"ĺ(7):7804LC0:PRINT COMPOSE INSTRUCTIONS<KB127:4::34,3:1200:4:S8$"":DS80S8$" "G1000\F$"COMPOSE.DOC"D$"VERIFY"F$:D$"OPEN"F$:D$"READ"F$IN:IN$IN$"":(IN$,4)"Push"Ģ23:IN$;:1500:1100:KB27Ģ10::1200:4:950KB271050S8$;IN$:KB(49152)128:KB0950,49168,0:KB271040;1150:950qE(222):ER:D$"CLOSE"F$:E5ĺ:216,0:1200:90E20E21ĺD$"CLOSE":920E6E7ĺ:23:"Path of "F$" not Found":1040:23:"Error "E" using File:"F$20::24:"Push Space for Main Menu";:1100AD$"CLOSE"F$:216,0:10::1200:90VL:" ";::(8);`49152,128:KB(49152)128:Q$(KB):49168,0:" ";(8);:~49152,128:49168,0:VTĹ35,21::35,24:(34)1:(11):22:UL$:(34)1::VIDEX 80 COLUMN VTĹ35,24::H(34)1:(11):(34)1::VIDEX 80 COLUMN dxVTĺ(21):D$"PR#0":(26)(49):D$"PR#0"::DS80ČC:(29);:@(49932)130ıJVM49328:XT32:XB8:VM,10:VM1,XT:VM,11:VM1,XB:VTė: (26)"0":>D$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORYeI2(PR$)1:(PR$,I,1)"/"SLIk&SL0RD$PR$:0RD$(PR$,SL):L ij3 j z z z zL9`hhߚHH`H)@hLh)L* PLAYER (C) 1986 APPLIED ENGINEERING34816:H16384:D$(4):15:D$"BLOADPLAY.BIN":3100:D$"BLOAD"RD$"SLOT.AE,A"H9:IN847:ER897:UC907:D$"BLOAD"RD$"ERR.PR"LM34816:SS440968256:LSLMSS:C64668:C8(49932)16 (DD(770):DD80DD81DS80:LCDD80:558 2DD40DD41DS40:LCDD40Y 7VTLC(DS80C88.5)DS80 <D$"PREFIX":PF$:PR$PF$:D80:(34)4ĉ:1900:34,4:70 ADS80D81 FF$(60),T$(60),JJ(60):MS60:700 P1700:1500:900:700 Z1500:7000 d1300hjklmnopqr:NS0Ģ10:130(DS80):"No Songs Selected"Z n22::C:"Please Select an Option:";d x1650s KB27400 KB13Ĺ49168,0:20:80 Q$:NS0Q$"/"ĺ(7);:110 Q$"A"Q$"a"500 Q$"/"1100 GET SONG NUMBER  J(Q$):20::23:25:Q$" "ĺQ$;0 NS10Ģ20::300P 22::23:25:Q$" "ĺQ$;Y 850w KB(49152)128:KB0220 KB27Ĺ49168,0:90 Q$:Q$(8)Q$""110 Q$"0"Q$"9"ĺ" ":300 J10J(Q$):Q$" "ĺQ$; " ,JNSJ1Ģ23:25:" "(7):1102 6PLAY BY NAME OF SONG < @700x JQ$F$(J):D$"BLOAD"PR$Q$",A"SS",T"T$(J):H3:ES(H13) TF$(F$(J),2):(F$"M."T$(J)"INT")(F$"B."T$(J)"BIN")X$(F$(J),13)" " ^1700:1450 h1900:D80:H:49168,0:::90  QUIT PLAYING SONGS?7 49168,0:D$"CLOSE":216,0 22::21:2000:24:2000:23:2000:23:"Do You Want to Quit? ";:1650:Q$:Q$" "ĺQ$; :Q$"N"Q$"n"Ģ23:2000:80 Q$"Y"Q$"y"ĺ(7);:49168,0:420 22::2000:1700'49168,0:49166,0:770,DD:D$"CLOSE":470;D$"-STARTUP":ER::22::C:"Insert the Phasor Disk and Push Space ";:1650:22::C:20:450SHUFFLE ALL SONGS ON PATHNS0ĺ(7);:1101700:1450:23:"Shuffling all the Songs" X((78)(79)256):L1NS:TJJ(L)3NS1R1:560OR((1)NS1):RL540a&R1RNS540{0JJ(L)JJ(R):JJ(R)T:XPLAY SELECTED SONGb760 lJ1NS:::Q$F$(JJ(J)):F$(Q$,2):(F$"M."T$(JJ(J))"INT")(F$"B."T$(JJ(J))"BIN")Q$(Q$,13)" "%vD80DS80ĺD$"PR#3";LCĺD$"PR# A"UCd20::23:J". Song:"Q$:(Q$)0690Q$F$(JJ(J)):D$"BLOAD"PR$Q$",A"SS",T"T$(JJ(J))KB(49152)128:KB27JNS:690H3:1900:D80:H:49168,0:::49168,0:90ERROR ROUTINES&E(222):ER:E6E87505E255400NE20ĺD$"CLOSE":90W770{:"'"Q$"' not in "PR$:800:90E(222):ER:E6ĺQ$" not in "PR$:800:90E255ĉ::400 E20ĺD$"CLOSE":9023:(7)"Error #"E" in line "(218)256(219):800:400) I0900:I:ZR((95)" ",1(T8),1)(8);:TT1:T16T0`\READ SONGS IN PR$ DIRECTORY 3000:35,24:20::20:"Finding Songs in "PR$:1210D$"OPEN"PR$",TDIR":D$"READ"PR$:NS1700Q$:(Q$,5)"BLOCK"NSMS980W(49152)128("/")Ĺ49168,0:D$"CLOSE":21::21:2000:1100F$(NS)(Q$,2,15):F$(F$(NS),2):T$(NS)(Q$,18,3):T$(NS)"$F5"T$(NS)"MUS"(T$(NS)"BIN"F$"B.")(T$(NS)"INT"F$"M.")940((Q$,66,6))LSNSNS1:".";:940"*";:9401D$"CLOSE"PR$:NSNS1kNS0Ģ21:2000:"No Songs in "PR$:I12000::110020::2000:10:35,20:1700:L INPUT NEW SONG PREFIX AND VERIFYV1700:1450`23::23:"What is Song Prefix:"PF$;:1650:KB27ĺ:21:2000:23:2000:49168,0:80GjPP$PF$:KB8KB127Ĺ49168,0:1120mtKB("/")ĺ:23:21:2000:PP$""~"";Q$:Q$PP$Q$(Q$,1)"/"Q$Q$"/"PR$Q$:23:21:PR$1210D$"OPEN"PR$",TDIR"D$"CLOSE"PR$:21:2000:23:2000:80<21:"Prefix:"PR$" is INVALID ";:2000::I12000:P(222)255400Z11001700:"Prefix:"PR$:I1NS:JJ(I)INS01340(X$F$(I):F$(X$,2):(F$"M."T$(I)"INT")(F$"B."T$(I)"BIN")X$(X$,13)" " 2(" "(I),2)") "X$" ";:I:" A) All Songs ";><" /) New Song Prefix ":b20::23:2000:24:2000:20:PRINT HEADING AND LINES10::D80DS80ĺD$"PR#3":D81LCĺD$"PR# A"UC1:1:"Applied Engineering":"Phasor Music Player ":34,4!1:35:40(DS80));"Slot "(H10)m2:29:((H9)1)40(DS80));"Graphics "("OffOn",13((H9)1),3)UL$"":I1DS:UL$UL$"_":I:3:UL$"22:UL$:@20::23:2000:24:2000:20:r:" ";::(8);|49152,128:KB(49152)128:VTĹ35,21::35,24:S(34):(11):22:UL$:(34)::VIDEX 80 COLUMN gVTĹ35,24::(34)1:(11):(34)1::VIDEX 80 COLUMNlVTĺ(21):D$"PR#0":v(26)(49):D$"PR#0"::DS80ČC:(29);:1:' S8$" ":DS80S8$" "Q 4::S8$" PLAY INSTRUCTIONS": :S8$"Enter a number to play one Song"::S8$"Or 'A' to play All songs listed" :S8$"Or '/' to change the Prefix"  D$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORY+& I2(PR$)1:(PR$,I,1)"/"SLI10 E: SL0RD$PR$:YD RD$(PR$,SL):L>@LELCH$=b 0 s  j  x + S hEx X [D CF'G֝GG WGXG?G @ @ ȱeȱe~FF I F8F D qDB 6DB@B@BLA 6D@B@BF -BL^F}XGFF}YG݉GMFGFGLzAFpGFFqGݡG(FGFGLzAFGFFGFFF)GG uE 3DF  =DFJJJJ MDLAF)G F(GFFF  B`FFɭ0)  6D BL@ɛsuvwLC :0ȰLBLBLCʰL 127) OR ( PEEK (49253) > 127) THEN HTAB 1: PRINT"PLEASE CONNECT BOTH GAME PADDLES";: GOTO 25B22528::64668: (B6,0:B5,128: COMPOSER LOMEM:32768D 2253,0:254,192:255,29:235,58:608,240:609,0e <:21:12:"LOADING COMPOSE" FH16384:D$"BLOAD PLAY.BIN":500:D$"BLOAD ERR.PR":D$"BLOAD"RD$"SLOT.AE,A"H9:H6 Z896,(H10):9:23:"CONFIGURED FOR SLOT ";(H10) dD$"BLOAxz{D COMPOSE.0", n1014,(H2):1015,(H3)F :4:34,20:16303,0_ D$"BLOAD COMPOSE.1" 1:Y31556:0,Y279,Y:0,Y36279,Y36::Y1441566:0,Y94,Y::27,13227,149:3:0,310,55:0,670,91:Y122157:112,Y142,Y: B8192 V:V0ĺD$"RUN COMPOSER"% V127AV:V; AB,V:AA1:220 168,57,48,297,12,339,21,467,126,512,65,9,641,7,768,89,4,1,897,32,1321,6,1491,127,1536,65,16,1664,65,3,1921,35,2216,49,48,2345,2,2515,63,2560,65,16,2688,97,3,2816,25,9,1f 2944,64,35,3241,48,3,3369,1,3539,30,3584,65,16,3840,17,8,1,3968,64,35,4136,97,7,4265,48,3,4392,97,4608,65,24,4736,113,2/ 4864,17,80,4992,64,16,5160,17,12,5289,48,5505,2,5760,57,62,5888,33,48,6017,15,6184,9,24,3,6313,24,6440,9,6483,21,6529,7,6657,13,6784,25,127,6912,65,31,7208,9,24,3,7507,124,7681,15,7808,89,69,1,-1` D$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORY I2(PR$)1:(PR$,I,1)"/"SLI  SL0RD$PR$: RD$(PR$,SL):#(C) 1986 APPLIED ENGINEERING332768:44(4)"RESTORECOMPOSE.V":P(D)(D)Z(D1):BP(H):S%(896):Q49169ZS%G(770):1:21:V1:":NEW?";:300:N$"Y"įD:E:F:G:EC,V:10,(608):11,(609):HE0:B; H8,2:1:23:"LEN:";:5:D(.5L240P(608)):D10.65P(608)Ğ D;::11(0));"QTR:"P(608);:C:48:D(.5(P(250))):22:1:202 D192ĹB17,D:I:"NOTE ";("CDEFGAB",1(674),1);:N(632(671)):N1N128(N127):("FNSS",N,1);(673);" ";:20 |~D192N$"REST":17) D205DD45> D202N$T$(13)V D210N$"END":17o D203N$"STOP":17 N$T$(D192) N$P$; I(1P(250)):N(2P(250)) D194ĺIZ(I127);:26 D200D204D206ĺP(1P(250)); D208ĺI"/"N; D207I0ĺ"C";:26L D207ĺI128(I127);("FS",1(I127),1);q D205ĺ("ON OFF",13(N0),3); D201ĺ"SUB ";:D(EC):J:Z(EC);:EC,D C 1:24:V(EC):V128ĺ"VOICE "V;:29 " ";ZV;> 3);:12:K:"MEASURE ";P(B14);4);:27:"FREE ";:D((P(B6)P(B4))3):D50Ğ` D;:C:1:21::":";::C:Lu D(H9):D059 !D150 "D(H11):D20İ46:LL((8561)0)5(P(H6)19D)(D19)1280:48:46:7 #D23İ132:8 $(D22)37,38,40:8 %M:% &(8564)D(P(250)):42. 'N:7 (O:= ) *D2(D24):D192I2(D24D2)P(H4):IP(I)(2D2):Q,0:201:D2(IZ):Q,ID2Z:200:Q,1:201:Q,D2:200:Q,8:201:Q,12:200 + ,897:21:2:(222)22Č842 -H8,0:8.253,255:P:253,0:;0D(.5L240P(608)):D0D65535ıW111,DZ:10,DZ(11):h2C:D19258{3671,(100D)34N(9576):N17į5:555N18įQ:556N50įR7D(671):D0D31ĹH8,20:A:88I(D7):DDI7:D30I24D42(D2)D9N(632(671)):NN1128(N127):DDN:D30ĹH8,20:A:8:42:237,D:238,(10):239,(11):N(9576):137:DN8:132:98;21:1<C$P$:":";:N35:142:250=N$""N$"?"Ģ21:2:C:141>(N$,3)"PRE"165?I$E$8 @(N$,3)"CAT"1705AI128:(N$,3)(T$(I),3)E0:70<BIQCEE1:H8,32:AjD1:1:C:1:E2141qE8F21:2:T$(I)P$;:CGI13Ĺ237,I192HI11C$","II22C$E$J(I22I27)I8I1077KN64:142:I$E$8L138:I895YMI778,108,6,115,94,111,122,122,122,120,81,104,113,102,100,400,5,86,110,129,160NI1(B):D(745I):("111P333P222P444P",1D,1(D(D4)4)2);:I:11:S:6Q139:6,(N$)Z:5,(N$)Z(6):8,DZ:7,DZ(8)-R" <";:N13:142:F$"-":139:N(N$):F$"/":DD127(D0):N0D0ī8ZS">V";:I$:(8);I$;:I$"S"NZN:DZDyTI$E$((B1)0I$"S")8UEC,N:237,D:T:6VC$E$:21:2:"NUMBER OF VOICES=";(B);:19:N3:142:I$E$N$""91WD(N$):D(B)D1286&XD(B)ĹEC,D::D$"-"A$".2":21:D$L$A$".0";[(P(B4)160),0\1:21:C:I14:1:22:"TITLE LINE ";I:DP(B4)I40199:61,DZ:60,DZ(61):U:1:21:N40:142:N$""įV]1:21:C:I:22:C:6^237,204_138:I2DD65024:D65024DZD`D0D65535450a239,DZ:238,DZ(239)jb202:D(P(250)):D255D203D202(8556)0įW:8wcX:Y:8dD0D13ĹEC,D:He8fD0D65536Ĺ251,DZ:250,DZ(251):Zg8hN(B1):N0D08iD0DNDNjD0D127:13:"ADDED";:0:G)kEC,ZD:H:8=lD(B1)D18bm62,255D(B1):1:DP(60):96nD$L$"PLAY.BIN":H10,S%:H12,BZ:H11,BZ(H12):H3:H:D$L$"ERR.PR":D$L$A$".0":2:204:7o237,205:D0:(N$,2)"ON"D24576p96%qD0D65536İ46:LD240P(608)::49:46,r7>sD0D25545_t237,D:I12:",";:E1(0)zuN5:142:138:I$E$7vD0DZĹ237I,D:I:98wE:C:A:117xD0D10922D655363D:683,DZ:682,DZ(683):6:7y8z237,237I{I1395,124,127!|D0D745:}(N$,1)"S"DD128B~96i139:(N$)0(N$)19D0D1645}D(N$)ZD:96340:F,255:D$L$N$",A"B",T$F5,L$2800":(F)255622:11::"NOT ENOUGH MEMORY"::D:6 253,255:N(9576):H10,24:N0135137+H12,N:3:H12,D8:D8Nį3P253,0:H10,17:yN(N17)168(N18)176(N50)160:D(N$):D1:C1N:(N$,C,1)F$D(((N$,C1))):C:49233,0:20:1:"PUSH SPACE ";:I$:49232,0:721:N$P$TC1N1:I$:I$E$I$C$I$(13)(N40I$P$)(N35(I$"@"I$""))152|I$(13)I$B$CN1įA:CC1:CI$(21)I$((1616(0))128):I$P$I$((I$)64)C1I$B$įA:142I$B$CC2:N$(N$,C1):150I$P$CC1:C-N$N$((I$)32(I$"a"I$"z"))9I$;:CTN$(N$,2):C:X(0):vC1I$(13)I$E$I$C$151144340:163D$"BSAVE"N$",A"B",L"P(B4)B1",T$F5":448897:44D$"CREATE"N$",T$F5":161;21:2:C:"PREFIX "PR$;:9:N65:142:N$""(N$,1)"/"N$N$"/"NI$E$PR$N$U821:2:C:"CAT "PR$;:6:N65:142:::N$""N$PR$D$"CAT"N$:"PUSH SPACE";:Q$::4:49232,0:6Q1,6:Q1,4:Q1,7:Q1,4:Q,8:201:Q,0:200:4:34,20:$I$B$įM:89I$(21)İ38:8SI$(4)I$""įO:8rI$(9)DP(B14)1:102I$E$C1I23:T$"QUIT":70I$"/"I$":"D(I$)10(I$"0"):100I$"-"I$"="D11(I$"="):100"61 ,21:8:"(Y/N) ";:N1:142"6N$"Y"N$"N"ı1@(7):300JTN$"="N$S$:B$N$;lYS$N$:(N$,1)"/"N$PR$N$r^300:N$"N"8::770,G:38400:430D$"-STARTUP"X@@@cE Og1h9 c<i,A T@HS@HLwE@IzRSIURPMT{QELLR@GNNSZTIIRRJQAJIUFUNSJSTWP`8 H)?h ξο%ۢ @(x`Hi)Dž  f &f & fh`i @Ȅ #A `$Q,`7:(^+] kA kA= kA`H @U0 A)` #A A #A A) #Ah`j0`0*0j` A0 @A*AiAh \=U0 AQ)`Q Ax` A A` @ A0BC ~E`BaC E@A<=` A=< 7B B`c E 9EL O8 q LOB8 q LBHHH B Bh  hh`hhLB  ȱ /Al/ CiLB ALB'$0% @`$0 ALBH 7  CD[  C Bh`5H8% H80H8 DD Bh`H%LC)8 Ah8``H8 Ah` @ #A `+ =O8`` CHii  Ch`Hi @ Ch` jC C A`& A` jC C  C C`) jC C  C A`! A A A` jC C$ .D C i DD`8 DD`& A. A` jC C .D C@LcD0LnD# DD$ A` jC C .D C`LcDPLnD" ?D# A` C .D CLcDpLnD ?D DD`  C A`( A`TCDC4CCC DCD$DD*DMD'DSDDPDDDDDDDDE `H@0$  @L;D6<Be<?D` D@A6< AC@B8@B@ACA<=D` F ]G0`,b0K,a0, @H GhM @) @ F FH Ghͅ lGLE @А)JqoK F @ lG F`ɾ ɮɋɼ:ɬ6Ɋ5TP΢,@i@ @@@LE,@8@ @@i@LE @HЍ @ Fh @LF G @H+k@ @JJJ @ .8% ə*" A" AI8i,3E" B@h`Hk@+ %B@h` G# AGHk@ %B@h xE%@ AL/A,d e ( }@ @ @ @ @` GIJiJJ mig ``` H8B<C= ʈ< HЭ`BWCWH 8`NOT`ENOUGH`MEMORYX ȹXWXiBXiWCLI@BACB $HB>-Bͥ=ɬX5Ji<>W`  SX5Ji R<Xy)Ji8XHX5JʑȊhX5J`ݤJ8``ʭW8 W`Wa`LPL\O J L`W` A B AC!C CC!CLK |Q JW QM0 J JLOK A: A B LLK 7Lе MWWWW W@WA W@WA8W@WWAW8W@WWAW A A=< 0B L'WJWEW W A N#  A&`LZK ` A NWLhKW`LPL.QLPWLWWWW L L8WWWWWWWWmWWWmWW L` JW J L0 7L QM`0  >MLJ LLJ8WWWWWW` OWW`ii` *M JW J |Q >M JL!Mξ`8`'`HWh`8i iJJ)i mI8id)Ο ML[Mx)ͣ N` N` N` `0H AhL>CLNCL.C` B B B CLxL @+`J+4G rNͤ rN"4G AG @I8i N< =  F`` H+k@L!GcE@A`BaC ~E0BC E`x) Nx`Ο N`x) Nxxxx` N`x) x` 'ww`3/+'%!i Nʎix)m`TO O` AbMW0b8bWwvW)v L2v*P AW0 >C P >CLO .C P .CvΦ O .Q`b)wWv OLuOw! LvP A NC P NCvw`i*` PHHp AW GPW* GPhh B A`) H \PhȊHiHH DDhi$h DDh`&# $!%""%!$ #&%"+((+".%1`@aAW BC ~EWBC EMLJ |QLQLIDmW 8WLRIi IBi>Ci?X85Je>?i` RLRXX XiXiX`X \R |QiWiW`WmWWmW` RLJ R`>?WC=?< J < $H@>A? -H RX$ iX ~SXmXXmX` R`芅 S)XXI `Ȅ STA `P)   PH)h xE$гP O S芅 SX`Ѝ S L+ȱ@ȱABC ~EBC E<ȥ= JP0X쐨`mWЛ`8W( R2>=3 **@0  0@g-)i))-g  { ))II 1I aAI1y 9 ypp &cCCCCCc&  ?#af`0O=#ac00ca#0$42210xO91``ba33aaasn`c18Xw@$BAC ~E<mW=mW mi85JX5J !@WBAC ~Ee<e=BC H`X iiXL@ H RXhX 8W頙XWXXLAWi$XXiX S R S *MˠVI'XWLB R>?AC @WB ~E<= R BP R8 >?<I= IKHʍbH B R> $H8<B=C8 -H JmWLA R8> ?W J BXiXiWȭI IKHɍbH S U L 魬`)Je I8e<=HXy)Jhi`(C) 1986 APPLIED ENGINEERINGDEBFPHECl :DLpB@`QIhZALFNST^ ߕٕԕΕǕ  xrkfb_[WSOSAVELOADPLAYEDITNEWQUITVOICEMEASURELENGTHSUBROUTINESPEEDDELETETIMEKEYQUARTERPERCUSSIONTEMPOPOKERETURNCALLPOSITIONRELEASESUSTAINVOLUMEDECAYATTACKTRANSPOSEGAPS...BLOADCOMPOSE / IMPORTANT! When creating a new song file, press Tab, Ctrl-I or MEAsure 0 to advance to the first note position. {} Required Data () Optional Data PRODOS COMMANDS CATalog (Pathname) PREfix (Pathname) LOAd {Pathname} or {=} SAVe {Pathname} or {=} Push Space to Continue RANGE OF KEYBOARD COMMANDS Command Range Default PLAy QUIt NEW KEY {1..7} {S,F} or {C} C TIMe {1..19} {/} {1..16} 4/4 TEMpo {1..65535} 4096 MEAsure {0..65535} EDIt VOIce {1..12} 1 POSition (123412341P2P3P4P) DELete {1..65535} TRAnspose {-127..0..+127} 0 Push Space to Continue SUBroutine {1..127} or {0} for New SUB CALl {1..127} QUArter {1..65535} 240 LENgth {1..65535} 240 SPEed {1..65535}(/1..65535) {1..127}(-)(2..127){S or V} ATTack {1..65535} 8192 VOLume {1..65535} 55000 DECay {1..65535} 25 SUStain {0..65535} 0 GAP {1..65535} 20 RELease {1..65535} 65500 PERcussion {ON,OFF} OFF Push Space to Continue SINGLE KEY COMMANDS 1234567890-= Voice 1-->12 <-- --> Edit Cursor Up Arrow Ctrl-K Pitch Up Down Ctrl-J Pitch Down < > or , . Option Window Delete or Ctrl-D Delete Command Tab Ctrl-I Next Measure I Insert Toggle Escape Quit Composing Other Control Keys Help Menu Open-Apple PB0 Enter Note/Rest Closed-Apple PB1 Window Command Push Space for Main Menu M  < , p?l<n<x<n<l<n<l<n<x<l<n<x<n<x<l<n<x<g<h<x<n<x<l<n<h<n<g<h<`xYxZxrxhx`xZ<g<h<r<hx^x`<h<n<x<r<n<g<h<`xVx`xYxZxrxhx`xZ<g<h<r<hx^x`<h<n<x<r<n<g<h<`xx`xZxVxZ<\<^<d<h<n<xxrxn<r<g<h<`O<P<`<T<V<`nxnxhxnxnxhxg<h<n<g<hxnx`xdxhxdx`xYxZxh<d<`<Z<PxZx^x`xdx`xxx`xn<g<h<n<h<d<`xZxh<d<`<Z<PxZx^x`xZx`xxx`xn<g<h<n<hx`xVxZx^xdxjxdx^xVx`<d<g<h<r<n<g<h<PZ0xx&xx0xx&xx0xx&xx0xx&x)xb*xx xx*xx x*x0xx&xx0xx&x)x*xx xx*xx x*x0xx&xx0xx0x*x&xx4xx&x&x*x.x0xx&xx0xxʳxxxxxx<<xxxxxx<x<<<axxxxxx<<xx<x<<<ʸaaaɸVxVxxVxxVxxVxxVxxVxxVxVxYx0xZxxZxxZxxZxxVxxVxxVxVxYxZxZxxZxxZxxZxVxVxxVxxVxVxZxx^xx^xx^xxVxVxVxxVxVxx^<\<Z<X<ʁPxPxxPxxPxxPxxPxxPxxPxxPx8xPxxPxxPxxPxxPxxPxxPxxPxPxPxxPxxPxxPxxPxxPxxPxxPxRxRxxRxxRxxRxPxPxxPxPxxX<V<U<R<ʉHxHxxHxxHxxHxxHxxHxxHxHxLx@xHxxHxxHxxHxHxHxxHxxHxxHxxHxxHxxHxxHxHxHxxHxxHxxHxLxLxxLxxLxxLxHxHxxHxHxxP<N<L<K<ʑ`xhxxxxVx`xhxrnhnh<n<f<d<`x`xxxxrxr<h<d<`<g<h<`xx`xhxnxrZvxrxr<x<q<r<g<h<^<`<Vx`x`xZxVxZ<\<^<d<j&r&x&vn<jxdx`x`xxhx`xxxxHVxZ<\<^<d<h<n<xxrxn<r<g<h<``xZxAdxVx^xdxjxdx^xVx`<O<P<`<O<P<Z<V<`hxfxʕ4xx&xx4x&x*x.x0xx&xx0xx8x6xRxRxxRxxRxVxRxPxPxxPxxPxVxUx@ LxLxxLxxLxPxLxPxPxxPxxPxPxNxʑ FxFxxFxxFxFx>xHxHxxHxxHxHxBx 'Vd`3 RRPl ,VVVʢ ,LLP >&0 @PZ`ZZ`ZZZɕɕPɕȯɕŸɕŨaɕŘ:ɕl AHĐHHAAPAȯAŸAŨaAŘ:A3 B@K&x)xɳbɳbɳbɳbɳ`&x)xɳPȯŸŨaŘ: JV(`aaɸaaaɸaaaɸaaaɸaaaɸaɸaaPaȯaŸaŨaaŘ:aD!@P'2Ɂ0Ɂ0Ɂ0Ɂ0ɁɁ@ @ ȯ@ @ Ÿ@ Ũa@ Ř:@ ɢ Ei@P'2ɉ8ɉ8ɉ8ɉ8ɉɉɑ ɑ ȯɑ ɑ Ÿɑ Ũaɑ Ř:ɑ H@P'2ɑ@ɑ@ɑ@ɑ@ɑɑ ȯ Ÿ Ũa Ř: 3 F0`ĐZZZAAPAȯAŸAŨaAŘ:A3 I ŸZZHH0HZɕɕPɕȯɕŸɕŨaɕŘ:ɕl PZ`ZZ`ZZZɕɕPɕȯɕŸɕŨaɕŘ:ɕl ĐHHAAPAȯAŸAŨaAŘ:A3 @K&x)xɳbɳbɳbɳbɳ`&x)xɳPȯŸŨaŘ: Ȫ٠ΠΠҠԬ̠өĠ٠ĠΠéĠǠ])CONVERTER JJ !" ]< CONVERT MUSIC SONG TYPES (C) 1986 APPLIED ENGINEERINGH44096{IN$"":D$(4):C64668:C8(49932)16:KS49168(10:2100:IN847:ER897:UC907:F$RD$"ERR.PR":D$"BLOAD"F$2DD(770):DD80DD81DS80:LCDD80:65 <DD40DD41DS40:LCDD40( AVTLC(DS80C88.5)^ FD$"PREFIX":PF$:PR$PF$:D80:(34)4İ1900:90n PDS80D81 ZDIR$(60):MS60 d20::D80DS80ĺD$"PR#3":D81 nLCĺD$"PR# A"UC x1:1:"Applied Engineering":"Phasor Music ":34,4# 1:24:740(DS80));"Music File"O 2:25:240(DS80));"Type Converter"v UL$"":I1DS:UL$UL$"_"::1700 3:UL$:22:UL$ 23:2000 22::"Source Path:"PR$;:1650:KB27Ĺ49168,0:900 PP$PR$:KB8KB127Ĺ49168,0:180 KB("/")PP$""::23:13:20007 "";SP$:SP$PP$SP$V (SP$,1)"/"SP$SP$"/" IN$SP$:930:SP$IN$:4:" Source:"SP$;:2000: 23:2000 22::"Destination Path:"PR$;:1650:KB27ĹKS,0:20::170 PP$PR$:KB8KB127Ĺ49168,0:250. KB("/")PP$"":20::23:18:2000V KB("=")ĹKS,0:DP$SP$:20::300n """;DP$:DP$PP$DP$ ,(DP$,1)"/"DP$DP$"/" 6IN$DP$:930:DP$IN$:5:"Destination:"DP$;:2000: @34,7 J23:2000 TI0:12:"Finding Songs on "SP$:800 ^D$"OPEN"SP$",TDIR"0 hD$"READ"SP$^ rDIR$(I):(DIR$(I),5)"BLOCK"IMS1400 |T$(DIR$(I),18,3):F$(DIR$(I),2,2):(T$"BIN"F$"B.")(T$"INT"F$"M.")T$"$F5"T$"MUS"II1:"."; 370 D$"CLOSE"SP$ NSI1:1700:SP$" Songs Below"4I0NS:(DIR$(I),2,20);:I:|23:"Convert Songs to What File Type:MUS";:1650:KB27ĹKS,0:120KB13ĹKS,0:IN$"$F5":20::47020::23:33:2000:"";IN$930:TD$IN$:6:" New Type:"(TD$"MUS",13(TD$"$F5"),3)\23:2000:"Convert All or Selected Songs (A/S):";:1650:KS,0:Q$(KB):KB31ĺQ$;kKB27120:Q$"A"Q$"a"CS1:530Q$"S"Q$"s"CS0:53020:(7):4801700:23:2000:"Push Esc to Stop Converting"S0&CS161000XX$(DIR$(S),18,3):XX$"MUS"XX$"$F5"I5SP$DP$XX$TD$770:23:2000:"Convert "(DIR$(S),2,15)"?";:1650:KS,0:Q$(KB):KB31ĺQ$;D:Q$"N"Q$"n"780NQ$"Y"Q$"y"Ģ20:(7):570X23:2000bXX$(DIR$(S),18,3):XX$"MUS"XX$"$F5"(gSP$DP$XX$TD$770dl8:"Converting:"SP$;(DIR$(S),2,15);:2000::10:2000nv800SS$(DIR$(S),2,15):ST$(DIR$(S),18,3):10:D$"BLOAD "SP$SS$",A$4800,T"ST$ FT$"Let Me finish converting this song":(49152)155Ģ23:FT$;:2000:+SP$DP$ĺD$"DELETE"SP$;SS$O(49152)155Ģ23:FT$;:2000:zST$"BIN"(SS$,2)"B."SS$(SS$,13)(DIR$(S),18,3)TD$SP$DP$770ST$"INT"(SS$,2)"M."SS$(SS$,13)TD$"BIN"SS$"B."(SS$,13)TD$"INT"SS$"M."(SS$,13)$10:"To:"DP$;SS$BD$"CREATE"DP$;SS$",T"TD$f(49152)155Ģ23:FT$;:2000:D$"BSAVE"DP$;SS$",A$4800,L"(DIR$(S),67,5)",T"TD$(49152)155Ĺ49168,0:850 216,0:SNSSS1:550850 E(222):ER:E10680*E255Ĺ49168,0:_4E19Ģ10:"To:";::" Duplicate File Name ";::(7):J11000:J:780>E6E7Ģ15:(7)"Path Not Found":I13000::150H10:"To:";::" *** CAN'T COPY *** ";::" Error "E(7)" in "(218)256(219):J11000:J:780OR20::23:2000:"Do You Want to Quit? ";:1650:49168,0:Q$(KB):KB31ĺQ$;U\tf(Q$"N"Q$"n")SNS120pQ$"N"Q$"n"Ģ23:"Push Esc to Stop Converting":780zQ$"Y"Q$"y"Ģ20:(7):8503840034,3:1700:34,4:23:2000:5:925D$"-STARTUP"WQ$"":I1(IN$):Q((IN$,I,1)):Q("a")QQ32qQ$Q$(Q)::IN$Q$:@20::23:2000:24:2000:20:r:" ";::(8);|49152,128:KB(49152)128:VTĹ35,21::35,24:"(34)1:(11):22:UL$:(34)1::VIDEX 80 COLUMN 6VTĹ35,24::g(34):(11):(34)::VIDEX 80 COLUMN lVTĺ(21):D$"PR#0":v(26)(49):D$"PR#0"::DS80ČC:(29);:1:4D$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORY>I2(PR$)1:(PR$,I,1)"/"SLI!H5RSL0RD$PR$:I\RD$(PR$,SL):SPEECHuHUSTON!J '  ''STARTUP J !H #TTSs$J H *DR.FAY.ZOR |J ! -TALK.KEYBOARDEJ ! -TALKING.CLOCK J !J *SPEECH.ADJM !M .EDIT.TTS.PARMSJ !J 2 SPEECH STARTUP (C) 1986 APPLIED ENGINEERINGC18432:320IN$"":D$(4):1150:IN847:ER897:UC907:D$"BLOAD"RD$"ERR.PR"(5502C8(49932)16:D$"BLOAD"RD$"SLOT.AE,A768":SLOT(769) 7(49048)128VT0:LC((770)41):DS40:90:APPLE ][= <216,0:DD(770):DD80DD81DS80:LCDD80:80M FDS80D81o PDD40DD41DS40:LCDD40 ZC64668:20::DS80SP$" ":(49183)128(34)4ĺD$"PR#3":1130 _DS40(34)4ĉ: dLCĺD$"PR# A"UC= n1:"Applied Engineering":"Phasor Speech Menu ":34,4:49162,0b x1:34:40(DS80))" Slot "SLOT UL$"":I1DS:UL$UL$"_"::UL$:22:UL$:5:1200 H30464:((116)4)256(115)H170 D$"BLOAD TTS":8710,SLOT:8192:I1 5:S$"Welcome to the Applied Engineering Fasor Speech Menu.":900d 6:S$"1) Doctor Fay Zor's Advice":SP$S$:900 :S$"2) Talking Keyboard":SP$S$:900 :S$"3) Talking Clock":SP$S$:900 :S$"4) Speech Parameter Adjust":SP$S$:9004 :SP$"5) Edit Speech Parameters":S$"5) Ehdit Speech Paramiters":900q :SP$"6) Phasor Main Menu":S$"6) Fasor Main Menu":900 22::1090:S$"Please Select an Option:":S$;:900:49168,0:1000:KB31ĺQ$; Q$"1"İ1200:D$"-DR.FAY.ZOR" Q$"2"İ1200:D$"-TALK.KEYBOARD"3 Q$"3"İ1200:D$"-TALKING.CLOCK"V Q$"4"İ1200:D$"-SPEECH.ADJ"} "Q$"5"İ1200:D$"-EDIT.TTS.PARMS" ,Q$"6"Q$(27)ī400 6T,"Please Push 1 thru 6 OR Escape Only. Now ":W:240 @:"CANNOT FIND PATH:"RD$"ERR.PR" J%T:"CANNOT FIND PATH:"RD$"SLOT.AE"+^>Q$(27)45022::1090:S$"Do You Want To Quit? ":S$;:1000:KB31ĺQ$;Q$"N"Q$"n"Ģ22::1090:240Q$"Y"Q$"y"ĺ(7);:4101030:22::1090(49048)128ĺD$"PR#0"::,1150:I:Q:20:D$"PREFIX"RD$:D$"-STARTUP"@(49152)127ıOT,S$:W:d:" ";::(8);49152,128:KB(49152)128:Q$(KB):49168,0:" ";(8);:49152,128:49168,0:VTĹ35,21::35,24:(34)1:(11):22:UL$:(34)1::VIDEX 80 COLUMN %VTĹ35,24::V$(34)1:(11):(34)1::VIDEX 80 COLUMN r.VTĺ(21):D$"PR#0":8(26)(49):D$"PR#0"::BDS80ČC:L(29);:V(49932)130ı`VM49328:XT32:XB8:VM,10:VM1,XT:VM,11:VM1,XB: jVTė:t(26)"0":L~D$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORYsI2(PR$)1:(PR$,I,1)"/"SLIySL0RD$PR$:RD$(PR$,SL):1030:22::1090: ` A"w# @rwD IBv J Lwnw 3 L 3 Lw # wfghijk`8` ` @ x x` " L  ! !` (?!JJJJ8`)`ЍȮ٬بéĠ !% %!kRg Hp ATM0BTt2U`k Azq1k0B8l `  '%  4"AL(Q(0+qkqsDLwLry @Zxحw _wgw^ydyjypyAyJyPyLzwRyxxxw CŠ w@` wL LwIWTSQ"minute. In order for the Program to work";H"Your Apple // MUST have a TIMEMASTER II ";R"which MUST be set to the TIMEMASTER MODE";2\"and a PHASOR set to the PHASOR MODE."8fT----------------------q TIMEMASTER SLOT FINDER|SLOT0I17ADDR124096I256:$CS00(ADDR)8(ADDR1)120(ADDR254)178SLOTI:I72$AP(ADDR255):AP3ĺ:"Your Timemaster II must be in TIMEMASTER MODE":j.SLOT0ĺ:"Timemaster II is NOT in the Computer":8:420(DD80))"Your Timemaster II is in slot "SLOT:----------------------READ THE TIME AND PARSE PARTS842:READ TIME TO $200 FROM CLOCK FIRMWARE $Cs08 0T$(IN$"",2)Q2:23:40(DD80))(T$,2){HX12:MUST BE IN TIMEMASTER FORMAT HU((T$,HX,2))HU0HU12 HU12HUHU12MT((T$,HX3,1))MU((T$,HX4,1))(TEST:1600HU4MT05:MU09$290,:2U@VERIFY TEXT-TO-SPEECH PRESENTJH30464:((116)4)256(115)Hĺ(4)"-STARTUP"TD$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORYI2(PR$)1:(PR$,I,1)"/"SLISL0RD$PR$:RD$(PR$,SL):2VTĹ35,21::35,24:k(34)1:(11):22:UL$:(34)1::VIDEX 80 COLUMNlVTĺ(21):D$"PR#0":v(26)(49):D$"PR#0"::DS80ČC:(29);:1:. SPEECH.ADJ (C) 1986 APPLIED ENGINEERING@(34)4ĉ:_2:"Phasor Speech Adjust"5:8:"S and F Control: Rate"(7:8:"<-- --> Control: Inflection"-9:"Up/Down Arrows Control: Pitch"211:8:"< and > Control: Volume"4 <A$"Peter Piper picked a peck of pickled peppers."@ F20:A$u P23:"Push Escape for Phasor Speech Menu";:19: dH30464:((116)4)256(115)Hĺ(4)"-STARTUP" nV(H7):R(H8) xF(H15):I(H9) T,A$:W (49152)128CO0:8405 (49152)155įW:I:Q:49268,0:(4)"-STARTUP"U 49168,0:C(49152):C$(C)c C10400q C11450~ C8500 C21550 C$"S"C$"s"600 C$"F"C$"f"650 C$"<"C$","700 C$">"C$"."750 CO0:130 FF14(CO1):CO1:F0F0 800E FF14(CO2):CO2:F255F255N 800o II14(CO3):CO3:I0I0x 800 &II14(CO4):CO4:I31I31 0800 XRR14(CO5):CO5:R0R0 b800 RR14(CO6):CO6:R15R15 800 VV14(CO7):CO7:V0V0$ 800G VV14(CO8):CO8:V15V15S H15,F^ *H9,Ii 4H8,Rt >H7,V H5:37:R" " R7:37:I" " \9:36:F" " f11:37:V" " p1302 EDIT.TTS.PARMS (C) 1986 APPLIED ENGINEERINGD(34)4ĉ:hd((116)4)256(115)30464įQzn18432:$4800xD$(4)D$"BLOAD TTS"H8704: $2200L(H1)256(H2)8192S(H6):V(H7):R(H8)P(H9):I(H10) F(H15)M 2:"Edit TTS Parameters ":5:"Text-to-Speech Parameters:"o 7:A$"Slot":AS:1000:CSA S0S7ĺ(7):210 8:A$"Volume (0-15)":AV:1000:CVA V0V15ĺ(7):220 9:A$"Rate (0-15)":AR:1000:CRA R0R15ĺ(7):2309 10:A$"Pitch (0-255)":AF:1000:CFAS F0F255ĺ(7):237 11:A$"Inflection (0-31)":AP:1000:CPA P0P31ĺ(7):240 12:A$"Indicator (Y/N) = ":A$("YN",1(I0),1)" ";:A$:A$:A$"Y"A$"y"I0:300 A$"N"A$"n"I128:300& A$(13)3005 (7):250 ,23:"Are These Correct? (Y/N) ";::" "(8);::49152,128:A$((49152)128):A$" "ĺA$; 6" ";:22::A$"Y"A$"y"400 @49168,0:A$"N"A$"n"Ģ23:30);:22::210 JA$(27)420 T(7):3004 H6,S:H7,V:H8,R:H9,P:H10,I@ H15,Fc D$"BSAVE TTS,A$2000,L"L:430w (4)"-STARTUP" 49168,0::: A$" = "A" "; C0:"";A$:A$""ı C1:A(A$) EFFECTSuHUSTON!J ' ''STARTUP J ! BIN.SOUNDSJ !8,EFFECTS.DEMO J !#-SOUND.BUILDER J !/ SOUND.18J !1 SOUND.28J !1 SOUND.38J !$SOUND.48J !2 SURF8J !2 9 SOUND EFFECTS STARTUP (C) 1986 APPLIED ENGINEERINGxIN$"":64367:H16384:D$(4):C64668:C8(49932)16:5501800:IN847:ER897:UC907:F$RD$"ERR.PR":D$"BLOAD"F$#F$RD$"VERSION":D$"OPEN"F$:D$"READ"F$:V$:D$"CLOSE"F$ (216,0:600:VTLC(DS80C88.5)DS80k 2DS80S$" ":(49183)128(34)4ĺD$"PR#3":1700 <LCĺD$"PR# A"UC F1600:D$"BLOAD"RD$"SLOT.AE,A768":770,DSLC P1200:1:"Applied Engineering":"Phasor Effects Menu "- Z34,4:1:24:13(DS80));V$;27(DS80));" Slot "(769)W dUL$"":I1DS:UL$UL$"_":I:3:UL$z x6:S$"1) Sound Effects Demo" :S$"2) Sound Builder" :S$"3) Phasor Main Menu" 22:UL$; 23:1500:"Please Select an Option:";:1100:KB31ĺQ$; Q(Q$):Q400,300,250? KB27KB13Ģ20:(7):180{ 22::1500:"Do You Want to Quit? ";:1100:KB31ĺQ$; Q$"N"Q$"n"Ģ22::1500:180 Q$"Y"Q$"y"ĺ(7);:200 49166,0:22::1500:1200:D$"PREFIX"RD$:D$"-STARTUP"$ ,1300:1400:::D$"-SOUND.BUILDER"Q 22::1500:22:1200:D$"-EFFECTS.DEMO"o X FIND APPLE MACHINE TYPE bID(49048):ID192AP$"///":IDID192:660 lID186AP$"//c":MN$"128K":DS80:770 vID128AP$"//e":IDID128:660 ID64AP$"][+":IDID64:660& AP$"][ "5 ID48710c 768,0:AD0āAD768808:CODE:AD,CODE: 0,141,9,192,160,127,140,115,192,132,255,136,16,248,200,200,192,128,240,12,140,115,192,196,255,208,244,238,0,3,208,239,141,8,192,169,0,141,115,192,96769:ZY(768)2BID48ZY2MN$(ZY64)"K":IDID48:740fID32MN$"64K":IDID32:740ID16MN$"48K":IDID16MN$"???"ID4IDID4:740ID2DS80:770DS40(AP$,2)"//"DS80(770)41LC1:(770)408209 10:"LOWERCASE:abcdefghijklmnopqrstuvwxyz":j"DISPLAY LOWERCASE LETTERS? (Y/N)";:Q$:Q$ Q$"Y"Q$"y"LC1:*Q$"N"Q$"n"ĺ(7):7804LC0:E(222):ER:D$"CLOSE"F$:E5ĺ:216,0:1300:90E20E21ĺD$"CLOSE":9207E6E7ĺ:23:"Path of "F$" not Found":1040\:23:"Error "E" using File:"F$20::24:"Push Space for Main Menu";:1100D$"CLOSE"F$:216,0:10::1300:90L:" ";::(8);`49152,128:KB(49152)128:Q$(KB):49168,0:" ";(8);:"~49152,128:49168,0:=VTĹ35,21::35,24:w(34)1:(11):22:UL$:(34)1::VIDEX 80 COLUMN VTĹ35,24::(34)1:(11):(34)1::VIDEX 80 COLUMN xVTĺ(21):D$"PR#0":(26)(49):D$"PR#0"::DS80ČC:(29);:*@(49932)130ıdJVM49328:XT32:XB8:VM,10:VM1,XT:VM,11:VM1,XB:qVTė:(26)"0":D$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORYI2(PR$)1:(PR$,I,1)"/"SLI&SL0RD$PR$:0RD$(PR$,SL):LRL\ : _:`  : r:)`  * 9Ȅ`8  Ȅ`6 SOUND EFFECTS DEMO (C) 1986 APPLIED ENGINEERINGA36352IN$"":D$(4):1090:D$"BLOAD"RD$"SLOT.AE,A768":IN847:ER897:UC907:D$"BLOAD"RD$"ERR.PR":SLOT(769):DS(770)(C64668:C8(49932)16 2DD(770):DD80DD81DS80:LCDD80:70$ <DD40DD41DS40:LCDD40E FVTLC(DS80C88.5)DS80g PD$"PREFIX":PF$:PR$PF$:D80 ZSP20:DS80SP$" ":SP35:(49183)128(34)4ĺD$"PR#3" dDS80D81 nLCĺD$"PR# A"UC x(34)4İ1550:34,4W D$"BLOAD BIN.SOUNDS":SN38200:CPSN1:RGSN2:OFFSN3:RSN6:CDSN9:DT38144:SN,SLOT:OFF A03:D$"BLOAD SOUND."A1",A"3737656A:A:D$"BLOAD SURF,A37600" UL$"":I1DS:UL$UL$"_"::1:"Applied Engineering":"Sound Effects Demo ":UL$:5N SP$"A) Low Chime":SP$"B) High Chime":SP$"C) Explosion":SP$"D) Steam Engine" SP$"E) Power Generator":SP$"F) Space Ship":SP$"G) Gunshot":SP$"H) Flying Saucer" SP$"I) Airplane":SP$"J) Old Biplane":SP$"K) Motor Boat":SP$"L) Helicopter"> SP$"M) Bounce #1":SP$"N) Bounce #2":5:SP:SP$"O) Bounce #3" SP:SP$"P) Sanding Wood":SP:SP$"Q) MegaSurf":SP:SP$"R) Train Trip":SP:SP$"S) Crazy Shell":SP:SP$"T) Confusion" 20:7)"Escape for Effects Menu "7)"Space to Turn Off Sounds" 22:(UL$,DS)R 23:"Please Select an Option:";:1500:Q$" "ĺQ$;w Q$" "Q$(13)ČOFF:20::230 Q$(3)ČOFF: Q$(27)1200 N(Q$)("@")32(Q$"a"):N1N20420 20: "N19660 ,N2074061(N1)4320,340,360,380,400@@N1N5ADDR37376ADDR37376:1000\JN440,450,460,470:230TN5N9ADDR37432ADDR37432:1000^N4440,450,460,490:230hN9N13ADDR37488ADDR37488:1000rN8440,450,460,470:230|N13N17ADDR37544ADDR37544:1000;N12440,450,460,470:230`N17ADDR37600:1000:500:430nN18510y(7);20::230CN0:480CN1:480CN2:480CN3CP,CN1:ADT14CN8:A,16((A)16)15:CD: CN0:480:CN1:480:480)CN2:480:CN3:480:490>ADDR37376:1000YI11000:I:CN0:480IL3:JL200:I1IL:CD:J1JL:(49152)127JJL:IILJ:I&CN3:4800SL400:S3000SL10:RN11:R%S:1010:JL2:J1JL:(49152)127SSL:JJL DJ:S+NTY0:PP.95:1040:CN0:480CXIL6:JL200:I1ILTbI3I4630flPP1.05:1040v480:J1JL:(49152)127JJL:IILJ:I430ADDR37376:1000CN0:DTCN1410,15:DTCN149,15:DTCN148,15:480TY04IL100:I1IL:PP1.02:1040:CD:(49152)127IIL:qIL200:I1IL:PP.98:1040:CD:(49152)127IILwADDR0:OFF:CN2:480:49168,0:430ADDR37376:1000CN0:DTCN1410,15:DTCN149,15:DTCN148,15:480TY1:IL1001I1IL:PP1.01:1040:CD:(49152)127IIL7 gI1IL:PP.99:1040:CD:(49152)127IIL :(49152)128770*ADDR0:OFF:CN2:480:49168,0:430I055:DTI,(ADDRI):I:ADTCN14RN:RG,RN:A,R%256(R%256):RRG,RN1:A1,R%256:R::ADTCN14RN:RG,RN:A,RD:R:TADTCN14:TY01060PAA42:RR(PP((P)256(P1))):P1,RR256:P,RR256(P1):P:$PA:RR(PP((P)256(P1))):P1,RR256:P,RR256(P1)".PP2:RR(((P)256(P1))PP):P1,RR256:P,RR256(P1)f8PP2:RR(PP((P)256(P1))):P1,RR256:P,RR256(P1):BD$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORYLI2(PR$)1:(PR$,I,1)"/"SLIV`SL0RD$PR$:jRD$(PR$,SL):(22::1590:"Do You Want to Quit? ";:1500:KB31ĺQ$;LQ$"N"Q$"n"Ģ22::1590:230nQ$"Y"Q$"y"ĺ(7);:120022::OFF:1530:22::1590:38400:1250(4)"-STARTUP":::" ";::(8);49152,128:KB(49152)128:Q$(KB):49168,0:" ";(8);:(49152,128:49168,0:CVTĹ35,21::35,24:}(34)1:(11):22:UL$:(34)1::VIDEX 80 COLUMN VTĹ35,24::(34)1:(11):(34)1::VIDEX 80 COLUMN "VTĺ(21):D$"PR#0":,(26)(49):D$"PR#0":: 6DS80ČC:@(29);:0J(49932)130ıjTVM49328:XT32:XB8:VM,10:VM1,XT:VM,11:VM1,XB:w^VTė:h(26)"0":1 SOUND.BUILDER (C) 1986 APPLIED ENGINEERING<510036352:IN$"":D$(4):5000:D$"BLOAD"RD$"SLOT.AE,A768":SLOT(769):DS(770):EM842:IN847:ER897:UC907:F$RD$"ERR.PR":D$"BLOAD"F$* D$"BLOAD BIN.SOUNDS":SN38200:CPSN1:RGSN2:OFFSN3:UPSN6:PLSN9:DT38144:SN,SLOT:OFFk (H(D)(D256):L(D)D256(D256):W(D)(D)256(D1) 2SS(4):S0:4050 d nC(4),W(4),S(4),L(4),T(4,3),N(4,3),E(4,3),P(4,3),V(4,3),E$(7) x"\\\\","\___","\/\/","\TTT","////","/TTT","/\/\","/_ __" I07:E$(I):c T$"CHAN TONE NOISE ENVELOPE PITCH VOLUME":C1:CV1:I14:C(I)1:r CH01500 DISPLAY INITIAL SCREEN I14:CIĞ I65:T$::V13:VC(I)Ğ0 " "I;(V64);::9:ST(I,V):3000:14:SN(I,V):3000:SE(I,V):3030:3200:3300:V:3400:3500:3600:IB ,GET COMMAND K 1EN0 634,CV4:VC(C):CV5:1:":";:868:18::" 1234ABCDELNPSTVWXY/? ";::2:I$:2000:CH$I$:CH(CH$) @CH48CH53Ė1:868:CV:1:T$:CCH48:CVC65:CV::T$::300< JCH64CH68VCH64::CVC(C):3020:C(C)V::3020::300f TCH$"T"Ė9:S1T(C,V):T(C,V)S:1400 ^CH$"N"Ė14:S1N(C,V):N(C,V)S:1400 hCH$"E"S1E(C,V):E(C,V)S:CVC(C):IC:3030:3300:300 rCH$"P"500 |CH$"V"600 CH$"W"700 CH$"S"800% CH$"L"9007 CH$"X"1000I CH$"D"1100[ CH$"Y"1200m CH$"/"1300 CH$"?"1500 CH276000 ENEN1:EN2EN0:1500 64477:310 PITCH CVV::IC:3200::UL4095:P$"PITCH":3100CVV:IC:P(C,V)A:3200:300&XVOLUMEVbCVV::IC:3300::UL15:P$"VOLUME":3100xlCVV:IC:V(C,V)A:3300:300WIDTH (NOISE PERIOD)CV4::IC:3400::UL31:P$"WIDTH":3100CV4:IC:W(C)A:3400:300 SHAPE (ENVELOPE CONTROL)-*CV4::IC:3500::UL7:P$"SHAPE":3100g4CV4:IC:S(C)A:3500:J13:SE(C,J):SĢCVJ:3030s>J:300LENGTH (ENVELOPE PERIOD)CV4::IC:3600::UL65535:P$"LENGTH":3100CV4:IC:L(C)A:3600:300PLAY CURRENT VOICESS(C)1:3700:CP,C:PL:3001LSTOP ALL SOUNDIVS0:4050:OFF:300^PLAY ALL VOICESS1:4050:3700:I14:CP,I:PL:I:300PRODOS COMMANDS (LOAD, SAVE, CAT)868:15::" LOAD, SAVE, OR CATALOG? ";:2::I$:2000:I$"C"1360 (I$"L"1350&2I$"S"Č64477:300Z<P$"SAVE":3800::D$"BSAVE"F$",A"DT",L56":300FP$"LOAD":3800::D$"BLOAD"F$",A"DT:4100:140P:::D$"CAT":"PRESS ANY KEY..."::I$::4100:200xREST OF T & NCVC(C):3000:IC:3700:300&::" SOUND BUILDER HELP SCREEN":B"1 SELECT CHANNEL 1"^"2 SELECT CHANNEL 2"z"3 SELECT CHANNEL 3""4 SELECT CHANNEL 4""A SELECT SUBCHANNEL A""B SELECT SUBCHANNEL B"""C SELECT SUBCHANNEL C","D DEACTIVATE ALL CHANNELS"16"E ENVELOPE ON/OFF"U@"L LENGTH (ENVELOPE PERIOD)"mJ"N NOISE ON/OFF"T"P PITCH (PITCH PERIOD)"^"S SHAPE (ENVELOPE CONTROL)"h"T TONE ON/OFF"r"V VOLUME"|"W WIDTH (NOISE PERIOD)"$"X EXECUTE (PLAY) CURRENT CHANNEL"A"Y PLAY ALL CHANNELS"i"/ PRODOS SAVE, LOAD OR CATALOG""? DISPLAY THIS HELP SCREEN""ESC EXIT SOUND BUILDER"24:"PRESS ANY KEY...";:Q$:::200CONVERT TO UPPER CASEI$"a"I$"z"I$((I$)32)+ Sĺ"ON ";:9 "OFF";:\ CVC(C):1:" "C;(64C(C)): 19:3000:23:" ";:SĖ23:E$(S(I));  CV5:1:868:19::(" NEW "P$" (0-"(UL)") ",21);:2::P$;:A$:A(A$):A0AULġ:300& d 29:(" "(P(I,V)),4);:RV22:DT(I1)14R,L(P(I,V)):DT(I1)14R1,H(P(I,V)):4000: 36:(" "(V(I,V)),2):RV7:DT(I1)14R,V(I,V)E(I,V)16:4020:H 9:("WIDTH="(W(I))" ",8);:R6:DT(I1)14R,W(I):4020:+ 19:"SHAPE="S(I);:R13:DT(I1)14R,S(I)8:4020:28:("LENGTH="(L(I))" ",12):R11:DT(I1)14R,L(L(I)):DT(I1)14R1,H(L(I)):4000:tI14:R7:DT(I1)14R,63T(I,1)2T(I,2)4T(I,3)8N(I,1)16N(I,2)32N(I,3):4020:I:C1:P$;:868:23::" ENTER FILE NAME ";::6:IN:F$IN$"":F$""ġ:300I^UPDATE TWO REGSn4030:RR1UPDATE ONE REGSS(I)ĹCP,I:RG,R:UPSET ALL SS=SJ14:SS(J)S::INTERPRET BLOADED SOUNDSEI14:J13:P(I,J)W(DT(I1)14(J1)2):V(DT(I1)14J7):E0:V15VV16:E1V(I,J)V:E(I,J)E:J:E(DT(I1)147):J311:N(I,J)(E32):EE32(E31):EE2:J:J311:T(I,J)(E32):EE32(E31):EE2:J2"W(I)(DT(I1)146):L(I)W(DT(I1)1411):S(I)(DT(I1)1413):S(I)7S(I)S(I)8:4160K,S(I)4S(I)1:4160V6S(I)7_@I:D$"PREFIX":PR$:FIND NEXT HIGHER DIRECTORYI2(PR$)1:(PR$,I,1)"/"SLISL0RD$PR$:RD$(PR$,SL):ER:E(222)!XCV56(CV18):X:868:X1::EM:@I11500:I:X:868:300{pCV5:2:"DO YOU WANT TO QUIT? ";:868:I$:I$:2000zI$"N"310I$"Y"ĺ(7):6000S0:4050:OFF:::770,DS:38400:6050(4)"-STARTUP"Z8 N ,Z8@  N  8  ,   ; d; 8 Y8  8    NUPFR
Make your own free website on Tripod.com