∇ Z←State interpret_char B;M1;Mode;Type;Pos
[1] →(B≠0)/1+⎕LC ◊ Z←' ' print_field 'wB' ◊ →0 ⍝ Background
[2] (M1 Mode Type Pos)←10 4 10 100⊤B
[3] Z←↑Mode↓' ',¯2↑⍕find_initial_pos State[Pos;]
[4] →(F,F,F,D4,D5,D6,D7,D8)[Type]
[5] D4: Z←'◢' print_field 'w',State[Pos;3 ] ◊ →0
[6] D5: Z←'◢' print_field State[Pos+0 1;3 ] ◊ →0
[7] D6: Z←'◢' print_field State[Pos ;3 1] ◊ →0
[8] D7: Z←'◢' print_field State[Pos+0 9; 1] ◊ →0
[9] D8: Z←'◢' print_field State[Pos ;1 ],'w' ◊ →0
[10] F: →M1↓0 ◊ Z←Z print_field State[Pos; Type]
∇
|
