Windows PowerShell, 119 118
for($p,$n,$g=144,+"$args"+,1*289;$n--){$d+=$g[$p]*=-1
$p+='B0@R'[$d%4]-65}$g[$p]=0
-join'@_#'[$g]-replace'.{17}',"$&
"
Windows PowerShell,
Joey
- 13.2k
- 2
- 43
- 73