file:aa1.c(呼び出し先class:aa1)
	struct aa1_{
		int RET_OK;
		int RET_NG;
	} aa1;

	void aa1init(){
	/* この関数はどこかから初期化の為に始めに呼び出される */
		aa1.RET_OK = 1;
		aa1.RET_NG = 0;
	}

	int AAcalc(foo)
	int foo;
	{
		if(foo < 100){
			return aa1.RET_OK;
		}else{
			return aa1_RET_NG;
		}
	}
 file:aa1.h
	extern struct aa1_ aa1;

 file:bb1.c(呼び出し元class:bb1)
	#include "aa1.h"
	void BBcalc()
	{
		int foo = 5;
		int aa;

		aa = AAcalc(foo);
		if(aa == aa1.RET_OK){
			XXcalc();
		}else if(aa == aa1.RET_NG){
			YYcalc();
		}else{
			ZZcalc();
		}
	}

java---
	public class aa1{
		final int RET_OK = 1;
		final int RET_NG = 0;

		int AAcalc( int foo){
		{
			if(foo < 100){
				return RET_OK;
			}else{
				return RET_NG;
			}
		}
	}

	public class bb1{
		void BBcalc()
		{
			int foo = 5;
			int aa;

			aa = AAcalc(foo);
			if(aa == aa1.RET_OK){
				XXcalc();
			}else if(aa == aa1.RET_NG){
				YYcalc();
			}else{
				ZZcalc();
			}
		}
	}
---

/*-------------- 20020429-Berse */
Lcopytemp(templdata,ymax,xmax,_retldata)
int ymax,xmax;
struct leveldata templdata, *_retldata;
{
	int y, x, ystart, xstart;

	(*_retldata).steplimit = templdata.steplimit;

	ystart = (BOTTOM_LIMIT-ymax)/2+2;
	xstart = (RIGHT_LIMIT -xmax)/2+2;
	for(y=0;y < ymax;y++){
		for(x=0;x < xmax;x++){
			(*_retldata).block[(ystart +y)][(xstart +x)]
				= templdata.block[y][x];
		}
	}
}
---

/*******************************

  SOKOBAN for DOS
   fgame.c
   Build:0001

  Berse

(C)ThinkingRabbit
*******************************/

#include"level.h"

#define P_CLEAR	0
#define P_EXIT	1
#define P_RETRY	2
#define P_CHANGE_LEVEL	3


/*-------------- 20011214-Berse */
int FGplaygame()
{
	int play,level, maxlevel;
	struct leveldata ldata;

	level = 1;
	maxlevel = Lgetmaxlevel();

	for(;;){
		Lgetleveldata(level,&ldata);

		Odispstatus(level, maxlevel, ldata.steplimit);
		play = Pplaylevel(ldata);

		if(play==P_CLEAR){
			level++;

			Oputstr(13,12,"+--------+");
			Oputstr(13,13,"+ CLEAR! +");
			Oputstr(13,14,"+--------+");

			if(level > maxlevel){
				Oputstr(13,10,"+--------+");
				Oputstr(13,11,"+  ALL   +");

				Igetkey();
				break;
			}
			Igetkey();
		}else if(play==P_EXIT) break;
	}
}
---

/*******************************

  SOKOBAN for DOS
   fsokoban.c
   Ver. 0.2 Build:0016

  Berse

(C)ThinkingRabbit
*******************************/

int M_TITLE_START = 0;
int M_TITLE_EXIT  = 1;
int M_TITLE_ABOUT = 2;
int M_TITLE_HELP  = 3;

struct ~fsokoban {
	char *_VERSION;
	int BUILD;
} fsokoban;

/*-------------- 20020429-Berse */
FSinit()
{
	fsokoban._VERSION = "0.2";
	fsokoban.BUILD = 16;

	Lsetlevelset();
}

/*-------------- 20020429-Berse */
FSmainloop()
{
	int menu;

	for(;;){
		menu = Mtitle(
				fsokoban._VERSION,
				fsokoban.BUILD);

		if(menu == M_TITLE_START){
			FGplaygame();
		}else{
			break;
		}
	}
}

/*-------------- 20020429-Berse */
main()
{
	FSinit();

	FSmainloop();
}
---