home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 023 / menu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-09-04  |  2.1 KB  |  45 lines
  1. 1  '      MENU for EASY-STATS  ---  MENU.BAS  ---  by  Dr Russell Langley
  2. 2  KEY OFF:CLEAR:SCREEN 0,0,0,0:CLS:DEFINT A-Z:DIM OP$(40,1)
  3. 3  HD$="... EASY-STATS  by  LANGLEY ...":PRINT TAB(40-LEN(HD$)\2);:COLOR 0,7:PRINT HD$:COLOR 7,0
  4. 4  PRINT:PRINT"  Use ARROW KEYS to move pointer to your choice, then press <ENTER> to run it.":PRINT STRING$(80,196)
  5. 5  FOR J=1 TO 40:READ OP$(J,0),OP$(J,1):IF OP$(J,0)="END" THEN OP$(J,0)="":OP=J-1:J=40
  6. 6  NEXT J:IF OP=0 THEN OP=40
  7. 7  IF OP <19 THEN N=OP ELSE N=INT(OP/2+0.5)
  8. 8  TOP=8:BOT=TOP+N-1:LT=3:GAP=40:RT=LT+GAP
  9. 9  FOR J=1 TO N:LOCATE TOP+J-1,LT+2,0:PRINT OP$(J,0):NEXT J:IF OP>N THEN FOR J=1 TO N:LOCATE TOP+J-1,RT+2,0:PRINT OP$(N+J,0);:NEXT J
  10. 10  P$=CHR$(16):S$=" ":LOCATE TOP,LT,0:PRINT P$;
  11. 11  ROW=CSRLIN:COL=POS(0):IN$=INKEY$:IF IN$=CHR$(13) THEN 17 ELSE IF LEN(IN$)<>2 THEN 11
  12. 12  ON ASC(RIGHT$(IN$,1))-71 GOTO 13,11,11,14,11,15,11,11,16:GOTO 11
  13. 13  IF ROW>TOP THEN COL=COL-1:LOCATE,COL:PRINT S$;:LOCATE ROW-1,COL:PRINT P$;:GOTO 11 ELSE 11
  14. 14  IF COL=RT+1 THEN COL=COL-1:LOCATE,COL:PRINT S$;:LOCATE ROW,COL-GAP:PRINT P$;:GOTO 11 ELSE 11
  15. 15  IF COL=LT+1 THEN COL=COL-1:LOCATE,COL:PRINT S$;:LOCATE ROW,COL+GAP:PRINT P$;:GOTO 11 ELSE 11
  16. 16  IF ROW<BOT THEN COL=COL-1:LOCATE,COL:PRINT S$;:LOCATE ROW+1,COL:PRINT P$;:GOTO 11 ELSE 11
  17. 17  J=ROW-TOP+1-(COL=RT+1)*N:IF J>OP THEN 11
  18. 18  IF J=1 THEN CLS:LOCATE 1,1:SYSTEM
  19. 19  IF J=7 THEN CLS:PRINT"Loading program....":SHELL "CRITS.EXE":GOTO 2
  20. 20  OPEN OP$(J,1) FOR INPUT AS #1
  21. 21  CLOSE:CLS:PRINT"Loading program....":RUN OP$(J,1)'<UNK! {000A}><UNK! {000A}>---  Menu Items & Filenames ---
  22. 41  DATA Exit to DOS,-
  23. 42  DATA Ancova & Comparing Regr Lines,ANCOV.BAS
  24. 43  DATA Anova 1-way,ANOV1.BAS
  25. 44  DATA "Anova 2-way, Unreplicated",ANOVU.BAS
  26. 45  DATA "Anova 2-way, Replicated",ANOVR.BAS
  27. 46  DATA Anova by Ranks (1- & 2-way),ANOVK.BAS
  28. 47  DATA "Bonferroni Critical Z,t,F,r,Chisq",CRITS.EXE
  29. 48  DATA Contingency Table Analyses,CONTY.BAS
  30. 49  DATA Correlation & Dispersion Matrices,CORMT.BAS
  31. 50  DATA Correlations (various),COREL.BAS
  32. 51  DATA Data Filer & Editor,DATFL.BAS
  33. 52  DATA Descriptive Statistics,DSTAT.BAS
  34. 53  DATA Mathematical Functions,MATHF.BAS
  35. 54  DATA Matrix Operations,MATOP.BAS
  36. 55  DATA Probabilities,PROBS.BAS
  37. 56  DATA "Regression, 1 or 2 predictors",REGRS.BAS
  38. 57  DATA Regroup Datafile by Categories,GROUP.BAS
  39. 58  DATA Remake an Upper Triangular Matrix,REMAK.BAS
  40. 59  DATA Standard Scores,ZSCOR.BAS
  41. 60  DATA t Tests,TTEST.BAS
  42. 61  DATA Tabulation (1 & 2 ways),TABLE.BAS
  43. 62  DATA Wilcoxon's Tests,WILCX.BAS
  44. 63  DATA END,END
  45.