home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
optmen.zip
/
PLAC_MSG.PRG
< prev
next >
Wrap
Text File
|
1987-02-22
|
1KB
|
64 lines
*
*
* Plac_Msg - Display message and wait for Keypress
*
* by Anthony T. DeHart - GENIE (ATDEHART)
Parameters message
Size = len(Message)
message1 = message
message2 = ''
message3 = '(Press a key)'
***** Breaks up message into two lines if to big for one line
***** (Code could be drastically improved here but if it ain't broke
***** why fix it) - Originally written in dBase hence the macro array
if Size > 20
break_done = .F.
break = int(size/2)
do while .not. break_done
if substr(message,break,1) = ' '
break_done = .T.
message1 = left(message,break - 1)
message2 = right(message,size - break)
else
break = break - 1
endif
enddo
endif
array_s = 1
size = 0
do while array_s < 4
temp_s = str(array_s,1)
size&temp_s = int(len(message&temp_s)/2)
if size < size&temp_s
size = size&temp_s
endif
array_s = array_s + 1
enddo
save screen
set color to &normhigh
@ 9,40 - (Size+2) clear to 15,40 + (Size+2)
@ 9,40 - (Size+2) to 15,40 + (Size+2) Double
@ 11,40 - Size1 Say Message1
@ 12,40 - Size2 Say Message2
@ 13,40 - Size3 Say Message3
set color to &normal
set console off
clear typeahead
wait "" to temp
set console on
restore screen
return