home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / aplikace / komunika / odywin2 / ody2wevj.lzh / CISV32.SCR < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.5 KB  |  56 lines
  1.  
  2. SCRIPT CISV32;
  3.  
  4. (*...............................................*)
  5.  
  6. FUNC Login():Flag;
  7.  
  8. VAR CISid,CISpass:String;
  9.     Ok:Flag;
  10.  
  11. BEGIN
  12.      ClrScr();
  13.      Write('==============================================|');
  14.      Write('    Calling COMPUSERVE via direct V32 line    |');
  15.      Write('==============================================|');
  16.      IF FetchStr("CIS",CISid,CISpass) THEN
  17.          IF Dial('CISV32') THEN
  18.              Ok := WaitFor("HOST NAME:",5);
  19.              IF NOT Ok THEN
  20.                  Transmit("|");
  21.                  Ok := WaitFor("HOST NAME:",40);
  22.              END;
  23.              IF Ok THEN
  24.                  Delay(1);
  25.                  Transmit('cis|');
  26.                  WaitFor('USER ID:',60);
  27.                  Delay(1);
  28.                  Transmit(CISid);
  29.                  WaitFor('PASSWORD:',60);
  30.                  Delay(1);
  31.                  Transmit(CISpass);
  32.                  RETURN TRUE;
  33.                ELSE
  34.                  Write("WaitFor failed.");
  35.                  IF OnLine() THEN HangUp() END;
  36.              END;
  37.            ELSE
  38.              Write("Dial attempt failed.");
  39.          END;
  40.        ELSE
  41.          Write("Password file does not contain 'CIS' line|");
  42.      END;
  43.      RETURN FALSE;
  44. END (*Login*);
  45.  
  46. (*...............................................*)
  47.  
  48. BEGIN
  49.      IF Login() THEN
  50.          SetCISB(TRUE,FALSE,TRUE,FALSE);
  51.          WaitFor("HOST NAME:");
  52.          SetCISB(FALSE,FALSE,TRUE,FALSE);
  53.          HangUp();
  54.      END;
  55. END;
  56.