/*
  MME AREXX SCRIPT TO PRINT THE TEXT IN A TEXT BOX

  Copyright (c) 1995 Optonica Limited
  Written by Kevin Stevens
*/

ADDRESS TOMMEPORT
OPTIONS RESULTS

count = 0
do while(count >= 0)
	count = count + 1
	BOX TYPE count
	boxtype = MME.ERROR
	if boxtype = 'TEXT' then do
		BOX INFO count
		txfile = MME.ERROR
		copycmd = 'copy "'||txfile||'" prt:'
		ADDRESS COMMAND copycmd
		end
	else if boxtype = '' then do
		count = -1
		end
	end