iwase/kojo3 ¤ÎÍúÎò(No.2)

• ÍúÎò°ìÍ÷
• º¹Ê¬ ¤òɽ¼¨
• ¸½ºß¤È¤Îº¹Ê¬ ¤òɽ¼¨
• ¥½¡¼¥¹ ¤òɽ¼¨
• iwase/kojo3 ¤Ø¹Ô¤¯¡£
  • 1 (2020-04-22 (¿å) 08:50:22)
  • 2 (2020-11-14 (ÅÚ) 09:36:22)
  • 3 (2022-11-11 (¶â) 13:19:45)

ºòǯ¤«¤é¹ñÀÇÄ£¤Î»ÅÍͤ¬ÂçÉý¤ËÊѹ¹¤Ë¤Ê¤Ã¤¿¤Î¤Ç¡¢´ðÁÃÇÛ¶ö¼ÔÄ´À°¹µ½ü¿½¹ð½ñ¤òºî¤ë¥Þ¥¯¥í¤ËÊѹ¹¤¬É¬ÍפǤ¢¤Ã¤¿¡£

¤ª¤½¤é¤¯¡¢uplatex ¤ÇÆ°¤«¤¹¤Î¤Ï̵Íý¤À¤È»×¤¦¡£

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%											%
%	´ðÁÃÇÛ¶ö¼ÔÄ´À°¹µ½ü¿½¹ð½ñ	Norio Iwase	% 
%											%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%!TEX TS-program = XeLaTeX
%!TEX encoding = UTF-8 Unicode
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input haigusha-20.inc
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ÎáÏÂ{2}ǯʬÇÛ¶ö¼ÔÆÃÊ̹µ½üÅù¿½¹ð½ñ	%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  ¸¦µæµ¡´Ø¤Î£É£Ä				%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\ÀÇ̳½ê³í¡§{À¾Ê¡²¬}ÀÇ̳½ðĹ{Ê¡²¬»ÔÀ¾¶è}»Ô¶èĮ¼Ĺ
\½ê°µ¡´Ø¡§{¹ñΩÂç³ØË¡¿Í¡¡¶å½£Âç³Ø}ÈÖ¹æ{£³£²£¹£°£°£°£µ£°£°£³£·£´£³}
\½êºßÃÏ¢©{819-0395}{Ê¡²¬»ÔÀ¾¶è¸µ²¬744ÈÖÃÏ}
\Éô¶É{²¿Ë¿¸¦µæ±¡}¡Ê{1200308000}¡Ë¡§{Ë¿ÉôÌç}	% ¿ôÍý¡©
\»ö̳¶É{Ë¿³ØÉôÅù}¡Ê{0 0 2 0 9}¡Ë	% Íý³Ø¤Î»ö̳¶É¡©
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  ËܿͤΣɣÄ					%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\ËÜ¿ÍÀ«{²¿}{¥Ê¥Ë}
\ËÜ¿ÍÀ«{Ë¿}{¥Ü¥¦}
\ËÜ¿Í̾{Ë¿}{¥Ü¥¦}
\ËÜ¿Í̾{Ë¿}{¥Ü¥¦}
\ËÜ¿ÍÈÖ¹æ{23442342}
\ÇÛ¶ö¼ÔÀ«{²¿}{¥Ê¥Ë}
\ÇÛ¶ö¼ÔÀ«{Ë¿}{¥Ü¥¦}
\ÇÛ¶ö¼Ô̾{²¿}{¥Ê¥Ë}
\ÇÛ¶ö¼Ô̾{²¿}{¥Ê¥Ë}
\ÇÛ¶ö¼Ô¤Ï¾¼ÏÂ{22}ǯ{2}·î{2}ÆüÀ¸¤Þ¤ì¤Î{³ÊÁ} % ÌÀ¼£¡¢ÂçÀµ¡¢¾¼Ï¡¢Ê¿À®¤ËÂбþ
\Ëܿͽ»½ê{Ê¡²¬»ÔÀ¾¶è¸µ²¬ 1-2-3}
\ÇÛ¶ö¼Ô½»½ê{Êƹñ¥¢¥È¥é¥ó¥¿½£} % Ʊµï¤Ç¤Ê¤¤¾ì¹ç
\³¤³°»ÅÁ÷¤ê{5000000}±ß % ¹ñÆâÈóµï½»¤Î¾ì¹ç¤ËÀ¸·×¤ò°ì¤Ë¤¹¤ë»ö¼Â
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  ÇÛ¶ö¼Ô¹µ½ü					%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\ËܿͼýÆþ{550000}±ß{0}±ß{0}±ß{0}±ß{0}±ß{0}±ß{0}±ß
\ÇÛ¶ö¼Ô¼ýÆþ{340000}±ß{0}±ß{0}±ß{0}±ß{0}±ß{0}±ß{0}±ß
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\¤³¤ì¤Ç½ª¤ê½ñ¤­½Ð¤·			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

¥¤¥ó¥¯¥ë¡¼¥É¥Õ¥¡¥¤¥ë haigusha-20.inc ¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¢¤ë¡£ ¤Þ¤¿¡¢¶ÑÅù³ä¤êÉÕ¤±¤Î¥Þ¥¯¥í fitwidth.sty ¤Ï http://www.math.nagoya-u.ac.jp/~kubo/ja/latex/tips-003.html ¤«¤é¼è¤Ã¤ÆÍ褿¡£

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%											%
%  ÇÛ¶ö¼Ô¹µ½ü¿½¹ð½ñ Form by Norio Iwase	%
%											%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifx\undefined\XeTeXversion
 \documentclass[12pt,a4j]{jarticle}
 \usepackage[dvipdfmx]{graphicx}
 \usepackage[deluxe]{otf}
\else
 \documentclass[12pt,a4paper]{article}
 \usepackage[xetex]{graphicx}
 \usepackage[no-math]{fontspec}
 \usepackage[boldfont,slantfont]{xeCJK}
 \usepackage{zxjatype}
 \usepackage{zxotf}
 \usepackage{xunicode}\usepackage{xltxtra}
 \CJKspace
%
 \defaultfontfeatures{Mapping=tex-text}
 \setromanfont{Times}\setsansfont{Papyrus}\setmonofont{Arial}
 \setjamainfont[Scale=0.95]{HGSeikaishotaiPRO}
 \setjasansfont[Scale=0.9]{IPAexMincho}
 \setjamonofont[Scale=0.9]{Osaka-Mono}
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	¶¦ÄÌÀßÄê						%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\voffset}		{  38.5mm}
\setlength{\hoffset}		{ -12.0mm}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\usepackage{amssymb}
\usepackage{ifthen,numbersty}
\usepackage{lscape}
\usepackage{curves}
\usepackage{fitwidth}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  ¥Þ¥¯¥í							%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\makeatletter
\newcount\yowai \yowai=\year
\def\À¸¤Þ¤ì¤ÏÌÀ¼£#1ǯ#2·î#3Æü{%
\advance\yowai-1867\advance\yowai by -#1}
\def\À¸¤Þ¤ì¤ÏÂçÀµ#1ǯ#2·î#3Æü{%
\advance\yowai-1911\advance\yowai by -#1}
\def\À¸¤Þ¤ì¤Ï¾¼ÏÂ#1ǯ#2·î#3Æü{%
\advance\yowai-1925\advance\yowai by -#1}
\def\À¸¤Þ¤ì¤ÏÊ¿À®#1ǯ#2·î#3Æü{%
\advance\yowai -1988\advance\yowai by -#1}
\makeatother
%
\def\ÀÇ̳½ê³í¡§#1ÀÇ̳½ðĹ#2»Ô¶èĮ¼Ĺ{%
 \put(1.0,359.5){\makebox(35,0)[bc]{\Large #1}}}
\def\½ê°µ¡´Ø¡§#1ÈÖ¹æ#2{%
\put(118.5,376.0){\makebox(90,0)[bc]{\large #1}}%
\put(118.5,361.5){\makebox(90,0)[bc]{\fitwidth{14.4em}{#2}}}}
\def\½êºßÃÏ¢©#1#2{\gdef\kikanzip{#1}%
\put(100.8,347.8){\makebox(90,7)[cl]{%{¢©#1} 
#2}}}
\def\µ¡´ØÂåɽ¡§#1»á̾#2{\gdef\kikanchou{#1}\gdef\souchou{#2}}
\def\Éô¶É#1¡Ê#2¡Ë¡§#3{\gdef\bukyoku{#1}\gdef\bukyokucode{#2}\gdef\bumon{#3}}
\def\»ö̳¶É#1¡Ê#2¡Ë{\gdef\jimu{#1}\gdef\jimucode{#2}}
%
\def\Ëܿͽê°¡§#1¿¦#2{\gdef\shozoku{#1}\gdef\shoku{#2}}
\def\ÅÅÏÃ#1{\gdef\denwa{#1}}
\def\ÅÅ»Ò͹ÊØ#1{\gdef\denshimail{#1}}
\def\¥Õ¥¡¥Ã¥¯¥¹#1{\gdef\fax{#1}}
\def\Ëܿͽ»½ê#1{
 \put(276.0,348.0)	{\makebox(140,7)[cl]{#1}}
}
\def\ÇÛ¶ö¼Ô½»½ê#1{
 \put(331.0,262.0)	{\makebox(140,7)[cl]{#1}}
}
\def\³¤³°»ÅÁ÷¤ê#1±ß{
 \def\Gaikoku{#1}
}
\newcount\HUmare \HUmare=448
\newcount\HUmareh \HUmareh=282
\def\ÇÛ¶ö¼Ô¤Ï¾¼ÏÂ#1ǯ#2·î#3ÆüÀ¸¤Þ¤ì¤Î#4{
 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
 \À¸¤Þ¤ì¤Ï¾¼ÏÂ{#1}ǯ{#2}·î{#3}Æü
}
\def\ÇÛ¶ö¼Ô¤ÏÊ¿À®#1ǯ#2·î#3ÆüÀ¸¤Þ¤ì¤Î#4{
 \advance\HUmare 7
 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
 \À¸¤Þ¤ì¤ÏÊ¿À®{#1}ǯ{#2}·î{#3}Æü
}
\def\ÇÛ¶ö¼Ô¤ÏÌÀ¼£#1ǯ#2·î#3ÆüÀ¸¤Þ¤ì¤Î#4{
 \advance\HUmareh 5
 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
 \À¸¤Þ¤ì¤ÏÌÀ¼£{#1}ǯ{#2}·î{#3}Æü
}
\def\ÇÛ¶ö¼Ô¤ÏÂçÀµ#1ǯ#2·î#3ÆüÀ¸¤Þ¤ì¤Î#4{
 \advance\HUmare 7
 \advance\HUmareh 5
 \def\HYear{#1}\def\HMonth{#2}\def\HDay{#3}\gdef\htuduki{#4}
 \À¸¤Þ¤ì¤ÏÂçÀµ{#1}ǯ{#2}·î{#3}Æü
}
%
\newcount\Line
\newcount\Col
\newcount\Kisokojo
%
\newcount{\kyuyo}\kyuyo=0
\newcount{\shotoku}\shotoku=0
\newcount{\hkyuyo}\hkyuyo=0
\newcount{\hshunyu}\hshunyu=0
\newcount{\hshotoku}\hshotoku=0
\def\ËܿͼýÆþ#1±ß#2±ß#3±ß#4±ß#5±ß#6±ß#7±ß{
\Line=150
\Col=11
\Kisokojo=480000
\gdef\kubunABC{}
\kyuyo=#1 
\ifnum\kyuyo<8500000 
 \ifnum\kyuyo<6600000
  \ifnum\kyuyo<3600000
   \ifnum\kyuyo<1800000
    \ifnum\kyuyo<1628000
     \ifnum\kyuyo<1624000
      \ifnum\kyuyo<1622000
       \ifnum\kyuyo<1620000
        \ifnum\kyuyo<1619000
         \ifnum\kyuyo<551000
          \kyuyo=0 \else \advance\kyuyo -550000 \fi
       \else \kyuyo=1069000 \fi
       \else \kyuyo=1070000 \fi
      \else \kyuyo=1072000 \fi
     \else \kyuyo=1074000 \fi
    \else
     \divide\kyuyo by 4000 \multiply\kyuyo by 2400
     \advance\kyuyo by 100000
    \fi
   \else
    \divide\kyuyo by 4000 \multiply\kyuyo by 2800
    \advance\kyuyo by -80000
   \fi
  \else
   \divide\kyuyo by 4000 \multiply\kyuyo by 3200
   \advance\kyuyo by -440000
  \fi
 \else
  \multiply\kyuyo by 9
  \divide\kyuyo by 10
  \advance\kyuyo by -1100000
 \fi
\else 
 \advance\kyuyo -1950000
\fi
\ifnum\kyuyo<0 \kyuyo=0\fi \shotoku=\kyuyo
\ifnum\shotoku>9000000
 \ifnum\shotoku>9500000
  \ifnum\shotoku>10000000
   \ifnum\shotoku>24000000
    \ifnum\shotoku>24500000
     \ifnum\shotoku>25000000
      \gdef\kubunZ{}\Kisokojo=0
     \else\gdef\kubunF{}\Kisokojo=160000\advance\Line by -48\fi
    \else\gdef\kubunE{}\Kisokojo=320000\advance\Line by -38\fi
   \else\gdef\kubunD{}\Kisokojo=480000\advance\Line by -29\fi
  \else\gdef\kubunC{}\gdef\kubunABC{C}\advance\Line by -20\fi
 \else\gdef\kubunB{}\gdef\kubunABC{B}\advance\Line by -11\fi
\else\gdef\kubunA{}\gdef\kubunABC{A}
\fi
%
\put(\number\Col.2,\number\Line.5)	{\makebox( 18,7)[cr]{ \small$\checkmark$}}
\put(164.0,135.5)	{\makebox( 18,7)[cc]{ \small \kubunABC}}
\put(176.0,101.5)	{\makebox( 18,7)[cr]{ \footnotesize \tt\milnumber\Kisokojo}}
%
\put(176.0,168.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\shotoku}}
%
\Line=284
\ifx0#1\else\advance\Line -85
\put(102.0,220.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
\put(176.0,220.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\kyuyo}}
\advance\Line 85\fi
\ifx0#2\else\advance\Line -96
\put(124.5,\number\Line.4)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#2}}
\advance\Line 96\fi
\ifx0#3\else\advance\Line -107
\put(124.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#3}}
\advance\Line 107\fi
\ifx0#4\else\advance\Line -119
\put(124.5,\number\Line.6)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#4}}
\advance\Line 119\fi
\ifx0#5\else\advance\Line -130
\put(124.5,\number\Line.2)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#5}}
\advance\Line 130\fi
\ifx0#6\else\advance\Line -143
\put(124.5,\number\Line.8)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#6}}
\advance\Line 143\fi
\ifx0#7\else\advance\Line -155
\put(124.5,\number\Line.4)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#7}}
\advance\Line 155\fi
}
\def\ÇÛ¶ö¼Ô¼ýÆþ#1±ß#2±ß#3±ß#4±ß#5±ß#6±ß#7±ß{
\gdef\kubunabcd{­¤}
\hkyuyo=#1 \advance \hkyuyo by -650000
\ifnum\hkyuyo<0 \hkyuyo=0\fi \hshotoku=\hkyuyo
\ifnum\hshotoku>480000
 \ifnum\hshotoku>950000
  \ifnum\hshotoku>1000000
   \ifnum\hshotoku>1050000
    \ifnum\hshotoku>1100000
     \ifnum\hshotoku>1150000
      \ifnum\hshotoku>1200000
       \ifnum\hshotoku>1250000
        \ifnum\hshotoku>1300000
         \ifnum\hshotoku>1330000
          \gdef\kubunz{}\gdef\kubunabcd{}
         \else\gdef\kubunj{}\fi
        \else\gdef\kubuni{}\fi
       \else\gdef\kubunh{}\fi
      \else\gdef\kubung{}\fi
     \else\gdef\kubunf{}\fi
    \else\gdef\kubune{}\fi
   \else\gdef\kubund{}\fi
  \else\gdef\kubunc{}\fi
 \else\gdef\kubunb{}\gdef\kubunabcd{­£}\fi
\else\ifnum\yowai<70\gdef\kubuna{}\gdef\kubunabcd{­¢}\else\gdef\kubuns{}\gdef\kubunabcd{­¡}\fi\fi
\def\hkojo{0}\def\htkojo{0}
\ifdefined\kubunA%
 \ifdefined\kubuns\def\hkojo{480000}\fi
 \ifdefined\kubuna\def\hkojo{380000}\fi
 \ifdefined\kubunb\def\htkojo{380000}\fi
 \ifdefined\kubunc\def\htkojo{360000}\fi
 \ifdefined\kubund\def\htkojo{310000}\fi
 \ifdefined\kubune\def\htkojo{260000}\fi
 \ifdefined\kubunf\def\htkojo{210000}\fi
 \ifdefined\kubung\def\htkojo{160000}\fi
 \ifdefined\kubunh\def\htkojo{110000}\fi
 \ifdefined\kubuni\def\htkojo{60000}\fi
 \ifdefined\kubunj\def\htkojo{30000}\fi
\fi
\ifdefined\kubunB%
 \ifdefined\kubuns\def\hkojo{320000}\fi
 \ifdefined\kubuna\def\hkojo{260000}\fi
 \ifdefined\kubunb\def\htkojo{260000}\fi
 \ifdefined\kubunc\def\htkojo{240000}\fi
 \ifdefined\kubund\def\htkojo{210000}\fi
 \ifdefined\kubune\def\htkojo{180000}\fi
 \ifdefined\kubunf\def\htkojo{140000}\fi
 \ifdefined\kubung\def\htkojo{110000}\fi
 \ifdefined\kubunh\def\htkojo{80000}\fi
 \ifdefined\kubuni\def\htkojo{40000}\fi
 \ifdefined\kubunj\def\htkojo{20000}\fi
\fi
\ifdefined\kubunC%
 \ifdefined\kubuns\def\hkojo{160000}\fi
 \ifdefined\kubuna\def\hkojo{130000}\fi
 \ifdefined\kubunb\def\htkojo{130000}\fi
 \ifdefined\kubunc\def\htkojo{120000}\fi
 \ifdefined\kubund\def\htkojo{110000}\fi
 \ifdefined\kubune\def\htkojo{90000}\fi
 \ifdefined\kubunf\def\htkojo{70000}\fi
 \ifdefined\kubung\def\htkojo{60000}\fi
 \ifdefined\kubunh\def\htkojo{40000}\fi
 \ifdefined\kubuni\def\htkojo{20000}\fi
 \ifdefined\kubunj\def\htkojo{10000}\fi
\fi
\put(318.0,220.0)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
\Line=243
\Col=427
\ifdefined\kubuns
\advance\Line -8
\put(\number\Col.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
 \advance\Line 8
\else\ifdefined\kubuna
\advance\Line -27
 \put(\number\Col.5,\number\Line.5)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
 \advance\Line 27
\else\ifdefined\kubunb
\advance\Line -44
 \put(\number\Col.5,\number\Line.0)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
 \advance\Line 44
\else\ifdefined\kubunz
\else
\advance\Line -61
 \put(\number\Col.5,\number\Line.0)	{\makebox( 20,7)[cr]{ \small$\checkmark$}}
 \advance\Line 61
\fi\fi\fi\fi
\put(475.0,168.5)	{\makebox( 20,7)[cr]{ \footnotesize\fontspec{HiraMinProN-W3} \kubunabcd}}
\put(523.0,135)	{\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\hkojo}}
\put(523.0,112)	{\makebox( 20,7)[cr]{ \footnotesize\tt\milnumber\htkojo}}
\advance\Line -64
%\put(367.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber#1}}
%\put(469.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hkyuyo}}
\advance\Line 64
\advance\Line -150
%\put(469.5,\number\Line)	{\makebox( 18,7)[cr]{ \footnotesize\tt\milnumber\hshotoku}}
\advance\Line 150
}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	ÆüïÀßÄê						%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\makeatletter
\makeatother
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	\À«¡¦\̾ ¥³¥Þ¥ó¥É				%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\newcommand{\rubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[2.5mm]{#1}}}}
\newcommand{\hrubi}[2]{\hbox{\shortstack{{\scriptsize #2}\\[1.8mm]{#1}}}}
\newcommand{\Sei}{}\newcommand{\Mei}{}
\newcommand{\sei}{}\newcommand{\mei}{}
\def\ËÜ¿ÍÀ«#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
  \ifthenelse{\equal{\Sei}{}}{}{\xdef\Sei{\Sei\protect{¡¡}}}%
  \xdef\Sei{\Sei\protect\rubi{#1}{#2}}%
  \ifthenelse{\equal{\sei}{}}{}{\xdef\sei{\sei\protect{}}}%
  \xdef\sei{\sei{\protect\bgroup\protect #1\protect\egroup}}%
  \endgroup}
\def\ËÜ¿Í̾#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
  \ifthenelse{\equal{\Mei}{}}{}{\xdef\Mei{\Mei\protect{¡¡}}}%
  \xdef\Mei{\Mei\protect\rubi{#1}{#2}}%
  \ifthenelse{\equal{\mei}{}}{}{\xdef\mei{\mei\protect{}}}%
  \xdef\mei{\mei{\protect\bgroup\protect #1\protect\egroup}}%
  \endgroup}
\def\ËÜ¿ÍÈÖ¹æ#1{\gdef\ID{#1}}
%
\newcommand{\HSei}{}\newcommand{\HMei}{}
\newcommand{\hsei}{}\newcommand{\hmei}{}
\def\ÇÛ¶ö¼ÔÀ«#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
  \ifthenelse{\equal{\HSei}{}}{}{\xdef\HSei{\HSei\protect{\ }}}%
  \xdef\HSei{\HSei\protect\hrubi{#1}{#2}}%
  \ifthenelse{\equal{\hsei}{}}{}{\xdef\hsei{\hsei\protect{}}}%
  \xdef\hsei{\hsei{\protect\bgroup\protect #1\protect\egroup}}%
  \endgroup}
\def\ÇÛ¶ö¼Ô̾#1#2{\begingroup\def\protect{\noexpand\protect\noexpand}%
  \ifthenelse{\equal{\HMei}{}}{}{\xdef\HMei{\HMei\protect{\ }}}%
  \xdef\HMei{\HMei\protect\hrubi{#1}{#2}}%
  \ifthenelse{\equal{\hmei}{}}{}{\xdef\hmei{\hmei\protect{}}}%
  \xdef\hmei{\hmei{\protect\bgroup\protect #1\protect\egroup}}%
  \endgroup}
\def\ÇÛ¶ö¼Ô¤Î³ÊÁ#1{\gdef\htuduki{#1}}
%
\def\ÎáÏÂ#1ǯʬÇÛ¶ö¼ÔÆÃÊ̹µ½üÅù¿½¹ð½ñ{%
\def\nendo{#1}\gdef\filename{1648_73_r0#1}
\pagestyle{empty}
%
\begin{document}
\begin{landscape}
\setlength{\textwidth}		{ 200.0mm}
\setlength{\textheight}		{ 280.0mm}
\setlength{\oddsidemargin}	{  -6.8mm}
\setlength{\unitlength}		{   0.475mm}
%\setlength\unitlength{0.5mm}
\begin{picture}(280,200)(-8,204)
%
\put(7.7,-4)	{\makebox(547,398){\includegraphics[page=1]{\filename}}}
%
}
%
\def\¤³¤ì¤Ç½ª¤ê½ñ¤­½Ð¤·{
\put(328.0,368.0)	{\makebox( 60,14)[cc]{\large \Sei {¡¡} \Mei}}
\put(244.0,264.0)	{\makebox( 60,14)[cc]{\HSei {\ \ } \HMei}}
\put(\number\HUmare.6,\number\HUmareh.7)	{\scaleput(5,5){\bigcircle{5}}}
\put(481.0,283.2)	{\makebox( 10,14)[cl]{ \small\HYear}}
\put(511.0,283.2)	{\makebox( 10,14)[cl]{ \small\HMonth}}
\put(536.0,283.2)	{\makebox( 10,14)[cl]{ \small\HDay}}
\ifnum\yowai<70\else
 %\put(240.8,227.2)	{\makebox( 10,14)[cl]{ $\bigcirc$}}
\fi
\ifdefined\Gaikoku
 \put(460.0,262.0)	{\makebox( 10,7)[cc]{ $\bigcirc$}}
 \put(540.0,262.0)	{\makebox( 10,7)[cr]{ \footnotesize \tt\milnumber\Gaikoku \,±ß}}
\fi
\put(276,379.0)		{\makebox(30,8)[lc]{\scriptsize \ID}}
\put(517,382.0)		{\makebox(30,8)[rc]{\scriptsize \jimucode}}
\ifx\jimu\empty
\put(-21,403){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}¡¦{\bukyoku}}}
\else
\put(-21,403){\makebox(30,8)[lc]{\tt\tiny {\bukyokucode}¡¦{\bukyoku}¡Ê{\jimu}¡Ë}}
\fi
\put(-20.8,398){\makebox(30,8)[lc]{\tt\tiny {\bukyoku}\ifx\bumon\empty\else{¡¦{\bumon}}\fi}}
%
%\put(244.0,257.8){\makebox(0,0)[cc]{\tiny ¾¼¡¦Ê¿}}
%\put(244.0,262.8){\makebox(0,0)[cc]{\tiny ÌÀ¡¦Âç}}
%
\Line=280
%
\ifx\undefined\ippan\else
\advance\Line -3
\advance\Line 3
\advance\Line -60
\advance\Line 60
\fi
%
\ifx\undefined\nippan\else
\advance\Line -3
\advance\Line 3
\advance\Line -60
\advance\Line 60
\fi
%
\ifx\undefined\kaigo\else
\advance\Line -70
\advance\Line 70
\fi
\advance\Line -95
%
\ifx\undefined\kojin\else
\advance\Line -11
\advance\Line 3
\advance\Line -3
\advance\Line -3
\advance\Line 3
\advance\Line -49
\advance\Line 49
\advance\Line 11
\fi
%
\ifx\undefined\nkojin\else
\advance\Line -11
\advance\Line 3
\advance\Line -3
\advance\Line -3
\advance\Line 3
\advance\Line -49
\advance\Line 49
\advance\Line 11
\fi
%
\advance\Line -101
%
\Line=76
%
\ifx\dishin\empty\else
\advance\Line -32
\advance\Line -9
\put(257.5,\number\Line.5){
    \renewcommand{\xscale}{1}
    \renewcommand{\xscaley}{-1}
    \renewcommand{\yscale}{0.7}
    \renewcommand{\yscalex}{0.7}
    }
\advance\Line 9
\advance\Line -20
\advance\Line 20
\advance\Line -39
\advance\Line 39
\advance\Line 32
\fi
%
\ifx\sumi\kuro
%\put(569.5, 2.5)	{\makebox(0,0){\rule{11mm}{11mm}}}
\fi
%
\end{picture}
\clearpage
%\addtolength{\voffset}		{ -4.8mm}
%\addtolength{\hoffset}		{ -3.8mm}
\begin{picture}(280,200)(-8,201)
\put(7.7,-4)	{\makebox(547,403){\includegraphics[page=2,angle=180,origin=c]{\filename}}}
\end{picture}
\end{landscape}
\end{document}
}