[ BF array operations ] [ Programmed by Jeffry Johnston ] [ June 24, 2001 ] Store a value in array memory ============================= 0 1 2 3 4 5 6 7 0AB#?#?#?#?#?#?#?#? DIM A(8) >>++++++<+++ B=6:A=3:A(B)=A >[>>[-]<<-[>>+<<-]+>>]>[-]<<<[<<]>[>[>>]>+<<<[<<]>-]>-< * 0 1 2 3 4 5 6 7 0AB#?#?#?#?#?#?#?#? * 036#?#?#?#?#?#?#?#? >*[ 036#?#?#?#?#?#?#?#? >>*[-] 036#0#?#?#?#?#?#?#? *<<-[ 035#0#?#?#?#?#?#?#? >>*+ 035#1#?#?#?#?#?#?#? *<<-] 034#1#?#?#?#?#?#?#? ==* 030#5#?#?#?#?#?#?#? *+ 03þ#5#?#?#?#?#?#?#? >>*] 03þ#5#?#?#?#?#?#?#? ==============* 03þ#þ#þ#þ#þ#þ#0#?#? *>[-]< 03þ#þ#þ#þ#þ#þ#00?#? *<<[<<] 03þ#þ#þ#þ#þ#þ#00?#? >*[>[>>]>+<<<[<<]>-] 02þ#þ#þ#þ#þ#þ#01?#? 01þ#þ#þ#þ#þ#þ#02?#? 00þ#þ#þ#þ#þ#þ#03?#? >*- 000#þ#þ#þ#þ#þ#03?#? *< 000#þ#þ#þ#þ#þ#03?#? Retrieve a value from array memory ================================== 0 1 2 3 4 5 6 7 0AB#?#?#?#?#?#?#?#? DIM A(8) 'A(6)=4 >>++++++<[-] B=6:A=0:A=A(B) >[>>[-]<<-[>>+<<-]+>>]>[<<<[<<]>+>[>>]>-]<<<[<<]> copy A to somewhere >[>>[-]<<-[>>+<<-]+>>]>[-]<<<[<<]>[>[>>]>+<<<[<<]>-]>-< * 0 1 2 3 4 5 6 7 0AB#?#?#?#?#?#?4?#? * 006#?#?#?#?#?#?4?#? >*[ 006#?#?#?#?#?#?4?#? >>*[-] 006#0#?#?#?#?#?4?#? *<<-[ 005#0#?#?#?#?#?4?#? >>*+ 005#1#?#?#?#?#?4?#? *<<-] 004#1#?#?#?#?#?4?#? ==* 000#5#?#?#?#?#?4?#? *+ 00þ#5#?#?#?#?#?4?#? >>*] 00þ#5#?#?#?#?#?4?#? ==============* 00þ#þ#þ#þ#þ#þ#04?#? >* 00þ#þ#þ#þ#þ#þ#04?#? *[<<<[<<]>+>[>>]>-] 01þ#þ#þ#þ#þ#þ#03?#? 02þ#þ#þ#þ#þ#þ#02?#? 03þ#þ#þ#þ#þ#þ#01?#? 04þ#þ#þ#þ#þ#þ#00?#? *<<<[<<]> 04þ#þ#þ#þ#þ#þ#00?#? After this is completed the value should be copied then stored back