home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / indice.dir / 00108_Script_108 < prev   
Text File  |  1997-04-09  |  488b  |  20 lines
  1. on CurIndex
  2.   if the mouseline = -1 then
  3.     if the mousecast >= 1001 and the mousecast <= 1030 then
  4.       Cursor [1999,2000]
  5.     else if the mousecast = 5 then
  6.       Cursor [1991,1992]
  7.     else
  8.       Cursor [1989,1990]
  9.     end if
  10.   else
  11.     put char the mousechar of field "Txt.Indice" into C
  12.     put line the mouseline of field "LabSalto" into L
  13.     if L="" or C=" " or C=RETURN then
  14.       Cursor [1989,1990]
  15.     else
  16.       Cursor [1991,1992]
  17.     end if
  18.   end if
  19. end
  20.