0 FORY=-9TO9:PRINT:FORX=-2TO3:PRINTTAB(ABS(Y+6*INT(X-Y/6)))"{up}*":NEXT:NEXT