ClrHome For(O,1,8) Disp "" End For(Z,0,6) For(X,0,12,6) 1+X+abs(Z-3)->P P+abs(abs(Z-3)*2-6)->Q If P<17:Then Output(8,P,"*"):End If Q<17:Then Output(8,Q,"*"):End End Disp "" End Pause