*DECK S$PRMPT 
          IDENT  S$PRMPT
          COMMENT  PROMPT INTERACTIVE USER
          TITLE  S$PRMPT - PROMPT INTERACTIVE USER
          SPACE  4
***   S$PRMPT - PUT OUT A PROMPT ON NOS/BE
* 
*     CALLING SEQUENCE  - S$PRMPT 
* 
*     GIVEN -   NOTHING 
* 
*     DOES -
* 
*         IF NOS  - DOES NOTHING
*         IF NOS/BE - PUTS A LINEFEED AND QUESTION MARK BEFORE
*                     ACCEPTING RESPONSE
  
  
          ENTRY  S$PRMPT
S$PRMPT   SUBR
          IFNOS 
          EXIT
          ELSE
          SA1    QMARK
          CALL   S$PUTWD           PUT OUT A QUESTION MARK
          EXIT
  
  
QMARK     VFD    42/,18/=2L ? 
  
          ENDIF 
  
          END 
