== Short ==
* M
35	^Z	"短縮入力"	?.
:T
kk=(ks&1)^(ks&2)>>1+fe*2, (kk==5)?kk--, (kk>5)?kk-=6,
(kk)>?{
{pp="R右揃 L左揃 C中揃 O上線 U下線 ]下付 [上付 T縦倍 Y横倍 Q四倍 H平字 K行間 Aサイズ", >M}
{pp="Z細字 N網掛 E袋字 S影字 W網字 I斜体 D重打 V組字 J均等 B太字 P改頁 F 1/4  G強調", >M}
{pp="big cit dis fra hsp int lab mul noi ove pro ref sum t~ u_ vsp w^ & ({[|xyz 1-0 \",
>M}
{pp="AαBβCχDδE(F)εGγ H(J)θIιKκLλMμNνOωPπ Q(V)φRρSσTτUυWψXξYηZζ",>M}
{pp="Continue Do Format Integer double Precision Return Subroutine Write", >M}
}.
:M &m("%s",pp)
:A	&k k=r, 
mm=(ks&1)^(ks&2)>>1+fe*2, (mm==5)?mm--, (mm>5)?mm-=6,
(mm!=kk)?>T (k<1)?>A &m("")
(k==$1B)?. (k<32)?. k-=32, (fe)>?{>83 >81 >82 >83}

; TeX 用コマンド登録エリア
81:
(k)>?{
{"".}	;[SPACE]
{"texsub " (s)?. (7){#s} #t #g #E #u #u #> '1' #m #[ .}	;!
{"texsub " (s)?. (7){#s} #t #g #E #u #u #> '!' #m #[ .}	;"
{"jdkajda".}	;#
{"dlkfjka".}	;$
.	;%
{"\\" &s #< (cd==' ')?#f?' ' :B	(ct<2)?{#s#s' '#>#d &d #].} #d (cd==' ')?{#d "& " #s#f} >B}	;&
.	;'
{"\left(" .}	;(
{"\right)" .}	;)
.	;*
.	;+
{"、，"(s)?. #h#h &a("、を，にします") (r<1)?. #56#u#m#u#m 'A''Y'.}	;,
{"\section{}" #s.}	;-
{"。．"(s)?. #h#h &a("。を．にします") (r<1)?. #56#u#m#u#m 'A''Y'.}	;.
.	;/
{"{\Huge }".}	;0
{"{\tiny }".}	;1
{"{\scriptsize }".}	;2
{"{\footnotesize }".}	;3
{"{\small }".}	;4
{"{\normalsize }".}	;5
{"{\large }".}	;6
{"{\Large }".}	;7
{"{\LARGE }".}	;8
{"{\huge }".}	;9
{"．。"(s)?. #h#h &a("．を。にします") (r<1)?. #56#u#m#u#m 'A''Y'.}	;:
{"，、"(s)?. #h#h &a("，を、にします") (r<1)?. #56#u#m#u#m 'A''Y'.}	;;
{"\longleftarrow ".}	;<
{"\subsection{}" #s.}	;=
{"\longrightarrow ".}	;>
.	;?
{"\partial ".}	;@
{"\alpha".}	;A
{"\beta".}	;B
{"\chi".}	;C
{"\delta".}	;D
{"\epsilon" &m("var F").}	;E
{"\varepsilon".}	;F
{"\gamma".}	;G
{"\theta" &m("var J").}	;H
{"\iota".}	;I
{"\vartheta".}	;J
{"\kappa".}	;K
{"\lambda".}	;L
{"\mu".}	;M
{"\nu".}	;N
{"\omega".}	;O
{"\pi" &m("var").}	;P
{"\phi" &m("var V").}	;Q
{"\rho" &m("var").}	;R
{"\sigma" &m("var").}	;S
{"\tau".}	;T
{"\upsilon".}	;U
{"\varphi".}	;V
{"\psi".}	;W
{"\xi".}	;X
{"\eta".}	;Y
{"\zeta".}	;Z
{"\left[" .}	;[
{"\[" (s)?. #m #m "\]" #m #e #e &j(0).}	;\
{"\right]" .}	;]
{"$\boldmath".}	;^
.	;_
.	;`
.	;a
{"\bigskip".}	;b
{"\cite{}" #s.}	;c
{"\displaystyle".}	;d
.	;e
{"\frac{}{}" #s#s#s.}	;f
.	;g
{"\mbox{\hspace*{}}" #s#s.}	;h
{"\int_{}^{}" #s#s#s#s.}	;i
.	;j
{"\mbox{}" #s .}	;k
{"\label{}" #s.}	;l
{"\multicolumn{}{}{}" (5){#s} &m("{2}{c|}{aa}").}	;m
{"\noindent ".}	;n
{"\overline{}" #s .}	;o
{"\prod_{}^{}" #s#s#s#s .}	;p
.	;q
{" (\ref{}) " #s#s#s.}	;r
{"\sum_{}^{}" #s#s#s#s.}	;s
{"\tilde{}" #s.}	;t
{"\underline{}" #s.}	;u
{"\vspace*{}" #s.}	;v
{"\widehat{}" #s.}	;w
{"\Bigl \Bigr".}	;x
{"\biggl \biggr".}	;y
{"\Biggl \Biggr".}	;z
{"\left\{".}	;{
{"\left| \right|".}	;|
{"\right\}".}	;}
.	;~
}.

; FORTRAN 用コマンド登録エリア
82: k-=33, (k>25)?k-=32,
(k)>? {
.	;A
.	;B
{"CONTINUE".}	;C
{"DO " #m "CONTINUE" #e.}	;D
.	;E
{"FORMAT()".}	;F
.	;G
.	;H
{"INTEGER ".}	;I
.	;J
.	;K
.	;L
.	;M
.	;N
.	;O
{"DOUBLE PRECISION ".}	;P
.	;Q
{"READ(*,*) ".}	;R
{"SUBROUTINE ()" #m "RETURN" #e#>#s#s.}	;S
.	;T
.	;U
.	;V
{"WRITE(*,*) ".}	;W
.	;X
.	;Y
.}.	;Z

*