! LSE$VMS_HELP.TPU
!*************************************************************************
!									 *
!	      © 2000 BY							 *
!	      COMPAQ COMPUTER CORPORATION                                *
!	      © 2000 BY							 *
!	      ELECTRONIC DATA SYSTEMS LIMITED                            *
!									 *
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED *
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE *
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER *
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
! OTHER  PERSON.  NO  TITLE TO OR OWNERSHIP OF THE  SOFTWARE  IS  HEREBY *
! TRANSFERRED.                                                           *
!									 *
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE *
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT  BY  COMPAQ COMPUTER *
! CORPORATION OR EDS.                                                    *
!									 *
! NEITHER  COMPAQ  NOR  EDS  ASSUME ANY RESPONSIBILITY FOR  THE  USE  OR *
! RELIABILITY  OF  THIS SOFTWARE ON EQUIPMENT WHICH IS NOT  SUPPLIED  BY *
! COMPAQ.                                                                *
!									 *
!*************************************************************************
!
!++
! FACILITY:
!	DEC Language-Sensitive Editor
!                               
! ABSTRACT:
!       This file contains grammar routines for old-grammar commands to
!       inform the user what the corresponding new-grammar command is.
!
! ENVIRONMENT:
!	Portable/LSE
!
! Author: Diana E. Carroll
!
! CREATION DATE: 17-Apr-1992
!
! MODIFIED BY:
!


procedure lse$vms_lse_module_ident

return "X4.0";

endprocedure;

procedure vmshelp_goto_file(;file_name)

    eve$message("This is a VMS-only command, new commands are: OPEN FILE and NEW FILE");
    lse_open_file(file_name);

endprocedure; ! vmshelp_goto_file

procedure vmshelp_write(;file_name)

    eve$message("This is a VMS-only command, new commands are: SAVE FILE and SAVE AS");
    if file_name = tpu$k_unspecified
    then
	lse_save_file;
    else
	lse_save_as(file_name);
    endif;

endprocedure; ! vmshelp_write

procedure vmshelp_define(;p1, p2, p3)

    eve$message("This is an ambiguous VMS-only command, no command was executed.");
    eve$message("The new command is NEW <language-element>");

endprocedure; ! vmshelp_define

procedure vmshelp_do (;buffer_name)
 
    eve$message("This is an ambiguous VMS-only command, no command was executed.");
    eve$message("The new commands are: EXECUTE BUFFER LSE and EXECUTE BUFFER TPU");

endprocedure; ! vmshelp_do

procedure vmshelp_set_read_only

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE READONLY");
    lse_set_buffer_close("readonly");

endprocedure; ! vmshelp_set_read_only

procedure vmshelp_set_nowrite

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE READONLY");
    lse_set_buffer_close("readonly");

endprocedure; ! vmshelp_set_nowrite

procedure vmshelp_set_write

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE WRITE");
    lse_set_buffer_close("write");

endprocedure; ! vmshelp_write

procedure vmshelp_set_modify

    eve$message("This is a VMS-only command, new command is: SET BUFFER MODIFIABLE ON");
    lse_set_buffer_modifiable("on");

endprocedure; ! vmshelp_set_modify

procedure vmshelp_set_noread

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE WRITE");
    lse_set_buffer_close("write");

endprocedure; !vmshelp_set_noread

procedure vmshelp_set_nomodify

    eve$message("This is a VMS-only command, new command is: SET BUFFER MODIFIABLE OFF");
    lse_set_buffer_modifiable("off");

endprocedure; ! vmshelp_set_nomodify

procedure vmshelp_end_review

    eve$message("This is a VMS-only command, new command is: CLOSE BUFFER $REVIEW");
    lse_close_buffer("$review");

endprocedure; ! vmshelp_end_review

procedure vmshelp_dcl(;command_line)

    eve$message("This is a VMS-only command, new command is: CLI [command-line]");
    lse_cli(command_line);

endprocedure; ! vmshelp_dcl

procedure vmshelp_unexpand

    eve$message("This is a VMS-only command, new command is: DELETE EXPAND");
    lse_delete_expand;

endprocedure; ! vmshelp_unexpand