macro INTEV(val)
=SETSHEETINFO( WHOLESHEET(""), "evalmode", val)
ENDMACRO

MACRO ANGLE(val)
=SETSHEETINFO( WHOLESHEET(""), "anglemode", val)
ENDMACRO

MACRO ECR(val)
=SETSHEETINFO( WHOLESHEET(""), "ecrmode", val)
ENDMACRO

MACRO SECURITY(val)
=SETSHEETINFO( WHOLESHEET(""), "security", val)
ENDMACRO

MACRO CELLNAMECONV(val)
=SETSHEETINFO( WHOLESHEET(""), "addresses", val)
ENDMACRO

MACRO SAVE(filename)
=SAVEFILE( WHOLESHEET(""), filename, 0xC26)
ENDMACRO

MACRO STATE(keyword)
=GETSHEETINFO(WHOLESHEET(""), keyword)
ENDMACRO

MACRO YESORNO(prompt)
=QUERY( prompt, "NO", "YES")
ENDMACRO

MACRO CREATE
=SHEETNAME(CREATESHEET("",0,0,0))
ENDMACRO

MACRO PRINTSHEET(filename, block, p_title, s_title, draft, land, cond, grid, labels, cleft, rhead, lp, ch)
LOCAL was_labels, was_grid, res, ppercent
ON_ERROR_EXIT 
was_labels = GETSHEETINFO(block, "labels")
was_grid = GETSHEETINFO(block, "grid")
res = SETSHEETINFO(block, "labels", labels)
res = SETSHEETINFO(block, "grid", grid)
IF draft THEN
  res = SETUPDRAFTPRINT(block, 1, cond, ch)
ELSE
  ppercent = GETSHEETINFO(block, "printmag")
  res = SETUPIMAGEPRINT(block, 1, ppercent, land, 0, 0, 0, 0, 0, 0, 0)
ENDIF
REM PRint
res = FILEPRINT(block, filename)
REM Reset 
res = SETSHEETINFO(block, "labels", was_labels)
res = SETSHEETINFO(block, "grid", was_grid)
=res
ENDMACRO
MACRO logicalname(x)
LOCAL res, zz
res = wholesheet("")
zz = changename(res,x)
zz = setsheetinfo(res,"namelock",1)
=zz
ENDMACRO



