@Besserwessi

etwa so:
Dim I As Single
Dim X As Single
Dim Xx As Single
'________________________________________
For I = 0 To 360

Xx = i * 0.0174532
X = Sin(xx)

Locate 1 , 1
Lcd "for-next: " ; I
Locate 2 , 1
Lcd "X: " ; X
Wait 1
Next