;
; $Id: pto.pro,v 1.1 1991/03/29 13:58:01 jeffry Exp $
;
pro pto, l, c, n

; NAME:
; 	PTO
; PURPOSE:
; 	This procedure will output text, to the alphanumeric plane, at the 
;	specified row and column on any ANSI device.

print,string(27B)+'['+strtrim(l,2)+';'+strtrim(c,2)+'H'+strtrim(n,2)
return
end