< FILE NAME='INSTS'
<FOUR INSTRUMENTS FOR ELEMENTRY COMPUTER MUSIC
<P10 IS STEREO CONTROL

COMPILE;
INSTRUMENT TOOT1;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;

INSTRUMENT TOOT3;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;

INSTRUMENT TOOT2;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;

INSTRUMENT TOOT;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;

INSTRUMENT CLAR;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;

INSTRUMENT BRIT;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P8);< P8 IS TONE COLOR FOR 'BRIT'
OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;

INSTRUMENT BUZZ;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P9);< P9 IS TONE COLOR FOR 'BUZZ'
OUTA←OUTA+U2*P10;OUTB←OUTB-U2*(1-P10);END;
FINISH;

ARRAY F2,F3,F4,F5,F6(512); < ARRAY 1 IS IN FILE 'NOTES'.
SEG(F1);.9 6,1 11 .9 82	.7 90  0 100; < MEZZO LEGATO
SEG(F2);1 3,1 11,.5 31,.3 51,0 100; < STACCATO
SYNTH(F3);1,.8  2,.15 3,.05  999; < TOOT
SYNTH(F4);1,.5  3,.3  5,.2  7,.1  999; < CLAR
SYNTH(F5);1,.3  2,.4  3,.2  8,.2  12 .1  999; < BRIT
SEG(F6);-1,1   1,7   -1,14   -1,100; < BUZZ


PLAY;TOOT 0 .12 C 1000 F1 F3 F4 F5 F6 1;
CLAR .12;BRIT .24;BUZZ .36;FINISH;PRINT(LSBUF);