home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DB3STOCK.ZIP / LINPRM23.PRG < prev    next >
Encoding:
Text File  |  1986-04-12  |  642 b   |  26 lines
  1. * --------------------------------------
  2. * LINPRM23.PRG - GET A PARTICULAR KEY
  3. * --------------------------------------
  4. * define MSG as a str <75 chars before entering this routine
  5. * define TEST as a target string of chars to test FOR
  6. * define TZ as PUBLIC, and then initialize to " " before using this routine
  7. @ 23,1 say space(77)
  8. set color to 15/0
  9. @ 23,(80-len(msg))/2 say msg
  10. set color to 7/0
  11. tz=" "
  12. do while at(tz,test)=0
  13.    tz=" "
  14.    CLEAR GETS
  15.    tkol=((80-len(msg))/2)+len(msg)+2
  16.    if tkol>77
  17.       tkol=77
  18.    endif
  19.    @ 23,tkol get tz picture "!"
  20.    read
  21. enddo
  22. set color to 7/0
  23. @ 23,1 SAY SPACE(77)
  24. RETURN
  25.  
  26.