	load	'macros.dump'
	include 'driver.equ'
	include 'scrap.equ'

	IMPORT	X_AsciiFilter
	IMPORT	D_BeachBall
	IMPORT	D_CurCursor
	IMPORT	X_DefHeader
	IMPORT	D_GrowHandle
	IMPORT	D_NeedHand
	IMPORT	X_OldCursor
	IMPORT	D_SetCursor
	import	X_DoAsciitoPLText
	
X_AsciitoPLText	PROC	EXPORT

	input Src:l

	output Dest:l

	error err

	begin +b

	SpaceLong
	PushLong Src
	PushLong Monaco9
	PushWord #0
	jsl X_DoAsciitoPLText
	sta err
	PullLong Dest

	return

Monaco9	DC.W	4
	DC.B	0
	DC.B	9

	ENDP

X_ImportAsciitoPLText	PROC	EXPORT

	input Src:l

	output Dest:l

	error err

	begin +b

	call X_AsciiFilter,in=(Src:l)
	call X_AsciitoPLText,in=(Src:l),out=(Dest:l),err=err

	return
	ENDP


	END

