From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  4-MAY-1991 08:07:34.87
To:	ARISIA::EVERHART
CC:	
Subj:	Re: Setting up a key ast routine using smg.

From:	RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP@CRDGW2
To:	Everhart@Arisia@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.97)
	 id AA29141; Sat, 4 May 91 07:56:59 EDT
Received: From CUNYVM.CUNY.EDU by CRVAX.SRI.COM with TCP; Sat,  4 MAY 91 04:49:48 PDT
Received: from EKU.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP R1.2.2MX) with BSMTP id 5516; Sat, 04 May 91 07:48:54 EDT
Date: Sat, 4 May 1991 07:48 EDT
From: "Ignorance HATES Knowledge..........!!" <ACSMARTIN%EKU.BITNET@CUNYVM.CUNY.EDU>
Subject: Re: Setting up a key ast routine using smg.
To: INFO-VAX@SRI.COM
Message-Id: <6CDE9784A0021D12@EKU.BITNET>
X-Envelope-To: INFO-VAX@SRI.COM
X-Vms-To: IN%"INFO-VAX@SRI.COM"

todd --

try this  -- it kills all but control-M -- I think that control-T may
get through too, but I am only on my first cup of coffee....

Bob Martin -- Eastern KY U -- Academic Computing
Bitnet: Acsmartin@eku

----------------------- Control.pas ----------------------------
[Inherit('Sys$Library:Starlet')]

Module   Disable_Control_Keys ( Input, Output );

Var  Control_Mask : Unsigned;


Procedure  Smg$Set_Out_Of_Band_Asts(
        Pb_id             : Unsigned;
        Control_Char_Mask : Unsigned := %Immed %XFFFFFFFF;
        Ast_Routine       : Unsigned;
        Ast_Argument      : Unsigned := %Immed 0
        ); External;


[GLOBAL]Procedure  Nothing;

Begin
End;


[GLOBAL]Procedure NoControl( VAR Screen : Unsigned );

Begin
   Control_mask := %B'1111111111111111101111111111111';
   SMG$SET_OUT_OF_BAND_ASTS (Screen, control_mask, %Immed Nothing);
End;


[GLOBAL]Procedure Control( VAR Screen : Unsigned );

Begin
   Control_mask := %B'0000000000000000000000000000000';
   SMG$SET_OUT_OF_BAND_ASTS (Screen, Control_Mask, %Immed Nothing);
End;


End.


