28 |
;; ;; |
;; ;; |
29 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
30 |
|
|
31 |
(define (GlobalRequestAttn) |
(define (GlobalRequestAttn tries) |
32 |
(chat-send "...\r") |
(if (> tries 3) |
33 |
(chat-try 25 |
(chat-failure) |
34 |
'("SITA NETWORK" (GlobalSetupEnvironment)) |
|
35 |
'("ANSNET" (chat-failure)) |
(chat-send "...\r") |
36 |
'("SATURN.BBN" (chat-failure)) |
(chat-try 25 |
37 |
'("SPRINT-IP" (chat-failure)) |
'("SITA NETWORK" (GlobalSetupEnvironment 0)) |
38 |
'("TERMINAL=" (chat-failure)) |
'("ANSNET" (chat-failure)) |
39 |
'("TERMINAL =" (chat-failure)) |
'("SATURN.BBN" (chat-failure)) |
40 |
'("\r\n@" (chat-failure)) |
'("SPRINT-IP" (chat-failure)) |
41 |
'("\r\n ?" (chat-failure)) |
'("TERMINAL=" (chat-failure)) |
42 |
'("LOCAL" (chat-failure)) |
'("TERMINAL =" (chat-failure)) |
43 |
'("ERROR" (chat-failure)) |
'("\r\n@" (chat-failure)) |
44 |
'("NO CARRIER" (chat-failure)) |
'("\r\n ?" (chat-failure)) |
45 |
'(else (begin |
'("LOCAL" (chat-failure)) |
46 |
(set! tries (+ tries 1)) |
'("ERROR" (chat-failure)) |
47 |
(if (<= (tries) 3) |
'("NO CARRIER" (chat-failure)) |
48 |
(GlobalRequestAttn) |
'(else (GlobalRequestAttn (+ tries 1)))))) |
|
(chat-failure)))))) |
|
49 |
|
|
50 |
(define (GlobalSetupEnvironment) |
(define (GlobalSetupEnvironment) |
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) |
|
(set! tries 1) |
|
53 |
(GlobalTalkToNetwork)) |
(GlobalTalkToNetwork)) |
54 |
|
|
55 |
(define (GlobalTalkToNetwork) |
(define (GlobalTalkToNetwork tries) |
56 |
(sleep 1) |
(if (> (tries) 4) |
57 |
(chat-send "NUI 22500001\r") |
(chat-failure) |
58 |
(chat-try 10 |
|
59 |
'("XXXXXX" (GlobalReqAuth)) |
(sleep 1) |
60 |
'("\r\n ?" (chat-failure)) |
(chat-send "NUI 22500001\r") |
61 |
'("ERROR" (chat-failure)) |
(chat-try 10 |
62 |
'("NO CARRIER" (chat-failure)) |
'("XXXXXX" (GlobalReqAuth)) |
63 |
'(else (begin |
'("\r\n ?" (chat-failure)) |
64 |
(set! tries (+ tries 1)) |
'("ERROR" (chat-failure)) |
65 |
(if (<= (tries) 4) |
'("NO CARRIER" (chat-failure)) |
66 |
(GlobalTalkToNetwork) |
'(else (GlobalTalkToNetwork (+ tries 1)))))) |
|
(chat-failure)))))) |
|
67 |
|
|
68 |
(define (GlobalReqAuth) |
(define (GlobalReqAuth tries) |
69 |
(sleep 1) |
(sleep 1) |
70 |
(chat-send "OPXY9F\r") |
(chat-send "OPXY9F\r") |
71 |
(chat-try 10 |
(chat-try 10 |
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)))) |
'(else (GlobalTalkToNetwork tries)))) |
77 |
|
|
78 |
(define (GlobalConnect) |
(define (GlobalConnect) |
79 |
(sleep 1) |
(sleep 1) |
106 |
;; Main entry point |
;; Main entry point |
107 |
(define (chat-connect) |
(define (chat-connect) |
108 |
(sleep 5) |
(sleep 5) |
109 |
(define (tries) 1) |
(GlobalRequestAttn 0)) |
|
(GlobalRequestAttn)) |
|