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

Output of file : OLY1 contained in archive : DBMS9106.ZIP
* 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

PROCEDURE Force_Main && Force's main procedure
CHAR str1


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

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


  3 Responses to “Category : Files from Magazines
Archive   : DBMS9106.ZIP
Filename : OLY1

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: