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 / PCP1200.SLT < prev    next >
Text File  |  1988-12-11  |  2KB  |  70 lines
  1. //This area is for user configurable variables
  2.  
  3. str message_tone[]="y";
  4. str phone_no_1200_baud[]="xxx-xxxx";
  5.  
  6. ///////////////////////////////////////////////////////////////////////////////
  7. //                                                                           //
  8. //                   pcp1200 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. main()
  22. {
  23.     int flag;
  24.     str phone[20]="m";
  25.  
  26.     clear_scr();
  27.     if(!carrier())
  28.     {
  29.         // Dail PCP at 1200 baud N82
  30.         strcat(phone,phone_no_1200_baud);
  31.         set_cparams(1200,0,8,2);
  32.         flag=dial(phone,0,1);
  33.         if(!flag)
  34.         {
  35.             status_wind("User aborted 1200 Baud Gateway to Pursuit!",30);
  36.             prints("+++ Gateway Aborted! +++");
  37.             beep(500);
  38.             hangup();
  39.             return;
  40.         }
  41.     }
  42.     //Logon to PCP
  43.     status_wind("Logging on to Pursuit!",30);
  44.     prints("Logging on to Pursuit!");
  45.     cputs("^M");
  46.     delay(10);
  47.     cputs("D^M");
  48.     flag=waitfor("=",5);
  49.     if(!flag)
  50.     {
  51.         status_wind("Unable to log on to Pursuit!");
  52.         prints("+++ Unable to log on! +++");
  53.         beep(500);
  54.         hangup();
  55.         return;
  56.     }
  57.     else
  58.     {
  59.         cputs("D1^M");
  60.     }
  61.  
  62.  
  63.     //Successful Logon!
  64.     beep(3000);
  65.     status_wind("Success!",30);
  66.     call("citydial.slc");
  67. }
  68.  
  69.  
  70.