home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / mopterm / fapx405b / fapxpltx.plp < prev    next >
Text File  |  1992-08-19  |  2KB  |  94 lines
  1. /************************************************************************
  2. *    共通ルーチン                            *
  3. *************************************************************************/
  4. /*    ﾌｧｲﾙ名にﾜｲﾙﾄﾞｶｰﾄﾞ(*,?)が含まれるかﾁｪｯｸする    */
  5. %wild    {
  6.     [file1]
  7.     case    (@nochar(file1)==0,
  8.         {Yes},{im({No})},
  9.         {No},
  10.         {
  11.         case    (@getchar(file1,1,1),
  12.             {*},{im({Yes})},
  13.             {?},{im({Yes})},
  14.             ,{im(@wild(@getchar(file1,2)))}
  15.             );
  16.         }
  17.         );
  18.     };
  19.  
  20. /*    入力ファイル選択（ワイルドカード不可）    */
  21. %FILEsel0{
  22.     [MSG,TYP]
  23.     SNDMSG({erande_f.snd});
  24.     footnote(MSG);
  25.     case    (TYP={},
  26.         {Yes},{OLDFILE:=@filesel},
  27.         {No},{OLDFILE:=@filesel(TYP)}
  28.         );
  29.     OLDDIR:=@getcdir;
  30.     case    (OLDFILE={},
  31.         {Yes},
  32.         {im({})},
  33.         {No},
  34.         {
  35.         case    (@wild(OLDFILE),
  36.             {Yes},
  37.             {
  38.             display({ワイルドカード指定はできません\n});
  39.             FILEsel0(MSG,TYP);
  40.             },
  41.             {No},
  42.             {
  43.             case    (@nochar(OLDDIR)==3,
  44.                 {Yes},{OLDFILE:=OLDDIR|OLDFILE},
  45.                 {No},{OLDFILE:=OLDDIR|{\}|OLDFILE});
  46.             case    (@filechk(OLDFILE),
  47.                 {No},
  48.                 {
  49.                 SNDMSG({okasi_f.snd});
  50.                 display(OLDFILE|{がありません\n});
  51.                 FILEsel0(MSG,TYP);
  52.                 },
  53.                 {Yes},
  54.                 {im(OLDFILE)}
  55.                 );
  56.             }
  57.             );
  58.         }
  59.         );
  60.     };
  61.  
  62. /*    パイロットファイル実行    */
  63. %FAPXPLTX{
  64.     loop    ({
  65.         case    (@FILEsel0({オートパイロットファイルを指定して下さい},)
  66.                     ={},
  67.             {Yes},{im({No})},
  68.             {No},
  69.             {
  70.             case    (@tail(OLDFILE,{.})={PLT}||
  71.                  @tail(OLDFILE,{.})={PLP},
  72.                 {Yes},
  73.                 {
  74.                 %ExcPilot {setcdir(OLDDIR);#}|OLDFILE;
  75.                 ExcPilot;
  76.                 im({Yes});
  77.                 },
  78.                 {No},
  79.                 {
  80.                 SNDMSG({okasi_f.snd});
  81.                 display(OLDFILE|{ は実行できません});
  82.                 im({Yes});
  83.                 }
  84.                 );
  85.             }
  86.             );
  87.         });
  88.     };
  89.  
  90. var    OLDDIR    [64];
  91. var    OLDFILE    [64];
  92.  
  93. FAPXPLTX;
  94.