Examples

   1.$ SET NOCONTROL=Y

     The SET CONTROL command in this example disables the Ctrl/Y
     function as well as most Ctrl/C functions.

   2.$ SET CONTROL=T

     The SET CONTROL command in this example enables the Ctrl/T
     function.

   3.$ SET NOCONTROL=(T,Y)

     The SET CONTROL command in this example disables both the
     Ctrl/T and Ctrl/Y functions.

   4.$ <Ctrl/T>
     NODE22::SMITH 16:21:04 (DCL) CPU=00:03:29.39 PF=14802 IO=18652 MEM=68
     $ SET NOCONTROL=T
     $ <Ctrl/T>

     As shown in this example, when you press Ctrl/T, the system
     displays the appropriate information. The SET NOCONTROL=T
     command disables the Ctrl/T function. Now when you press
     Ctrl/T, no information is displayed.

   5.$ TYPE CTRLT_LOOP.COM
     $ inner=0
     $ outer=0
     $ loop:
     $ loop1:
     $ if inner .gt.  20000 then goto end_loop1
     $ inner=inner+1
     $ dcl$ctrlt=F$FAO("Inner loop count is !SL O !S !SL
			Outer loop count is !SL",inner,outer)
     $ goto loop1
     $ end_loop1:
     $ inner=0
     $ outer=outer+1
     $ goto loop
     $ @CTRLT_LOOP

     <<Press Ctrl/T>>
     NODE1::JSMITH 10:46:37 (DCL) CPU=00:03:42.68 PF=13453 IO=6743 MEM=187
     Inner loop count is 12306
     Outer loop count is 0
     NODE1::JSMITH 10:46:43 (DCL) CPU=00:03:49.19 PF=13455 IO=6744 MEM=187
     Inner loop count is 19200
     Outer loop count is 2
     .
     .
     .
     <<Press Ctrl/C>> <<--- To exit the loop.
     $ SET NOCONTROL=T
     $ @CTRLT_LOOP
     <<Press Ctrl/T>>
     <<Nothing is displayed as CTRL/T is disabled.>>
     <<Press Ctrl/C>> <<--- To exit the loop.

     This example demonstrates the use of DCL$CTRLT within a command
     procedure. The command procedure is running in a loop that
     updates the symbol DCL$CTRLT to indicate the number of loop
     iterations executed so far.