GROUP 1. Run title and other preliminaries
 TEXT(Expanding sphere                 :B968
ask=f
STEADY=F; LSTEP=5; nx=12; ny=12; nz=5
#$b092
SPEDAT(SET,GXMONI,TRANSIENT,L,F)