/*--------------------------------------------------------------*/
/* Little script to go offline with genesis                     */
/* Especially useful with ClassAction                           */
/* © 2001 Martin R. Elsner                                      */
/*--------------------------------------------------------------*/

/* Please change this value to 0, if you don't want to quit     */
/* Genesis after going offline:                                 */

QuitGenesis = 1



OPTIONS RESULTS
OPTIONS FAILAT 21
IF SHOW('P','GENESIS') THEN DO
 ADDRESS 'GENESIS'
  'offline'
 IF QuitGenesis = 1 THEN 'window close'
END

EXIT