window 1

long i, j

for i = 1 to 5
  for j = 1 to i
    print @"*";
  next
  print
next

HandleEvents