STRSIZ 80
MAP1 R0,F	! Internal Use
MAP1 R1,F	! Column for input  <---  +-------------------+
MAP1 R2,F	! Row for input     <---  | Also see R$ below |
MAP1 R3,F	! Length of input   <---  +-------------------+
MAP1 R4,F	! No. of valid chars in R5$
MAP1 R5,F	! Minumum allowed for numeric input
MAP1 R6,F	! Maximum allowed for numeric input
MAP1 R7,F	! Internal Use
MAP1 R8,F	! Return value for numeric input
MAP1 R9,F	! Column for prompt display
MAP1 R10,F	! Row for prompt display
MAP1 R11,F	! Internal Use
MAP1 R12,F	! Internal Use
MAP1 R13,F	! Internal Use
!
MAP1 R$,S,10	! R$="S" String Input  or  R$="N" Numeric Input
		! or R$="t,cc,rr,ll" where t=type (S/N) rr=row  cc=col  ll=len
MAP1 R0$,S,1	! Internal Use
MAP1 R3$,S,20	! Numeric editing mask
MAP1 R4$,S,80	! Internal Use
MAP1 R5$,S,32	! Allowable chars 
MAP1 R6$,S,80	! Default value
MAP1 R7$,S,80	! Input marker symbols
MAP1 R8$,S,80 	! Return value for string input
MAP1 R9$,S,80	! Prompt
!
	R7$ = "________________________________________" &
	    + "________________________________________"

.