home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / open / execslt.lzh / EXECSLT.SLT
Text File  |  1989-04-15  |  574b  |  35 lines
  1. //  Logon Script execpc.slt
  2.  
  3.  
  4. main()
  5. {
  6.  if(!waitfor("ST name -> ", 20))
  7.   {
  8.    errorpt("Timeout: Logon failed");
  9.    return -1;
  10.   }
  11.  cputs("ENTER FIRST NAME HERE^M");
  12.  
  13.  if(!waitfor("ST name -> ", 20))
  14.   {
  15.    errorpt("Timeout: Logon failed");
  16.    return -1;
  17.   }
  18.  cputs("ENTER LAST NAME HERE^M");
  19.  
  20.  if(!waitfor("assword -> ", 20))
  21.   {
  22.    errorpt("Timeout: Logon failed");
  23.    return -1;
  24.   }
  25.  cputs("ENTER PASSWORD HERE^M");
  26.  
  27. }
  28.  
  29. errorpt (str s)
  30. {
  31.  box(38-(strlen(s)/2),11,40+(strlen(s)/2),13,2,0,10);
  32.  pstraxy(s,39-(strlen(s)/2),12,3);
  33. }
  34.  
  35.