title	PDMRET
	subttl	Module from library PULL_DOWN_11 : PDMRET

; Type a window

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

;		Version 1.0 October 1988

; ENTRY	Reg pair DE holds user control block (UPB)
;	Reg pair HL points to complete window text line
;	Reg B holds color information as defined in
;	module PDMTXO

; EXIT	None

	public	pdmret

	ext	pdmman,pdmtxo

	.xlist
	include	PDM.LIB
	.list

pdmret:
	push	bc
	push	hl
	push	de		; Save frame descriptor
	call	pdmman		; Build a frame
	pop	de
	pop	hl
	pop	bc
	push	hl
	push	de
	call	pdmtxo		; Print text in frame
	pop	de
	pop	hl
	ret

	end