home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
te2pro21.zip
/
TPTEST.SCR
< prev
next >
Wrap
Text File
|
1997-01-13
|
1KB
|
68 lines
/* Test TpTerm Script */
signal on syntax
/* TRACE A */
/* if tx = 'TX' say 'bad form' */
/* 'bad form */
tx = 'ATZ'||D2C(13)
'transmit' tx
'wait 60 "nada" "OK"'
say 'Wait4 "OK" RC=' rc
pull stuff
say 'I pulled:' stuff||D2C(13)
txWait. = ''
txWait.0 = 2
txWait.1 = 'nada'
txWait.2 = 'OK'
'transmit' tx
'waitv 10 txWait'
say 'WaitV txWait RC=' rc
/*
'waitv 10 txWait'
say 'WaitV txWait RC=' rc
*/
vbaud = ''
'query baud vbaud'
/*
say 'RC=' rc
say 'vbaud=' vbaud
*/
msgbox.Text = 'RC=' rc||D2C(10)||'vbaud=' vbaud
msgbox.Title = 'Variable based MsgBox'
msgbox.Style = 0
'messageboxv msgbox'
connected = ''
'query carrier connected'
msgbox.Text = 'RC=' rc||D2C(10)||'connected=' connected
msgbox.Title = 'Variable based MsgBox'
msgbox.Style = 0
'messageboxv msgbox'
'cls'
'run tpTest2.scr "This is a Test!"'
say 'RC from run=' rc
address CMD 'start /win'
/* address CMD 'd:\pbin\fshl' */
'messagebox "'"That's it!"'" "Test Script"'
/* TRACE O */
exit 0
syntax:
syxRC = rc
msgbox.Text = 'rc =' syxRC||D2C(10)||,
'line# =' sigl||D2C(10)||,
'line = ['sourceline(sigl)']'
msgbox.Title = 'Syntax Error!'
msgbox.Style = X2D('4046') /* MB_MOVEABLE|MB_CRITICAL|MB_CANCEL */
'messageboxv msgbox'
exit 1