Proc Main()
byte I,J

 For I=1 to 5
  Do
   For J=1 to I
    Do
     Print("*")
    Od
   PrintE("")
  Od

Return