home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / demos / mmexperience / arexxscripts / printtext.rexx next >
Encoding:
OS/2 REXX Batch file  |  1996-05-20  |  438 b   |  26 lines
  1. /*
  2.   MME AREXX SCRIPT TO PRINT THE TEXT IN A TEXT BOX
  3.  
  4.   Copyright (c) 1995 Optonica Limited
  5.   Written by Kevin Stevens
  6. */
  7.  
  8. ADDRESS TOMMEPORT
  9. OPTIONS RESULTS
  10.  
  11. count = 0
  12. do while(count >= 0)
  13.     count = count + 1
  14.     BOX TYPE count
  15.     boxtype = MME.ERROR
  16.     if boxtype = 'TEXT' then do
  17.         BOX INFO count
  18.         txfile = MME.ERROR
  19.         copycmd = 'copy "'||txfile||'" prt:'
  20.         ADDRESS COMMAND copycmd
  21.         end
  22.     else if boxtype = '' then do
  23.         count = -1
  24.         end
  25.     end
  26.