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$ = "________________________________________" &
           + "________________________________________"

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.