1*48526Sbostic /*- 2*48526Sbostic * Copyright (c) 1983 The Regents of the University of California. 3*48526Sbostic * All rights reserved. 4*48526Sbostic * 5*48526Sbostic * %sccs.include.proprietary.c% 6*48526Sbostic */ 7*48526Sbostic 813382Ssam #ifndef lint 9*48526Sbostic static char sccsid[] = "@(#)erase.c 4.2 (Berkeley) 04/22/91"; 10*48526Sbostic #endif /* not lint */ 1113382Ssam 1213382Ssam extern vti; 1313382Ssam erase(){ 1413382Ssam int i; 1513382Ssam i=0401; 1613382Ssam write(vti,&i,2); 1713382Ssam } 18