title	Module from library BASE_2 : UPPIN
	name	('UPPIN')
	maclib	baselib.lib

; Input a character from keyboard in upper case

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

;		Version 1.0 August 1986

; ENTRY	None

; EXIT	Accu holds character in upper case

	entry	uppin

	extrn	conin,uppcon

uppin:
	call	conin		; Get character
	jp	uppcon		; Convert it

	end