NSUG.12  CANNON INDEX MLTRG   HISTX   CHISQ   HISTO "  LNREG , ACHLR ; ANOVA J XYPLT Y  COEFF c NOVAT k  FTEST u  TTEST   GREG  TMEAN  TPAIR  EXREG  STDEV  CONREG  GMEAN  DISKRD  DISKS  DISKWR  DISKOP   TWOMI  MOON  GDAN1 ! GDAN2 ' GDAN3 - WACHT 3 MAREF E POLON K MINGB Q  "MLTRG" 6 PROGRAMMED SPT 4,1977 BY BARRY WILS IN BASIC5  %#10F2 " NO ERR CRECTIBE CAREFUL ( !2 20),"<<< REGRESSION >>>" 4 #7 20),"MULTIPLE Y`S PER X" /< SEE SOKAL ROHLF,P 430, SAMPLE PROBLEM F P Z %d "ENTER NUMBER OF COLUMNS ",K n R1 K 5x THERE ARE 2 LOOPS,E COLUMNS,E UES } 40),"COLUMN ",R # "ENTER VALUE OF X ",X * "ENTER NUMBER OF SAMPLES ",N1  X8 X8 N1X  X9 X9 N1XX  I 1 N1  & 40),"NEXT SAMPLE ",I % "ENTER VALUES OF Y ",Y  Y2Y2YY  Y1 Y1 Y  I  M Y1N1  S1 Y2 Y1M " DS1N11)) , @ 20),"MEAN ",M J 20),"ST.DEV.",D O 20),"NUMBER ",N1 T P1 P1 Y1 ^ P2P2Y2 h P3P3Y1Y1N1 m N N N1 p Q0 Q0 XY1 r M0 | X0  Y20  S10  D0  Y10  R  2 "ENTER `GO' FOR ANALYSIS OF VARIANCE ",A$ ( A$ "GO" \ A$ "GO" & Q1 X8X8N \ Q2 X9 Q1 5 Q3 Q0 X8P1N \ P4 P1P1N \ P5 P2 P4 2 P6 P3 P4 \ P7 P5 P6 \ Q4 Q3Q3Q2 : Q5 P6 Q4 \ Q6 Q3Q2 \ Q7 P1N) Q6X8)N 4 M6 P6K1) \ M7 P7NK) \ M5 Q5K2) +& F1 M6M7 \ F2 Q4M5 \ F3 M5M7 0 : 30)," ANOVA TABLE " I "------------------------------------------------------" 2N "GROUPS",5),K1,20),P6,30),M6,40),F1 6X "LINREG",12),"1.00",20),Q4,30),Q4,40),F2 2b "DEVREG",5),K2,20),Q5,30),M5,40),F3 )l "WITHIN",5),NK,20),P7,30),M7 ?v "-------------------------------------------------------"  "TOTAL",5),N1,20),P5  5 " SLOPE ",Q6," Y-INTCPT ",Q7    FUNCTIAL M  "HISTX" 3 PROGRAMMER, BARRY WILS, SEPTEMBER 9,1977 ( 82 12),"<<< HISTOGRAM FOR EXHAUSTION SCORES >>>" < ;F 11)," EXHAUSTION SCORES ARE CLASSIFIED INTO TEN" =P 11),"CLASSES OF 1-2,3-4,...19-20,PLUS CLASSES FOR" :Z 14),"0 AND SCORES > 20. THE OVERALL MEAN AND " 3d 16),"STANDARD DEVIATION ARE ALSO SHOWN" 'n 21),"IF ERROR, ENTER 999999" x S0  %#10F2  N100)  D1 20  ND)0 D  . "ENTER TOTAL NUMBER OF SAMPLES ",I1  I1 I1 $ 35),"SAMPLE NUMBER ",I  "ENTER VALUES ",X  X999999   X20   X0   SSX " S2S2XX , DX) 6 ND)ND)1 @ I J &T 21),"EXHAUSTION FREQUENCIES" H^ "CLASS 0 2 4 6 8 10" 20" 5~ "FREQ",O,8),P,16),Q,24),R,32),T,40),B  MSI1  VI1S2SS)I1I11)  E V)  4 " NUMBER",I1," MEAN ",M," ST DEV ",E  $ "ENTER INCORRECT VALUE ",X  SSX  II1  DX)  ND)ND)1   B1B11\   A1A11\   /e  FUNCTIAL M  "CHISQ"  %#10F3 " 22),"<<< CHI-SQUARE>>>" ( 2 <  THE LOWER`aND UPPER`LIMITS OF THE CLASSES aRE 0 0 # RETHE PROGRAM`FOLLOWS $ % * X10  9F HERE IS A SAMPLE`SET OF NUMBERS. ETER 10 AMPES, d D0 `y n ND)0 x D y .z "ENTER TOTAL`NUMBER`OF`SAMPLES ",I1  `I1 I1 # 40,SAMPLE`NUMBER ",I  "ENTER`VALUES ",X  X999999 ,  SSX  LE S2S2X\X  DYNTX)  ND)ND)1 I  %2% D "CLASS 0 1 2 3 4" A K0N0)I1\ K1N1)I1, K2N)I1\ K3N3)I1\ K4N4)I1   D "CLASS 5 6 7 8 9"  MSI1  VI1S2SS)I1I11)  ESQRV)  -  20),"MMAN ",Ml40),"ST.DEV ",E 2 0.5,1.52.5,3.5,4.55.5,6.5,76.5,8.5,9.5. #, "ENTER INCORRECT VALUE` ",X 6 SSX ; II1 @ S2S2XX J DhX) L ND)ND)1 T 2 O LARGE PROGRAM. CHECK ERR.TRY AGAIN"   >>" 2 < %#5F2 +F 15),"ENTER X,Y PAIRS OF NUMBERS " -P 14),"DETERMINE IF ONE IS A LINEAR " 'Z 15)," FUNCTION OF THE OTHER." (d 15),"-------------------------" +n 13)," ENTER X = 999999 AND ANY Y" +x 13)," FOR CORRECTION OF AN ERROR"    ) "ENTER NUMBER OF SAMPLE PAIRS ",N  I1 N ! 43),"NEXT SAMPLE ",I  "ENTER X : ",X  X 999999   X1 X1 X  "ENTER Y : ",Y  Y1 Y1 Y  X2 X2 XX  Y2 Y2 YY  Z Z XY  I " N I1 , X3 X1N 6 Y3 Y1N @ S1 X2 X1X3 J S2 Y2 Y1Y3 T S Z X1Y3 ^ B SS1 h B1 Y3 BX3 r S3 S2 BS | S4 S3 N2)  E1 S1N1))  E2 S2N1))   27),"STATISTICS"  27),"----------"  20),"X",40),"Y" $ 5),"MEAN",18),X3,38),Y3 & 5),"ST DEV",18),E1,38),E2 - 18),"------------------------------" $ 22)," Y = ",B1," + ",B," X"  3 14),"SLOPE : ",B, 35),"INTERCEPT : ",B1 3 22),"CORRELATION COEFFICIENT ",SS1S2)  2 "FOR ANOVA,ENTER `YES',OTHERWISE `NO' ",A$ ) A$ "YES" &\ A$ "YES" & %#7F2 0 : #D 22),"ANALYSIS OF VARIANCE" 'N 19),"DF",32),"SS",45),"MS" X +b 3),"MEAN",18),"1.00",29),Y3Y1 /l 3),"REGRESSION",18),"1.00",29),BS 3v 3),"DEVIATIONS",15),N2,29),S3,41),S4 9 6),"-------------------------------------------" # 3),"TOTAL",15),N,29),Y2  4 3),"F-TEST :",BSS4,35),"DF (1,",N2,")"    : "ERROR ERROR ERROR ERROR ERROR "  ' "ENTER X OF INCORRECT PAIR ",X8  X1 X1 X8  X2 X2 X8X8 ' "ENTER Y OF INCORRECT PAIR ",Y8  Y1 Y1 Y8   Y2 Y2 Y8Y8  Z Z X8Y8   "* "ENTER CORRECT X HERE ",X9 "4 "ENTER CORRECT Y HERE ",Y9 > X1 X1 X9 H X2 X2 X9X9 R Y1 Y1 Y9 \ Y2 Y2 Y9Y9 f Z Z X9Y9 p z 0A@AH^`A`^BX^pAh^Bx^VB^BhB@APA^  "ACHLR"  ! PROGRAMMED BY BARRY WILS *( 18),"<<< LINEAR REGRESSION >>>" 2 < 9? "------------------------------------------------ " F %#10F2 /P 13),"ENTER X,Y PAIRS OF NUMBERS AND " -Z 13),"DETERMINE IF ONE IS A LINEAR " 'd 13)," FUNCTION OF THE OTHER." +n 13),"ENTER X=999999 AND ANY Y AND" ,x 13),"CORRECT THE PAIR IF IN ERROR."    ) "ENTER NUMBER OF SAMPLE PAIRS ",N  I1 N ! 43),"NEXT SAMPLE ",I  "ENTER X ",X  X 999999  X1 X1 X  "ENTER Y ",Y  Y1 Y1 Y  X2 X2 XX  Y2 Y2 YY  Z Z XY  I " N I1 , X3 X1N 6 Y3 Y1N @ S1 X2 X1X3 J S2 Y2 Y1Y3 T S Z X1Y3 ^ B SS1 h B1 Y3 BX3 r S3 S2 BS | S4 S3 N2)  E1 S1N1))  E2 S2N1))   25),"STATISTICS"   16),"NUMBER ",N 6 15),"MEAN OF X = ",X3,36),"MEAN OF Y = ",Y3 < 13),"ST.DEV. OF X = ",E1,34),"ST.DEV. OF Y = ",E2  $ 25)," Y = ",B1," + ",B,"X"  9 11), "SLOPE OF LINE = ",B,34),"Y INTERCEPT ",B1  3 15),"CORRELATION COEFFICIENT ",SS1S2)  2 "FOR ANOVA,ENTER `YES',OTHERWISE `NO' ",A$ +& A$ "YES" :\ A$ "YES" L 0 #: 23),"ANALYSIS OF VARIANCE" 'D 15),"DF",30),"SS",45),"MS" N #X "MEAN ",15),"1",29),Y3Y1 &b "REGRESSION",15),"1",29),BS .l "DEVIATIONS",15),N2,29),S3,45),S4 v  "TOTAL",15),N,29),Y2  / "F-TEST ",BSS4,35),"DF (1,",N2,")"    : "ERROR ERROR ERROR ERROR ERROR "  ' "ENTER X OF INCORRECT PAIR ",X8  X1 X1 X8  X2 X2 X8X8 ' "ENTER Y OF INCORRECT PAIR ",Y8  Y1 Y1 Y8  Y2 Y2 Y8Y8   Z Z X8Y8  "  "ENTER CORRECT X HERE ",X9 "* "ENTER CORRECT Y HERE ",Y9 4 X1 X1 X9 9 X2 X2 X9X9 > Y1 Y1 Y9 H Y2 Y2 Y9Y9 R Z Z X9Y9 \ GOT 180  @APA]pA^B ^A^%B+^PC3^CpCGPAbPAC^uBK^"uBc^%B[^7(A7(P@k^@t`?{^"5XA'SxRA YES  "ANOVA"   -( 18),"<<< ANALYSIS OF VARIANCE >>>" #2 18)," ONE WAY" < 5F 15),"GROUPS MAY HAVE UNEQUAL SAMPLE SIZES" 1P 17)," T-TEST FOR 2 MEANS IS INCLUDED " 1U 17),"ENTER 999999 TO CORRECT AN ERROR" V 7W 15),"ADJUST EXPONENT TO ENTER VALUE AS X.XX " Z %#8F3 \ ^ ` &d "ENTER NUMBER OF COLUMNS : ",K n x R 1 K  40),"COLUMN ",R + "ENTER NUMBER OF SAMPLES : ",N1  I 1 N1 * 40),"SAMPLE NUMBER ",I  " ENTER X : ",X X 999999   X1 X1 X  X2 X2 XX I $ M X1N1 \ D1 X2 X1M  D D1N1 1))  20),"MEAN ",M  20),"ST DEV ",D  20),"SAMPLES",N1 4 X3 X1X1N1 \ S1 S1 X1 \ S2 S2 X2 # S3 S3 X3 \ N N N1 5 X1 0 \ X2 0 \ X3 0 \ N1 0 \ D1 0 " R , 76 " ENTER ` GO ' FOR STATISTICS DIRECTORY : ",A$ )@ A$ "GO" J \ A$ "GO" J T ^ #h 18)," DIRECTORY " $r 20)," ENTER AS DIRECTED " $| 20),"------------------ " % 18)," ANOVA ", 35)," ANO" % 18),"T-TEST", 35)," TST" # 18)," END", 35)," END" 5 15)," -----------------------------------" * " ENTER HERE : ",B$ . B$ "ANO" X \ B$ "TST"   B$ "END"   ? "ERROR ERROR ERROR "  * "REENTER INCORRECT VALUE : ",V ! X1 X1 V \ X2 X2 VV  "& "ENTER CORRECT VALUE : ",Z !0 X1 X1 Z \ X2 X2 ZZ 0: "CONTINUE WITH REGULAR PROGRAM " \ X ?b S4 S1S1N \ S5 S2 S4 \ S6 S3 S4 \ S7 S5 S6 l v & 24),"ANALYSIS OF VARIANCE "   %#8F2 8 20),"DF",30),"SS",40),"MS",48),"F-TEST" ? 11),"----------------------------------------------" 1 G6 S6K1) \ G7 S7 NK) \ F G6G7 8 1),"GROUPS",18),K1,28),S6,38),G6,48),F 0 1),"WITHIN",18),NK,28),S7,38),G7 @ 11),"-----------------------------------------------" + 1),"TOTAL",18),N1,28),S6 S7  = "ENTER `GO' FOR T-TEST OF MEANS ,`END' TO STOP : ",C$ ) C$ "GO"  \ C$ "GO"    # 22), " STUDENT'S T-TEST" ) 20), "DIFFERENCE OF TWO MEANS"   ! "ENTER FIRST MEAN : ",A ! "ENTER SECOND MEAN : ",B   +  "ENTER ST DEV OF FIRST MEAN : ",S3 + "ENTER ST DEV OF SECOND MEAN : ",S4  & "ENTER N OF FIRST MEAN : ",N3 & "ENTER N OF SECOND MEAN : ",N4 + E3 S3S3N31) \ E4 S4S4N41) 0 S5 E3E4)N3N42)N3N4)N3N4))  T AB)S5  , "T-TEST : ",T,", DF : ",N3 N4 2    >* "ENTER `GO' FOR MORE ANALYSES, OR `END' TO STOP : ",D$ )4 D$ "GO" ^ \ D$ "GO"   ! 22),"<<< X-Y PLOT >>>" . \\ 18)," PLOT A SET OF X & Y POINTS" = 08),"ENTER X1=LOWER X ENDPOINT, X2=UPPER X ENDPOINT" 6( 13),"X3 = X AXIS WIDTH,Y1 = LOWER Y ENDPOINT" 42 12),"Y2= Y UPPER ENDPOINT,Y3 = Y INCREMENT" )< 18)," N=NUMBER OF DATA POINTS"\ @F "THERE MUST BE MORE THAN 8 VERTICAL LINES AND 15 X WIDTH" P " X1 : ",A1 Z " X2 : ",A2 d " X3 : ",A n A75 &x "X3 MUST BE LESS THEN 75"\ d  A2A1 > "PLEASE REREAD THE INTRUCTIONS. THANK YOU!"\\\\   A15  " Y1 : ",B1  " Y2 : ",B2  " Y3 : ",B  B2B1  B0  PB2B1)B.5) / "THE NUMBER OF VERTICAL LINES IS",P\P1P 6 P8 "VERTICAL LINES SHOULD BE MORE THAN 7!" * "TYPE YES IF YOU WANT TO CHANGE",A$  A$"YES"  " N : ",Y 5 Y2  "NUMBER OF POINTS TOO FEW!"\   XY),YY) " \ "ENTER DATA PAIRS" , I 1 Y !6 30),"SAMPLE NUMBER ",I @ "ENTER X : ",XI) J "ENTER Y : ",YI) T XI)A1 XI)A2 h ^ h YI)B1 YI)B2 | r '| XI)XI)A1)A2A1))A4.5) & YI)YI)B1)B2B1))P.5)  I  M6Y\NY  M6M62)  M60 :  K6YM6  J61\B91\Q4  I6J6  L6I6M6  YI6)YL6)   TYI6)\T1XI6)  YI6)YL6)\XI6)XL6)  YL6)T\XL6)T1  I6I6M6  I61   J6J61 & J6K6  0  : I6 1 Y D I8I81\ I8YI6 l N YI6)YI6I8) l X XI6)XI6I8) D 5b TXI6)\XI6)XI6I8)\XI6I8)T\I81\ N l I80\ I6 v " Y" 4 YN) P p C90  C9C91\  4 %4F0,B2B1).5)B9,\C9.2P1.5)\B9B9.2  XN)4 "+",\   XN)4 " +",  XN)),"*",  NN1  N0  ( XN)XN1) YN1)YN)   YN1)YN)    PP1  P0   " ",  XN)Q    XN)),"*",  QXN)1\NN1\ N0    XN)XN1)   % "+",\QQ1\ Q5A H    X1)A2 H * B6X1) A2 4 B6),"+", > B6 H \ B7.2 1 .2 R B8A2A1)B7.5) \ B7A3),B8,"X", f B7\ -p C90 z C9C91\ " ","+"\  8z %4F0,B2B1).5)B9,"+"\B9B9.2\C9.2P1.5)  PP1\ P0   :_B_PBr_PBR_Z_EB `0Aj_B _`A/6 FROM WANG PGMS ADAPTED BY BARRY WILS,OCT 1977  "COEFF"  \ \ 3 15), "<<< COEFFICIENT OF CORRELATION >>>" ( \ \ "2 "ENTER SAMPLE NUMBER : ",N < S1O\S20\S30\S40\S50 F I 1 N $P 30),"NEXT SAMPLE : ",I Z "ENTER X : ",X d "ENTER Y : ",Y n S1 S1 X x S2 S2 Y  S3 S3 XX  S4 S4 YY  S5 S5 XY  I 2 R NS5S1S2)NS3S1S1)NS4S2S2))  " "COEFF OF CORRELATION : ",R `AWBWXPCWUBW!P7RF'B`DpAPAE Cw0q)@O' TO CONTINUE : ",B$  B$ "GO"  17),"DEFENSIVE PLAYS" ! 15),"----------------  "NOVA2" 8 ADAPTED FROM WANG PROGRAM BY BARRY WILS,OCT '77  \\ 4 17),"<<< TWO-WAY ANALYSIS OF VARIANCE >>>" ( \\ A2 12)," COMPUTES AN ANOVA FOR COLUMNS AND ROWS IN A TWO " A4 12),"FACTOR EXPERIMENT. GROUPS MUST BE OF EQUAL SIZES" A5 12),"DATA ARE ENTERED ROW BY ROW, 4 ELEMENTS TO A LINE" @6 12),"ADD ZERO TO LAST ENTRY TO COMPLETE A 4 POINT SET" ?8 13),"NO ERROR CORRECTION. BASED ON A WANG PROGRAM." : \ < X4),T99) F "NUMBER OF ROWS : ",R P "NUMBER OF COLUMNS : ",C Z d "ENTER TABLE OF DATA" n I 1 R x S5 0  J 1 C 4 " X1),X2),X3),X4)  K 1 4 ' TJK1)TJK1)XK)  S5 S5XK) $ S2 S2 XK)XK)  K J  S3 S3 S5S5  S1 S1 S5  I   J 1 C  S4 S4TJ)TJ)  J  " S1 S1S1RC , S S2S1 6 I RC1 @ S4 S4R S1 J J C1 T V1 S4J ^ S3 S3CS1 h K R1 r V2 S3K | S5SS3S4  L IJK  V S5L  %#10F2  25),"ANOVA"  4 1),"SOURCE",15),"SUMSQ",25),"DEG FREE",  40),"MEAN SQ" A "---------------------------------------------------------" $ 1),"TOTAL", 10),S,20),I . 1),"COLUMN",10),S4,20),J,35),V1 + 1),"ROW",10),S3,20),K,35),V2 0 1),"RESIDUAL",10),S5,20),L,35),V A "---------------------------------------------------------"  %#5F2 0 10), "F(COL) :",V1V, 25), "DF :",J,L / 10), "F(COL) :",V2V,25), "DF :",K,L W /$C"PC"pC&0C/d4D3DDaD  "FTEST" 1 COMPUTATIS SHOULD BE CHECKED SOME ME  \\\ &( 20),"<<< F-TEST VALUES >>>" 92 ADAPTED FROM WANG PROGRAM BY BARRY WILS,OCT `77 < \\\\\\\ "F "ENTER F-TEST VALUE : ",F P 'Z "ENTER DF OF NUMERATOR : ",N )d "ENTER DF OF DENOMINATOR : ",D n P 1 x F 1 A N B D J 1 F1 F   A D  B N  F1 1F  A1 29A  B1 29B 4 Z1B1)F113)1A1)B1F123)A1)  B 4  = P.51Z.196854Z.115194Z.000344Z.019527))))4   ,  Z Z1.08Z4B3) " , F 1 @ 6 T @ P 1P J T F3P1E6)1E6 $^ "PROBABILITY OF F : ",F3 h F3 .05  r F3 .05  | \ 7 "ENTER `GO' FOR ANOTHER VALUE,`NO' TO STOP"  A$ ! A$ "GO" <  ' "NO SIGNIFICANT DIFFERENCE"  F3 .01   0 "SIGNIFICANT AT .05 % LEVEL" \ | ( "SIGNIFICANT AT .01 % LEVEL"  |  Z#BAAs>ZAZ  "TTEST" : ADAPTED FROM A WANG PROGRAM BY BARR WILS,0CT `77  \\\\\ &( 20),"<<< T-TEST VALUES >>>" ) 4- 14),"PROBABILITIES ARE FOR TWO-TAIL TEST" 1. 15)," MULTIPLY VALUE BY TWO OR DIVIDE" 2/ 15)," PROBABILITY BY HALF FOR ONE-TAIL" $0 15)," TEST" 2 \\\ < "ENTER T-VALUE : ",T F P "ENTER DF : ",D Z P 1 \ M 1 d T TT n T 1 x A M B D T1 T A D B M T1 1T  A1 29A  B1 29B 3 Z 1B1)T113)1A1)B1T123)A1)  B4 @ P .51Z.196854Z.115194Z.000344Z.019527))))4  Z Z1.08Z4B3)  T1    P 1P  T3 1E6P)1E6   "PROBABILITY OF T : ",T3 $" "--------------------------" # T3 .05 $ % !$ "NOT SIGNIFICANT" \ ^ % T3 .01 & ' ,& "SIGNIFICANT AT .05 % LEVEL" \ ^ ,' "SIGNIFICANT AT .01 % LEVEL" \ ^ , ^ ` 2c "ENTER `GO' FOR ANOTHER,`NO' TO STOP :",A$ h A$ "GO" 2   Z$0BpAe?AZAZpAZ$0BZ  "GREG"  \\\ , 17),"<<< GEOMETRIC REGRESSION >>>"  \\\  \\ + " ENTER NUMBER OF SAMPLE PAIRS : ",N   S10\S20\S30\S40\S50 ( I 1 N #2 35),"NEXT SAMPLE : ",I < "ENTER X : ",X F "ENTER Y : ",Y P X X) U Y Y) Z S1 S1 X d S2 S2 Y n S3 S3 X2 x S4 S4 Y2  S5 S5 XY  I " B NS5S2S1)NS3S12)  A S2BS1)N  %#10F3  & " B" " "A : ",A)," Y = AX"  "B : ",B  S1 BS5S1S2N)  S4 S4S22N  S2 S4 S1 \ 5 "ENTER `YES' FOR ANALYSIS OF VARIANCE : ", A$  A$ "YES"     20),"REGRESSION ANOVA"  %#7F3 6 1),"SOURCE",15),"SUM SQ",25),"DEG FREE",  35),"MEAN SQ" : "------------------------------------------------" 8" 1),"REGRESSION",15),S1,25), 1.000,35),S1 8, 1),"RESIDUAL",15),S2,25),N2,35),S2N2) &@ 1),"TOTAL",15),S4,25),N1 E J "F : ",S1S2N2) T ,Y "ENTER `GO' FOR COEFFICIENTS : ",D$ Z D$ "GO" ^  ^ S5 S1S4 +h "COEFF OF DETERMINATION : ",S5 .r "COEFF OF CORRELATION : ",S5) 4| "STANDARD ERROR OF ESTIMATE : ",S2N2))    8 "ENTER `YES' TO ESTIMATE Y FROM THE CURVE : ",B$  B$ "YES"    "ENTER VALUE OF X : ",X   "Y : ",A)XB  - "ENTER `YES' FOR ANOTHER POINT : ",C$  C$ "YES"   @A+\V"EA3\?;\DdG`BC\F@AdgHBPA15IDAHAVwAs\iA YES !tl73k"o # FROM ALDER ROESSLER,P 144 + PROGRAMMED BY BARRY WILS, OCT 1977 F SAMPLE X1 X1 131 S1 6.06 N1 4 , X2 135 S2 3.35 N2 6 ( T UE 1.359 DF 8 2 "TMEAN" < \ \ \ \ 0F 15)," <<< T TEST BETWEEN TWO MEANS >>>" P \ \ \ \ \ Z "ENTER FIRST MEAN : ",X1 #d "ENTER FIRST ST. DEV. : ",S1 &n "ENTER FIRST SAMPLE SIZE : ",N1 x "ENTER SECOND MEAN : ",X2 $ "ENTER SECOND ST. DEV. : ",S2 ' "ENTER SECOND SAMPLE SIZE : ",N2 \ - E1 S12)N11) \ E2 S22)N21) , S3 E1 E2 ) N1 N2 2 ) )  S5 S3 N1)  S6 S3 N2) " S4 S52) S62) )  T X1 X2 ) S4  %#10F3  " T VALUE : ", T # " DEG.FREE : ", N1 N2 2  2 "ENTER `GO' FOR ANOTHER CALCULATION : ",A$  A$ "GO" P " BYCJY``ARY@APCjY3PA`AbYpCV%BrYEY"AzY"yUAYa$WA)BxA - EQUATIS FROM ALDER ROESSLER P 147 + PROGRAMMED BY BARRY WILS,0CT 1977 @ SAMPLE\83,78,74,74,67,63,64,66,70,68,67,63,81,77,64,65, # T UE \ 2.13 2.12 IS OK )  "TPAIR"  \ \ \ 2 15),"<<< T TEST FOR PAIRED VARIATES >>>" ( \\\\ +2 "ENTER NUMBER OF SAMPLE PAIRS : ",N < I 1 N F 40),"NEXT SAMPLE : ",I P "ENTER VALUE OF X : ",X Z "ENTER VALUE OF Y : ",Y d D X Y n D1 D1 D x D2 D2 D2  S1 S1 X  S2 S2 Y  S3 S3 X2  S4 S4 Y2  I   $ 15),"MEANS AND DEVIATIONS" 4 0),"VARIABLE",18),"MEAN",28),"ST.DEV",  38),"NUMBER"  %#10F3  M1 S1N \ M2 S2N < V1 NS3 S12)NN1) \ V2 NS4 S22)NN1) E1 V1) \ E2 V2) 1 0), " X ",15),M1,25),E1,35),N ) 0), " Y ",15),M2,25),E2  " D3 D2 D1D1N , T D3 N1)) 1 T1 T N) 3 T2 D1N)T1 6 "T TEST : ",T2 @ "DEG FREE : ", N1 J T wZ߼}(D g"Ew$($(08$ H^!;A$AYݷC[]W~ a@DH Æ\F'YܶٱL * PROGRAMMED BY BARRY WILS.OCT 1977  "EXREG"  \\\ . 15),"<<< EXPONENTIAL REGRESSION >>>" # $ 20)," BX " % 20)," Y = A e" ( \\\ (2 "ENTER NUMBER OF X,Y PAIRS : ",N < I 1 N F P "ENTER X : ",X Z "ENTER Y : ",Y d Y Y) n S1 S1 X x S2 S2 Y  S3 S3 X2  S4 S4 Y2  S5 S5 XY I  %#10F2 & B NS5 S2S1)NS3 S12)  A S2 BS1)N  $ 15)," ",B,"X" 15)," Y = ",A)," e "   " A : ",A)  " B : ",B  S1 BS5 S1S2N)  S4 S4 S22N  S2 S4 S1  3 "ENTER `GO' FOR STATISTICAL ANALYSIS : ",B$ " B$ "GO" , , \\ #6 20),"REGRESSION ANALYSIS" 6@ 0),"SOURCE",12),"SUM SQ",22),"DEG FREE", &A 32),"MEAN SQ",42),"F TEST" ?J 0),"------------------------------------------------" 0T 0),"REG",10),S1,25)," 1",30),S1, U 40),S1S2N 2) 9^ 0),"RESIDUAL",10),S2,19),N2,30),S2N2) ;h "--------------------------------------------------" 'r 0),"TOTAL",10),S4,20),N1 w ,| 10),"COEFF OF DETERMINATION : ",S5 / 10),"COEFF OF CORRELATION : ",S5) 4 10),"STD ERROR OF ESTIMATE : ",S2N2))  9 "ENTER `GO' FOR CALCULATING Y FROM A NEW X : ",D$  D$ "GO"    "ENTER VALUE OF X : ",X   "NEW Y : ",A)BX)  3 "ENTER `GO' FOR ANOTHER Y CALCULATION : ",E$  E$ "GO"  W \ XA/\v`F7\CPAETwDO\#7(>edA GO GO y+_N)^r * PROGRAMMED BY BARRY WILS,NOV.1977  "STDEV" " N0\S0\S20\M0\V0\D0\E0  \\\\ ,( 17),"<<< MEANS AND DEVIATIONS >>>" =2 8),"ENTER ANY NUMBER OF VALUES. TO STOP ENTER 9999" < \\\\ &F 35),"SAMPLE NUMBER : ",N 1 P "ENTER VALUES : ",X Z X 9999 d S S X n N N 1 x S2 S2 XX F MSN  N20  VNS2 SS)NN1  VNS2 SS)NN D V)  E VN)  2 10),"MEAN",22),"ST DEV",35),"NUMBER" 1 10),"---------------------------------" %#8F2  8),M,18),D,33),N  0 "ENTER 1 FOR ST ERROR OF THE MEAN ",A \  A 1  , " "ST ERROR OF THE MEAN :",E " 4, "ENTER 1 FOR A NEW CALCULATION, 0 TO END ",B 6 B 1 DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  "CONREG"  \\\ < PROGRAMMED BY BARRY WILS,NOV.1977 ... UG HOEL,P 229 1 A AR REGRESSI FROM `BASIC PROGRAMMING' 2 15),"<<< CONFIDENCE LIMITS TO SLOPES >>>" % 20)," T TEST BETWEEN SLOPES" ( \\\\ - %#10F2 2 X10\X20\Y10\Y20\Z0 +7 X1100),Y1100),N100),X100),Y100) < "ENTER N :",N F I 1 N 8K " NEXT SAMPLE : ",I P "ENTER X : ",XI) Z "ENTER Y : ",YI) d X1 X1 XI) n X2 X2 XI)XI) x Y1 Y1 YI)  Y2 Y2 YI)YI)  Z Z XI)YI)  I  X3 X1N  Y3 Y1N  S1 X2 X1X3  S2 Y2 Y1Y3  S Z X1Y3 B SS1  B1 Y3 BX3  S3 S2 BS  S4 S3N2)  R0  I 1 N  T XI) X3  R R TT  Y5 B1 BXI) " V YI) Y5 , W W VV 6 I @ 2J 1),"MEAN X :",X3,15)," MEAN Y :",Y3, T 30)," NUMBER :",N 3^ 1),"SLOPE :",B, 16)," Y-INTCPT :",B1 h " F TEST :",BSS4, *r 15)," CORR COEFF :",SS1S2) 4w " DF : 1 ",N2, " ST DEV Y :",S2N1)) |  "ENTER TEST SLOPE : ",B5  B6 B5 B  B7 N2)RW  B8 B6B7)  - "T-TEST OF SLOPES : ",B8," DF : ",N2 / "ENTER 1 FOR ANOTHER TEST,0 TO END : ",P  P 1 |   ([`AH[B8[BJ]0CCB!Nae  "GMEAN" < PROGRAMMED BYBARRY WILS,NOV,1977 FROM A WANG PROGRAM  \\\ <( 12),"<<< GEOMETRIC MEAN AND STANDARD DEVIATION >>>" 2 \ 8< 15)," COMPUTES THE MEAN AND STANDARD DEVIATION" :F 14)," OF A GEOMETRICALLY NORMALLY DISTRIBUTED " P 14)," POPULATION." Z \\\ &d "ENTER NUMBER OF SAMPLES : ",N i %#8F3 n N1 1N x M 1  I 1 N ' 30)," NEXT SAMPLE : ",I % "ENTER SAMPLE VALUE : ",A  MMAN1  B BA)2 I * S BN1)NN1))M))2))   "GEOMETRIC MEAN : ",M + "GEOMETRIC STANDARD DEVIATION : ",S  `XB@1BBBBp'C"X B" " "A : ",A)," Y = AX"  "B : ",B  S1 BS5S1S2N)  S4 S4S22N  S2 S4 S1 \ 5 "ENTER `YES' FOR ANALYSIS OF VARIANCE : ", A$  A$ "YES"     20),"REGRESSION ANOVA"  %#7F3 6 1),"SOURCE",15),"SUM SQ",25),"DEG FREE",  35),"MEAN SQ" : "------------------------------------------------" 8" 1),"REGRESSION",15),S1,25), 1.000,35),S1 8, 1),"RESIDUAL",15),S2,25),N2,35),S2N2) &@ 1),"TOTAL",15),S4,25),N1 E J "F : ",S1S2N2) T ,Y "ENTER `GO' FOR COEFFICIENTS : ",D$ Z D$ "GO" ^  ^ S5 S1S4 +h "COEFF OF DETERMINATION : ",S5 .r "COEFF OF CORRELATION : ",S5) 4| "STANDARD ERROR OF ESTIMATE : ",S2N2))    8 "ENTER `YES' TO ESTIMATE Y FROM THE CURVE : ",B$  B$ "YES"    "ENTER VALUE OF X : ",X   "Y : ",A)XB  - "ENTER `YES' FOR ANOTHER POINT : ",C$  C$ "YES"   @A+\V"EA3\?;\DdG`BC\F@AdgHBPA15IDAHAVwAs\iA YES !tl73k"o # FROM ALDER ROESSLER,P 144 + PROGRAMMED BY BARRY WILS, OCT 1977 F SAMPLE X1 X1 131 S1 6.06 N1 4 , X2 135 S2 3.35 N2 6 ( T UE 1.359 DF 8 2 "TMEAN" < \ \ \ \ 0F 15)," <<< T TEST BETWEEN TWO MEANS >>>" P \ \ \ \ \ Z "ENTER FIRST MEAN : ",X1 #d "ENTER FIRST ST. DEV. : ",S1 &n "ENTER FIRST SAMPLE SIZE : ",N1 x "ENTER SECOND MEAN : ",X2 $ "ENTER SECOND ST. DEV. : ",S2 ' "ENTER SECOND SAMPLE SIZE : ",N2 \ - E1 S12)N11) \ E2 S22)N21) , S3 E1 E2 ) N1 N2 2 ) )  S5 S3 N1)  S6 S3 N2) " S4 S52) S62) )  T X1 X2 ) S4  %#10F3  " T VALUE : ", T # " DEG.FREE : ", N1 N2 2  2 "ENTER `GO' FOR ANOTHER CALCULATION : ",A$  A$ "GO" P " BYCJY``ARY@APCjY3PA`AbYpCV%BrYEY"AzY"yUAYa$WA)BxA - EQUATIS FROM ALDER ROESSLER P 147 + PROGRAMMED BY BARRY WILS,0CT 1977 @ SAMPLE\83,78,74,74,67,63,64,66,70,68,67,63,81,77,64,65, # T UE \ 2.13 2.12 IS OK )  "TPAIR"  \ \ \ 2 15),"<<< T TEST FOR PAIRED VARIATES >>>" ( \\\\ +2 "ENTER NUMBER OF SAMPLE PAIRS : ",N < I 1 N F 40),"NEXT SAMPLE : ",I P "ENTER VALUE OF X : ",X Z "ENTER VALUE OF Y : ",Y d D X Y n D1 D1 D x D2 D2 D2  S1 S A$8),C$4) . THE FOLLOWING IS PRECISI 8 BASIC & P IS TWO NUMBERS 10 BYTES) 0( P3 IS P PLUS 64 TIMES P4 1994 BYTES) 72 P4 IS THREE NUMBERS TWO STRINGS 31 BYTES) < P$20) F P$19) P BP$) Z #0,"DISKS"\ #0 %0,P d BP  n #0 %P2,A x P4161.5P\P3PP464) ) "PRINTER OUTPUT DEVICE NUMBER? ",D 0 "ALL",A," DISKS, ONE DISK, BY FILE NAME," - "BY FILE TYPE OR EXIT (A,O,N,T,E) ",A$  A$""  A$1,1)"T"   A$1,1)"E"  A$1,1)"O" |  A$1,1)"N"   A$1,1)"A"  ALL DISKS  C1\ #D,80  Z0A1  P1PZP3)   * #D,"DISK NUMBER",A1,",",A2," FILES"  Z10A21 " P2P1PZ1P4) ,  6 * @ Z1 J C1 T #D,\ #D,\ #D,\ Z ^ #0 %P2,A h r LY E DISK | C1\ #D,80  "WHICH DISK? ",B " BA P1PB1)P3)   #0 %P1,A1,A2 * #D,"DISK NUMBER",A1,",",A2," FILES"  Z10A21  P2P1PZ1P4)    *  Z1  #D,\ #D,\ + ALL FILES WITH THE SAME NAME % FROM E CHARACTER EIGHT.  #D,50 # "WHAT FILE DO YOU WANT? ",D$  D$""  BD$)  Z0A1 & P1PZP3) 0  : Z10A21 D P2P1PZ1P4) N  >X A$1,B)D$ #D,"DISK",A1,", ",A$,%4I,B1,B2,B3," ",C$ b Z1 l Z v # ALL FILES BY FILE E  #D,50  "WHICH FILE TYPE? ",B  Z0A1  P1PZP3)    Z10A21  P2P1PZ1P4)   8 B3B #D,"DISK",A1,", ",A$,%4I,B1,B2,B3," ",C$  Z1  Z   #0 %P2,A$,B1,B2,B3,C$    #0 %P1,A1,A2   !* #D,A$,%4I,B1,B2,B3," ",C$, /4 A VDM TTY CHANGE THE P OF C 2 %> A 132 ER CHANGE C 4 )H BOTH CHANGE "::" " " .R CHANGE THE TWO #D,80 130 63 #\ A PROPER LOOKING PUT. f C3 #D, #D,"::", p C3 C1 CC1 z # "THERE ARE ONLY",A," DISKS,"   / "THE FILE YOU ARE TRYING TO USE WAS NOT" ' "CREATED IN",B2," DIGIT BASIC," $ "PLEASE USE THE RIGHT BASIC!"  #0\  . B0AA0AONE1 AAA 1ONE2 A A A ONE3 0A0A0A                                                                                                                           AATWO1 AAA 1HELLO 4CPCiB TWO3 0A0A0A TWO4 @A@A@A TWO5 PAPAPA TWO6 `A`A`A TWO7 pAxBpA TWO8 AAA                                                                                                                 0A0ATHREE1 AAA 1THREE2 A AAFC3FHOLD 0A0A@A THREE4 @A@A@A MACHO CB"PB@A CREEP 0A@BA 0TIM DCBTB                                                                                                                    & A$8),B$8),C$4),B1$4),A1$8)  B1$" "\B$B1$B1$  P$20)\P$19)\BP$) ( #0,"DISKS",Q\ #0 %0,P 2 BP  < #0 %P2,A F P4161.5P\P3PP464) P Q1Q256P1)P3) 8Z "ADD NEW DISK, UPDATE OLD DISK, CHANGE OLD FILE," 4d "WRITE OVER OLD DISK. (FROM START TO FINISH)" .n "OR EXIT FROM PROGRAM. (A,U,C,W,E) ",A$ x A$"" Z  A$"E"   A$"A" X  A$"U"   A$"C"   A$"W" Z  "WHICH DISK? ",A1  A1A  9 B64 #0,A$,B1,B2,B3,C$, #0,B$,0,0,0,B1$, Z - "THERE ARE ONLY",A," DISKS. TRY AGAIN" Z 7 "THAT PUTS TO MANY FILES ON ONE DISK, TRY AGAIN"  Z  "WHICH DISK? ",B  BA " "HOW MANY NEW FILES? ",A3 , P1PB1)P3) 6 #0 %P1,A1,A2 @ A2A364 \A5A2A3 J P2P1PA2P4)\P5P1P2 ET "DISK NUMBER",A1," HAD",A2," FILES, NOW WILL HAVE",A5," FILES" ^ Z1A3 h 4 )r #0 %P2Z1)P4),A$,B1,B2,B3,C$, |  #0 %P5,A5,  Z  "WHICH DISK? ",B  BA  "WHICH FILE? ",A1$  A1$"" \A1$A1$B$  P1PB1)P3)  #0 %P1,A1,A2  A2$"N"  Z1A2  #0,A$,B1,B2,B3,C$ A A$A1$ "IS THIS THE RIGHT FILE? ",A$,%4I,B1,B2,B3,C$,  A$A1$ " ",A2$  A2$1,1)"Y" 0  6 "FILE NOT FOUND ON THIS DISK, TRY AGAIN PLEASE" & Z 0 4 : P2P1PZ1)P4) D #0 %P2,A$,B1,B2,B3,C$, N Z X A1A1 b  5l B64 #0,A$,B1,B2,B3,C$ #0,B$,0,0,0,B1$ v AA1\ #0 %P2,A,  Z  P1PA11)P3)  A1Q1   "DISK NUMBER ",A1  "NUMBER OF FILES? ",A2  A20   BA2\ B64 A263  #0 %P1,A1,B  Z1A2  4  #0,A$,B1,B2,B3,C$   ZA2163  #0,B$,0,0,0,B1$    AA1   B64 4 * 4 "FILE NAME? ",A$ > A$"" 4 H "DISK ADDRESS? ",B1 R "NUMBER OF BLOCKS? ",B2 \ "TYPE OF PROGRAM? ",B3 *f B31 "GO ADDRESS? ",C$ C$B1$ +p C$"" f\ C$)4 \A4C$) z A44A4  C$B1$1,A4)C$  A$A$B$  " "NO MORE ROOM ON DISK FILE"  #0\ / "THE FILE YOU ARE TRYING TO USE WAS NOT" ' "CREATED IN",B2," DIGIT BASIC,"    3 DAVID L. HAVERTY BYTE SHOP OF BERKELEY 2 8 DIGIT BASIC THE LARGEST FILE IS 250 7 BLOCKS WHICH S YOU PUT IN 32 DISK DIRECRYS 2( YOU CAN USE THESE THREE PROGRAMS IN ANY -2 BASIC FROM 2 DIGIT 14 DIGIT IT 0< WILL WK JUST FINE AS LG AS YOU USE 1F THE SAME BASIC ALL THREE, YOU D'T 6P THE PROGRAM WILL BE KIND ENOUGH TELL YOU) 0Z "THIS PROGRAM IS USED TO START YOUR FILE" 1d "AFTER USING IT THE FIRST TIME USE DISKWR" 5n "TO WRITE TO THE DISK. USE DISKRD TO READ THE" -x "DIRECTORY FILE. TO STOP ENTER A 0 AS" * "THE ANSWER TO THE NUMBER OF FILES" - ">>>>--------> DANGER <--------<<<<" 0 "IF YOU GO ANY FURTHER WITH THIS PROGRAM" 6 "TO AN OPEN FILE THEN YOU WILL LOSE EVERYTHING" * "YOU HAVE WRITTEN TO IT SO FAR!!!!"  8 A$ IS THE FILE NAME B$ IS BLANKS C$ IS THE GO " ADDRESS B1$ IS BLANKS  A$8),B$8),C$4),B1$4)  B1$" "\B$B1$B1$ 3 Q IS THE NUMBER OF BLOCKS Q1 IS FIND 6 HOW MANY DISKS WILL FIT IN THE FILE DISKS  #0,"DISKS",Q  P$20)\P$19)\PP$)  P1P161.5P)64)  Q1Q256P1)P1) " Q10  , A0\A11 %6 THE FIRST THING WE DO IS "@ THE PRICISI A ZERO J #0,P,A T "DISK NUMBER ",A1 1^ "NUMBER OF FILES? (OR ZERO TO END IT) ",A2 h A20  .r THE DISK NUMBER NUMBER OF FILES | #0,A1,A2 * LY THE RIGHT NUMBER OF FILES  Z1A2  "FILE NAME? ",A$  A$""   "DISK ADDRESS? ",B1  "NUMBER OF BLOCKS? ",B2  "TYPE OF PROGRAM? ",B3 * B31 "GO ADDRESS? ",C$ C$B1$ + C$"" \ C$)4 \A4C$) . THIS RINE CLEANS UP THE GO ADDRESS  A44A4  C$B1$1,A4)C$  A$A$B$  #0,A$,B1,B2,B3,C$  ' NOW UP THE AREA SO YOU CAN (& INCREASE THE DISK FILES LATER 0 ZA2164 : #0,B$,0,0,0,B1$ D N AA1\A1A11 5X FIND WE HAVE ED UP THE FILE AREA Q1) 'b IT IS DOWN THE PROCESS l A1Q1  v T ( "NO MORE ROOM ON DISK FILE"\   #0 %P2,A,  #0  gdB LBC ̀G  $hg ~ BfEioO}O*R"Rz=M~O+{M͛OxB#+{O=MxBOA+>%p@ڻMxB̓O,P@>&p@=NͶ=M!O)+Ow#Mn@MM*RO 0001 /TRANSCRIBED BY AL HARRAL &0005 / GERMAN DANCE 1 P8 W.A. MOZART 0010 K1& 0015 NS=90 0018 <4 0020 PA -0025 M1 *IE"D"Q.C"ID"B"C" V2*H.$Q2 V3*H$Q30 '0030 M2 *Q.A"IB"9"A" V2*Q$$0 V3*Q$1-2 #0035 M3 *Q8D"C, V2*Q89"A, V3@Q134 0040 M4 *ICB"9,7,E"D" V3@Q07 $0045 M5 *ICBCDBC" V2*HAQ9 V3@Q+310 $0050 M6 *IA9AB9A" V2*H8Q7 V3@Q+110 $0055 M7 *I89AB97" V2@H+1Q0 V3@Q130 0060 M8 *QA V2*Q5 V3@Q4+3 0065 PB RA 0070 PC &0075 M9 *ICB"9B"QD"IB9" V2@I$$701010 )0080 M11 *IAC"QE"ICA" V2@I2020+30 V3@I4 !0085 M12 *I9B"DB"DB" V2@I701010 )0090 M13 *IAC"QE"IE"D" V2@I20"Q+3 V3@I4 "0095 M14 *Q.C"ID"B"C" V3@Q+31+0# 0100 M15 *Q.A"IB"9"A" V3@Q+1H2 (0105 M16 *Q.8"IB"9"7" V2*H6"Q6 V3@Q130 0110 M17 *QA V2*Q5 V3@Q4+3 0115 PD RC 0120 PE 0125 M18 *S4323" '0130 M19 *Q4,4,S5434" V2*Q2,2, V3@Q77 '0135 M20 *Q5,5,S6545" V2*Q3,3, V3@Q44 $0140 M21 *Q6,68" V2*Q3,36" V3@Q668 "0145 M22 *Q7$S4323" V2*Q5 V3@QB4 $0150 M23 *Q4,4,S5434" V2@I10+2010" $0155 M24 *Q5,5,S6545" V2@I20+3020" *0160 M25 *I6,7,8,6,4,3, V2@Q+1$1 V3@Q3$7 0165 M26 *Q3 V2@Q2 V3@Q4B" 0170 PF RE 0175 PG +0180 M27 *S876%7"Q4,4,D V2*H.$Q0 V3@H.$Q5 %0185 M29 *QCB"S876%7" V2*Q79 V3@Q47 "0190 M30 *Q4,4,D V2*Q$$0 V3@Q$$5 $0195 M31 *QCB"S4323" V2*Q79 V3@Q47 20200 M32 *Q4,4,S5432" V2*Q$2, V3@I+2,+1,0,1,2,3, 10205 M33 *Q5,5,S6545" V2*Q3,3, V3@I4,5,6,7,8,9, 10210 M34 *I6,7,8,6,4,2,Q3 V2@H$I13Q2 V3@QA$74B" 0215 PH RG 0220 PI RA 0225 PJ RA 0230 PK RC 0235 PL RC  0001 /TRANSCRIBED BY AL HARRAL &0005 / GERMAN DANCE 2 P9 W.A. MOZART 0010 NS=90 0015 PA 0017 <4 (0020 M1 *I9A"A#B"QB" V2@Q+2"+1 V3@Q0"1 &0025 M2 *I78"8#9"Q9" V2@Q0"1 V3@Q2"3 ,0030 M3 *I7#8"A9"87%" V2@Q2$2" V3@Q4"6"4#" 0035 M4 *I76"86"3#4" V2@Q31" *0040 M5 *I9A"A#B"QB" V2@Q+2"+1" V3@Q0"1" '0045 M6 *ICD&"D%E"QE" V2@Q0"0 V3@Q2"3 )0050 M7 *IEC"CA"A8" V2@Q+1$+3" V3@Q2$1" 0055 M8 *Q7 V2@Q+2 V3@Q03"7" 0060 PB RA 0065 PC -0070 M9 *I67"7#8"Q8" V2@Q+1"1"1" V3@Q3"3"3" -0075 M10 *I9A"A#B"QB" V2*Q0"2"2" V3@Q3"3"3" ,0080 M11 *I67"7#8"98" V2*H.1" V3@Q3"4#"4%" -0085 M12 *I9A"A#B"CB" V2@Q0"1"0" V3@Q5"6"7" (0090 M13 *I9A"A#B"QB" V2*Q2"1" V3@Q0"1 '0095 M14 *I78"8#9"Q9" V2*Q0"0 V3@Q2"3 -0100 M15 *IEC"CA"A8" V2*ICA"A8"86" V3@Q2$3" 0105 M16 *Q7 V2*Q2 V3@Q03"7" 0110 PD RC 0115 PE #0120 M17 *H.4" V2*H.2" V3@Q7"5"3" 00125 M18 *I7,6,5,4,3,2, V2*I2,4,3,2,1,0, V3@Q0 -0130 M19 *Q1"I1"3"2"4" V2@Q1"1"0" V3@Q$3"3" 0135 M20 *Q3" V3@Q3"6"8" #0140 M21 *H.3" V2*H.1" V3@QA"8"6" 00145 M22 *I8,7,6,5,4,3, V2*I6,5,4,3,2,1, V3@Q3 .0150 M23 *Q2"I42"31" V2*Q0"I20"20" V3@Q$7"A" 0155 M24 *Q0 V3@Q7"A"E" 0160 PF RE 0165 PG 0170 M25 *Q987 V2*Q000 V3@Q012 #0175 M26 *Q654# V2*H2Q2 V3@Q3#4#5 0180 M27 *I998978 V3*I02-12-22 #0185 M28 *I67564#2 V3@I3#+24#+2Q5 0190 M29 *Q765 V2*Q222 V3@Q210 0195 M30 *H5Q8 V2*H3Q5 V3@Q654 #0200 M31 *Q6I6786 V2*Q143 V3@Q333 0205 M32 *Q7 V2*Q2 V3@Q037" 0210 PH RG 0215 PI RA 0220 PJ RA 0225 PK RC 0230 PL RC "5"4"3"6"4"3"2" V2@Q8"7"E" 0225 M38 *Q2H3" V2@QB"E"B" %0230 PI RH PJ RA PK RA PL RC PM RC 1" 0290 ,0001 / GERMAN DANCE 3 PAGE 10 W.A. MOZART 0002 NS=80 <2 0003 K1& PA !0004 M1 *QA"A"A" V2*555 V3@QB97 0006 M2 *QA$ICE V2*Q5 V3@Q8B 0007 M3 *IDCBA98 V3@QA98 0008 M4 *I787654 V3@Q7 "0009 M5 *Q3"3"3" V2@Q222 V3@Q666 0010 M6 *I4567Q8 V2@Q1 V3@Q8 "0011 M7 *Q2"2"2" V2@Q111 V3@Q777 0012 M8 *I3456Q7 V2@Q2 V3@Q4 0013 PB RA 0014 PC (0015 M9 *Q7"7"7" V2*Q444 V3@I5+25+25+2 0016 M10 *I89ABQC V2*Q2 V3@Q4 *0017 M11 *Q6%"6"6" V2*Q333 V3@I3+13+13+1 0018 M12 *I789AQB V2*H2 V3@H0 #0019 M13 *IABCDQE V2*Q000 V3@Q222 #0020 M14 *IBCDEQF V2*Q111 V3@Q111 "0021 M15 *Q9"9"9" V2*Q666 V3@077 0022 M16 *HA V2*H5 V3@Q47B" 0023 PD RC 0024 PE $0025 M17 *I57Q.AIC V2*Q$00 V3@Q422 $0026 M18 *IBDQ.9IB V2*Q$00 V3@Q711 $0027 M19 *IACQ.7I5 V2*Q$00 V3@Q322 #0028 M20 *I684624 V2@Q$11 V3@Q733 $0029 M21 *I323456% V2@Q2$4 V3@Q6$6 $0030 M22 *I76%7986 V2@Q3$3 V3@Q5$4 )0031 M23 *IBCB9A8 V2@I$$+20+11% V3@Q733 0032 M24 *H7 V3@Q037" 0033 PF RE 0034 PG $0035 M25 *I79Q.BIC V2@Q$11 V3@Q733 $0036 M26 *IACQ.7I5 V2@Q$00 V3@Q422 $0037 M27 *I64Q.4I2 V2@Q$11 V3@Q733 $0038 M28 *I35Q.7I5 V2@Q$22 V3@QB44 "0039 M29 *I676564 V2@H.3 V3@H7Q8 #0040 M30 *I787564 V2@Q4$3 V3@Q9$8 %0041 M31 *I565342 V2@Q4$I13 V3@Q7$7 0042 M32 *H3$ V2@Q2 V3@Q4B 0043 PH RG 0044 PI RA 0045 PJ RA 0046 PK RC 0047 PL RC 3@HE"E" 2 !0001 /TRANSCRIBED BY AL HARRAL 0005 / WACHET AUF BY J.S.BACH 0010 / CHORAL PRELUDE 0015 K3& 0020 >3 0025 PA NI=A0 0035 M1 *I-1"S23I4"43"54"-1-2" 0040 V3@I$QC"C"C"A" 0045 M2 *S42I3"-2-3"12"$-1" 0050 V3@Q9"8"C" 0055 M3 *S23I4"43"54"-1-2" 0060 V3@QC"C"C"A" 0065 M4 *S42I3"-2-3"12"$6" 0070 V3@Q9"8"C" "0075 M5 *Q6"S5432"3210"I-1"S0"1" 0080 V3@QA"7"8"9" 0085 M6 *S23"43"5432"I43"$-1, 0090 V2@Q$$8"6" 0095 V3@QA"C"E"D" "0100 M7 *I4"Q5%"I6"T:322S1I2"$0, 0105 V2@Q5"6"7"5" 0110 V3@QC"D"E"C" &0115 M8 *I5%"Q6"I7"T:322S1I2"$T78S9" 0120 V2@Q4"3"2%"4" 0125 V3@QB"A"9%"B" (0130 M9 *S87I6"T:676"S5%"I.6S543210-1" 0135 V2@Q1"2%"3"4" 0140 V3@Q8"9%"A"B" (0145 M10 *S01I2"T:322"S1"I.2S5%676543" 0150 V2@Q5"6"7"5" 0155 V3@QC"D"E"C" )0160 M11 *I63"T2121S0-1"-1"2"1"0"I1"-1" 0165 V2@I6"8"4" 0170 V3@ID"F"B"B"A"9%"8"D" 40175 M12 *T-2%-3I-3"S-2%"@T1"2"1"2"1"2"3"2"Q1"I$1" 0180 V2@H$I8"7"8"9&" 0185 V3@IC"E"QB"IF"E"F"9&" 0190 M13 *S23I4"43"54"-1-2" 0195 V2@H$Q53 0200 V3@IA"B"C"D"QE"E" 0205 M14 *S42I3"-2-3"12"$2 0210 V2@Q1111 0215 V3@QA"8"C"A" 0220 M15 *S23I4"43"54"-1-2" 0225 V2@Q0"2"6"5" 0230 V3@Q9"9"D"C" 0235 M16 *S42I3"-2-3"12"$3" 0240 V2@Q7"6"5"1 0245 V3@QE"D"C"D" 0250 M17 *I4"Q5%"I6"23Q4" $0255 V2@Q+21"T:011"S2%"I1"$+2" 0260 V3@Q7"A"I7"6"Q5 40265 M18 *I5%"Q6"I7"T:433"S2"I3"T1"0"1"0"1"0"-1"0" 0270 V2*Q.3"I2"Q1 0275 V3@I5"6"A"9%"8"D"C"B" 0280 M19 *Q.$I6"Q6"S5&432" 0285 V2@W1" 0290 V3@I8"9%"8"7"6"8"Q5" &0295 M20 *S3210"I-1"S0"1"23"43"5432" 0300 V2@Q$1"+2"1" 0305 V3@Q8"9&"A"C" 00310 M21 *I43"@I.3"T2"1"I2"3"T3"4"3"4"3"4"5"4" 0315 V2@Q0"$$I$9" 0320 V3@I9"8"Q7"B"I8"*I6" $0325 M22 @QA"*S5432"3210"I-1"S0"1" 0330 V2@H5" 0335 V3*Q6"@Q7"8"9" 0340 M23 *S23"43"5432"I43"$-1" 0345 V2@Q$$8"6" 0350 V3@QA"C"F"D" %0355 M24 *I4"Q5%"I6"T:322"S1"I2"$0" 0360 V2@Q5"6"7"5" 0365 V3@QC"D"E"C" )0370 M25 *I5%"Q6"I7"T:322"S1"I2"$T78S9" 0375 V2@Q4"3"2%"4" 0380 V3@QB"A"9%"B" +0385 M26 *S8"7"I6"T:676"S5%"I.6S543210-1" 0390 V2@Q1"2%"3"4" 0395 V3@Q8"9%"A"B" (0400 M27 *S01I2"T:322"S1"I.2S5%676543" 0405 V2@Q5"6"7"5" 0410 V3@QC"D"E"C" /0415 M28 *I6"3"T2"1"2"1"S0"-1"-1"2"1"0"I1"-1" 0420 V2@I6"8"4"B"A"9%"8"D" 0425 V3@ID"F"B" 00430 M29 @T2%3I3"S2%"T1"2"1"2"1"2"3"2"Q1"I$+1" 0435 V2@IC"E"QB"$1" 0440 V3@H$I8"7"8"9&" (0445 M30 *I2"Q3"I4"T:-10-1"S-2"I-1"$6" &0450 V2@Q1"2"3"T2"3"2"3"2"3"4"3" 0455 V3@QIA"B"C"D"C"A"9"8" !0460 M31 *Q6"S5432"3210"I-1S01" 0465 V2@H5"Q8"9" 0470 V3@IE"D"QC"F"9" 0475 M23 *S2343"5432"I43" 0480 V2@Q$1"1"2" 0485 V3@QA"C"IF"E"D"F" 0490 M33 *Q$I$4"S78I9"98" %0495 V2@Q3"T3"4"3"4"3"4"5"4"H5" !0500 V3@IC"6"7"8%"7"A"7"8&" 0505 M34 *IA9"43"S97I8"32" 0510 V2@Q2"5"4"3" 0515 V3@Q9"C"B"A" 0520 M35 *I6%7$4,Q4"S3210" 0525 V2@Q4"3"H2" !0530 V3@I9"A"B"C%"4"5&"6"7" +0535 M36 *S10-1%-2%"I-3"S-2"-1"0121"3210" 0540 V2@H3"Q5"7" 0545 V3@I8%"A"$B"QC"E" 0550 M37 *I21"$-3"2Q3#I4" 0555 V2@Q3"1%"0"1&" 0560 V3@QA"8%"7"8&" )0565 M38 *T:100"S-1&"I0"$-2%"3#"Q4"I5%" 0570 V2@Q2%"7"6"5" 0575 V3@Q9%"E"D"C" 00580 M39 *T:100"S-1"I0"$7"S6"5%"I4X5454"S3#"I4 0585 V2@Q$6"3"4%" 0590 V3@QB#"D"A"B%" 60595 M40 *S4"3%"2"1"0"-1"-2%"-3"-2"-1"I0X1010"S-1"I0 0600 V2@Q5"6"7"8" 0605 V3@QC"D"E"F" 80610 M41 *S0"3#"4"5%"4"3"2%"1"I4"1"T0"-1"0"-1"S-2%"-3" 0615 V2@Q9%"7"I8"A"6"D" 0620 M42 *Q-3"-1"0"1" 0625 V2@Q$8"7"I6"1, 0630 V3@IA"C"B"A"9&"A"9"8, 0635 M43 *S23I4"43"54"-1-2" 0640 V2@I7"8"7"6"Q5"7" 0645 V3@IE"F"E"D"QC"E" 0650 M44 *S42I3"-2-3"12"23 0655 V2@Q9"8"I7"8"01 0660 V3@Q$F"IE"F"E"D" 0665 M45 *H-1"Q6"S5432" ,0670 V2*Q4"T4"3"4"3"4"3"2"3"@I3"4"3"2" 0675 V3@I5"6"C"B"A"B"A"9" #0680 M46 *S3210"I-1S01"2343"5432" 0685 V2@I6"8"$2"Q3"5" 0690 V3@ID"F"$9"QA"C" 0695 M47 *I43"$2"7"Q8"I9" 0700 V2@Q$1"+2"1" 0705 V3@I8"9"QA"9"A" #0710 M48 *T:565"S4"I5"$7"8"Q9"IA" )0715 V2@Q0"3"I2"3"T3"4"3"4"3"4"5"4" 0720 V3@QB"C"B"F" +0725 M49 *T:655S4I5"$3"S4"3"I2X3232"S1"I2 0730 V2@W5" 0735 V3@QE"9"8"A" /0740 M50 *S2"8&"7"6"5"4"3"2"3"4"I5X6565"S4"I5 0745 V3@I9"A"B"C"QD%"B" 0750 M51 *S5"1%23210-1" 0755 V3@I8"7"8"9" 0760 PB NI=B0 0764 M52 *I6"2"S4"3"2"1" 0770 V3@IA"7"9"8" 0775 PC NI=C0 0780 M53 *S2"5"4"3"I4"2" 0785 V2@I5"6"5"3" 0790 V3@IE"D"C"A" 0795 PD NI=D0 0800 M54 *T:100I0"S1"I.1"S2"H2 0805 V2@I3"4"1"4"H5 0810 V3@I9"B"8"F"HC w!9?sPS w +Ar+61tP> 0001 /TRANSCRIBED BY AL HARRAL $0005 / MARCH IN E-FLAT BY J.S.BACH 0010 K3& 0015 >2 PA NS=A0 &0020 M1 *I24Q6I7896QB" V3@Q53I24Q35" )0025 M2 *IBA98Q9"7 V2*H.$Q5" V3@Q815"2" (0030 M3 *Q7H6"Q5" V2*Q5H4"Q3" V3@H1"8" %0035 M4 *I:432"H2"QB" V3@Q5I34Q3"5" (0040 M5 *I:A98"I8,8,8A98" V3@Q6,1,8,1, 40045 M6 *I:987"I7,7,7987" V2@Q2%,2,2, V3@QB,4,4,4, ?0050 M7 *I:89A"IA,A,A,A,D8" V2*Q-1,I8,8,8,8,Q-1, V3@Q4,4,4,4, @0055 M8 *I:789"I9,9,9,9,E9" V2*Q-2%,I7,7,7,7,Q-2, V3@Q4,4,4,4, )0060 M9 *I:8DC%BA9876T78787878 V3@Q154B 0065 M10 *H.6" V3@Q8BF" 0070 PB RA 0075 PC (0080 M11 *I67QAI9876QC" V3@Q8"8"7"6"8" /0085 M12 *TCDCDCDCDHB"Q4" V3@QC"I5"6"5"4"5"6" +0090 M13 *I:987"A98"BA9"IC9" V3@Q7"6"5"4" .0095 M14 *T78787878H6%"I4,4, V3@QA"I34#Q3"A" '0100 M15 *I6%484"43"3,3, V3@QA,A,A,A, $0105 M16 *I6%483"32"79 V3@QA,A,7,7 .0110 M17 *IB7I:A98T8989898989898989 V3@Q523A %0115 M18 *H.7"I98 V3@Q7"0"I1"2"3"4" &0120 M19 *I96HBQ8&" V3@Q3"I5"4"Q3"5" ,0125 M20 *T8&9898989H7"Q8%" V3@Q9"I23Q2"4" 10130 M21 *I:9"A"B"C"B"A"B"A"9"ID9" V3@Q3"6"5"3" +0135 M22 *I:8"7"6"H6"Q5" V3@Q1"I8"7"Q6"8" :0140 M23 *I:456"I6,6,6,6,94" V2*Q$I4,4,4,4, V3@Q5,5,5,C, =0145 M24 *I:345"I5,5,5,5,A5" V2*Q$I3,3,3,3,@Q6, V3@8,8,8,8, <0150 M25 *I:456"I6"6"B654" V2@Q5,I+4"+4"Q5,5, V3@Q8,8,8,8, <0155 M26 *I:345"I5"5"A543" V2@Q6,I+3"+3"Q6,6, V3@Q8,8,8,8, 10160 M27 *I:498765432T34343434H.2" V3@Q521858C" 0165 PD RC  0001 /TRANSCRIBED BY AL HARRAL #0005 / POLONAISE IN G BY S.J.BACH 0010 K1# <6 0015 PA NI=78 %0020 M1 *Q89A V2*Q6,7"5" V3@Q3,3,3, (0025 M2 *IBSD8H9" V2*Q6"H7" V3@Q3,3,3, (0030 M3 *I8SB6I7S95I6S84 V2*Q6 V3@Q345 "0035 M4 *S6543Q21" V3@Q6S6DB9Q6" +0040 M5 *I1,S43I4,1,Q1" V3@I6,S34I3,6,Q6" +0045 M6 *I1,S43I4,1,Q1" V3@I6,S23I2,6,Q6" 0050 M7 *QBSBA987654 V3@Q879 0055 M8 *S3753"Q34" V3@Q6HA" 0060 PB RA PC 0065 M9 *Q89A V2*Q67#8 V3@3"34 (0070 M10 *IBSDBHB" V2*Q9"H9" V3@Q57#9" (0075 M11 *SACBAI.DSCBA98 V2*Q8 V3@Q635 %0080 M12 *S7#C97Q65" V3@Q2S297#5Q2" 00085 M13 *I5,S87#I8,5,Q5" V3@I2,S+10#I+1,2,Q2" /0090 M14 *I5,S98I9,5,Q5" V3@I2,S+2+1I+2,2,Q2" 0095 M15 *QFSFE#DCBA98 V3@Q435 %0100 M16 *S7#B97"Q78" V3@Q26S6"0%12 30105 M17 *S89IA%"Q.AS98 V2*S67%I8"Q.8 V3@Q3#,3,3, #0110 M18 *S7C97Q65" V3@Q2S2975Q2" 00115 M19 *S78I9"Q.9S87 V2*S56I7"Q.7 V3@Q4,4,4, #0120 M20 *S6B86Q54" V3@Q3S3A86Q3" 70125 M21 *I.8TBCID,8,T89I.9" V2*Q.6"I6"Q5" V3@Q3,3,3, 70130 M22 *I.8TBCID,8,T89I.9" V2*Q.6"I6"Q5" V3@Q3,3,3, )0135 M23 *I.8T78I.9S87654 V2*Q6 V3@Q359 #0140 M24 *S3853Q21" V3@Q6S6DB9Q6" ,0145 M25 *I1,S43I4,1,Q1" V3@I6,S34I3,6,Q6" ,0150 M26 *I1,S43I4,1,Q1" V3@I6,S23I2,6,Q6" 0155 M27A *QB V3@Q8 0160 PD 0165 M27B *SBA98 V3@Q7 0175 M27C *S7654 V3@Q9 0185 M28A *S3753 V3@Q6 0195 M28B *Q34" V3@HA" 0200 PE RC 0205 PF NI=80 0210 M27B *SBA98 V3@Q7 0215 PG NI=88 0220 M27C *S7654 V3@Q9 0225 PH NI=90 0230 M28A *S3753 V3@Q6 0235 PI NI=98 0240 M28B *Q34 V3@HA ^WA0C^WA0C^WA0C^WA0C^WA0C^W 0001 /TRANSCRIBED BY AL HARRAL (0005 / MINUET IN G BY L. VAN BEETHOVEN 0010 K1# 0015 <6 0020 NS=90 0025 PA 0030 M1 *I.6S7 V2*I.4S5 0035 PB 70040 M2 *I.8S7#I.8S7I.8S7 V2*I.6S5#I.6S5I.6S5 V3@QA86 (0045 M3 *H8"I.9S6 V2*H6"I.7S4# V3@Q3A" '0050 M4 *H7"I.8S5 V2*H5"I.6S3 V3@Q6D" *0055 M5 *Q6"$I.4S5 V2*Q4"$I.-1S1 V3@Q3A" 70060 M6 *I.6S5#I.6S5I.6S5 V2*I.4S3I.4S3I.4S3 V3@QA86# &0065 M7 *H6"I54" V2*H4"I32" V3@Q543" -0070 M8 *I43"35"42" V2*I21"13"20#" V3@Q2$9" 0075 PC %0080 M9 *Q1$I.6S7 V2@H$I.4S5 V3@Q6D 0085 PD RB 0090 PE 0095 M10 *Q1$I8B" V3@Q6D 0100 PF 0105 M11 *QBAB V2*Q876 V3@Q123 #0110 M12 *HC"SBA98" V2*H5 V3@Q464 ,0115 M13 *Q76"I.9S7 V2*Q54"I.7S5 V3@H3"Q7" -0120 M14 *Q6I5$I.4S5 V2*Q4I3$I.-1S0 V3@Q6ID ;0125 M15 *I.6S5#I.6S5I.6S5 V2*I.1S0#I.1S0I.1S0 V3@QA"8"6" -0130 M16 *H6"I.7S4# V2*H1"I.2S-1 V3@QA"D%"C -0135 M17 *H5"I.6S3 V2*H0"I.1S-2 V3@QC"C&"D" 0140 PG !0145 M18 *Q4$I8B V2*Q-1 V3@QA3, 0150 PH RF 0155 PI 0160 M19 *Q4 V2*Q-1 V3@QAI3, 0165 M20 *I87#8" 0170 PJ !0175 M21 *I68"4,6,1,6, V2@QA63" !0180 M22 *I57"3,5,1,3, V2@Q764" 0185 M23 *I434567" V2@Q863" 0190 M24 *I87#8987%" V2@Q42+1" !0195 M25 *I65#6765%" V2@Q31"6#" 0200 M26 *I465435 V2@Q57#"6 %0205 M27 *I23420#-2 V2@QA$3 V3@H$Q9 !0210 M28 *Q1I$87#8" V2@Q4 V3@Q6 0215 PK RJ 0220 PL )0225 M30 *I97%5"656 V2@Q0I$+10#+1 V3@Q6 $0230 M31 *I753"87#8 V2@I+20%2"12#1 0235 M32 *I975"656 V2@I014"343 !0240 M33 *I753"87#8 V2@I246"654 !0245 M34 *I68"4,6,1,B, V2@Q318" )0250 M35 *I9B"7,9,5,7, V2@Q752" V3@H.7" '0255 M36 *I35"123%3# V2@Q420" V3@H.6" 0260 PM '0265 M37 *Q5I4"87#8" V2@Q0I1" V3@Q.3" 0270 PN RL 0275 PO ,0280 M38 *Q5I4$I.6S7 V2*Q0I-1$I.4S5 V3@Q.3 0285 PP RB 0290 PQ RC 0295 PR RB 0300 PS RE 0305 PT RF 0310 PU RG 0315 PV RF 0316 PW 0320 M40 *H4 V2@H1 V3@HA D,$$2 40220 M34 *Q8,S1-2135313420#2 V