;**************************************************************************
;*	BASGET.SBR	-	Simulates most BASIC compilers GET$
;*	
;*	by Dave Heyliger - AMUS Staff		Last Update 10-14-85
;*
;*	Useage:		XCALL BASGET,A$
;*	
;*			The XCALL will just sit there until you hit a
;*			key, and the value of the key will be in A$
;*
;**************************************************************************

	OBJNAM	BASGET.SBR

	SEARCH SYS
	SEARCH SYSSYM
	SEARCH TRM

;	The following file, XCALL.M68, is located in P,PN [100,52].
;	Copy this file from the Network and place it in DSK0:[7,7].

	COPY XCALL.M68				;Saves you from typing it in.

TOP:	PHDR	-1,0,PH$REE!PH$REU		;Re-entrant and re-useable.
	JOBIDX	A0				;Get the JBC into A0.
	MOV	XC.AD1(A3),A2			;Use A2 to point to A$.
	MOV	JOBTRM(A0),A1			;Get the terminal definition.
	ORW	#T$IMI!T$ECS,T.STS(A1)		;Image, Noecho of TRM Status.
	KBD					;Puts your letter into D1
	ANDW	#^C<T$IMI!T$ECS>,T.STS(A1)	;Force input to be noticed
	MOVB	D1,@A2				;Put the letter into A$
	RTN					;Back to BASIC...

	END

.