Setvirtualresolution(640,480)
ResetTimer()

text$="Example Text"

For i=1 to Len(text$)
    Print(text$)
    //Create a text object for character of the string
    CreateText(i,Mid(text$,i,1))
    SetTextSize(i,25)
    //increment the text position so all characters print down the screen.
    SetTextPosition(i,10,10+i*25)

    Sync()
Next i

Repeat
Until Timer()>20
End

#option_explicit

#constant XOR = ~~

do

	print("'"+StringXOR(chr(255-65)+"XYZHallo")+"'")
	
	print(0 XOR 255)
	print(255 XOR 255)
	
	if GetPointerPressed() then exit
	
	sync()
loop
end

function StringXOR(Text as string)

	local NewText as String
	local i as integer
	local c as string

	for i=1 to len(Text)
		c=mid(Text,i,1)
		NewText=NewText + chr(asc(c) XOR 255)
	next
	
endfunction NewText