home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / OPTMEN.ARC / ASK_YN.PRG next >
Encoding:
Text File  |  1987-02-22  |  533 b   |  32 lines
  1. *
  2. *
  3. * Ask Yes or No Question in Window
  4. *
  5. * by Anthony T. DeHart - GENIE (ATDEHART)
  6.  
  7. Parameters Question,Answer
  8.  
  9. vpos = 15
  10.  
  11. Answer = " "
  12. Question = Question + " (Y/N)"
  13.  
  14. Size = int(len(question)/2)
  15.  
  16. save screen
  17.  
  18. set color to &normhigh
  19. @ vpos-1,40 - (Size+2) clear to vpos+1,40 + (Size+2)
  20. @ vpos-2,40 - (Size+2) to vpos+2,40 + (Size+2) Double
  21. @ vpos,40 - Size Say Question
  22. set color to &normal
  23.  
  24. clear typeahead
  25. do while .not. (Answer $ "YN")
  26.    Answer = Upper(chr(inkey(0)))
  27. enddo
  28.  
  29. restore screen
  30.  
  31. return
  32.