1	SUB RESTORE(INTEGER Lun)
	! Rewind a file so that the record pointer points at
	! the start of the file.
	! 
	!	CALL RESTORE(LUN)
	! Where
	!	LUN	I*2	Lun on which is open file
	!
	! file must be opened and accessed by VAX BASIC file I/O.
	!
	! Written by:
	!		James G. Downward
	!		KMS Fusion, Inc.
	! 		PO Box 1567
	!		Ann Arbor, Mich. 48106
	!		10-Jan-1982
	!
	%IDENT "1"
	RESTORE #LUN
	SUBEND