100 TEXT
110 LET Y=10:LET X=18 !Random coordinates, middle of star
120 FOR A=0 TO 4 !Five stages
130 FOR C=1 TO 5 !Five asterisks on two directions, 90 degrees
140 FOR B=0 TO 3! 4 arms, NW,NE,SE,SW
150 LET S1=-1+(B BAND 1)*2 !Sign 1
160 LET S2=-1+(B BAND 2)*1 !Sign 2
170 PRINT AT(Y+1)+S1*A,(X+(1+1*(-S2)))+S2*(C+A):"*";
180 PRINT AT(Y+(1+1*(-S1)))+S1*(C+A),(X+1)+S2*A:"*";
190 NEXT B
200 NEXT C
210 NEXT A
220 PRINT
