= fakeFEP.def
* m
1 ^\ "fakeFEP"
        ?.
        &00
        mx+,
        (wt)?{ #W b=id, }
        &s ss2, #E &?("start /wait %s",pr) #m #[
        a-, sn[+, #O &?("%sfakeFEP.TMP",pi) #m
                (s)?{ #[ #[ a+, } sn],
        (a)?{ &d . }
        ps[=pr, #56 &o($1b) #m #m "AY" ps],
        #_ #> #b #^ #< ek[+,
:C      #k (mb)?{ #W #< #i #W >C }
        mr-, #C (wt)?{ &#T(-b) #W } #i ek], &d

00:     &Sp(pr,"%sfakeFEP.EXE",pi)
        &01 (r==0)? { &m("Windows 上で実行してください") &q . }
        (r==-1)?{ &m("fakeFEP.EXE が VZDEF ディレクトリにありません") &q . }

01:     &Sc(pa,pi,3) dx=pa, di=pa+5,
        bx-, cx=50, ax=$71A0, &i($21) (ax==$7100 || r)?{ (0) . }
        ax$4300, dx=pr, &i($21) (r)?{ (-1) . } (1)
*
=