////////////////////Write To Disk
	(
	s = Server.local;
	SynthDef("help-SinOsc",{ arg out=0;
		Out.ar(out,
			SinOsc.ar(LFNoise1.kr(7,200,800), 0, 0.25)
		)
	}).load(s);
	
	SynthDef("help-DiskOut", { arg bufNum=0;
			DiskOut.ar(bufNum, In.ar(0,2));
	}).load(s)
	)
	
	//run a sound source
	a = Synth("help-SinOsc");
	
	// allocate a disk i/o buffer
	b = Buffer.new(s,65536,2);
	b.write("diskouttest2.aiff", "aiff", "int16", 0, 0, true);
	
	r = Synth("help-DiskOut", [\bufNum, b.bufnum]);
	
	//stop recording
	r.free;
	
	//stop sound
	a.free;
	
	//quit server
	s.quit;
	
	////////////////////Read From Disk: doesn't work yet like this
	
	s.boot;
	
	(
		SynthDef("help-DiskIn", {  arg bufNum=0;
			Out.ar(0, DiskIn.ar(2, bufNum));
		}).load(s)
	)

	// allocate a disk i/o buffer
	b = Buffer.cueSoundFile(s, "diskouttest2.aiff", 1, 65536,2);
	
	r = Synth("help-DiskIn", [\bufNum, b.bufnum]);	
	r.free;	
	
	b.free;
	
	b = Buffer.cueSoundFile(s, "diskouttest2.aiff", 1, 65536,2);
	r = Synth("help-DiskIn", [\bufNum, b.bufnum]);	
	r.free;