;	TITLE	"SCAPINE - Syslib 4.0"
	NAME	('CAPINE')
;=================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;-----------------------------------------------------------------
; Author  : Harold F. Bower
;		Derived from SCAPIN.Z80 Ver 1.1 by Richard Conn
; Date    : 17 Sep 89
; Version : 1.2
; Module  : SCAPINE
; Abstract:  This module contains the routine CAPINE Gets a char
;	in capital letters from the CON: device and echoes it.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		CAPINE

; From SYSLIB Get..

	EXT		CAPIN, COUT

	.Z80
	CSEG
;===============================================================
; NAME - CAPINE - Get char, capitalize and echo
; Entry: - None
; Exit :  A - Contains the capitalized char read from CON:
; Uses : AF
; Special Requirements: None
;===============================================================

CAPINE:	CALL	CAPIN		; Get char
	JP	COUT

	END