TALK=T;RUN(1,1) 387 simple

 TALK=F;RUN( 1, 1)
  Group 1. Run Title
 TEXT(patch-limited objects
  
  DISPLAY
  
  The use is illustrated of the commands for introducing, placing 
  and sizing POINT, LINE and PLANE objects, the parameters of which 
  are supplied via PIL DO loops.
  
  It is recommended that the VR-Viewer should be used for displaying 
  them visually.
  
  ENDDIS
  
 LIBREF=387
  ************************************************************
  Group 2. Transience
 STEADY=T
 ************************************************************
  Groups 3, 4, 5  Grid Information
 NX=50;NY=50;NZ=50
 XULAST=1.0; YVLAST=1.0; ZWLAST=1.0
 #UNIGRID
  Group 7. Variables: STOREd,SOLVEd,NAMEd
    * Solved variables list
    * Stored variables list
 STORE(PRPS,MARK) ! MARK is set to non-zero values inside In-Form
                    objects
 STORE(VPOR,EPOR,NPOR,HPOR)                   
 ************************************************************
  Group 9 Properties
 SPEDAT(SET,MATERIAL,100,L,T) ! needed to warn earth to load the
                              ! properties of material to be set
                              ! in in-form objects
 ************************************************************
  Group 11.Initialise Var/Porosity Fields
patch(patch1,volume,1,nx,1,ny,1,nz,1,1) ! the space within which
                                        ! infob_1 will be placed
FIINIT(PRPS) =  0.0
FIINIT(PRPS) =  0.0 ! 

  inform11begin
  sphere with centre at origin
patch(.patch1,inival,0,1000,0,1000,1,1000,1,1)
(infob at .patch1 is sphere(.0,.0..0,0.5*xulast) with infob_sp1)
(initial of mark at infob_sp1 is 1.0)    
  inform11end 
 ************************************************************
  Group 13. Boundary & Special Sources
 ************************************************************
  Group 15. Terminate Sweeps
yzpr=t
tstswp=-1
#endpause
#maxabs
stop