Path: utzoo!dptcdc!jarvis.csri.toronto.edu!mailrus!bbn!apple!rutgers!soleil!eam
From: eam@soleil.UUCP (Ed A. Mills)
Newsgroups: comp.terminals
Subject: Re: Re: VT-240 Terminal attributes question
Summary: would more detail help?
Message-ID: <663@soleil.UUCP>
Date: 18 Apr 89 00:33:38 GMT
Organization: Harris Semiconductor, Somerville, NJ
Lines: 54

Maybe some more detail would help:

Running VMS 5.0, and using a VT-241 (VT-240 compatible 
I'd like to think...) terminal, using STARLET as the environment, 
try the following in Pascal .  Check the syntax, since I haven't
compiled this text...

**********************************************************************

[INHERIT ('wherever starlet is...')]
Program Blink_Off(input, output);

{utility for temporarily turning off blink attributes all over the
screen until you press a key}

Var channel: [WORD] 0..65535;
  operation: integer;
  x        : char;

Begin
{initialize, using STARLET values...}
operation := IO$READVBLK + IO$M_NOECHO;

{write the blinking characters...}
Writeln(chr(27), '[5m', 'CAT');
Writeln('MOUSE');
Write('DOG', chr(27), '[m');

{attempt to flush the lazy-buffer, to see the DOG prompt, 
this command doesn't work , but that's another topic...}
$FLUSH('TT');

{assign the IO channel}
$Assign('TT', channel);

{do the call, and watch cat & mouse stop blinking. Also note that you don't
have a cursor anymore....}
$QIOW(, CHANNEL, operation, , , , x, 1, ,);
{note that the attribute comes back after you press a key}

{deassign}
$deassgn(channel);

End.
{DOG prompt finally appears}
*******************************************************************************

I'd be interested if this works on your system.  I've also seen it on VT-320's
and VT-240's as well.

Ed Mills
Harris Semiconductor
Melbourne, FL  32901
(407)724-7266