Carousel/CAROUSEL.cdr/mactosh/hc/hypersou.sit/HyperSource/stack.txt

Text File | 1988-01-24 | 6KB | 212 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (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: 2345
-- card count: 2
-- first card id: 3870
-- list block id: 4352
-- print block id: 5173
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 33984 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- 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 -----
on openStack
  hide message box
end openStack

on copyCard
  global thisStack,newStack,authorVar,titleVar,pubVar,notesVar, keyVar,holdCard
  put the name of this stack into thisStack
  push card
  answer "Put selected cards into?" with "New stack" or "Existing one" or "Cancel"
  if it is "Cancel" then exit copyCard
  if it is "New Stack" then
    set lockMessages to true
    doMenu "New Stack..."
    put the name of this stack into newStack
    if newStack = thisStack then exit copyCard
    pop card
    set lockscreen to false
    show bkgnd button id 53
    set lockscreen to true
  end if
  if it is "Existing one" then
    doMenu "Open Stack..."
    put the name of this stack into newStack
    if newStack = thisStack then exit copyCard
    pop card
    set lockscreen to false
    show bkgnd button id 53
    set lockscreen to true
  end if
  push card
  repeat with x = 1 to the number of items in holdCard
    go to item x of holdCard
    repeat with y = 1 to the number of fields
      if return is in field y then
        repeat
          put offset (return, field y) into retLoc
          if retLoc = 0 then exit repeat
          delete char retLoc of field y
        end repeat
      end if
    end repeat
    put field 1 & return after authorVar
    put field 2 & return after titleVar
    put field 3 & return after pubVar
    put field 4 & return after notesVar
    put field 5 & return after keyVar
  end repeat
  go to last card of newStack
  repeat with x = 1 to the number of lines in authorVar
    doMenu "New Card"
    put line x of authorVar into field 1
    put line x of titleVar into field 2
    put line x of pubVar into field 3
    put line x of notesVar into field 4
    put line x of keyVar into field 5
  end repeat
  go first card
  if field 1 is empty then doMenu "Delete Card"
  put empty into authorVar
  put empty into titleVar
  put empty into pubVar
  put empty into notesVar
  put empty into keyVar
  pop card
  set lockscreen to false
  hide bkgnd button id 53
  answer "Go to stack with selected cards?" with "OK" or "Cancel"
  if it is "OK" then
    set lockscreen to true
    go newStack
  end if
end copyCard

on exportData
  global fileName
  put the short name of this stack & ".txt" into fileName
  ask "Export text to what file?" with fileName
  if it is empty then exit exportData
  put it into fileName
  answer "Number of fields to include?" with "Three" or "Five" or "Cancel"
  if it is "Three" then doThree
  if it is "Five" then doFive
end exportData

on doThree
  global fileName,holdCard
  open file fileName
  set lockscreen to false
  show bkgnd button id 73
  set lockscreen to true
  set cursor to 4
  push card
  repeat with x = 1 to the number of items in holdCard
    go to item x of holdCard
    repeat with y = 1 to the number of fields
      if return is in field y then
        repeat
          put offset (return, field y) into retLoc
          if retLoc = 0 then exit repeat
          delete char retLoc of field y
        end repeat
      end if
    end repeat
    put field 1 && field 2 && field 3 into exRef
    write exRef to file fileName
    write return & return to file fileName
  end repeat
  pop card
  set lockscreen to false
  hide bkgnd button id 73
  close file fileName
end doThree

on doFive
  global fileName,holdCard
  open file fileName
  set lockscreen to false
  show bkgnd button id 73
  set lockscreen to true
  set cursor to 4
  push card
  repeat with x = 1 to the number of items in holdCard
    go to item x of holdCard
    repeat with y = 1 to the number of fields
      if return is in field y then
        repeat
          put offset (return, field y) into retLoc
          if retLoc = 0 then exit repeat
          delete char retLoc of field y
        end repeat
      end if
    end repeat
    put field 1 && field 2 && field 3 && "[" & field 4 && field 5 & "]" into exRef
    write exRef to file fileName
    write return & return to file fileName
  end repeat
  pop card
  set lockscreen to false
  hide bkgnd button id 73
  close file fileName
end doFive