2000  CLEARW 2
2010  OPEN "I",#1,F$
2020  N=HM*VM
2030  FOR X=1 TO N
2040  INPUT#1,C
2050  B(N)=C
2060  NEXT
2070  CLOSE #1
2080  END