|
|
1.1 ! root 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) 4/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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.