home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
dbms_mag
/
9106
/
oly1
< prev
next >
Wrap
Text File
|
1991-04-23
|
973b
|
40 lines
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
* 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
*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=