Gcos8 () returns I
returns 1 if executing on GCOS8; otherwise, it returns zero.
Copyright © 1996, Thinkage Ltd.