1 /* 2 * Copyright (c) 1980 Regents of the University of California. 3 * All rights reserved. The Berkeley software License Agreement 4 * specifies the terms and conditions for redistribution. 5 */ 6 7 #ifndef lint 8 static char sccsid[] = "@(#)texton.c 5.1 (Berkeley) 04/26/85"; 9 #endif not lint 10 11 #include "2648.h" 12 13 texton() 14 { 15 sync(); 16 escseq(TEXT); 17 } 18 19 textoff() 20 { 21 sync(); 22 23 /* 24 * The following is needed because going into text mode 25 * leaves the pen where the cursor last was. 26 */ 27 _penx = -40; _peny = 40; 28 escseq(ESCP); 29 outchar('a'); 30 motion(_supx, _supy); 31 _penx = _supx; _peny = _supy; 32 } 33