ZTOS.m

%ZTOS ;cmi/sitka/maw - INH Called from GIS software 

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;

 ;this routine was left out of the original GIS KIDS build

 ;

GETERR() ;-- get most current error

 Q $ZE

 ;

%ZTOS     ;cmi/sitka/maw - INH Called from GIS software 

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;

 +3       ;this routine was left out of the original GIS KIDS build

 +4       ;

GETERR()  ;-- get most current error

 +1        QUIT $ZE

 +2       ;