hostdemo.scr

一系列包含串口、Modem、收发传真、终端仿真等方面的编程例子

1 57600 8n1

; Configure modem and run host program

* 130
! |Control-X to exit.|

: 0
? 30
< |~at~&f&c1&d2s0=1e0|
; Change 159 below to 10 if you don't have a Class 2 faxmodem.
> 159 OK
p 5
r 110 5 255
! |Couldn't initialize modem; retrying...|
g 0

: 110
! |Error initializing modem|
q 129

: 159
0 255
< |~at~+faa=1|
> 157 OK
p 5
r 170 5 250
! |Couldn't set fax answer; retrying...|
g 159

: 170
! |Couldn't set fax answer.|
q 160

: 157
0 250
< |~at~+fcr=1|
> 151 OK
p 5
r 171 5 249
! |Couldn't enable fax receiving; retrying...|
g 157

: 171
! |Couldn't set fax receive enable.|
q 165

: 151
0 249
< |~at~+flid="Put ID Here"|
> 158 OK
p 5
r 172 5 248
! |Couldn't set fax ID; retrying...|
g 151

: 172
! |Couldn't set FLID.|
q 161

: 158
0 248
; Change below to 1,5,0,2,0,0,0,0 for 14400bps fax.
< |~at~+fdcc=1,3,0,2,0,0,0,0|
> 10 OK
p 5
r 173 5 247
g 158

: 173
! |Couldn't set fax capabilities.|
q 162

: 10
0 247
! |Awaiting connection.|
> 200 CONNECT 57600|
> 160 FAX|
p 0

: 160
; Use complete pathname for speed.
x 161 \pccp\rcvfax 1 57600 19200 \pccp\fax
g 180

: 161
! |Error spawning fax receive process.|
g 180

: 200
! |Connected.|
g 201

: 201
d 11
g 10

: 11
> 150 P
> 150 p
> 204 S
> 204 s
> 205 M
> 205 m
> 202 H
> 202 h
> 206 U
> 206 u
> 125 Q
> 125 q
> 125 NO CARRIER|
< |`0ap --> Page Operator for chat|`0a
< s --> Send message|`0a
< m --> Check for message|`0a
< h --> Public area host session|`0a
< u --> Unlimited host session|`0a
< q --> Quit|`0a`0aChoose: --> 
p 0

: 125
0 0
< |`0aTERMINATING SESSION|`0a
-
: 126
d 126
+
g 10

: 150
< |`0aStandby...|`0a
: 156
k 152 a
k 152 A
! ||~Caller requesting interactive session. Type "a" to answer.~|
w 3
r 154 5 10
g 156
: 154
< No answer to page.|`0a
g 201
: 152
0 10
x 100 c:\pccp\masterm 1 57600 8n1 +-
g 201

: 204
0 0
x 100 c:\pccp\messin 1 57600 c:\pccp\messin.txt 1000000 256
g 201

: 205
0 0
x 199 c:\pccp\messout 1 57600 c:\pccp\messdir
0 254
g 201

: 199
r 230 3 254
g 201

: 202
0 0
< |`0aPassword? -->
; ***** Enter <password>| on the following line *****
> 215 letmein|
> 125 NO CARRIER|
> 221 |
p 10
: 221
r 230 3 1
g 201

: 206
0 0
< |`0aPassword? -->
; ***** Enter <password>| on the following line *****
> 210 kowabunga|
> 125 NO CARRIER|
> 220 |
p 10
: 220
r 230 3 2
g 201

: 230
0 1
0 2
< |`0aSorry, Charlie, only the best tasting tuna get to be StarKist!|`0a
< 30-second security delay follows|`0a
> 125 NO CARRIER|
p 30
g 201

: 210
0 2
x 100 c:\pccp\session 1 57600
g 200

: 215
0 1
x 100 c:\pccp\session 1 57600 c:\pccp\library c:\pccp\contrib
g 200

: 130
! |Restoring modem...
-
: 131
d 131
+
: 132
< |~at~z|
> 20 OK
p 5
r 120 5 3
! |Couldn't restore modem; retrying...|
g 132

: 120
! |Error restoring modem.|
q 130

: 20
q 0

: 100
< |`0aThe attempt to run that program returned an error.|`0a
! |Error return|
g 201

: 30
! |Port blocked.|
q 199

: 180
< |~at~|
> 159 OK
p 5
! |Modem not responding after fax, retrying...|
g 180