3000  CLEARW 2
3010  OPEN "O",#1,F$
3020  N=HM*VM
3030  FOR X=1 TO N
3040  C=B(N)
3050  PRINT#1,C
3060  NEXT
3070  CLOSE #1
3080  END