CLS

FOR b = 1 TO 10
  FOR a = 1 TO b
    PRINT "A";
  NEXT a
  PRINT
NEXT b

PRINT

FOR b = 60 TO 0 STEP -8
  FOR a = 1 TO b
    PRINT "B";
  NEXT a
  PRINT
NEXT b