home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / zcalc.sit / Z-CALC / card_3021.txt < prev    next >
Encoding:
Text File  |  1988-03-27  |  2.8 KB  |  108 lines
  1. -- card: 3021 from stack: in
  2. -- bmap block id: 4252
  3. -- flags: 0000
  4. -- background id: 2761
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=95 top=287 right=310 bottom=214
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Initialize Input
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put "Input Initialization in Process" into message box
  23.   delete line 1 of card field "FinStart" of card id 3804
  24.   delete line 1 of card field "FinStop" of card id 3804
  25.   delete line 1 of card field "FinStep" of card id 3804
  26.   delete line 1 of card field "LenIn" of card id 3804
  27.   delete line 1 of card field "DiaIn" of card id 3804
  28.   put 1.0 into line 1 of card field "XforIn" of card id 3804
  29.   hide message box
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: A003
  37. -- rect: left=276 top=289 right=312 bottom=412
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Initialize Output
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   put " Output Initialization in Process" into message box
  49.   repeat with i=2 to 10
  50.     put "  " into line i of card field "FREQ1" of card id 5160
  51.     put "  " into line i of card field "RIN1" of card id 5160
  52.     put "  " into line i of card field "XIN1" of card id 5160
  53.     put "  " into line i of card field "Loss1" of card id 5160
  54.   end repeat
  55.   repeat with i=2 to 10
  56.     put "  " into line i of card field "FREQ2" of card id 5981
  57.     put "  " into line i of card field "RIN2" of card id 5981
  58.     put "  " into line i of card field "XIN2" of card id 5981
  59.     put "  " into line i of card field "Loss2" of card id 5981
  60.   end repeat
  61.   repeat with i=2 to 10
  62.     put "  " into line i of card field "FREQ3" of card id 6565
  63.     put "  " into line i of card field "RIN3" of card id 6565
  64.     put "  " into line i of card field "XIN3" of card id 6565
  65.     put "  " into line i of card field "Loss3" of card id 6565
  66.   end repeat
  67.   hide message box
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 7 (button)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=226 top=135 right=183 bottom=299
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 14767 / 14767
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: about
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   go card id 4362
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 8 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=198 top=285 right=342 bottom=293
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 11045 / 11045
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: home
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   go to HOME
  106. end mouseUp
  107.  
  108.