= 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 １語← ^A ^← 10 ^F ^[-->] :F １語→ ^F ^→ 11 ^QS \[<--] :S 論理行頭 ^QS \← 12 ^QD \[-->] :D 論理行末 ^QD \→ 13 [INS] :I 挿入モード [INS] 14 ^H [BS] : 15 ^G [DEL] : 16 ^QT ^[BS] :Q 語頭まで削除 ^QT ^[BS] 17 ^T ^[DEL] :T 語末まで削除 ^T ^[DEL] 18 ^QH \[BS] :H 行頭まで削除 ^QH \[BS] 19 ^QG \[DEL] :G 行末まで削除 ^QG \[DEL] 20 ^U ^[INS] :U 削除文字復活 ^U ^[INS] 21 [TAB] :タブ 22 ^P :P 制御文字 ^P 23 ^QU :/ 大／小変換 ^QU 24 ^] \[F10] :] 取得文字複写 ^] \[F10] 30 :P ページング 31 [RLDN] : 32 [RLUP] : 35 ^R \[RLDN] :U ページアップ ^R \[RD] 36 ^C \[RLUP] :D ページダウン ^C \[RU] 37 ^[RLDN] : 38 ^[RLUP] : 39 ^QE \[UP] :E 画面の上端 ^QE \[UP] 40 ^QX \[DOWN] :X 画面の下端 ^QX \[DN] 41 ^QR :T ファイル先頭 ^QR 42 ^QC :B ファイル最後 ^QC 45 ^QL :G 指定行へ ^QL 46 ^B [F06] :B 範囲指定 ^B [F06] 47 ^Y [F07] :Y 行・範囲削除 ^Y [F07] 48 ^J [F09] :J 行・範囲復活 ^J [F09] 49 ^I [F08] :I 行・範囲記憶 ^I [F08] 50 ^O [F10] :O 行・範囲複写 ^O [F10] 51 :J スタックの消去 52 :Q 範囲先頭／最後 56 ^KR :R 置換 ^KR 57 ^KA :A 置換再実行 ^KA 58 ^KK :K 対応()[]{}<> ^KK 61 ^K] \[F09] :C 文字選択複写 ^K] \[F09] 62 ^W [HOME] :W ウィンドウ替え ^W [HOME] 64 ^KW [F04] :4 分割切替え ^KW [F04] 65 ^KD \[F04] :\ 分割位置変更 ^KD \[F04] 67 :M 書込禁 On/Off 69 :T テキスト比較 70 ^KN :Open 73 ^KC :Close 75 ^KS :Save 77 ^KQ :Quit 78 \[F02] : 79 \[ESC] :E DOS画面 \[ESC] 80 ^K^ :^ 再カスタマイズ ^K^ 81 ^K_ :_ キーマクロ挿入 ^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" "複削","DOS ","検索","窓動","検↓","Misc","設定C","記憶C","復活C","複写C" * T "編集ファイル名 <$pd> @G:\ editfile",50 "変更セーブ名 <$pd>",50 "新規ファイル <$pd>",50 "追加ファイル名",50 "パス･マスク",50 "検索文字列 \ は \\, * は \* 例 WRITE(\*,\*)",50 "置換文字列",50 "複写文字列",50 "行番号",1 "ファイル名 <$pd>",50 * S 1 "Macro Menu",70,0,50 2 "Alias",50,0,7,-1 3 "テキスト切替([SPACE]-Filer)",37,0 4 "置換する範囲",16,3 "A 　文書全体　" "F カーソル以後" "B カーソル以前" 5 "",15,6 "W *.*" "T .tex .txt" "F .for .dat" "D .doc .def" "E .exe .com" "A .aux .dvi" 6 "",16,7 "F ファイル名" "E 拡張子" "N 新しい順" "O 古い順" "L 大きい順" "S 小さい順" "D ディレクトリ" 7 "",14,6 "C 比較の実行" "E 存在" "N 新しい" "O 古い" "L 大きい" "S 小さい" 8 "",15,10 "Z 更新コピー zcopy /u %1 %2" "C DOS COPY copy %1 %2" "M 更新移動 zcopy /m /u %1 %2" "D 削除 del " "P パック lha a %2 %1" "U アンパック lha x " "F 比較 fc /n /c /w %1 %2" "E 実行 %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 複写・削除 \[F01]" ?. !02. 3 [F03] "3 カーソル移動 [F03]" ?. !03. 4 \[F03] "4 検索置換，画面 \[F03]" ?. !04. 5 [F02] ^QW "Q テキスト切替え ^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("【マクロ文】") (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("全(Y)/個別(N)セーブ") 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("ファイル挿入") 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("変更なし"). ; *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 検索・複写文字 ^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] で上／下検索、^]，\[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 表示位置変更 ^[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 コメント上検索 ^↑" ?. mp+, #r mp-,. 24 ^[DOWN] "2 コメント下検索 ^↓" ?. mp+, #c mp-,. 25 ^KJ "" ?. &s #O &?("@%c:\",pq.0) #m &d #]. ; = TeX For = 30 ^^ "" ?. pw[, pw=ps, &g("式の内容") 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)} (lnA} #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, (lnI #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("メイン選択/[ESC]終了") :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 現在行対応 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 マクロ文実行" "^ カスタマイズ ^K^" "_ キーマクロ挿入 ^K_" "M マクロメニュー" "@ ^@ キーマクロ N,\,V 登録可" "P ^P 制御文字" 9 "",36,15,7 "M 編集テキスト横幅(2〜250)",WE "G デフォルト横幅(2〜250)",WD "T タブカラム数", HT "P １ページ行数", PG "C 検索時　大/小文字 区別 同一視", Ec "H ページング単位 全画面 半画面", Eh "N 行番号モード 論理行 表示行", Dn "Q 編集終了時動作 Cont Quit",Sq "B バックアップ作成", Eb "F フルパス名表示", Df "L 行番号表示", Dl "S TAB→SPACE変換", Eu "U カーソル行アンダーライン", Du "W ワードサーチ", Ew "R 作業エリア disk TMP ", fa 10 "",25,18 "A 全セーブ" "S セーブ" "N オープン" "C クローズ" "R 名前変更" "E セーブ終了" "Q 終了" "I ファイル挿入" "O 編集放棄" "D 元ファイル参照" "T 名前変更セーブ" "V View Open" "1 メニュー ^L [F01]" "2 削除・複写 \[F01]" "3 カーソル移動 [F03]" "4 検索置換・画面 \[F03]" "6 マクロ \[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> *