LF = 10
TTName:  .ASCID   "Sys$Input"       ; Descriptor for terminal name
TTChan:  .BLKW    1                 ; Reserve room for channel number
TTIOSB:  .BLKW    1                 ; I/O status block: status
TTIOLen: .BLKW    1                 ;                   length
         .BLKL    1                 ;                   other info
IOBUF:   .BLKB    80                ; I/O Buffer

Prompt:  .ASCII  <LF>"-->"
          . . .
         $QIOW_S  Chan = TTChan, -  ; Use $QIOW_S on TTChan
                  Func = #IO$_ReadPrompt!IO$M_CvtLow, -
                  -                 ;   read with prompt while
                  -                 ;     converting lower case
                  IOSB = TTIOSB, -  ;   put status in TTIOSB
                  P1 = IOBuf, -     ;   put input in IOBUF
                  P2 = #80, -       ;   maximum length = 80
                  P5 = #Prompt, -   ;   address of prompt
                  P6 = #4           ;   length of prompt