Communications for ToolBook
Communications for ToolBook
CommBook
Configure
communications
communication
B	t"@
D"l 8bjaR
CommBook
System
Tms Rmn
`D|D|
`D|D|
Fixed
`D|D|
Courier
`D|D|
gglobalAlloc (
gglobalFree (
globalLock (
gglobalReAlloc(
DWORD globalSize(
gglobalUnlock(
X"user"
BuildCommDCB(STRING, POINTER)
-- (lpDef (mode 
), lpDCB)
ClearCommBreak(
-- (nCid)
EscapeCommFunction(
9, nFunc)
FlushComm(
^, 0=xmit buffer | 1=rcv 
GetCommError(
-- errorcode
, lpCommStat) 
yjust returns 
GetCommEventMask(
-- eventmask
GetCommState(
(lpComName, wSizeInQueue, wSizeOutQueue)
ReadComm(
nChar read
, lpBuf, nNumberCharToRead)
SetCommBreak(
SetCommEventMask(
-- * state 
, nEvtMask)
SetCommState(
 device control block, a 42-
Iarray
TransmitCommChar(
, cChar)
UngetCommChar(
WriteComm(
-- n 
written
oWrite)
4svhBuf, svPtrBuf, svhCommStat, svPtrCommStat, svhDCB, svPtrDCB
66, 255)
66, 255)
66, 255)
globalunLock (
4svCid
 (pComPort 
8,200,200)
% < 0
 = " & 
LinkDlls
AllocBuffers
LeaveBook
FreeBuffers
OpenComm
EnterBook
CloseComm
EnterBook
SizeToPage
wjLinkDlls
AllocBuffers
zkOpenComm
LeaveBook
CloseComm
FreeBuffers
LinkDlls
kernel
globalAlloc
globalFree
globalLock
globalReAlloc
globalSize
globalUnlock
BuildCommDCB
ClearCommBreak
CloseComm
EscapeCommFunction
FlushComm
GetCommError
GetCommEventMask
GetCommState
OpenComm
ReadComm
SetCommBreak
SetCommEventMask
SetCommState
TransmitCommChar
UngetCommChar
WriteComm
AllocBuffers
globalAlloc
globalLock
globalAlloc
globalLock
globalAlloc
globalLock
svhBuf
svPtrBuf
svhCommStat
svPtrCommStat
svhDCB
svPtrDCB
FreeBuffers
globalunLock
globalFree
globalunLock
globalFree
globalunLock
globalFree
svhBuf
svPtrBuf
svhCommStat
svPtrCommStat
svhDCB
svPtrDCB
OpenComm
pComPort
OpenComm
OpenComm = 
svCid
CloseComm
CloseComm
svCid
urier
`D|D|
`D|D|
pComPort
Tms Rmn
`D|D|
EnterBook
SEND InitMenus
SizeToPage
LinkDlls
$AllocBuffers
3OpenComm
LeaveBook
MCloseComm
YFreeBuffers
c"&Modem" 
e"&Configure" 
c"modem" 
e"&Save Settings" 
e"&Dial" 
e"&Hangup" 
X"kernel"
gglobalAlloc (
gglobalFree (
globalLock (
gglobalReAlloc(
DWORD globalSize(
gglobalUnlock(
X"user"
GetCurrentTime()
 functions
BuildCommDCB(STRING, POINTER)
-- (lpDef (
), lpDCB)
ClearCommBreak(
-- (nCid)
EscapeCommFunction(
9, nFunc)
FlushComm(
^, 0=xmit buffer | 1=rcv 
GetCommError(
-- errorcode
, lpCommStat) 
yjust returns 
GetCommEventMask(
-- eventmask
GetCommState(
(lpComName, wSizeInQueue, wSizeOutQueue)
ReadComm(
nChar read
, lpBuf, nNumberCharToRead)
SetCommBreak(
SetCommEventMask(
-- * state 
, nEvtMask)
SetCommState(
 device control block, a 42-
Iarray
TransmitCommChar(
, cChar)
UngetCommChar(
WriteComm(
, Pointer, 
-- n 
written
oWrite)
4svhBuf, svPtrBuf, svhCommStat, svPtrCommStat, svhDCB, svPtrDCB
66, 1020)
66, 16)
66, 255)
globalunLock (
4svCid
 (pComPort 
8,1000,1000)
' < 0
8& " 
xavailable."
SaveSettings
vLocal 
"Communications"
vRemote 
DisplayCommStat
"communication" 
"Recv" 
"Xmit" 
(TRUE)
 fNumber
("What 
zyou want 
dial?" 
vNum 
,0) --flush the 
queue
,1) --
SendCommString 
"Originate" 
	ReadDelay "OK", 5
"DialP" 
"DialS" 
"The 
zhas been dialed; 
talk, pick up "\
& "your phone 
press ""Voice."" " 
--nothing here
fString
 & CRLF
vStrCnt 
N) +1
vHangupP 
vHangupS 
IdlePause fDur
vStart 
s	 - vstart) > 
2*1000
fResponse, 
,1) --
vCnt 
 * 1000
eeBuffers
EnterBook
OpenComm
InitMenus
CloseComm
Configure
LinkDlls
SaveSettings
LeaveBook
SendCommString
AllocBuffers
Hangup
IdlePause
FreeBuffers
ReadDelay
DisplayCommStat
EnterBook
InitMenus
SizeToPage
wjLinkDlls
AllocBuffers
zkOpenComm
LeaveBook
CloseComm
FreeBuffers
InitMenus
&Modem
&Configure
modem
&Save Settings
modem
modem
&Dial
modem
&Hangup
modem
Hangup
LinkDlls
kernel
globalAlloc
globalFree
globalLock
globalReAlloc
globalSize
globalUnlock
GetCurrentTime
BuildCommDCB
ClearCommBreak
CloseComm
EscapeCommFunction
FlushComm
GetCommError
GetCommEventMask
GetCommState
OpenComm
ReadComm
SetCommBreak
SetCommEventMask
SetCommState
TransmitCommChar
UngetCommChar
WriteComm
AllocBuffers
globalAlloc
globalLock
globalAlloc
globalLock
globalAlloc
globalLock
svhBuf
svPtrBuf
svhCommStat
svPtrCommStat
svhDCB
svPtrDCB
FreeBuffers
globalunLock
globalFree
globalunLock
globalFree
globalunLock
globalFree
svhBuf
svPtrBuf
svhCommStat
svPtrCommStat
svhDCB
svPtrDCB
OpenComm
pComPort
OpenComm
Port 
pComPort
 is not available.
svCid
CloseComm
CloseComm
svCid
Configure
Configure
SaveSettings
Local
Communications
Local
Communications
Remote
Communications
Remote
Communications
Local
Communications
Remote
Communications
vRemote
vLocal
DisplayCommStat
GetCommError
control
communication
communication
communication
svPtrCommStat
svCid
Hangup
What number do you want to dial?
FlushComm
FlushComm
GetCommError
SendCommString
Originate
Configure
ReadDelay
SendCommString
DialP
Configure
DialS
Configure
ReadDelay
The number has been dialed; if you wish to talk, pick up 
your phone and press "Voice." 
Voice
Modem
Hang up
Voice
Hangup
The modem is off line.
Hang up
Hangup
Modem
svCid
svPtrBuf
svPtrCommStat
fNumber
SendCommString
GetCommError
WriteComm
vStrCnt
svCid
svPtrBuf
svPtrCommStat
fString
Hangup
HangupP
Configure
HangupS
Configure
SendCommString
SendCommString
Hangup
vHangupS
vHangupP
IdlePause
GetCurrentTime
GetCurrentTime
vstart
vStart
ReadDelay
GetCurrentTime
FlushComm
GetCurrentTime
ReadComm
error
vStart
svCid
svPtrBuf
fResponse
`D|D|
svCid
svPtrBuf
svPtrCommStat
fNumber
SendCommString
GetCommError
WriteComm
vStrCnt
svCid
svPtrBuf
svPtrCommStat
fString
Hangup
HangupP
Configure
HangupS
Configure
SendCommString
SendCommString
Hangup
vHangupS
vHangupP
IdlePause
GetCurrentTime
GetCurrentTime
vstart
vStart
ReadDelay
GetCurrentTime
FlushComm
GetCurrentTime
ReadComm
error
vStart
svCid
svPtrBuf
fResponse
communication
EnterPage
SEND SetDirect
Modem 
"Configure"
4svDirect
4svPtrBuf, svCid, svPtrCommStat
find out 
anything 
waiting 
the buffer
Displaycommstat()
GetCommError(
vCnt 
--now 
vReadCnt 
ReadComm (
1000)
errors
dispError 
event mask
GetCommEventMask(
--sz 
"Remote"
"remote"
"Local"
SetDirect
EnterPage
buttonup
EnterPage
SetDirect
kSetModem
Configure
SetDirect
Direct
svDirect
Displaycommstat
GetCommError
ReadComm
Displaycommstat
GetCommError
GetCommEventMask
Remote
remote
remote
remote
dispError
vReadCnt
svPtrBuf
svCid
svPtrCommStat
buttonup
Local
pxmit
Direct
local
Local
4svCid,svDirect
KeyReturn
TransmitCommChar (
: CR)
E LF)
keychar
keychar
TransmitCommChar
TransmitCommChar
TransmitCommChar
KeyReturn
svCid
svDirect
Remote
remote
Local
Remote
Direct
B(pXmit 
4svDirect
B"Transmit" 
0,50,0
buttonDown
buttonUp
buttonDown
pXmit
buttonUp
pXmit
Transmit
svDirect
Direct
Button
B(pXmit 
4svDirect
B"Transmit" 
240,50,100
buttonDown
buttonUp
buttonDown
pXmit
buttonUp
pXmit
Transmit
svDirect
Transmit
4svDirect, svPtrBuf, svCid, svPtrCommStat
vFldCnt 
vWriteCnt 
vStartChar 
[error state
GetCommError(
_> 1000
vEndChar 
X+ 1000
[the buffer
) -- 
debug
--transmit 
vCnt 
WriteComm(
buttonup
buttonup
local
GetCommError
local
WriteComm
vEndChar
vStartChar
vWriteCnt
vFldCnt
svDirect
svPtrBuf
svCid
svPtrCommStat
Transmit
Clear
4svCid
"Remote" 
FlushComm(
!, 1) -- flush rcv queue
buttonup
buttonup
Remote
FlushComm
svCid
Clear Remote Text
ClearLocal
4svCid
"Local" 
FlushComm(
 , 0) --flush xmit queue
buttonup
buttonup
Local
FlushComm
svCid
Clear Local Text
dragger
vY < 5235 
vY > 1400
"Local" 
vY - 30
"Remote" 
vY + 60
vY + 90
ouseenter
mouseleave
mouseenter
buttonstilldown
mouseenter
mouseleave
buttonstilldown
Local
Local
Remote
Remote
Error::te:
DispError
AutoScroll
Control:e:
Control
Recv:::te:
Xmit:::te:
mmmmmmmmjj
hjkhlhjkhkhkjhhhjkhljlkjh
Suffix:te:
Prefix::::
Originate:
Answer:te:
Hangup:te:
Dial:rate:
DialP
Originate
ATQ0V1E1S0=0
Answer
ATQ1E0S0=1
HangupS
HangupP
DialS
Modem commands:
Configuration
Return
communications
buttonup
buttonup
communications
Return to Communications
communication
EnterPage
SEND SetDirect
Modem 
"Configure"
4svDirect
4svPtrBuf, svCid, svPtrCommStat
find out 
anything 
waiting 
the buffer
Displaycommstat()
GetCommError(
vCnt 
--now 
vReadCnt 
ReadComm (
1000)
errors
dispError 
event mask
GetCommEventMask(
--sz 
"Remote"
"remote"
"Local"
SetDirect
EnterPage
buttonup
EnterPage
SetDirect
kSetModem
Configure
SetDirect
Direct
svDirect
Displaycommstat
GetCommError
ReadComm
Displaycommstat
GetCommError
GetCommEventMask
Remote
remote
remote
remote
dispError
vReadCnt
svPtrBuf
svCid
svPtrCommStat
buttonup
Local
pxmit
Direct
local
Local
4svCid,svDirect
KeyReturn
TransmitCommChar (
: CR)
E LF)
keychar
keychar
TransmitCommChar
TransmitCommChar
TransmitCommChar
KeyReturn
svCid
svDirect
Remote
remote
Local
Remote
Direct
B(pXmit 
4svDirect
B"Transmit" 
0,50,0
buttonDown
buttonUp
buttonDown
pXmit
buttonUp
pXmit
Transmit
svDirect
Direct
Button
B(pXmit 
4svDirect
B"Transmit" 
240,50,100
buttonDown
buttonUp
buttonDown
pXmit
buttonUp
pXmit
Transmit
svDirect
Transmit
4svDirect, svPtrBuf, svCid, svPtrCommStat
vFldCnt 
vWriteCnt 
vStartChar 
[error state
GetCommError(
_> 1000
vEndChar 
X+ 1000
[the buffer
) -- 
debug
--transmit 
vCnt 
WriteComm(
buttonup
buttonup
local
GetCommError
local
WriteComm
vEndChar
vStartChar
vWriteCnt
vFldCnt
svDirect
svPtrBuf
svCid
svPtrCommStat
Transmit
Clear
4svCid
"Remote" 
FlushComm(
!, 1) -- flush rcv queue
buttonup
buttonup
Remote
FlushComm
svCid
Clear Remote Text
ClearLocal
4svCid
"Local" 
FlushComm(
 , 0) --flush xmit queue
buttonup
buttonup
Local
FlushComm
svCid
Clear Local Text
dragger
vY < 5235 
vY > 1400
"Local" 
vY - 30
"Remote" 
vY + 60
vY + 90
ouseenter
mouseleave
mouseenter
buttonstilldown
mouseenter
mouseleave
buttonstilldown
Local
Local
Remote
Remote
Error::te:
DispError
AutoScroll
Control:e:
Control
Recv:::te:
Xmit:::te:
mmands:
Configuration
Return
communications
buttonup
buttonup
communications
Return to Communications
4svPtrDCB
SEND SetModem
buttonup
buttonup
kSetModem
svPtrDCB
SetModem
4svPtrDCB
vMode 
pPort 
"Configure" &":" &\
pBaud 
," &\
pParity 
0," &\
pBits 
C," &\
pStop 
BuildCommDCB (
= " & 
SetCommState (
= " & 
SetModem
SetModem
Configure
pPort
Configure
pBaud
Configure
pParity
Configure
pBits
Configure
pStop
BuildCommDCB
BuildCommDCB = 
SetCommState
SetCommState = 
vMode
svPtrDCB
Dialer
4svCid,svDirect
KeyReturn
TransmitCommChar (
: CR)
E LF)
keychar
keychar
TransmitCommChar
TransmitCommChar
TransmitCommChar
KeyReturn
svCid
svDirect
Compuserve
Asymetrix
242-5767
Phone Number:
PhoneNumber
Name::::::
Communications:
Communications
PhoneName
vScroll 
"PhoneNumber"
"PhoneName" 
"Communications" 
PhoneNumber
PhoneName
Communications
vScroll
4svLine
SEND Dial 
"PhoneNumber"
buttondoubleclick
buttondoubleclick
PhoneNumber
vLine
svLine
PhoneBook
"PhoneNumber" 
"PhoneName" 
"End Edit"
buttonup
buttonup
PhoneNumber
PhoneName
PhoneNumber
End Edit
PhoneName
PhoneNumber
vLine 
SEND Dial 
"PhoneNumber"
"communications"
buttondoubleclick
buttondoubleclick
textfrompoint
PhoneNumber
communications
vLine
Configure
SetModem
4svPtrDCB
vMode 
pPort 
"Configure" &":" &\
pBaud 
," &\
pParity 
0," &\
pBits 
C," &\
pStop 
BuildCommDCB (
= " & 
SetCommState (
= " & 
SetModem
SetModem
Configure
pPort
Configure
pBaud
Configure
pParity
Configure
pBits
Configure
pStop
BuildCommDCB
BuildCommDCB = 
SetCommState
SetCommState = 
vMode
svPtrDCB
*~*&+n+
pport
pstop
pbits
pParity
-pBaud
Configure communications port:
Baud rate:
pBaud 
buttonup
buttondown
buttonup
pBaud
buttondown
pBaud
pBaud 
buttonup
buttondown
buttonup
pBaud
buttondown
pBaud
pBaud 
buttonup
buttondown
buttonup
pBaud
buttondown
pBaud
pBaud 
buttonup
buttondown
buttonup
pBaud
buttondown
pBaud
pBaud 
buttonup
buttondown
buttonup
pBaud
buttondown
pBaud
pBaud 
buttonup
buttondown
buttonup
pBaud
buttondown
pBaud
Parity::::
pParity 
buttonup
buttondown
buttonup
pParity
buttondown
pParity
pParity 
buttonup
buttondown
buttonup
pParity
buttondown
pParity
pParity 
buttonup
buttondown
buttonup
pParity
buttondown
pParity
pbits 
buttonup
buttondown
buttonup
pbits
buttondown
pbits
Data bits:
pbits 
buttonup
buttondown
buttonup
pbits
buttondown
pbits
pbits 
buttonup
buttondown
buttonup
pbits
buttondown
pbits
Stop bits:
pstop 
buttonup
buttondown
buttonup
pstop
buttondown
pstop
pstop 
buttonup
buttondown
buttonup
pstop
buttondown
pstop
Port::::::
pport 
pComPort 
SEND CloseComm
OpenComm
buttonup
buttondown
buttonup
pport
pComPort
CloseComm
zkOpenComm
buttondown
pport
pport 
pComPort 
SEND CloseComm
OpenComm
buttonup
buttondown
buttonup
pport
pComPort
CloseComm
zkOpenComm
buttondown
pport
ConfigurePort
4svPtrDCB
SEND SetModem
buttonup
buttonup
kSetModem
svPtrDCB
Configure
Suffix:te:
Prefix::::
Originate:
Answer:te:
Hangup:te:
Dial:rate:
DialP
Originate
ATQ0V1E1S0=0
Answer
ATQ1E0S0=1
HangupS
HangupP
DialS
Modem commands:
Configuration
Return
communication
buttonup
buttonup
communication
Return to Communications