DEFUNC TRUE BASIC