10 callnetbload("/software/basic/m-test/m.bin",1)
20 callnetbload("/software/basic/m-test/w.dat")
30 defusr=&ha000:a=usr(0)