% Randy Dimmett
% Semester Project
% Readline reads in a line of text in .BMP format
%  and then converts it to text.
MaxRows=12
MaxCols=9
BWLength=MaxRows*MaxCols;
[fname,pname] = uigetfile('*.bmp','Select sample data BITMAP file');
addpath(pname);
Img1 = imread(fname);
BW = im2bw(Img1,.5);
% Prepare input:
[IRows,ICols]=size(BW);
imshow(BW)
Colsctr=0;
disp('Sample Input gotten');

% Processing input:
start=1;
inputs=[];
while((Colsctr+MaxCols-1)<ICols)
      inchar=double(BW(start:BWLength+start-1));
      inputs=[inputs; inchar];	% Gathering inputs
      Colsctr=Colsctr+MaxCols;
      start=start+BWLength;
end