home *** CD-ROM | disk | FTP | other *** search
/ Internet Directory for Kids & Parents / InternetDirectory.iso / internet / coachnn / module8.dxr / 00026.ls < prev    next >
Encoding:
Text File  |  1997-11-25  |  331 b   |  18 lines
  1. on checkkey
  2.   set numch to length(field "fintext")
  3.   if (the key = RETURN) or (the key = ENTER) then
  4.     dontPassEvent()
  5.   else
  6.     if the key = BACKSPACE then
  7.       set numch to numch - 1
  8.     else
  9.       set numch to numch + 1
  10.     end if
  11.   end if
  12.   if numch < 2 then
  13.     go(marker(0) + 1)
  14.   else
  15.     go(marker(0) + 2)
  16.   end if
  17. end
  18.