SPEX 270M - Page 85

readln(selection);
case selection of
'a','A': initialize;
'b','B': frequencies;
'c','C': move device;
'd','D': exitflag := TRUE;
end;
until exitflag;
close(fptr);
end.
76
270M Rapid Scanning Imaging Spectrograph
Revised November 24, 1992
Leica Microsystems, Inc.'s Ex. 1033
Page 85 of 89