>>IMHO I think that some succinct code is harder to read then more long-winded, e.g complicated IIF() instead of If .. ELse ... Endif, the use of !EOF() instead of Not EOF(), abbrev. of VFP commands, petty savings in typing (esp. as one can use global replace for these expressions later - as I often do to othe3r's code to make it readable), using crap short meaningless var names, bad indentation and, worst of all, momnolithic code with 20-page-long Do while loops with several inside them and nested Ifs to boot.
>>
>>Personally speaking, IMHO, I think that I have the neatest, most readable, well laid-out code of anyone's I've ever read, and I take great care to make it so.
>>
>>But maybe it's only MY mental map that sees it that way.
>>
>Show some small pieces and make sure you have a thick screen in front of you <g>
Well just the latest bit I'm working on for example. BTW I mean In My Humble Opinion, not "Honest" when I write IMHO

LOCAL	ldStartCurr, ldEndCurr, ldStartPrev, ldEndPrev, ;
	lnPercDiff, lnSchTDiff, lnSchemTot2, lnSchemTot1, ;
	lnTotCurrPass, lnTotPrevPass, lnNotEPrevMult, lnNotECurrMult
		
With Thisform
  If not .lReportCompiled
      .lmCompileReport()  
      Select csrStep2 
      Sum Trips2, Trips1, CurrPass, PrevPass;
	to lnSchemTot2, lnSchemTot1, lnTotCurrPass, lnTotPrevPass  && Used in report calcs
      lnNotEPrevMult  = lnSchemTot1 / lnTotPrevPass		    && Avge ETM multipliers used on notETM
      lnNotECurrMult  = lnSchemTot2 / lnTotCurrPass
      IF  ABS( lnSchemTot1)  > 0 ;
      AND ABS( lnSchemTot2)  > 0 then
	  lnOverallPercChg	= lnSchemTot2  /  lnSchemTot1 - 1	    && Used in report calcs
      EndIf 
      Locate 
      .lmRptNoMults()
  EndIf 
  ldStartCurr	= .dStartDate1
  ldEndCurr	= .dEndDate1
  ldStartPrev	= .dStartDate2
  ldEndPrev	= .dEndDate2
  lnPercDiff	= .nPercDiff
  lnPercDiff	= 1 + lnPercDiff/ 100
  lnSchTDiff	= .nSchemeTrendDiff
  lnSchTDiff	= 1 + lnSchTDiff/ 100
  .Visible	= .F.

  Report Form rptCompTrips PREVIEW 
  
  Select csrMultless
  Report Form rptNoMults PREVIEW 
  .Visible	= .T.
EndWith 

or

Insert into RZSTOP ( RTE_NO,   RTE_LET,   DIRECTN,    NUMBER, ZONE, ;
      		   STOP,                    COUNTY,                 FLAGS,   SEQNO ) ;
  VALUES           ( lcRoute,  lcGen,     lcDirectn, 	I,     VAL(.aReorderStops( I, 1)),	;
	            .aReorderStops( I, 3),	.aReorderStops( I, 6),  lcFlag,   1 )

Sorry, Naomi but when you post some stuff your indentation and such makes it hard to read it. I know the UT imposes its own tabs on what one's written but I always redo it in the UT window