10 FOR I = 1 TO 20
20   PRINT SPC(20-I);
30   FOR J = 1 TO I*2
40     PRINT "*";
50   NEXT
60   PRINT ""
70 NEXT