102 STRING STAR
0 STAR ASSIGN "          *       * *  * *   **   **    *  ***  * *     *  **      *  * *  *  * *  *  *  ************ "
: BACK 36 PEEK 1 - HTAB ;
: UP 37 PEEK 1 - VTAB ;
: REVERSE DUP 10 - SWAP DO I STAR PEEK PUTC -1 +LOOP ;
: SHOWTL 100 0 DO I STAR PEEK PUTC I 1 + 10 MOD 0 = IF I BACK REVERSE CR THEN LOOP ;
: 1TEN DUP 10 + SWAP DO I STAR PEEK PUTC LOOP ;
: SHOWBL UP -1 90 DO I 1TEN BACK I 9 + REVERSE CR -10 +LOOP ;
SHOWTL SHOWBL
