home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / CHIP_CD_1997_07_PL.iso / knowhow / internet / media / files / key.dir / 00059.ls < prev    next >
Encoding:
Text File  |  1997-03-24  |  641 b   |  49 lines
  1. on enterFrame
  2.   keyDown()
  3. end
  4.  
  5. on keyDown
  6.   if the key = "0" then
  7.     go("3b")
  8.   end if
  9.   if the key = "1" then
  10.     go("errb")
  11.   end if
  12.   if the key = "2" then
  13.     cek()
  14.   end if
  15.   if the key = "3" then
  16.     go("errb")
  17.   end if
  18.   if the key = "4" then
  19.     go("errb")
  20.   end if
  21.   if the key = "5" then
  22.     go("errb")
  23.   end if
  24.   if the key = "6" then
  25.     go("errb")
  26.   end if
  27.   if the key = "7" then
  28.     go("errb")
  29.   end if
  30.   if the key = "8" then
  31.     go("errb")
  32.   end if
  33.   if the key = "9" then
  34.     go("errb")
  35.   end if
  36. end
  37.  
  38. on cek
  39.   if the lastKey < 20 then
  40.     go("errb")
  41.   else
  42.     go(the frame)
  43.   end if
  44. end
  45.  
  46. on exitFrame
  47.   go(the frame)
  48. end
  49.