##Windows PowerShell, <s>119</s> 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}',"$&
    "