C ******************************************STATISTICS PROGRAM`†SX(500),LX(500),LY(500)žF$²"NONE":LF$(1)²F$:LF$(2)²F$:MO$²"SD":NS²0:NL²0:F$(1)²F$°(þ0,0,79,24,1ì2******************************************FRAME SCREENõ<Þ5,1LF™"*******************************************************************************"¥P™"* ADVANCED STATISTICS PACKAGE’ *"þZ™"* BY STEVEN J. DEMPSEY (TENSOR)’ *"Ud™"*******************************************************************************"anI²1¤17»x: ™"* *"Ä‚: ‚Œ™"*******************************************************************************"u–: ™"* *"Ì ™"*******************************************************************************"ßªþ3,22,77,22,1û´™"FILENAME -’ ";F$(1); ¾þ5,5,72,19,1 ÈMO$²"SD"Q Ò™"“ STANDARD DEVIATION MENU’| Ü™:™" 0. ’ ENTER DATA¦ æ™:™" 1. ’ VIEW DATAÚ ð™:™" 2. ’ CHANGE MODE !ú™:™" 3. ’ DISK OPERATIONS/!™:™" 4. ’ QUIT8!¡ùA$H!‹A$²"2"§340^!"‹A$²"0"§510:‰170z!,‹A$²"4"§þ0,0,79,24,1:€‹!6‹A$²"3"§2580¡!@‹A$²"1"§920:‰170ª!J‰170½!Tþ3,22,77,22,1"^™"FILENAME -’ ";F$;" HORIZONTAL -’ ";LF$(2);" VERTICAL -’ ";LF$(1);"hþ5,5,72,19,1+"rMO$²"LR"a"|™"“ LINEAR REGRESSION MENU’Œ"†™:™" 0. ’ ENTER DATA¶"™:™" 1. ’ VIEW DATAê"š™:™" 2. ’ CHANGE MODE #¤™:™" 3. ’ DISK OPERATIONS?#®™:™" 4. ’ QUITH#¸¡ùA$X#Â‹A$²"2"§170o#Ì‹A$²"0"§1320:‰370†#Ö‹A$²"1"§2160:‰370¢#à‹A$²"4"§þ0,0,79,24,1:€³#ê‹A$²"3"§2580¼#ô‰340ï#þ********************************ENTER SD DATA $™"“1. ’ ALL NEW DATA2$™"2. ’ ADD TO EXISTING DATA;$¡ùA$R$&‹A$³"1"°A$±"2"§520a$0‹A$²"1"§þ$:: ™"“ENTER 'Q' TO QUIT ENTRY":þ3›$D: NS²0»$N: …"“FILENAME";F$(1)Ñ$X: þ3,22,77,22,1ð$b: ™"FILENAME -’ ";F$(1);%l: þ5,5,72,19,1%v: ‹ A$²"Q" §690>%€: ™"“ENTER VALUE # ";NSª1;K%Š: …A$\%”: NS²NSª1{%ž: ‹A$³±"Q"§SX(NS)²Å(A$)‰%¨: ‰630“%²: þ³%¼‹A$²"2"¯F$(1)²"NONE"§Ž:Õ þå%Æ: …"“ENTER FILENAME OR IF SAME";F$(1)ø%Ð: ë ý A$³±"Q"&Ú: ™"“ENTER VALUE # ";NSª1;)&ä: …A$:&î: NS²NSª1Y&ø: ‹A$³±"Q"§SX(NS)²Å(A$)d&: ìn&: þz&NS²NS«1–& ™"“PLEASE WAIT...’"Ÿ&*XS²0¬&4SUM(1)²0º&>‹NS²0§910Æ&HI²1¤NSá&R: SUM(1)²SUM(1)ªSX(I)ö&\: XS²XSªSX(I)®2ÿ&f: ‚'pSM²SUM(1)NS3'zSD(1)²º((XS«(SUM(1)®2)NS)NS)Z'„SD(2)²º((XS«(SUM(1)®2)NS)(NS«1))`'ŽŽ’'˜********************************VIEW SD DATAÆ'¢™"“ VIEW SD DATA MENU.ý'¬™" 1. ’ VIEW ENTERED DATA/(¶™" 2. ’ VIEW RESULTS8(À¡ùA$P(Ê‹A$³"1"° A$±"2"§930_(Ô‹A$²"1"§þk(Þ: PS²1w(è: ™"“"‰(ò: ‹PS³1§PS²1Ì(ü: ™"“CURSOR-MOVE, HOME-GOTO ENTRY #1, C-CHANGE VALUE, Q-QUITá(: I²PS ¤ PSª12ô(: ‹I³²NS§þ): ™û" ##. ’ ";I;:™SX(I)$)$: þ/).: ‚;)8: ¡ùA$Y)B: ‹A$²""§PS²PSª13:‰1000w)L: ‹A$²"‘"§PS²PS«13:‰1000‰)V: ‹A$²"C"§þµ)`: …"“VALUE NUMBER TO CHANGE";VNà)j: ™"“CURRENT VALUE - ’";SX(VN)*t: …"CHANGE TO’";SX(VN) *~: þ'*ˆ: ‹A$²""§PS²1:‰1000<*’: ‹A$³±"Q"§1000F*œ: þU*¦‹A$²"2"§þˆ*°: ™"“ SD STAT VALUES¨*º: ™"TOTAL POINTS -’ ";NSÈ*Ä: ™"MEAN -’ ";SMë*Î: ™"STD. DEV. -’ ";SD(1)+Ø: ™"SAMPLE SD -’ ";SD(2)2+â: ™"TOTAL X -’ ";SUM(1)R+ì: ™"X^2 TOTAL -’ ";XS+ö: ™" TO QUIT.œ+: ¡ùA$³+ : ‹A$³±Ç(13)§1280½+: þÆ+‰800ÿ+(**************************************ENTER LR DATA,2™"“1. ’ ALL NEW DATAB,<™"2. ’ ADD TO EXISTING DATAK,F¡ùA$c,P‹A$³"1"°A$±"2"§1330r,Z‹A$²"1"§þ ,d: ™"“ENTER 'Q' TO QUIT ENTRY":þ3¬,n: NL²0É,x: …"“FILENAME";F$ò,‚: …"“HORIZONTAL TITLE";LF$(2)-Œ: …"“VERTICAL TITLE";LF$(1)/-–: ™"“OPTIONS:R- : ™" 1. ’ LINEAR REGRESSIONz-ª: ™" 2. ’ LOGARITHMIC REGRESSION¢-´: ™" 3. ’ EXPONENTIAL REGRESSIONÄ-¾: ™" 4. ’ POWER REGRESSIONÐ-È: ¡ùA$ë-Ò: ‹A$³"1"°A$±"4"§1490û-Ü: OP²Å(A$).æ: þ3,22,77,22,1c.ð: ™"FILENAME -’ ";F$;" HORIZONTAL -’ ";LF$(1);" VERTICAL -’ ";LF$(2);x.ú: þ5,5,72,19,1ˆ.: MO$²"LR".: ë ý A$ ³± "Q"Ã.: ™"“ENTER X VALUE # ";NLª1;Ð.": …A$æ.,: ‹A$³±"Q"§ þ /6: ™"ENTER Y VALUE # ";NLª1;/@: …B$*/J: þ;/T: NL²NLª1P/^: ‹A$³±"Q"§þh/h: LX(NL)²Å(A$)€/r: LY(NL)²Å(B$)¢/|: ‹OP²2§LX(NL)²¼(LX(NL))Ä/†: ‹OP²3§LY(NL)²¼(LY(NL))Ø/: ‹OP²4§þö/š: LX(NL)²¼(LX(NL))0¤: LY(NL)²¼(LY(NL))$0®: þ20¸: þ=0Â: ìG0Ì: þV0Ö‹A$²"2"§þƒ0à: …"“ENTER NEW FILENAME OR ";F$˜0ê: ë ý A$ ³± "Q"¾0ô: ™"“ENTER X VALUE # ";NLª1;Ë0þ: …A$á0: ‹A$³±"Q"§ þ1: ™"ENTER Y VALUE # ";NLª1;1: …B$%1&: þ610: NL²NLª1K1:: ‹A$³±"Q"§þc1D: LX(NL)²Å(A$){1N: LY(NL)²Å(B$)1X: ‹OP²2§LX(NL)²¼(LX(NL))¿1b: ‹OP²3§LY(NL)²¼(LY(NL))Ó1l: ‹OP²4§þñ1v: LX(NL)²¼(LX(NL))2€: LY(NL)²¼(LY(NL))2Š: þ-2”: þ82ž: ìB2¨: þN2²NL²NL«1l2¼™"“PLEASE WAIT... "{2Æ‹NL²0§2150„2ÐXY²0Œ2ÚX²0”2äY²0 2îXS(1)²0©2øYS²0µ2I²1¤NLÎ2: XY²XYªLX(I)¬LY(I)ß2: X²XªLX(I)ð2 : Y²YªLY(I)3*: XS(1)²XS(1)ªLX(I)®2 34: YS²YSªLY(I)®2)3>: ‚Y3HR²(NL¬XY«X¬Y)º((NL¬XS(1)«X®2)¬(NL¬YS«Y®2))z3RB²(NL¬XY«X¬Y)(NL¬XS(1)«X®2)‹3\A²(Y«B¬X)NL‘3fŽÑ3p**********************************************VIEW LR DATA4z™"“ VIEW LR DATA MENU.<4„™" 1. ’ VIEW ENTERED DATAn4Ž™" 2. ’ VIEW RESULTSw4˜¡ùA$4¢‹A$³"1"° A$±"2"§930ž4¬‹A$²"1"§þª4¶: PS²1¶4À: ™"“"È4Ê: ‹PS³1§PS²1 5Ô: ™"“HOME-GOTO 1ST TERM, CURSOR-MOVE, 'C'-CHANGE TERM, Q-QUIT""5Þ: I²PS ¤ PSª1255è: ‹I³²NL§þ]5ò: ™û" ##. ’ ";I;:™LX(I),LY(I)k5ü: þv5 : ‚‚5 : ¡ùA$ 5 : ‹A$²""§PS²PSª13:‰2250¾5$ : ‹A$²"‘"§PS²PS«13:‰2250Ð5. : ‹A$²"C"§þü58 : …"“VALUE NUMBER TO CHANGE";VN26B : ™"“CURRENT VALUE - ’";LX(VN);",";LY(VN)Z6L : …"CHANGE TO’";LX(VN),LY(VN)f6V : þ€6` : ‹A$²""§PS²1:‰2250•6j : ‹A$³±"Q"§2250Ÿ6t : þ®6~ ‹A$²"2"§þá6ˆ : ™"“ LR STAT VALUES7’ : ™"Y-INTERCEPT -’ ";:™ û"#.####^^^^";A;M7œ : ™" SLOPE -’ ";:™ û"#.####^^^^";B7¦ : ™"CORRALATION -’ ";:™ û"#.####^^^^";R;¸7° : ™" X*Y SUM -’ ";:™ û"#.####^^^^";XYì7º : ™"SUM OF X'S -’ ";:™ û"#.####^^^^";X;"8Ä : ™" SUM OF Y'S -’ ";:™ û"#.####^^^^";YZ8Î : ™"SUM OF X^2 -’ ";:™ û"#.####^^^^";XS(1);‘8Ø : ™" SUM OF Y^2 -’ ";:™ û"#.####^^^^";YS·8â : ™"NUMBER OF TERMS -’ ";:™NL;Õ8ì : ™" TO EXIT";ñ8ö : ¡ùA$:‹A$³±Ç(13)§2550û8 : þ9 ‰1980A9 ***************************************DISK OPERATIONSu9 ™"“ DISK OPERATIONS MENU’Ÿ9( ™:™" 0. ’ SAVE FILEÉ92 ™:™" 1. ’ LOAD FILEõ9< ™:™" 2. ’ DISK STATUS$:F ™:™" 3. ’ VIEW DIRECTORYK:P ™:™" 4. ’ RETURNT:Z ¡ùA$d:d ‹ A$²"0"§þx:n : ‹MO$²"SD"§þ:x : þ #2,(F$(1)),W«:‚ : ‹È(DS$,2)²"00"§þ½:Œ : ˜2,MO$Î:– : ˜2,NSÝ: : I²1;ª : ë ý È(DS$,2)²"00"¯I³²NS;´ : ˜2,SX(I));¾ : I²Iª18;È : ìF;Ò : þT;Ü : þ#2`;æ : þt;ð : ‹MO$²"LR"§þ‰;ú : þ #2,(F$),W¤;: ‹È(DS$,2)²"00"§þ¶;: ˜2,MO$Ç;: ˜2,NLÜ;": ˜2,LF$(1)ñ;,: ˜2,LF$(2)<6: I²1#<@: ë ý È(DS$,2)²"00"¯I³²NL9: ‹MO$²"SD"§F$(1)²F$(3)>: ‹MO$²"LR"§F$²F$(3)*>&: þ6>0: þ#2@>:: þ{>D‹A$²"0"°A$²"1"°A$²"2"§™"“DISK STATUS...",DS$:þ3‰>N‹A$²"3"§î›>X‹A$³±"4"§2580³>b‹MO$²"SD"§800:‰170Ì>l‹MO$²"LR"§1980:‰340<