%26H THIS AREA LOADS OLD DATA FILES, FORMAT AS FOLLOWS N (NUMBER OF VARIABLES),N1 (NUMBER OF DATA POINTS), A$(N) DEFINITION OF VARIABLES,DATA (DATA1/DATA2/DATA3..DATAN) "" "ENTER DATA FILE NAME AND LOAD" "DISK INTO DRIVE A "B$#15,8,15?1,8,3,"0:"B$",SEQ,R"[1,NV:4000:1,N1:4000c54qI20:J20X(I,I),A(I,I),D(J,20),Y(I),M(I),S(I)(T(I),B(I),R(I,I),C(I,I),Q(J),E(I)-A$(I)2 50006I1NV:1,A$(I):4000:(I64),A$(I):2<I1N1:1,C$:4000: 2000:3000::1:15IFI1N1:D(I,0)1:SK5000L BEGINNING OF MULTIPLE REGRESSION COMPUTATIONM VARIABLE NAMES ARE THE LETTERS OF THE ALPHA.N THE ARRAY E IS USED TO SAVE THE VARIABLE POINTER A=1,ETC.5O IF THERE ARE K INDEP VAR. THEN K+1 IS THE DEPEND VAR.kP"NUMBER OF INDEP VARS TO BE USE FOR ANALYSIS=";KU"ENTER VARIABLE LETTERS OF THE INDEP VARIABLES "ZI1K:B$:E(I)(B$)64:d"ENTER DEP. VAR. LETTER ";B$:E(K1)(B$)64- i"ENTER OUTPUT FORMAT-P FOR PRINTER C FOR CRT";A1$H jA1$"C" 5,3 : 5,4j n5,"DEP. VAR.IS",(E(K1)64)t K1NV~ NK1 CALCULATE THE MEAN AND STD DEV OF THE DATA SET I0K1 J0K1 X0 L1N1:XXD(L,I)D(L,J):!X(I,J)X:C(I,J)X:J0!6T(I)X(0,I)X(0,0):B(I)0=!JI0350q!TB(I)(X(I,I)(N11)X(0,I)X(0,I)(N1(N11)))x!^I!h5,"INDEX MEANS STD DEV"!rI1N:M(I)T(E(I)):S(I)B(E(I)):5, (E(I)64),M(I),S(I):!5,"CORR COEF"N"I1K1:J1K1:R(I,J)(N1X(I,J)X(0,I)X(0,J))(N1(N11)B(I)B(J).0000001)W"J,Ih"I1N:C$"""J1N:C$C$((R(E(I),E(J))),5)" ":J"5,C$:I""HIT ANY KEY TO CONTINUE": A1$"XE(0)0#bI0N1:Y(I)C(E(I),E(N)):J0N1:X(I,J)C(E(I),E(J)):J,I>#I0N:J0N:A(I,J)0:IJA(I,J)1G#J,IT#I0N1m#X(I,I).0000011500#Y(I)Y(I)X(I,I)# J0N1#A(I,J)A(I,J)X(I,I)# JIX(I,J)X(I,J)X(I,I)#4J#>X(I,I)1#HL0N1#RLI930$\Y(L)Y(L)X(L,I)Y(I)$fJ0N1<$pA(L,J)A(L,J)X(L,I)A(I,J)b$zJIX(L,J)X(L,J)X(L,I)X(I,J)i$Jv$X(L,I)0$L,I$S6C(E(N),E(N))$I0N1:S6S6Y(I)C(E(I),E(N)):$S7S6(N1N)%R21(S6((S(N)2)(N11))):R((R2)):S8((S7))%5,"VAR.-COVAR. MATRIX"+%I0N15%C$""B%$J0N1q%.A(I,J)A(I,J)S7:C$C$((A(I,J)),5)" "%tJ:5,C$:I%y"HIT ANY KEY TO CONTINUE": A1$%5,"INDEX B STD ERROR T-RATIO"%I0N11&5,(E(I)64),Y(I),(A(I,I)),Y(I)((A(I,I)).00000001)8&IT&5,"R-SQUARED="R2,"R="R&5,"STD ERROR OF EST.="S8,"D.F.="(N1N)&"HIT ANY KEY TO CONTINUE": A1$&I1N1:ZD(I,E(N))Y(0):J1N1:ZZY(J)D(I,E(J)):J:Q(I)Z:I&(W0'2I1N1:WW(Q(I)Q(I1))2:W'd5,"ACTUAL PRED RESID"'xI1N1:5,D(I,E(N))," ",D(I,E(N))Q(I)," ",Q(I):'5,"DURBIN-WATSON STAT="W(S6.00000001)'"HIT ANY KEY TO CONTINUE": A1$'5:5000 (5,"CORR. MATRIX SINGULAR"((M1:L1.(K1(C$)c((C$,K,1)"/"D(I,L)((C$,M,KM)):MK1:LL1i((D(I,L)((C$,M,KM1)): ( (15,EN,EM$,ET,ES(EN0(EN,EM$:1:5:15:("";:"YOU ARE ALLOWED TO PERFORM A MULTI-"*)"REGRESSION ON ANY COMBINATION OF VARIABLES"X)"THERE ARE NUMBER OF COMMANDS AVAILABLE"u)"FOR DATA MANIPULATION"{))"R RUN REGRESSION ANALYSIS")"K KEY IN DATA")"L LOAD DATA FILE FROM DISK")"D PERFORM DATA MANIPULATION"$*"O OUTPUT VARIABLE ONTO DISK"L*"P PLOT SCATTER GRAPH AND SLOPE"a*"E EDIT DATA"z*"V VARIABLE LIST"*"Q QUIT ANALYSIS PROGRAM"*:::*"PLEASE ENTER COMMAND"* A1$* A1$"R"80* A1$"K" 12000+A1$"L"10+A1$"D"6000'+2A1$"O"53009+4A1$"V"5500K+5A1$"E"8000_+6A1$"P" 10000r+7A1$"Q"5180+8 "ARE YOU SURE, HAVE DATA FILES BEEN SAVED Y OR N";A1$+9A1$"Y" : 5000+<"ILLEGAL COMMAND CODE":5110,"":"ENTER FILE NAME":BB$3,"HOW MANY VARIABLES ARE TO BE STORED";,N4i,"ENTER THE VARIABLE LETTER AS REQUESTED"v, I1N4,"VARIABLE LETTER"; B$:E(I)(B$)64,I,15,8,15,1,8,3,"0:"BB$",SEQ,W,1,N4:4000:1,N1:4000- I1N4:1,A$(E(I)):4000:I-J1N1(-C$""K-"I1N4:C$C$(D(J,I))"/":I`-6C$(C$,(C$)1)p-J1,C$:4000w-TJ-^15:1-h5000-|40,2,79,23,1:"VARIABLE LIST"-"VAR. NAME VAR. DESCRIPTION".I1NV:(I64),A$(I):I:I1 3000:I6."HIT ANY KEY WHEN DONE":AA$:"":5000V.p" DATA MANIPULATION".u"SELECT THE OPERATION TO BE USED2.z" 1.....OP1=OP2".{" 2.....OP1=-OP2".|" 3.....OP1=OP2+OP3" /}" 4.....OP1=OP2-OP3"./~" 5.....OP1=OP2*OP3"R/" 6.....OP1=OP2/OP3"w/" 7.....OP1=LOG(OP2)"/" 8.....OP1=EXP(OP2)"/" 9.....OP1=SUM(OP2)"/" 0.....OP1=K"0"ENTER SELECTION": A1$:A(A1$):A0A96020>0"ENTER NAME OF OP1";O1$:V1(O1$)64d0A0"ENTER VALUE OF K";O4:60400"ENTER NAME OF OP2";O2$:V2(O2$)640A2A7"ENTER NAME OF OP3";O3$:V3(O3$)640 "SELECTED OPERATION IS ";A0 "OP1 IS ";O1$1 AO "K IS ";O4: 6048(1 "OP2 IS ";O2$G1 A2 A7 "OP3 IS ";O3$u1"IS THIS CORRECT Y/N";A$: A$"N" 60001V1NVNVV11"ENTER DESCRIPTION OF THE NEW VARIABLE";A$(V1)1 A 6100,6200,6300,6400,6500,6600,6700,6800,69002 I1N1: D(I,V1)O4:I:500082I1N1:D(I,V1)D(I,V2):I:5000_28 I1N1:D(I,V1)D(I,V2):I:50002 I1 N1: D(I,V1)D(I,V2)D(I,V3):I:50002 I1N1: D(I,V1)D(I,V2)D(I,V3):I:50002d I1N1: D(I,V1)D(I,V2)D(I,V3):I:50003 I1N1: D(I,V1)D(I,V2)D(I,V3):I:5000E3, I1N1: D(I,V1)(D(I,V2):I:5000o3 I1N1: D(I,V1)(D(I,V2)):I:50003D(0,V1)0: I1N1: D(I,V1)D(I1,V1)D(I,V2):I:50003@ EDIT CURRENT DATA SECTION3J3T"WHAT VARIABLE IS TO BE EDITED"4^ A$ :V1(A$)644h"";N4r"VARIABLE NAME ";A$; " DESCRIPTION ";A$(V1):p4| I1N1: I;" ";D(I,V1):I440,3,79,15,14"WHICH VALUE IS TO BE CHANGE";V24"WHAT IS THE NEW VALUE ";V24"NEW VALUE IS ";V25"IS THIS CORRECT Y/N";A$5A$"N""";:8080'5D(I,V1)V2S5"MORE EDITING ON THIS VARIABLE Y/N";A$n5 A$"Y" "";: 8080~5"":50005' SECTION TO DISPLAY SCATTER PLOT OF TWO VARIABLES5' PLOT TO BE COMPUTED IN THE FAST MODE, WHEN DONE THE,6$' SCREEN WILL NOTIFY THE USER THAT THE PLOT IS READY ANDU6.' DISPLAY THE DATA IN THE SLOW MODE.68' AFTER THE USER HAS VIEWED THE PLOT A CARRIAGE RETURN6B' WILL RETURN TO FAST AND THE MAIN MENU.6L' 1,1:0,1:1,47V'"";"SCATTER PLOT ANALYSIS OF TWO VARIABLES"@7`'"WHAT VARIABLE DO YOU WISH FOR THE HORIZONTAL AXIS";O1${7j'"WHAT VARIABLE DO YOU WISH FOR THE VERTICAL AXIS";O2$7t' SEARCH ARRAYS FOR ABSOLUTE MAXIMUM VALUE7y'O1(O1$)64:O2(O2$)647~'M10:I1N1:(M1)(D(I,O1))M1D(I,O1)7'I+8'M20:I1N1:(M2)(D(I,O2))M2D(I,O2)28'I\8<( DRAW AXIS, ADD HASHMARKS AND LABELSe8F( 28P(X030:Y0175:XL250:YL1508Z( 1,X0,Y0 X0XL,Y0 : 1,X0,Y0 X0,Y0YL8d( 18n( X80 280 50:1,X,Y05 X,Y05:X9x( Y145 25 30:1,X05,Y X05,Y:Y.9( LOCATE EACH DATA POINTl9( I 1 N1:XXL(D(I,O1)M1)X0:YYL(D(I,O2)M2)Y09( 1,X2,Y2,X2,Y2,0,19(I9( WRITE DATA NAME BELOW AXIS9(1,15,24,A$(O1),09(LS(A$(O2))9( I1LS:1,1,I,(A$(O2),I,1),0:I:)&?:)"DISPLAY COMPOSITE SCREEN TO VIEW THE SCATTERPLOT "y:)"WHEN YOU ARE DONE VIEWING THE DISPLAY HIT ANY KEY ":"):,) WAIT HERE FOR DONE KEY INPUT:6) A$:@)%: : 5000: RETURN TO MAIN MENU:. INITIAL DATA ENTER SECTION/;. DATA IS ENTERED SIMILAR TO DISK STORAGE FORMATN;. N IS NUMBER OF VARIABLESt;. N1 IS THE NUMBER OF DATA POINTS;/ A$ IS THE ARRAY WHERE VARIABLE DESCRIPTIONS ARE STORED;/ ACTUAL DATA IS STORED IN VAR1/VAR2/VAR3/.../VARN FORMAT </ IN THE ARRAY D(N1,N)B<&/ IS LOADED USING THE SAME SUBS THAT LOAD FROM DISKy<0/ THERE IS AN ERROR IT CAN BE EDITED BEFORE THE CR<:/ OR EDITED USING THE EDITOR FUNCTION/ I1 NV:"VARIABLE NO. ";I:A$(I):I6>/"";:"":5000