home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / VEDIT060 / SOURCE / VEDIT6.PRG < prev    next >
Text File  |  1992-03-23  |  669b  |  38 lines
  1. #INCLUDE KEYS.HDR
  2. #INCLUDE vlist.hdr
  3. #INCLUDE vmouse.hdr
  4. #INCLUDE vedit.hdr
  5. #INCLUDE STRING.HDR
  6.  
  7. FUNCTION UINT VEdit_Last_Space
  8.   PARAMETERS VALUE UINT right_margin,;
  9.                    CHAR temp_str
  10.  
  11.   VARDEF
  12.     BYTE    full_byte[ 250 ] based temp_str
  13.     UINT    marker, place
  14.     LOGICAL done
  15.   ENDDEF
  16.  
  17.   done = .F.
  18.   marker = 0
  19.   place  = right_margin - 1
  20.  
  21.   DO WHILE .NOT. done
  22.     IF full_byte[ place ] = 32 .OR.;
  23.                full_byte[ place ] = 9
  24.       marker = place + 1
  25.       done = .T.
  26.       LOOP
  27.     ENDIF
  28.  
  29.     IF place = 0
  30.       done = .T.
  31.       LOOP
  32.     ENDIF
  33.  
  34.     place = place - 1
  35.   ENDDO
  36.  
  37.   RETURN marker
  38. ENDPRO