home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / MAPSTATF.LBR / MAPSTAT.PZS / MAPSTAT.ÐAS
Text File  |  2000-06-30  |  2KB  |  55 lines
  1. Program Main;
  2.  
  3. Function UpCase(s:Char):Char;
  4. var
  5.   i : Integer;
  6.   upr, lwr : String[13];
  7. begin
  8.   upr:='ABCDEFGHIJKX'; lwr:='abcdefghijkx';
  9.   For i:=1 to 12 Do if s=lwr[i] Then s:=upr[i];
  10.   UpCase:=s;
  11. end; { of UpCase }
  12.  
  13. var
  14.    s : Char;
  15.    mapf : file;
  16. begin
  17.    s:='Z';
  18.    While (s<'A') Or (s>'K') And (s<>'X') Do
  19.    Begin
  20.    ClrScr;
  21.    Writeln; Writeln;
  22.    Writeln('                    *****  MAPSTAT v1.6 MENU *****');
  23.    Writeln('                   (Copyright 1985,6,7 D. Anderton)');
  24.    Writeln;
  25.    Writeln('             A. Data Transformation, Selection and Recoding');
  26.    Writeln('             B. Descriptive Statistics and Histograms');
  27.    Writeln('             C. Two Dimensional Plots or Scattergrams');
  28.    Writeln('             D. Hypothesis Testing on Variables or Subgroups');
  29.    Writeln('             E. Correlation and Covariance Matrices');
  30.    Writeln('             F. Partial Correlation and Covariance Matrices');
  31.    Writeln('             G. Multiple Linear Regression');
  32.    Writeln('             H. Factor Analysis with Orthogonal Rotations');
  33.    Writeln('             I. N-Way Crosstabs and Categorical Association');
  34.    Writeln('             J. Clustering by KMeans Algorithm');
  35.    Writeln('             K. Multiple Analysis of Variance');
  36.    Writeln;
  37.    Writeln('             X. Exit to OpSys');
  38.    Writeln;
  39.    Write('                        Enter Selection: ');
  40.    While Not Keypressed Do; Read(Kbd, s); s:=UpCase(s);
  41.    End;
  42.    If s='A' Then Assign(mapf,'MAPSTTRN.CHN');
  43.    If s='B' Then Assign(mapf,'MAPSTDSC.CHN');
  44.    If s='C' Then Assign(mapf,'MAPSTPLT.CHN');
  45.    If s='D' Then Assign(mapf,'MAPSTHYP.CHN');
  46.    If s='E' Then Assign(mapf,'MAPSTCOR.CHN');
  47.    If s='F' Then Assign(mapf,'MAPSTPTL.CHN');
  48.    If s='G' Then Assign(mapf,'MAPSTMLR.CHN');
  49.    If s='H' Then Assign(mapf,'MAPSTFAC.CHN');
  50.    If s='I' Then Assign(mapf,'MAPSTXTB.CHN');
  51.    If s='J' Then Assign(mapf,'MAPSTCLS.CHN');
  52.    If s='K' Then Assign(mapf,'MAPSTMNV.CHN');
  53.    If s<>'X' Then Chain(mapf);
  54. End.
  55.   W