1 CLS:x=4:y=1:a=1:b=1:FOR n=1 TO 139:LOCATE x,y:PRINT "*":x=x+a:y=y+b:a=a*((x=1 OR x=19)+0.5)*2:b=b*((y=1 OR y=19 OR n=39 OR n=81)+0.5)*2:NEXT