29 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
30 |
;; general end function |
;; general end function |
31 |
(define (AOLConnect) |
(define (AOLConnect) |
|
(display "AOLConnect\n") |
|
32 |
(chat-try 120 |
(chat-try 120 |
33 |
'("Connected" (chat-success)) |
'("Connected" (chat-success)) |
34 |
'("Open" (chat-success)) |
'("Open" (chat-success)) |
47 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
48 |
;; Login into an ANS server type |
;; Login into an ANS server type |
49 |
(define (ANSLogin) |
(define (ANSLogin) |
|
(display "AnsLogin\n") |
|
50 |
(chat-try 20 |
(chat-try 20 |
51 |
'("login" (begin |
'("login" (begin |
52 |
(chat-send "aol\r") |
(chat-send "aol\r") |
59 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
60 |
;; Login into a BBN server type |
;; Login into a BBN server type |
61 |
(define (BBNLogin2) |
(define (BBNLogin2) |
|
(display "BBNLogin2\n") |
|
62 |
(chat-send "aolnet\r") |
(chat-send "aolnet\r") |
63 |
(chat-try 20 |
(chat-try 20 |
64 |
'("Password" (begin |
'("Password" (begin |
68 |
'(else (chat-failure)))) |
'(else (chat-failure)))) |
69 |
|
|
70 |
(define (BBNLogin) |
(define (BBNLogin) |
|
(display "BBNLogin\n") |
|
71 |
(chat-try 20 |
(chat-try 20 |
72 |
'("login" (BBNTalkToNetwork)) |
'("login" (BBNTalkToNetwork)) |
73 |
'("NO CARRIER" (chat-failure)) |
'("NO CARRIER" (chat-failure)) |
78 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
79 |
;; Login into a Sprint server type |
;; Login into a Sprint server type |
80 |
(define (SprintLogin2) |
(define (SprintLogin2) |
|
(display "SprintLogin2\n") |
|
81 |
(chat-send "aol\r") |
(chat-send "aol\r") |
82 |
(chat-try 20 |
(chat-try 20 |
83 |
'("Password" (begin |
'("Password" (begin |
87 |
'(else (chat-failure)))) |
'(else (chat-failure)))) |
88 |
|
|
89 |
(define (SprintLogin) |
(define (SprintLogin) |
|
(display "SprintLogin\n") |
|
90 |
(chat-try 20 |
(chat-try 20 |
91 |
'("Username" (SprintLogin2)) |
'("Username" (SprintLogin2)) |
92 |
'("login" (SprintLogin2)) |
'("login" (SprintLogin2)) |