*DECK,FCSROPM 
USETEXT TEXTFCS;
      PROC FCSROPM (PROMPT, MBTIDX);
*CALL COPYRITE
# TITLE FCSROPM - OVERWRITE PASSWORD PROMPT RESPONSE.                  #
  
      BEGIN                            # FCSROPM                       #
  
# 
**    FCSROPM - OVERWRITE PROMPT MESSAGE. 
* 
*     J. E. ESLER                      93/07/30 
* 
*     THIS PROCEDURE OVERWRITES THE PASSWORD VALUE ENTERED BY THE USER. 
* 
*     PROC FCSROPM (PROMPT, MBTIDX) 
* 
*     ENTRY   PROMPT     = PROMPT MESSAGE REQUIRED. 
*             MBTIDX     = MBT ENTRY INDEX OF FILE TO BE READ FROM. 
*             MBMX       = MBT ENTRY INDEX OF PROMPT FILE.
* 
*     EXIT    PASSWORD RESPONSE OVERWRITTEN ON PROMPT LINE. 
* 
*     METHOD  THE PROMPT MESSAGE IS ONLY WRITTEN IF THE FILE TO BE
*             READ FROM IS ASSIGNED TO THE TERMINAL.
* 
*             IF THE PASSWORD PROMPT IS REQUESTED, IT WILL BE 
*             REISSUED WITH CHARACTERS PICKED TO OBLITERATE THE 
*             USER'S RESPONSE.  CURSOR POSITIONING WILL BE RE-ENABLED.
# 
  
# 
**** PROC FCSROPM - XREF LIST 
# 
  
      XREF
        BEGIN 
        PROC WRITEC;                   # WRITE CODED LINE              #
        PROC WRITER;                   # WRITE END OF RECORD           #
        END 
# 
****
# 
      ITEM PROMPT        I;            # PROMPT MESSAGE REQUIRED       #
      ITEM MBTIDX        I;            # MBT ENTRY INDEX OF FILE READ  #
      CONTROL EJECT;
  
      ARRAY CURS$ON [0:0] S (1);       # TURN CURSOR CONTROL ON        #
        BEGIN 
        ITEM CU$WDON     U(00,00,60) =
                          [O"00164107400100000000"];
        END 
  
      ARRAY PWOVER [0:0] S(13);        # PASSWORD PROMPT OVERWRITE     #
        BEGIN 
        ITEM PR$PWOV0    U(00,00,60) =
                          [O"74105555555555555555"];     # PASSWORD?   #
        ITEM PR$PWOV1    U(01,00,60) =
                          [O"55556060606060606060"];
        ITEM PR$PWOV2    U(02,00,60) =
                          [O"60606060606060606060"];
        ITEM PR$PWOV3    U(03,00,60) =
                          [O"74105555555555555555"];
        ITEM PR$PWOV4    U(04,00,60) =
                          [O"55551010101010101010"];
        ITEM PR$PWOV5    U(05,00,60) =
                          [O"10101010101010101010"];
        ITEM PR$PWOV6    U(06,00,60) =
                          [O"74105555555555555555"];
        ITEM PR$PWOV7    U(07,00,60) =
                          [O"55551111111111111111"];
        ITEM PR$PWOV8    U(08,00,60) =
                          [O"11111111111111111111"];
        ITEM PR$PWOV9    U(09,00,60) =
                          [O"74102076017623762376"];
        ITEM PR$PWOVA    U(10,00,60) =
                          [O"27761776227604715555"];
        ITEM PR$PWOVB    U(11,00,60) =
                          [O"55555555555555555555"];
        ITEM PR$PWOVC    U(12,00,60) =
                          [O"55555555555555550000"];
        END 
  
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      IF MBT$DT[MBTIDX] EQ "TT" 
      THEN
        BEGIN                          # FILE ASSIGNED TO TERMINAL     #
        IF PROMPT EQ PRPASS            # PREPARE TO OVERWRITE PASSWORD #
        THEN
          BEGIN 
          WRITEC (MBT[MBMX],
                  PWOVER[0]);          # REWRITE PASSWORD PROMPT       #
          WRITEC (MBT[MBMX],
                  CURS$ON[0]);         # REENABLE CURSOR CONTROL       #
          END 
        WRITER (MBT[MBMX]);            # FLUSH PROMPT FILE             #
        END 
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSROPM                       #
  
      TERM
