Category : Files from Magazines
Archive   : DBMS9106.ZIP
Filename : OLY1

*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
* TCREVERS.PRG, by P. L. Olympia, Platinum Software Int'l

* From: DBMS Set Expert On Column, 06/91 issue

* Demonstrates how to use a function from the Turbo C library
* in a Force program. Written 03/01/91

* Sample Link command:
* Tlink tcrevers+turboc,,,f:\force\lib\force.lib c:\tc\lib\cl.lib


#include string.hdr
#include io.hdr

*-- Declare Procedure prototypes

PROCEDURE Setup_Turboc PROTOTYPE && Setup code for TurboC

PROCEDURE strrev PROTOTYPE && Prototypes TurboC function
PARAMETERS CHAR str1

PROCEDURE Force_Main && Force's main procedure
VARDEF
CHAR str1
ENDDEF

Setup_TurboC()

str1 = "Platinum Software"
? "Str1 is ", str1

? "After reversing, "
DO strrev WITH str1 && call to TurboC's strrev()
?? " str1 = ", str1
ENDPRO


*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=