#
#(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'}
<!--
$::MYSELF_NAME $::VERSION$::LICENSE_COMMENT
See $::C_BOARD_LINK
-->
</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'}{'wap20'})||($::FLAG{'mobile'}{'willcom'}))
        ? '' : ($::FLAG{'mobile'}{'jsky'}
                      ? "\x1b\x24\x46\x3c\x0f" : '[1]')]}
L\\</a><br>
<a href="$CNF::place{'this'}{'path'}?cmd=tpc;id=$::FORM{'id'}" accesskey=2>
@{[(($::FLAG{'mobile'}{'imode'})||($::FLAG{'mobile'}{'wap20'})||($::FLAG{'mobile'}{'willcom'}))
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x3d\x0f" : '[2]')]}
gsbNX</a><br>
<a href="$CNF::place{'this'}{'path'}?cmd=psn;id=$::FORM{'id'}" accesskey=3>
@{[(($::FLAG{'mobile'}{'imode'})||($::FLAG{'mobile'}{'wap20'})||($::FLAG{'mobile'}{'willcom'}))
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x3e\x0f" : '[3]')]}
e</a><br>
<a href="$CNF::place{'this'}{'path'}?cmd=srn;id=$::FORM{'id'}" accesskey=4>
@{[(($::FLAG{'mobile'}{'imode'})||($::FLAG{'mobile'}{'wap20'})||($::FLAG{'mobile'}{'willcom'}))
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x3f\x0f" : '[4]')]}
</a><br>
<a href="$CNF::mobile{'home'}{'url'}" accesskey=5>
@{[(($::FLAG{'mobile'}{'imode'})||($::FLAG{'mobile'}{'wap20'})||($::FLAG{'mobile'}{'willcom'}))
       ? '' : ($::FLAG{'mobile'}{'jsky'}
                     ? "\x1b\x24\x46\x40\x0f" : '[5]')]}
z[</a>
<<<<<<<<<<<<<<<<<<<<<< gslkł >>>>>>>>>>>>>>>>>>>>>>
}
#܂ń


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

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

1;

# $Id: bse.txt,v 2.1 2002/04/04 08:15:00 N.Hirai Exp $;
