	program bt
#
# testet die Banking-Routinen in BANKLIB.
#
byte	b1,b2
integer	i1,i2
real	r1,r2
#
data	b1,i1,r1/1,22,3.33/
#
write(1,10)
10 format('1Banking-Test'/)
call inibnk
do j=1,5
[
i=x'1000'
call storeb(b1,i)
i=i+1 ; call storew(i1,i)
i=i+2 ; call storer(r1,i)
write(1,20) b1,i1,r1
20 format(3x,2i4,f10.5)
i=x'1000'
call loadb(b2,i)
i=i+1 ; call loadw(i2,i)
i=i+2 ; call loadr(r2,i)
write(1,22) b2,i2,r2
22 format(3x,2i4,f10.5/)
]
end
