home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / truecad / macro / testdde.mac < prev   
Encoding:
Text File  |  1994-01-27  |  255 b   |  10 lines

  1. rem macro to test dde and exchange with other programs
  2. z=shell("TCMACRO.EXE", 1)
  3. if(z<32)
  4.    {
  5.    mess "could not exec TCMACRO"
  6.    }
  7. rem assume our other vb app is already running
  8. WAITFORMESSAGE  "TCRESUME"
  9. enter "Value of r$ and r are"  r$ r
  10. end