home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / pcjr / comm / TLXPCP10.LZH / PCP2400.SLT < prev    next >
Text File  |  1988-12-11  |  2KB  |  72 lines
  1. //This area is for user configurable variables
  2.  
  3. str message_tone[]="y";
  4. str phone_no_2400_baud[]="xxx-xxxx";
  5.  
  6. ///////////////////////////////////////////////////////////////////////////////
  7. //                                                                           //
  8. //               pcp2400 v1.0 Copyright (c) by Charles Lee                   //
  9. //                       November 1988                                       //
  10. //                                                                           //
  11. ///////////////////////////////////////////////////////////////////////////////
  12.  
  13. beep(int freq)
  14. {
  15.     if((message_tone=="y")|(message_tone=="Y"))
  16.     {
  17.         tone(freq,20);
  18.     }
  19. }
  20.  
  21.  
  22. main()
  23. {
  24.     int flag;
  25.     str phone[20]="m";
  26.  
  27.     clear_scr();
  28.  
  29.     if(!carrier())
  30.     {
  31.         // Dail PCP at 1200 baud N82
  32.         strcat(phone,phone_no_2400_baud);
  33.         set_cparams(2400,0,8,2);
  34.         flag=dial(phone,0,1);
  35.         if(!flag)
  36.         {
  37.             status_wind("User aborted 2400 Baud Gateway to Pursuit!",30);
  38.             prints("+++ Gateway Aborted! +++");
  39.             beep(500);
  40.             hangup();
  41.             return;
  42.         }
  43.     }
  44.     //Logon to PCP
  45.     status_wind("Logging on to Pursuit!",30);
  46.     prints("Logging on to Pursuit!");
  47.     cputs("@");
  48.     delay(10);
  49.     cputs("D^M");
  50.     flag=waitfor("=",5);
  51.     if(!flag)
  52.     {
  53.         status_wind("Unable to log on to Pursuit!");
  54.         prints("+++ Unable to log on! +++");
  55.         beep(500);
  56.         hangup();
  57.         return;
  58.     }
  59.     else
  60.     {
  61.         cputs("D1^M");
  62.     }
  63.  
  64.  
  65.     //Successful Logon!
  66.     beep(3000);
  67.     status_wind("Success!",30);
  68.     call("citydial.slc");
  69. }
  70.  
  71.  
  72.