Global maxman = 1  ;  test 2
Global apm

Type  man
Field  x#
Field dirx#,diry#
End Type

Function initman()
For r= 1 To maxman
m.man = New man
m\x#= 10

a = (a+1) Mod 2
If a = 0 Then
m\dirx# =1.15
Else
m\dirx# = -1.15
EndIf
Next
End Function

Function updateman()

For m.man = Each man
m\x#= (m\x#+m\dirx#) ;  add or substr  the stepwidth   

m\x# =m\x# Mod 10 ;??????????
apm = m\x#
Next

End Function


;----------------------------------------

initman()
For r= 1 To 10
updateman()
Print apm+"  "+r
Next
WaitKey
;For r= 10 To -10 Step -1

;d=d+1
;d = d Mod 5
;Print d+"  "+r
;Next
;WaitKey()