28 |
;; ;; |
;; ;; |
29 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
30 |
|
|
31 |
(define (GlobalRequestAttn tries) |
(define (request-attn tries) |
32 |
(if (> tries 3) |
(if (> tries 3) |
33 |
(chat-failure) |
(chat-failure) |
34 |
|
|
35 |
(chat-send "...\r") |
(chat-send "...\r") |
36 |
(chat-try 25 |
(chat-try 25 |
37 |
'("SITA NETWORK" (GlobalSetupEnvironment 0)) |
'("SITA NETWORK" (setup-environment 0)) |
38 |
'("ANSNET" (chat-failure)) |
'("ANSNET" (chat-failure)) |
39 |
'("SATURN.BBN" (chat-failure)) |
'("SATURN.BBN" (chat-failure)) |
40 |
'("SPRINT-IP" (chat-failure)) |
'("SPRINT-IP" (chat-failure)) |
45 |
'("LOCAL" (chat-failure)) |
'("LOCAL" (chat-failure)) |
46 |
'("ERROR" (chat-failure)) |
'("ERROR" (chat-failure)) |
47 |
'("NO CARRIER" (chat-failure)) |
'("NO CARRIER" (chat-failure)) |
48 |
'(else (GlobalRequestAttn (+ tries 1)))))) |
'(else (request-attn (+ tries 1)))))) |
49 |
|
|
50 |
(define (GlobalSetupEnvironment) |
(define (setup-snvironment) |
51 |
(chat-send "SET 1:0,2:0,21:0\r") |
(chat-send "SET 1:0,2:0,21:0\r") |
52 |
(sleep 1) |
(sleep 1) |
53 |
(GlobalTalkToNetwork)) |
(talk-to-network)) |
54 |
|
|
55 |
(define (GlobalTalkToNetwork tries) |
(define (talk-to-network tries) |
56 |
(if (> (tries) 4) |
(if (> (tries) 4) |
57 |
(chat-failure) |
(chat-failure) |
58 |
|
|
59 |
(sleep 1) |
(sleep 1) |
60 |
(chat-send "NUI 22500001\r") |
(chat-send "NUI 22500001\r") |
61 |
(chat-try 10 |
(chat-try 10 |
62 |
'("XXXXXX" (GlobalReqAuth)) |
'("XXXXXX" (req-auth (+ tries 1))) |
63 |
'("\r\n ?" (chat-failure)) |
'("\r\n ?" (chat-failure)) |
64 |
'("ERROR" (chat-failure)) |
'("ERROR" (chat-failure)) |
65 |
'("NO CARRIER" (chat-failure)) |
'("NO CARRIER" (chat-failure)) |
66 |
'(else (GlobalTalkToNetwork (+ tries 1)))))) |
'(else (talk-to-network (+ tries 1)))))) |
67 |
|
|
68 |
(define (GlobalReqAuth tries) |
(define (req-auth tries) |
69 |
(sleep 1) |
(sleep 1) |
70 |
(chat-send "OPXY9F\r") |
(chat-send "OPXY9F\r") |
71 |
(chat-try 10 |
(chat-try 10 |
72 |
'("ACTIVE" (GlobalConnect)) |
'("ACTIVE" (aol-connect)) |
73 |
'("\r\n ?" (chat-failure)) |
'("\r\n ?" (chat-failure)) |
74 |
'("ERROR" (chat-failure)) |
'("ERROR" (chat-failure)) |
75 |
'("NO CARRIER" (chat-failure)) |
'("NO CARRIER" (chat-failure)) |
76 |
'(else (GlobalTalkToNetwork tries)))) |
'(else (talk-to-network tries)))) |
77 |
|
|
78 |
(define (GlobalConnect) |
(define (aol-connect) |
79 |
(sleep 1) |
(sleep 1) |
80 |
(chat-send "LINE(256)9001131,windows 0001\r") |
(chat-send "LINE(256)9001131,windows 0001\r") |
81 |
(chat-try 23 |
(chat-try 23 |
106 |
;; Main entry point |
;; Main entry point |
107 |
(define (chat-connect) |
(define (chat-connect) |
108 |
(sleep 5) |
(sleep 5) |
109 |
(GlobalRequestAttn 0)) |
(request-attn 0)) |