; Upper Example
; -------------

; Upper$ returns a copy of a string with every letter in upper case.

name$="robo the rocketeer"
Print "Original: "+name$
Print "Upper$:   "+Upper$(name$)
Print ""

; Case-insensitive cheat-code check: upper both sides before comparing
typed$="BigHead"
If Upper$(typed$)="BIGHEAD" Then
    Print "'"+typed$+"' unlocked the BIGHEAD cheat (compared in upper case)"
EndIf

; Digits and punctuation are left unchanged
Print "Upper$('level-9 ready!') = "+Upper$("level-9 ready!")

Print ""
Print "Press any key to close the example"
WaitKey

End