home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
clipper
/
nannws22.arc
/
MP.PRG
< prev
next >
Wrap
Text File
|
1987-12-08
|
450b
|
18 lines
***************************************************
* mprompt()
* input params: a=y-coord b=x-coord c=prompt string
***************************************************
function mprompt
private t_off,f_char,mretval,f_len
mretval = .f.
if pcount() = 3
parameters a,b,c
t_off = (a * 80) + b
f_len = len(c)
f_char = asc(substr(c,1,1))
@ a,b prompt c
do LD_SCR with t_off, f_len, f_char
mretval = .T.
endif
return(mretval)