home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 October / VPR9710A.ISO / Ffilly / TFYW111 / TFYWRITE.MAC < prev    next >
Text File  |  1997-06-14  |  2KB  |  66 lines
  1. // らくらくToffyライター for 秀丸エディタ  Ver.1.10
  2. //                                Copyright (C) 1997 みかぜ
  3.  
  4. setting:
  5.  
  6. //マクロのインストールされているディレクトリを指定します
  7. //（例：$Folder = "c:\\hidemaru\\macro\\tfywrite\\"）
  8. $Folder = "c:\\program files\\hidemaru\\macro\\tfywrite\\";
  9.  
  10. //    $Folder = getinistr("tfywrite.ini","Folder","MacroFolder");
  11.  
  12. main:
  13.     #FEP=imestate;
  14.     if (#FEP == 1) imeswitch;    //IMEを解除
  15.  
  16.     menu
  17.         "ピクチャー(&P)",
  18.         "ウィンドウ(&W)",
  19.         "整数値(&I)",
  20.         "マルチメディア(&M)",
  21.         "Windowsシステム(&S)",
  22.         "文字表示(&T)",
  23.         "型変換(&Y)",
  24.         "文字列操作(&L)",
  25.         "配列操作(&A)",
  26.         "ファイル操作(&F)",
  27.         "実数演算(&R)",
  28.         "キャラクタ(&C)",
  29.         "メッセージ(&E)",
  30.         "描画(&D)",
  31.         "通信(&U)",
  32.         "その他(&O)",
  33.         "プリプロセッサ(&H)",
  34.         "オプション(&Z)";
  35.  
  36.     if(result == 0) goto macro_end;
  37.     else if(result == 1) execmacro $Folder + "rtw_pic.mac";
  38.     else if(result == 2) execmacro $Folder + "rtw_win.mac";
  39.     else if(result == 3) execmacro $Folder + "rtw_int.mac";
  40.     else if(result == 4) execmacro $Folder + "rtw_mult.mac";
  41.     else if(result == 5) execmacro $Folder + "rtw_sys.mac";
  42.     else if(result == 6) execmacro $Folder + "rtw_text.mac";
  43.     else if(result == 7) execmacro $Folder + "rtw_type.mac";
  44.     else if(result == 8) execmacro $Folder + "rtw_char.mac";
  45.     else if(result == 9) execmacro $Folder + "rtw_arr.mac";
  46.     else if(result ==10) execmacro $Folder + "rtw_file.mac";
  47.     else if(result ==11) execmacro $Folder + "rtw_real.mac";
  48.     else if(result ==12) execmacro $Folder + "rtw_cast.mac";
  49.     else if(result ==13) execmacro $Folder + "rtw_mes.mac";
  50.     else if(result ==14) execmacro $Folder + "rtw_draw.mac";
  51.     else if(result ==15) execmacro $Folder + "rtw_com.mac";
  52.     else if(result ==16) execmacro $Folder + "rtw_oth.mac";
  53.     else if(result ==17) execmacro $Folder + "rtw_pre.mac";
  54.     else if(result ==18) execmacro $Folder + "rtw_opt.mac";
  55.  
  56.     #IsCancel = getininum("tfywrite.ini","Control","MenuCancel");
  57.     if(#IsCancel == 1){
  58.         writeininum "tfywrite.ini", "Control", "MenuCancel", 0;
  59.         goto main;
  60.     }
  61.  
  62.  
  63. macro_end:
  64.     if (#FEP == 1) imeswitch;    //IMEの状態を戻す
  65.     endmacro;
  66.