|
|
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[] = "@(#)kon.c 5.1 (Berkeley) 4/30/85"; ! 9: #endif not lint ! 10: ! 11: /* ! 12: * Turn on keypad, so it sends codes instead of doing them in local. ! 13: */ ! 14: ! 15: #include "2648.h" ! 16: ! 17: kon() ! 18: { ! 19: escseq(NONE); ! 20: outstr("\33&s1A"); ! 21: } ! 22: ! 23: koff() ! 24: { ! 25: escseq(NONE); ! 26: outstr("\33&s0A"); ! 27: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.