Is %Unicode Defined

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
%Unicode=1
%Unicode = 77
Function PBMain() As Long
   ? Str$(UnicodeON)
End Function
 
Function UnicodeOn() As Long
   #If %Def(%Unicode)
      Function = 1
   #Else
      Function = 0
   #EndIf
End Function
 
'gbs_01150
'Date: 03-14-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm