= jk.def in Tottori Univ. ==
* C
00	^Q	^K		;
01	^_			:
02	^@			:
03		[ESC]	:
04	^M	[CR]	:
05	^E	[UP]	:
06	^X	[DOWN]	:
07	^S	[<--]	:
08	^D	[-->]	:
09	^A	^[<--]	:A �P�ꁩ         ^A   ^��
10	^F	^[-->]	:F �P�ꁨ         ^F   ^��
11	^QS	\[<--]	:S �_���s��       ^QS  \��
12	^QD	\[-->]	:D �_���s��       ^QD  \��
13		[INS]	:I �}�����[�h           [INS]
14	^H	[BS]	:
15	^G	[DEL]	:
16	^QT	^[BS]	:Q �ꓪ�܂ō폜   ^QT  ^[BS]
17	^T	^[DEL]	:T �ꖖ�܂ō폜   ^T   ^[DEL]
18	^QH	\[BS]	:H �s���܂ō폜   ^QH  \[BS]
19	^QG	\[DEL]	:G �s���܂ō폜   ^QG  \[DEL]
20	^U	^[INS]	:U �폜��������   ^U   ^[INS]
21		[TAB]	:�^�u
22	^P			:P ���䕶��       ^P
23	^QU			:/ ��^���ϊ�     ^QU
24	^]	\[F10]	:] �擾��������   ^]   \[F10]
30				:P �y�[�W���O
31		[RLDN]	:
32		[RLUP]	:
35	^R	\[RLDN]	:U �y�[�W�A�b�v   ^R   \[RD]
36	^C	\[RLUP]	:D �y�[�W�_�E��   ^C   \[RU]
37		^[RLDN]	:
38		^[RLUP]	:
39	^QE	\[UP]	:E ��ʂ̏�[     ^QE  \[UP]
40	^QX	\[DOWN]	:X ��ʂ̉��[     ^QX  \[DN]
41	^QR			:T �t�@�C���擪   ^QR
42	^QC			:B �t�@�C���Ō�   ^QC
45	^QL			:G �w��s��       ^QL
46	^B	[F06]	:B �͈͎w��       ^B    [F06]
47	^Y	[F07]	:Y �s�E�͈͍폜   ^Y    [F07]
48	^J	[F09]	:J �s�E�͈͕���   ^J    [F09]
49	^I	[F08]	:I �s�E�͈͋L��   ^I    [F08]
50	^O	[F10]	:O �s�E�͈͕���   ^O    [F10]
51				:J �X�^�b�N�̏���
52				:Q �͈͐擪�^�Ō�
56	^KR			:R �u��           ^KR
57	^KA			:A �u���Ď��s     ^KA
58	^KK			:K �Ή�()[]{}<>   ^KK
61	^K]	\[F09]	:C �����I�𕡎�   ^K]  \[F09]
62	^W	[HOME]	:W �E�B���h�E�ւ� ^W    [HOME]
64	^KW	[F04]	:4 �����ؑւ�     ^KW   [F04]
65	^KD	\[F04]	:\ �����ʒu�ύX   ^KD  \[F04]
67				:M ������  On/Off
69				:T �e�L�X�g��r
70	^KN			:Open
73	^KC			:Close
75	^KS			:Save
77	^KQ			:Quit
78		\[F02]	:
79		\[ESC]	:E DOS���             \[ESC]
80	^K^			:^ �ăJ�X�^�}�C�Y ^K^
81	^K_			:_ �L�[�}�N���}�� ^K_
88		\[<--]	:
89		\[-->]	:
90		\[UP]	:
91		\[DOWN]	:
92		\[BS]	:
93	^W	[HOME]	:
94	^H	[BS]	:
95		\[ESC]	:
97		^[CR]	:
98		\[CR]	:

* F
"Menu","÷��","����","����","����","�͈�","�폜L","�L��L","����L","����L"
"����","DOS ","����","����","����","Misc","�ݒ�C","�L��C","����C","����C"

* T
	"�ҏW�t�@�C���� <$pd> @G:\ editfile",50
	"�ύX�Z�[�u�� <$pd>",50
	"�V�K�t�@�C�� <$pd>",50
	"�ǉ��t�@�C����",50
	"�p�X��}�X�N",50
	"���������� \ �� \\, * �� \* �� WRITE(\*,\*)",50
	"�u��������",50
	"���ʕ�����",50
	"�s�ԍ�",1
	"�t�@�C���� <$pd>",50

* S
1	"Macro Menu",70,0,50
2	"Alias",50,0,7,-1
3	"�e�L�X�g�ؑ�([SPACE]-Filer)",37,0
4	"�u������͈�",16,3
	"A �@�����S�́@"
	"F �J�[�\���Ȍ�"
	"B �J�[�\���ȑO"
5	"",15,6
	"W *.*"
	"T .tex .txt"
	"F .for .dat"
	"D .doc .def"
	"E .exe .com"
	"A .aux .dvi"
6	"",16,7
	"F �t�@�C����"
	"E �g���q"
	"N �V������"
	"O �Â���"
	"L �傫����"
	"S ��������"
	"D �f�B���N�g��"
7	"",14,6
	"C ��r�̎��s"
	"E ����"
	"N �V����"
	"O �Â�"
	"L �傫��"
	"S ������"
8	"",15,10
	"Z �X�V�R�s�[	zcopy /u %1 %2"
	"C DOS COPY		copy %1 %2"
	"M �X�V�ړ�		zcopy /m /u %1 %2"
	"D �폜	del "
	"P �p�b�N	lha a %2 %1"
	"U �A���p�b�N	lha x "
	"F ��r	fc /n /c /w %1 %2"
	"E ���s		%1 %2"
	"X ������	attrib +r "
	"O ������	attrib -r "
9	"",0,4
	"com"
	"exe"
	"dvi DVI "
	"lzh LHA l "

* M
1	[F01]	^L	"1 Menu        ^L [F01]"	?. (fe)>?{>35 >T >F} >F
:T	(cm==1)?{nn=15, >31} (mb)??>Z
	l=ln, x=lx, #52 (l==ln && x==lx)?>33 #52 >Z
:F	(mb)?>32 >Z
:Z	!01 nn=r, (fe>1&&nn<12)?. >31.
2	\[F01]	"2 ���ʁE�폜     \[F01]"	?. !02.
3	[F03]	"3 �J�[�\���ړ�    [F03]"	?. !03.
4	\[F03]	"4 �����u���C��� \[F03]"	?. !04.
5	[F02]	^QW	"Q �e�L�X�g�ؑւ� ^QW   [F02]"	?. n=wn, #T
:A	&p c=r,(c==' ')?{#[#O#m.} &o(c)(s==4)?>A
	(n==wn||wt||wc<3)?. &s #W &#T(n) #W &d #].
6	\[F06]	"6 Macro          \[F06]"	?.!06 (r)>?{>80 #80 #81 !99}.
80:	&g("�y�}�N�����z") (r==-1)?. &e(pw)
	&m("Result: %d %u $%x '%c' $"%16s$"",r,r,r,r,r) &d.

9	[ESC]	"File, Menu"
	?. !10 nn=r, (nn)>?
	{>89 >88 #70 #73 >87 >81 >80 >85 >84 >83 #75 >82 >01>02>03>04>06!09}.
;	*Q
80:	&86 &#Y(0) t=wn, &a("�S(Y)/��(N)�Z�[�u") n=r, (n<0)?. (n)?&89
:A	&s ps[, ps=pa, #F #P #16 '*' :B	#s (cd!='\')?>B #18 &o(pq.0)':'#m
	ax=$4E00, dx=ps, &i($21) ff=ax, ps], mp-,
	(ff)?>N &d &a("COMPILE ���ʕۑ����܂�") n=r,
	(n<0)?. (n)?{#E"SAVECOMP "#P#m#[}
:N	&s &#T(wn+1) (t-wn)?>A
:C	&s #] (wc==1)?>Z (mr)??{#C>C}
	&d &a(16) (n<0)?. (n)?{#C'Y'}?{#C'N'} >C
:Z	&d #Q.
;	*E
81:	cc=pn.0-65, &86 ax=$0E00,dx=cc,&i($21) #C (s==4)?'Y'.
;	*V
82:	ro+, #O &m("View mode")
:A	(s)?{&c>A} ro-,.
;	*D
83:	(wt)?>A (wn==0||wc==tc)?{&m(6).} &s
	sn[, sn-, &#Y(0) l=ln, ly[, #R #P #m mr=$80, ky],
	ev[, ev-, &#J(l) ev], #W sn], &d #Y.
:A	(mr<=1)?{#W (mr<=1)?{#W.}} #C (wt)?{#W&#Y(0)}
;	*O
84:	#] (mr!=1)?. &a(37) (r>0)?{&s#L'n'#P#m&d}.
;	*I
85:	(mr==$80)?{&m(36).} &m("�t�@�C���}��") n=wn, c=wc, #R
:A	(s)?{&c>A} (wc==c)?>Z mr=-1, &s #W &#T(n)
:B	#W &#T(c+1) #b #_ (ct)?{#>#m#x}
:C	#y (mb)?{#W #< #i (ek)??#B#W>C}
	#C &#T(n) #< #i (ek)??#B (wc>c)?>B &d
:Z	&m("")
;	*Pro
86:	ax=$0E00, dx=pq.0-65, &i($21) ax=$3B00, dx="\", &i($21)
	ax=$5B00, cx-, dx="editfile", &i($21) #83.
;	*R
87:	&s #M ky[, mr[, mr-, #_ #U #^ #U mr], ky], &d #] #82
:A	(s)?{&c>A} (r<0)?.mr+,.
;	*S
88:	#] (mb)?{#S.} (mr)?{#S#m.}?&m("�ύX�Ȃ�").
;	*A
89:	#] t=wn,
:A	&s(mb)?#b (mr)?{&d#S#m&s} &#T(wn+1) (t-wn)?>A &d #].

; = String/Jump =
10	^[	\[F08]	"[ ������擾  (\)^[   \[F08]" ?. &s (mb)?>Z
:S	#b &f(cd,"{([$\%") (r)>?{>F>F>F>D>Y>Y} #b >Z
:F	#58 (r)?>G :X	#d &f(cd,"{([^_") a=r, (a>2)?>X (a>-1)?>F #s >G
:D	#d (r)?{#52 #b >Z} (cd=='$')?>G >D
:Y	#d (ct<2)?{#s >G} &f(cd,"{([ ") (r)>?{>F>F>F>G} >Y
:G	#52 a=ln, #52 #d &d (a!=ln)?.
:Z	&d (ks&17!=17)?#G >14
11	^K[	\[F07]	"K �����E���ʕ��� ^K[  \[F07]"	?. #F &l >14
12	[F05]	"8 �������             [F05]"	?. mp=2, #r mp-,.
13	\[F05]	"2 ��������            \[F05]"	?. mp=2, #c mp-,.
14	"" mp-, &m("%s �� [F05]�^\[F05] �ŏ�^�������A^]�C\[F10] �ŕ���",ps).
15	\[CR]	"F Filer (^) DF"	(s==2)?{#98.} #O #m.
16	^QB	"L Undo (\)Block/Line  ^QB"	?. (ks&1)?{mb=r,#y}?#54.
17	^[CR]	"Z �\���ʒu�ύX        ^[CR]"
	?. (ks&17==17)?{#E "FILMTN" #m #[.}
	y=(wy-1)/2, (ly>=y)?ky=5,?ky=wy-6, &d #].
20	^K0	"1 Mark           ^K + (1-4)"	?. i=r, &#M(i) &m("Mark #%d",i).
21	^Q0	"4 Mark Jump      ^Q + (0-4)"	?. &#U(r).
23	^[UP]	"8 �R�����g�㌟��      ^��"	?. mp+, #r mp-,.
24	^[DOWN]	"2 �R�����g������      ^��"	?. mp+, #c mp-,.
25	^KJ	""	?. &s #O &?("@%c:\",pq.0) #m &d #].

; = TeX For =
30	^^	"" ?. pw[, pw=ps, &g("���̓��e") pw], (r==-1)?. ' $'&?(ps)'$ '.
31	"" &s #M (nn)>?
{{"equation" &j(0) >89}
 {"eqnarray" &89 &s "& & \nonumber\\" #m #> #s #s "\arraycolsep=5pt"
  #e #e #e #m "\arraycolsep=1.5pt" #x #x (4){#a} &d
  &m("\label OR \nonumber") &j(0).}
 {"array" &89 #e #> "{}" #s &j(0).} {"tabular" &89 #e #> "{}" #s &j(0).}
 {"itemize" &89 "\item " #m #e #>.} {"enumerate" &89 "\item " #m #e #>.}
 {"description" &89 "\item[] " #m #e #> #s #s.}
 {"center" >89} {"flushright" >89} {"quotation">89}
 >81 >84 >32 >33 >85 >86}.
81:	n=lx, #a #M &x(n) >89
84:	#^ #< "\documentstyle[11pt,a4j]{jarticle}" #m
	"%\oddsidemargin \textwidth \textheight \parindent \topmargin " #m
	"%\renewcommand{\baselinestretch}{}" #m
	"\begin{document} \pagestyle{empty}" #m #_ #> #m
	"\end{document}" #m &d.
85:	#< #f &f(cd,"CS") c=r, (c<0)?. #f #G #F #e '(' #<
	(c)?"CALL "?"SUBROUTINE " #m (c)?#r?#c &d #] mp-,.
86:	&d (fe)>?{. >J >L} :L #F #P #18 #[ #E
	"LASER /?" #m "LASER /ES /H /NY /DF " #u.
:J	kk=(ks&1), #E "DVI" #e #< #d #d #d mi+, "PRT" mi-,} #>.
89:	ei[, ei-, (mb)?#b '}' #b #U #k #M a-,
:A	#s (r<0)?>B (cd==' ')?>A a=ct-1,
:B	#U (a)?#m ei+, "%[" #m "\begin{" #s #58 #d #m #M
	"\end{" #i "%]" (ct!=1)?#m #U &d #] ei],.

32	""	(mb)??.
	(fe)>?{. {d='%', >A} {d='c',>A}} &d &g("1 Chara")
	(r<0)?d='',?d=pw.0,
:A	&s #M ky[, b=ln, #52 c=b-ln, (c<1)?>Z #< (cd==d)?>F
	(c){&?("%c",d) #> #d} >Z
:F	(cd==d)?#g #> #d #F #u #[ (c--)?>F
:Z	mb-, #U ky], &d #].

33	^KP	""
	?. mi-, cc=pn.0-65, kk=((ks&1)^fa)!, #]
	&s nn=wn, #W uu=wn, #W ax=$0E00, dx=pq.0-65, &i($21)
	ax=$3B00, dx="\", &i($21) ax=$3900, dx="\BAK", &i($21)
	(fe)>?{. >T >F}.
:F	&s &82 &d (mr&kk)?{#S #m} ps[, ps=px, #F #P #16 #h
:E	#s(cd!='\')?>E #d #u #u #l #[
	#F &?("%c: ; f77 ",pq.0) #u #> &?("  ; %c:",cc+65) #m 
	ps], mp-, &88 #E #e #m.
:T	ec[, ec+, mp=2, ps[, ps=pa, (mb)??>A l=ln, x=lx, ky[, #52 kk=2,
	(l==ln && x==lx)?{#b &#U(3) ll=ln, #b &#U(4)}
	?{&#M(3) ll=ln, #52 &#M(4)} (ln<ll)?ll=ln, mb=2,
	(wc==Tc)?{#b &#J(l) ky], &x(x) >A} #k &#J(l) ky], &x(x)
	&84 (mm)??. ax=$3B00, dx="\BAK", &i($21)
	#N "RAM.TEX" #m #i #_ #> #m "\end{document}" #m
	#F "\begin{document}" #m #r (r)??>Z #^ #< #I #m
	&#T(mm) a=ln, x=kx, ky[, #^ #< #c #b #^ #< #k &#J(a) ky], &x(x)
	&#T(wc) #^ #< #i #m ll-=ln, #S #m #C >Z
:A	(wc==Tc)?{&m(6) &87 &88.}
	(mr&kk)?{&d #S #m &s} &84 (mm)??. &82 (kk)?>Z #O #P
:D	#s(cd!='\')?>D #d #18 #m #F #u #[ #_ #> ax=$3B00,dx="\BAK",&i($21)
:B	&#T(wn+1) n=wn, #]
	(wn==wc)?{ax=$3B00, dx="\", &i($21) #S #m #C &#T(mm) >Z}
	(mr && fe==1)??>B #S #18 &?("%d.TEX",n) #m #M 
	ky[, #_ #U #^ #U ky], #82 #x #u #m #F #P #16 #h '}'
:C	#s (cd!='\')?>C #u #u #d #l #[ #F #u #m &#T(wc) #r
	(r)??{#58 #b #58 #d #y &?("{%c:/BAK/%d}",pq.0,n) #_#> #i} &#T(n) >B
:Z	ps=px, #F &o(pq.0) ": ; " (kk==2)?"TEX RAM"?{"COMPTEX "#P}
	#m &87 #E #e #m &88

	(s!=2)?. &s #95
	ec[, ec-, ps[, ps=pa, #U #s #F "TEX " #m #c (r)?>80 #f
	&o(pq.0) ':' (kk==2)?{"\BAK"} '\' #r #f #s #l #95
	&#T(mm) a=ln, x=kx, ky[, #F "\documentstyle" #m #_ #r #> #M n+,
	#F "b4j" #m #r (r)??{n++, #F" -y=b4" #18 #[} #U
	#F "b5j" #m #r (r)??{n++, #F " -y=b5" #18 #[} #U
	#F "landscap" #m #r (r)??{n++, #F " -V" #18 #[ } #U &#J(a) ky], &x(x)
	ps=px, #F (n){#u} #<"DVI"#m 
	ps=pa, #X #U m=ln, #F "? e\n" #m #c, (r)?>I
:G	#F "l." #m #r f=r, (ln<m||f)?>I #f &n n=r, (n<0)? >G
	(kk==2)?{#X &#T(nn) &#J(n+ll-1) >80}
	#F ".tex" #m #r #d #d #d #d ')' #s #58 #m #d #60 (r)?>I c=cd-32,
	(c!=pq.0)?{#O #e " -" &?("%d",n) #m >80} i-,
:H	#d &f(cd,"\.") c=r, (c<0)?>H (c)?{#X &#T(mm) &#J(n) >80}
	i++, (i<2)?>H #d &n t=r, (r<0)?>I #X &#T(t) &#J(n) >80
:I	#X &#T(nn) #W &#T(uu) #W #E &80 #] #e &l (s)?#[
	&m("�� [F01] �������� DVIPRT") cm+,.

80:	ps], ec], mp-, &d.
82:	#] mr[, (mb)?#b#S :A	#s (cd!='\')?>A
	#d #18 #m #M ky[, #_ #U #^ #U ky], 
	#82 #< #d #d #d #u #< #d #d #d #18 #m #F #u #[ mr],.
84:	mm-, n=nn, #F "\begin{document}" #m &86 (f)??{mm=wn, >Z}
	#F #P #> #16 #h '}'
:A	#s(cd!='\')?>A #u#u#d#l#[ #F#u#m
:B	&#T(wn+1) (wn==n)?>C (fe!=1)?>B
	&86 (f)?>B #F #e #e #m &86 (f)?{#F #e #e #m >B} mm=wn, >Z
:C	(wc>Tc-3)?{&m(6) >Z} t=wc, &d #O #m &m("���C���I��/[ESC]�I��")
:D	(s)?{&c>D} &s (t==wc)?>Z &#T(wc-1), n+, >B
:Z	(mm)?. &87 &88.
86:	(mb)?#b a=ln, x=kx, ky[, #_ #> #r f=r, &#J(a) ky], &x(x).
87:	ps], mp-, ec], &#T(nn) #W &#T(uu) #W &d #].
88:	ax=$0E00, dx=cc, &i($21).

* P
1	"Tex Fortran",23,16
	"E equation"
	"Q eqnarray"
	"A array"
	"T tabular"
	"I itemize"
	"N enumerate"
	"D description"
	"C center"
	"F flushright"
	"U quotation"
	"B \begin{} \end{}"
	"\ \begin{document}"
	"5 Comment On/Off"
	"P Save Compile"
	"S ���ݍs�Ή� SUB/CALL"
	"L Laser / Dvishot"
2	"",30,15
	#16 #17 #18 #19 #20 #46 #47 #48 #49 #50 &10 &11 #24 #61 &16
3	"",30,16
	 #45 #41 #42 #52 &20 &21 #09 #10 #39 #40 #11 #12 &23 &24 #58 #62
4	"",30,18
	#56 #57 &13 &12 &11 #61 &10 #24 #23
	"* -----WINDOW----- "
	#35 #36 #62 #64 #65 #67 #79 #69
6	"",30,6
	"A �}�N�������s"
	"^ �J�X�^�}�C�Y   ^K^"
	"_ �L�[�}�N���}�� ^K_"
	"M �}�N�����j���["
	"@ ^@ �L�[�}�N�� N,\,V �o�^��"
	"P ^P ���䕶��"
9	"",36,15,7
	"M �ҏW�e�L�X�g����(2�`250)",WE
	"G �f�t�H���g����(2�`250)",WD
	"T �^�u�J������",	HT
	"P �P�y�[�W�s��",	PG
	"C �������@��/������	��� ���ꎋ", Ec
	"H �y�[�W���O�P��	�S��� �����",	Eh
	"N �s�ԍ����[�h	�_���s �\���s",	Dn
	"Q �ҏW�I��������	Cont Quit",Sq
	"B �o�b�N�A�b�v�쐬",	Eb
	"F �t���p�X���\��",	Df
	"L �s�ԍ��\��",	Dl
	"S TAB��SPACE�ϊ�",	Eu
	"U �J�[�\���s�A���_�[���C��",	Du
	"W ���[�h�T�[�`",	Ew
	"R ��ƃG���A	disk TMP ",	fa
10	"",25,18
	"A �S�Z�[�u"
	"S �Z�[�u"
	"N �I�[�v��"
	"C �N���[�Y"
	"R ���O�ύX"
	"E �Z�[�u�I��"
	"Q �I��"
	"I �t�@�C���}��"
	"O �ҏW����"
	"D ���t�@�C���Q��"
	"T ���O�ύX�Z�[�u"
	"V View Open"
	"1 ���j���[     ^L [F01]"
	"2 �폜�E����     \[F01]"
	"3 �J�[�\���ړ�    [F03]"
	"4 �����u���E��� \[F03]"
	"6 �}�N��         \[F06]"
	"M �ݒ�"

* O
Bt16	Bq600/64	Bf0	Bo20	GV0	EM24	SW0	Bm256	Ba0
Hs256	Hf128	Hx512	Hw128	Ha256	Bl1024	Bc512	Bu64
TC10	WD74	PG0	RS0	Ta6	Tb4	Ci3	Co1	FW256	FV5	FS2	FO3	WL11	LC-
An7	Ac5	Al5	Ah13	As15	Ao14	Ar13	Am6	Ab5	At5	Aw7	Af6	Ai15
Aj6	Ak6	Ag1	Au$66	Ap14	Av$60	
Dl+	Dc+	Dt+	De+	Ds-	Db-	Dn-	Du+	Df+	Dp-     Dk+
Ei+	Es+	Ez+	Eb+	Eu+	Et+	Eh+	Ew-	Ec+	Ex-	En+	Ev-	Ek+	Ea+
RO-	Sx+	Se+	Sd+	Sk-	Sr-	Sy-	St-	Sn-	Sq+	FP+	FR-	FT2	FK+	FQ+

* A
COMPTEX	IF NOT EXIST %&.AUX ZCOPY %<.* [.dvi.tex] ; TEX %&
SAVECOMP	Zcopy %&.* [.LOG.TEX.FOR.MAP.LST.OBJ] %: /u
* H
:file
"@a:\"

* E
1	short
2	EDITFILE
3	.TEX .for .TXT .HLP .DEF .C .H
4	Ldisk  Mask  Path  Sort  View  Window  All  TrCD  RetCD  Compare  Execute
7	*%a;
8	$6$pd>
*
