MAP1 PASSWORD$,S,24
MAP1 CRYPT$,S,70        ! [101] was 24
MAP1 STATUS,F
MAP1 LOGIN$,S,40        ! [101]
MAP1 OP,B,1             ! [101]
MAP1 ITEM$,S,20         ! [102] 

    ? tab(-1,0);"This program uses ATEREG.SBX to set a ATE password"

    input "Update 1) Cfg Password, 2) Login Password, 3) Ftp Password 0) end: ",OP  ! [102]
    if OP = 0 end
        
    ! for ftp / login password, name is the seed; for cfg password, seed is empty.
    if OP = 1 then                  ! [102] 
        ITEM$ = "CfgPassword"
    elseif OP = 2 then
        input "Login name to change password for: ",LOGIN$
        ITEM$ = "LoginPassword"
    elseif OP = 3 then         
        input "Ftp user name to change password for: ",LOGIN$
        ITEM$ = "FtpPassword"
    endif
    input "Enter new password: ",PASSWORD$
    
    xcall MIAMEX,MX_PWCRYPT,PASSWORD$,CRYPT$,3,LOGIN$   ! [101] add ,3,LOGIN$
    ? "Updating "; ITEM$; " ..."                        ! [102]
    xcall ATEREG,1,STATUS,ITEM$,CRYPT$                  ! [102] was "CfgPassword"
    ? "STATUS = ";STATUS

    if OP = 1 then
        ? "Now test it accessing Settings > Connection Properties"
        ? "(Use REGEDIT to remove from registry if you get stuck)"
    elseif OP = 2 then
        ? "Now test it by launching another session"
    endif