home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / mopterm / fapx405b / fapx3am.plp next >
Text File  |  1992-08-19  |  781b  |  29 lines
  1. /************************************************************************/
  2. /*    ＮＩＦＴＹの割引料金時間帯に自動実行開始する            */
  3. /************************************************************************/
  4. %WAIT3AM{
  5.     footnote({3:00am - 7:59amの間に自動開始します。　PF12:即時実行});
  6.     dispoff({Yes});
  7.     command({del }|TEMP2|{*.tmp});
  8.     write(TEMP2|{_moptemp.tmp},{\n});
  9.     loop    ({
  10.         command({time >}|TEMP2|{_moptime.tmp <}|TEMP2|{_moptemp.tmp});
  11.         case    (@getchar(@read(TEMP2|{_moptime.tmp},1,1),14,2),
  12.             { 3},{im({No})},{ 4},{im({No})},
  13.             { 5},{im({No})},{ 6},{im({No})},
  14.             { 7},{im({No})},
  15.             ,
  16.             {
  17.             waitx(1200);
  18.             case    (@xtype,
  19.                 {-2},    {im({Yes})},    /* timeout */
  20.                 {112},    {im({No})}    /* PF12 */
  21.                 );
  22.             }
  23.             );
  24.         });
  25.     dispoff({No});
  26.     };
  27.  
  28. WAIT3AM;
  29.