title	PDMVIS
	subttl	Module from library PULL_DOWN_6 : PDMVIS

; Output control string to get visible cursor

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-2000 Hamburg 20
;		Tel.: 040/4223247

;		Version 1.1 October 1988

; ENTRY	None

; EXIT	None

	public	pdmvis

	extrn	pdmstr

	.xlist
	include	PDM.LIB
	.list

pdmvis:
	push	de
	ld	de,visstr	; Fetch string
	call	pdmstr		; Execute print
	pop	de
	ret

	dseg

visstr:	db	2,esc,'e'

	end