;**************************************************************************
;* 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...
