'===========================================================================
' Subject: REVERSE STRING USING POINTERS     Date: 04-09-98 (08:36)       
' Author:  Kerry S. Goodin                   Code: PB                     
' Origin:  medvrsys@venus.net              Packet: PB.ABC
'===========================================================================
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Code to reverse a string using pointers in PB 3.2 DOS
'
' written by Kerry S. Goodin, D.D.S.
'
'this is free to use but I take no responsibility for it use
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 DEFINT A-Z
 DIM p_TestString AS BYTE PTR
 DIM p_ReverseString AS BYTE PTR

 TestString$ = "this is a test string to reverse"
 p_TestString = STRPTR32(TestString$)

 TotalLength = LEN(TestString$)

 ReverseString$ = SPACE$(TotalLength)
 p_ReverseString = STRPTR32(ReverseString$) + TotalLength - 1

 FOR X = 1 TO TotalLength
	@p_ReverseString = @p_TestString
 	INCR p_TestString
            DECR p_ReverseString
 NEXT X
 CLS
 PRINT TestString$
 PRINT ReverseString$
 END