diff --git a/lang/basic/src.old/basic.lex b/lang/basic/src.old/basic.lex
index ebdb3c82..a708e9ef 100644
--- a/lang/basic/src.old/basic.lex
+++ b/lang/basic/src.old/basic.lex
@@ -1,3 +1,7 @@
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* This file contains the new lexical analizer */
 typedef struct {
 	char *name; 
diff --git a/lang/basic/src.old/basic.yacc b/lang/basic/src.old/basic.yacc
index a8288579..c08f750e 100644
--- a/lang/basic/src.old/basic.yacc
+++ b/lang/basic/src.old/basic.yacc
@@ -458,4 +458,7 @@ exprlist: expression	{ typetable[0]= $1; $$=1;}
 	| exprlist ',' expression { typetable[$1]=$3;$$=$1+1;}
 
 %%
+#ifndef NORCSID
+static char rcs_id[]	= "$Header$" ;
+#endif
 #include "lex.c"
diff --git a/lang/basic/src.old/bem.c b/lang/basic/src.old/bem.c
index a3be7303..c91d6067 100644
--- a/lang/basic/src.old/bem.c
+++ b/lang/basic/src.old/bem.c
@@ -1,5 +1,12 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[]	= "$Header$" ;
+static char rcs_bem[]	= RCS_BEM ;
+static char rcs_symb[]	= RCS_SYMB ;
+static char rcs_graph[]	= RCS_GRAPH ;
+#endif
+
 /* Author: M.L. Kersten
 **
 ** This is the main routine for the BASIC-EM frontend.
diff --git a/lang/basic/src.old/bem.h b/lang/basic/src.old/bem.h
index 9a70c3ad..ccf00892 100644
--- a/lang/basic/src.old/bem.h
+++ b/lang/basic/src.old/bem.h
@@ -9,6 +9,10 @@
 #include "graph.h"
 #include "y.tab.h"
 
+#ifndef NORCSID
+# define RCS_BEM	"$Header$"
+#endif
+
 #define POINTERSIZE	4
 #define MAXINT		32768
 #define MININT		-32767
diff --git a/lang/basic/src.old/compile.c b/lang/basic/src.old/compile.c
index 0ff30393..f23e44ff 100644
--- a/lang/basic/src.old/compile.c
+++ b/lang/basic/src.old/compile.c
@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* compile the next program in the list */
 
 FILE *yyin;
diff --git a/lang/basic/src.old/eval.c b/lang/basic/src.old/eval.c
index fb609cd1..2cddba50 100644
--- a/lang/basic/src.old/eval.c
+++ b/lang/basic/src.old/eval.c
@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* Here you find all routines to evaluate expressions and
    generate code for assignment statements
 */
diff --git a/lang/basic/src.old/func.c b/lang/basic/src.old/func.c
index e55332d6..2bbddc9a 100644
--- a/lang/basic/src.old/func.c
+++ b/lang/basic/src.old/func.c
@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* expression types for predefined functions are assembled */
 int	typetable[10];
 int	exprlimit;
diff --git a/lang/basic/src.old/gencode.c b/lang/basic/src.old/gencode.c
index 16aa0030..43647546 100644
--- a/lang/basic/src.old/gencode.c
+++ b/lang/basic/src.old/gencode.c
@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* Here we find all routines dealing with pure EM code generation */
 
 static int	emlabel=1;
diff --git a/lang/basic/src.old/graph.c b/lang/basic/src.old/graph.c
index 7801da73..dc68534b 100644
--- a/lang/basic/src.old/graph.c
+++ b/lang/basic/src.old/graph.c
@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 List *forwardlabel=0;
 
 /* Line management is handled here */
diff --git a/lang/basic/src.old/graph.h b/lang/basic/src.old/graph.h
index 732b56e5..43300bec 100644
--- a/lang/basic/src.old/graph.h
+++ b/lang/basic/src.old/graph.h
@@ -1,4 +1,9 @@
 #
+
+#ifndef NORCSID
+# define RCS_GRAPH	"$Header$"
+#endif
+
 /* 
 ** The control graph is represented by a multi-list structure.
 ** The em code is stored on the em intermediate file already
diff --git a/lang/basic/src.old/initialize.c b/lang/basic/src.old/initialize.c
index 26fd2e70..a98af631 100644
--- a/lang/basic/src.old/initialize.c
+++ b/lang/basic/src.old/initialize.c
@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* generate temporary files etc */
 
 FILE	*emfile;
diff --git a/lang/basic/src.old/parsepar.c b/lang/basic/src.old/parsepar.c
index e0bfdae6..67c5448e 100644
--- a/lang/basic/src.old/parsepar.c
+++ b/lang/basic/src.old/parsepar.c
@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 int	listing;		/* -l listing required */
 int	debug;			/* -d compiler debugging */
 int	wflag=1;		/* -w no warnings */
diff --git a/lang/basic/src.old/split.c b/lang/basic/src.old/split.c
index 6928b01c..54ac6922 100644
--- a/lang/basic/src.old/split.c
+++ b/lang/basic/src.old/split.c
@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* Split the intermediate code into procedures.
    This is necessary to make the EM code fit on
    smaller machines. (for the Peephole optimizer!)
diff --git a/lang/basic/src.old/symbols.c b/lang/basic/src.old/symbols.c
index 4e79fb03..3b5f9242 100644
--- a/lang/basic/src.old/symbols.c
+++ b/lang/basic/src.old/symbols.c
@@ -1,4 +1,9 @@
 #include "bem.h"
+
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* Symboltable management module */
 
 int	deftype[128];		/* default type declarer */
diff --git a/lang/basic/src.old/symbols.h b/lang/basic/src.old/symbols.h
index 8dee4c11..0cef2aa3 100644
--- a/lang/basic/src.old/symbols.h
+++ b/lang/basic/src.old/symbols.h
@@ -1,3 +1,7 @@
+#ifndef NORCSID
+# define RCS_SYMB	"$Header$"
+#endif
+
 #define NIL	0
 #define TRUE	1
 #define FALSE	0
diff --git a/lang/basic/src.old/util.c b/lang/basic/src.old/util.c
index b5300715..71903184 100644
--- a/lang/basic/src.old/util.c
+++ b/lang/basic/src.old/util.c
@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 #define abs(X)  (X>=0?X:-X)
 /* Miscelaneous routines can be found here */
 
diff --git a/lang/basic/src.old/yywrap.c b/lang/basic/src.old/yywrap.c
index b08ecc0c..096e2ad2 100644
--- a/lang/basic/src.old/yywrap.c
+++ b/lang/basic/src.old/yywrap.c
@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* Author: M.L. Kersten
 ** yywrap is called upon encountering endoffile on yyin.
 ** when more input files are present, it moves to the next