/* 
**  Get2.rexx 
**
**  Description: A test of the 'Get' command,
**               showing some of the parameters.
**
**  Written by:  Anders Granli
** 
**  Date:        11.10.96                
*/

OPTIONS RESULTS

address 'MAGNIFICAD'

SAY

GETATTR GRIDTYPE
gridtype = RESULT
SAY "Gridtype: " gridtype

GETATTR HATCH
hatch = RESULT
SAY "Hatch:" hatch

GETATTR LEVEL
level = RESULT
SAY "Level: " level

GETATTR COLOR
color = RESULT
SAY "Color:" color

GETATTR COLORDEPTH
colordepth = RESULT
SAY "Colordepth:" colordepth

GETATTR COPY
copy = RESULT
SAY "Copy:" copy

GETATTR PRINTBORDER
printborder = RESULT
SAY "PrintBorder:" printborder

SAY