home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 37 / hot37.iso / FICHEROS / WEDU / MICSCOP3.ZIP / TESTDIAL.DIR / 00048_Script_48 < prev    next >
Text File  |  1998-02-07  |  536b  |  23 lines
  1.  
  2. on SetPercent Correct, total
  3.   set aString to string (integer ((correct * 100 / total)))
  4.   set the text of member "percent Field" to aString & " %"
  5. end SetPercent
  6.  
  7. on SetScore Correct, Total
  8.   set the text of member "Score Field" to string (Correct) & "/" & string (total)
  9. end SetScore
  10.  
  11. on GetPercent
  12.   set aString to the text of member "Percent Field"
  13.   set aString to word 1 of aString
  14.   return value (aString)
  15. end GetPercent
  16.  
  17. on waitabit
  18.   startTimer
  19.   repeat while the timer < 10
  20.     nothing
  21.   end repeat
  22. end
  23.