; LSet Example
; ------------

; LSet$ left-justifies a string in a field of the given width,
; padding it with spaces (or chopping it) to exactly that size.

Print "High-score table (names padded to 16 characters with LSet$):"
Print ""
Print LSet$("Name",16)+"Score"
Print LSet$("Robo",16)+"1250"
Print LSet$("Zelda",16)+"980"
Print LSet$("Maximillian",16)+"720"

; The quotes show exactly where the padding goes
Print ""
Print "LSet$('Robo',16) = '"+LSet$("Robo",16)+"'"

; A string longer than the field is cut down to fit
Print "LSet$('Maximillian the Unstoppable',16) = '"+LSet$("Maximillian the Unstoppable",16)+"'"

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

End