Class new title: RemoteParagraph
	subclassof: Object
	fields: 'file hipos lowpos'
	declare: ''

asParagraph 
	[file position_ self position.
	Paragraph new readFrom: file]

asString 
	[self asParagraph text]

fromParagraph: t1 
	[self position_ file position.
	t1 storeOn: file]

fromString: t1 
	[self fromParagraph: t1 asParagraph]

on: t1 
	[file _ t1]

position 
	[hipos + 1000 * 2000 + (lowpos + 1000)]

position_ t1 
	[t1 _ t1 intdiv: 2000.
	hipos _ (t1  1) asInteger - 1000.
	lowpos _ (t1  2) asInteger - 1000]