home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / movemn8s / movemn8s.lzh / MOVEMENU.MAC < prev    next >
Text File  |  1996-06-08  |  2KB  |  56 lines
  1. //  左寄せ・センタリング・右寄せマクロ(ローダーマクロ) ver.5.00
  2. //  by ＪＲくん(GFB03426)  1996.6.9
  3.  
  4. ////////  各種設定。必要に応じて書きかえて下さい。 ////////////////////////
  5.  
  6. //  メニューの表示と分岐処理
  7. //  ・最初の #NumberOfMenuItem = x; のところに項目数を指定します。
  8. //  ・$mt[x] に項目表示用の文字列を、
  9. //    $mc[x] に実行させたいマクロ名を指定します。（x は１から）
  10.  
  11.     #NumberOfMenuItem = 8;
  12.     $mt[1] = "左寄せ(&L)";            $mc[1] = "LEFT.MAC";
  13.     $mt[2] = "　　ｾﾝﾀﾘﾝｸﾞ(&C)";        $mc[2] = "CENTER.MAC";
  14.     $mt[3] = "　　　　右寄せ↓(&R)";    $mc[3] = "RIGHT.MAC";
  15.     $mt[4] = "　　　　右寄せ２ (&A)";    $mc[4] = "RIGHT2.MAC";
  16.     $mt[5] = "　　　　右寄せ３↓(&3)";    $mc[5] = "RIGHT3.MAC";
  17.     $mt[6] = "左端指定左寄せ(&J)...";    $mc[6] = "INP_LEFT.MAC";
  18.     $mt[7] = "左右指定ｾﾝﾀﾘﾝｸﾞ(&K)...";    $mc[7] = "INP_CNTR.MAC";
  19.     $mt[8] = "右端指定右寄せ(&M)...";    $mc[8] = "INP_RIGT.MAC";
  20.  
  21. ////////  各種設定はここまで。以下はプログラム本体です。 //////////////////
  22.  
  23.  
  24.  
  25. //  メニュー表示用配列の作成
  26.  
  27.     $m[0]                     = "□ 左寄せ/ｾﾝﾀﾘﾝｸﾞ/右寄せ";
  28.     $m[1]                     = "━━━━━━━━━━━━";
  29.         #l = 1;
  30.         while (#l <= #NumberOfMenuItem){
  31.             $m[#l + 1] = $mt[#l];
  32.             #l = #l + 1;
  33.         }
  34.     $m[#NumberOfMenuItem + 2] = "────────────";
  35.     $m[#NumberOfMenuItem + 3] = "ｷｬﾝｾﾙ(&Q)";
  36.  
  37.  
  38. //  メニューの表示と分岐処理（各マクロ呼び出し）
  39.  
  40.     MenuOutput:
  41.  
  42.     menuarray $m, #NumberOfMenuItem + 4;
  43.  
  44.     if ((result == 0) + (result == (#NumberOfMenuItem + 4))) endmacro;
  45.     if ((result == 1) + (result == 2) + (result ==(#NumberOfMenuItem + 3)))
  46.                                 goto MenuOutput;
  47.  
  48.     execmacro $mc[result - 2];
  49.  
  50.  
  51. //  呼び出したマクロが終了した後にメニューに戻るようにするには
  52. //  以下の１行のコメントを外して下さい。（この行頭と同様の// をはずす）
  53. //    goto MenuOutput;
  54.  
  55.     endmacro;
  56.