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 
