=============================================
===== SUBROUTINE - MSN WEB POSTION      ===== 
============================================= 
GET http://search.msn.com/results.asp _
 RS=CHECKED&FORM=MSNH&v=1&q=$keyword1

stop

set $pageno = 0
label loop
  if $pageno > $maxpages  
    goto maxed_out
  endif
  searchtext "aaagames.com"
  if_found
    goto foundit
  endif
  searchlink 2 nth=
  if_notfound
    goto end  
  endif  
  let $pageno = $pageno + 1
  sendform
  goto loop
    
label end
  print "Northern Light" "String was NOT found"
  print "Northern Light" "Final page number was " $pageno
  stop

label foundit
  print "Northern Light" "Found string on page " $pageno
  stop

label maxed_out
  print "Northern Light" "Maxed out on number of pages: " $pageno
  stop

==================================================== 
===== SUBROUTINE - NORTHERN LIGHT WEB POSTION  ===== 
==================================================== 
GET http://northernlight.com/nlquery.fcg _
 qr='$keyword'&cb=0

set $pageno = 1
label loop
  if $pageno > $maxpages  
    goto maxed_out
  endif
  searchtext $mypage
  if_found
    goto foundit
  endif
  searchlink 2 nth=
  if_notfound
    goto end  
  endif  
  let $pageno = $pageno + 1
  sendform
  goto loop
    
label end
  print "T" $site $keyword "NOT FOUND" $pageno
  stop

label foundit
  print "T" $site $keyword "FOUND!" $pageno
  stop

label maxed_out
  print "T" $site $keyword "MAXED OUT" $pageno
  stop

================================================ 
===== SUBROUTINE - WEBCRAWLER WEB POSITION ===== 
================================================ 
GET http://search.excite.com/search.gw _
 s='$keyword'

set $pageno = 1
label loop
  if $pageno > $maxpages  
    goto maxed_out
  endif
  searchtext $mypage
  if_found
    goto foundit
  endif
  searchform next
  if_notfound
    goto end  
  endif  
  let $pageno = $pageno + 1
  sendform
  goto loop
    
label end
  print "T" $site $keyword "NOT FOUND" $pageno
  stop

label foundit
  print "T" $site $keyword "FOUND!" $pageno
  stop

label maxed_out
  print "T" $site $keyword "MAXED OUT" $pageno
  stop