-- background: 2674 from stack: in
-- bmap block id: 4187
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on phraseSearch
  Global keep, recordCount, Count, searchString, scanString, holder
  --hide message box
  put 0 into count
  put 0 into recordCount
  put empty into keep
  ask "Search String"
  put the ticks into startTicks
  if it is not "" then
    put it into searchString
    send DoSearch
  end if
  go to card 2 of "Command Stack"
  if keep is empty then put "None found" into keep
  put keep into card field "WhereItIs"
  put recordCount into card field "lastField"
  put holder & ":  " & searchString into card field searchName
  put 0 into intStore
  put scanString into card field scnField
  put the ticks into endTicks
  --put (endTicks - startTicks) into message box
end phraseSearch

on scanForward
  global scanString, stringPosition, recordCount
  if stringPosition < recordCount then
    add 1 to stringPosition
    put item stringPosition of scanString into cardNum
    visual scroll down
    go to card cardNum
    set lockScreen to false
  else
    beep
  end if
end scanForward

on scanBackward
  global scanString, stringPosition
  if stringPosition > 1 then
    subtract 1 from stringPosition
    put item stringPosition of scanString into cardNum
    visual scroll up
    go to card cardNum
    set lockScreen to false
  else
    beep
  end if
end scanBackward

on DoSearch
  global holder, count, recordCount, targetField, searchString, keep, scanString
  set cursor to watch
  put holder into targetField
  put empty into scanString
  put the number of last card into tfield
  go first card
  repeat with count = 1 to the number of cards
    if searchString is in field targetField of card count then
      add 1 to recordCount
      put recordCount & "," && (char 1 to 46 of line 1 of field targetField of card count) & "," & count & numToChar(13) after keep
      put count & "," after scanString
    end if
  end repeat
  put "/" after scanString
end DoSearch


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=274 top=298 right=327 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual scroll left
  go next card
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=229 top=297 right=327 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual scroll right
  go previous card
end mouseUp



-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=448 top=309 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: cardNum


-- part 4 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=94 top=10 right=28 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Topic


-- part 6 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=94 top=32 right=85 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title


-- part 7 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=94 top=90 right=141 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Author


-- part 8 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=94 top=145 right=177 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Affil


-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=94 top=181 right=213 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ref


-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=151 top=291 right=308 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  send scanForward
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=13 top=286 right=334 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 1001 / 1001
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Command Stack
----- HyperTalk script -----
on mouseUp
  visual iris close
  go to card 2 of "Command Stack"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=150 top=312 right=329 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  send scanBackward
end mouseUp


-- part 17 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=94 top=218 right=282 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes