10 ON ERROR PROCmenu
   20 *KEY 0 0|M100|M20|M
   30 *KEY 1 1|M100|M20|M  
   40 A=1
   50 N=1
   60 GOTO120
   70 PRINT"�Preset 1 or 2?Key 1 or 2"
   80 A$=GET$
   90 IFA$="1"THEN PROCpreset
  100 IFA$="2"THEN PROCpreset2
  110 GOTO80
  120 MODE7
  130  VDU141,129,157:PRINT"�     Resolve Envelope Editor"    
  140  VDU141,132,157:PRINT"�     Resolve Envelope Editor"   
  150 PRINT"�  ````````````````````````````````````"  
  160 VDU28,0,24,39,3
  170 PROCmenu
  180 DEF PROCmenu 
  190 CLS
  200 PRINT'"�Written by John Carpenter <C> 1989"
  210 PRINT"�ESCAPE returns to this menu"
  220 PRINT'
  230 VDU141,157:PRINT"�<1>�Construct Envelope    "; 
  240 VDU156:PRINT
  250 VDU141,157:PRINT"�(1>�Construct Envelope    "; 
  260 VDU156:PRINT 
  270 VDU141,157:PRINT"�<2>�Play Envelope         "; 
  280 VDU156:PRINT
  290 VDU141,157:PRINT"�<2>�Play Envelope         ";
  300 VDU156:PRINT 
  310 VDU141,157:PRINT"�<3>�Preset Envelopes      ";
  320 VDU156:PRINT 
  330 VDU141,157:PRINT"�<3>�Preset Envelopes      ";  
  340 VDU156:PRINT 
  350 VDU141,157:PRINT"�<4>�More preset envelopes "; 
  360 VDU156:PRINT
  370 VDU141,157:PRINT"�<4>�More preset envelopes ";
  380 VDU156:PRINT
  390 PRINT'''"�Select number:";
  400 IFA=1THEN GOTO70
  410 A$=GET$
  420 IFA$="2"THEN PROCplay
  430 IFA$="1"THEN PROCmake
  440 IFA$="3"THEN PROCpreset
  450 IFA$="4"THEN PROCpreset2
  460 PROCmenu
  470 ENDPROC
  480 DEF PROCpreset
  490 PRINT
  500 PRINT"�Press number next to envelope"
  510 PRINT"�<1>ENVELOPE 1,1,0,0,0,0,0,0,2,0,-10,"'"�-5,120,0"
  520 PRINT"�<2>ENVELOPE 1,3,0,0,0,0,0,0,121,-10,"'"�-5,-2,120,120"
  530 PRINT"�<3>ENVELOPE 1,7,2,1,1,1,1,1,121,-10,"'"�-5,-2,120,120"
  540 PRINT"�<4>ENVELOPE 1,1,0,0,0,0,0,0,61,0,-10,"'"�-120,120,0"
  550 PRINT"�<5>ENVELOPE 1,8,1,-1,1,1,1,1,121,-10,"'"�-5,-2,120,120"
  560 PRINT"�<6>ENVELOPE 1,8,-1,1,-1,2,2,2,107,"'"�-10,-5,-2,120,120"
  570 PRINT"�<7>ENVELOPE 1,0,0,1,-1,2,2,2,2,3,-10,"'"�24,110,120"
  580 PRINT"�<8>ENVELOPE 1,0,-128,127,19,35,68,"'"�200,2,3,-10,24,110,120"
  590 PRINT"�<9>ENVELOPE 1,4,1,-1,1,1,2,1,100,-1,"'"�-2,-3,110,40"
  600 PRINT"�<0>ENVELOPE 1,4,4,1,-1,1,1,2,1,127,0,"'"�-2,-2,110,100"
  610 PRINT"�Select:";
  620 A$=GET$
  630 A=2
  640 IFA$="1"THEN PROCone
  650 IFA$="2"THEN PROCtwo
  660 IFA$="3"THEN PROCthree
  670 IFA$="4"THEN PROCfour
  680 IFA$="5"THEN PROCfive
  690 IFA$="6"THEN PROCsix
  700 IFA$="7"THEN PROCseven
  710 IFA$="8"THEN PROCeight
  720 IFA$="9"THEN PROCnine
  730 IFA$="0"THEN PROCten
  740 GOTO620
  750 ENDPROC
  760 DEF PROCone
  770 T=1:PI1=0:PI2=0:PI3=0:PN1=0:PN2=0:PN3=0:AA=2:AD=0:AS=-10:AR=-5:ALA=120:ALD=0
  780 PROCmenu
  790 ENDPROC
  800 DEF PROCtwo
  810 T=3:PI1=0:PI2=0:PI3=0:PN1=0:PN2=0:PN3=0:AA=121:AD=-10:AS=-5:AR=-2:ALA=120:ALD=120
  820 PROCmenu
  830 ENDPROC
  840 DEF PROCthree
  850 T=7:PI1=2:PI2=1:PI3=1:PN1=1:PN2=1:PN3=1:AA=121:AD=-10:AS=-5:AR=-2:ALA=120:ALD=120   
  860 PROCmenu 
  870 ENDPROC  
  880  DEF PROCfour
  890 T=1:PI1=0:PI2=0:PI3=0:PN1=0:PN2=0:PN3=0:AA=61:AD=0:AS=-10:AR=-120:ALA=120:ALD=0  
  900 PROCmenu 
  910 ENDPROC 
  920 DEF PROCfive
  930 T=8:PI1=1:PI2=-1:PI3=1:PN1=1:PN2=1:PN3=1:AA=121:AD=-10:AS=-5:AR=-2:ALA=120:ALD=120
  940 PROCmenu
  950 ENDPROC
  960 DEF PROCsix
  970 T=8:PI1=-1:PI2=1:PI3=-1:PN1=2:PN2=2:PN3=2:AA=107:AD=-10:AS=-5:AR=-2:ALA=120:ALD=120
  980 PROCmenu
  990 ENDPROC
 1000 DEF PROCseven
 1010 T=0:PI1=0:PI2=1:PI3=-1:PN1=2:PN2=2:PN3=2:AA=2:AD=3:AS=-10:AR=24:ALA=110:ALD=120  
 1020 PROCmenu
 1030 ENDPROC
 1040 DEF PROCeight
 1050 T=0:PI1=-128:PI2=127:PI3=19:PN1=35:PN2=68:PN3=200:AA=2:AD=3:AS=-10:AR=24:ALA=110:ALD=120  
 1060 PROCmenu
 1070 ENDPROC
 1080 DEF PROCnine
 1090 T=4:PI11:PI2=-1:PI3=1:PN1=1:PN2=2:PN3=1:AA=100:AD=-1:AS=-2:AR=-3:ALA=110:ALD=40
 1100 PROCmenu
 1110 ENDPROC
 1120 DEF PROCten
 1130 T=4:PI1=1:PI2=-1:PI3=1:PN1=1:PN2=2:PN3=1:AA=127:AD=0:AS=-2:AR=-2:ALA=110:ALD=100
 1140 PROCmenu
 1150 ENDPROC
 1160 DEF PROCmenu
 1170 ENDPROC
 1180 DEF PROCplay
 1190 PRINT''
 1200 PRINT"ENVELOPE 1,";T;",";PI1;",";PI2;",";PI3;",";PN1;",";PN2;",";PN3;",";AA;",";AD;","
 1210 PRINTAS;",";AR;",";ALA;",";ALD
 1220 ENVELOPE 1,T,PI1,PI2,PI3,PN1,PN2,PN3,AA,AD,AS,AR,ALA,ALD
 1230  PRINT"�Press�F0�for standard sound effect"
 1240  PRINT"�Press�F1�for standard note(s)"
 1250 PRINT'"�Sound channel";
 1260 INPUTB
 1270 IFB<>1 AND B<>2 AND B<>3 AND B<>0 THEN GOTO 1250  
 1280 PRINT'"�Pitch(0-255)";
 1290 INPUTC
 1300  IFC>255 OR C<0 THEN GOTO1280
 1310 PRINT'"�Length(0-255)";
 1320 INPUTD
 1330 IFD>255 OR D<0 THEN GOTO1310
 1340 SOUNDB,1,C,D
 1350 PRINT"�Again?";
 1360 A$=GET$
 1370 IFA$="Y"THEN PRINT'"�There may be a short wait..."'
 1380 IFA$="Y"THEN GOTO1340
 1390 IFA$="N"THEN PROCmenu ELSE 1360
 1400 ENDPROC
 1410 DEF PROCmake
 1420 PRINT'"�Press number to change"
 1430 PRINT "�(ESCAPE for menu)"
 1440 PRINT'"�<1>T.....";T
 1450  PRINT"�<2>PI1...";PI1 
 1460 PRINT"�<3>PI2...";PI2
 1470 PRINT"�<4>PI3...";PI3
 1480 PRINT"�<5>PN1...";PN1
 1490 PRINT"�<6>PN2...";PN2
 1500 PRINT"�<7>PN3...";PN3
 1510 PRINT"�<8>AA....";AA
 1520 PRINT"�<9>AD....";AD
 1530  PRINT"�<0>AS....";AS
 1540 PRINT"�<A>AR....";AR
 1550 PRINT"�<B>ALA...";ALA
 1560 PRINT"�<C>ALD...";ALD
 1570 A$=GET$
 1580 IFA$="1"THEN PROCT
 1590 IFA$="2"THEN PROCPI1
 1600 IFA$="3"THEN PROCPI2
 1610 IFA$="4"THEN PROCPI3
 1620 IFA$="5"THEN PROCPN1
 1630 IFA$="6"THEN PROCPN2
 1640 IFA$="7"THEN PROCPN3
 1650 IFA$="8"THEN PROCAA
 1660 IFA$="9"THEN PROCAD
 1670 IFA$="0"THEN PROCAS
 1680 IFA$="A"THEN PROCAR
 1690 IFA$="B"THEN PROCALA
 1700 IFA$="C"THEN PROCALD
 1710 GOTO1570
 1720 ENDPROC
 1730 DEF PROCT
 1740 PRINT"�Input length step in 100ths of a "'"�second(0 to 127)";
 1750 INPUTT
 1760 IFT<0 OR T>127 THEN GOTO1740
 1770 PROCmake
 1780 ENDPROC
 1790 DEF PROCPI1
 1800 PRINT"�Input change of pitch per step in"'"�section 1(-128 to 127)";  
 1810 INPUTPI1
 1820 IFPI1<-128 OR PI1>127 THEN GOTO 1800
 1830 PROCmake
 1840 ENDPROC
 1850 DEF PROCPI2
 1860 PRINT"�Input change of pitch per step in "'"�section 2(-128 to 127)";
 1870 INPUTPI2
 1880 IFPI2<-128 OR PI2>127 THEN GOTO1860
 1890 PROCmake
 1900 ENDPROC
 1910 DEF PROCPI3
 1920 PRINT"�Input change of pitch per step in "'"�section 3(-128 to 127)";
 1930 INPUTPI3
 1940 IFPI3<-128 OR PI3>127 THEN GOTO1920
 1950 PROCmake 
 1960 ENDPROC 
 1970 DEF PROCPN1
 1980 PRINT"�Input number of steps in section 1"'"�(0 to 255)";
 1990 INPUTPN1
 2000 IFPN1<0 OR PN1>255 THEN GOTO1990
 2010 PROCmake 
 2020 ENDPROC 
 2030 DEF PROCPN2
 2040 PRINT"�Input number of steps in section 2"'"�(0 to 255)";
 2050 INPUTPN2
 2060 IFPN2<0 OR PN2>255 THEN GOTO2040 
 2070 PROCmake 
 2080 ENDPROC  
 2090 DEF PROCPN3
 2100 PRINT"�Input number of steps in section 3"'"�(0 to 255)";
 2110 INPUTPN3
 2120 IFPN3<0 OR PN3>255 THEN GOTO2100
 2130 PROCmake  
 2140 ENDPROC 
 2150 DEF PROCAA
 2160 PRINT"�Input change of amplitude(loudness)"'"�per step during the attack phase"'"�(-127 to 127)"; 
 2170 INPUTAA
 2180 IFAA<-127 OR A>127 THEN GOTO2160
 2190 PROCmake
 2200 ENDPROC
 2210 DEF PROCAD
 2220 PRINT"�Input change of amplitude(loudness)"'"�per step during the decay phase"'"�(-127 to 127)";
 2230 INPUTAD
 2240 IFAD<-127 OR AD>127 THEN GOTO2220
 2250 PROCmake
 2260 ENDPROC
 2270 DEF PROCAS
 2280 PRINT"�Input change of amplitude(loudness)"'"�per step during the sustain phase"'"�(-127 to 127)";  
 2290 INPUTAS
 2300 IFAS<-127 OR AS>127 THEN GOTO 2280
 2310 PROCmake 
 2320 ENDPROC 
 2330 DEF PROCAR
 2340 PRINT"�Input change of amplitude(loudness)"'"�per step during the release phase"'"�(-127 to 127)";
 2350 INPUTAR
 2360 IFAR<-127 OR AR>127 THEN GOTO2340
 2370 PROCmake  
 2380 ENDPROC  
 2390 DEF PROCALA
 2400 PRINT"�Input target of level at end of "'"�attack phase(0 to 126)";
 2410 INPUTALA
 2420 IF ALA<0 OR ALA>126 THEN 2410
 2430 PROCmake
 2440 ENDPROC
 2450 DEF PROCALD
 2460 PRINT"�Input target of level at end of decay"'"�phase(0 to 126)";
 2470 INPUTALD
 2480 IF ALD<0 OR ALD>126 THEN 2410
 2490 PROCmake
 2500 ENDPROC
 2510 DEF PROCpreset2
 2520 PRINT'"�Press number beside envelope"
 2530 PRINT"�<1>ENVELOPE 2,0,0,0,0,0,0,126,-10,"'"�-60,-5,126,0"
 2540 PRINT"�<2>ENVELOPE 2,1,-1,0,1,1,0,127,-1,-3,"'"�-5,90,0"
 2550 PRINT"�<3>ENVELOPE 1,30,1,50,-50,5,2,2,119,"'"�120,-2,110,120,126"
 2560 PRINT"�<4>ENVELOPE 1,3,1,1,1,5,2,2,119,-1,5,"'"�110,120,120"
 2570 PRINT"�<5>ENVELOPE 1,30,1,1,1,5,2,2,119,-1,"'"�5,110,120,120"
 2580 PRINT"�<6>ENVELOPE 1,0,0,1,1,1,1,1,121,-10,"'"�0,-2,120,120"
 2590 A$=GET$
 2600 A=2
 2610 IFA$="1"THEN PROC1
 2620 IFA$="2"THEN PROC2
 2630 IFA$="3"THEN PROC3
 2640 IFA$="4"THEN PROC4
 2650 IFA$="5"THEN PROC5
 2660 IFA$="6"THEN PROC6
 2670 GOTO2590
 2680 ENDPROC
 2690 DEF PROC1
 2700 T=2:PI1=0:PI2=0:PI3=0:PN1=0:PN2=0:PN3=0:AA=126:AD=-10:AS=-60:AR=-5:ALA=126:ALD=0
 2710 PROCmenu
 2720 ENDPROC
 2730 DEF PROC2
 2740 T=2:PI1=1:PI2=-1:PI3=0:PN1=1:PN2=1:PN3=0:AA=127:AD=-1:AS=-3:AR=-4:ALA=105:ALD=0 
 2750 PROCmenu
 2760  ENDPROC
 2770 DEF PROC3
 2780 T=30:PI1=1:PI2=50:PI3=-50:PN1=5:PN2=2:PN3=2:AA=119:AD=120:AS=-2:AR=110:ALA=120:ALD=126
 2790 PROCmenu
 2800 ENDPROC
 2810 DEF PROC4
 2820 T=3:PI1=1:PI2=1:PI3=1:PN1=5:PN2=2:PN3=2:AA=119:AD=-1:AS=5:AR=110:ALA=120:ALD=126  
 2830 PROCmenu
 2840 ENDPROC
 2850 DEF PROC5
 2860 T=30:PI1=1:PI2=1:PI3=1:PN1=5:PN2=2:PN3=2:AA=119:AD=-1:AS=5:AR=110:ALA=120:ALD=126 
 2870 PROCmenu
 2880 ENDPROC
 2890 DEF PROC6
 2900 T=0:PI1=0:PI2=1:PI3=1:PN1=1:PN2=1:PN3=1:AA=121:AD=-10:AS=0:AR=-2:ALA=120:ALD=120
 2910 PROCmenu
 2920 ENDPROC
 2930  *|"�E n v e l o p e�Constructor 
 2940  *|"�and Player
 2950  *|"�(C)opyright 1988 by
 2960  *|"�John Carpenter
 2970  *|"
 2980  *|"�Not very well written,but  
 2990  *|"�it serves its purpose.   
 3000  *|"
 3010  *|"���There are�loads�better
 3020  *|"���downloads than this on
 3030  *|"���Resolve Communications
 3040  *|"���(0582) 832653
 3050  *|"���24 hours every day
 3060  *|"���Viewdata & Colour Terminal
 3070  *|"���1200/75,75/1200,300/300