Program Main;

Function UpCase(s:Char):Char;
var
  i : Integer;
  upr, lwr : String[13];
begin
  upr:='ABCDEFGHIJKX'; lwr:='abcdefghijkx';
  For i:=1 to 12 Do if s=lwr[i] Then s:=upr[i];
  UpCase:=s;
end; { of UpCase }

var
   s : Char;
   mapf : file;
begin
   s:='Z';
   While (s<'A') Or (s>'K') And (s<>'X') Do
   Begin
   ClrScr;
   Writeln; Writeln;
   Writeln('                    *****  MAPSTAT v1.6 MENU *****');
   Writeln('                   (Copyright 1985,6,7 D. Anderton)');
   Writeln;
   Writeln('             A. Data Transformation, Selection and Recoding');
   Writeln('             B. Descriptive Statistics and Histograms');
   Writeln('             C. Two Dimensional Plots or Scattergrams');
   Writeln('             D. Hypothesis Testing on Variables or Subgroups');
   Writeln('             E. Correlation and Covariance Matrices');
   Writeln('             F. Partial Correlation and Covariance Matrices');
   Writeln('             G. Multiple Linear Regression');
   Writeln('             H. Factor Analysis with Orthogonal Rotations');
   Writeln('             I. N-Way Crosstabs and Categorical Association');
   Writeln('             J. Clustering by KMeans Algorithm');
   Writeln('             K. Multiple Analysis of Variance');
   Writeln;
   Writeln('             X. Exit to OpSys');
   Writeln;
   Write('                        Enter Selection: ');
   While Not Keypressed Do; Read(Kbd, s); s:=UpCase(s);
   End;
   If s='A' Then Assign(mapf,'MAPSTTRN.CHN');
   If s='B' Then Assign(mapf,'MAPSTDSC.CHN');
   If s='C' Then Assign(mapf,'MAPSTPLT.CHN');
   If s='D' Then Assign(mapf,'MAPSTHYP.CHN');
   If s='E' Then Assign(mapf,'MAPSTCOR.CHN');
   If s='F' Then Assign(mapf,'MAPSTPTL.CHN');
   If s='G' Then Assign(mapf,'MAPSTMLR.CHN');
   If s='H' Then Assign(mapf,'MAPSTFAC.CHN');
   If s='I' Then Assign(mapf,'MAPSTXTB.CHN');
   If s='J' Then Assign(mapf,'MAPSTCLS.CHN');
   If s='K' Then Assign(mapf,'MAPSTMNV.CHN');
   If s<>'X' Then Chain(mapf);
End.