Stars is a classic forth example that should look like this:

****************************************
 * * * * * * * * * * * * * * * * * * * *
  *  *  *  *  *  *  *  *  *  *  *  *  * 
   *   *   *   *   *   *   *   *   *   *
    *    *    *    *    *    *    *    *
     *     *     *     *     *     *    
      *      *      *      *      *     
       *       *       *       *       *
        *        *        *        *    
         *         *         *         *
          *          *          *       
           *           *           *    
            *            *            * 
             *             *            
              *              *          
               *               *        
                *                *      
                 *                 *    
                  *                  *  
                   *                   *

Uxntal

@drawstar ( -> )
	#1501
	&for-i ( -- )
		STHk
		#2901
		&for-j ( -- )
			DUP STHkr DIVk MUL SUB
			#202a ROT ?{ SWP } POP #18 DEO
			INC GTHk ?&for-j
		POP2 POPr
		#0a18 DEO
	INC GTHk ?&for-i
	POP2
	BRK