aboutsummaryrefslogtreecommitdiff
path: root/pkg/utilities/nttools/tedit/display/screen/psscreen.x
blob: afdd7b8db27a7d8f14a7029da616f83528cca959 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
# PS_SCREEN -- Return a pointer to a given character on the screen
#
# B.Simon	28-Sep-90	Original

pointer procedure ps_screen (row, col)

int	row		# i: Screen line
int	col		# i: Screen column
#--
include	"screen.com"

begin
	return (termscr+cols*(row-1)+(col-1))
end