SPEX 270M - Sample Pascal Program

270M Rapid Scanning Imaging Spectrograph
2 Sample Pascal Program:
program spexpas;
uses crt;
var
fptr : text;
selection : char;
exitflag : Boolean;
procedure initialize;
var
calib mono · steps, max slit steps : longint;
begin - - - -
calib mono steps : = 38406;
max -slit steps : = 1120;
write(fptr,'I ', calib mono steps, ' ',max slit steps,';');
readln; - - - -
end;
procedure frequencies;
var
mono freq, slit freq, shutter freq, de freq : longint;
begin - - - -
write('Mono frequency ......... '); readln(mono freq);
write('Slit frequency .......... ); readln(slit freq);
write('Shutter frequency ...... '); readln(shutter freq);
write('DC frequency ........... '); readln(dc freq);
write(fptr,'F ', mono_freq, '',slit_freq,' ',shutter_freq,' ', dc_freq,';');
readln;
end;
procedure query;
var
position : longint;
begin
reset(fptr);
read(fptr, position); .
writeln('Position : ',position);
rewrite(fptr);
end;
74
/
Revised November 24, 1992
/
Leica Microsystems, Inc.'s Ex. 1033
Page 83 of 89