10 lines
214 B
Text
10 lines
214 B
Text
; the PureBasic code...
|
|
|
|
Import "Call_a_foreign_language_function.obj"
|
|
strucase(t.s) As "_strucase@4"
|
|
EndImport
|
|
|
|
t.s="hElLo WoRld!!"
|
|
*r=StrUcase(t.s) ; PureBasic is case-insensitive
|
|
; cw(peeks(*r))
|
|
Debug peeks(*r)
|