home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 2
/
amigaformatcd02.iso
/
demos
/
mmexperience
/
arexxscripts
/
printtext.rexx
next >
Wrap
OS/2 REXX Batch file
|
1996-05-20
|
438b
|
26 lines
/*
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