Setvirtualresolution(640,480)
ResetTimer()

CreateText(1,"Spacing Example")
SetTextSize(1,25)
SetTextPosition(1,10,50)
SetTextMaxWidth(1,10)

Repeat
For s=1 to 20
    Print(GetTextLineSpacing(1))
    SetTextLineSpacing(1,s)
    Sleep(500)
    Sync()
Next s
Until Timer()>15
End