The version of basic copied from Martin Kerstens directory.

lang/basic/src.old/initialize.c

@@ -0,0 +1,23 @@
+#include "bem.h"
+
+/* generate temporary files etc */
+
+FILE	*emfile;
+FILE	*tmpfile;
+FILE	*datfile;
+
+initialize()
+{
+	sprintf(tmpfname,"/tmp/abc%d",getpid());
+	strcpy(datfname,program);
+	strcat(datfname,".d");
+	yyin= fopen(inpfile,"r");
+	emfile= fopen(outfile,"w");
+	tmpfile= fopen(tmpfname,"w");
+	if( yyin==NULL || emfile== NULL || tmpfile== NULL )
+		fatal("Improper file permissions");
+	fillkex();	/* initialize symbol table */
+	fprintf(emfile,"#\n");
+	fprintf(emfile," mes 2,EM_WSIZE,EM_PSIZE\n");
+	initdeftype();	/* set default symbol declarers */
+}