Heapnew(0, Getsurfacecount()+1);  /First, create a heap.

For(I=0;I<=Getsurfacecount(I);I=I+1) {  /Loop through your surfs, and save their geos to the heap.

Heapset(I, Getfacegeomode(I));  /Saving...

Setfacegeomode(I, 4); }  /Then set the surface to geo4.

For(I=0;I<=Getsurfacecount();I=I+1) Setfacegeomode(I, Heapget(I));  /Loops back through, and set the surfs back to the geos stored in the heap.

Heapnew(0, Getsurfacecount()+1);
For(i=0; i<=Getsurfacecount(); i=i+1)
{
   If(GetSurfaceGeoMode(i) != 4) Return;
   If(GetFaceType(i) != 2) Heapset(i, 2);
   Else (HeapSet(i, 0);
   SetFaceType(i, 0x2);
}

For(i=0; i<=GetSurfaceCount(); i=i+1)
   ClearFaceType(i, HeapGet(i));
HeapFree();