'===========================================================================
' Subject: UCASE/LCASE FOR PBDLL/PBCC        Date: 06-01-99 (15:43)       
' Author:  Dave Navarro, Jr.                 Code: PBCC, PBDLL            
' Origin:  dave@powerbasic.com             Packet: PBCC.ABC
'===========================================================================
DECLARE FUNCTION CharUpperBuff LIB "USER32.DLL" ALIAS "CharUpperBuffA" (lpsz AS ASCIIZ, BYVAL cchLength AS LONG) AS LONG
DECLARE FUNCTION CharLowerBuff LIB "USER32.DLL" ALIAS "CharLowerBuffA" (lpsz AS ASCIIZ, BYVAL cchLength AS LONG) AS LONG

' Convert a string to upper case using Windows international support
'
FUNCTION UcaseI$(BYVAL temp AS STRING) AS STRING
  CharUpperBuff BYVAL STRPTR(temp), LEN(temp)
END FUNCTION

' Convert a string to lower case using Windows international support
'
FUNCTION LcaseI$(BYVAL temp AS STRING) AS STRING
  CharLowerBuff BYVAL STRPTR(temp), LEN(temp)
END FUNCTION