.AUTOJUSTIFY
.AUTOPARAGRAPH
.DISPLAY LEVELS D
.DISPLAY NUMBER D
.NUMBER 1
.ENABLE INDEXING
.FILL
.flags capitalize
.FLAGS INDEX
.FLAGS SUBINDEX
.LEFT MARGIN 5
.RIGHT MARGIN 75
.PAGE SIZE 56,80
.LOWER CASE
.NOTE  ABSTRACT
^THIS IS A SUMMARY DESCRIPTION OF <FORTRAN CALLABLE SUBROUTINES
THAT ALLOW THE USER TO READILY ACCESS THE CAPABILITIES OF A ^V^T-220.
^IT IS ASSUMED THAT THE THE USER HAS AVAILABLE FOR FURTHER REFERENCE
THE ^V^T-220 ^PROGRAMMER ^POCKET ^GUIDE AS SOME OF THE ARGUMENTS
USED IN THE SUBROUTINE CALLS ARE BASED ON THE HARDWARE EXPECTE VALUES.
^THE ^V^T-200 CONTROLED BY THESE ROUTINES MUST BE THE CURRENT <SYS$INPUT<
AND <SYS$OUTPUT< .
.END NOTE
.HL 1  <APPLICATION__KEYPAD<
.INDEX <APPLICATION__KEYPAD<
.INDEX <NUMERIC__KEYPAD<
 ^CALLED WITH NO ARGUMENTS, THIS SUBROUTINE SET THE KEYBOARD KEYPAD TO
APPLICATION MODE (ESCAPE SEQUENCES SENT WHEN PRESSED). ^THIS MODE IS
RESET WHEN THE SUBROUTINE <NUMERIC__KEYPAD IS INVOKED.
.HL 1 <CLEAR__ALL__TAB<
.INDEX <CLEAR__ALL__TAB<
.INDEX <CLEAR__TAB<
.INDEX <SET__TAB<
 ^CALLED WITH NO ARGUMENTS, THIS SUBROUTINE CLEARS ALL TABS CURRENTLY SET
ON THE TERMINAL. ^SEE ALSO <CLEAR__TAB< AND <SET__TAB< .
.HL 1 <CLEAR__CHARACTER<(^I)
.INDEX <CLEAR__CHARACTER<
 ^STARTING AT THE CURENT CURSOR POSITION, CLEARS THE CHARACTER AT THAT
POSITION ANT THE NEXT ^I-1 CHARACTERS IN THE LINE.
.HL 1 <CLEAR__LINE<(^I)
.INDEX <CLEAR__LINE<
 ^CLEARS PART OR ALL OF THE CURRENT LINE RESIDED ON BY THE CURSOR, DEPENDING
ON THE VALUE OF THE PASSED VARIABLE ^I .
.LITERAL

I	ACTION
0	Erase line from cursor position to the end of the line
1	Erase line from beginning of the line to the cursor position
2	Erase the entire line.

.end LITERAL
.HL 1 <CLEAR__SCREEN<(^I)
.INDEX <CLEAR__SCREEN<
 ^CLEARS ALL OR PART OF THE ENTIRE DISPLAY SCREEN DEPENDING ON THE 
PASSED VALUE OF THE ARGUMENT ^I .
.LITERAL

I	ACTION
0	Erases the screen from the cursor position to the end of the
	display.
1	Erases the screen from the top of the display to and includeing
	the cursor position.
2	Erases the entire screen

.end literal
.hl 1 <CLEAR__TAB
.index <clear__tab<
.INDEX <CLEAR__ALL__TAB<
.INDEX <SET__TAB<
 ^clears the tab setting at the current horizontal position of the
cursor. ^see also <Clear__all__tab< and <set__tab< .
.HL 1 <ERASE__LINE<(^I)
.INDEX <ERASE__LINE<
.INDEX <SET__MODE<
 ^ERASES ALL CHARACTERS IN PART OR ALL OF 
THE CURRENT LINE RESIDED ON BY THE CURSOR THAT HAVE NOT BEEN DECLARED
TO HAVE THE CHARACTERISTIC <NOT <ERASEABLE, DEPENDING
ON THE VALUE OF THE PASSED VARIABLE ^I .
.LITERAL

I	ACTION
0	Erase eraseable characters in line from cursor position to the end
	of the line
1	Erase eraseable characters in line from beginning of the line to 
	the cursor position
2	Erase eraseable characters in the entire line.

.end LITERAL
.HL 1 <erase__SCREEN<(^I)
.INDEX <erase__SCREEN<
.index <set__mode
 ^erases the all the characters that do not have the characteristic
<not <eraseable from ALL OR PART OF THE ENTIRE DISPLAY SCREEN DEPENDING ON THE 
PASSED VALUE OF THE ARGUMENT ^I .
.LITERAL

I	ACTION
0	Erases all eraseable characters from the screen from the cursor 
	position to the end of the display.
1	Erases all eraseable characters from the screen from the top of
	the display to and includeing the cursor position.
2	Erases all eraseable characters from the entire screen

.end literal
.hl 1 <JUMP
.index <jump<
.index <smooth<
 ^called with no arguments, this subroutine sets the scrolling mode to 
jump mode vice smooth mode.
.hl 1 <MOVE__CURSOR<(^i,^j)
.index <move__cursor<
.index <set__mode<
.index <scroll<
 ^moves the cursor to the specified row and column position on the screen.
^the row (^i) runs from 1 to 24 and the column (^j) runs from 1 to 132 .
^depending on the terminal setting of the <origin mode, the origin is either
(<reset) the upper left corner of the screen or (<set) the upper left corner
of the scrolling region as set by the <scroll  command.
.hl 1 <NUMERIC__KEYPAD<
.INDEX <APPLICATION__KEYPAD<
.INDEX <NUMERIC__KEYPAD<
 ^CALLED WITH NO ARGUMENTS, THIS SUBROUTINE SET THE KEYBOARD KEYPAD TO
numeric MODE (numbers SENT WHEN PRESSED). ^THIS MODE IS
RESET WHEN THE SUBROUTINE <application__KEYPAD IS INVOKED.
.hl 1 <POP__CURSOR<
.index <pop__cursor<
.index <push__cursor<
 ^called with no arguments, this is the compliment to the <push__cursor
subroutine. ^this routine causes the terminal to reset itself to the
position, graphic rendition,character set, wrap flag, origin mode and
selective erase it had at the time of the last <push__cursor< command.
.hl 1 <PRINT__LINE<
.index <print__line<
 ^called with no arguments. ^for terminals with printers attached.
^causes the line containing the cursor to be printed.
.hl 1 <PRINT__SCREEN<
.index <print__screen<
.index <set__terminal<
.index <reset__terminal<
 ^called with no arguments. ^for terminals with printers attached.
^depending on the terminal mode <decext will print either (<set<) the
entire screen or (<reset<) the scrolling region. ^the current value of the
printer form feed mode (<decpff<) determines if the screen print terminates
with a form feed.
.hl 1 <PUSH__CURSOR<
.index <pop__cursor<
.index <push__cursor<
 ^called with no arguments, this is the compliment to the <pop__cursor 
subroutine. ^this routine causes the terminal to save for later reset
via the <pop__cursor command, the current
position, graphic rendition,character set, wrap flag, origin mode and
selective erase .
.HL 1 <RESET__AUTO__PRINT<
.INDEX <RESET__AUTO__PRINT<
.INDEX <SET__AUTO__PRINT<
 ^CALLED WITH NO ARGUMENTS. ^FOR TERMINALS with printers attached.
^this is the compliment to the <set__auto__print subroutine.
^turns off the printing of lines as they appear on the terminal.
.hl 1 <RESET__PRINTER__CONTROLLER<
.index <reset__printer__controller<
.index <set__printer__controller<
 ^called with no arguments. ^for terminals with printers attached.
^this is the compliment to the <set__printer__controller< subroutine.
^turns off the redirection of output from the terminal screen to the
printer.
.HL 1 <RESET__TERMINAL<(^I)
.INDEX <RESET__TERMINAL<
.INDEX <SET__TERMINAL<
 ^RESETS THE SELECTED TERMINAL CHARACTERISTIC TO THE DEFAULT VALUE.
^THIS IS THE COMPLIMENT OF THE <SET__TERMINAL< SUBROUTINE.
.tp 25
.LITERAL

I	Mnemonic			Set Mode	Reset Mode
1	DECCKM-Cursor Key		Application	Cursor
2	DECANM-ANSI/VT52		ANSII		VT52
3	DECCOLM-Column			132		80
4	DECSCLM-Scrolling		Smooth		Jump
5	DECSCNM -Screen			Reverse		Normal
6	DECOM-Origin			Origin		Absolute
7	DECAWM-Auto wrap		On		Off
8	DECARM-Auto repeat		On		Off
18	DECPFF-Print form feed		On		Off
19	DECPEX-Print extent		Full screen	Scrolling region
25	DECTCEM-Text cursor enable	On		Off
38	DECTEK-Tektronix 40120/4014	On		Off
42	DECNRCM-Character set		National	Multinational
102	KAM-Keyboard Action		Locked		Unlocked
104	IRM-Insertion/replacement	Insert		Replace
112	SRM-Send-Recieve		Off		On
120	LNM-Line Feed/New line		New Line	Line Feed

.end literal
.hl 1 <SCROLL<(^i,^j)
.index <scroll<
 ^sets the screen scrolling region to row ^i to row ^j. ^where 
1.^l^e.^i.^l^e.^j.^l^e.24 .
.hl 1 <SELECT__CHARACTER__SET<(^n,<name<)
.index <select__character__set<
 ^allows the user to dynamicaly alter at run time what character sets
are available for output to the terminal. ^the argument ^n designates what
character set (^g0, ^g1, ^g2, ^g3) is to be loaded with with the designated
font. ^n is an integer variable takeing the value 0-3. <name is a character
string of length 1-3 containing the name of the font to be down line
loaded to the specified charater set ^gx. ^the fonts currently available are:
.tp 25
.literal

Name	Font
A	British
B	ASCII
C	Finnish
E	Norwegian/Danish
H	Swedish
K	German
Q	French Canadian
R	French
Y	Italian
Z	Spanish
<	DEC Suplemental
=	Swiss
0	DEC Special Graphics
4	Dutch
5	Finnish
6	Norwegian/Danish
7	Swedish

.end literal
^the name may also be the name of a user defined font that has been previously
down line loaded.
.hl 1 <SET__AUTO__PRINT<
.INDEX <RESET__AUTO__PRINT<
.INDEX <SET__AUTO__PRINT<
 ^CALLED WITH NO ARGUMENTS. ^FOR TERMINALS with printers attached.
^this is the compliment to the <reset__auto__print subroutine.
^turns on the printing of lines as they appear on the terminal.
.hl 1 <SET__MODE<(<ichar<)
 ^clears the current character print out mode and resets it to the modes
set in <ichar< . ^where <ichar< is the sum of all the individual modes that
the user wants set.
.tp 25
.literal

I	Meaning
1	Increased intensity
2	Underscore
4	Blink
8	Negative
16	Select character set G0-G3 for GL, where N=0-3 coresponding to
	the character set wanted-ICHAR=ICHAR+16*N
64	Select character set G0-G3 for GR, where N=0-3 coresponding to
	the character set wanted-ICHAR=ICHAR+64*N
256	Not eraseable
512	Eraseable
1024	Line attributes-calculated as follows
	single width line  		ICHAR=ICHAR
	Double width line		ICHAR=ICHAR+1024
	Double height top half		ICHAR=ICHAR+2048
	Double height bottom half	ICHAR=ICHAR+3072

.end literal
.hl 1 <SET__PRINTER__CONTROLLER<
.index <reset__printer__controller<
.index <set__printer__controller<
 ^called with no arguments. ^for terminals with printers attached.
^this is the compliment to the <reset__printer__controller< subroutine.
^turns on the redirection of output from the terminal screen to the
printer.
.HL 1 <SET__TAB<
.index <clear__tab<
.INDEX <CLEAR__ALL__TAB<
.INDEX <SET__TAB<
 ^SETS the tab setting at the current horizontal position of the
cursor. ^see also <Clear__all__tab< and <CLEAR__tab< .
.HL 1 <SET__TERMINAL<
.INDEX <RESET__TERMINAL<
.INDEX <SET__TERMINAL<
 ^SETS THE SELECTED TERMINAL CHARACTERISTIC TO THE SET  VALUE.
^THIS IS THE COMPLIMENT OF THE <RESET__TERMINAL< SUBROUTINE.
.tp 25
.LITERAL

I	Mnemonic			Set Mode	Reset Mode
1	DECCKM-Cursor Key		Application	Cursor
2	DECANM-ANSI/VT52		ANSII		VT52
3	DECCOLM-Column			132		80
4	DECSCLM-Scrolling		Smooth		Jump
5	DECSCNM -Screen			Reverse		Normal
6	DECOM-Origin			Origin		Absolute
7	DECAWM-Auto wrap		On		Off
8	DECARM-Auto repeat		On		Off
18	DECPFF-Print form feed		On		Off
19	DECPEX-Print extent		Full screen	Scrolling region
25	DECTCEM-Text cursor enable	On		Off
38	DECTEK-Tektronix 40120/4014	On		Off
42	DECNRCM-Character set		National	Multinational
102	KAM-Keyboard Action		Locked		Unlocked
104	IRM-Insertion/replacement	Insert		Replace
112	SRM-Send-Recieve		Off		On
120	LNM-Line Feed/New line		New Line	Line Feed

.end literal

.HL 1 <SMOOTH<
.index <jump<
.index <smooth<
 ^called with no arguments, this subroutine sets the scrolling mode to 
SMOOTH mode vice JUMP mode.
.HL 1 <WIDTH__132<
.INDEX <WIDTH__132<
.INDEX <WIDTH__80<
 ^SETS THE TERMINAL TO 132 COLUMN MODE. ^THIS IS THE SAME AS THE
COLUMN MODE OF THE <SET__TERMINAL</<RESET__TERMINAL SUBROUTINES.
.HL 1 <WIDTH__80<
.INDEX <WIDTH__132<
.INDEX <WIDTH__80<
 ^SETS THE TERMINAL TO 80 COLUMN MODE. ^THIS IS THE SAME AS THE
COLUMN MODE OF THE <SET__TERMINAL</<RESET__TERMINAL SUBROUTINES.
.HL 1 <WRITE__FLOAT<(^I,^J,^F,<IFORMAT<,<ICHAR<)
.INDEX <WRITE__FLOAT<
 OUTPUTS THE SPECIFIC FLOATING POINT NUMBER TO THE SCREEN AT THE
SPECIFIED LOCATION, WITH THE SPECIFIED FORMAT AND CHARACTERISTICS.
.B
^THE ARGUMENTS ^I AND ^J SPECIFY THE STARTING LOCATION OF THE STRING TO
BE WRITTEN. ^THEY ARE INTEGER VARIABLES MATCHING THE ARGUMENTS REQUIRED
BY <MOVE__CURSOR .
.INDEX <MOVE__CURSOR
.B
^F IS A FLOATING POINT VARIABLE CONTAINING THE VALUE TO BE OUTPUT.
.B
<IFORMAT IS A CHARACTER STRING CONTAINING THE FORMAT OF THE CONVERSION
OF ^F TO A STRING.
.B
<ICHAR IS AN INTEGER SPECIFYING THE CHRACTERISTICS OF THE STRING
TO BE WRITTEN THE VALUE DEPENDS ON THE CHARACTERISTICS WANTED, AS OUTLINED
IN <SET__MODE .
.INDEX <SET__MODE .
^IF THE USER WANTS A DOUBLE HEIGHT STRING, THEN HE NEED ONLY SPECIFY
THE OPTION NUMBER FOR DOUBLE HEIGHT TOP HALF AND THE BOTTOM WILL BE
AUTOMATICALY WRITTEN IN. ^IF THE BOTTOM HALF IS SPECIFIFIED, NO SPECIAL
HANDLEING WILL BE DONE.
.HL 1 <WRITE__INTEGER<(^I,^J,^N,<IWIDTH<,<ICHAR<)
.INDEX <WRITE__INTEGER<
 OUTPUTS THE SPECIFIC INTEGER NUMBER TO THE SCREEN AT THE
SPECIFIED LOCATION, WITH THE SPECIFIED FORMAT AND CHARACTERISTICS.
.B
^THE ARGUMENTS ^I AND ^J SPECIFY THE STARTING LOCATION OF THE STRING TO
BE WRITTEN. ^THEY ARE INTEGER VARIABLES MATCHING THE ARGUMENTS REQUIRED
BY <MOVE__CURSOR .
.INDEX <MOVE__CURSOR
.B
^N IS A INTEGER VARIABLE CONTAINING THE VALUE TO BE OUTPUT.
.B
<IWIDTH IS AN INTEGER CONTAINING THE NUMBER OF CHARACTERS IN THE ^I FORMAT
SPECIFICATION OF THE CONVERSION OF ^N TO A STRING.
.B
<ICHAR IS AN INTEGER SPECIFYING THE CHRACTERISTICS OF THE STRING
TO BE WRITTEN THE VALUE DEPENDS ON THE CHARACTERISTICS WANTED, AS OUTLINED
IN <SET__MODE .
.INDEX <SET__MODE .
^IF THE USER WANTS A DOUBLE HEIGHT STRING, THEN HE NEED ONLY SPECIFY
THE OPTION NUMBER FOR DOUBLE HEIGHT TOP HALF AND THE BOTTOM WILL BE
AUTOMATICALY WRITTEN IN. ^IF THE BOTTOM HALF IS SPECIFIFIED, NO SPECIAL
HANDLEING WILL BE DONE.
.HL 1 <WRITE__STRING<(^I,^J,<STRING<,<ICHAR<)
.INDEX <WRITE__STRING<
 OUTPUTS THE SPECIFIC STRING TO THE SCREEN AT THE
SPECIFIED LOCATION, WITH THE  SPECIFIED CHARACTERISTICS.
.B
^THE ARGUMENTS ^I AND ^J SPECIFY THE STARTING LOCATION OF THE STRING TO
BE WRITTEN. ^THEY ARE INTEGER VARIABLES MATCHING THE ARGUMENTS REQUIRED
BY <MOVE__CURSOR .
.INDEX <MOVE__CURSOR
.B
<STRING IS A CHARACTER STRING TO BE OUTPUT.
.B
<ICHAR IS AN INTEGER SPECIFYING THE CHRACTERISTICS OF THE STRING
TO BE WRITTEN THE VALUE DEPENDS ON THE CHARACTERISTICS WANTED, AS OUTLINED
IN <SET__MODE .
.INDEX <SET__MODE .
^IF THE USER WANTS A DOUBLE HEIGHT STRING, THEN HE NEED ONLY SPECIFY
THE OPTION NUMBER FOR DOUBLE HEIGHT TOP HALF AND THE BOTTOM WILL BE
AUTOMATICALY WRITTEN IN. ^IF THE BOTTOM HALF IS SPECIFIFIED, NO SPECIAL
HANDLEING WILL BE DONE.
.DO INDEX