Module stringcase {
	string s="alphaBETA", s1=s, c="!@@@@<"
	print ucase$(s)="ALPHABETA"
	print lcase$(s)="alphabeta"
	s=str$(s+"ΑΛΦΑ", 1032) ' convert from utf16le to ansi 1032, and enpand to utf16LE as locale 1033
	print s="alphaBETAÁËÖÁ"
	// trait as utfLE16 but for character code from 0 to 255, and return based on locale 1033
	print lcase$(s, 1033)="alphabetaáëöá"
	// trait as utfLE16 but for character code from 0 to 255, and return based on locale 1032
	print lcase$(s, 1032)="alphabetaαλφα"
	print lcase$(s1+"ΑΛΦΑ")="alphabetaαλφα"
	print str$(s1, ">")="ALPHABETA"
	print str$(s1, "<")="alphabeta"
	print str$(s1, c)="beta"
}
stringcase