-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 14448
-- card count: 27
-- first card id: 14814
-- list block id: 2210
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 233536 bytes
-- stack block size: 12288 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- index stack script 1/29
on openstack
  initStackList
end openstack

on closeStack
  global indexLetter

  put short name of this card into indexLetter
end closeStack

on initStackList
  global stackList

  -- note: there is no stack 13; MUSIC is #14
  put "COMMUNITY,COMMUNICATIONS,CRAFT,HEALTH" into stackList
  put ",HOUSEHOLD,LEARNING,LIVELIHOOD,MEDIA,NOMADICS" after stackList
  put ",PLACE,WHOLE SYSTEMS,INTRODUCTION,,MUSIC" after stackList
end initStackList

function whichstack theAccess
global stackList

put char 1 to 2 of theAccess into theStack
return item theStack of stackList
end whichstack

on lookup theAccess, theEffect
  global accList, idList

  lock screen
  if theAccess contains "card id" then  -- theAccess is a card id, go
    go to theAccess
    unlock screen with theEffect
    exit lookup
  end if

  -- go to different stack if neccessary
  put whichStack(theAccess) into theStack
  if theStack is not (short name of this stack) then
    set lockrecent to true
    go to stack theStack        -- reloads contents globals
    set lockrecent to false
  end if

  -- find access number in accList
  put offset(theAccess, accList) into where
  if where is 0 then
    beep
    put "Lookup failed on access #" & theAccess && "..." into errMsg
    answer errMsg with "OK"
  else
    -- calculate its line and get corresponding card id in idList
    put line (where div 9 + 1) of idList into targetID
    go to targetID
    unlock screen with theEffect
  end if
end lookup

on listFields
  set lockScreen to true
  doMenu New Field
  put the number of card fields into here
  set name of card field here to "fieldListing"
  set style of card field "fieldListing" to scrolling
  set the rect of card field "fieldListing" to "0,20,200,300"
  set textFont of card field "fieldListing" to monaco
  set textSize of card field "fieldListing" to 9
  set lockScreen to false

  repeat with cntr = 1 to the number of bkgnd fields
    put short name of bg fld cntr into fldName
    get the visible of bg fld cntr
    if it is true then
      put " " && "bg" && "fld" && Quote & fldName & Quote & Return after cd fld "fieldListing"
    else
      put "*" && "bg" && "fld" && Quote & fldName & Quote  & Return after cd fld "fieldListing"
    end if
  end repeat

  put Return after card field "fieldListing"
  repeat with cntr = 1 to the number of card fields
    put short name of cd fld cntr into fldName
    get the visible of cd fld cntr
    if it is true then
      put " " && "cd" && "fld" && Quote & fldName & Quote & Return after cd fld "fieldListing"
    else
      put "*" && "cd" && "fld" && Quote & fldName & Quote  & Return after cd fld "fieldListing"
    end if
  end repeat

  --put Return & "*" && "invisible fields" & Return --after cd fld "fieldListing"
end listFields