% travel.sty 27 Jan 1999
\typeout{Document Style `徳島大学 旅行命令・依頼伺 スタイル (2006)'.}
\typeout{$Id: travel2006.sty,v 1.3 2006/10/19 08:47:02 alex Exp alex $}

\def\ds@twoside{\@twosidetrue \@mparswitchtrue}
\def\ds@draft{\overfullrule 5pt}

\@options

% =======================travel2004.sty の revision=======================
%
\def\travelstylerevision{$Revision: 1.3 $}

%
% 大きさの設定
\lineskip 1pt
\normallineskip 1pt
\def\baselinestretch{1.0}

\def\@normalsize{
% \@setsize\normalsize{15pt plus1pt minus1pt}\xpt\@xpt
 \@setsize\normalsize{15.5pt}\xipt\@xipt
 \abovedisplayskip \z@ plus3pt \belowdisplayskip \abovedisplayskip
 \abovedisplayshortskip \z@ \belowdisplayshortskip \z@
 \let\@listi\@listI
}
\def\small{
 \@setsize\small{11pt}\ixpt\@ixpt
 \abovedisplayskip \z@\belowdisplayskip \abovedisplayskip
 \abovedisplayshortskip \z@ plus2pt\belowdisplayshortskip \abovedisplayshortskip
 \def\@listi{\leftmargin\leftmargini \topsep \z@ \parsep \z@ \itemsep \parsep}
}
\def\footnotesize{
 \@setsize\footnotesize{9.5pt}\viiipt\@viiipt
 \abovedisplayskip \z@ \belowdisplayskip \abovedisplayskip
 \abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip \abovedisplayshortskip
 \def\@listi{ \leftmargin\leftmargini \topsep \z@ \parsep \z@ \itemsep \parsep}
}
\def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{17pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{21pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{25pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{28pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{33pt}\xxvpt\@xxvpt}
\normalsize 

\if@twoside
 \oddsidemargin 0mm \evensidemargin 0mm \marginparwidth 100pt
\else
 \oddsidemargin 0mm \evensidemargin 0mm \marginparwidth 100pt 
\fi
\marginparsep 10pt 
\topmargin -23mm
\headheight 12pt
\headsep 25pt
%\footheight 12pt
\footskip 30pt 

%\textheight180mm
\textheight280mm
\textwidth280mm
\columnsep4mm
\columnseprule0pt


\footnotesep 6.65pt 
\skip\footins 9pt plus 4pt minus 2pt 
\floatsep 12pt plus 2pt minus 2pt
\textfloatsep 10pt plus 2pt minus 4pt
\intextsep 12pt plus 2pt minus 2pt
%\@maxsep 10pt
\dblfloatsep 6pt plus 2pt minus 2pt
\dbltextfloatsep 10pt plus 2pt minus 4pt
%\@dblmaxsep 10pt 
\@fptop 0pt plus 1fil
\@fpsep 8pt plus 2fil
\@fpbot 0pt plus 1fil
\@dblfptop 0pt plus 1fil
\@dblfpsep 8pt plus 2fil
\@dblfpbot 0pt plus 1fil
\marginparpush 5pt

\parskip \z@
\parindent 1em
\partopsep \z@
\@lowpenalty 51
\@medpenalty 151
\@highpenalty 301
\@beginparpenalty -\@lowpenalty
\@endparpenalty -\@lowpenalty
\@itempenalty -\@lowpenalty 


\def\part{\par \addvspace{4ex} \@afterindenttrue \secdef\@part\@spart} 
\def\@part[#1]#2{\ifnum \c@secnumdepth >\m@ne \refstepcounter{part} \addcontentsline{toc}{part}{\thepart \hspace{1em}#1}\else
\addcontentsline{toc}{part}{#1}\fi { \parindent 0pt \raggedright \ifnum \c@secnumdepth >\m@ne \Large \bf Part \thepart \par \nobreak \fi \huge
\bf #2\markboth{}{}\par } \nobreak \vskip 3ex \@afterheading } 
\def\@spart#1{{\parindent 0pt \raggedright  \huge \bf  #1\par} \nobreak \vskip 3ex \@afterheading } 
\def\section{\@startsection {section}{1}{\z@}{0ex plus .1ex minus  .1ex}{.1em}{\normalsize\bf}}
\def\subsection{\@startsection{subsection}{2}{\z@}{0ex plus .1ex minus  .1ex}{.1em}{\normalsize}}
\def\subsubsection{\@startsection{subsubsection}{3}{\z@}{0ex plus .1ex minus .1ex}{.1em}{\normalsize}}
\def\paragraph{\@startsection {paragraph}{4}{\z@}{0ex plus .1ex minus .1ex}{.1em}{\normalsize}}
\def\subparagraph{\@startsection {subparagraph}{4}{\parindent}{0ex plus .1ex minus  .2ex}{.1em}{\normalsize}}


\setcounter{secnumdepth}{3}

\def\appendix{\par
 \setcounter{section}{0}
 \setcounter{subsection}{0}
 \def\thesection{\Alph{section}}
}


\leftmargini 25pt
\leftmarginii 22pt
\leftmarginiii 18.7pt
\leftmarginiv 17pt
\leftmarginv 10pt
\leftmarginvi 10pt
\leftmargin\leftmargini
\labelwidth\leftmargini
\advance\labelwidth-\labelsep
\labelsep 5pt

\def\@listI{\leftmargin\leftmargini \parsep \z@ \topsep \z@ \itemsep \z@}
\let\@listi\@listI
\@listi 
\def\@listii{
 \leftmargin\leftmarginii \labelwidth
 \leftmarginii\advance\labelwidth-\labelsep
 \topsep \z@ \parsep \z@ \itemsep \parsep
}
\def\@listiii{
 \leftmargin\leftmarginiii
 \labelwidth\leftmarginiii
 \advance\labelwidth-\labelsep
 \topsep \z@ \parsep \z@ \itemsep \parsep \partopsep \z@ \itemsep \topsep
}
\def\@listiv{\leftmargin\leftmarginiv \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}
\def\@listv{\leftmargin\leftmarginv \labelwidth\leftmarginv\advance\labelwidth-\labelsep}
\def\@listvi{\leftmargin\leftmarginvi \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}

%
% =======================ドキュメントのスタイル=======================
%

\def\labelenumi{\theenumi.} 
\def\theenumi{\arabic{enumi}} 
\def\labelenumii{(\theenumii)}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\theenumiii.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\theenumiv.}
\def\theenumiv{\Alph{enumiv}} 
\def\p@enumiv{\p@enumiii\theenumiii}

\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}

\def\verse{\let\\=\@centercr \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em \itemindent\listparindent \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin \let\makelabel\descriptionlabel}}
\let\enddescription\endlist


\def\theequation{\arabic{equation}}


\arraycolsep 5pt
\tabcolsep 6pt
\arrayrulewidth .4pt
\doublerulesep 2pt
\tabbingsep \labelsep

\skip\@mpfootins = \skip\footins
\fboxsep = 3pt
\fboxrule = .4pt 

% 表中に太い横線を入れるための設定
\def\hhline{\noalign{\ifnum0=`}\fi\hrule \@height 3\arrayrulewidth \futurelet \@tempa\@xhhline}
\def\@xhhline{\ifx\@tempa\hhline\vskip \doublerulesep\fi \ifnum0=`{\fi}}

% カウンタの作成
%\newcounter{part}
%\newcounter{section}
%\newcounter{subsection}[section]
%\newcounter{subsubsection}[subsection]
%\newcounter{paragraph}[subsubsection]
%\newcounter{subparagraph}[paragraph]

\def\thepart{\Roman{part}}
\def\thesection{\arabic{section}.}
\def\thesubsection{\thesection\arabic{subsection}}
\def\thesubsubsection{\thesubsection .\arabic{subsubsection}}
\def\theparagraph{\thesubsubsection.\arabic{paragraph}}
\def\thesubparagraph{\theparagraph.\arabic{subparagraph}}

\def\@pnumwidth{1.55em}
\def\@tocrmarg {2.55em}
\def\@dotsep{4.5}
\setcounter{tocdepth}{3}

\def\tableofcontents{\section*{目 次\markboth{目 次}{目 次}} \@starttoc{toc}}
\def\l@part#1#2{
 \addpenalty{\@secpenalty}
 \addvspace{2.25em plus 1pt}
 \begingroup
 \@tempdima 3em
 \parindent \z@
 \rightskip \@pnumwidth
 \parfillskip -\@pnumwidth 
 {\large \bf \leavevmode #1\hfil \hbox to\@pnumwidth{\hss #2}}\par
 \nobreak \endgroup
}
\def\l@section#1#2{
 \addpenalty{\@secpenalty}
 \addvspace{1.0em plus 1pt}
 \@tempdima 1.5em \begingroup
 \parindent \z@ \rightskip \@pnumwidth 
 \parfillskip -\@pnumwidth 
 \bf \leavevmode \advance\leftskip\@tempdima \hskip -\leftskip #1\nobreak\hfil
\nobreak\hbox to\@pnumwidth{\hss #2}\par
 \endgroup
}
\def\l@subsection{\@dottedtocline{2}{1.5em}{2.3em}}
\def\l@subsubsection{\@dottedtocline{3}{3.8em}{3.2em}}
\def\l@paragraph{\@dottedtocline{4}{7.0em}{4.1em}}
\def\l@subparagraph{\@dottedtocline{5}{10em}{5em}}
\def\listoffigures{\section*{図 目 次\markboth {図 目 次}{図 目 次}}\@starttoc{lof}}
\def\l@figure{\@dottedtocline{1}{1.5em}{2.3em}}
\def\listoftables{\section*{表 目 次\markboth {表 目 次}{表 目 次}}\@starttoc{lot}}
\let\l@table\l@figure


\def\thebibliography#1{
 \section*{参考文献\markboth {参 考 文 献}{参 考 文 献}}\list
 {[\arabic{enumi}]}{\settowidth\labelwidth{[#1]}\leftmargin\labelwidth
 \advance\leftmargin\labelsep
 \usecounter{enumi}}
 \def\newblock{\hskip .11em plus .33em minus .07em}
 \sloppy
 \sfcode`\.=1000\relax
 \small
}
\let\endthebibliography=\endlist
 
\newif\if@restonecol
\def\theindex{
 \@restonecoltrue\if@twocolumn\@restonecolfalse\fi
 \columnseprule \z@
 \columnsep 35pt\twocolumn[\section*{索 引}]
 \markboth{索 引}{索 引}\thispagestyle{plain}\parindent\z@
 \parskip\z@ plus .3pt\relax\let\item\@idxitem
}
\def\@idxitem{\par\hangindent 40pt}
\def\subitem{\par\hangindent 40pt \hspace*{20pt}}
\def\subsubitem{\par\hangindent 40pt \hspace*{30pt}}
\def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}

\def\footnoterule{\kern-3\p@ \hrule width .4\columnwidth \kern 2.6\p@}

\long\def\@makefntext#1{\parindent 1em\noindent \hbox to 1.8em{\hss$^{\@thefnmark}$}#1}

\setcounter{topnumber}{2}
\def\topfraction{.7}
\setcounter{bottomnumber}{1}
\def\bottomfraction{.3}
\setcounter{totalnumber}{3}
\def\textfraction{.2}
\def\floatpagefraction{.5}
\setcounter{dbltopnumber}{2}
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}

\long\def\@makecaption#1#2{
 \vskip 3pt 
 \small
 \setbox\@tempboxa\hbox{#1 #2}
 \ifdim \wd\@tempboxa >\hsize \unhbox\@tempboxa\par \else \hbox to\hsize{\hfil\box\@tempboxa\hfil} \fi
}

%\newcounter{figure}
\def\thefigure{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{図\thefigure}
\def\figure{\@float{figure}}
\let\endfigure\end@float
\@namedef{figure*}{\@dblfloat{figure}}
\@namedef{endfigure*}{\end@dblfloat}
%\newcounter{table}
\def\thetable{\@arabic\c@table}
\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
\def\fnum@table{表\thetable}
\def\table{\@float{table}}
\let\endtable\end@float
\@namedef{table*}{\@dblfloat{table}}
\@namedef{endtable*}{\end@dblfloat}

\def\年号#1{\def\@年号{#1}}
\年号{平成}

\def\旅行者#1#2#3#4#5#6#7#8{
 \def\@旅行者氏名{#1}
 \def\@旅行者所属I{#2}
 \def\@旅行者所属II{#3}
 \def\@旅行者住所{#4}
 \def\@旅行者職名I{#5}
 \def\@旅行者職名II{#6}
 \旅行者級I#7
 \旅行者級II#8
}
\def\旅行者級I#1#2#3年#4月#5日{
 \def\@旅行者級年号{#1#2}
 \def\@旅行者級年{#3}
 \def\@旅行者級月{#4}
 \def\@旅行者級日{#5}
}
\def\旅行者級II#1職（#2）#3級#4号{
 \def\@旅行者級職{#1}
 \def\@旅行者級種{#2}
 \def\@旅行者級級{#3}
 \def\@旅行者級号{#4}
}
\旅行者{}{工学部}{}{}{}{}{平成1年2月3日}{教育職（四）5級6号}

\def\旅行日#1#2#3年#4月#5日{
 \def\@旅行日号{#1#2}
 \def\@旅行日年{#3}
 \def\@旅行日月{#4}
 \def\@旅行日日{#5}
}

\newcounter{日程数}
\newdimen\@縦
\newdimen\@高
\newdimen\@余

\newenvironment{旅行}[1]{
\def\命令依頼{#1}%
\def\命令{命令}%
\def\依頼{依頼}%
	\unitlength.1mm%
	\def\太線{\linethickness{.5mm}}%
	\def\細線{\linethickness{.1mm}}%
	\def\用務##1{\def\@用務{##1}}%
	\def\@用務概要{}%
	\def\用務概要##1{\def\@用務概要{##1}}%
	\def\旅行期間##1##2##3{\def\@旅行期間始{##1}\def\@旅行期間終{##2}\def\@旅行期間数{##3}}%
	\def\旅行日程##1{\def\@旅行日程{##1}}%
	\def\@出張日程{}%
	\def\出張日程##1{\def\@出張日程{##1}}%
	\def\@備考{}%
	\def\備考##1{\def\@備考{##1}}%
	\def\@支給無{$\surd$}%
	\def\@支給有{}%
	\def\@支給交通費{}%
	\def\@支給宿泊費{}%
	\def\@支給日当{}%
	\def\支給有り{\def\@支給無{}\def\@支給有{$\surd$}}%
	\def\交通費支給有り{\def\@支給無{}\def\@支給有{$\surd$}\def\@支給交通費{$\surd$}}%
	\def\宿泊費支給有り{\def\@支給無{}\def\@支給有{$\surd$}\def\@支給宿泊費{$\surd$}}%
	\def\日当支給有り{\def\@支給無{}\def\@支給有{$\surd$}\def\@支給日当{$\surd$}}%
}{
	\newpage\noindent
	\begin{picture}(2600,1780)(40,-340)
	%横線
	\太線	\put(-2,1632){\line(1,0){2604}}
		\put(0,1535){\makebox(2600,100){\LARGE 旅　　行　　命　　令　・　依　　頼　　伺}}
		\ifx\命令依頼\命令%
			\細線	\put(1470,1590){\line(1,0){260}}
			\細線	\put(1470,1580){\line(1,0){260}}
		\else
			\細線	\put(1050,1590){\line(1,0){260}}
			\細線	\put(1050,1580){\line(1,0){260}}
		\fi
	\細線	\put(0,1535){\line(1,0){2600}}
		\put(0,1325){\makebox(340,210){事　務　長}}
		\細線	\put(340,1325){\line(0,1){210}}
		\細線	\put(720,1325){\line(0,1){210}}
		\put(720,1430){\makebox(200,105){\shortstack{事務長補佐\\総務係長}}}
		\put(1170,1430){\makebox(200,105){係}}
		\細線	\put(720,1430){\line(1,0){895}}
		\put(720,1325){\makebox(200,105){管理係長}}
		\put(1170,1325){\makebox(200,105){係}}
		\細線	\put(920,1325){\line(0,1){210}}
		\細線	\put(1170,1325){\line(0,1){210}}
		\細線	\put(1370,1325){\line(0,1){210}}
		\細線	\put(1615,1325){\line(0,1){210}}
		\細線	\put(1622,1325){\line(0,1){210}}
		\細線	\put(1995,1325){\line(0,1){210}}
		\put(1622,1465){\makebox(373,70){整 \ \ 理 \ \ \ 番 \ \ 号}}
		\put(1995,1465){\makebox(605,70){　　 　 　 第　　 　 　 　 号}}
		\細線	\put(1622,1465){\line(1,0){978}}
		\put(1622,1395){\makebox(373,70){起 \ 案 \ 年 \ 月 \ 日}}
		\put(1995,1395){\makebox(605,70){\@年号\ 　 　 年　 　 月　  　 日}}
		\細線	\put(1622,1395){\line(1,0){978}}
		\put(1622,1325){\makebox(373,70){発 \ 令 \ 年 \ 月 \ 日}}
		\put(1995,1325){\makebox(605,70){\@年号\ 　 　 年　 　 月　 　 日}}
	\細線	\put(0,1325){\line(1,0){2600}}
		\put(0,1260){\makebox(2600,65){\large 下記のとおり　命令・依頼　してよろしいか，伺います。}}
		\ifx\命令依頼\命令%
			\細線	\put(1180,1295){\line(1,0){90}}
			\細線	\put(1180,1285){\line(1,0){90}}
		\else
			\細線	\put(1055,1295){\line(1,0){90}}
			\細線	\put(1055,1285){\line(1,0){90}}
		\fi
	\細線	\put(0,1260){\line(1,0){2600}}
		\put(0,1195){\makebox(2600,65){\large 旅 　 　 行 　 　 命 　 　 令　 ・ 　依 　 　 頼 　 　 簿}}
		\ifx\命令依頼\命令%
			\細線	\put(1445,1235){\line(1,0){230}}
			\細線	\put(1445,1225){\line(1,0){230}}
		\else
			\細線	\put(1090,1235){\line(1,0){230}}
			\細線	\put(1090,1225){\line(1,0){230}}
		\fi
	\細線	\put(0,1195){\line(1,0){2600}}
		\put(0,1125){\makebox(540,70){所属部局課（又は所属団体）}}
		\細線	\put(540,1125){\line(0,1){70}}
		\細線	\put(0,1125){\line(1,0){1220}}
		\put(590,1125){\makebox(630,70)[l]{\bf \@旅行者所属I}}
		\put(0,1005){\makebox(340,120){\shortstack{職名(又は職業)\\\rule{0mm}{1mm}\\氏　　　　　名}}}
		\put(380,1005){\makebox(800,120)[l]{\shortstack[l]{\bf\@\@旅行者職名II\\\rule{0mm}{1mm}\\\large\bf\@旅行者氏名}}}
%		\put(700,1005){\makebox(800,60){\small 印}}
	\細線	\put(0,1005){\line(1,0){1220}}
		\put(0,795){\makebox(340,210){用　　　　　務}}
	\細線	\put(340,795){\line(0,1){330}}
		\put(360, 795){\makebox(840,210)[l]{\bf\shortstack[l]{\@用務}}}
	\細線	\put(0,795){\line(1,0){1220}}
		\put(0,695){\makebox(340,100){旅　行　期　間}}
			\expandafter\旅行日\@旅行期間始
			\put(420,745){\makebox(0,50){自}}
			\put(520,745){\makebox(0,50){\@旅行日号}}
			\put(580,745){\makebox(50,50)[r]{\em\@旅行日年}}
			\put(670,745){\makebox(0,50){年}}
			\put(690,745){\makebox(50,50)[r]{\em\@旅行日月}}
			\put(780,745){\makebox(0,50){月}}
			\put(800,745){\makebox(50,50)[r]{\em\@旅行日日}}
			\put(890,745){\makebox(0,50){日}}
			\expandafter\旅行日\@旅行期間終
			\put(420,695){\makebox(0,50){至}}
			\put(520,695){\makebox(0,50){\@旅行日号}}
			\put(580,695){\makebox(50,50)[r]{\em\@旅行日年}}
			\put(670,695){\makebox(0,50){年}}
			\put(690,695){\makebox(50,50)[r]{\em\@旅行日月}}
			\put(780,695){\makebox(0,50){月}}
			\put(800,695){\makebox(50,50)[r]{\em\@旅行日日}}
			\put(890,695){\makebox(0,50){日}}
		\put(1120,695){\makebox(0,100)[r]{{\em\@旅行期間数}\ \ \ 日間}}
%
		\put(1220,1075){\makebox(360,120){住所(又は居所)}}
		\put(1620,1075){\makebox(940,120)[l]{\@旅行者住所}}
		\細線	\put(1220,1075){\line(1,0){1380}}
		\細線	\put(1580,935){\line(0,1){260}}
		\put(1220,1005){\makebox(360,70){職\ 務\ の\ 級\ \ 等}}
		\put(1600,1005){\makebox(940,70){{\@旅行者級年号}\ {\em\@旅行者級年}{年}\ \ {\em\@旅行者級月}{月}\ \ {\em\@旅行者級日}{日}
%					\ \ \ \ {\@旅行者級職}{職基本級表（{\@旅行者級種}）}\ {\em\@旅行者級級}{級}\ \ {\em\@旅行者級号}{号俸}}}
					\ \ \ \ {\@旅行者級職}{職基本級表　}\ {\em\@旅行者級級}{級}\ \ {\em\@旅行者級号}{号俸}}}
		\細線	\put(1220,1005){\line(1,0){1380}}
		\put(1220,935){\makebox(360,70)[c]{\small 一般職基本給表換算級}}
			\put(2220,935){\makebox(40,70){級}}
		\細線	\put(1220,935){\line(1,0){1380}}
		\put(1220,865){\makebox(690,70){仮　 　 　 　払}}
		\put(1910,865){\makebox(690,70){精　 　 　算　 　 　払}}
		\細線	\put(1220,695){\line(0,1){500}}
		\細線	\put(1220,865){\line(1,0){1380}}
		\put(1220,795){\makebox(345,70){年 　月 　日}}
		\細線	\put(1565,695){\line(0,1){170}}
		\put(1565,795){\makebox(345,70){金 　 　 額}}
		\細線	\put(1910,695){\line(0,1){240}}
		\put(1910,795){\makebox(345,70){年 　月 　日}}
		\細線	\put(2255,695){\line(0,1){170}}
		\put(2255,795){\makebox(345,70){金 　 　 額}}
		\細線	\put(1220,795){\line(1,0){1380}}
	\細線	\put(0,695){\line(1,0){2600}}
		\put(0,0){\makebox(120,695){\shortstack{旅\\\rule{0mm}{7mm}\\行\\\rule{0mm}{7mm}\\日\\\rule{0mm}{7mm}\\程}}}
		\細線	\put(120,0){\line(0,1){695}}
		\put(120,630){\makebox(180,65){年月日}}
		\細線	\put(300,0){\line(0,1){695}}
		\put(300,630){\makebox(180,65){出発地}}
		\細線	\put(480,0){\line(0,1){695}}
		\put(480,630){\makebox(180,65){経　路}}
		\細線	\put(660,0){\line(0,1){695}}
		\put(660,630){\makebox(180,65){到着地}}
		\細線	\put(840,0){\line(0,1){695}}
		\put(840,630){\makebox(180,65){宿泊地}}
		\細線	\put(1020,0){\line(0,1){695}}
		\put(1020,630){\makebox(545,65){用 　　 務 　　 先}}
		\細線	\put(1565,0){\line(0,1){695}}
		\put(1565,630){\makebox(690,65){備 　 　　　 考}}
		\細線	\put(2255,0){\line(0,1){820}}
		\put(1605,210){\makebox(595,390)[tl]{\shortstack[l]{\@備考}}}
		\細線	\put(120,630){\line(1,0){2135}}
		\put(2255,630){\makebox(345,70){所 属 の 印}}
		\細線	\put(2255,630){\line(1,0){345}}
		\細線	\put(2255,280){\line(1,0){345}}
		\put(2255,210){\makebox(345,70){出 勤 簿 整 理}}
		\細線	\put(2255,210){\line(1,0){345}}
		\細線	\put(1565,350){\line(1,0){690}}
		\put(1565,280){\makebox(130,70){科目}}
		\細線	\put(1565,280){\line(1,0){690}}
		\細線	\put(1875,280){\line(0,1){70}}
		\put(1565,210){\makebox(130,70){詳細}}
		\細線	\put(1565,210){\line(1,0){690}}
		\細線	\put(1695,210){\line(0,1){140}}
%		\put(1870,210){\makebox(130,70){詳細}}
%		\細線	\put(2000,210){\line(0,1){140}}
		\put(1565,140){\makebox(690,70){本学以外からの旅費支給の有無}}
		\細線	\put(1565,140){\line(1,0){690}}
		\put(1565,65){\makebox(690,70)[l]{　□ 無}}
		\put(1565,5){\makebox(690,70)[l]{　□ 有　（ □交通費　□宿泊費　□日当 ）}}
		\put(1565,77){\makebox(690,70)[l]{　\@支給無}}
		\put(1565,17){\makebox(690,70)[l]{　\@支給有}}
		\put(1565,17){\makebox(690,70)[l]{　　 　　　 \@支給交通費}}
		\put(1565,17){\makebox(690,70)[l]{　　 　　　 　　　　　\@支給宿泊費}}
		\put(1565,17){\makebox(690,70)[l]{　　  　　　 　　　　　　　　　　\@支給日当}}
%
		\細線	\put(0,0){\line(1,0){2604}}
		\put(0,-42){\makebox(0,40)[l]{\small 業務科目　　組織別区分（講座等名　　　　　　　　　　　　）}}
		\put(0,-84){\makebox(0,40)[l]{\small 　　　　　　　　　□講座等経費　□業務指定経費　□受託研究経費}}
		\put(1500,-84){\makebox(0,40)[l]{\small 予算科目（　　　　　　　　　　　　　　　）}}
		\put(0,-126){\makebox(0,40)[l]{\small 　　　　　　　　　□受託事業経費　□寄附金（委任経理金）　□科学研究費　□その他経費（　　　　　　　　　）}}
%		\put(1500,-126){\makebox(0,40)[l]{\small 　　　　　　　　□その他収入（　　　　　　　）}}
		\put(0,-168){\makebox(0,40)[l]{\small 予算詳細　　　　　□教育経費　□研究経費　□一般管理費}}
	\太線	\put(-2,   -170){\line(1,0){2604}}
	%縦線
	\太線	\put(   0,-172){\line(0,1){1804}}
	\太線	\put(2600,-172){\line(0,1){1804}}
	%
	\small
	\細線
	\def\日程{
		\@ifnextchar[{\protect\@日程}{\protect\@日程[1]}
	}
	\def\@日程[##1]##2##3##4##5##6##7{
		\global\advance\c@日程数 ##1\relax
		\@tempdimb=\z@
		\setbox\@tempboxa=\hbox{\em\shortstack[r]{##2}} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##3} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##4} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##5} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##6} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##7} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
%		\typeout{height+depth=\the\@tempdimb}
		\global\advance\@高 \@tempdimb\relax
	}
	\global\c@日程数=0\relax \global\@高=\z@\relax
	\@旅行日程
%	\typeout{height=\the\@高}
	\@余=630\unitlength
	\ifnum\c@日程数<8
		\@tempcnta=8\relax \advance\@tempcnta - \c@日程数\relax
		\setbox\@tempboxa=\hbox{標準文字} \@tempdimb=\ht\@tempboxa \advance\@tempdimb \dp\@tempboxa
		\multiply\@tempdimb \@tempcnta
		\global\advance\@高 \@tempdimb\relax
		\advance\@余 -\@高\relax\divide\@余 8\relax
	\else
		\advance\@余 -\@高\relax\divide\@余 \c@日程数\relax
	\fi
%	\typeout{margin=\the\@余}
	\global\@高=630\unitlength\relax
	\ifnum \c@日程数 > 8 \global\divide\@高 \c@日程数\relax
	\else \global\divide\@高 8\relax \fi
	\global\@縦=630\unitlength\relax
	\global\c@日程数=0\relax
	\def\@日程[##1]##2##3##4##5##6##7{
		\global\advance\c@日程数 ##1\relax
		\@tempdimb=\z@
		\setbox\@tempboxa=\hbox{\em\shortstack[r]{##2}} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##3} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##4} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##5} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##6} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##7} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\@tempdima=\@余\relax \multiply\@tempdima ##1\relax
		\advance\@tempdimb \@tempdima\relax
		\global\advance\@縦 -\@tempdimb\relax
		\@tempdima=\@縦\relax\divide\@tempdima \unitlength\relax\@tempcnta=\@tempdima\relax
		\divide\@tempdimb \unitlength\relax\@tempcntb=\@tempdimb\relax
		\put(120,\@tempcnta){\makebox(180,\@tempcntb){\em\shortstack[r]{##2}}}
		\put(300,\@tempcnta){\makebox(180,\@tempcntb){##3}}
		\put(480,\@tempcnta){\makebox(180,\@tempcntb){##4}}
		\put(660,\@tempcnta){\makebox(180,\@tempcntb){##5}}
		\put(840,\@tempcnta){\makebox(180,\@tempcntb){##6}}
		\put(1020,\@tempcnta){\makebox(545,\@tempcntb){##7}}
		\ifdim \@縦 > 0\unitlength \put(120,\@tempcnta){\line(1,0){1445}}	\fi
	}
	\@旅行日程
	 \@whilenum \c@日程数 < 8 \do {
		\setbox\@tempboxa=\hbox{標準文字} \@tempdimb=\ht\@tempboxa \advance\@tempdimb \dp\@tempboxa
		\advance\@tempdimb \@余\relax
		\global\advance\@縦 -\@tempdimb\relax
		\@tempdima=\@縦\relax\divide\@tempdima \unitlength\relax\@tempcnta=\@tempdima\relax
		\divide\@tempdimb \unitlength\relax\@tempcntb=\@tempdimb\relax
		\put(120,\@tempcnta){\line(1,0){1445}}
		\global\advance\c@日程数 1\relax
	}
	\end{picture}
%
%出張報告書
%
	\newpage\noindent
	\begin{picture}(1700,2460)(40,-140)
	\細線
	%横線
		\put(0,2500){\line(1,0){1458}}
		\put(0,2400){\line(1,0){1458}}
		\put(0,2210){\line(1,0){1458}}
	%縦線
		\put(0,2210){\line(0,1){290}}
		\put(0,2400){\makebox(243,100){事 務 長}}
		\put(243,2210){\line(0,1){290}}
		\put(243,2400){\makebox(243,100){\shortstack{事務長補佐\\総務係長}}}
		\put(486,2210){\line(0,1){290}}
		\put(486,2400){\makebox(243,100){管理係長}}
		\put(729,2210){\line(0,1){290}}
		\put(729,2400){\makebox(243,100){学務係長}}
		\put(972,2210){\line(0,1){290}}
		\put(972,2400){\makebox(243,100){主　　任}}
		\put(1215,2210){\line(0,1){290}}
		\put(1215,2400){\makebox(243,100){係　　員}}
		\put(1458,2210){\line(0,1){290}}
	%横線
		\put(0,2140){\line(1,0){1700}}
		\put(0,2050){\makebox(1700,0)[c]{\Large{出　　張　　報　　告　　書}}}
		\put(1000,1920){\makebox(700,0)[c]{\@年号\ 　 　 年　 　 月　  　 日}}
		\put(0,1860){\makebox(700,0)[c]{\shortstack[l]{研　究　部　長\\工　学　部　長}　殿}}
		\put(880,1730){\makebox(700,0)[l]{所　属　\@旅行者所属II}}
		\put(880,1660){\makebox(700,0)[l]{職氏名　\@旅行者職名II 　\@旅行者氏名}}
		\put(1530,1660){\makebox(0,0)[c]{\small 印}}
		\put(0,1580){\line(1,0){1700}}
		\put(0,1080){\line(1,0){1700}}
		\put(0,930){\line(1,0){1700}}
		\put(0,390){\line(1,0){1700}}
	%
		\put(0,1080){\makebox(240,500){\shortstack{出張期間\\\rule{0mm}{2mm}\\及　び\\\rule{0mm}{2mm}\\出 張 先}}}
		\put(240,1480){\line(1,0){1460}}
		\put(240,1480){\makebox(930,100){出　張　期　間}}
		\put(1170,1480){\makebox(530,100){出　張　先（所在地）}}
		\put(0,930){\makebox(240,150){出張用務}}
		\put(300,930){\makebox(1340,150)[l]{\bf\begin{minipage}{134mm}\def\\{}\@用務\end{minipage}}}
		\put(0,390){\makebox(240,540){\shortstack{報 告\\\rule{0mm}{5mm}の\\\rule{0mm}{5mm}\\概 要}}}
		\put(300, 440){\makebox(1340,440)[tl]{\begin{minipage}{134mm}\@用務概要\end{minipage}}}
		\put(0,250){\makebox(240,190){\shortstack{備 　 考}}}
		\put(0,250){\line(1,0){1700}}
	%縦線
		\put(0,250){\line(0,1){1890}}
		\put(240,250){\line(0,1){1330}}
		\put(1170,1080){\line(0,1){500}}
		\put(1700,250){\line(0,1){1890}}
	%
	\def\日程{
		\@ifnextchar[{\protect\@日程}{\protect\@日程[1]}
	}
	\global\c@日程数=0\relax
	\def\@日程[##1]##2##3{
		\global\advance\c@日程数 ##1\relax
		\@tempdimb=\z@
		\setbox\@tempboxa=\hbox{\shortstack[r]{##2}} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##3} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
%		\typeout{height+depth=\the\@tempdimb}
		\global\advance\@高 \@tempdimb\relax
	}
	\global\c@日程数=0\relax \global\@高=\z@\relax
	\@出張日程
%	\typeout{height=\the\@高}
	\@余=400\unitlength
	\ifnum\c@日程数<4
		\@tempcnta=4\relax \advance\@tempcnta - \c@日程数\relax
		\setbox\@tempboxa=\hbox{標準文字} \@tempdimb=\ht\@tempboxa \advance\@tempdimb \dp\@tempboxa
		\multiply\@tempdimb \@tempcnta
		\global\advance\@高 \@tempdimb\relax
		\advance\@余 -\@高\relax\divide\@余 4\relax
	\else
		\advance\@余 -\@高\relax\divide\@余 \c@日程数\relax
	\fi
%	\typeout{margin=\the\@余}
	\global\@高=400\unitlength\relax
	\ifnum \c@日程数 > 4 \global\divide\@高 \c@日程数\relax
	\else \global\divide\@高 4\relax \fi
	\global\@縦=400\unitlength\relax
	\global\c@日程数=0\relax
	\def\@日程[##1]##2##3{
		\global\advance\c@日程数 ##1\relax
		\@tempdimb=\z@
		\setbox\@tempboxa=\hbox{\shortstack[r]{##2}} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##3} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\@tempdima=\@余\relax \multiply\@tempdima ##1\relax
		\advance\@tempdimb \@tempdima\relax
		\global\advance\@縦 -\@tempdimb\relax
		\@tempdima=\@縦\relax\divide\@tempdima \unitlength\relax\@tempcnta=\@tempdima\relax
		\advance\@tempcnta1080
		\divide\@tempdimb \unitlength\relax\@tempcntb=\@tempdimb\relax
		\put(240,\@tempcnta){\makebox(930,\@tempcntb){\shortstack[r]{##2}}}
		\put(1170,\@tempcnta){\makebox(530,\@tempcntb){##3}}
		\ifdim \@縦 > 0\unitlength \put(240,\@tempcnta){\line(1,0){1460}}	\fi
	}
	\@出張日程
	\@whilenum \c@日程数 < 4 \do {
		\setbox\@tempboxa=\hbox{標準文字} \@tempdimb=\ht\@tempboxa \advance\@tempdimb \dp\@tempboxa
		\advance\@tempdimb \@余\relax
		\global\advance\@縦 -\@tempdimb\relax
		\@tempdima=\@縦\relax\divide\@tempdima \unitlength\relax\@tempcnta=\@tempdima\relax
		\advance\@tempcnta1080
		\divide\@tempdimb \unitlength\relax\@tempcntb=\@tempdimb\relax
		\put(240,\@tempcnta){\line(1,0){1460}}
		\global\advance\c@日程数 1\relax
	}
	\put(0,160){\makebox(1700,40)[l]{\footnotesize (作成要領)}}
	\put(0,120){\makebox(1700,40)[l]{\footnotesize 1. この様式は、帰任後速やかに、旅行命令（依頼）権者に提出すること。なお、出張内容等が同じ場合には連名で作成してもよいものとする。}}
	\put(0,80){\makebox(1700,40)[l]{\footnotesize 2. 「出張期間及び出張先」欄及び「出張用務」欄は、旅行命令・依頼簿に記載した内容を記載すること。}}
	\put(0,40){\makebox(1700,40)[l]{\footnotesize 3. 「報告の概要」欄には「○○に参加」だけでなく、出張の内容を簡潔にまとめ記載すること。}}
	\put(0,0){\makebox(1700,40)[l]{\footnotesize 　なお、出張期間中の用務先はすべて記載すること。}}
	\end{picture}
}

\newenvironment{旅行命令書}{
\begin{旅行}{命令}
}{
\end{旅行}
}

\newenvironment{旅行依頼書}{
\begin{旅行}{依頼}
}{
\end{旅行}
}


\def\研修日#1#2#3年#4月#5日{
 \def\@研修日号{#1#2}
 \def\@研修日年{#3}
 \def\@研修日月{#4}
 \def\@研修日日{#5}
}

\newenvironment{研修承認願}{
	\newpage\noindent
	\unitlength.1mm
	\def\太線{\linethickness{.3mm}}
	\def\細線{\linethickness{.1mm}}
	\begin{picture}(1660,2430)(0,0)
	\def\研修内容##1{\def\@研修内容{##1}}
	\def\研修期間##1##2##3{\def\@研修期間始{##1}\def\@研修期間終{##2}\def\@研修期間数{##3}}
	\def\研修場所##1{\def\@研修場所{##1}}
	\def\研修日程##1{\def\@研修日程{##1}}%
	\研修日程{}
}{
	%横線
	\太線	\put(0,2530){\line(1,0){1660}}
	\細線		\put(1240,1940){\line(1,0){420}}
	\細線	\put(0,1770){\line(1,0){1660}}
	\細線	\put(0,1550){\line(1,0){1660}}
		\細線	\put(100,1470){\line(1,0){1560}}
	\細線	\put(0, 750){\line(1,0){1660}}
	\細線	\put(0, 550){\line(1,0){1660}}
	\細線	\put(100,450){\line(1,0){1560}}
	\細線	\put(0, 250){\line(1,0){1660}}
	\太線	\put(0,   0){\line(1,0){1660}}
	%縦線
	\太線	\put(   0,   0){\line(0,1){2530}}
	\細線	\put(1240,1770){\line(0,1){170}}
	\細線	\put(1470,1770){\line(0,1){170}}
	\細線	\put( 410, 1550){\line(0,1){220}}
		\細線	\put(100, 750){\line(0,1){800}}
		\細線	\put(300, 750){\line(0,1){800}}
		\細線	\put(550, 750){\line(0,1){800}}
		\細線	\put(800, 750){\line(0,1){800}}
		\細線	\put(1050, 750){\line(0,1){800}}
	\細線	\put( 100, 250){\line(0,1){300}}
	\細線	\put( 420, 250){\line(0,1){300}}
	\細線	\put( 740, 250){\line(0,1){300}}
	\細線	\put(1060, 250){\line(0,1){300}}
	\細線	\put(1380, 250){\line(0,1){300}}
	\太線	\put(1660,   0){\line(0,1){2530}}
	%
	\put(0,2530){\makebox(1660,140){\Large 教　員　の　研　修　承　認　願}}
	%
	\put(1030,2400){\makebox(630,0){\large　\@年号 　　 年 　　 月 　　 日}}
	\put(0,2350){\makebox(300,0){\large 国立大学法人}}
	\put(0,2300){\makebox(650,0){\large 徳　島　大　学　長　殿}}
	\put(1000,2200){\makebox(0,0)[r]{願出教員の所属}}
	\put(1050,2200){\makebox(0,0)[l]{\bfseries\@旅行者所属I\ \@旅行者所属II}}
	\put(1000,2150){\makebox(0,0)[r]{職名}}
	\put(1050,2150){\makebox(0,0)[l]{\bfseries\@旅行者職名II}}
	\put(1000,2090){\makebox(0,0)[r]{氏名}}
	\put(1050,2090){\makebox(0,0)[l]{\bfseries\@旅行者氏名}}
	\put(1550,2090){\makebox(0,0){\footnotesize 印}}
	\put(0,1990){\makebox(1570,0){\shortstack[l]{　下記のとおり勤務場所を離れて研修したいので、国立大学法人徳島大学教員の採用、\\懲戒等の特例に関する規則第９条第３項により承認の届出をします。}}}
	\put(0,1860){\makebox(1660,0){記}}
	%
	\put(1240,1770){\makebox(230,170){\shortstack{所属の長\\\\の認　印}}}
	%
	\put(0,1550){\makebox(410,220){\large 研 修 内 容}}
	\put(480,1550){\makebox(1100,220)[l]{\large \begin{minipage}{110mm}\def\\{}\@研修内容\end{minipage}}}
	%
		\put(0,750){\makebox(100,800){\shortstack{研\\\rule{0mm}{7mm}\\修\\\rule{0mm}{7mm}\\日\\\rule{0mm}{7mm}\\程}}}
		\put(100,1470){\makebox(200,80){年月日}}
		\put(300,1470){\makebox(250,80){出発地}}
		\put(550,1470){\makebox(250,80){到着地}}
		\put(800,1470){\makebox(250,80){宿泊地}}
		\put(1050,1470){\makebox(610,80){研 　　 修 　　 先}}
%	\put(0,1125){\makebox(410,225){\large 2. 研 修 期 間}}
%	\expandafter\研修日\@研修期間始
%	\put(520,1290){\makebox(0,0){\large\@研修日号}}
%	\put(570,1290){\makebox(50,0)[r]{\large\em\@研修日年}}
%	\put(660,1290){\makebox(0,0){\large 年}}
%	\put(700,1290){\makebox(50,0)[r]{\large\em\@研修日月}}
%	\put(790,1290){\makebox(0,0){\large 月}}
%	\put(830,1290){\makebox(50,0)[r]{\large\em\@研修日日}}
%	\put(980,1290){\makebox(0,0){\large 日　から}}
%	\put(1300,1240){\makebox(0,0)[r]{\large{\em \@研修期間数} 日間}}
%	\expandafter\研修日\@研修期間終
%	\put(520,1190){\makebox(0,0){\large\@研修日号}}
%	\put(570,1190){\makebox(50,0)[r]{\large\em\@研修日年}}
%	\put(660,1190){\makebox(0,0){\large 年}}
%	\put(700,1190){\makebox(50,0)[r]{\large\em\@研修日月}}
%	\put(790,1190){\makebox(0,0){\large 月}}
%	\put(830,1190){\makebox(50,0)[r]{\large\em\@研修日日}}
%	\put(980,1190){\makebox(0,0){\large 日　まで}}
%	\put(0, 900){\makebox(410,225){\large 3. 研 修 場 所}}
%	\put(410,900){\makebox(1250,225){\large \shortstack[l]{\@研修場所}}}
	%
	\put(0, 650){\makebox(700,100){\large　\@年号 　　 年 　　 月 　　 日}}
	\put(0,620){\makebox(1570,0)[l]{　上記の願出については、研修として承認する。}}
	%
	\put(0, 250){\makebox(100,300){\large \shortstack{決\\\\裁\\\\欄}}}
	\put(260, 450){\makebox(0,100){\large 研究部長}}
	\put(580, 450){\makebox(0,100){\large 事務長}}
	\put(900, 450){\makebox(0,100){\large \shortstack{事務長補佐\\総務係長}}}
	\put(1220, 450){\makebox(0,100){\large 係}}
	\put(1520, 450){\makebox(0,100){\large 出勤簿}}
	%
	\put(20, 170){\makebox(0,50)[l]{\large 備　考　{\bfseries 注) 学会等に参加される場合には，その日程表等参考資料を添付願います。}}}
	%
%	\small
	\細線
	\def\日程{
		\@ifnextchar[{\protect\@日程}{\protect\@日程[1]}
	}
	\def\@日程[##1]##2##3##4##5##6{
		\global\advance\c@日程数 ##1\relax
		\@tempdimb=\z@
		\setbox\@tempboxa=\hbox{\em\shortstack[r]{##2}} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##3} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##4} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##5} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##6} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
%		\typeout{height+depth=\the\@tempdimb}
		\global\advance\@高 \@tempdimb\relax
	}
	\global\c@日程数=0\relax \global\@高=\z@\relax
	\@研修日程
%	\typeout{height=\the\@高}
	\@余=730\unitlength
	\ifnum\c@日程数<8
		\@tempcnta=8\relax \advance\@tempcnta - \c@日程数\relax
		\setbox\@tempboxa=\hbox{標準文字} \@tempdimb=\ht\@tempboxa \advance\@tempdimb \dp\@tempboxa
		\multiply\@tempdimb \@tempcnta
		\global\advance\@高 \@tempdimb\relax
		\advance\@余 -\@高\relax\divide\@余 8\relax
	\else
		\advance\@余 -\@高\relax\divide\@余 \c@日程数\relax
	\fi
%	\typeout{margin=\the\@余}
	\global\@高=730\unitlength\relax
	\ifnum \c@日程数 > 8 \global\divide\@高 \c@日程数\relax
	\else \global\divide\@高 8\relax \fi
	\global\@縦=730\unitlength\relax
	\global\c@日程数=0\relax
	\def\@日程[##1]##2##3##4##5##6{
		\global\advance\c@日程数 ##1\relax
		\@tempdimb=\z@
		\setbox\@tempboxa=\hbox{\em\shortstack[r]{##2}} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##3} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##4} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##5} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\setbox\@tempboxa=\hbox{##6} \@tempdima=\ht\@tempboxa \advance\@tempdima \dp\@tempboxa \ifdim\@tempdimb < \@tempdima \@tempdimb=\@tempdima\fi
		\@tempdima=\@余\relax \multiply\@tempdima ##1\relax
		\advance\@tempdimb \@tempdima\relax
		\global\advance\@縦 -\@tempdimb\relax
		\@tempdima=\@縦\relax\divide\@tempdima \unitlength\relax\@tempcnta=\@tempdima\relax
		\divide\@tempdimb \unitlength\relax\@tempcntb=\@tempdimb\relax
		\advance\@tempcnta750\relax
		\put(100,\@tempcnta){\makebox(200,\@tempcntb){\em\shortstack[r]{##2}}}
		\put(300,\@tempcnta){\makebox(250,\@tempcntb){##3}}
		\put(550,\@tempcnta){\makebox(250,\@tempcntb){##4}}
		\put(800,\@tempcnta){\makebox(250,\@tempcntb){##5}}
		\put(1050,\@tempcnta){\makebox(610,\@tempcntb){##6}}
		\ifdim \@縦 > 0\unitlength \put(100,\@tempcnta){\line(1,0){1560}}	\fi
	}
	\@研修日程
	 \@whilenum \c@日程数 < 8 \do {
		\setbox\@tempboxa=\hbox{標準文字} \@tempdimb=\ht\@tempboxa \advance\@tempdimb \dp\@tempboxa
		\advance\@tempdimb \@余\relax
		\global\advance\@縦 -\@tempdimb\relax
		\@tempdima=\@縦\relax\divide\@tempdima \unitlength\relax\@tempcnta=\@tempdima\relax
		\divide\@tempdimb \unitlength\relax\@tempcntb=\@tempdimb\relax
		\advance\@tempcnta750\relax
		\put(100,\@tempcnta){\line(1,0){1560}}
		\global\advance\c@日程数 1\relax
	}
	\end{picture}
}

\mark{{}{}} 

\if@twoside
 \def\ps@headings{%
  \def\@oddfoot{}%
  \def\@evenfoot{}%
  \def\@evenhead{\rm \thepage\hfil \sl \leftmark}%
  \def\@oddhead{\hbox{}\sl \rightmark \hfil \rm\thepage}%
  \def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth >\z@ \thesection\hskip 1em\relax \fi ##1}}{}}%
  \def\subsectionmark##1{\markright{\ifnum \c@secnumdepth >\@ne \thesubsection\hskip 1em\relax \fi ##1}}%
 }
\else
 \def\ps@headings{%
  \def\@oddfoot{}%
  \def\@evenfoot{}%
  \def\@oddhead{\hbox{}\sl \rightmark \hfil \rm\thepage}%
  \def\sectionmark##1{\markright{\uppercase{\ifnum \c@secnumdepth >\z@ \thesection\hskip 1em\relax \fi ##1}}}%
 }
\fi
\def\ps@myheadings{%
 \def\@oddhead{\hbox{}\sl\rightmark \hfil \rm\thepage}%
 \def\@oddfoot{}%
 \def\@evenhead{\rm \thepage\hfil\sl\leftmark\hbox{}}%
 \def\@evenfoot{}\def\sectionmark##1{}%
 \def\subsectionmark##1{}%
}


\newif\if西暦
\let\if西暦=\iffalse
\def\西暦{\let\if西暦=\iftrue}
\def\today{{\if西暦\count0=\year\else%
\count0=\year\advance\count0 -1988 平成\,\fi%
\ifnum\count0=1 元\else\number\count0\fi\,年\hspace{.5em}\nobreak%
\number\month\,月\hspace{.5em}\nobreak\number\day\,日}}

\ps@plain
\pagenumbering{arabic}
\onecolumn
\if@twoside\else\raggedbottom\fi 

\pagestyle{empty}
\normalsize


