&& ASCII Text file
            
           cNewTxtFile =  
            
            nMemoflds=0
          for i=1 to fcount()
		     cType= type(field(i))
		     if cType='G' or cType='M'
		        nMemoflds=nMemoflds+1
		      endif
		  next i  
		     if nMemoflds=0
                copy to (cNewTxtFile) type SDF
             else
			         cText=''
			         scan
				    	for i=1 to fcount()
					     do case
					      case type(field(i))='G'
					      case type(field(i))='D'
					         cText=cText+DTOC(eval(field(i)))
					      case type(field(i))='T'
					         cText=cText+TTOC(eval(field(i)))
					     case type(field(i))='N'
					         cText=cText+STR(eval(field(i)),10,2)
					     otherwise
					          cText=cText+ eval(field(i))
					    endcase
					   next i
					endscan
					=STRTOFILE(cText,cNewTxtFile)
             endif
           do form wrapid with cNewTxtFile