attach "strfunc.oac"
test = "harry~@jane~@Harryharryjennyharrynoodle~@"
put at 10,5 test 
lookfor = "harry" 
occur = 2 
place = call("poso",lookfor,test,occur)   ! will return 19 because function
put at 10,7 'The ', occur, ' occurrence of ', \\   ! is case sensitive 
            lookfor,  ' is at ', place   
lookfor = "~@" 
occur = 3 
place = call("poso",lookfor,test,occur)  ! will return 40  
put at 10,9 'The ', occur, ' occurrence of ', \\     
            lookfor,  ' is at ', place   
t = true
get t
put do clear screen 

!! NOTE: the following three functions ALPHABET, NUMERIC, and ALPHNUM
!!       will return FALSE if there is a space contained in the string 

put at 10,3 "Is it Alpha?" 
put at 10,5 "Enter a string:" 
test = "" 
get at 10,7 test width 10 
ok = call("alphabet",test)
if ok 
   put at 25,7 "YES, This is part of the alpabet"
else 
   put at 25,7 "NO, This is NOT part of the alpabet"
end if 
t = true
get t 
put do clear screen 
put at 10,3 "Is it a number?" 
put at 10,5 "Enter a string:" 
test = "" 
get at 10,7 test width 10 
ok = call("numeric",test)
if ok 
   put at 25,7 "YES, This is a numeric digit"
else 
   put at 25,7 "NO, This is NOT a numeric digit"
end if 
t = true
get t 
put do clear screen 
put at 10,3 "Is it Alpanumeric?" 
put at 10,5 "Enter a string:" 
test = "" 
get at 10,7 test width 10 
ok = call("alphnum",test)
if ok 
   put at 25,7 "YES, This is Alphanumeric"
else 
   put at 25,7 "NO, This is NOT Alphanumeric"
end if 
t = true
get t 
detach "strfunc.oac" 
