home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / bit / listserv / dbasel / 776 < prev    next >
Encoding:
Text File  |  1992-07-31  |  1.2 KB  |  38 lines
  1. Newsgroups: bit.listserv.dbase-l
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!darwin.sura.net!uvaarpa!murdoch!galen.med.Virginia.EDU!jw2b
  3. From: jw2b@galen.med.Virginia.EDU (Sara J. Wagner)
  4. Subject: Re: Flushing a read statement
  5. Message-ID: <1992Jul31.171308.648@murdoch.acc.Virginia.EDU>
  6. Sender: usenet@murdoch.acc.Virginia.EDU
  7. Organization: University of Virginia
  8. References: <9207311448.AA07840@snowhite.cis.uoguelph.ca>
  9. Date: Fri, 31 Jul 1992 17:13:08 GMT
  10. Lines: 26
  11.  
  12.  
  13. I set up something similar for my get subfunctions (assuming you're
  14. using Clipper).  As best as I can remember (without looking it up):
  15.  
  16. Do while !lcorrect
  17.   @1,5 get variable
  18.        ... (lots more)
  19.   @ 24,5 say "Type Y or press CTRL-END to save, Esc to abort " get
  20. lcorrect picture "Y"
  21.   read
  22. if lastkey() = K_CTRL_END
  23.   lcorrect := .t.
  24. endif
  25. enddo
  26. if lastkey() != K_ESC
  27.   (do something with the values)
  28. endif
  29.  
  30. I can press CTRL-End anywhere in the read statements and have it
  31. register.  Hope this helps.
  32.  
  33. --
  34. Jane Wagner, Computer Systems and Publications Assistant
  35. The Claude Moore Health Sciences Library| INTERNET: jw2b@virginia.edu
  36. Box 234, UVA Health Sciences Center    | PHONE:    804-924-0188
  37. Charlottesville, VA  22908         | BITNET:   jw2b@virginia.bitnet
  38.