!*! Updated on 16-May-89 at 11:32 AM by James A. Jarboe I V; edit time: 0:07:45

MAP1 AB, S, 4,"1234"
MAP1 PASWORD,S,10,"abcdefghij"
MAP1 AC, S, 4,"1234"

! PASWORD will be cleared upon entry into XCALL subroutine.
! PASWRD.SBR will only accept characters for the length of variable.
! Bell will ring if length of string is exceeded.
! RUB or DEL will delete last character input.
! The only exit from PASWRD.SBR is a CR.

TOP:

? "Enter Password ";
XCALL PASWRD, PASWORD
?

? AB
? PASWORD
? AC