home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
optmen.zip
/
ASK_YN.PRG
next >
Wrap
Text File
|
1987-02-22
|
533b
|
32 lines
*
*
* Ask Yes or No Question in Window
*
* by Anthony T. DeHart - GENIE (ATDEHART)
Parameters Question,Answer
vpos = 15
Answer = " "
Question = Question + " (Y/N)"
Size = int(len(question)/2)
save screen
set color to &normhigh
@ vpos-1,40 - (Size+2) clear to vpos+1,40 + (Size+2)
@ vpos-2,40 - (Size+2) to vpos+2,40 + (Size+2) Double
@ vpos,40 - Size Say Question
set color to &normal
clear typeahead
do while .not. (Answer $ "YN")
Answer = Upper(chr(inkey(0)))
enddo
restore screen
return