BSDHELP.m

BSDHELP ;IHS/ITSC/WAR - ERROR/HELP MSGS [ 01/22/2004  1:10 PM ]

 ;;5.3;PIMS;;FEB 15,2002

 ;Take advantage of Screenman error & msg handling.

HLP(Z) ;EP  

 W *7

 W !!,"Please contact IHS/ITSC in Albuquerque... thank you!"

 ;N Y  S Y=-1

 Q

BSDHELP   ;IHS/ITSC/WAR - ERROR/HELP MSGS [ 01/22/2004  1:10 PM ]

 +1       ;;5.3;PIMS;;FEB 15,2002

 +2       ;Take advantage of Screenman error & msg handling.

HLP(Z)    ;EP  

 +1        WRITE *7

 +2        WRITE !!,"Please contact IHS/ITSC in Albuquerque... thank you!"

 +3       ;N Y  S Y=-1

 +4        QUIT