home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0401.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-31  |  548 b   |  18 lines
  1. /* Sample module to be linked as an .OBJ file into Turbo    */
  2. /* Pascal.  Must be compiled with the TURBOC.CFG file in    */
  3. /* Table 4.1.                                               */
  4.  
  5. #define UpCase(c) ((c) >= 'a' && (c) <= 'z' ? ((c) - 32 : (c))
  6.  
  7. /* Procedure UpString( Var S : String );                    */
  8. /* Pascal procedure Header and Parameters                   */
  9.  
  10. void pascal far UpString( char *s )
  11. {
  12.   register char *strPtr;
  13.  
  14.   for (strPtr = &s[1]; *strPtr != '\0'; strPtr ++)
  15.     *strPtr = UpCase(*strPtr);
  16. }
  17.  
  18.