TI$"000000"C "PLEASE WAIT ABOUT 16 SECONDS..."[F14:F35:F56:F73 KY(36),FR(96),LF(64,5),HF(64,5),PP$(38),DP$(38),A$(15),DR$(15),S$(15) X(24) 1000: 2000 "" K1 36: KY(K):  F1 96: FR(F):  O0 5: K1 36L LF(KY(K),O)FR(K12O)256(FR(K12O)256)n HF(KY(K),O)(FR(K12O)256)x  K,O LPP$(0)"": P1 9:PP$(P)PP$(P1)"" VPP$(P9)PP$(P)"":PP$(P18)PP$(P9)"": P `PP$(28)"": P29 377 jPP$(P)PP$(P1)"": PO tPP$(28)PP$(27)""h ~PP$(38)PP$(37)"" DP$(37)"" DP$(33)"": D34 36 DP$(D)DP$(D1)"": D7 DP$(30)"": D31 33S DP$(D)DP$(D1)"": D DP$(29)"":DP$(30)DP$(29)"" DP$(6)"": D7 9:DP$(D)DP$(D1)"" DP$(D9)DP$(D)"":DP$(D18)DP$(D9)"": DV DP$(4)"": D5 6:DP$(D)DP$(D1)"" DP$(D9)DP$(D)"":DP$(D18)DP$(D9)"": D DP$(0)"": D1 4:DP$(D)DP$(D1)""" DP$(D9)DP$(D)"":DP$(D18)DP$(D9)"": DI  D6 24 9:DP$(D)DP$(D)"":a DP$(28)DP$(27)""w A10:S1250:W117 A20:S2170:W217 (A30:S380:W333 2V15:O11:O22:O33 x A0 15: A$(A): } A0 15: DR$(A): A0 15: S$(A):$ A0 4: W$((2A)2):*s 62,59,9,8,14,17,16,22,19,25,24,30,33,32,38,35,41,46,43,49,48,54,51 12,23,18,20,21,31,28,29,39,34,36,37,47 268,284,301,318,337,358,379,401,425,451,477,506  536,568,602,637,675,716,758,803,851,902,955,1012O 1072,1136,1204,1275,1351,1432,1517,1607,1703,1804,1911,2025 2145,2273,2408,2551,2703,2864,3034,3215,3406,3608,3823,4050 4291,4547,4817,5103,5407,5728,6069,6430,6812,7217,7647,8101 8583,9094,9634,10207,10814,11457,12139,12860,13625,14435,15294,16203f 17167,18188,19269,20415,21629,22915,24278,25721,27251,28871,30588r 32407 34334,36376,38539,40830,43258,45830,48556,51443,54502,57743,61176 64814  "2 MS","8 MS","16 MS","24 MS","38 MS","56 MS","68 MS"P "80 MS","100 MS","250 MS","500 MS","800 MS","1 SEC","3 SEC"h "5 SEC","8 SEC" "6 MS","24 MS","48 MS","72 MS","114 MS","168 MS","204 MS" "240 MS","300 MS","750 MS","1.5SEC","2.4SEC","3 SEC","9 SEC"  "15 SEC","24 SEC"O "VOL 0","VOL 1","VOL 2","VOL 3","VOL 4","VOL 5","VOL 6" "VOL 7","VOL 8","VOL 9","VOL 10","VOL 11","VOL 12","VOL 13" "VOL 14","VOL 15" "NONE ","TRIA","SAWT","PULS","NOIS" "": 53280,2: 53281,12: 198,0$ " ó ɲ "J " "p "       " " " " "  " ó "  " "4* " ± ó "Z4 " "> " ó "H ""R " <1> - EDITOR\ " <2> - KEYBOARDf " <3> - SPECIFIC FREQUENCYp " <4> - CLEAR REGISTERS6z " <5> - VIEWR " <6> - SAVEn " <7> - LOAD " <8> - QUITCC$(1)"":CC$(2)"":CC$(3)"":CC$(4)"":CC$(5)"":CC1 " BY: "CC$(CC);"PSYCHOBIRD" K$: K$"" 2400@ (K$)49 (K$)56 2400v (K$) 4000,3000,6000,6500,7000,8000,9000,2300 " SOUND MAKER: QUIT" ` CCCC1: CC6 CC1j 2220 2220 **KEYBOARD**  S54272: ZS S24: Z,0: Z ""Q S5,A1: S6,S1: S12,A2: S13,S2: S19,A3:S20,S3| S2,P1256(P1256): S3,(P1256) S9,P2256(P2256): S10,(P2256) S16,P3256(P3256): S17,(P3256) S24,V: S23,R S21,FC256(FC256): S22,(FC256)# 3500P " - OCTAVES VOICE 1:"O1"TO"O12z " - OCTAVES VOICE 2:"O2"TO"O22& " - OCTAVES VOICE 3:"O3"TO"O320 K(197): KF1 O1O11: O15 O10D KF3 O2O21: O25 O20N KF5 O3O31: O35 O30,S KF7 2000LX LF(K,O1)0 3300:3090lb S,LF(K,O1): S1,HF(K,O1)l S7,LF(K,O2): S8,HF(K,O2)v S14,LF(K,O3): S15,HF(K,O3) S4,W1: S11,W2: S18,W3 3120 S4,W11: S11,W21: S18,W31:7 " SOUND MAKER: KEYBOARD"c " òòòòòòòòòî" " 2356790-\C/H" " ­­­­ý " QWERTYUIOP@*^9 " ññññññññññññý"C "";h " òòòòòò" " DFHJK " ­­ " ZXCVBNM< " ñññññññý6$ 10)"PRESS FOR MENU."<.`""10);"SOUND MAKER: EDITOR" " VOICE 1 VOICE 2 VOICE 3" " -AT: -AT: -AT: " -DE: -DE: -DE: " -SU: -SU: -SU:+ " -RE: -RE: -RE:U " -WAVF: -WAVF: -WAVF: " -PSHP: -PSHP: -PSHP: " -RMD/3: -RMD/1: -RMD/2: " -SYN/3: -SYN/1: -SYN/2: " -DSOSC: -DSOSC: -DSOSC:+ " -CTOFF:? " - VOLUME:S " -RESONANCE:l" " -FILTER VOICE 1:, " -FILTER VOICE 2:6 " -FILTER VOICE 3:@ " -HIGH-PASS FILTER:J " -BAND-PASS FILTER:T " - LOW-PASS FILTER:^ " -FILTER CUT-OFF:h " -MENU";)rPO1: 5000F| PP$(PO)"*";: 53280,2^ K$: K$"" 4230t K$(13) 4500 K$"" (PO9 PO18) PP$(PO)" ":PO29: 4220 K$"" PO38 PP$(PO)" ":POPO1: 4220  K$"" (PO10 PO19) 42207  K$"" PO29 PP$(PO)" ":PO9: 4220i  K$"" PO1 PP$(PO)" ":POPO1: 4220  K$"" PO18 4220  K$"" PP$(PO)" ":POPO9: 4220  K$"" (PO27 PO10) 4220! K$"" PP$(PO)" ":POPO9: 4220 ! 4220)! 53280,7: PO10 4520p! PO 10000,11000,12000,13000,14000,15000,16000,17000,18000,19000! PO20 4540! PO10 20000,21000,22000,23000,24000,25000,26000,27000,28000,29000! PO30 4560*" PO20 30000,31000,32000,33000,34000,35000,36000,37000,38000,39000g" PO30 40000,41000,42000,43000,44000,45000,46000,2000p"""" DP$(1);A$((A116))" DP$(2);DR$(A1((A116)16))" DP$(3);S$((S116))" DP$(4);DR$(S1((S116)16))" DP$(5);"";# (W1 16)16 "";$# "T";@# (W1 32)32 "";L# "S";h# (W1 64)64 "";t# "P";# (W1 128)128 "";# "N";# DP$(6);" ";DP$(6);# (W1 64)64 P1: 5070# " N/A "# DP$(7);$ (W1 4)4 "YES": 5080$$ "NO "2$ DP$(8);T$ (W1 2)2 "YES": 5090`$ "NO "n$ DP$(9);$ (W1 8)8 "YES": 5100$ "NO "$ DP$(10);A$((A216))$ DP$(11);DR$(A2((A216)16))$ DP$(12);S$((S216))%  DP$(13);DR$(S2((S216)16))-% DP$(14);"";I% (W2 16)16 "";U% "T";q% (W2 32)32 "";}% "S";% (W2 64)64 "";% "P";% (W2 128)128 "";% "N";% DP$(15);" ";DP$(15); &! (W2 64)64 P2: 5160&" " N/A "*&( DP$(16);L&- (W2 4)4 "YES": 5170X&. "NO "g&2 DP$(17);&7 (W2 2)2 "YES": 5180&8 "NO "&< DP$(18);&A (W2 8)8 "YES": 5190&B "NO "&F DP$(19);A$((A316))'P DP$(20);DR$(A3((A316)16)),'Z DP$(21);S$((S316))P'd DP$(22);DR$(S3((S316)16))c'n DP$(23);"";'o (W3 16)16 "";'p "T";'q (W3 32)32 "";'r "S";'s (W3 64)64 "";'t "P";'u (W3 128)128 "";(v "N";"(x DP$(24);" ";DP$(24);C({ (W3 64)64 P3: 5250Q(} " N/A "`( DP$(25);( (W3 4)4 "YES": 5260( "NO "( DP$(26);( (W3 2)2 "YES": 5270( "NO "( DP$(27);( (W3 8)8 "YES": 5280) "NO ") DP$(28);<) (V 128)128 "YES": 5290H) "NO "_) DP$(29);(V 15)z) DP$(30);(R 240)16) DP$(31);) (R 1)1 "YES": 5320) "NO ") DP$(32);) (R 2)2 "YES": 5330) "NO "* DP$(33);"* (R 4)4 "YES": 5340.* "NO "=* DP$(34);`* (V 64)64 "ON ": 5350l* "OFF"{* DP$(35);* (V 32)32 "ON ": 5360* "OFF"* DP$(36);* (V 16)16 "ON ": 5370* "OFF"* DP$(37);FC*,+p " SOUND MAKER: SPECIFIC FREQUENCY"K+zT$""+ "FREQUENCY FOR VOICE 1?";V1;"";T$;: V1+ "FREQUENCT FOR VOICE 2?";V2;"";T$;: V2+ "FREQUENCY FOR VOICE 3?";V3;"";T$;: V3,S54272: ZS S24: Z,0: ZD, S5,A1: S6,S1: S12,A2: S13,S2: S19,A3:S20,S3o, S2,P1256(P1256): S3,(P1256), S9,P2256(P2256): S10,(P2256), S16,P3256(P3256): S17,(P3256), S24,V: S23,R - S21,FC256(FC256): S22,(FC256))-H1(V1256):L1V1256H1G-H2(V2256):L2V2256H2e-H3(V3256):L3V3256H3- S,L1: S1,H1: S7,L2: S8,H2: S14,L3: S15,H3- "PRESS TO PLAY NOTE."- "PRESS FOR OTHER FREQUENCIES." .$ "PRESS FOR MENU."..K(197)).8 KF1 6300Q.B S4,W1: S11,W2: S18,W3: 6190x. S4,W11: S11,W21: S18,W31. KF3 6000. KF5 2000. 6190.d " SOUND MAKER: CLEAR REGISTERS".iYN$"NO"/n "DO YOU WISH TO CLEAR THE REGISTERS?": YN$./x (YN$,1)"Y" 65409/ 2000Z/S54272: ZS S24: Z,0:/A10:S10:A20:S20:A30:S30:W11:W21:W31:P10:P20:P30:V15:R0:FC0/ "THE REGISTERS ARE CLEARED."/V10:V20:V30:L10:L20:L30:H10:H20:H30(0 " PRESS ANY KEY FOR MENU."@0 K$: K$"" 6580K0 2000t0X " SOUND MAKER: VIEW"0b"S=54272"0l "VOICE 1 VOICE 2 VOICE 3"0v "S+0,";L1;14);"S+7, ";L2;28);"S+14,";L31 "S+1,";H1;14);"S+8, ";H2;28);"S+15,";H391 "S+2,";(P1256(P1256));14);`1 "S+9, ";(P2256(P2256));28);1 "S+16,";(P3256(P3256))1 "S+3,";(P1256);14);1 "S+10,";(P2256);28);1 "S+17,";(P3256)2 "S+4,";W1;14);"S+11,";W2;28);"S+18,";W342 "S+5,";A1;14);"S+12,";A2;28);"S+19,";A3d2 "S+6,";S1;14);"S+13,";S2;28);"S+20,";S3x2 "GENERAL:"2 "S+21,";(FC256)2 "S+22,";FC256(FC256)2 "S+23,";R2  "S+24,";V2 " PRESS ANY KEY FOR MENU."3  K$: K$"" 72003* 2000F3@ " SOUND MAKER: SAVE"Q3JFL$""n3T "FILENAME TO SAVE";FL$3^ FL$"" 20003h (FL$)16 "TOO LONG.": T1 1000: T: 80004rX(0)L1:X(1)H1:X(2)P1256(P1256):X(3)(P1256):X(4)W1:X(5)A1G4|X(6)S1:X(7)L2:X(8)H2:X(9)P2256(P2256):X(10)(P2256)4X(11)W2:X(12)A2:X(13)S2:X(14)L3:X(15)H3:X(16)P3256(P3256)4X(17)(P3256):X(18)W3:X(19)A3:X(20)S3:X(21)(FC256)4X(22)FC256(FC256):X(23)R:X(24)V5 15,8,155 5,8,5,FL$",S,W"75 A0 24:5,X(A):H515,N,M$,T,S\5 "";N;M$;T;Si5 5: 155 ""FL$" SAVED."5 " PRESS ANY KEY FOR MENU."5 K$: K$"" 81805 20005(# " SOUND MAKER: LOAD"62#FL$""6<# "FILENAME TO LOAD";FL$26F# FL$"" 2000j6P# (FL$)16 "TOO LONG.": T1 1000:: 9000u6Z# ""6d# 15,8,156n# 5,8,5,FL$",S,R"6x# A0 24:5,X(A):6#15,N,M$,T,S6# N;M$;T;S6# 5: 157# N19 "ERROR: "FL$" NOT LOADED.": 9170P7#L1X(0):H1X(1):P1X(2)256X(3):W1X(4):A1X(5):S1X(6)7#L2X(7):H2X(8):P2X(9)256X(10):W2X(11):A2X(12):S2X(13)7#L3X(14):H3X(15):P3X(16)256X(17):W3X(18):A3X(19):S3X(20)7#FC256X(21)X(22):RX(23):VX(24)8# ""FL$" LOADED.">8# " PRESS ANY KEY FOR MENU."V8# K$: K$"" 9180a8# 2000z8' K$: K$"" 100008' K$(13) 42208$' K$"" A1239 A1A1168.' K$"" A115 A1A11688' DP$(1);A$((A1 240)16)8B' 100009* K$: K$"" 11000+9+ K$(13) 4220Q9 + K$"" (A1 15)15 A1A11v9+ K$"" (A1 15)0 A1A119 + DP$(2);DR$(A1 15)9*+ 110009. K$: K$"" 120009. K$(13) 42209. K$"" S1239 S1S116 :. K$"" S115 S1S116+:/ DP$(3);S$((S1 240)16)7:/ 12000P:2 K$: K$"" 13000f:2 K$(13) 4220:2 K$"" (S1 15)15 S1S11:2 K$"" (S1 15)0 S1S11:2 DP$(4);DR$(S1 15):2 13000:6PX1313:6 PX,(PX)128;6 K$: K$"" 14020G;6 K$"" PX1316 PX,(PX)128:PXPX1: 14010;6 K$"" PX1313 PX,(PX)128:PXPX1: 14010;6 K$" " 14700;6 K$(13) 5000: 4220;6 14020;l9 PX1313 CH16;v9 PX1314 CH32<9 PX1315 CH64<9 PX1316 CH128S<9 ((PX54272) 15)1 PX54272,7:W1W1CH: 14020u<9 PX54272,1:W1W1CH: 14020<: K$: K$"" 15000<: K$(13) 5000: 4220<: K$"" P1P11<: K$"" P1P1256<: K$"" P1P11 =: K$"" P1P1256"=: P10 P140957=: P14095 P10V=: DP$(6);" ";DP$(6);P1b=: 15000=> (W1 4)4 W1W14:16020=>W1W14=> 5000: 4220=hB (W1 2)2 W1W12:17020=rBW1W12=|B 5000: 4220>PF (W1 8)8 W1W18:18020>ZFW1W18">dF 5000: 4220;>8J K$: K$"" 19000Q>BJ K$(13) 4220r>LJ K$"" A2239 A2A216>VJ K$"" A215 A2A216>`J DP$(10);A$((A2 240)16)>jJ 19000> N K$: K$"" 20000>*N K$(13) 4220?4N K$"" (A2 15)15 A2A218?>N K$"" (A2 15)0 A2A21S?HN DP$(11);DR$(A2 15)_?RN 20000x?R K$: K$"" 21000?R K$(13) 4220?R K$"" S2239 S2S216?&R K$"" S215 S2S216?0R DP$(12);S$((S2 240)16)?:R 21000@U K$: K$"" 22000*@U K$(13) 4220P@V K$"" (S2 15)15 S2S21u@V K$"" (S2 15)0 S2S21@V DP$(13);DR$(S2 15)@"V 22000@YPX1326@Y PX,(PX)128@Y K$: K$"" 23020 AY K$"" PX1329 PX,(PX)128:PXPX1: 23010DAZ K$"" PX1326 PX,(PX)128:PXPX1: 23010YA Z K$" " 23700xAZ K$(13) 5000: 4220AZ 23020A\ PX1326 CH16A\ PX1327 CH32A\ PX1328 CH64A\ PX1329 CH128B\ ((PX54272) 15)1 PX54272,7:W2W2CH: 23020:B\ PX54272,1:W2W2CH: 23020SB] K$: K$"" 24000rB] K$(13) 5000: 4220B] K$"" P2P21B] K$"" P2P2256B] K$"" P2P21B] K$"" P2P2256B] P20 P24095B^ P24095 P20C^ DP$(15);" ";DP$(15);P2)C^ 24000KCa (W2 4)4 W2W24:25020WCaW2W24iCa 5000: 4220Ce (W2 2)2 W2W22:26020CeW2W22Ce 5000: 4220Cxi (W2 8)8 W2W28:27020CiW2W28Ci 5000: 4220D`m K$: K$"" 28000Djm K$(13) 42209Dtm K$"" A3239 A3A316YD~m K$"" A315 A3A316yDm DP$(19);A$((A3 240)16)Dm 28000DHq K$: K$"" 29000DRq K$(13) 4220D\q K$"" (A3 15)15 A3A31Dfq K$"" (A3 15)0 A3A31Epq DP$(20);DR$(A3 15)&Ezq 29000?E0u K$: K$"" 30000UE:u K$(13) 4220vEDu K$"" S3239 S3S316ENu K$"" S315 S3S316EXu DP$(21);S$((S3 240)16)Ebu 30000Ey K$: K$"" 31000E"y K$(13) 4220F,y K$"" (S3 15)15 S3S31