home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Tutorial / Prg10.2 < prev    next >
Encoding:
Text File  |  1993-04-09  |  222 b   |  14 lines
  1. // Program 8.2
  2.  
  3. PRINT Count("ab","abcdababefgab")
  4.  
  5. FUNC Count(pattern$,text$)
  6.   LOCAL Cnt, pos
  7.   Cnt:=0
  8.   pos:=pattern$ IN text$
  9.   IF pos>0 THEN
  10.     Cnt:=1+Count(pattern$,text$(pos+1..))
  11.   ENDIF
  12.   RETURN Cnt
  13. ENDFUNC Count
  14.