title	Module from library BASE_3 : UPPINO
	name	('UPPINO')
	maclib	baselib.lib

; Input a character from keyboard echo as upper case

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 December 1986

; ENTRY	None

; EXIT	Accu holds character in upper case

	entry	uppino

	extrn	conino,conout,uppcon

uppino:
	call	conino		; Get character
	call	uppcon		; Convert it
	push	af
	call	conout		; Then echo
	pop	af
	ret

	end