#
#(rr)b|an`qcev[g
#
#gїpeʋʂ̐ݒt@CłB
#ʏ̂gslkƓoŕҏW邱Ƃo܂B
#ȂArɂu$`v͂ꂼvOɂĔCӂ̕
#u܂B
#

package DESIGN;

#
#   ʕ
#
sub init {
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<html>
<head>
 <title>@{[$::FLAG{'mobile'}{'jsky'} ? '' : $CNF::mobile{'title'}]}</title>
</head>
<body>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   wb_[
#
sub head {
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
$CNF::mobile{'header'}
${&line}
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   tb^[
#
sub foot {
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
$CNF::mobile{'footer'}
<!--
(SS)C-BOARD v$::VERSION$ is Free.
See $::C_BOARD_LINK
See $::VERSION_LINK
Copyright (C) 2000 T.Kimata All rights reserved
-->
</body>
</html>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   j[
#
sub menu {
	print <<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>";
<a href="$CNF::place{'this'}{'path'}?cmd=nmb;id=$::FORM{'id'}" accesskey=1>
@{[$::FLAG{'mobile'}{'imode'}
        ? '' : ($::FLAG{'mobile'}{'jsky'}
                      ? "\x1b\x24\x46\x3c\x0f" : '[1]')]}
</a>
L\\<br>
<a href="$CNF::place{'this'}{'path'}?cmd=tpc;id=$::FORM{'id'}" accesskey=2>
@{[$::FLAG{'mobile'}{'imode'}
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x3d\x0f" : '[2]')]}
</a>
gsbNX<br>
<a href="$CNF::place{'this'}{'path'}?cmd=psn;id=$::FORM{'id'}" accesskey=3>
@{[$::FLAG{'mobile'}{'imode'}
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x3e\x0f" : '[3]')]}
</a>
e<br>
<a href="$CNF::place{'this'}{'path'}?cmd=srn;id=$::FORM{'id'}" accesskey=4>
@{[$::FLAG{'mobile'}{'imode'}
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x3f\x0f" : '[4]')]}
</a>
<br>
<a href="$CNF::mobile{'home'}{'url'}" accesskey=5>
@{[$::FLAG{'mobile'}{'imode'}
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x40\x0f" : '[5]')]}
</a>
z[
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


#
#   ؂
#
sub line {
	return(\<<"<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>");
<hr size=1>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń

*head2 = *head; *foot2 = *foot;

1;

# $Id: bse.txt,v 1.3 2006/03/09 09:19:39 susumu Exp $;
