home *** CD-ROM | disk | FTP | other *** search
/ PC Open 22 / pcopen22.iso / SuperCap / data / CITTA.DXR / 00383.ls < prev    next >
Encoding:
Text File  |  1998-05-18  |  449 b   |  23 lines
  1. on keyDown
  2.   set vK to the keyCode
  3.   if (vK = 36) or (vK = 76) then
  4.     cercaroma()
  5.   end if
  6.   if (vK <> 36) and (vK <> 76) then
  7.     put field "cerca" & the key into field "cerca"
  8.     if vK = 51 then
  9.       delete char -30000 of field "cerca"
  10.     end if
  11.     if vK = 51 then
  12.       delete char -30000 of field "cerca"
  13.     end if
  14.     if the keyCode = 117 then
  15.       put EMPTY into field "cerca"
  16.     end if
  17.   end if
  18. end
  19.  
  20. on exitFrame
  21.   go(the frame)
  22. end
  23.