[Snowflake]

[Use Initial Orders 2 for this program]

 T   64 K       [ORG 64]
 G      K       [@ := *]
 #      F       [  @: figure shift, then bit bucket]
 .      F       [ 1@: NULL]
 @      F       [ 2@: carriage return]
 &      F       [ 3@: line feed]
 !      F       [ 4@: space]
 G      F       [ 5@: # character]
 O      @       [ 6@: print figures]
 H   77 @       [ 7@: set reverse map mask]
 A   14 @       [(14@)++]
 A    2 F
 T   14 @
 A   15 @       [(15@)--]
 S    2 F
 T   15 @
 A   67 @       [14@: fetch row from top half]
 U   87 @       [15@: store row in bottom half]
 O    2 @       [print CR]
 O    3 @       [print LF]
 O    1 @       [print NULL]
 G   48 @       [halt if terminator reached]
 T      D       [20@: store forward map, clear reverse]
 T      @       [21@: test top bit of forward map]
 A      D
 G   27 @
 O    4 @       [if clear then print space]
 T      @       [and set A:=0]
 E   30 @
 O    5 @       [27@: else print #]
 T      @       [and set A:=-1]
 A    1 @
 C      F       [30@: shift bit into masked reverse map]
 R      D
 T      F
 A      D       [shift forward map left]
 L      D       [sandwich digit prevents shifting 1 in]
 U    1 F
 G   27 @       [if negative then print #]
 T      @       [else positive; test for zero]
 S    1 F
 G   21 @       [if >0 then axis not reached]
 H    1 @       [else A=0; clear reverse map mask]
 A      F       [fetch reverse map]
 L    1 F       [shift out sign bit and axis]
 G   20 @       [if next bit set then print #]
 T      D       [else store forward map, clear reverse]
 S      D       [map positive; test for zero]
 G   21 @       [if >0 then print right half of shape]
 E    7 @       [else go to next row.]
 Z      F       [48@: shape done]
 T   68 Z       [ORG 68+@]
 P   32 F       [..... .....1..... .]
 P  160 F       [..... ...1.1..... .]
 W 1120 F       [...1. 1...11..... .]
 Q 1056 F       [....1 1....1..... .]
 E 1184 F       [...11 1..1.1..... .]
 P  608 F       [..... .1..11..... .]
 P  288 F       [..... ..1..1..... .]
 R 1184 F       [..1.. 1..1.1..... .]
 W  608 F       [...1. .1..11..... .]
 * 2016 F       [.1111 111111..... .]
 T   90 Z       [ORG 90+@]
 .      F       [1.... ........... .]
 E    6 Z       [set up jump to 6@]
 P      F       [enter 6@ with A=0]
