OpenVMS Source Code Demos

DEVICE_CONTROLS.INC

	%NOLIST
	%NOCROSS
	!+
	!==================================================
	! Device Control Codes
	!==================================================
	! Title    : Device Control Codes
	! Author   : Neil Steven Rieck
	! Created  : 1987.05.01
	! Objective: Create a uniform method for controlling terminal
	!	     hardware from within a BASIC program
	! Notes    :
	!
	! 1. Use "%include "[.inc]csmis$inc:Device_Controls.inc"" to reference these
	!    control codes from your program
	! 2. Since these codes are declared as STRING CONSTANTS, codes that you
	!    don't reference will -NOT- be included in the compiled program
	!    (At least for VAX BASIC version 3.0)
	!
	! History:
	!
	! Ver Who When    What
	! --- --- ------- ----
	! 1.0 NSR 87.0501 1. Original VT220 & LA50 code
	! 1.1 NSR 87.0519 1. Removed underscores from VT$Print_xx
	!                 2. Removed SGR from LA$SGRxxx
	!                 3. Added VT$Clear?? & VT$Print?? synonyms
	! 1.2 NSR 87.0612 1. Appended VT$ClearLine to VT$Error
	! 1.3 NSR 87.0629 1. Added VT line attributes
	! 1.4 NSR 87.1009 1. Appended <bell> to VT$Error
	!		  2. Added VT$Message ( VT$Error without <bel> )
	! 1.5 NSR 88.0105 1. Added VT$SaveCursor & VT$RestoreCursor
	!		     (the possibilities are now endless)
	!		  2. Added VT$Save & VT$Restore synonyms
	! 1.6 NSR 88.0107 1. added VT$KeyLock & VT$KeyUnLock
	!		  2. added VT$132 & VT$80
	! 1.7 NSR 88.0226 1. Changed all VT$Erase to VT$Clear
	!		  2. Changed VT$CPrint... to VT$Printer...
	!		  3. Changed VT$APrint... to VT$DualOut...
	!		  4. Removed VT$Prefix & LA$Prefix synonyms
	!		  5. Removed VT$PrintOn & VT$NoPrint synonyms
	!		  6. Removed VT$Save & VT$Restore synonyms
	!		  7. Removed VT$ClearScreen synonym
	! 1.8 NSR 89.0529 1. added 4 cursor control codes
	! 1.9 NSR 89.0712 1. added key pad mode commands
	! 2.0 NSR 91.1129 1. added vt$AutoWrap + vt$NoAutoWrap
	!     AGD 95.0427 1. Added vt$cursor_on vt$cursor_off
	!==================================================
	!-
	!+
	!==================================================
	!  Control Code Prefixes
	!==================================================
	!
	! Note: At some future date we may setup the VT220 terminals in
	! VT200 mode.  To do this, change the value of 'VT$Pfx' as follows...
	!
	!	from:	ESC+'['	{ escape followed by open square bracket }
	!	to:	CSI	{ an 8 bit escape with the sign bit set }
	!
	! The terminal driver must be set to 'EIGHTBIT' so we would probably
	! use 'SET TERM/INQUIRE' from within 'LOGIN.COM'.  Constant 'LA$Pfx'
	! would probably not change.
	!-
	declare string constant						&
		CSI	= '155'C  ,	! VT200 mode prefix		&
		VT$Pfx	= esc+'[' ,	! VT100 family prefix		&
		LA$Pfx	= esc+'['	! LA50 prefix
	!+
	!==================================================
	! VT220 Device Control Codes
	!==================================================
	! printer port control (page 28+29, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant						&
		VT$PrinterOn	= VT$Pfx+'5i'  , ! controller on	&
		VT$PrinterOff	= VT$Pfx+'4i'  , ! controller off	&
		VT$DualOutOn	= VT$Pfx+'?5i' , ! auto on		&
		VT$DualOutOff	= VT$Pfx+'?4i' , ! auto off		&
		VT$ScreenPrint	= VT$Pfx+'i'     ! screen print
	!+
	! Terminal Modes (page 21, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant						&
		VT$KeyLock	= VT$Pfx+'2h'  , ! keyboard lock	&
		VT$KeyUnLock	= VT$Pfx+'2l'  , ! keyboard un-lock	&
		VT$132		= VT$Pfx+'?3h' , ! 132 column		&
		VT$80		= VT$Pfx+'?3l' , !  80 column		&
		VT$AutoWrap	= VT$Pfx+'?7h' , ! auto wrap		&
		VT$NoAutoWrap	= VT$Pfx+'?7l'   ! no auto wrap
	!+
	! Select Graphic Rendition (page 24, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant						&
		VT$Cursor_on    = VT$Pfx+'?25h', ! text cursor on	&
		VT$Cursor_off   = VT$Pfx+'?25l', ! text cursor off	&
		VT$Normal	= VT$Pfx+'0m'  , ! attributes off	&
		VT$Bright	= VT$Pfx+'1m'  , ! bright		&
		VT$Under	= VT$Pfx+'4m'  , ! underline		&
		VT$Flash	= VT$Pfx+'5m'  , ! flash		&
		VT$Reverse	= VT$Pfx+'7m'  , ! reverse video	&
		VT$NoBright	= VT$Pfx+'22m' , ! no bright		&
		VT$NoUnder	= VT$Pfx+'24m' , ! no Underline		&
		VT$NoFlash	= VT$Pfx+'25m' , ! no flash		&
		VT$NoReverse	= VT$Pfx+'27m'   ! no reverse
	!+
	! line erasing  (page 26, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant						&
		VT$ClearEOL	= VT$Pfx+'0K' , ! to End		&
		VT$ClearBOL	= VT$Pfx+'1K' , ! to Beginning		&
		VT$ClearLine	= VT$Pfx+'2K'   ! whole
	!+
	! screen erasing (page 26, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant						&
		VT$ClearEOS	= VT$Pfx+'0J' , ! to End		&
		VT$ClearBOS	= VT$Pfx+'1J' , ! to Beginning		&
		VT$Clear	= VT$Pfx+'2J'	! whole
	!+
	! line attributes (page 25, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant					&
		VT$SingleWidth		=	esc+'#5' ,	&
		VT$DoubleWidth		=	esc+'#6' ,	&
		VT$DoubleHeightTop	=	esc+'#3' ,	&
		VT$DoubleHeightBottom	=	esc+'#4'
	!+
	! cursor positioning (page 23, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant					&
		VT$SaveCursor		=	esc+'7' ,	&
		VT$RestoreCursor	=	esc+'8'
	!+
	! cursor motion (page 22, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant					&
		VT$CursUp		=	VT$Pfx + '1A' ,	&
		VT$CursDown		=	VT$Pfx + '1B' ,	&
		VT$CursRight		=	VT$Pfx + '1C' ,	&
		VT$CursLeft		=	VT$Pfx + '1D'
	!+
	! keypad mode (page 21, 'VT220 Programmer Pocket Guide')
	!-
	declare string constant					&
		VT$KeyPadApp		=	esc + '=',	&
		VT$KeyPadNum		=	esc + '>'
	!+
	!==================================================
	!  LA50 Device Control Codes
	!==================================================
	! Printer Horizontal Pitch (LA$HP)
	! (page 31, 'LA50 Programmer Reference Manual')
	!-
	declare string constant						&
		LA$HP10	= LA$Pfx+'0w' , ! 10	char/inch		&
		LA$HP12	= LA$Pfx+'2w' , ! 12	char/inch		&
		LA$HP16	= LA$Pfx+'4w' , ! 16.5	char/inch		&
		LA$HP5	= LA$Pfx+'5w' , !  5	char/inch		&
		LA$HP6	= LA$Pfx+'6w' , !  6	char/inch		&
		LA$HP8	= LA$Pfx+'8w'   !  8.25	char/inch
	!+
	! Printer Vertical Pitch (LA$VP)
	! (page 33, 'LA50 Programmer Reference Manual')
	!-
	declare string constant						&
		LA$VP6	= LA$Pfx+'0z' , !  6 char/inch			&
		LA$VP12	= LA$Pfx+'2z' , !  8 char/inch			&
		LA$VP16	= LA$Pfx+'3z' , ! 12 char/inch			&
		LA$VP2	= LA$Pfx+'4z' , !  2 char/inch			&
		LA$VP3	= LA$Pfx+'5z' , !  3 char/inch			&
		LA$VP4	= LA$Pfx+'6z'   !  4 char/inch
	!+
	! Select Graphic Rendition
	! (page 39, 'LA50 Programmer Reference Manual')
	!-
	declare string constant						&
		LA$Normal	= LA$Pfx+'0m'  , ! normal		&
		LA$Bold		= LA$Pfx+'1m'  , ! bold on		&
		LA$Under	= LA$Pfx+'4m'  , ! underline		&
		LA$NoBold	= LA$Pfx+'22m' , ! no bold		&
		LA$NoUnder	= LA$Pfx+'24m'   ! no underline
	!+
	!==================================================
	! Common synonyms defined for general use
	!==================================================
	!-
	declare string constant						&
		VT$Home		= VT$Pfx+'1;1H'			     ,	&
		VT$Error	= VT$Pfx+'24;1H'+ bel + VT$ClearLine ,	&
		VT$Message	= VT$Pfx+'24;1H'+ VT$ClearLine	     ,	&
		VT$Command	= VT$Pfx+'23;1H'+ VT$ClearLine
	%LIST
	%CROSS

Back to OpenVMS
Back to OpenVMS Demo Index
Back to Home
Neil Rieck
Kitchener - Waterloo - Cambridge, Ontario, Canada.