>   CALL SETGWORLD(offPort&,0) '<-------------bus error

The second parameter is supposed to be the device. I know 0 _should_ 
work, but just for the heck of it, try this

  CALL GETGWORLD(currPort&,currDev&)
  CALL SETGWORLD(offPort&,currDev&

Bill