home *** CD-ROM | disk | FTP | other *** search
-
- SCRIPT CISV32;
-
- (*...............................................*)
-
- FUNC Login():Flag;
-
- VAR CISid,CISpass:String;
- Ok:Flag;
-
- BEGIN
- ClrScr();
- Write('==============================================|');
- Write(' Calling COMPUSERVE via direct V32 line |');
- Write('==============================================|');
- IF FetchStr("CIS",CISid,CISpass) THEN
- IF Dial('CISV32') THEN
- Ok := WaitFor("HOST NAME:",5);
- IF NOT Ok THEN
- Transmit("|");
- Ok := WaitFor("HOST NAME:",40);
- END;
- IF Ok THEN
- Delay(1);
- Transmit('cis|');
- WaitFor('USER ID:',60);
- Delay(1);
- Transmit(CISid);
- WaitFor('PASSWORD:',60);
- Delay(1);
- Transmit(CISpass);
- RETURN TRUE;
- ELSE
- Write("WaitFor failed.");
- IF OnLine() THEN HangUp() END;
- END;
- ELSE
- Write("Dial attempt failed.");
- END;
- ELSE
- Write("Password file does not contain 'CIS' line|");
- END;
- RETURN FALSE;
- END (*Login*);
-
- (*...............................................*)
-
- BEGIN
- IF Login() THEN
- SetCISB(TRUE,FALSE,TRUE,FALSE);
- WaitFor("HOST NAME:");
- SetCISB(FALSE,FALSE,TRUE,FALSE);
- HangUp();
- END;
- END;
-