; Right Example
; -------------

; Right$ returns the last n characters of a string.

player_id$="PLAYER-2026-0042"
Print "Player id: "+player_id$
Print "Last 4 characters: "+Right$(player_id$,4)
Print ""

; Check a file extension before loading a level
file$="dungeon_level.map"
If Right$(file$,4)=".map" Then Print "'"+file$+"' looks like a level file"

; Classic zero-padded score: pad with zeros, keep the right end
score=42
Print "Score display: "+Right$("00000000"+score,8)

; Asking for more characters than exist returns the whole string
Print "Right$(id,99): "+Right$(player_id$,99)

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

End