01.10 FOR I=1,4; DO 2.0

02.10 FOR J=1,I; TYPE "*"
02.20 TYPE !