str user_name[] = "Dann Way";       // Put your PCBRelay Logon name here.
main () {

 int stat;
 int t1,
     t2,
     t3,
     t4;

 int tmark;

dial ("20", 0);                      // Phone Directory Number for HUB
clear_scr();

if (not _entry_pass)                 // Check for Correct Password
  {
   prints ("Sorry, I don't know the password for this BBS!");
   return;
  }
if (waitfor("graphics", 30))         // When connected to PCBRelay HUB
   {                                  // Use  the  Quick  Logon without 
      delay(5);                       // Graphics and bypass the News       
      cputs("N Q NS");                // screens  
      cputs("^M");
    }
if (waitfor("first name?", 180))
   {
      cputs(user_name);
      cputs("^M");
   }
   else
   {
      prints("Log-on failed !! ");
      return;
   }
if (waitfor("Password", 20))
   {
      cputs(_entry_pass);
      cputs("^M");
   }
   else
   {
      prints("Log-on failed !! ");
      return;
   }
  t1 = track("Press (Enter) to", 1);
  t2 = track("Scan Message Base", 1);
  t3 = track("More: (Y), (N), (NS)?", 1);
  t4 = track("Board Command?", 1);

tmark = timer_start(1800);           // Wait up to 3 minutes

   while (not time_up(tmark))
   {
      terminal();                     // Process any characters and keys

      stat = track_hit(0);            // Determine which track (if any) 
                                      // was hit
   if (stat == t1)
    {
     delay(1);
     cputs("^M");
    }
     else if (stat == t2)
      {
       delay(5);
       cputs("N^M");
      }
     else if (stat == t3)
      {
       delay(5);
       cputs("Y^M");
      }
     else if (stat == t4)
      {
       delay(5);
       cputs("Open 10^M");            // The number of the HUB PCBRelay Door
       break;
      }
   }

  if (time_up(1))
      prints("Log-on failed !! ");
  timer_free(tmark);                  // Free timer channel
  track_free(0);                      // and all track channels

delay(10);

send('Z', "HUBNOHIO.RLY");               // Send Your NETID PCBRelay Messages
                                      // Make sure that you change NETID.RLY
delay(100);                           // to your NetId, eg - MAGICK.RLY. 

receive('Z', "");                     // Receive Your PCBRelay Messages
                                      // from the regional HUB        
 if (waitfor("carrier", 180))
   {
      hangup();
   }
 cputs_tr ("ATM0H1^M");
 exittelix(0, 1);

}