subr panic_stop_cb
 ty,'panic stop'
 $panic_stop = 1
 endsubr
 ;===============================================================================