home *** CD-ROM | disk | FTP | other *** search
- /*
- *
- * Script name: DiskOperations.rexx
- * Author: Franz Hemmer
- * Purpose: Demonstrate how to put up the 'Disk Operations' requester in InterWord.
- * Related Program: InterWord Pro
- * Written: 02.03.93
- *
- */
-
- /*--------------------*/
- /* Get result in 'rc' */
- /*--------------------*/
- Options Results
-
- /*----------------------------------------------*/
- /* Address InterWord port, and execute command. */
- /*----------------------------------------------*/
- ADDRESS INTERWORD1 DISK_OPERATIONS
- IF rc > 0 THEN
- DO
- SAY INTERWORD.LASTERROR
- END
- ELSE
- DO
- SAY 'Disk Operations ok!'
- END
- ENDIF
-