function DONE(BALL)
''
'' COPYRIGHT (C) 1993, CACI Products Company.
'' AUTHOR: Steve Bailey
'' DATE: 9-22-93
'' DESCRIPTION:
''     called to terminate a "work continuously" statement.
''
define BALL as a pointer variable

if (SIMULATION.DONE ne 0) or (DONE.FLAG(BALL) ne 0)
    return with 1
always

return with 0
End
