home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / DB3STOCK.ZIP / GETFLD23.PRG < prev    next >
Encoding:
Text File  |  1986-04-12  |  532 b   |  18 lines
  1. * --------------------------------------
  2. * GETFLD23.PRG - GET A PARTICULAR FIELD
  3. * --------------------------------------
  4. * define KOL as 0 before entering the routine.
  5. * define FEELD as any EMPTY string of any length.
  6. * define MSG as a str <75 chars before entering this routine
  7. * the variable KOL is now the new column position at which to GET the field
  8. msg=msg+"  "+feeld
  9. @ 23,1 say space(77)
  10. set color to 15/0
  11. @ 23,(80-len(msg))/2 say msg
  12. set color to 7/0
  13. kol=col()-len(feeld)
  14. if kol>77
  15.    kol=77
  16. endif
  17. RETURN
  18.