home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / mopterm / fapx405b / fapxset.plp < prev    next >
Text File  |  1992-08-19  |  21KB  |  749 lines
  1. /*    USER-ID & PASSWORDの設定    */
  2. %setUID    {
  3.     SNDMSG({nyuryo_f.snd});
  4.     footnote({ユーザーＩＤを入力して下さい});
  5.     %id    @input({ユーザーＩＤを入力して下さい\n}|
  6.             {    ユーザーＩＤは必ず半角の大文字で入力して下さい},
  7.             ,ID);
  8.         case    (@nochar(id),
  9.             8,{ID:=id;setPASS}
  10.             ,,{setUID});
  11.     };
  12.  
  13. %setPASS{
  14.     SNDMSG({nyuryo_f.snd});
  15.     footnote(ID|{のパスワードを入力して下さい});
  16.     %pass    @input(ID|{のパスワードを入力して下さい\n}|
  17.             {    ｢*｣を指定すると実行時に入力可能です},
  18.             ,PassWord);
  19.         case(pass,{},{setPASS},,{PassWord:=pass});
  20.     };
  21.  
  22. %setID    {
  23.     loop    ({
  24.         SNDMSG({erande_f.snd});
  25.         footnote({設定する情報を選択して下さい});
  26.         select    (
  27.             {設定する情報を選択して下さい << ユーザー情報設定 >>},
  28.             Wtime4,{im({No})},
  29.             {    ユーザーＩＤ設定    },{setUID;im({Yes})},
  30.             {    パスワードの設定    },{setPASS;im({Yes})},
  31.             {        設定終了        },{im({No})}
  32.             );
  33.         });
  34.     };
  35.  
  36. %setAT    {
  37.     var type[10];
  38.     SNDMSG({erande_f.snd});
  39.     footnote({モデムのタイプを選択して下さい});
  40.     type := @select({どういうタイプのモデムですか？},
  41.         Wtime4,{im({1200n})},
  42.         {  １２００　                  ＭＮＰなし  },{im({1200n})},
  43.         {  ２４００　                  ＭＮＰなし  },{im({2400n})},
  44.         {  ２４００(端末速度2400)　    ＭＮＰあり  },{im({2400m})},
  45.         {  ２４００(端末速度4800)　    ＭＮＰあり  },{im({4800m})},
  46.         {  2400以上(端末速度9600以上)　ＭＮＰあり  },{im({9600m})}
  47.         );
  48.     
  49.     SNDMSG({nyuryo_f.snd});
  50.     footnote({ＡＴコマンドを設定して下さい});
  51.     %a @input({ATコマンドを設定して下さい  例｢ATX3\N3\V1\Q3\J0｣},,
  52.                         {AT}|@head(MODEM,{/}));
  53.     case    (a<>{},
  54.         {Yes},
  55.         {case    (@getchar(a,1,2),
  56.             {AT},
  57.             {case    ( a = @head(a,{\}),
  58.                 {Yes},
  59.                 {MODEM:=@getchar(a,3,999)|{/}|
  60.                     @getchar(a,3,999)|{/AT直接指定_}|type;},                ,
  61.                 {MODEM:=@getchar(a,3,999)|{/}|
  62.                     {/AT直接指定_}|type;}
  63.                 );
  64.             }
  65.             );
  66.         },
  67.         {No},{setAT}
  68.         );
  69.     };
  70.  
  71. %FUJITSU{
  72.     %modem    {case    (MODEM,
  73.             {},{im({未設定})},
  74.             ,  {head(@tail(MODEM,{/}),{_})}
  75.             )};
  76.     SNDMSG({erande_f.snd});
  77.     footnote({モデムの機種を選んで下さい});
  78.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  79.     Wtime4,{},
  80.     {内蔵1200},     {MODEM:={X3//内蔵1200_1200n}},
  81.     {内蔵2400},    {MODEM:={X3/\N3\V1\Q3\J0%C0/内蔵2400_9600m}},
  82.     {富士通 PM1200F},{MODEM:={X3//PM1200F_1200n}},
  83.     {富士通 PM2400F},{MODEM:={X3/\N3\V1\Q3\J0%C0/PM2400F_9600m}},
  84.     {富士通 OAMD-301},{MODEM:={X3&D2/\N3\Q3\J0\V2/OAMD-301_9600m}},
  85.     {},{},
  86.     {ATコマンド直設定 },{setAT},
  87.     {変更しない},{}
  88.     )
  89.     };
  90.  
  91. %AIWA    {
  92.     %modem    {case    (MODEM,
  93.             {},{im({未設定})},
  94.             ,  {head(@tail(MODEM,{/}),{_})}
  95.             )};
  96.     SNDMSG({erande_f.snd});
  97.     footnote({モデムの機種を選んで下さい});
  98.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  99.     Wtime4,{},
  100.     {AIWA PV-A1200},{MODEM:={X3//PV-A1200_1200n}},
  101.     {AIWA PV-A2400},{MODEM:={X3//PV-A2400_2400n}},
  102.     {AIWA PV-A2400MNP4},{MODEM:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
  103.     {AIWA PV-A24MNP5},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24MNP5_9600m}},
  104.     {AIWA PV-A24V42},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24V42_9600m}},
  105.     {AIWA PV-M24},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24_9600m}},
  106.     {AIWA PV-M24M5},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_9600m}},
  107.     {AIWA PV-M24B5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-M24B5_9600m}},
  108.     {ATコマンド直設定 },{setAT},
  109.     {変更しない},{}
  110.     )
  111.     };
  112.  
  113. %OMRON    {
  114.     %modem    {case    (MODEM,
  115.             {},{im({未設定})},
  116.             ,  {head(@tail(MODEM,{/}),{_})}
  117.             )};
  118.     SNDMSG({erande_f.snd});
  119.     footnote({モデムの機種を選んで下さい});
  120.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  121.     Wtime4,{},
  122.     {OMRON MD1200},{MODEM:={X3//MD1200_1200n}},
  123.     {OMRON MD12FS},{MODEM:={X3//MD12FS_1200n}},
  124.     {OMRON MD2400F},{MODEM:={X3/\N3\V1\Q2\J0/MD2400F_2400m}},
  125.     {OMRON MD24FB5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FB5V_9600m}},
  126.     {OMRON MD24FP4},{MODEM:={X3/\N3\Q2\J0/MD24FP4_2400m}},
  127.     {OMRON MD24FP4II},{MODEM:={X3&P2/\N3\Q2\J0/MD24FP4II_9600m}},
  128.     {OMRON MD24FP5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FP5V_9600m}},
  129.     {OMRON MD24FS4},{MODEM:={X3/\N3\Q2\J0/MD24FS4_2400m}},
  130.     {OMRON MD24FS5},{MODEM:={X3/\N3\Q2\J0/MD24FS5_2400m}},
  131.     {OMRON MD24FS7},{MODEM:={X3/\N3\Q2\J0/MD24FS7_2400m}},
  132.     {},{},
  133.     {ATコマンド直設定 },{setAT},
  134.     {変更しない},{}
  135.     )
  136.     };
  137.  
  138. %EPSON    {
  139.     %modem    {case    (MODEM,
  140.             {},{im({未設定})},
  141.             ,  {head(@tail(MODEM,{/}),{_})}
  142.             )};
  143.     SNDMSG({erande_f.snd});
  144.     footnote({モデムの機種を選んで下さい});
  145.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  146.     Wtime4,{},
  147.     {EPSON SR-120S},{MODEM:={X3//SR-120S_1200n}},
  148.     {EPSON SR-240AT},{MODEM:={X3//SR-240AT_2400n}},
  149.     {EPSON SR-240V},{MODEM:={X3\V2/N1&K1%C0/SR-240V_9600m}},
  150.     {},{},
  151.     {ATコマンド直設定 },{setAT},
  152.     {変更しない},{}
  153.     )
  154.     };
  155.  
  156. %NEC    {
  157.     %modem    {case    (MODEM,
  158.             {},{im({未設定})},
  159.             ,  {head(@tail(MODEM,{/}),{_})}
  160.             )};
  161.     SNDMSG({erande_f.snd});
  162.     footnote({モデムの機種を選んで下さい});
  163.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  164.     Wtime4,{},
  165.     {NEC COMSTAR 2424},{MODEM:={X3/\N3\Q2/COMSTAR 2424_2400m}},
  166.     {},{},
  167.     {ATコマンド直設定 },{setAT},
  168.     {変更しない},{}
  169.     )
  170.     };
  171.  
  172. %setMODEM{
  173.     %modem    {case    (MODEM,
  174.             {},{im({未設定})},
  175.             ,  {head(@tail(MODEM,{/}),{_})}
  176.             )};
  177.     SNDMSG({erande_f.snd});
  178.     footnote({モデムのメーカーを選んで下さい});
  179.     select({モデムのメーカーを選んで下さい},
  180.     Wtime4,{},
  181.     {  ＦＵＪＩＴＳＵ  },{FUJITSU},
  182.     {     ＡＩＷＡ     },{AIWA},
  183.     {    ＯＭＲＯＮ    },{OMRON},
  184.     {    ＥＰＳＯＮ    },{EPSON},
  185.     {      ＮＥＣ      },{NEC},
  186.     { ATコマンド直設定 },{setAT}
  187.     )
  188.     };
  189.  
  190. /*    ダイヤル種類の設定    */
  191. %setDIAL{
  192.     %dial    {case    (DIAL,
  193.             {P},{im({ダイヤルパルス式})},
  194.             {T},{im({プッシュホン式})},
  195.             ,   {im({未設定})})};
  196.     SNDMSG({erande_f.snd});
  197.     footnote({電話回線の種類を指定して下さい});
  198.     select    ({電話回線の種類を指定して下さい  現在は}|@dial|{です},
  199.         Wtime4,{},
  200.         {ダイヤルパルス式},{DIAL:={P}},
  201.         { プッシュホン式 },{DIAL:={T}}
  202.         );
  203.     };
  204.  
  205. %setMDM    {
  206.     loop    ({
  207.         SNDMSG({erande_f.snd});
  208.         footnote({設定する情報を選択して下さい});
  209.         select    ({設定する情報を選択して下さい  << モデム設定 >>},
  210.             Wtime4,{im({No})},
  211.             {    モデム機種の設定    },{setMODEM;im({Yes})},
  212.             {   ダイヤル種類の設定   },{setDIAL;im({Yes})},
  213.             {        設定終了        },{im({No})}
  214.             );
  215.         });
  216.     };
  217.  
  218.  
  219. /*    ＲＯＡＤ１の回線スピードの設定    */
  220. %setSPEED
  221.     {
  222.     SNDMSG({erande_f.snd});
  223.     footnote({ＲＯＡＤ１のスピードを指定して下さい});
  224.     select    ({ＲＯＡＤ１のスピードを指定して下さい},
  225.         Wtime4,{im({No})},
  226.         {  1200  },{ROAD1:=@nth(ROAD1,1,{/})|{/1200}},
  227.         {  2400  },{ROAD1:=@nth(ROAD1,1,{/})|{/2400}}
  228.         );
  229.     };
  230.  
  231. %setTEL    {
  232.     loop    ({
  233.         SNDMSG({erande_f.snd});
  234.         footnote({設定するＡＰを選択して下さい});
  235.         select    ({設定するＡＰを選択して下さい},
  236.             Wtime4,{im({No})},
  237.             {     ＲＯＡＤ１     },
  238.             {
  239.             SNDMSG({nyuryo_f.snd});
  240.             footnote({FENICS-ROAD1の電話番号を入力して下さい});
  241.             ROAD1:=@input({FENICS-ROAD1の電話番号を入力して下さい},
  242.                     ,@nth(ROAD1,1,{/}));
  243.             setSPEED;
  244.             im({Yes});
  245.             },
  246.             {     ＲＯＡＤ２     },
  247.             {
  248.             SNDMSG({nyuryo_f.snd});
  249.             footnote({FENICS-ROAD2の電話番号を入力して下さい});
  250.             ROAD2:=@input({FENICS-ROAD2の電話番号を入力して下さい},
  251.                     ,ROAD2);
  252.             im({Yes});
  253.             },
  254.             {      設定終了      },{im({No})}
  255.             );
  256.         });
  257.     };
  258.  
  259. /* ディレクトリの設定    */
  260. %setTEMPDIR
  261.     {
  262.     footnote({ディレクトリ名を入力して下さい});
  263.     loop    ({
  264.         SNDMSG({nyuryo_f.snd});
  265.         %dir    @input({ﾃﾝﾎﾟﾗﾘﾌｧｲﾙを作成するﾃﾞｨﾚｸﾄﾘを入力して下さい\n}|
  266.                 {    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}|
  267.                 {    例  B:\NIFTY\TEMP},
  268.                 ,TEMP);
  269.         case    (@getchar(dir,2,2)={:\},
  270.             {No}, {im({Yes})},
  271.             {Yes},{TEMP:=dir;mkdir2(TEMP);im({No})});
  272.         });
  273.     };
  274.  
  275. %setARCDIR
  276.     {
  277.     SNDMSG({nyuryo_f.snd});
  278.     footnote({ディレクトリ名を入力して下さい});
  279.     %dir    @input({保存ﾌｧｲﾙを作成するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}|
  280.             {    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}|
  281.             {    例  B:\NIFTY\LOG},
  282.             ,LOG);
  283.     case    (@getchar(dir,2,2)={:\},
  284.         {No},setARCDIR,
  285.         {Yes},{LOG:=dir});
  286.     mkdir2(LOG);
  287.     };
  288.  
  289. %setARCHIVER{
  290.     var    archiver    [12];
  291.     loop    ({
  292.         SNDMSG({erande_f.snd});
  293.         footnote({圧縮プログラムを指定して下さい}|
  294.                 {  LHARC.EXE または LHA.EXE のみ可能です});
  295.         archiver:=@filesel({EXE});
  296.         case    (archiver,
  297.             {},        {im({No})},
  298.             {LHARC.EXE},    {im({No})},
  299.             {LHA.EXE},    {im({No})},
  300.             {lharc.exe},    {im({No})},
  301.             {lha.exe},    {im({No})},
  302.             ,        {im({Yes})}
  303.             );
  304.         });
  305.     case    (archiver={},
  306.         {No},
  307.         {case    (@nochar(@getcdir)=3,
  308.             {No}, {ARCHIVER:=@getcdir|{\}|archiver},
  309.             {Yes},{ARCHIVER:=@getcdir|archiver}
  310.             )},
  311.         {Yes},{ARCHIVER:={}}
  312.         );
  313.     };
  314.  
  315. /*    圧縮モードの設定    */
  316. %setCOMP{
  317.     %lha    {case    (COMPRESS={}||COMPRESS={No},
  318.             {Yes},{im({ 圧縮しない })},
  319.             {No}, {im({ 圧縮する })})};
  320.     SNDMSG({erande_f.snd});
  321.     footnote({保存ファイルは圧縮しますか？});
  322.     select    ({保存ファイルは圧縮しますか？  現在は}|@lha|{です},
  323.         Wtime4,,
  324.         {  圧縮する  },{COMPRESS:={Yes};setARCHIVER},
  325.         { 圧縮しない },{COMPRESS:={No}}
  326.         );
  327.     };
  328.  
  329. /*    ﾛｸﾞﾌｧｲﾙ作成ﾓｰﾄﾞの設定    */
  330. %setLOG    {
  331.     %mode    {case    (LOGmode,
  332.             {forum},{im({『フォーラム毎』})},
  333.             ,    {im({『 全体で一個 』})}
  334.             );
  335.         };
  336.     SNDMSG({erande_f.snd});
  337.     footnote({ログ作成モードを指定して下さい});
  338.     select    ({ログ作成モードを指定して下さい  現在は}|@mode|{です},
  339.         Wtime4,,
  340.         {フォーラム毎},{LOGmode:={forum}},
  341.         { 全体で一個 },{LOGmode:={all}}
  342.         );
  343.     };
  344.  
  345. /*    未読ﾀﾞｳﾝﾛｰﾄﾞ最大値の設定    */
  346. %setLIMIT{
  347.     %limit    {case    (LIMIT,
  348.             {},    {im({無制限})},
  349.             ,    {im(LIMIT)}
  350.             );
  351.         };
  352.     SNDMSG({erande_f.snd});
  353.     footnote({１フォーラム当たりの未読ダウンロード上限値を指定して下さい});
  354.     select    ({未読ダウンロード上限値を指定して下さい 現在は}|@limit|{です},
  355.         Wtime4,,
  356.         {  １００  },{LIMIT:={100}},
  357.         {  ２００  },{LIMIT:={200}},
  358.         {  ３００  },{LIMIT:={300}},
  359.         {  ５００  },{LIMIT:={500}},
  360.         {  ７５０  },{LIMIT:={750}},
  361.         { １０００ },{LIMIT:={1000}},
  362.         {  無制限  },{LIMIT:={}}
  363.         );
  364.     };
  365.  
  366. %setDIR    {
  367.     loop    ({
  368.         SNDMSG({erande_f.snd});
  369.         footnote({設定する情報を選択して下さい});
  370.         select    ({設定する情報を選択して下さい  << ログファイル情報 >>},
  371.             Wtime4,{im({No})},
  372.             {  保存ディレクトリの設定  },{setARCDIR;im({Yes})},
  373.             {   ログ圧縮モードの設定   },{setCOMP;im({Yes})},
  374.             {   ログ作成モードの設定   },{setLOG;im({Yes})},
  375.             { 未読ﾀﾞｳﾝﾛｰﾄﾞ最大値の設定 },{setLIMIT;im({Yes})},
  376.             { ワークディレクトリの設定 },{setTEMPDIR;im({Yes})},
  377.             {         設定終了         },{im({No})}
  378.             );
  379.         });
  380.     };
  381.  
  382. /*    背景色の設定をする    */
  383. %setCOLOR{
  384.     case    (R,{},{R:=0});
  385.     case    (G,{},{G:=0});
  386.     case    (B,{},{B:=0});
  387.     SNDMSG({erande_f.snd});
  388.     footnote({背景色の変更をします});
  389.     loop    ({
  390.         select    ({背景色の変更をします}|
  391.                 {  現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
  392.             Wtime4,{im({No})},
  393.             {赤↑},
  394.             {case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
  395.             {赤↓},
  396.             {case(R>  4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
  397.             {緑↑},
  398.             {case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
  399.             {緑↓},
  400.             {case(G>  4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
  401.             {青↑},
  402.             {case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
  403.             {青↓},
  404.             {case(B>  4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
  405.             {終了},
  406.             {im({No})}
  407.             );
  408.         });
  409.     };
  410.  
  411. /*    音声メッセージファイルのコピー    */
  412. %copySND{
  413.     [snddir]        /* 最後は｢\｣であること */
  414.     display    (BELL);
  415.     footnote({システムＣＤをセットして下さい});
  416.     select    ({システムＣＤをセットして下さい},
  417.         Wtime4,,
  418.         { ＯＫ },
  419.         {
  420.         case    (@setcdir({q:\fj\msg}),    /* v1.1    */
  421.             {Yes},
  422.             {
  423.             footnote({erande_f.sndをコピーします});
  424.             command({copy order\erande_f.snd }|snddir|{*.*});
  425.             footnote({nyuryo_f.sndをコピーします});
  426.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  427.             footnote({kaknin_f.sndをコピーします});
  428.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  429.             footnote({owata_f.sndをコピーします});
  430.             command({copy info\owata_f.snd }|snddir|{*.*});
  431.             footnote({okasi_f.sndをコピーします});
  432.             command({copy alarm\okasi_f.snd }|snddir|{*.*});
  433.             footnote({jikan_f.sndをコピーします});
  434.             command({copy info\jikan_f.snd }|snddir|{*.*});
  435.             },
  436.             {No},
  437.             {
  438.             case    (@setcdir({q:\fj2\msg}),    /* v2.1 */
  439.                 {Yes},
  440.                 {
  441.                 footnote({erande_f.sndをコピーします});
  442.                 command({copy order\erande_f.snd }|
  443.                     snddir|{*.*});
  444.                 footnote({nyuryo_f.sndをコピーします});
  445.                 command({copy order\nyuryo_f.snd }|
  446.                     snddir|{*.*});
  447.                 footnote({kaknin_f.sndをコピーします});
  448.                 command({copy order\kaknin_f.snd }|
  449.                     snddir|{*.*});
  450.                 footnote({owata_f.sndをコピーします});
  451.                 command({copy info\owata_f.snd }|snddir|{*.*});
  452.                 footnote({okasi_f.sndをコピーします});
  453.                 command({copy warning\okasi_f.snd }|
  454.                     snddir|{*.*});
  455.                 footnote({jikan_f.sndをコピーします});
  456.                 command({copy info\jikan_f.snd }|snddir|{*.*});
  457.                 });
  458.             });
  459.         footnote({});
  460.         },
  461.         { ＮＯ },
  462.         );
  463.     };
  464.  
  465. /*    音声メッセージファイルの設定    */
  466. %setSNDDIR{
  467.     SNDMSG({nyuryo_f.snd});
  468.     footnote({ディレクトリ名を入力して下さい});
  469.     %sound    @input({音声ﾒｯｾｰｼﾞﾌｧｲﾙを格納するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}
  470.             |{    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}
  471.             |{    例  A:\MOPTERM\SOUND},
  472.             ,SOUND);
  473.     case    (@getchar(sound,2,2)={:\},
  474.         {No},setSNDDIR,
  475.         {Yes},{SOUND:={}}
  476.         );
  477.     %sound2    {case    (@nochar(sound),
  478.             {3},{im(sound)},,{im(sound|{\})})};
  479.     mkdir2    (sound);
  480.     case    (@filechk(@sound2|{erande_f.snd})&&
  481.          @filechk(@sound2|{nyuryo_f.snd})&&
  482.          @filechk(@sound2|{kaknin_f.snd})&&
  483.          @filechk(@sound2|{okasi_f.snd})&&
  484.          @filechk(@sound2|{owata_f.snd})&&
  485.          @filechk(@sound2|{jikan_f.snd}),
  486.         {No},{copySND(@sound2)});
  487.     SOUND:=sound;
  488.     case(@nochar(SOUND)=3,{Yes},{SOUND2:=SOUND},{No},{SOUND2:=SOUND|{\}});
  489.     VBELL:={No};
  490.     };
  491.  
  492. /*    ｂｅｌｌｆｉｌｅの設定    */
  493. %setBELFIL{
  494.     SNDMSG({erande_f.snd});
  495.     footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
  496.     %bell    @filesel({SND});
  497.     %bell2    {case    (@nochar(@getcdir),{3},{im(@getcdir|bell)},
  498.                     ,{im(@getcdir|{\}|bell)})};
  499.     case    (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
  500.     case    (@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
  501.         {Yes},{bellfile(BELFIL)});
  502.     SOUND:={};
  503.     SOUND2:={};
  504.     VBELL:={No};
  505.     };
  506.  
  507. /*    入力プロンプトの設定    */
  508. %setPRMPT{
  509.     SNDMSG({erande_f.snd});
  510.     footnote({入力時のプロンプト方法を指定して下さい});
  511.     select    ({入力時のプロンプト方法を指定して下さい},
  512.         Wtime4,,
  513.         {   音声メッセージ   },{VBELL:={No};setSNDDIR},
  514.         {      ブザー音      },{SOUND:={};SOUND2:={};VBELL:={No}},
  515.         {   画面フラッシュ   },{SOUND:={};SOUND2:={};VBELL:={Yes}},
  516.         {指定のｓｎｄファイル},{VBELL:={No};setBELFIL}
  517.         );
  518.     visibell(VBELL);
  519.     };
  520.  
  521. /*    なっとうスクロールの設定    */
  522. %setNATTOU{
  523.     %natto    {case    (NATTOU,
  524.             {Yes},{im({『  使用する  』})},
  525.             ,     {im({『 使用しない 』})}
  526.             );
  527.         };
  528.     SNDMSG({erande_f.snd});
  529.     footnote({なっとうスクロールを使用しますか});
  530.     select    ({なっとうスクロールを使用しますか  現在は}|@natto|{です},
  531.         Wtime4,,
  532.         {  使用する  },{NATTOU:={Yes};nattou(NATTOU)},
  533.         { 使用しない },{NATTOU:={No};nattou(NATTOU)}
  534.         );
  535.     };
  536.  
  537. /*    クリック音の設定    */
  538. %setCLICK{
  539.     %clk    {case    (CLICK,
  540.             {No},{im({『 クリック音なし 』})},
  541.             ,    {im({『 クリック音あり 』})}
  542.             );
  543.         };
  544.     SNDMSG({erande_f.snd});
  545.     footnote({クリック音を出力しますか});
  546.     select    ({クリック音を出力しますか  現在は}|@clk|{です},
  547.         Wtime4,,
  548.         { クリック音あり },{CLICK:={Yes};click(CLICK)},
  549.         { クリック音なし },{CLICK:={No};click(CLICK)}
  550.         );
  551.     };
  552.  
  553. /*    タブサイズの設定    */
  554. %setTAB    {
  555.     case    (TAB,{},{TAB:=8});
  556.     SNDMSG({erande_f.snd});
  557.     footnote({タブサイズを指定して下さい});
  558.     select    ({タブサイズを指定して下さい  現在は}|TAB|{です},
  559.         Wtime4,,
  560.         { １ },{TAB:=1;tab(TAB)},
  561.         { ２ },{TAB:=2;tab(TAB)},
  562.         { ４ },{TAB:=4;tab(TAB)},
  563.         { ８ },{TAB:=8;tab(TAB)}
  564.         );
  565.     };
  566.  
  567. /*    シフトロックの設定    */
  568. %setLOCK{
  569.     %lock    {case    (LOCK,
  570.             {Yes},{im({『 シフトロックあり 』})},
  571.             ,     {im({『 シフトロックなし 』})}
  572.             );
  573.         };
  574.     SNDMSG({erande_f.snd});
  575.     footnote({シフトロックを行いますか？});
  576.     select    ({シフトロックを行いますか  現在は}|@lock|{です},
  577.         Wtime4,,
  578.         { シフトロックあり },{LOCK:={Yes};shiftl(LOCK)},
  579.         { シフトロックなし },{LOCK:={No};shiftl(LOCK)}
  580.         );
  581.     };
  582.  
  583. /*    その他の設定をする    */
  584. %setETC    {
  585.     loop    ({
  586.         SNDMSG({erande_f.snd});
  587.         footnote({設定する情報を選択して下さい});
  588.         select    ({設定する情報を拙宅して下さい  << その他の設定 >>},
  589.             Wtime4,{im({No})},
  590.             {         背景色の設定         },{setCOLOR;im({Yes})},
  591.             {     プロンプト方法の設定     },{setPRMPT;im({Yes})},
  592.             {   なっとうスクロールの設定   },{setNATTOU;im({Yes})},
  593.             {       クリック音の設定       },{setCLICK;im({Yes})},
  594.             {       タブサイズの設定       },{setTAB;im({Yes})},
  595.             {      シフトロックの設定      },{setLOCK;im({Yes})},
  596.             {           設定終了           },{im({No})}
  597.             );
  598.         });
  599.     };
  600.  
  601. /*    設定情報をファイルに保存する    */
  602. %writeSET{
  603.     setcdir(CDIR);
  604.     dispoff({Yes});
  605.     command({copy }|SETFILE|{ FAPXSET.BAK});
  606.     command({del }|SETFILE);
  607.     dispoff({No});
  608.     write(SETFILE,
  609.         {ID       :=}|@xc({7b})|ID       |@xc({7d})|{;\n}|
  610.         {PassWord :=}|@xc({7b})|PassWord |@xc({7d})|{;\n}|
  611.         {ROAD1    :=}|@xc({7b})|ROAD1    |@xc({7d})|{;\n}|
  612.         {ROAD2    :=}|@xc({7b})|ROAD2    |@xc({7d})|{;\n}|
  613.         {MODEM    :=}|@xc({7b})|MODEM    |@xc({7d})|{;\n}|
  614.         {DIAL     :=}|@xc({7b})|DIAL     |@xc({7d})|{;\n}|
  615.         {TEMP     :=}|@xc({7b})|TEMP     |@xc({7d})|{;\n}|
  616.         {LOG      :=}|@xc({7b})|LOG      |@xc({7d})|{;\n}|
  617.         {COMPRESS :=}|@xc({7b})|COMPRESS |@xc({7d})|{;\n}|
  618.         {ARCHIVER :=}|@xc({7b})|ARCHIVER |@xc({7d})|{;\n}|
  619.         {SOUND    :=}|@xc({7b})|SOUND    |@xc({7d})|{;\n}|
  620.         {LOGmode  :=}|@xc({7b})|LOGmode  |@xc({7d})|{;\n}|
  621.         {LIMIT    :=}|@xc({7b})|LIMIT    |@xc({7d})|{;\n}|
  622.         {R        :=}|@xc({7b})|R        |@xc({7d})|{;\n}|
  623.         {G        :=}|@xc({7b})|G        |@xc({7d})|{;\n}|
  624.         {B        :=}|@xc({7b})|B        |@xc({7d})|{;\n}|
  625.         {BELFIL   :=}|@xc({7b})|BELFIL   |@xc({7d})|{;\n}|
  626.         {VBELL    :=}|@xc({7b})|VBELL    |@xc({7d})|{;\n}|
  627.         {NATTOU   :=}|@xc({7b})|NATTOU   |@xc({7d})|{;\n}|
  628.         {CLICK    :=}|@xc({7b})|CLICK    |@xc({7d})|{;\n}|
  629.         {LOCK     :=}|@xc({7b})|LOCK     |@xc({7d})|{;\n}|
  630.         {TAB      :=}|@xc({7b})|TAB      |@xc({7d})|{;\n});
  631.     SETFILE1:={標準設定};
  632.     };
  633.  
  634. /*    設定情報をもとに戻す    */
  635. %CANCEL    {
  636.     SNDMSG({erande_f.snd});
  637.     footnote({本当にもとに戻してもいいですか？});
  638.     select    ({本当にもとに戻してもいいですか？},
  639.         Wtime4,,
  640.         { Ｏ Ｋ },
  641.         {case    (@filechk(SETFILE),
  642.             {Yes},
  643.             {
  644.             setcdir(CDIR);
  645.             #FAPXSET.SET;
  646.             init;
  647.             SETFILE1:={標準設定};
  648.             }
  649.             )
  650.         },
  651.         { Ｎ Ｇ },
  652.         );
  653.     };
  654.  
  655. /*    設定情報をファイルに保存する    */
  656. %SAVE    {
  657.     var    newfile    [64];
  658.     SNDMSG({erande_f.snd});
  659.     footnote({設定情報を保存するファイルを指定して下さい});
  660.     newfile:=@filesel({USR});
  661.     case    (newfile<>{},
  662.         {Yes},
  663.         {
  664.         %newdir    @getcdir;
  665.         case    (@nochar(newdir)==3,
  666.             {Yes},{newfile:=newdir|newfile},
  667.             {No},{newfile:=newdir|{\}|newfile});
  668.         dispoff({Yes});
  669.         command({del }|newfile);
  670.         dispoff({No});
  671.         write(newfile,
  672.             {ID       :=}|@xc({7b})|ID       |@xc({7d})|{;\n}|
  673.             {PassWord :=}|@xc({7b})|PassWord |@xc({7d})|{;\n}|
  674.             {ROAD1    :=}|@xc({7b})|ROAD1    |@xc({7d})|{;\n}|
  675.             {ROAD2    :=}|@xc({7b})|ROAD2    |@xc({7d})|{;\n}|
  676.             {MODEM    :=}|@xc({7b})|MODEM    |@xc({7d})|{;\n}|
  677.             {DIAL     :=}|@xc({7b})|DIAL     |@xc({7d})|{;\n}|
  678.             {TEMP     :=}|@xc({7b})|TEMP     |@xc({7d})|{;\n}|
  679.             {LOG      :=}|@xc({7b})|LOG      |@xc({7d})|{;\n}|
  680.             {COMPRESS :=}|@xc({7b})|COMPRESS |@xc({7d})|{;\n}|
  681.             {ARCHIVER :=}|@xc({7b})|ARCHIVER |@xc({7d})|{;\n}|
  682.             {SOUND    :=}|@xc({7b})|SOUND    |@xc({7d})|{;\n}|
  683.             {LOGmode  :=}|@xc({7b})|LOGmode  |@xc({7d})|{;\n}|
  684.             {LIMIT    :=}|@xc({7b})|LIMIT    |@xc({7d})|{;\n}|
  685.             {R        :=}|@xc({7b})|R        |@xc({7d})|{;\n}|
  686.             {G        :=}|@xc({7b})|G        |@xc({7d})|{;\n}|
  687.             {B        :=}|@xc({7b})|B        |@xc({7d})|{;\n}|
  688.             {BELFIL   :=}|@xc({7b})|BELFIL   |@xc({7d})|{;\n}|
  689.             {VBELL    :=}|@xc({7b})|VBELL    |@xc({7d})|{;\n}|
  690.             {NATTOU   :=}|@xc({7b})|NATTOU   |@xc({7d})|{;\n}|
  691.             {CLICK    :=}|@xc({7b})|CLICK    |@xc({7d})|{;\n}|
  692.             {LOCK     :=}|@xc({7b})|LOCK     |@xc({7d})|{;\n}|
  693.             {TAB      :=}|@xc({7b})|TAB      |@xc({7d})|{;\n});
  694.         }
  695.         );
  696.     setcdir(CDIR);
  697.     };
  698.  
  699. /*    ファイルから設定情報を読み込む    */
  700. %LOAD    {
  701.     var    newfile    [64];
  702.     SNDMSG({erande_f.snd});
  703.     footnote({設定情報を読み込むファイルを指定して下さい});
  704.     newfile:=@filesel({USR});
  705.     case    (newfile<>{},
  706.         {Yes},
  707.         {
  708.         %newdir    @getcdir;
  709.         case    (@nochar(newdir)==3,
  710.             {Yes},{newfile:=newdir|newfile},
  711.             {No},{newfile:=newdir|{\}|newfile});
  712.         case    (@filechk(newfile),
  713.             {Yes},
  714.             {
  715.             %ExcPilot {#}|newfile;
  716.             ExcPilot;
  717.             init;
  718.             SETFILE1:=@tail(newfile,{\});
  719.             }
  720.             );
  721.         }
  722.         );
  723.     setcdir(CDIR);
  724.     };
  725.  
  726. /*    設定する情報の選択    */
  727. %FAPXSET{
  728.     loop    ({
  729.         SNDMSG({erande_f.snd});
  730.         footnote({設定する情報を選択して下さい});
  731.         select    ({設定する情報を選択して下さい  << 各種の設定 >>},
  732.             Wtime4,{im({No})},
  733.             {ユーザーＩＤとパスワードの設定},{setID;   im({Yes})},
  734.             {         モデムの設定         },{setMDM;  im({Yes})},
  735.             {        電話番号の設定        },{setTEL;  im({Yes})},
  736.             {      ログファイルの設定      },{setDIR;  im({Yes})},
  737.             {         その他の設定         },{setETC;  im({Yes})},
  738.             {      もとの設定にもどす      },{CANCEL;  im({Yes})},
  739.             {   設定をファイルに保存する   },{SAVE;    im({Yes})},
  740.             {  ファイルから設定を読み込む  },{LOAD;    im({Yes})},
  741.             {      設定を保存して終了      },{writeSET;im({No})},
  742.             {   保存しない(一時的な変更)   },
  743.                         {SETFILE1:={一時設定};im({No})}
  744.             );
  745.         });
  746.     };
  747.  
  748. FAPXSET;
  749.