xref: /csrg-svn/old/lib2648/texton.c (revision 11495)
1*11495Sralph /*	texton.c	4.1	83/03/09	*/
2*11495Sralph 
3*11495Sralph #include "2648.h"
4*11495Sralph 
5*11495Sralph texton()
6*11495Sralph {
7*11495Sralph 	sync();
8*11495Sralph 	escseq(TEXT);
9*11495Sralph }
10*11495Sralph 
11*11495Sralph textoff()
12*11495Sralph {
13*11495Sralph 	sync();
14*11495Sralph 
15*11495Sralph 	/*
16*11495Sralph 	 * The following is needed because going into text mode
17*11495Sralph 	 * leaves the pen where the cursor last was.
18*11495Sralph 	 */
19*11495Sralph 	_penx = -40; _peny = 40;
20*11495Sralph 	escseq(ESCP);
21*11495Sralph 	outchar('a');
22*11495Sralph 	motion(_supx, _supy);
23*11495Sralph 	_penx = _supx; _peny = _supy;
24*11495Sralph }
25