[Reizel]

type Bank
field bank
field name$
end type

function AddBank(bank)
b.bank=new bank
b\name="bank"+handle(b)
b\bank=bank
end function

function FindBank(name$)
for B.bank=each bank
if(b\name==name) return b:exit;
next
end ufnciont