In thesubs_pathtab, in the functionmake_path() Replace
// to be added in [I] with
declare a Node named node
set node to the node at index L_ind in ArrayList nodes
set the s field of node to false
set the node at index L_ind in ArrayList nodes to node
set L_ind to -1
set index_B to i
declare an integer named p
set p to find_path(index_A, index_B)
if p is -1 {
} else {
declare a Path named path
set path to Path(index_A, index_B)
add path to Arraylist paths
}