home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / te2pro21.zip / TPTEST.SCR < prev    next >
Text File  |  1997-01-13  |  1KB  |  68 lines

  1. /* Test TpTerm Script */
  2. signal on syntax
  3.  
  4. /* TRACE A */
  5. /* if tx = 'TX' say 'bad form' */
  6. /* 'bad form */
  7.  
  8. tx = 'ATZ'||D2C(13)
  9. 'transmit' tx
  10. 'wait 60 "nada" "OK"'
  11. say 'Wait4 "OK" RC=' rc
  12.  
  13. pull stuff
  14. say 'I pulled:' stuff||D2C(13)
  15.  
  16. txWait. = ''
  17. txWait.0 = 2
  18. txWait.1 = 'nada'
  19. txWait.2 = 'OK'
  20. 'transmit' tx
  21. 'waitv 10 txWait'
  22. say 'WaitV txWait RC=' rc
  23.  
  24. /*
  25. 'waitv 10 txWait'
  26. say 'WaitV txWait RC=' rc
  27. */
  28.  
  29. vbaud = ''
  30. 'query baud vbaud'
  31. /*
  32. say 'RC=' rc
  33. say 'vbaud=' vbaud
  34. */
  35. msgbox.Text  = 'RC=' rc||D2C(10)||'vbaud=' vbaud
  36. msgbox.Title = 'Variable based MsgBox'
  37. msgbox.Style = 0
  38. 'messageboxv msgbox'
  39.  
  40. connected = ''
  41. 'query carrier connected'
  42. msgbox.Text  = 'RC=' rc||D2C(10)||'connected=' connected
  43. msgbox.Title = 'Variable based MsgBox'
  44. msgbox.Style = 0
  45. 'messageboxv msgbox'
  46. 'cls'
  47.  
  48. 'run tpTest2.scr "This is a Test!"'
  49. say 'RC from run=' rc
  50.  
  51. address CMD 'start /win'
  52. /* address CMD 'd:\pbin\fshl' */
  53.  
  54. 'messagebox "'"That's it!"'" "Test Script"'
  55. /* TRACE O */
  56. exit 0
  57.  
  58.  
  59. syntax:
  60.   syxRC = rc
  61.   msgbox.Text  = 'rc    =' syxRC||D2C(10)||,
  62.                  'line# =' sigl||D2C(10)||,
  63.                  'line  = ['sourceline(sigl)']'
  64.   msgbox.Title = 'Syntax Error!'
  65.   msgbox.Style = X2D('4046') /* MB_MOVEABLE|MB_CRITICAL|MB_CANCEL */
  66.   'messageboxv msgbox'
  67.   exit 1
  68.