LiveCode Forums.

Code: Select all

 
on mouseUp
   put empty into fld "VALZ"
   put 1 into KOUNT
   put 0 into A
   put 1 into B
   repeat until KOUNT > 1000
      put A + B into C
      put B into A
      put C into B
      put KOUNT & " : " & A into line KOUNT of fld "VALZ"
      wait for 25 ticks with messages
      add 1 to KOUNT
   end repeat
end mouseUp

on enterKey
   exit to top
end enterKey

Code: Select all

on mouseUp
   repeat 1000
      repeat with y = 1 to 10
         put y into fld 1
         wait 5 -- cycle quickly through some integers
      end repeat
      wait 60 with messages --wait for the "10", ostensibly plenty of time to hit the enter key
   end repeat
end mouseUp 

on enterKey 
   exit to top
end enterKey

Code: Select all

   put empty into cost
   repeat until cost is a number      
      ask "Enter the minimum purchaseable quantity of packs (numerals only)" titled field "fieldboxtitle"  of cd "template1"
      put it into cost       
      put cost into fld "fmin.purchqty"  
     if cost is not a number or cost <0 or cost is empty then
         put empty into cost
         answer "Try again. You must enter a numeral above zero."titled field "fieldboxtitle"  of cd "template1"  
      end if      
   end repeat