home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / utilities / cli / fill / pmodules / cskipwhite.e < prev    next >
Encoding:
Text File  |  1994-06-22  |  293 b   |  17 lines
  1. /*-- cSkipWhite.e --*/
  2. OPT TURBO
  3.  
  4. PROC cSkipWhite(pos:PTR TO CHAR)
  5.   DEF c
  6.   WHILE (c:=pos[])
  7.     SELECT c
  8.       CASE 32; INC pos  /* SPACE */
  9.       CASE  9; INC pos  /* TAB */
  10.       CASE 10; INC pos  /* LF */
  11.       DEFAULT; RETURN pos
  12.     ENDSELECT
  13.   ENDWHILE
  14. ENDPROC pos
  15.   /* cSkipWhite */
  16.  
  17.