home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00024_CDXSearchReturn.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  293 b   |  14 lines
  1. on CDXSearchReturn
  2.   global CDXSub, CDXDuringSearch
  3.   if (CDXSub = 2) and (CDXDuringSearch = 0) then
  4.     if the key = RETURN then
  5.       set CDXSub to 3
  6.       set CDXDuringSearch to 1
  7.     end if
  8.   end if
  9.   if the key <> RETURN then
  10.     set CDXDuringSearch to 0
  11.     put the keyCode
  12.   end if
  13. end
  14.