Move procedures into "include fold"

Author: jodavies

check/user.frm

@@ -6,12 +6,7 @@
 #endif
 .end
 
-*--#[ jodavies_denexpand :
-#-
-
-Off Statistics;
-On Highfirst;
-
+*--#[ jodavies_include :
 
 * Paste denexpand.prc
 
@@ -302,9 +297,15 @@ Symbol coefftx,coeffty;
 	Normalize^-1 `den';
 	Identify `num'(coefftx?)*`den'(coefftx?) = 1;
 #endprocedure
+*--#] jodavies_include :
+*--#[ jodavies_denexpand :
+#-
+
+Off Statistics;
+On Highfirst;
 
+#include- user.frm # jodavies_include
 
-* Start test code
 #define NUMTESTS "28"
 
 AutoDeclare Symbol n,m;