***INTILIZE***553281,11:646,1:53280,11?(SF90u2DN$"":RT$""7F$(0)"OFF":F$(1)"ON "<E$" ":S$" "FP(14),A(14),X(14):I114:X: PI114:P(I)::I114:A(I):! UI14:WF$:2 Z"1 VOLUME"p d"2 FREQUENCY HZ":"3 DURATION SEC" n"4 ATTACK":"5 SUSTAIN " x"6 DECAY " "7 RELEASE F1 HEAR SOUND 7 "8 LOW PASS FLTR F2 SAVE SOUND "f "9 BAND PASS FLTR F3 LIST LINE " "A HIGH PASS FLTR F4 LOAD SOUND " "B FLTR FREQ F5 RESTART " "C RESONANCE F6 END "! "D WAVEFORM ? "E PULSE WIDTH %"Y ***START/RESTART***c 1200 I5427254294:I,0:::I114:X(I): X115 X1120,1130,1150,1120,1120,1120,1120,1180,1180,1180,1130,1120 X12X121190,1130 :X115G X610,630,1100,650,660,650,660,610,610,610,670,620,1100,690M "b , ***KEY SCAN***u 6A$:A$""310 @A(A$):A133710 JA137870 TA138950 ^A134750 hA135210 rA139 |A48A58X(A$):410 A64A71XA55:410 3103  ***CHANGE PARAMETERS***E (DN$,X)""X A$:A$""430 A(A$):A13(DN$,X)" ":1200:590 A145480 A17510 430 X(X)A(X)430 X2X11X(X)X(X)10:540 X(X)X(X)1:540X(X)0430"X2X11X(X)X(X)10:5402X(X)X(X)1WX1(X4X7)X121120:430u&X2X11X141130:4300X31150:430:X7X111180:430D1190:430NX610,630,1100,650,660,650,660,610,610,610,670,620,1100,690X300$b54296,X(1)X(8)16X(9)32X(10)64Tl54295,X(8)(X(9)2)(X(10)4)(X(12)16):vFOX(2)0.06097:HB(FO256):LB(FO(256HB))54272,LB:54273,HB:54277,X(4)16X(6):54278,X(5)16X(7):H2(X(11)8):L2(X(11)(8H2))54293,L2:54294,H2:IPW%X(14)40.95:H3(PW%256):L3(PW%(256H3))c54274,L3:54275,H3:z ***HEAR SOUND***DVX(3)SF54276,2(X(13)3)1I1DV::54276,0:300 ***LIST LINE***1200DN$"POKE53272,"((LB),2)":POKE53273,"((HB),2)G "POKE54274,"((L3),2)":POKE54275,"((H3),2)n"POKE54277,"((X(4)16X(6)),2); ":POKE54278,"((X(5)16X(7)),2)*"POKE54293,"((L2),2)":POKE54294,"((H2),2)4"POKE54296,";>((X(1)X(8)16X(9)32X(10)64),2);DH":POKE54295,"((X(8)(X(9)2)(X(10)4)(X(12)16)),2)kR"POKE54276,"((2(X(13)3)1),2)\"FOR I=1 TO "((DV),2)":NEXT:POKE54276,0":300f ***SAVE SOUND***p1030:D$"T"910z8,DN,8,"0:"NM$"S,W"9201,1,1,NM$I114:DN,X(I):ST0/D$"D"1100NDN:I11000::1200:310e ***LOAD SOUND***{1030:D$"T"9908,DN,8,NM$"S,R"10001,1,0,NM$I114:DN,X(I):ST0D$"D"1110DN:I11000::1200:240&1200:DN$:"(D)ISK OR(T)APE D ";D$=D$"T"DN1:1080OD$"D"1030u$"DEVICE # 8 ";ND$:DN(ND$).DN8DN11"":10608"FILE NAME";NM$B(NM$)1(NM$)16"":1080LV15,8,15:15,A$,B$,C$,D$:A$S$B$S$C$S$D$:15:2`(DN$,X)(RT$,P(X))(" "((X(X)),2),2)8eRj(DN$,X)(RT$,P(X));rt(" "((X(X)),2),4):~JM$((X(3)),2):JM$(JM$,(JM$)1)"."(JM$,1)(DN$,3)(RT$,18)(" "JM$,4)DV(JM$)1E3:(DN$,X)(RT$,17)F$(X(X)):$(DN$,13)(RT$,15)WF$(X(X)):?DN$"":I17:E$::h 12,440,30,9,4,4,0,0,0,0,400,0,1,50 18,16,18,18,18,18,18,17,17,17,16,18,15,16 15,3980,108,15,15,15,15,1,1,1,2040,15,5,100 " TRI"," SAW",PULSE,NOISE