1 FORS=0TO12STEP6:FORI=-3TO3:FORJ=6TO18STEP6:F=ABS(I):GOSUB3:F=6-F:GOSUB3:NEXTJ,I,S:END
3 LOCATEJ+I,F+S:PRINT"*":RETURN