home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / dbms_mag / 9106 / oly1 < prev    next >
Text File  |  1991-04-23  |  973b  |  40 lines
  1. *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  2. * TCREVERS.PRG, by P. L. Olympia, Platinum Software Int'l
  3.  
  4. *  From: DBMS Set Expert On Column, 06/91 issue
  5.  
  6. * Demonstrates how to use a function from the Turbo C library
  7. * in a Force program. Written 03/01/91
  8.  
  9. * Sample Link command:
  10. * Tlink tcrevers+turboc,,,f:\force\lib\force.lib c:\tc\lib\cl.lib
  11.  
  12.  
  13. #include string.hdr
  14. #include io.hdr
  15.  
  16. *-- Declare Procedure prototypes
  17.  
  18. PROCEDURE Setup_Turboc PROTOTYPE    && Setup code for TurboC
  19.  
  20. PROCEDURE strrev PROTOTYPE          && Prototypes TurboC function
  21. PARAMETERS CHAR str1
  22.  
  23. PROCEDURE Force_Main                && Force's main procedure
  24.   VARDEF
  25.     CHAR str1
  26.   ENDDEF
  27.  
  28.   Setup_TurboC()
  29.  
  30.   str1 = "Platinum Software"
  31.   ? "Str1 is ", str1
  32.  
  33.   ? "After reversing, "
  34.   DO strrev WITH str1              && call to TurboC's strrev()
  35.   ?? " str1 = ", str1
  36. ENDPRO
  37.  
  38.  
  39. *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  40.