SPEX 270M - Page 84

270M Rapid Scanning Imaging Spectrograph
procedure move device;
var
device num : integer;
selection : char;
steppes : longint;
begin
write('Device number ... ~ ........ ); read\ntdev\ce num)~
writeln('A) Absolute move'); -
writeln('B) Relative move');
write('Selection : ');
readln(selection);
case selection of
'a','A':
'b' 'B'·
. ' .
end;
readln
end;
begin
begin
write('Absolute position ....... '); readln(steppos);
write(fptr,'A ',device num,' ',steppes,';');
write(fptr, ·a ',device-=_ num, ';');
query;
end;
begin
write('Relative position ....... '); readln(steppos);
write(fptr,'R ',device num,' ',steppes,';');
write(fptr, 'Q ',device-=_ num, ';');
query;
end;
exitflag : = FALSE;
assign (fptr, 'SPEXOOOO');
rewrite(fptr);
repeat
clrscr;
writeln('A) Initialize System');
writeln('B) Set Frequencies');
writeln('C) Move Device');
writeln('D) Quit');
gotoxy(1,6);
write('Selection : ');
Revised November 24. 1992
75
Leica Microsystems, Inc.'s Ex. 1033
Page 84 of 89