Modem: module{	PATH:	con "/dis/ip/ppp/modem.dis"; 	ModemInfo: adt {		path:			string;		init:			string;		country:		string;		other:			string;		errorcorrection:string;		compression:	string;		flowctl:		string;		rateadjust:		string;		mnponly:		string;		dialtype:		string;	}; 	Device: adt {		lock:	ref Lock->Semaphore;		# modem stuff		ctl:	ref Sys->FD;		data:	ref Sys->FD; 		local:	string;		remote:	string;		status:	string;		speed:	int;		t:		ref ModemInfo;		# input reader		avail:	array of byte;		pid:		int;	};		init:		fn(i: ref ModemInfo): ref Device;	dial:		fn( m: ref Device, number: string);	getc:		fn(m: ref Device, timout: int): int;	getinput:	fn(m: ref Device, n: int ): array of byte;	send:		fn(m: ref Device, x: string): int;	close:	fn(m: ref Device): ref Sys->Connection;	onhook:		fn(m: ref Device);};