void terrain_load ( void )
{
if ( FileExist(t.tfile_s.Get()) == 1 && t.terrain.TerrainID > 0 ) 
{
OpenToRead ( 1, t.tfile_s.Get() );
if ( MemblockExist(1) == 0 ) 
{
ReadMemblock ( 1, 1 );
t.mi = 0;
for ( t.z = 0; t.z <= 1023; t.z++ )
{
for ( t.x = 0 ; t.x <= 1023; t.x++ )
{
t.h_f = ReadMemblockFloat(1,t.mi);
t.terrainmatrix[t.x][t.z] = t.h_f;
t.mi += 4;
BT_SetPointHeight ( t.terrain.TerrainID, t.x, t.z, t.h_f );
}
}
DeleteMemblock (  1 );

// force a shore on all terrain imported
t.x = 0; for ( t.z = 0 ; t.z <= 1023 ; t.z++ ) BT_SetPointHeight ( t.terrain.TerrainID, t.x, t.z, 0.0  );
t.x = 1023; for ( t.z = 0 ; t.z<= 1023 ; t.z++ ) BT_SetPointHeight ( t.terrain.TerrainID, t.x, t.z, 0.0  );
t.z = 0 ; for ( t.x = 0 ; t.x <= 1023 ; t.x++ ) BT_SetPointHeight ( t.terrain.TerrainID, t.x, t.z, 0.0  );
t.z = 1023; for ( t.x = 0 ; t.x <= 1023 ; t.x++ ) BT_SetPointHeight ( t.terrain.TerrainID, t.x, t.z, 0.0  );
}
else
{
ExitPrompt (  "Memblock 1 already exists!","Terrain"  ); ExitProcess ( 0 );
}
CloseFile (  1 );
}
}