-- 右脳を鍛えよう！ - 円の数を数える
--
-- Copyright (c) 2001 SoftVision Corporation
-- All rights reserved.
--

--デバッグ 入;
--トレース 入, エラーメッセージ=表示;
--エラーレベル 10;

REGISTERROUTINE 'KERNEL32', 'GetTickCount', 'Wv';

LOCAL $s_DISPTIME, $s_NMAX, $s_NMIN, $s_E, $s_MAXTRY;
$s_DISPTIME := 500;		-- 表示時間 (ms)
$s_NMAX     := 15;		-- 表示最大個数
$s_NMIN     := 5;		-- 表示最小個数
$s_E        := 0;		-- 許容誤差;
$s_MAXTRY   := 3;		-- 最大試行回数
$s_COUNT    := 10;		-- ゲーム回数

LOCAL @s_card, @s_table;
LOCAL $s_ans;
LOCAL $s_stop;

LOCAL $title, $fn_dpl, $fn_card, $fn_table;
$title    := '円の数を数える';
$fn_dpl   := 'circle.dpl';
$fn_card  := 'circle.dpc';

LOCAL $opened;
$opened := #opened($fn_card);

-- カードオープン
@s_card := NULL;
IF $opened THEN
	オープン @s_card, $fn_card,
		データ更新 = する, カード手続き = CardProc;
ELSE
	LOCAL $share;
	$share := #if(#maxusers > 1, KEYWORD 'する', KEYWORD 'しない');
	オープン @s_card, $fn_card,
		データ更新 = する, カード手続き = CardProc, 同時使用 = $share;
ENDIF
IF #isnull(@s_card) THEN
	ダイアログ $fn_card + ' のオープンに失敗' + '!n' +
				'(' + #str($$CMDSTATE) + ' : ' + #errmsg($$CMDSTATE) + ')';
	終了;
ENDIF

IF #reccnt(@s_card) = 0 THEN
	-- １レコードも無いと対話編集がうまくいかないので、
	-- ダミーのレコードを挿入しておく
	レコード挿入 @s_card, ();
ENDIF
カーソル移動 @s_card, 開始位置 = 先頭, レコード数 = 1;
ウィンドウ表示 @s_card, タイトル = $title, 整列 = 'ポイント順', サイズ = サイズを合わせる;
シート移動 @s_card, 1;

IF NOT $opened THEN
	-- カードがオープンされていなかった場合はここで終了
	終了;
ENDIF

-- ここから実際にゲームがスタート
オブジェクト属性 @s_card, ([btnStartStop]), 文字列 = 'STOP', 機能 = カード手続き;
オブジェクト属性 @s_card, ([btnScore]), 機能 = 無効;
オブジェクト属性 @s_card, ([btnExit]), 機能 = カード手続き;

-- マシン名、ユーザ名、日付、時刻
LOCAL $computername, $netusername, $date, $time;
CALL GetComputerName;
$computername := $$RETURN;
$netusername := #netusername;
$date := #date;
$time := #time;

LOCAL $t;
$t := 0;

LOCAL $n, $n_try, $n_ok;
$n      := 0;
$n_try  := 0;
$n_ok   := 0;
$s_stop := 0;
WHILE 1 DO
	LOCAL $tt;

	-- 準備
	再描画 禁止;
	オブジェクト属性 @s_card, ([rectMask]), 表示 = する;
	CALL Init(@s_card);
	CALL MakeNums(@s_card);
	$s_ans := $$RETURN;
	代入 @s_card.[dtAns] := NULL;
	代入 @s_card.[dtText] := NULL;
	代入 @s_card.[dtGuid1] := NULL;
	代入 @s_card.[dtGuid2] := #if($s_COUNT > 0, #str($n + 1) + ' / ' + #str($s_COUNT) + ' ', '');
	オブジェクト属性 @s_card, ([rectMask]), 表示 = しない;
	再描画 許可;

	LOCAL $msg;
	IF $s_DISPTIME > 0 THEN
		-- $s_DISPTIME 後に表示を消す
	--	待機 $s_DISPTIME / 1000;
		CALL DoWait($s_DISPTIME);
		再描画 禁止;
		CALL Init(@s_card);
		オブジェクト属性 @s_card, ([rectMask]), 表示 = する;
		再描画 許可;
		$msg := '円はいくつだった？';
	ELSE
		$msg := '円はいくつ？';
	ENDIF;
	代入 @s_card.[dtText]  := $msg + ' (' + #str($s_NMIN) + '-' + #str($s_NMAX) + ')';

	-- 開始
	CALL GetTickCount;
	$tt := $$RETURN;

	LOCAL $ok, $i;
	$ok := 0;
	$i := 0;
	WHILE 1 DO
		代入 @s_card.[dtGuid1] := #strrep('＊', $s_MAXTRY - $i);
		対話編集 @s_card, 項目 = [dtAns], 初期状態 = 項目訂正, 表示状態 = 禁止;
		IF $s_stop THEN
			EXITLOOP;
		ENDIF
		$i := $i + 1;
		$n_try := $n_try + 1;
		$ok := (@s_card.[dtAns] >= $s_ans - $s_E and @s_card.[dtAns] <= $s_ans + $s_E);
		IF $ok or ($s_DISPTIME > 0 and $i >= $s_MAXTRY) THEN
			EXITLOOP;
		ENDIF
	ENDWHILE
	IF $s_stop THEN
		ダイアログ 'ゲームを中止します', タイトル = $title;
		EXITLOOP;
	ENDIF

	CALL GetTickCount;
	$tt := #round(($$RETURN - $tt) / 1000, 1);
	$t := $t + $tt;

	IF $ok THEN
		代入 @s_card.[dtText] := #if($tt < 1, 'すばらしい！', '正解！') + ' ' + #str($tt, '0.0秒') + 'でした';
		$n_ok := $n_ok + 1;
	ELSE
		代入 @s_card.[dtText] := '残念！' + ' ' + '正解は' + #str($s_ans) + '個でした';
	ENDIF
	$n := $n + 1;

	待機 1;
--	CALL DoWait(1000);

	IF $s_COUNT > 0 and $n = $s_COUNT THEN
		EXITLOOP;
	ENDIF
ENDWHILE

カーソル移動 @s_card, 開始位置 = 先頭, レコード数 = 1;
IF ($s_COUNT = 0 or not $s_stop) and $n_ok > 0 THEN
	ダイアログ
		'平均時間は ' + #str($t / $n_ok, '0.0秒') + '、正解率は ' + #str($n_ok / $n_try, '0.0%') + ' でした。!n' +
		'名前を入力して下さい。',
		種別 = 入力,
		初期値 = $netusername,
		タイトル = $title;
	IF $$BUTTON = 1 THEN
		LOCAL $name;
		$name := #if(#isnotnull($$INPUTSTR), $$INPUTSTR, $netusername);
		レコード挿入 @s_card,
			([マシン名] := $computername,
			 [名前] := $name,
			 [日付] := $date,
			 [時刻] := $time,
			 [試行回数] := $n_try,
			 [正解回数] := $n_ok,
			 [所用時間] := $t);
		保存 @s_card;

		LOCAL $old;
		エラーレベル 10;
		$old := $$OLDSTATE;
		検索 @s_card,
			([マシン名] = $computername and
			 [名前] = $name and
			 [日付] = $date and
			 [時刻] = $time and
			 [試行回数] = $n_try and
			 [正解回数] = $n_ok and
			 [所用時間] = $t),
			開始位置 = 先頭, 方向 = 順方向;
		エラーレベル $old;

		シート移動 @s_card, 2;
	ENDIF
ENDIF

代入 @s_card.[dtAns] := NULL;
代入 @s_card.[dtText] := NULL;
代入 @s_card.[dtGuid1] := NULL;
代入 @s_card.[dtGuid2] := NULL;
オブジェクト属性 @s_card, ([btnStartStop]), 文字列 = 'START', 機能 = $fn_dpl;
オブジェクト属性 @s_card, ([btnScore]), 機能 = 有効;
オブジェクト属性 @s_card, ([btnExit]), 機能 = '閉じる';

IF $s_stop = 2 THEN
	クローズ @s_card;
ENDIF


-- ****************
-- コンピュータ名を得る
-- ****************
REGISTERROUTINE 'KERNEL32', 'GetComputerNameA', 'iSP';
PROCEDURE GetComputerName DO
	LOCAL $buflen, $pBuf, $pLen;
	$buflen := 128;
	$pBuf := #alloc($buflen);
	$pLen := #alloc(4);
	#poke($pLen, 0, 'W', $buflen - 1);
	CALL GetComputerNameA($pBuf, $pLen);
	$name := #if($$RETURN, #peek($pBuf, 0, 'S'), '');
	#free($pBuf);
	#free($pLen);
	RETURN $name;
ENDPROCEDURE

-- ****************
-- 所定時間だけ待機する
-- ****************
PROCEDURE DoWait($t) DO
	LOCAL $ts;
	CALL GetTickCount;
	$ts := $$RETURN;
	WHILE 1 DO
		CALL GetTickCount;
		IF $$RETURN - $ts >= $t THEN
			EXITLOOP;
		ENDIF;
	ENDWHILE
ENDPROCEDURE


-- ****************
CARDPROCEDURE CardProc DO
	ON [btnStartStop] DO
		$s_stop := 1;
		対話終了 @s_card;
	ON [btnExit] DO
		$s_stop := 2;
		対話終了 @s_card;
ENDCARDPROCEDURE


-- ****************
PROCEDURE MakeNums(@c) DO
	LOCAL $s;
	$s := #strrep('0', 200);

	LOCAL $n, $cnt;
	$n := #rand($s_NMAX - $s_NMIN + 1) + $s_NMIN;
	$cnt := 0;
	WHILE $cnt < $n DO
		LOCAL $r;
		$r := #rand(200) + 1;
		IF #strsub($s, $r, $r) = '0' THEN
			CALL DispCircle(@c, $r);
			$s := #if($r > 1, #strsub($s, 1, $r - 1), '') + ' ' +
					#if($r < 200, #strsub($s, $r + 1), '');
			$cnt := $cnt + 1;
		ENDIF
	ENDWHILE
	RETURN $n;
ENDPROCEDURE


-- ****************
PROCEDURE DispCircle(@c, $n) DO
	SWITCH $n
	CASE   1 DO	オブジェクト属性 @c, ([c001]), 表示 = する;
	CASE   2 DO	オブジェクト属性 @c, ([c002]), 表示 = する;
	CASE   3 DO	オブジェクト属性 @c, ([c003]), 表示 = する;
	CASE   4 DO	オブジェクト属性 @c, ([c004]), 表示 = する;
	CASE   5 DO	オブジェクト属性 @c, ([c005]), 表示 = する;
	CASE   6 DO	オブジェクト属性 @c, ([c006]), 表示 = する;
	CASE   7 DO	オブジェクト属性 @c, ([c007]), 表示 = する;
	CASE   8 DO	オブジェクト属性 @c, ([c008]), 表示 = する;
	CASE   9 DO	オブジェクト属性 @c, ([c009]), 表示 = する;
	CASE  10 DO	オブジェクト属性 @c, ([c010]), 表示 = する;
	CASE  11 DO	オブジェクト属性 @c, ([c011]), 表示 = する;
	CASE  12 DO	オブジェクト属性 @c, ([c012]), 表示 = する;
	CASE  13 DO	オブジェクト属性 @c, ([c013]), 表示 = する;
	CASE  14 DO	オブジェクト属性 @c, ([c014]), 表示 = する;
	CASE  15 DO	オブジェクト属性 @c, ([c015]), 表示 = する;
	CASE  16 DO	オブジェクト属性 @c, ([c016]), 表示 = する;
	CASE  17 DO	オブジェクト属性 @c, ([c017]), 表示 = する;
	CASE  18 DO	オブジェクト属性 @c, ([c018]), 表示 = する;
	CASE  19 DO	オブジェクト属性 @c, ([c019]), 表示 = する;
	CASE  20 DO	オブジェクト属性 @c, ([c020]), 表示 = する;
	CASE  21 DO	オブジェクト属性 @c, ([c021]), 表示 = する;
	CASE  22 DO	オブジェクト属性 @c, ([c022]), 表示 = する;
	CASE  23 DO	オブジェクト属性 @c, ([c023]), 表示 = する;
	CASE  24 DO	オブジェクト属性 @c, ([c024]), 表示 = する;
	CASE  25 DO	オブジェクト属性 @c, ([c025]), 表示 = する;
	CASE  26 DO	オブジェクト属性 @c, ([c026]), 表示 = する;
	CASE  27 DO	オブジェクト属性 @c, ([c027]), 表示 = する;
	CASE  28 DO	オブジェクト属性 @c, ([c028]), 表示 = する;
	CASE  29 DO	オブジェクト属性 @c, ([c029]), 表示 = する;
	CASE  30 DO	オブジェクト属性 @c, ([c030]), 表示 = する;
	CASE  31 DO	オブジェクト属性 @c, ([c031]), 表示 = する;
	CASE  32 DO	オブジェクト属性 @c, ([c032]), 表示 = する;
	CASE  33 DO	オブジェクト属性 @c, ([c033]), 表示 = する;
	CASE  34 DO	オブジェクト属性 @c, ([c034]), 表示 = する;
	CASE  35 DO	オブジェクト属性 @c, ([c035]), 表示 = する;
	CASE  36 DO	オブジェクト属性 @c, ([c036]), 表示 = する;
	CASE  37 DO	オブジェクト属性 @c, ([c037]), 表示 = する;
	CASE  38 DO	オブジェクト属性 @c, ([c038]), 表示 = する;
	CASE  39 DO	オブジェクト属性 @c, ([c039]), 表示 = する;
	CASE  40 DO	オブジェクト属性 @c, ([c040]), 表示 = する;
	CASE  41 DO	オブジェクト属性 @c, ([c041]), 表示 = する;
	CASE  42 DO	オブジェクト属性 @c, ([c042]), 表示 = する;
	CASE  43 DO	オブジェクト属性 @c, ([c043]), 表示 = する;
	CASE  44 DO	オブジェクト属性 @c, ([c044]), 表示 = する;
	CASE  45 DO	オブジェクト属性 @c, ([c045]), 表示 = する;
	CASE  46 DO	オブジェクト属性 @c, ([c046]), 表示 = する;
	CASE  47 DO	オブジェクト属性 @c, ([c047]), 表示 = する;
	CASE  48 DO	オブジェクト属性 @c, ([c048]), 表示 = する;
	CASE  49 DO	オブジェクト属性 @c, ([c049]), 表示 = する;
	CASE  50 DO	オブジェクト属性 @c, ([c050]), 表示 = する;
	CASE  51 DO	オブジェクト属性 @c, ([c051]), 表示 = する;
	CASE  52 DO	オブジェクト属性 @c, ([c052]), 表示 = する;
	CASE  53 DO	オブジェクト属性 @c, ([c053]), 表示 = する;
	CASE  54 DO	オブジェクト属性 @c, ([c054]), 表示 = する;
	CASE  55 DO	オブジェクト属性 @c, ([c055]), 表示 = する;
	CASE  56 DO	オブジェクト属性 @c, ([c056]), 表示 = する;
	CASE  57 DO	オブジェクト属性 @c, ([c057]), 表示 = する;
	CASE  58 DO	オブジェクト属性 @c, ([c058]), 表示 = する;
	CASE  59 DO	オブジェクト属性 @c, ([c059]), 表示 = する;
	CASE  60 DO	オブジェクト属性 @c, ([c060]), 表示 = する;
	CASE  61 DO	オブジェクト属性 @c, ([c061]), 表示 = する;
	CASE  62 DO	オブジェクト属性 @c, ([c062]), 表示 = する;
	CASE  63 DO	オブジェクト属性 @c, ([c063]), 表示 = する;
	CASE  64 DO	オブジェクト属性 @c, ([c064]), 表示 = する;
	CASE  65 DO	オブジェクト属性 @c, ([c065]), 表示 = する;
	CASE  66 DO	オブジェクト属性 @c, ([c066]), 表示 = する;
	CASE  67 DO	オブジェクト属性 @c, ([c067]), 表示 = する;
	CASE  68 DO	オブジェクト属性 @c, ([c068]), 表示 = する;
	CASE  69 DO	オブジェクト属性 @c, ([c069]), 表示 = する;
	CASE  70 DO	オブジェクト属性 @c, ([c070]), 表示 = する;
	CASE  71 DO	オブジェクト属性 @c, ([c071]), 表示 = する;
	CASE  72 DO	オブジェクト属性 @c, ([c072]), 表示 = する;
	CASE  73 DO	オブジェクト属性 @c, ([c073]), 表示 = する;
	CASE  74 DO	オブジェクト属性 @c, ([c074]), 表示 = する;
	CASE  75 DO	オブジェクト属性 @c, ([c075]), 表示 = する;
	CASE  76 DO	オブジェクト属性 @c, ([c076]), 表示 = する;
	CASE  77 DO	オブジェクト属性 @c, ([c077]), 表示 = する;
	CASE  78 DO	オブジェクト属性 @c, ([c078]), 表示 = する;
	CASE  79 DO	オブジェクト属性 @c, ([c079]), 表示 = する;
	CASE  80 DO	オブジェクト属性 @c, ([c080]), 表示 = する;
	CASE  81 DO	オブジェクト属性 @c, ([c081]), 表示 = する;
	CASE  82 DO	オブジェクト属性 @c, ([c082]), 表示 = する;
	CASE  83 DO	オブジェクト属性 @c, ([c083]), 表示 = する;
	CASE  84 DO	オブジェクト属性 @c, ([c084]), 表示 = する;
	CASE  85 DO	オブジェクト属性 @c, ([c085]), 表示 = する;
	CASE  86 DO	オブジェクト属性 @c, ([c086]), 表示 = する;
	CASE  87 DO	オブジェクト属性 @c, ([c087]), 表示 = する;
	CASE  88 DO	オブジェクト属性 @c, ([c088]), 表示 = する;
	CASE  89 DO	オブジェクト属性 @c, ([c089]), 表示 = する;
	CASE  90 DO	オブジェクト属性 @c, ([c090]), 表示 = する;
	CASE  91 DO	オブジェクト属性 @c, ([c091]), 表示 = する;
	CASE  92 DO	オブジェクト属性 @c, ([c092]), 表示 = する;
	CASE  93 DO	オブジェクト属性 @c, ([c093]), 表示 = する;
	CASE  94 DO	オブジェクト属性 @c, ([c094]), 表示 = する;
	CASE  95 DO	オブジェクト属性 @c, ([c095]), 表示 = する;
	CASE  96 DO	オブジェクト属性 @c, ([c096]), 表示 = する;
	CASE  97 DO	オブジェクト属性 @c, ([c097]), 表示 = する;
	CASE  98 DO	オブジェクト属性 @c, ([c098]), 表示 = する;
	CASE  99 DO	オブジェクト属性 @c, ([c099]), 表示 = する;
	CASE 100 DO	オブジェクト属性 @c, ([c100]), 表示 = する;
	CASE 101 DO	オブジェクト属性 @c, ([c101]), 表示 = する;
	CASE 102 DO	オブジェクト属性 @c, ([c102]), 表示 = する;
	CASE 103 DO	オブジェクト属性 @c, ([c103]), 表示 = する;
	CASE 104 DO	オブジェクト属性 @c, ([c104]), 表示 = する;
	CASE 105 DO	オブジェクト属性 @c, ([c105]), 表示 = する;
	CASE 106 DO	オブジェクト属性 @c, ([c106]), 表示 = する;
	CASE 107 DO	オブジェクト属性 @c, ([c107]), 表示 = する;
	CASE 108 DO	オブジェクト属性 @c, ([c108]), 表示 = する;
	CASE 109 DO	オブジェクト属性 @c, ([c109]), 表示 = する;
	CASE 110 DO	オブジェクト属性 @c, ([c110]), 表示 = する;
	CASE 111 DO	オブジェクト属性 @c, ([c111]), 表示 = する;
	CASE 112 DO	オブジェクト属性 @c, ([c112]), 表示 = する;
	CASE 113 DO	オブジェクト属性 @c, ([c113]), 表示 = する;
	CASE 114 DO	オブジェクト属性 @c, ([c114]), 表示 = する;
	CASE 115 DO	オブジェクト属性 @c, ([c115]), 表示 = する;
	CASE 116 DO	オブジェクト属性 @c, ([c116]), 表示 = する;
	CASE 117 DO	オブジェクト属性 @c, ([c117]), 表示 = する;
	CASE 118 DO	オブジェクト属性 @c, ([c118]), 表示 = する;
	CASE 119 DO	オブジェクト属性 @c, ([c119]), 表示 = する;
	CASE 120 DO	オブジェクト属性 @c, ([c120]), 表示 = する;
	CASE 121 DO	オブジェクト属性 @c, ([c121]), 表示 = する;
	CASE 122 DO	オブジェクト属性 @c, ([c122]), 表示 = する;
	CASE 123 DO	オブジェクト属性 @c, ([c123]), 表示 = する;
	CASE 124 DO	オブジェクト属性 @c, ([c124]), 表示 = する;
	CASE 125 DO	オブジェクト属性 @c, ([c125]), 表示 = する;
	CASE 126 DO	オブジェクト属性 @c, ([c126]), 表示 = する;
	CASE 127 DO	オブジェクト属性 @c, ([c127]), 表示 = する;
	CASE 128 DO	オブジェクト属性 @c, ([c128]), 表示 = する;
	CASE 129 DO	オブジェクト属性 @c, ([c129]), 表示 = する;
	CASE 130 DO	オブジェクト属性 @c, ([c130]), 表示 = する;
	CASE 131 DO	オブジェクト属性 @c, ([c131]), 表示 = する;
	CASE 132 DO	オブジェクト属性 @c, ([c132]), 表示 = する;
	CASE 133 DO	オブジェクト属性 @c, ([c133]), 表示 = する;
	CASE 134 DO	オブジェクト属性 @c, ([c134]), 表示 = する;
	CASE 135 DO	オブジェクト属性 @c, ([c135]), 表示 = する;
	CASE 136 DO	オブジェクト属性 @c, ([c136]), 表示 = する;
	CASE 137 DO	オブジェクト属性 @c, ([c137]), 表示 = する;
	CASE 138 DO	オブジェクト属性 @c, ([c138]), 表示 = する;
	CASE 139 DO	オブジェクト属性 @c, ([c139]), 表示 = する;
	CASE 140 DO	オブジェクト属性 @c, ([c140]), 表示 = する;
	CASE 141 DO	オブジェクト属性 @c, ([c141]), 表示 = する;
	CASE 142 DO	オブジェクト属性 @c, ([c142]), 表示 = する;
	CASE 143 DO	オブジェクト属性 @c, ([c143]), 表示 = する;
	CASE 144 DO	オブジェクト属性 @c, ([c144]), 表示 = する;
	CASE 145 DO	オブジェクト属性 @c, ([c145]), 表示 = する;
	CASE 146 DO	オブジェクト属性 @c, ([c146]), 表示 = する;
	CASE 147 DO	オブジェクト属性 @c, ([c147]), 表示 = する;
	CASE 148 DO	オブジェクト属性 @c, ([c148]), 表示 = する;
	CASE 149 DO	オブジェクト属性 @c, ([c149]), 表示 = する;
	CASE 150 DO	オブジェクト属性 @c, ([c150]), 表示 = する;
	CASE 151 DO	オブジェクト属性 @c, ([c151]), 表示 = する;
	CASE 152 DO	オブジェクト属性 @c, ([c152]), 表示 = する;
	CASE 153 DO	オブジェクト属性 @c, ([c153]), 表示 = する;
	CASE 154 DO	オブジェクト属性 @c, ([c154]), 表示 = する;
	CASE 155 DO	オブジェクト属性 @c, ([c155]), 表示 = する;
	CASE 156 DO	オブジェクト属性 @c, ([c156]), 表示 = する;
	CASE 157 DO	オブジェクト属性 @c, ([c157]), 表示 = する;
	CASE 158 DO	オブジェクト属性 @c, ([c158]), 表示 = する;
	CASE 159 DO	オブジェクト属性 @c, ([c159]), 表示 = する;
	CASE 160 DO	オブジェクト属性 @c, ([c160]), 表示 = する;
	CASE 161 DO	オブジェクト属性 @c, ([c161]), 表示 = する;
	CASE 162 DO	オブジェクト属性 @c, ([c162]), 表示 = する;
	CASE 163 DO	オブジェクト属性 @c, ([c163]), 表示 = する;
	CASE 164 DO	オブジェクト属性 @c, ([c164]), 表示 = する;
	CASE 165 DO	オブジェクト属性 @c, ([c165]), 表示 = する;
	CASE 166 DO	オブジェクト属性 @c, ([c166]), 表示 = する;
	CASE 167 DO	オブジェクト属性 @c, ([c167]), 表示 = する;
	CASE 168 DO	オブジェクト属性 @c, ([c168]), 表示 = する;
	CASE 169 DO	オブジェクト属性 @c, ([c169]), 表示 = する;
	CASE 170 DO	オブジェクト属性 @c, ([c170]), 表示 = する;
	CASE 171 DO	オブジェクト属性 @c, ([c171]), 表示 = する;
	CASE 172 DO	オブジェクト属性 @c, ([c172]), 表示 = する;
	CASE 173 DO	オブジェクト属性 @c, ([c173]), 表示 = する;
	CASE 174 DO	オブジェクト属性 @c, ([c174]), 表示 = する;
	CASE 175 DO	オブジェクト属性 @c, ([c175]), 表示 = する;
	CASE 176 DO	オブジェクト属性 @c, ([c176]), 表示 = する;
	CASE 177 DO	オブジェクト属性 @c, ([c177]), 表示 = する;
	CASE 178 DO	オブジェクト属性 @c, ([c178]), 表示 = する;
	CASE 179 DO	オブジェクト属性 @c, ([c179]), 表示 = する;
	CASE 180 DO	オブジェクト属性 @c, ([c180]), 表示 = する;
	CASE 181 DO	オブジェクト属性 @c, ([c181]), 表示 = する;
	CASE 182 DO	オブジェクト属性 @c, ([c182]), 表示 = する;
	CASE 183 DO	オブジェクト属性 @c, ([c183]), 表示 = する;
	CASE 184 DO	オブジェクト属性 @c, ([c184]), 表示 = する;
	CASE 185 DO	オブジェクト属性 @c, ([c185]), 表示 = する;
	CASE 186 DO	オブジェクト属性 @c, ([c186]), 表示 = する;
	CASE 187 DO	オブジェクト属性 @c, ([c187]), 表示 = する;
	CASE 188 DO	オブジェクト属性 @c, ([c188]), 表示 = する;
	CASE 189 DO	オブジェクト属性 @c, ([c189]), 表示 = する;
	CASE 190 DO	オブジェクト属性 @c, ([c190]), 表示 = する;
	CASE 191 DO	オブジェクト属性 @c, ([c191]), 表示 = する;
	CASE 192 DO	オブジェクト属性 @c, ([c192]), 表示 = する;
	CASE 193 DO	オブジェクト属性 @c, ([c193]), 表示 = する;
	CASE 194 DO	オブジェクト属性 @c, ([c194]), 表示 = する;
	CASE 195 DO	オブジェクト属性 @c, ([c195]), 表示 = する;
	CASE 196 DO	オブジェクト属性 @c, ([c196]), 表示 = する;
	CASE 197 DO	オブジェクト属性 @c, ([c197]), 表示 = する;
	CASE 198 DO	オブジェクト属性 @c, ([c198]), 表示 = する;
	CASE 199 DO	オブジェクト属性 @c, ([c199]), 表示 = する;
	CASE 200 DO	オブジェクト属性 @c, ([c200]), 表示 = する;
	ENDSWITCH
ENDPROCEDURE


-- ****************
PROCEDURE Init(@c) DO
	オブジェクト属性 @c,
		(
		[c001],[c002],[c003],[c004],[c005],[c006],[c007],[c008],[c009],[c010],
		[c011],[c012],[c013],[c014],[c015],[c016],[c017],[c018],[c019],[c020],
		[c021],[c022],[c023],[c024],[c025],[c026],[c027],[c028],[c029],[c030],
		[c031],[c032],[c033],[c034],[c035],[c036],[c037],[c038],[c039],[c040],
		[c041],[c042],[c043],[c044],[c045],[c046],[c047],[c048],[c049],[c050],
		[c051],[c052],[c053],[c054],[c055],[c056],[c057],[c058],[c059],[c060],
		[c061],[c062],[c063],[c064],[c065],[c066],[c067],[c068],[c069],[c070],
		[c071],[c072],[c073],[c074],[c075],[c076],[c077],[c078],[c079],[c080],
		[c081],[c082],[c083],[c084],[c085],[c086],[c087],[c088],[c089],[c090],
		[c091],[c092],[c093],[c094],[c095],[c096],[c097],[c098],[c099],[c100],
		[c101],[c102],[c103],[c104],[c105],[c106],[c107],[c108],[c109],[c110],
		[c111],[c112],[c113],[c114],[c115],[c116],[c117],[c118],[c119],[c120],
		[c121],[c122],[c123],[c124],[c125],[c126],[c127],[c128],[c129],[c130],
		[c131],[c132],[c133],[c134],[c135],[c136],[c137],[c138],[c139],[c140],
		[c141],[c142],[c143],[c144],[c145],[c146],[c147],[c148],[c149],[c150],
		[c151],[c152],[c153],[c154],[c155],[c156],[c157],[c158],[c159],[c160],
		[c161],[c162],[c163],[c164],[c165],[c166],[c167],[c168],[c169],[c170],
		[c171],[c172],[c173],[c174],[c175],[c176],[c177],[c178],[c179],[c180],
		[c181],[c182],[c183],[c184],[c185],[c186],[c187],[c188],[c189],[c190],
		[c191],[c192],[c193],[c194],[c195],[c196],[c197],[c198],[c199],[c200]
		),
		表示 = しない;
ENDPROCEDURE