home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / OPTMEN.ARC / PLAC_MSG.PRG < prev    next >
Encoding:
Text File  |  1987-02-22  |  1.3 KB  |  64 lines
  1. *
  2. *
  3. * Plac_Msg - Display message and wait for Keypress
  4. *
  5. * by Anthony T. DeHart - GENIE (ATDEHART)
  6.  
  7.  
  8. Parameters message
  9.  
  10. Size = len(Message)
  11.  
  12. message1 = message
  13. message2 = ''
  14. message3 = '(Press a key)'
  15.  
  16. ***** Breaks up message into two lines if to big for one line
  17. *****    (Code could be drastically improved here but if it ain't broke
  18. *****     why fix it) - Originally written in dBase hence the macro array
  19.  
  20. if Size > 20
  21.    break_done = .F.
  22.    break = int(size/2)
  23.    do while .not. break_done
  24.       if substr(message,break,1) = ' '
  25.      break_done = .T.
  26.      message1 = left(message,break - 1)
  27.      message2 = right(message,size - break)
  28.       else
  29.      break = break - 1
  30.       endif
  31.    enddo
  32. endif
  33.  
  34. array_s = 1
  35. size = 0
  36. do while array_s < 4
  37.    temp_s = str(array_s,1)
  38.    size&temp_s = int(len(message&temp_s)/2)
  39.    if size < size&temp_s
  40.       size = size&temp_s
  41.    endif
  42.    array_s = array_s + 1
  43. enddo
  44.  
  45. save screen
  46.  
  47. set color to &normhigh
  48. @ 9,40 - (Size+2) clear to 15,40 + (Size+2)
  49. @ 9,40 - (Size+2) to 15,40 + (Size+2) Double
  50. @ 11,40 - Size1 Say Message1
  51. @ 12,40 - Size2 Say Message2
  52. @ 13,40 - Size3 Say Message3
  53. set color to &normal
  54.  
  55. set console off
  56. clear typeahead
  57. wait "" to temp
  58. set console on
  59.  
  60. restore screen
  61.  
  62. return
  63.  
  64.