Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/dvstckfx.sit/uni_redmdno/DevStackFix/stack.txt

Text File | 1989-09-13 | 3KB | 126 lines

-- 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: 1
-- first background id: 2591
-- card count: 1
-- first card id: 3022
-- list block id: 2054
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 23776 bytes
-- stack block size: 6144 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 -----
on startUp
end startUp

on openStack
  global stacks,uselev
  if stacks is empty then send startup to home
  put the userlevel into uselev
  set userlevel to 5
end openstack

on closeStack
  global uselev
  set userlevel to uselev
end closestack

on redraw
  set lockMessages to true
  go this cd
  set lockMessages to false
end redraw

on showMessage string1,string2
  put return & string1 & return & string2 into cd fld id 10
  lock screen
  show cd fld id 8
  show cd fld id 9
  show cd fld id 10
  unlock screen
end showMessage

on hideMessage
  lock screen
  hide cd fld id 8
  hide cd fld id 9
  hide cd fld id 10
  unlock screen
  put empty into cd fld id 10
end hideMessage

on setLocks condition,theEffect
  set lockMessages to condition
  if param(2) is not empty then
    unlock screen with theEffect
  else
    set lockScreen to condition
  end if
end setLocks

function stripReturn container
repeat while charToNum(last char of container) = 13
  delete last char of container
end repeat
repeat while charToNum(first char of container) = 13
  delete first char of container
end repeat
return container
end stripReturn