! ""::36879,8:36869,1945B$(13),N$(100)lPJ$"++++++++++++++++++++"d" n"    x"    "    "" !"    G"      k"     " COPYRIGHT(C) 1983 BY"" EDITOR P. JESCH JUN.";AA1:A2""18)"OF1O":211A0:""18)"OF1O"BB1:B22B17""(PJ$,B,22):A11100:A1K(197)39200g7000:A113:B$(A):AB$"+CHOOSE ONE STATEMENT++CHOOSE ONE STATEMENT+"" 0.1 "NUM$((NUM),((NUM))1)""(1)"BYTES FREE":A113?15(B$(A)))B$(A)"....("(64A)")";JA:B0RA$oA113:A$(64A)1070A:BB1:B22B1$""(B$,B,22);:1030."O YOU REALLY WANT TO CHOOSE "B$(A)8"(Y=YES/N=NO)BA$"":A$:A$"N"1000)LA$"Y"1090uA2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,12501000""::NUMNUM1:NNUM:20000:"":N$(NUM)C$:7900ANUM16NUM:A1A""((A),((A))1)(""4)""(N$(A),2)""(N$(A),3,4)""(N$(A),7,3)`""13)(N$(A),10,3)""(N$(A),13,3)""(N$(A),3)gA A$"":A$:A$"R"A$"A"2000 2060 NUM0 "HICH NOTE DO YOU WANTTO CHANGE ? "(FROM 1 TO "NUM$")" "";N:N(N):N1NNUM"":30203 20000:N$(NUM)C$:""= 7900S AN16N:A1Am ""((A),((A))1) ""4)""(N$(A),2)""(N$(A),3,4)""(N$(A),7,3) ""13)(N$(A),10,3)""(N$(A),13,3)""(N$(A),3) A& A$"":A$:A$"R" 0 A$"A"3000: 3110#NUM0R"ROM WHICH LINE DO YOUWANT TO LIST ?"n"(FROM 1 TO "NUM$")"A1:A1(A1):A11A1NUM"":4004"";" ҒETURN F5UP F7DOWN";""AA1A116:N$(A)""A:41506""((A),((A))1)m""4)""(N$(A),2)""(N$(A),3,4)""(N$(A),7,3)"""13)(N$(A),10,3)""(N$(A),13,3)""(N$(A),3),A6(197)55A11A1A11:4008@(197)63A1NUMA1A11:4008J(197)10 T4150NUM0I"HICH NOTES DO YOU WANT TO HEAR ?"i"(BETWEEN 1 AND "NUM$")""FROM ";A:A(A):A1"":5030" TO ";A1:A1(A1):A11"":5040ANUMANUMA1NUMA1NUMA1A"":5030 M110500:5100,"":BAA1:C$N$(B):""BB36878,((C$,2))oSG(1),((C$,7,3)):SG(2),((C$,10,3))SG(3),((C$,13,3)):SG(4),((C$,3))A2((C$,3,4)):B11A2:B1Q1SG(1),0:SG(2),0:SG(3),0:SG(4),0:B11Q1:B1B7900.SG(1),0:SG(2),0:SG(3),0:SG(4),0FA$"":A$:A$"R"W A$"A"5075a5120npNUM0z"N FRONT OF WHICH NOTEDO YOU WANT TO INSERT SOMETHING ?""(FROM 1 TO "NUM$")"A1:A1(A1):A11A1NUM"":6030+NA1:20000:NUMNUM1:NUM$((NUM),((NUM))1)=NUM1006050o" UT OF MEMORY ERROR.":"==> ҒETURN"A$"":A$:A$"R"6043NUMNUM1:ANUMA111:N$(A)N$(A1):A:N$(A1)C$7900A$"":A$:A$"A"6000A$"R"6070X"OUND VOLUME ?"Rb"(1-15) ";LO:LO(LO):LO1LO15"":7010ql"OW MANY SOUND GENER-"v"ATORS (1-4) ";HM:HM(HM):HM1HM4"":7030"HICH SOUND GENER- ATOR ?"SG(1)0:SG(2)0:SG(3)0:SG(4)0:A1HM! ""A:"";SG(A):SG(A)(SG(A))B SG(A)1SG(A)4"":7060X SG(A)SG(A)36873 A114:SG(A)SG(A1)A1A"":7060 A1,A "O YOU WANT TO CHANGE THE SOUND VOLUME DU- RING YOUR COMPOSING ?":SG11 "(Y=YES/N=NO)" !A$:A$"N"SG10:!A$"Y"7130%!Z!"";!" ҒETURN GAIN";:!@NUM0!J"HICH NOTES TO YOU WANT TO CLEAR ?"!T"(FROM 1 TO "NUM$")""^"FROM ";B:B(B):B1BNUM"":80307"h" TO ";B1:B1(B1):B11B1NUM"":8040N"rB1B"":8030"|A20:"":ABB1:" CLEARED"A:N$(A)"":A2A21:A"AB11NUM:N$(B)N$(A):BB1:N$(A)"":A:NUMNUMA2:7900"A$"":A$:A$"A"NUM$((NUM),((NUM))1):8000 #A$"R"#8080R#(#"EXT DATA-LINE IF YOU PRESS ҒETURN.":A1NUMl##""A259998" ";##(N$(A),2)","(N$(A),3,4)","(N$(A),7,3)",";##(N$(A),10,3)","(N$(A),13,3)","(N$(A),3)##A$:A$"R"9130##:A:#'NUM09$'"O YOU WANT TO SWITCH THE SOUND-EFFECT ON OROFF ?"h$$'"(ON=1/OFF=2) ";A:A1A2"":10020w$.'A2M0:$8'M1:"ECESSION/ASCENT (15 TO 1)/(1 TO 15)"$B'"FROM ";N:N(N):N1N15"":10050%L'" TO ";N1:N1(N1):N11N115"":10060$%V'N21:N1NN21*%`'J%)"":BAA1:C$N$(B):""Bw%)SG(1),((C$,7,3)):SG(2),((C$,10,3))%")SG(3),((C$,13,3)):SG(4),((C$,3))%')A2((C$,3,4)):OA2(NN1):A2NN1N2:36878,A2%,)B11O:B1,A2&&1)Q1SG(1),0:SG(2),0:SG(3),0:SG(4),0:B11Q1:B1/&6)B:<&*NUM0p&+"HAT'S THE NAME OF YOUR COMPOSITION ?"& +NA$:(NA$)13"":11020&+"EARCH AN EMPTY PART ON THE CASSETTE AND"& +1,1,1,NA$&*+1,N&++1,N1&,+1,N2&-+1,M'.+1,NUM'/+1,LO'0+1,HM$'1+A141'2+1,SG(A)8'3+AE'4+A1NUMR'5+1,N$(A)Y'6+Ab'7+1,Ql'8+1,Q1w'9+1,SG1'>+1:'."HAT'S THE NAME OF THECOMPOSITION WHICH YOU WANT TO LOAD ?"'.NA$"":NA$:(NA$)13"":12010;(."LAY THE TAPE TO THE PLACE WHERE THE COMPO-SITION STARTS AND ";J(.1,1,0,NA$S(/1,N]( /1,N1g( /1,N2p( /1,M{( /1,NUM( /1,LO(/1,HM(/A14(/1,SG(A)(/A:A1NUM(/1,N$(A)(/A(/1,Q(/1,Q1(/1,SG1(/1:(2NUM0G)2"O YOU WANT TO SWITCH THE BREAK AFTER EACH NOTE ON OR OFF ?"v)2"(ON=1/OFF=2) ";A:A1A2"":13010)2A2Q0:)2Q1:"ENGTH OF THE BREAK ?")2"(1 TO 9999) ";Q1:Q1(Q1):Q11Q19999"":13040)2* N""NU""*/NSG1020023+*4N"OUND VOLUNME ?"_*5N"(1-15) ";LO:LO(LO):LO1LO15"":20021h*6N""*7N"ENGTH OF THE NOTE ?"*8N"(1-9999) ";SP:SP(SP):SP1SP9999"":20024*>N"":SH(1)0:SH(2)0:SH(3)0:SH(4)0 +HNA1HM:"GENERATOR"SG(A)36873"E+RN"";SH(A):SH(A)(SH(A)):SH(A)020070s+\NSH(A)128SH(A)255((SH(A)))420050z+fNA+NC$"":A$"":LO10A$"0"+NA$A$((LO),((LO))1):C$A$+NA$"0000":A$(A$,4(((SP))1))((SP),((SP))1),NC$C$A$2,NA1HM:A$"":A$((SH(A)),((SH(A)))1)H,NSH(A)0A$"000"X,NC$C$A$:Ah,NHM420200,NAHM3:C$C$"000":A,N," ","Š"," ",""," " -"Š","Ҡ","Ԡ"," ","",""=-," ",""