! @(#)info.prg	14.1.1.1 (ES0-DMD) 09/16/99 09:27:22
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! MIDAS procedure info.prg to implement the command HELP/SUBJECT
! K. Banse      870127, 911206, 921217
! 
! execute via  @ info subject
!
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
define/param p1 + ? "Enter subject: "
if p1(1:1) .eq. "+" p1(1:1) = "?"
! 
write/keyw in_a "H/WHAT {p1}"
run MID_MONIT:helper