 	if( OpcodeIs( 'G', 'S' )) {
 		return next;
 	}
+
+#ifdef DOGOSUB
+/*
+#define kNGosubs (15)
+char gosubPtr = 0;
+char * gosubStack[ kNGosubs ];
+if( next == kJRGosubStack ) {
+*/
+
 	if( OpcodeIs( 'G', 'L' )) {
 		return next;
 	}


#define kBLuBVersion	"v0.03  2013-June-21  yorgle@gmail.com"

// v0.03  2013-June-21  ops:	all but Gosubs
//			pointer bugfixes
//

	int next = kJRFirstLine;
	char *bufc = programRam;

	gosubPtr = 0;
	if( *bufc == '\0' ) return;

	while( *bufc && next != kJRStop ) {
