Sub Main()

 Dim a As Integer
 Print "1+2+3+...+100="
 a=100
 Count(a)
End Sub

Sub Count( Dim Max As Integer)
 Dim i As Integer
 Dim s As Integer
 s=0
 i=1
 Do
  s=s+i
  i=i+1
 Loop While i<Max+1
 Print s
End Sub