Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

19 lines
423 B
C

/**********************************************************************
* STRLEN - finds the number of non-null characters in s.
*
* WORD strlen(s)
* BYTE *s;
**********************************************************************/
#include "portab.h"
WORD strlen(str) /* CLEAR FUNCTION ***********/
REG BYTE *str;
{
REG BYTE *p;
for( p = str; *p; p++ ) /* advance *p until NULL. */
;
return((WORD)p-str);
}