/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/* aplloaf APL2 V1.0.0 *************************************************
* Called from aplloae after the input file has been opened.            *
***********************************************************************/
#define INCLUDES APLCB+IO+STDIO+STRING
#include "includes.h"
int aplloaf(fp)
int fp; /* file descriptor handle */
{
	Apllov1;
	int i,version;

	i = read(fp,&version,sizeof(version)); /* read version */ 
	if (i != sizeof(int)) return(105); /* bad file */
	switch (version) {
		case 1:
			return(apllov1(fp));
		default:
			return(106); /* workspace version not supported */
	}
}