home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 5
/
FREESOFT.BIN
/
mopterm
/
fapx405b
/
fapxpltx.plp
< prev
next >
Wrap
Text File
|
1992-08-19
|
2KB
|
94 lines
/************************************************************************
* 共通ルーチン *
*************************************************************************/
/* ファイル名にワイルドカード(*,?)が含まれるかチェックする */
%wild {
[file1]
case (@nochar(file1)==0,
{Yes},{im({No})},
{No},
{
case (@getchar(file1,1,1),
{*},{im({Yes})},
{?},{im({Yes})},
,{im(@wild(@getchar(file1,2)))}
);
}
);
};
/* 入力ファイル選択(ワイルドカード不可) */
%FILEsel0{
[MSG,TYP]
SNDMSG({erande_f.snd});
footnote(MSG);
case (TYP={},
{Yes},{OLDFILE:=@filesel},
{No},{OLDFILE:=@filesel(TYP)}
);
OLDDIR:=@getcdir;
case (OLDFILE={},
{Yes},
{im({})},
{No},
{
case (@wild(OLDFILE),
{Yes},
{
display({ワイルドカード指定はできません\n});
FILEsel0(MSG,TYP);
},
{No},
{
case (@nochar(OLDDIR)==3,
{Yes},{OLDFILE:=OLDDIR|OLDFILE},
{No},{OLDFILE:=OLDDIR|{\}|OLDFILE});
case (@filechk(OLDFILE),
{No},
{
SNDMSG({okasi_f.snd});
display(OLDFILE|{がありません\n});
FILEsel0(MSG,TYP);
},
{Yes},
{im(OLDFILE)}
);
}
);
}
);
};
/* パイロットファイル実行 */
%FAPXPLTX{
loop ({
case (@FILEsel0({オートパイロットファイルを指定して下さい},)
={},
{Yes},{im({No})},
{No},
{
case (@tail(OLDFILE,{.})={PLT}||
@tail(OLDFILE,{.})={PLP},
{Yes},
{
%ExcPilot {setcdir(OLDDIR);#}|OLDFILE;
ExcPilot;
im({Yes});
},
{No},
{
SNDMSG({okasi_f.snd});
display(OLDFILE|{ は実行できません});
im({Yes});
}
);
}
);
});
};
var OLDDIR [64];
var OLDFILE [64];
FAPXPLTX;