HPE Community read-only access December 15, 2018
This is a maintenance upgrade. You will be able to read articles and posts, but not post or reply.
Dec 15, 4:00 am to 10:00 am UTC
Dec 14, 10:00 pm CST to Dec 15, 4:00 am CST
Dec 14, 8:00 pm PST to Dec 15, 2:00 am PST
Showing results for 
Search instead for 
Did you mean: 


Occasional Contributor


Hi guys that's me again.

Q: How can I make, from inside a command procedure, some text to blink on the screen?

Thks guys.
Steven Schweda
Honored Contributor

Re: Blinking

It depends on the screen, but most likely:



A Google search for keywords like "vt100",
"blinking", and "dcl" will probably find more.

John Gillings
Honored Contributor

Re: Blinking

Assuming an ANSI standard terminal, you can send escape sequences to change the text attributes (bold, reverse, blink etc...)

$ esc[0,7]=27
$ off=esc+"[m"
$ bold=esc+"[1m"
$ rev=esc+"[7m"
$ blink=esc+"[5m"
$ WRITE SYS$OUTPUT blink,"this will blink",off
$ WRITE SYS$OUTPUT bold,"bolded",off
$ WRITE SYS$OUTPUT rev,"reverse",off

You can add them together

$ WRITE SYS$OUTPUT bold,rev,"reverse bold",off

or, if you want to save on output define multiple attributes in one sequence


Warning! Be sure to send the "off" sequence, otherwise all subsequent output will have the last set attribute.
A crucible of informative mistakes
Paul Beaudoin
Regular Advisor

Re: Blinking

Here is a list of some of the more used esc sequences in .COM format. Hope that helps a bit. (Watch the wrap - all lines start with $)

$ esc[0,8] = 27
$ sdc_off == "''esc'[0m" !all attributes off
$ sdc_bold1 == "''esc'[1m" !bold on
$ sdc_bold0 == "''esc'[22m" !bold off
$ sdc_undl1 == "''esc'[4m" !underline on
$ sdc_undl0 == "''esc'[24m" !underline off
$ sdc_blnk1 == "''esc'[5m" !blinking on
$ sdc_blnk0 == "''esc'[25m" !blinking off
$ sdc_rvrs1 == "''esc'[7m" !reverse video on
$ sdc_rvrs0 == "''esc'[27m" !reverse video off
$ sdc_DECSWL == "''esc'[5m" !single-width, single-height line
$ sdc_DECDWL == "''esc'[6m" !double-width, single-height line
$ sdc_DECDHL0 == "''esc'#3" !double-width, double-height line (top half)
$ sdc_DECDHL1 == "''esc'#4" !double-width, double-height line (bottom half)
$ sdc_DECKPAM == "''esc'=" !application
$ sdc_DECKPNM == "''esc'>" !numeric
$ sdc_RIS == "''esc'c" !hard terminal reset - not recommended
$ sdc_DECALN == "''esc'#8" !screen alignment pattern
$ prompt = sdc_bold1 + nodename + "::" + username + "> " + sdc_bold0
$ set prompt="''prompt'"