home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / mopterm / fapx405b / fapxlgin.plp < prev    next >
Text File  |  1992-08-19  |  4KB  |  160 lines
  1. /************************************************************************
  2. *    ログイン処理                            *
  3. *************************************************************************/
  4. /*    初期設定処理    */
  5. %initmode{
  6.     case    (@tail(MODEM,{00}),
  7.         {m},{rscs({Yes});xon({Yes})},
  8.         {n},{rscs({No});xon({Yes})});
  9.     ctrl    ({Yes});
  10.     esc    ({Yes});
  11.     stopbit    ({1});
  12.     parity    ({None});
  13.     lineend    ({CR});
  14.     flyingx    ({No});
  15.     dataleng({8bit});
  16.     logprint({No});
  17.     flyline    ({3});
  18.     sendtype({Line});
  19.     dispecho({Yes});
  20.     setoak    ({J});
  21.     };
  22.  
  23. /*  type @p */
  24. %typeCNIF{
  25.     var    N    [2];
  26.     N:=0;
  27.     loop    ({
  28.         type({C NIF\n});
  29.         wait    (Wtime2,{callrd1;im({No})},
  30.             {HOST NAME?\n*},
  31.             {case    (N<5,    {No},{callrd1;im({No})},
  32.                     {Yes},{im({Yes})})},
  33.             {Enter},{im({No})}
  34.             );
  35.         N:=N+1;
  36.         });
  37.     };
  38.  
  39.         
  40. %Road2p    {
  41.     wait    (6,{type({@P\n})});
  42.     wait    (Wtime2,callrd1,
  43.         {HOST NAME?\n*},typeCNIF);
  44.     };
  45.  
  46. /*  type .00+ and retry */
  47. %type00    {
  48.     var    N    [2];
  49.     N:=0;
  50.     loop    ({
  51.         wait(2);
  52.         type({.00+});
  53.         wait    (Wtime2,{callrd2;im({No})},
  54.             {71+},{callrd2;im({No})},
  55.             {46+},
  56.             {case    (N<5,    {No},{callrd2;im({No})},
  57.                     {Yes},{im({Yes})})},
  58.             {+\n00+},
  59.             {case    (N<5,    {No},{callrd2;im({No})},
  60.                     {Yes},{im({Yes})})},
  61.             {Enter},{im({No})}
  62.             );
  63.         N:=N+1;
  64.         });
  65.     };
  66.  
  67. %callrd1{
  68.     case    (ROAD1={},
  69.         {Yes},callrd2,
  70.         {No},
  71.         {
  72.         display({\nＲＯＡＤ１に電話をかけます\n});
  73.         case    (@nth(ROAD1,2,{/})={1200},
  74.             {Yes},{baud(1200)},
  75.             {No},
  76.             {
  77.             case(@getchar(@nth(MODEM,2,{_}),1,4)={1200},
  78.                 {Yes},{baud(1200)},{No},{baud(2400)});
  79.             }
  80.             );
  81.         dialone({AT}|@nth(MODEM,1,{/})|@nth(MODEM,2,{/})|
  82.             {D}|DIAL|@nth(ROAD1,1,{/}),type00,callrd2);
  83.         }
  84.         );
  85.     };
  86.  
  87. %callrd2{
  88.     case    (ROAD2={},
  89.         {Yes},callrd1,
  90.         {No},
  91.         {
  92.         display({\nＲＯＡＤ２に電話をかけます\n});
  93.         case(@getchar(@nth(MODEM,2,{_}),1,4)={1200},
  94.             {Yes},{baud(1200)},{No},{baud(2400)});
  95.         dialone({AT}|@nth(MODEM,1,{/})|@nth(MODEM,2,{/})|
  96.             {D}|DIAL|ROAD2,Road2p,callrd1);
  97.         }
  98.         );
  99.     };
  100.  
  101. /************************************************************************
  102. *    オートパイロット開始処理                    *
  103. *************************************************************************/
  104. %AUTOLOGIN
  105.     {
  106.     display({ＮＩＦＴＹへの接続を開始します\n\n});
  107.     footnote({ＮＩＦＴＹへの接続処理をしています});
  108.     initmode;                /* 各種初期設定 */
  109.     case    (ROAD1={}&&ROAD2={}||ID={},
  110.         {Yes},
  111.         {
  112.         display({電話番号かユーザーＩＤが指定されていません});
  113.         footnote({電話番号とユーザーＩＤを指定して下さい});
  114.         SNDMSG({okasi_f.snd});
  115.         },
  116.         {No},
  117.         {
  118.         callrd2;
  119.         WAITCHAR(Wtime2,{Connection-ID  --->},{type({SVC\n})});
  120.         wait    (Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  121.             {Enter User-ID  --->},{type(ID|{\n})},
  122.             {\n INPUT Error},
  123.             {AbortOff(
  124.                 {\nあれぇ？『SVC』受け付けてくれないよぉ～\n})}
  125.             );
  126.         wait    (Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  127.             {Enter Password --->},
  128.             {
  129.             case    (PassWord={*}||PassWord={},
  130.                 {Yes},
  131.                 {
  132.                 SNDMSG({nyuryo_f.snd});
  133.                 type(@input(
  134.                     {パスワードを入力してください})|{\n});
  135.                 },
  136.                 {No},
  137.                 {type(PassWord|{\n})}
  138.                 );
  139.             wait    (Wtime2,
  140.                 {AbortOff({\nホストの反応が鈍いよぉ～\n})},
  141.                 {\n Password ERROR},
  142.                 {AbortOff(
  143.                     {\nパスワードがおかしいですよ？\n})},
  144.                 {NIFTY-Serve     TOP},{WAITABORT(Wtime2)},
  145.                 {CUG トップ},GONIF,    /* CUG */
  146.                 {\n＞},{type({\n});TOPMENU}
  147.                 );
  148.             type({SET MENU ON\n});WAITABORT(Wtime2);
  149.             type({SET FF OFF\n});WAITABORT(Wtime2);
  150.             type({SET PAGE OFF\n});WAITABORT(Wtime2);
  151.             },
  152.             {\n User-ID Error},
  153.             {AbortOff({\nＩＤが間違ってませんか？\n})}
  154.             );
  155.         }
  156.         );
  157.     };
  158.  
  159. AUTOLOGIN;
  160.