│"-" ▒ S$│"." з 210 :Д SL│SLл1:Бе 310/~
@Е SL▓ е(1) з 330 :Д ─#1,SL:Е S$│"0" ▒ S$│"-" ▒  Й(S$)▓0 ▒ S$│"+" з Р :Д SL│SLл1:Бе320/Ф
JЪ#2:Ъ#1:З"DONE":О/╩
TSL│1:DL│1:C│1:Ю3:З"***** PROCESSING- PLEASE WAIT"0
YЕ F1(C)│4 з ╘ D$│" ":А A│DL е DLл Б(F2(C))м1:┼#2,A:Л A:DL│DLл Б(F2(C)):Бе 4020n
^Е SL▓ е(1) з 410 :Д ─#1,SL:S$│S9$:N│ в(S$):Е N▓0 з S$│ Р( И(N),2) :Д S$│ И(N)0К
hЕ E│1 з S$│S$л" ":Бе4000г
rЕ N┤0 з K6│1 :Д K6│00¤
|D│(F2(C)м Б(F2(C)))н10:G│ Б(F2(C)):Е F1(C)│1 ▒ F1(C)│3 з S$│ б(Gм З(S$)," ")лS$:Бе4001(
ЖS$│ И( Б( Й(S$)н10пDл.05)):S$│ Р(S$,2)1u
РА A│DL е DLл З(S$)м1:╘ D$│ Р(S$,AмDLл1,1):┼#2,A:Л A:DL│DLл З(S$):SL│SLл11┤
ТC│Cл1:Е C▓K з C│1:╘ D$│ Л(13):┼#2,DL:DL│DLл1:Бе 345 :Д 3451╩
ЪЪ#2:Ъ#1:З"DONE":О1▄шЕ E$┤▓"D" з О2
эE$│"LIZPACK.DIR:"л П( И( Ж(32767)),1):╙ E$,R)н10пDл.05)):S$│ Р(S$,2)1u
РА A│DL е DLл З(S$)м1:╘ D$│ Р(S$,AмDLл1,1):┼#2,A:Л A:DL│DLл З(S$):SL│SLл11┤
ТC│Cл1:Е C▓K з C│1:╘ D$│ Л(13):┼#2,DL:DL│DLл1:Бе 345 :Д 3451╩
ЪЪ#2:Ъ#1:З"DONE":О1▄шЕ E$┤▓"D" з О2
эE$│"LIZPACK.DIR:"л П( И( Ж(327                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                АxА			


		

						
	

	



				
						


		
																										
	

									

													
		
			
																							


					


			
	







								



										


>>(
<02&((*$   **>~ "&*2"" >>"$>> <" <"">""""""8 >>""*., "">""<""<""<"   "<"""""<>  <  >>  <      &"""">"""""$(0($"      >"6**"""""2*&"""""""<""<   """*$<""<($"" ">""""""""""""""**6"""""""> >>00000> >>"> 8<D<@@@xDDx   <DD<$< 8$$   8$$$08(   (0($08lTTDD<$$$$$$$ 8$$8 8HH8,0   8@888HHHH<DDD(DDTT(""$$$| |``` TT(T(T(TO╜│эў√Ю║№■1л╢∙Б'&О{Б╢√А ╞=0Л╞	Z'б┴
&0жА╕·за1и щОxБ╢√А ╞=0Л╞	ў∙Ў∙Z'u┴
&0ў∙жА╕·Д?Ў№┴
'┴'3┴'Iц ─HHч к з 1и  ╚ц ─№ч ц!─ч!_DVDVDVDVк ъ!э  ▌ц ─Ёч ц!─?ч!_DVDVк ъ!э  ├ц ─└ч к з  ╢9 ·0т0Є·1▐√
S0ъЄrЮ║0Й┐vЮ║жCзА╝v&Ў9rЄт bЎ■■■■Ў··Ў■Ў■ццтъЮ║1Й┐vжакзА╝v%ї9
├цЄттЄЄюцътЄЄ■Ў■чЎюЎЎЎ■■цЎЎЎЎ■■■SH
 -C
 ╚ц ─№ч ц!─ч!_DVDVDVDVк ъ!э  ▌ц ─Ёч ц!─?ч!_DVDVк ъ!э  ├ц ─└ч к з  ╢9 ·0т0Є·1▐√
S0ъЄrЮ║0Й┐vЮ║жCзА╝v&Ў9r                                                                                                                                                                                                                                                                 &S
┌И:Х 2000,32760:М F$(20),F1(80),F2(80):Ю8:З"*********** DATAPACK ***********"'╗ Й"  (1)  ASCII TO LIZPACK           (2)  LIZPACK TO ASCII           (D)  LIZPACK DIRECTORY                                              SELECT OPTION: ";E$:F│ Й(E$):Е F┤▓1 ░ F┤▓2 з 1000'uЕ F│1 з S1$│"ASCII":D1$│"LIZPACK":W1$│"SOURCE" :Д S1$│"LIZPACK":D1$│"ASCII":W1$│"DESTINATION"(N(Ю3:З W1$" ASCII FILE IS:":╗ Й" (1)  SPACE DELIMITED            (2)  FORTRAN  FORMAT            (3)  CUSTOM DESIGNED                                               WHICH ONE: ";E$:E│ Й(E$):Е E┤▓1 ░ E┤▓2 ░ E┤▓3 з 40(Ж-Ю4:З" ***** "S1$" TO "D1$" *****":И E Бж 180,90,160) 2Ю4:З" ***** "S1$" TO "D1$" *****":З:З"NAME OF:":ЗS1$" FILE/EXT";:ЙSF$:ЗD1$" FILE/EXT";:ЙDF$:З:Е SF$│DF$ ▒ SF$│"" ▒ DF$│"" з 50 :Д Й"WHICH DRIVE";D:╧D)Ф<Е F│1 з Щ"D",1,SF$,1:Щ"D",2,DF$,5:╨#1,1  з S$:╨#2,5  з D$ :Д Щ"D",1,SF$,5:Щ"D",2,DF$,1:╨#1,5  з S9$:╨#2,1  з D$)ЯFБе 190*(ZX│1:Ю5:З"******* FORTRAN FORMAT *********":╗ Й" EXAMPLE: 2I2,X5,F7.2,3I4,E9.3                                   SPECIFY FORMAT: ";F$*SdPO│ Ю(F$,","):Е PO│0 з F$(X)│F$:Бе 120*ЕnF$(X)│ О(F$,POм1):F$│ Р(F$,POл1):X│Xл1:Бе 100*┐xK│1:А P│1 е X:E$│F$(P):Е  Й( О(E$,1))▓0 з E$│ Р(E$,2)+RВF$│ О(E$,1):Е F$│"I" з F1(K)│1 :Д Е F$│"F" з F1(K)│2 :Д Е F$│"E" з F1(K)│3 :Д Е F$│"X" з F1(K)│4 :Д З"FORMAT ERROR!!!!":А X│1 е 1000:Л X:Бе 90+╩МF2(K)│ Й( Р(E$,2)):E$│ О(F$(P),1):Е  Й(E$)▓1 з А L│Kл1 е  Й(E$)м1лK:F1(L)│F1(K):F2(L)│F2(K):Л L:K│Kл Й(E$) :Д K│Kл1+┌ЦЛ P:K│Kм1:Р,kаЮ5:З"******** USER FORMATTED ********":Й"RECORD LENGTH";R:Й"# OF SLOTS IN RECORD";K:А P│1 е K:З"#" Р( И(P),2)" LENGTH";:ЙF2(P):F1(P)│1:Л P:З,укЙ"(I)NTEGER - (F)LOATING POINT";E$:Е E$│"F" з Й"# DIGITS RIGHT OF DECIMAL";X:А P│1 е K:F1(P)│2:F2(P)│F2(P)лXо10:Л P,щ┤Р,∙╛Е F│2 з 340-/╚SL│1:DL│1:C│1:Ю3:З"***** PROCESSING- PLEASE WAIT"-@╥Е E┤▓1 з 240-g▄Е SL▓ е(1) з 330 :Д ─#1,SL:SL│SLл1-гцЕ S$│" " ▒ S$│ Л(13) з N│ Й(A$):Бе280 :Д A$│A$лS$:Бе220-│ЁG│ Б(F2(C))-╠·Е SLлGм1▓ е(1) з 330.
А A│SL е SLлGм1:─#1,A:A$│A$лS$:Л A:SL│SLлG:Е F1(C)│4 з 282.n
Е F1(C)┤▓2 з N│ Й(A$) :Д D│(F2(C)м Б(F2(C)))н10:D│ Б(.05лD):N│ Й( О(A$, З(A$)мD)л"."л П(A$,D)).Т
╘ D$│ ж(N):A$│"":┼#2,DL:DL│DLл1.╡
A$│"":C│Cл1:Е C▓K з C│1:Бж 320.╩
"Е SL▓ е(1) з 330.█
,Е E┤▓1 з 210/$
6─#1,SL:Е S$│"0" ▒  Й(S$)▓0 ▒ S$"NAME OF INVESTIGATOR: ";B$-GQЗ #м2, "DATE OF RUN: ";C$-UVH$│ Л(10)-f[З #м2, H$,H$-д`З #м2, "ANOVA TABLE FOR POLYNOMIAL REGRESSION, DEGREE ";M-└eH$│ Л(28)л Л(80)л Л(45)-╒jI$│ Л(27)л Л(16)-эoJ$│I$л Л(0)л Л(120).tK$│I$л Л(0)л Л(210).yL$│I$л Л(1)л Л(44).4~M$│I$л Л(1)л Л(134).AГЗ #м2,H$.zИЗ #м2,"SOURCE";J$;"DF";K$;"SS";L$;"MSS";M$;"F RATIO".ЗНЗ #м2,H$.╡ТЗ #м2,"REGRESSION";J$;M;K$;SR;L$;MR;M$;FR.▄РЗ #м2,"ERROR";J$;NмMм1;K$;SE;L$;ME.щХЗ #м2,H$/ЪЗ #м2,"TOTAL";J$;Nм1;K$;SS/ЯЗ #м2,H$/-дЗ #м2, Л(10); Л(10)/xЗ #м2,I$; Л(0); Л(144); Л(15);"PARTIAL REGRESSION COEFFICIENTS"; Л(14)/Р
З #м2, Л(10), Л(10)/иJ$│I$л Л(0)л Л(156)/╛K$│I$л Л(1)л Л(8)/╒L$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)оZ0Ь?З #м2,I;M$;B(I);J$;Z;K$;NмMм1;L$;Q0дDЛ I0▒HЗ #м2,H$0┐IA$│ Л(10)0$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ъБж 60090:ъЗ @484,"PROFESSOR OF MATHEMATICS"GъБж 60090oъ$З @483, "THE UNIVERSITY OF ALABAMA"|ъ.Бж 60090Уъ8З @480,"":Бж 60090╢ъBЗ @490, "PRODUCED BY":Бж 60090▐ъLЗ @488, "CRIMSON SOFTWARE":Бж 60090ъVЗ @482, "THE RESEARCH ASSOCIATES GROUP":Бж 60090=ъ`З @486, "32 BEVERLY HEIGHTS":Бж 60090pъjЗ @483, "TUSCALOOSA, ALABAMA   35401":Бж 60090ЗъtЗ @480,"":Бж 60090Юъ~З @480,"":Бж 60090нъИА I│1 е 12─ъТЗ @480,"":Бж 60090╠ъЬЛ IхъжЮ(3):З "END LIZPACK"ыъ░К ъ║А X│1 е 125:Л Xъ─РP":Бж 60090=ъ`З @486, "32 BEVERLY HEIGHTS":Бж 60090pъjЗ @483, "TUSCALOOSA, ALABAMA   35401":Бж 60090ЗъtЗ @480,"":Бж 60090Юъ~З @480,"":Бж 60090нъИА I│1 е 12─ъТЗ @480,"":Бж 60090╠ъЬЛ IхъжЮ(3):З "END LIZPACK"ыъ░К ъ║А X│1 е 125:Л Xъ─Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Л J,IБе 1400&$А J│1 е M4)А I│1 е NL.C(I,J)│F(J,I):Л I,JZ3А I│1 е Mh8А J│1 е Mu=R(I,J)│0гBА K│1 е N:R(I,J)│R(I,J)лF(I,K)нC(K,J):Л KнGЛ J,I║LБж 30000╟QБж 30410╒VА I│1 е Mу[А J│1 е NЁ`G(I,J)│0■eА K│1 е M"jG(I,J)│G(I,J)лC(I,K)нF(K,J):Л K,oЛ J,I8tБе 1400XxЮ(3):З @232, "LIZMULTI RUN"vВЗ #м2,"NAME OF STUDY ";A$ЫМЗ #м2,"NAME OF INVESTIGATOR ";B$╖ЦЗ #м2,"DATE OF RUN ";C$╔аH$│ б(132,45)якЗ #м2, Л( Ж(32765)); Л( Ж(32766))┤З #м2, "VARIABLES":З #м2, H$╛RN│0'╚А I│1 е N>╥З #м2, дRN) V$(I);[▄RN│RNл7:Е RN┤│119 з 1520mцRN│0:З #м2,""uЁЛ IШ·З #м2,"":З #м2,H$:З #м2, Л(10)е Бж 24005▓Ю:Бе 300┘Ю:╗ Й "NAME OF RAW DATA FILE? ";D$цБж 63000	Щ "D",#1,"MEANVAR/DAT",5:╨ #1, 5  з Z$:RN│16Ю(3):З @232, "LIZMULTI RUN"DА I│1 е Nf─ #1,RN:C(0,I)│ в(Z$):RN│RNл1nЛ I|"А I│1 е NЮ'─ #1,RN:R(0,I)│ в(Z$):RN│RNл1ж,Л Iм1Ъ╤6Щ "D",#1,D$,5:╨ #1, 5  з Z$:SN│1 ;Щ "D",#2,"FACTOR/SCR",5:╨ #2,5  з W$:CN│0@@З #м2, "FACTOR SCORES FOR CASES FROM DATA FILE ";D$:З #м2,H$XBА IJ│1 е  е(1) й TZECN│CNл1:З #м2, "CASE";CN:TN│0:QN│5МJЗ #м2,H$ЪOА I│1 е MвQX│0░TА J│1 е NщY─ #1,IJлCP(J):D│ в(Z$):Е D│999999 з X│999999:Бе 1635^D│DмR(0,J):D│DоC(0,J):X│XлDнG(I,J):Л J3cЗ #м2, дTN) "PF";I;дQN) X;IhTN│TNл20:QN│QNл20^mЕ TN┤│100 з 1675urTN│0:QN│5:З #м2,""ФЛ╘ W$│ ж(X):┼ #2,SN:SN│SNл1ЬХЛ IйЪЗ #м2,""╗ЯЗ #м2,H$:Л IJ╙дЗ #м2,H$:Ъ:Ю:Бе 300#(Щ "D",#1,"CORRMAT/RIX",5:╨ #1, 5  з Z$:RN│1#-А I│1 е N#2А J│1 е NG#7─ #1,RN:R(I,J)│ в(Z$):RN│RNл1:Л J,IO#<Ъ:Р]┼З #м2, "FACTOR SCORE COEFFICIENTS":З #м2,H$Н]╧А I│1 е MЫ]╘SN│0:TN│5┬]рЗ #м2,"PRINCIPAL FACTOR NUMBER ";I╨]уА J│1 е NЄ]эЗ #м2,дSN) V$(J);дTN) G(I,J);]ЄSN│SNл20:TN│TNл20]ўЕ SN┤│100 з 240655]№SN│0:TN│5:З #м2,""=^
Л JN^З #м2,"":Л Iq^З #м2,"":З #м2,H$:З #м2, Л(10)w^ЪДu/Бе 30000Эu0А I│1 е M:T(I)│I:Л Iлu5Е M│1 з Р╗u:А I│1 е Mм1╔uDА L│I е MуuNPL│T(L):W│ В(R(PL,I))єuXА J│Iл1 е MubQ│ В(R(PL,J))ulЕ Q▓W з W│QuvЛ J/uАЕ W│0 з 30260JuКD(L)│ В(R(PL,I)оW):Л LYuФT│I:Q│D(I)guЮА L│I е MzuиЕ D(L)▓Q з T│LРu▓Е D(L)▓Q з Q│D(L)Шu╝Л L┬u╞W│T(I):T(I)│T(T):T(T)│W:Е Q│0 з 30260╬u┌PI│T(I)▐uфА L│Iл1 е M uюPL│T(L):RT│R(PL,I)оR(PI,I):R(PL,I)│RT u°А J│Iл1 е M 9vR(PL,J)│R(PL,J)м(RTнR(PI,J)) CvЛ J,L KvЛ I cv Е R(PL,M)│0 з 30260 iv*Р vv4PL│999:Р Иv>Е M▓1 з 30290 ЭvHB(1)│X(1)оR(1,1) гvMР ▒vRА L│2 е M ╜v\PL│T(L) ═vfА J│1 е Lм1 ┘vpPJ│T(J)  vzX(PL)│X(PL)м(R(PL,J)нX(PJ)):Л J,L!vДB(M)│X(PL)оR(PL,M)!+vОА I│Mм1 е 1 й м1!BvШPI│T(I):B(I)│X(PI)!RvвА J│Iл1 е M!svмB(I)│B(I)м(R(PI,J)нB(J)):Л J!Нv╢B(I)│B(I)оR(PI,I):Л I!Уv└Р!аv╩Бе 30420!пv╘А II│1 е M!╚v▐А I│1 е M:X(I)│0:Л I!▌vшX(II)│1:Бж 30270! vЄА J│1 е M:C(II,J)│B(J):Л J,II"v№Р"?ЎЮ(3): Й "IS THIS RUN FROM A CUSTOM       FILE";VN$(0)"OЎK│N:М CP(K)"kЎА I│1 е K:CP(I)│Iм1:Л I"ЗЎЕ VN$(0)│"YES" з TZ│K:Р"┴ЎЙ "TOTAL NUMBER OF COLUMNS IN THE  AGGREGATE FILE";TZ"╧Ў"А I│1 е K#Ў'З "ENTER FILE COL. NUMBER FOR      VARIABLE  ";I#"Ў,Й CP(I):CP(I)│CP(I)м1:Л I#(Ў1РM       FILE";VN$(0)"OЎK│N:М CP(K)"kЎА I│1 е K:CP(I)│Iм1:Л I"ЗЎЕ VN$(0)│"YES" з TZ│K:Р"┴ЎЙ "TOTAL NUMBER OF COLUMNS IN THE  AGGREGATE FILE";TZ"╧Ў"А I│1 е K#Ў'З "ENTER FILE COL. NUMBER FOR      VARIABLE  ";I#"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D▓0 з 32210A$}╩A│3.14159266лA:TH│Aо4A>}╠CT│ Х(Aо4):ST│ Е(Aо4)AD}╬РAe}╥CT│ Х(Aо4):ST│ Е(Aо4):TH│Aо4Ak}╘РA}}▄Е D▓0 з 32226AЪ}▐A│м(3.14159266мA):TH│Aо4A┤}рCT│ Х(Aо4):ST│ Е(Aо4)A║}сРA█}тCT│ Х(Aо4):ST│ Е(Aо4):TH│Aо4Aс}фРAЎ}цCT│1:ST│0:TH│0:РBРИА I│1 е NB$РТNR(I,1)│CTнF(I,P)лSTнF(I,Q)BEРЬNR(I,2)│мSTнF(I,P)лCTнF(I,Q)BMРжЛ IB[Р░А I│1 е NBБР║F(I,P)│NR(I,1):F(I,Q)│NR(I,2):Л IBЗР─РBйФpQQ│A0лA4н Х(4нTH)лB4н Е(4нTH)BпФuР;" DF";K$;" SS";L$;" MSS";M$;" F RATIO"-ї+З #м2,H$."-З #м2 #&Х 200,31699&(Т 150,41&6<З #м2, Л(27); Л(52)&?dЮ(0)&inА Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&ФxА Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&╛ВА X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&шМА X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X'ЦА I│0 е 8 й 2:А Y│20 е 29'>аЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'vкЬ(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'▓┤Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'╝╛Л Y,I'█╚З:З:З "           LIZPOLY"'я╥А T│1 е 500:Л T(ЁЮ:З @13, "MENU":З:З($·З "1. CREATE DATA FILES"(?
З "2. EDIT DATA FILES"(`
З "3. POLYNOMIAL REGRESSION"(w
З "4. SCREEN DUMP"(П
З "E. END THIS RUN"(Щ
"A$│ Т(м
,Е A$│"1" з 370(┐
6Е A$│"2" з 480(╙
@Е A$│"3" з 1005(ш
EЕ A$│"4" з 60000(√
JЕ A$│"E" з 350)
TБ е 290)'
^Ю(8): З @ 10, "END LIZPOLY")-
hК)N
rЮ(3):╗ Й "NAME OF FILE?"; A$)d
|Е A$│"NONE" з 240)w
ЖЩ "D",#1,A$,12)Д
РN│0:Ю(4))О
ЪN│Nл1)╨
дЗ "ENTER RECORD; WHEN FINISHED TYPE 0909; RECORD NUMBER IS";N)╪
оЙ Q)ы
╕Е Q│0909 з 470)Ў
┬┘ #1,Q*
╠┼ #1,N:Бе 410*
╓Ъ #1: Бе 370*:
рЮ(3):╗ Й "NAME OF FILE?"; A$*P
ъЕ A$│"NONE" з 240*c
ЇЩ "D",#1,A$,12*м
■Й "ENTER RECORD NUMBER, NEW RECORD; WHEN FINISHED, TYPE 0909,0"; Q,R*┐Е Q│0909 з 550*╩┘ #1,R*▌┼ #1,Q: Бе 510*э&Ъ #1:Бе 480+эЮ(3):╗ Й "NAME OF STUDY";BA$+0Є╗ Й "NAME OF INVESTIGATOR";B$+Iў╗ Й "DATE OF RUN";C$+h№Й "DEGREE OF POLYNOMIAL";K+Ы■M│K:K│Kл1:М X(M):М B(M):М C(M,M):М P(M):М D(M)+и
Бе 20000+╢А I│1 е M+╞А J│1 е Iм1+▐R(I,J)│R(J,I):Л J,I+ыБж 29999+°$Бж 30410,&А I│1 е M:X(I)│R(I,K):Л I,#)Бж 30270,J.SS│PR(K,K)нPR(K,K):YI│R(0,K):SE│SS,X3А I│1 е M,p8YI│YIм(B(I)нR(0,I)),Н:SE│SEм(PR(I,K)нB(I)):Л I,╣=SR│SSмSE:ME│SEо(NмMм1):MR│SRоM:FR│MRоME,═>B(0)│YI:Бж 9290,тBЕ M┤Kм1 Б е 1110-HЗ #м2,"NAME OF STUDY: ";BA$-)LЗ #м2,  !2Х 600,32760"┤Ю(0)L╛А Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Yw╚А Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Yб╥А X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X╦▄А X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,XщцА I│0 е 8 й 2:А Y│20 е 29!ЁЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)Y·Ь(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)Х
Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)Я
Л Y,I╛
З:З:З "          LIZMULTI"╥
"А T│1 е 500:Л Tу
,З @14,"MENU"	
6З "1. SCORE COEFFS-PRIN. FACTORS"1
@З "2. SCORE COEFFS-PRIN. COMPS-ROT"U
JЗ "3. SCORE COEFFS-PRIN. COMP."z
OЗ "4. SCORE COEFFS-FROM OBLIMIN"Ы
PЗ "5. COMPUTE FACTOR SCORES"╕
TЗ "D. LIZPACK DIRECTORY"╨
YЗ "E. EXIT LIZPACK"┌
^A$│ Т№
cЕ A$│"Z" з Х 600,32760:Бе 350
hЕ A$│"1" Бе 500$
mЕ A$│"4" Бе 5408
rЕ A$│"2" Бе 595L
tЕ A$│"5" з 1542`
|Е A$│"D" Бе 425u
БЕ A$│"3" Бе 700 Й
ЖЕ A$│"E" Бе 410Ф
РБе 350н
ЪЮ(3):З "END LIZPACK"│
дК╪
йM│ Ж(32767):H$│ И(M):H$│ П(H$,1)ё
оH$│"LIZPACK/DIR:"лH$№
│╙ H$,R
ЇFG│1:Бе 600ZЮ:╗ Й "IS THIS RUN FROM ROTATION OF     PRINCIPAL COMPONENTS? (Y/N) "; A$v!Е A$│"Y" з FG│2 :Д FG│1е&Щ "D",#1,"STRUCT/MAT",5:╨ #1, 5  з Z$:RN│1░0Бе 605╣SFG│2шXЩ "D",#1,"COMPON/ROT",5:╨ #1, 5  з Z$:RN│1	]Ю:Й "NUMBER OF VARIABLES"; N2b─ #1, е(1):M│ в(Z$):М F(M,N):М V$(N)@gА I│1 е MNqА J│1 е Nvv─ #1,RN:F(I,J)│ в(Z$):RN│RNл1:Л J,IД{А I│1 е NеА─ #1,RN:V$(I)│Z$:RN│RNл1:Л I│ЕЪ:Бе 1000╙╝Ю(3):З @232, "LIZMULTI RUN"└Щ "D",#1,"COMPON/PCL",5:╨ #1, 5  з Z$:RN│1┬─ #1,  е(1):N│ в(Z$))─А I│1 е NH╚─ #1,RN:D│ в(Z$):RN│RNл1лNZ╠Е D▓1 з M│Mл1b╨Л Iп╤Ю:З "DO YOU WISH TO SPECIFY THE":╗ Й "NO. OF FACTORS TO BE USED? Y/N";A$┬╥Е A$│"N" з 724█╙Й "NO. OF FACTORS";Mї╘М F(M,N):RN│1:М V$(N)╓Ю(3):З @232, "LIZMULTI RUN"#╪А I│1 е M/▄RN│RNл1=рА J│1 е N_ф─ #1,RN:F(I,J)│ в(Z$):RN│RNл1iшЛ J,IxьRN│NнNлNл1ЖЁА I│1 е NгЇ─ #1,RN:V$(I)│Z$:RN│RNл1л°Л I╢№FG│2:ЪэшМ T(N):М D(N):М R(N,N):М C(N,N):М G(M,N),B(N),X(N)	эЮ:Й "NAME OF STUDY"; A$)яЙ "NAME OF INVESTIGATOR";B$@ЄЙ "DATE OF RUN";C$oєЮ(3):З @232, "LIZMULTI RUN": Е FG│2 з 1060{їБж 9000ИЎQP│M:M│NХўБж 29999в№Бж 30410л■M│QP╣
А I│1 е M╟А J│1 е N╘G(I,J)│0А K│1 е N:G(I,J)│G(I,J)лF(I,K)нC(K,J):Л K D$│"YES" з 4000 :Д GM│Mо2/9ЎЮ(3):З @232, "LIZMULTI RUN"/FўБж 29900/V∙А P│1 е Mм1/f№А Q│Pл1 е M/s
Бж 32100/ПЗ @232, "ROTATION "; IT/дЗ @264, "Q= ";QQ/▒Бж 31000/┬FG│888:Q1│QQ/╧Бж 38000/щЕ  В(Q1мQQ)┤ER з 1400/ї!IT│ITл1/ $Л Q,P0)Бе 10170+xЮ(3):З @232, "LIZMULTI RUN"0IВЗ #м2,"NAME OF STUDY ";A$0nМЗ #м2,"NAME OF INVESTIGATOR ";B$0КЦЗ #м2,"DATE OF RUN ";C$0ЬаH$│ б(132,45)0┬кЗ #м2, Л( Ж(32765)); Л( Ж(32766))0у┤З #м2, "VARIABLES":З #м2, H$0ь╛RN│00·╚А I│1 е N1╥З #м2, дRN) V$(I);1.▄RN│RNл7:Е RN┤│119 з 15201@цRN│0:З #м2,""1HЁЛ I1k·З #м2,"":З #м2,H$:З #м2, Л(10)1xTБж 240001ЕYБж 200001Т^Ю:Бе 3001лаЮ:Й "ENTER GAMMA";GM1╖еБе 10141╚@А P1│1 е Mм11┌EА Q1│P1л1 е M1ЎFЮ:З "HORIZ. FACTOR ";P12HЗ "VERTICAL FACTOR ";Q12BJLX│F(1,P1):UX│F(1,P1):LY│F(1,Q1):UY│F(1,Q1)2POА I│2 е N2nTЕ F(I,P1)┤LX з LX│F(I,P1)2МVЕ F(I,P1)▓UX з UX│F(I,P1)2кXЕ F(I,Q1)┤LY з LY│F(I,Q1)2╚ZЕ F(I,Q1)▓UY з UY│F(I,Q1)2╨[Л I2▄\Бж 89902ъ^А I│1 е N3cGX│F(I,P1):GY│F(I,Q1):Бж 92603hЛ I3mA$│ Т32rЕ A$┤▓"" з 80603>wБе 80453J|Л Q1,P13WБЮ:Бе 3003p#Е LX▓0 з U│0 :Д U│LX3Й#(Е UX┤0 з V│0 :Д V│UX3д#2XH│245о(VмU):XK│5мXHнU3╜#<Е LY▓0 з S│0 :Д S│LY3╓#FЕ UY┤0 з T│0 :Д T│UY3є#PXL│182о(SмT):XM│5м(XLнT)4#Z╚ 4,1:╝:┐ 1,14#d╗(XK,0)м(XK,192),╜4?#n╗(XK,0)м(XKм2.82843,2.82843),╜4c#x╗ (XK,0)м(XKл2.82843,2.82843),╜4z#В╗(0,XM)м(255,XM),╜4б#М╗(256,XM)м(253.17157,XMл2.82843),╜4╚#Ц╗(256,XM)м(253.17157,XMм2.82843),╜4ф#аSX│(VмU)о28:SY│(TмS)о184є#кА Q│1 е 185#┤GY│XLнQнSYлXM:Е GY┤5 з 91605'#╣Е GY▓187 з 91605B#╛╗(XKм3,GY)м(XKл3,GY),╜5e#╚GY│мXLнQнSYлXM:Е GY▓187 з 91805x#═Е GY┤5  з 91805У#╥╗(XKм3,GY)м(XKл3,GY),╜5Ы#▄Л Q5к#цА Q│1 е 285╠#ЁGX│XHнQнSXлXK:Е GX▓251 з 92205▐#їЕ GX┤5 з 92205∙#·╗(GX,XMм3)м(GX,XMл3),╜6$GX│мXHнQнSXлXK:Е GX┤5 з 92406.$	Е GX▓251 з 92406I$╗(GX,XMм3)м(GX,XMл3),╜6Q$Л Q6W$"Р6g$,╚ 4,1:┐ 1,16А$6╜(XHнGXлXK,XLнGYлXM)6Ж$@Р6ФN А J│1 е M6вN*NR(J,0)│06░N4А I│1 е N6╥N>NR(J,0)│NR(J,0)лF(I,J)нF(I,J)6▄NHЛ I,J7NRЗ #м2,"CONTRIBUTION TO VARIANCE BY FACTOR"7#N\З #м2, H$:RN│0:SN│571NfА I│1 е M7VNpЗ #м2, дRN) "PF";I;дSN) NR(I,0);7lNzRN│RNл20:SN│SNл207ВNДЕ RN┤│100 з 201207ЩNОRN│0:SN│5:З #м2,""7бNШЛ I7─NвЗ #м2,"":З #м2,H$:З #м2, Л(10)7╠NмD│07ъN╢А I│1 е M:D│DлNR(I,0):Л I8N└З #м2, "PCT CONTRIBUTION, BY FACTOR"8+N╩З #м2, H$:RN│0:SN│589N╘А I│1 е M8QN▐A│NR(I,0)оD:A│Aн1008cNшЕ A┤.01 з A│08БNЄA│100нA:B│ Б(A):C│Aм Б(A)8ЬN№Е C▓│.5 з A│Bл1 :Д A│B8иOA│Aо1008╞OЗ #м2, дRN)"PF";I;дSN) A;8▄ORN│RNл12:SN│SNл128ЄO$Е RN┤│120 з 202809	O.RN│0:SN│5:З #м2,""9O8Л I95OBЗ #м2,"":З #м2,H$;:З #м2, Л(10)9rOLЗ #м2, "CONTRIBUTION TO VARIANCE, BY VARIABLE":З #м2, H$9АOVSN│5:RN│09ОO`А I│1 е N9ЦOjA│09дOtА J│1 е M9╛O~A│AлF(I,J)нF(I,J):Л J9▄OИЗ #м2, дRN) V$(I);дSN) A;9ЄOТRN│RNл20:SN│SNл20:OЬЕ RN┤│100 з 20400:OжRN│0:SN│5:З #м2,"":'O░Л I:=O║З #м2,"":З #м2,H$:pO─З #м2,"TOTAL VARIANCE";D:З #м2,H$:З #м2, Л(10):vO╬Р:~]└A│0:╧]┼З #м2, "COEFFICIENTS OF PRINCIPAL FACTORS (FACTOR PATTERN MATRIX)":З #м2, H$:■]╩Щ "D",#1,"COMPON/ROT",5:╨ #1, 5  з Z$:RN│1;]╧А I│1 е M;]╘SN│0:TN│5;A]рЗ #м2,"PRINCIPAL FACTOR NUMBER ";I;O]уА J│1 е N;s]ш╘ Z$│ ж(F(J,I)):┼ #1,RN:RN│RNл1;Х]эЗ #м2,дSN) V$(J);дTN) F(J,I);;л]ЄSN│SNл20:RN│RNл20;┴]ўЕ SN┤│100 з 24065;╪]№SN│0:TN│5:З #м2,"";р^
Л J;ё^З #м2,"":Л I<^З #м2,"":З #м2,H$:З #м2, Л(10)<A^А I│1 е N:╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I<X^╘ Z$│ ж(M):┼ #1,RN<^^Ъ<З^З #м2, "COLUMNS OF TRANSFORM MATRIX"<Ф^З #м2,H$<в^$А J│1 е M<╛^.RN│0:З #м2, "COLUMN ";J<╠^8А I│1 е M<ф^BЗ #м2, дRN) P(I,J);=^LRN│RNл16:Е RN┤│112 з 24160=^VRN│0:З #м2,""=^`Л I=.^jЗ #м2,"":Л J=Q^tЗ #м2,"":З #м2,H$:З #м2, Л(10)=W^~Р=et╠А I│1 е M=st╤А J│1 е M=Аt╓P(I,J)│0=Иt█Л J=ХtрP(I,I)│1=ЭtхЛ I=гtъР=▒yА I│1 е N=╤yNR(I,1)│CTнF(I,P)лSTнF(I,Q)=Єy"NR(I,2)│мSTнF(I,P)лCTнF(I,Q)=·y'Л I>y,А I│1 е N>.y1F(I,P)│NR(I,1):F(I,Q)│NR(I,2):Л I><y6А I│1 е M>\y;NP(I,1)│CTнP(I,P)лSTнP(I,Q)>}y@NP(I,2)│мSTнP(I,P)лCTнP(I,Q)>ЕyEЛ I>УyJА I│1 е M>╡yOP(I,P)│NP(I,1):P(I,Q)│NP(I,2)>╜yTЛ I>├yYР>╤}QQ│0:QW│0>▀}А J│1 е M>ш}QV│0>Ў}А I│1 е N?}A│F(I,J):A│AнA:QV│QVлA?#}QQ│QQлAнA:Л I?7}QW│QWлQVнQV:Л J?Q}QW│(GMоN)нQW:QQ│QQмQW?W} Р?e}dА I│1 е N?Л}iNP(I,4)│F(I,P):NP(I,5)│F(I,Q):Л I?д}nЕ FG┤▓888 з Бж 32000?о}sQT│QQ?╫}xCT│.923879533:ST│.382683432:Бж 37000?ф}zБж 32000?Є}{А I│1 е N@}|F(I,P)│NP(I,4):F(I,Q)│NP(I,5):Л I@?}}D│QTм.5нQQ:V│.5нQQ:ST│мST:Бж 37000@L}Бж 32000@r}ВD│Dм.5нQQ:V│Vм.5нQQ:A0│QTмD:QQ│QT@А}ЗА I│1 е N@ж}МF(I,P)│NP(I,4):F(I,Q)│NP(I,5):Л I@┤}СB4│V:A4│D@┬}ЫA│ Ф(VоD)@╘}аЕ V▓0 з 32200@ц}еЕ V┤0 з 32220@°}кЕ V│0 з 32230A
}╚Е ;J$;Nм1;K$;SS/ЯЗ #м2,H$/-дЗ #м2, Л(10); Л(10)/xЗ #м2,I$; Л(0); Л(144); Л(15);"PARTIAL REGRESSION COEFFICIENTS"; Л(14)/Р
З #м2, Л(10), Л(10)/иJ$│I$л Л(0)л Л(156)/╛K$│I$л Л(1)л Л(8)/╒L$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)оZ0Ь?З #м2,I;M$;B(I);J$;Z;K$;NмMм1;L$;Q0дDЛ I0▒HЗ #м2,H$0┐IA$│ Л(10)0$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TER #м2,H$/-дЗ #м2, Л(10); Л(10)/xЗ #м2,I$; Л(0); Л(144); Л(15);"PARTIAL REGRESSION COEFFICIENTS"; Л(14)/Р
З #м2, Л(10), Л(10)/иJ$│I$л Л(0)л Л(156)/╛K$│I$л Л(1)л Л(8)/╒L$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)оZ0Ь?З #м2,I;M$;B(I);J$;Z;K$;NмMм1;L$;Q0дDЛ I0▒HЗ #м2,H$0┐IA$│ Л(10)0$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT,                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 '│&2Х 600,32760&┤Ю(0)&D╛А Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&o╚А Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&Щ╥А X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&├▄А X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X&сцА I│0 е 8 й 2:А Y│20 е 29'ЁЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'Q·Ь(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'Н
Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'Ч
Л Y,I'╢
З:З:З "          LIZMULTI"'╩
"А T│1 е 500:Л T'█
,З @14,"MENU"' 
6З "1. FACTOR MATRIX-USER INPUT"(
@З "2. ROTATION OF AXES"(@
JЗ "3. ROTATION-PRINCIPAL COMPS."(W
QЗ "G. DRAW GRAPHS"(t
TЗ "D. LIZPACK DIRECTORY"(М
YЗ "E. EXIT LIZPACK"(Ц
^A$│ Т(╕
cЕ A$│"Z" з Х 600,32760:Бе 350(╠
hЕ A$│"1" Бе 500(р
rЕ A$│"2" Бе 600(Ї
|Е A$│"D" Бе 425)
~Е A$│"G" з 8000)
БЕ A$│"3" Бе 700 )1
ЖЕ A$│"E" Бе 410)<
РБе 350)U
ЪЮ(3):З "END LIZPACK")[
дК)А
йM│ Ж(32767):H$│ И(M):H$│ П(H$,1))Щ
оH$│"LIZPACK/DIR:"лH$)д
│╙ H$,R)╙
ЇЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1)Ї
∙Ю:Й "NUMBER OF VARIABLES"; N*
■Й "NUMBER OF FACTORS"; M*&М F(N,M):М V$(N)*4А J│1 е M*@
RN│RNл1*NА I│1 е N*rЗ "FACTOR ";J;" COEFFICIENT ";I*мЙ "DATA";F(I,J):╘ Z$│ ж(F(I,J)):┼ #1,RN:RN│RNл1:Л I,J*╟!Ю:З "NAMING VARIABLES"*╒&А I│1 е N*√+З "VARIABLE ";I:╗ Й "NAME ";V$(I)+0╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I+55╘ Z$│ ж(M):┼ #1,RN+C:Ъ:Бе 1000+rXЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1+У]Ю:Й "NUMBER OF VARIABLES"; N+╝b─ #1, е(1):M│ в(Z$):М F(N,M):М V$(N)+╩gА J│1 е M+╓lRN│RNл1+фqА I│1 е N,v─ #1,RN:F(I,J)│ в(Z$):RN│RNл1:Л I,J,{А I│1 е N,;А─ #1,RN:V$(I)│Z$:RN│RNл1:Л I,IЕЪ:Бе 1000,i╝Ю(3):З @232, "LIZMULTI RUN",Ш└Щ "D",#1,"COMPON/PCL",5:╨ #1, 5  з Z$:RN│1,▒┬─ #1,  е(1):N│ в(Z$),┐─А I│1 е N,▐╚─ #1,RN:D│ в(Z$):RN│RNл1лN,Ё╠Е D▓1 з M│Mл1,°╨Л I-E╤Ю:З "DO YOU WISH TO SPECIFY THE":╗ Й "NO. OF FACTORS TO BE USED? Y/N";A$-X╥Е A$│"N" з 724-q╙Й "NO. OF FACTORS";M-Л╘М F(N,M):RN│1:М V$(N)-л╓Ю(3):З @232, "LIZMULTI RUN"-╣╪А J│1 е M-┼▄RN│RNл1-╙рА I│1 е N-їф─ #1,RN:F(I,J)│ в(Z$):RN│RNл1- шЛ I,J.ьRN│NнNлNл1.ЁА I│1 е N.9Ї─ #1,RN:V$(I)│Z$:RN│RNл1.A°Л I.G№Ъ.~шER│.0005:М NR(N,2):М NP(N,5):IT│1:М VP(N):М P(M,M).ЪэЮ:Й "NAME OF STUDY"; A$.║яЙ "NAME OF INVESTIGATOR";B$.╤ЄЙ "DATE OF RUN";C$.∙єЙ "DO YOU WISH TO ENTER GAMMA ?";D$/ЇЕ8NЄA│100нA:B│ Б(A):C│Aм Б(A)87N№Е C▓│.5 з A│Bл1 :Д A│B8COA│Aо1008aOЗ #м2, дRN)"PF";I;дSN) A;8wORN│RNл12:SN│SNл128НO$Е RN┤│120 з 202808дO.RN│0:SN│5:З #м2,""8мO8Л I8╨OBЗ #м2,"":З #м2,H$;:З #м2, Л(10)9
OLЗ #м2, "CONTRIBUTION TO VARIANCE, BY VARIABLE":З #м2, H$9OVSN│5:RN│09)O`А I│1 е N91OjA│09?OtА J│1 е M9YO~A│AлF(I,J)нF(I,J):Л J9wOИЗ #м2, дRN) V$(I);дSN) A;9НOТRN│RNл20:SN│SNл209гOЬЕ RN┤│100 з 204009║OжRN│0:SN│5:З #м2,""9┬O░Л I9╪O║З #м2,"":З #м2,H$:O─З #м2,"TOTAL VARIANCE";D:З #м2,H$:З #м2, Л(10):O╬Р:]└A│0:j]┼З #м2, "COEFFICIENTS OF PRINCIPAL FACTORS (FACTOR PATTERN MATRIX)":З #м2, H$:Щ]╩Щ "D",#1,"COMPON/ROT",5:╨ #1, 5  з Z$:RN│1:з]╧А I│1 е M:╡]╘SN│0:TN│5:▄]рЗ #м2,"PRINCIPAL FACTOR NUMBER ";I:ъ]уА J│1 е N;]ш╘ Z$│ ж(F(J,I)):┼ #1,RN:RN│RNл1;0]эЗ #м2,дSN) V$(J);дTN) F(J,I);;F]ЄSN│SNл20:TN│TNл20;\]ўЕ SN┤│100 з 24065;s]№SN│0:TN│5:З #м2,"";{^
Л J;М^З #м2,"":Л I;п^З #м2,"":З #м2,H$:З #м2, Л(10);▄^А I│1 е N:╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I;є^╘ Z$│ ж(M):┼ #1,RN;∙^Ъ<#^З #м2,  "COLUMNS OF TRANSFORM MATRIX"<0^З #м2,H$<>^$А J│1 е M<Z^.RN│0:З #м2, "COLUMN ";J<h^8А I│1 е M<А^BЗ #м2, дRN) P(I,J);<Я^LRN│RNл16:Е RN┤│112 з 24160<▒^VRN│0:З #м2,""<╣^`Л I<╩^jЗ #м2,"":Л J<э^tЗ #м2,"":З #м2,H$:З #м2, Л(10)<є^~Р=
t╠А I│1 е M=t╤А J│1 е M=t╓P(I,J)│0=$t█Л J=1tрP(I,I)│1=9tхЛ I=?tъР=MyА I│1 е N=myNR(I,1)│CTнF(I,P)лSTнF(I,Q)=Оy"NR(I,2)│мSTнF(I,P)лCTнF(I,Q)=Цy'Л I=дy,А I│1 е N=╩y1F(I,P)│NR(I,1):F(I,Q)│NR(I,2):Л I=╪y6А I│1 е M=°y;NP(I,1)│CTнP(I,P)лSTнP(I,Q)>y@NP(I,2)│мSTнP(I,P)лCTнP(I,Q)>!yEЛ I>/yJА I│1 е M>QyOP(I,P)│NP(I,1):P(I,Q)│NP(I,2)>YyTЛ I>_yYР>h}QQ│0>v}А J│1 е M>Д}
А I│1 е N>г}A│F(I,J):A│AнAнAнA:QQ│QQлA>н}Л I,J>│}Р>┴}dА I│1 е N>щ}iNR(I,0)│F(I,P)нF(I,P)мF(I,Q)нF(I,Q)?}nNP(I,0)│2нF(I,P)нF(I,Q)?+}sB│NR(I,0)нNR(I,0)мNP(I,0)нNP(I,0)?G}xNR(I,0)│NR(I,0)нNP(I,0)?Y}}NP(I,0)│B:Л I?e}ВV│0:D│0?s}ЗА I│1 е N?Г}МV│VлNR(I,0)?У}СD│DлNP(I,0)?Ы}ЦЛ I?п}ЫV│Vн2:A│ Ф(VоD)?┴}аЕ V▓0 з 32200?╙}еЕ V┤0 з 32220?х}кЕ V│0 з 32230?ў}╚Е D▓0 з 32210@
}╩A│3.14159266лA@$}╠CT│ Х(Aо4):ST│ Е(Aо4)@*}╬Р@D}╥CT│ Х(Aо4):ST│ Е(Aо4)@J}╘Р@\}▄Е D▓0 з 32226@r}▐A│м(3.14159266мA)@М}рCT│ Х(Aо4):ST│ Е(Aо4)@Т}сР@м}тCT│ Х(Aо4):ST│ Е(Aо4)@▓}фР@┬}цCT│1:ST│0:Р;" DF";K$;" SS";L$;" MSS";M$;" F RATIO"-ї+З #м2,H$."-З #м2 #&Х 200,31699&(Т 150,41&6<З #м2, Л(27); Л(52)&?dЮ(0)&inА Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&ФxА Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&╛ВА X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&шМА X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X'ЦА I│0 е 8 й 2:А Y│20 е 29'>аЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'vкЬ(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'▓┤Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'╝╛Л Y,I'█╚З:З:З "           LIZPOLY"'я╥А T│1 е 500:Л T(ЁЮ:З @13, "MENU":З:З($·З "1. CREATE DATA FILES"(?
З "2. EDIT DATA FILES"(`
З "3. POLYNOMIAL REGRESSION"(w
З "4. SCREEN DUMP"(П
З "E. END THIS RUN"(Щ
"A$│ Т(м
,Е A$│"1" з 370(┐
6Е A$│"2" з 480(╙
@Е A$│"3" з 1005(ш
EЕ A$│"4" з 60000(√
JЕ A$│"E" з 350)
TБ е 290)'
^Ю(8): З @ 10, "END LIZPOLY")-
hК)N
rЮ(3):╗ Й "NAME OF FILE?"; A$)d
|Е A$│"NONE" з 240)w
ЖЩ "D",#1,A$,12)Д
РN│0:Ю(4))О
ЪN│Nл1)╨
дЗ "ENTER RECORD; WHEN FINISHED TYPE 0909; RECORD NUMBER IS";N)╪
оЙ Q)ы
╕Е Q│0909 з 470)Ў
┬┘ #1,Q*
╠┼ #1,N:Бе 410*
╓Ъ #1: Бе 370*:
рЮ(3):╗ Й "NAME OF FILE?"; A$*P
ъЕ A$│"NONE" з 240*c
ЇЩ "D",#1,A$,12*м
■Й "ENTER RECORD NUMBER, NEW RECORD; WHEN FINISHED, TYPE 0909,0"; Q,R*┐Е Q│0909 з 550*╩┘ #1,R*▌┼ #1,Q: Бе 510*э&Ъ #1:Бе 480+эЮ(3):╗ Й "NAME OF STUDY";BA$+0Є╗ Й "NAME OF INVESTIGATOR";B$+Iў╗ Й "DATE OF RUN";C$+h№Й "DEGREE OF POLYNOMIAL";K+Ы■M│K:K│Kл1:М X(M):М B(M):М C(M,M):М P(M):М D(M)+и
Бе 20000+╢А I│1 е M+╞А J│1 е Iм1+▐R(I,J)│R(J,I):Л J,I+ыБж 29999+°$Бж 30410,&А I│1 е M:X(I)│R(I,K):Л I,#)Бж 30270,J.SS│PR(K,K)нPR(K,K):YI│R(0,K):SE│SS,X3А I│1 е M,p8YI│YIм(B(I)нR(0,I)),Н:SE│SEм(PR(I,K)нB(I)):Л I,╣=SR│SSмSE:ME│SEо(NмMм1):MR│SRоM:FR│MRоME,═>B(0)│YI:Бж 9290,тBЕ M┤Kм1 Б е 1110-HЗ #м2,"NAME OF STUDY: ";BA$-)LЗ #м2, "NAME OF INVESTIGATOR: ";B$-GQЗ #м2, "DATE OF RUN: ";C$-UVH$│ Л(10)-f[З #м2, H$,H$-д`З #м2, "ANOVA TABLE FOR POLYNOMIAL REGRESSION, DEGREE ";M-└eH$│ Л(28)л Л(80)л Л(45)-╒jI$│ Л(27)л Л(16)-эoJ$│I$л Л(0)л Л(120).tK$│I$л Л(0)л Л(210).yL$│I$л Л(1)л Л(44).4~M$│I$л Л(1)л Л(134).AГЗ #м2,H$.zИЗ #м2,"SOURCE";J$;"DF";K$;"SS";L$;"MSS";M$;"F RATIO".ЗНЗ #м2,H$.╡ТЗ #м2,"REGRESSION";J$;M;K$;SR;L$;MR;M$;FR.▄РЗ #м2,"ERROR";J$;NмMм1;K$;SE;L$;ME.щХЗ #м2,H$/ЪЗ #м2,"TOTAL" %╞&2Х 600,32760&┤Ю(0)&D╛А Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&o╚А Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&Щ╥А X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&├▄А X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X&сцА I│0 е 8 й 2:А Y│20 е 29'ЁЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'Q·Ь(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'Н
Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'Ч
Л Y,I'╢
З:З:З "          LIZMULTI"'╩
"А T│1 е 500:Л T'█
,З @14,"MENU"' 
6З "1. FACTOR MATRIX-USER INPUT"(
@З "2. ROTATION OF AXES"(@
JЗ "3. ROTATION-PRINCIPAL COMPS."(W
QЗ "G. DRAW GRAPHS"(t
TЗ "D. LIZPACK DIRECTORY"(М
YЗ "E. EXIT LIZPACK"(Ц
^A$│ Т(╕
cЕ A$│"Z" з Х 600,32760:Бе 350(╠
hЕ A$│"1" Бе 500(р
rЕ A$│"2" Бе 600(Ї
|Е A$│"D" Бе 425)	
~Е A$│"G" Бе 8000)
БЕ A$│"3" Бе 700 )2
ЖЕ A$│"E" Бе 410)=
РБе 350)V
ЪЮ(3):З "END LIZPACK")\
дК)Б
йM│ Ж(32767):H$│ И(M):H$│ П(H$,1))Ъ
оH$│"LIZPACK/DIR:"лH$)е
│╙ H$,R)╘
ЇЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1)ї
∙Ю:Й "NUMBER OF VARIABLES"; N*
■Й "NUMBER OF FACTORS"; M*'М F(N,M):М V$(N)*5А J│1 е M*A
RN│RNл1*OА I│1 е N*sЗ "FACTOR ";J;" COEFFICIENT ";I*нЙ "DATA";F(I,J):╘ Z$│ ж(F(I,J)):┼ #1,RN:RN│RNл1:Л I,J*╚!Ю:З "NAMING VARIABLES"*╓&А I│1 е N*№+З "VARIABLE ";I:╗ Й "NAME ";V$(I)+0╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I+65╘ Z$│ ж(M):┼ #1,RN+D:Ъ:Бе 1000+sXЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1+Ф]Ю:Й "NUMBER OF VARIABLES"; N+╜b─ #1, е(1):M│ в(Z$):М F(N,M):М V$(N)+╦gА J│1 е M+╫lRN│RNл1+хqА I│1 е N,
v─ #1,RN:F(I,J)│ в(Z$):RN│RNл1:Л I,J,{А I│1 е N,<А─ #1,RN:V$(I)│Z$:RN│RNл1:Л I,JЕЪ:Бе 1000,j╝Ю(3):З @232, "LIZMULTI RUN",Щ└Щ "D",#1,"COMPON/PCL",5:╨ #1, 5  з Z$:RN│1,▓┬─ #1,  е(1):N│ в(Z$),└─А I│1 е N,▀╚─ #1,RN:D│ в(Z$):RN│RNл1лN,ё╠Е D▓1 з M│Mл1,∙╨Л I-F╤Ю:З "DO YOU WISH TO SPECIFY THE":╗ Й "NO. OF FACTORS TO BE USED? Y/N";A$-Y╥Е A$│"N" з 724-r╙Й "NO. OF FACTORS";M-М╘М F(N,M):RN│1:М V$(N)-м╓Ю(3):З @232, "LIZMULTI RUN"-║╪А J│1 е M-╞▄RN│RNл1-╘рА I│1 е N-Ўф─ #1,RN:F(I,J)│ в(Z$):RN│RNл1.шЛ I,J.ьRN│NнNлNл1.ЁА I│1 е N.:Ї─ #1,RN:V$(I)│Z$:RN│RNл1.B°Л I.H№Ъ.шER│.0005:М NR(N,2):М NP(N,3):IT│1:М VP(N):М P(M,M).ЫэЮ:Й "NAME OF STUDY"; A$.╗яЙ "NAME OF INVESTIGATOR";B$.╥ЄЙ "DATE OF RUN";C$.ЄЇЮ(3):З @232, "LIZMULTI RUN". ўБж 32000/∙Бж 29900/№А P│1 е Mм1/-
А Q│Pл1  е M/IЗ @232, "ROTATION "; IT/^З @264, "Q= ";QQ/kБж 32100/xБж 31000/ВQ1│QQ/ПБж 32000/йЕ  В(Q1мQQ)┤ER з 1400/╡!IT│ITл1/┐$Л Q,P/╦)Бе 1020/ыxЮ(3):З @232, "LIZMULTI RUN"0	ВЗ #м2,"NAME OF STUDY ";A$0.МЗ #м2,"NAME OF INVESTIGATOR ";B$0JЦЗ #м2,"DATE OF RUN ";C$0\аH$│ б(132,45)0ВкЗ #м2, Л( Ж(32765)); Л( Ж(32766))0г┤З #м2, "VARIABLES":З #м2, H$0м╛RN│00║╚А I│1 е N0╤╥З #м2, дRN) V$(I);0ю▄RN│RNл7:Е RN┤│119 з 15201цRN│0:З #м2,""1ЁЛ I1+·З #м2,"":З #м2,H$:З #м2, Л(10)18TБж 240001EYБж 200001R^Ю:Бе 3001c@А P1│1 е Mм11uEА Q1│P1л1 е M1СFЮ:З "HORIZ. FACTOR ";P11нHЗ "VERTICAL FACTOR ";Q11▌JLX│F(1,P1):UX│F(1,P1):LY│F(1,Q1):UY│F(1,Q1)1ыOА I│2 е N2	TЕ F(I,P1)┤LX з LX│F(I,P1)2'VЕ F(I,P1)▓UX з UX│F(I,P1)2EXЕ F(I,Q1)┤LY з LY│F(I,Q1)2cZЕ F(I,Q1)▓UY з UY│F(I,Q1)2k[Л I2w\Бж 89902Е^А I│1 е N2зcGX│F(I,P1):GY│F(I,Q1):Бж 92602пhЛ I2╣mA$│ Т2═rЕ A$┤▓"" з 80602┘wБе 80452х|Л Q1,P12ЄБЮ:Бе 3003#Е LX▓0 з U│0 :Д U│LX3$#(Е UX┤0 з V│0 :Д V│UX3?#2XH│245о(VмU):XK│5мXHнU3X#<Е LY▓0 з S│0 :Д S│LY3q#FЕ UY┤0 з T│0 :Д T│UY3О#PXL│182о(SмT):XM│5м(XLнT)3а#Z╚ 4,1:╝:┐ 1,13╖#d╗(XK,0)м(XK,192),╜3┌#n╗(XK,0)м(XKм2.82843,2.82843),╜3■#x╗ (XK,0)м(XKл2.82843,2.82843),╜4#В╗(0,XM)м(255,XM),╜4<#М╗(256,XM)м(253.17157,XMл2.82843),╜4c#Ц╗(256,XM)м(253.17157,XMм2.82843),╜4#аSX│(VмU)о28:SY│(TмS)о184О#кА Q│1 е 184о#┤GY│XLнQнSYлXM:Е GY┤5 з 91604┬#╣Е GY▓187 з 91604▌#╛╗(XKм3,GY)м(XKл3,GY),╜5#╚GY│мXLнQнSYлXM:Е GY▓187 з 91805#═Е GY┤5  з 91805.#╥╗(XKм3,GY)м(XKл3,GY),╜56#▄Л Q5E#цА Q│1 е 285g#ЁGX│XHнQнSXлXK:Е GX▓251 з 92205y#їЕ GX┤5 з 92205Ф#·╗(GX,XMм3)м(GX,XMл3),╜5╡$GX│мXHнQнSXлXK:Е GX┤5 з 92405╔$	Е GX▓251 з 92405ф$╗(GX,XMм3)м(GX,XMл3),╜5ь$Л Q5Є$"Р6$,╚ 4,1:┐ 1,16$6╜(XHнGXлXK,XLнGYлXM)6!$@Р6/N А J│1 е M6=N*NR(J,0)│06KN4А I│1 е N6mN>NR(J,0)│NR(J,0)лF(I,J)нF(I,J)6wNHЛ I,J6жNRЗ #м2,"CONTRIBUTION TO VARIANCE BY FACTOR"6╛N\З #м2, H$:RN│0:SN│56╠NfА I│1 е M6ёNpЗ #м2, дRN) "PF";I;дSN) NR(I,0);7NzRN│RNл20:SN│SNл207NДЕ RN┤│100 з 2012074NОRN│0:SN│5:З #м2,""7<NШЛ I7_NвЗ #м2,"":З #м2,H$:З #м2, Л(10)7gNмD│07ЕN╢А I│1 е M:D│DлNR(I,0):Л I7оN└З #м2, "PCT CONTRIBUTION, BY FACTOR"7╞N╩З #м2, H$:RN│0:SN│57╘N╘А I│1 е M7ьN▐A│NR(I,0)оD:A│Aн1007■NшЕ A┤.01 з A│0J)│0:Л J tхP(I,I)│1 -tъP(I,I)│1:Л I >yD│ В(R(1,2)) LyPI│1:PJ│2 \yА I│1 е Nм1 ly"А J│Iл1 е N Чy'Е  В(R(I,J))▓D з D│ В(R(I,J)) :Д 31025 еy,PI│I:PJ│J пy1Л J,I ╛y6Е D┤ER з Р ╦y;Бж 31100 єy=ZA│R(PI,PJ):ZB│R(PI,PI):ZC│R(PJ,PJ)!
y@А I│1 е N!3yENR(I,1)│CTнR(I,PI)мSTнR(I,PJ):R(PI,I)│R(I,PI)!UyGNP(I,1)│P(I,PI)нCTмP(I,PJ)нST!ЗyJNR(I,2)│STнR(I,PI)лCTнR(I,PJ):R(PJ,I)│R(I,PJ)!йyLNP(I,2)│P(I,PI)нSTлP(I,PJ)нCT!▒yOЛ I!┐yPА I│1 е N"yQR(I,PI)│NR(I,1):R(I,PJ)│NR(I,2):P(I,PI)│NP(I,1):P(I,PJ)│NP(I,2)"+yRR(PI,I)│NR(I,1):R(PJ,I)│NR(I,2):Л I"UyTR(PI,PI)│ZBнCTнCTлZCнSTнSTм2нZAнSTнCT"yYR(PJ,PJ)│ZBнSTнSTлZCнCTнCTл2нZAнSTнCT"Щy^R(PI,PJ)│0:R(PJ,PI)│0"жycБе 31000"╒y|Е  В(R(PI,PI)мR(PJ,PJ))┤│.00000001 з 31125#yБD│2нR(PI,PJ)о(R(PJ,PJ)мR(PI,PI)):E│ А(D)#/yЖA│2н В(R(PI,PJ)):B│ В(R(PI,PI)мR(PJ,PJ))#YyЛD│ Ы((AнA)л(BнB)):CT│1л(BоD):CT│.5нCT#┐yРЕ  В(CT)┤│.00000001 з CT│0 :Д CT│ Ы(CT):ST│1м(CTнCT):Е  В(ST)┤│.00000001 з ST│0 :Д  ST│Eн Ы(ST):Р#╫yХCT│.5н Ы(2):ST│CT:Р#хyрА I│1 е N#№yхЕ R(I,I)┤0 з 31230$
yъА J│1 е N$'yяF(J,I)│P(J,I)н Ы(R(I,I))$/yЇЛ J$7yЎЛ I$=y∙Р$Qy■FG│999:Бе 31222;" DF";K$;" SS";L$;" MSS";M$;" F RATIO"-ї+З #м2,H$."-З #м2 #&Х 200,31699&(Т 150,41&6<З #м2, Л(27); Л(52)&?dЮ(0)&inА Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&ФxА Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&╛ВА X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&шМА X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X'ЦА I│0 е 8 й 2:А Y│20 е 29'>аЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'vкЬ(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'▓┤Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'╝╛Л Y,I'█╚З:З:З "           LIZPOLY"'я╥А T│1 е 500:Л T(ЁЮ:З @13, "MENU":З:З($·З "1. CREATE DATA FILES"(?
З "2. EDIT DATA FILES"(`
З "3. POLYNOMIAL REGRESSION"(w
З "4. SCREEN DUMP"(П
З "E. END THIS RUN"(Щ
"A$│ Т(м
,Е A$│"1" з 370(┐
6Е A$│"2" з 480(╙
@Е A$│"3" з 1005(ш
EЕ A$│"4" з 60000(√
JЕ A$│"E" з 350)
TБ е 290)'
^Ю(8): З @ 10, "END LIZPOLY")-
hК)N
rЮ(3):╗ Й "NAME OF FILE?"; A$)d
|Е A$│"NONE" з 240)w
ЖЩ "D",#1,A$,12)Д
РN│0:Ю(4))О
ЪN│Nл1)╨
дЗ "ENTER RECORD; WHEN FINISHED TYPE 0909; RECORD NUMBER IS";N)╪
оЙ Q)ы
╕Е Q│0909 з 470)Ў
┬┘ #1,Q*
╠┼ #1,N:Бе 410*
╓Ъ #1: Бе 370*:
рЮ(3):╗ Й "NAME OF FILE?"; A$*P
ъЕ A$│"NONE" з 240*c
ЇЩ "D",#1,A$,12*м
■Й "ENTER RECORD NUMBER, NEW RECORD; WHEN FINISHED, TYPE 0909,0"; Q,R*┐Е Q│0909 з 550*╩┘ #1,R*▌┼ #1,Q: Бе 510*э&Ъ #1:Бе 480+эЮ(3):╗ Й "NAME OF STUDY";BA$+0Є╗ Й "NAME OF INVESTIGATOR";B$+Iў╗ Й "DATE OF RUN";C$+h№Й "DEGREE OF POLYNOMIAL";K+Ы■M│K:K│Kл1:М X(M):М B(M):М C(M,M):М P(M):М D(M)+и
Бе 20000+╢А I│1 е M+╞А J│1 е Iм1+▐R(I,J)│R(J,I):Л J,I+ыБж 29999+°$Бж 30410,&А I│1 е M:X(I)│R(I,K):Л I,#)Бж 30270,J.SS│PR(K,K)нPR(K,K):YI│R(0,K):SE│SS,X3А I│1 е M,p8YI│YIм(B(I)нR(0,I)),Н:SE│SEм(PR(I,K)нB(I)):Л I,╣=SR│SSмSE:ME│SEо(NмMм1):MR│SRоM:FR│MRоME,═>B(0)│YI:Бж 9290,тBЕ M┤Kм1 Б е 1110-HЗ #м2,"NAME OF STUDY: ";BA$-)LЗ #м2, "NAME OF INVESTIGATOR: ";B$-GQЗ #м2, "DATE OF RUN: ";C$-UVH$│ Л(10)-f[З #м2, H$,H$-д`З #м2, "ANOVA TABLE FOR POLYNOMIAL REGRESSION, DEGREE ";M-└eH$│ Л(28)л Л(80)л Л(45)-╒jI$│ Л(27)л Л(16)-эoJ$│I$л Л(0)л Л(120).tK$│I$л Л(0)л Л(210).yL$│I$л Л(1)л Л(44).4~M$│I$л Л(1)л Л(134).AГЗ #м2,H$.zИЗ #м2,"SOURCE";J$;"DF";K$;"SS";L$;"MSS";M$;"F RATIO".ЗНЗ #м2,H$.╡ТЗ #м2,"REGRESSION";J$;M;K$;SR;L$;MR;M$;FR.▄РЗ #м2,"ERROR";J$;NмMм1;K$;SE;L$;ME.щХЗ #м2,H$/ЪЗ #м2,"TOTAL";J$;Nм1;K$;SS/ЯЗ #м2,H$/-дЗ #м2, Л(10); Л(10)/xЗ #м2,I$; Л(0); Л(144); Л(15);"PARTIAL REGRESSION COEFFICIENTS"; Л(14)/Р
З #м2, Л(10), Л(10)/иJ$│I$л Л(0)л Л(156)/╛K$│I$л Л(1)л Л(8)/╒L$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)оZ0Ь?З #м2,I;M$;B(I);J$;Z;K$;NмMм1;L$;Q0дDЛ I0▒HЗ #м2,H$0┐IA$│ Л(10)0$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)о                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !M2Х 600,32760"┤Ю(0)L╛А Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Yw╚А Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Yб╥А X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X╦▄А X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,XщцА I│0 е 8 й 2:А Y│20 е 29!ЁЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)Y·Ь(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)Х
Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)Я
Л Y,I╛
З:З:З "          LIZMULTI"╥
"А T│1 е 500:Л Tу
,З @14,"MENU"
6З "1. CORR. MATRIX-SYSTEM INPUT"+
@З "2. CORR. MATRIX-USER INPUT"O
JЗ "3. COMMUNALITIES-USER INPUT"w
OЗ "4. COMPUTE PRINCIPAL COMPONENTS"Ф
TЗ "D. LIZPACK DIRECTORY"м
YЗ "E. EXIT LIZPACK"╢
^A$│ Т╪
cЕ A$│"Z" з Х 600,32760:Бе 350ь
hЕ A$│"1" Бе 600
mЕ A$│"3" Бе 700
rЕ A$│"2" Бе 500)
wЕ A$│"4" Бе 1000=
|Е A$│"D" Бе 425Q
ЖЕ A$│"E" Бе 410\
РБе 350u
ЪЮ(3):З "END LIZPACK"{
дКа
йM│ Ж(32767):H$│ И(M):H$│ П(H$,1)╣
оH$│"LIZPACK/DIR:"лH$─
│╙ H$,Rч
ЇЮ:З "ENTER CORRELATION MATRIX"
∙Й "NUMBER OF VARIABLES";N$
■М R(N,N):М P(N,N):М F(N,N)4А I│1 е Nм1AR(I,I)│1QА J│Iл1 е Nl
З "ROW ";I;"COLUMN ";JАЙ "DATA";R(I,J)КЛ J,IЬR(N,N)│1:RN│1к!А I│2 е N║&А J│1 е Iм1╥+R(I,J)│R(J,I):Л J,I¤0Щ "D",#1,"CORRMAT/RIX",5:╨ #1, 5  з Z$5А I│1 е N:А J│1 е N=?╘ Z$│ ж(R(I,J)):┼ #1,RN:RN│RNл1GDЛ J,IVIЪ:Ю:Бе 300ЖXЩ "D",#1,"CORRMAT/RIX",5:╨ #1, 5  з Z$:RN│1з]Ю:Й "NUMBER OF VARIABLES"; N╞bМ R(N,N):М P(N,N):М F(N,N)цdЮ(3):З @232, "LIZMULTI RUN"ЇgА I│1 е NlА J│1 е N$q─ #1,RN:R(I,J)│ в(Z$):RN│RNл1.vЛ J,I={Ъ:Ю:Бе 300^╝Ю:З "ENTERING COMMUNALITIES"l┴А I│1 е NИ╞З "DIAGONAL ELEMENT ";IЬ╦Й "DATA";R(I,I)д╨Л I▒╒Ю:Бе 300┌шER│.0005:М V$(N):М NR(N,2):М NP(N,2)∙эЮ(3):Й "NAME OF STUDY"; A$яЙ "NAME OF INVESTIGATOR";B$0ЄЙ "DATE OF RUN";C$KўЮ:З "NAMING VARIABLES"Y№А I│1 е NБ
З "VARIABLE ";I;"NAME? ";:╗ Й V$(I)ЙЛ IйЮ(3):З @232, "LIZMULTI RUN"╟З #м2,"NAME OF STUDY ";A$ьЗ #м2,"NAME OF INVESTIGATOR ";B$З #м2,"DATE OF RUN ";C$8З #м2,"COMPUTATION OF PRINCIPAL COMPONENTS"JH$│ б(132,45)p$З #м2, Л( Ж(32765)); Л( Ж(32766))С)З #м2, "VARIABLES":З #м2, H$Ъ+RN│0и.А I│1 е N┐3З #м2, дRN) V$(I);▄8RN│RNл7:Е RN┤│119 з 1085ю:RN│0:З #м2,""Ў=Л IBЗ #м2,"":З #м2,H$:З #м2, Л(10)&GБж 299003LБж 31200HQЕ FG┤▓999 з 1120vVЗ #м2,  "MATRIX IS NOT POSITIVE DEFINITE"З[З #м2, Л(10)Ф`Бж 24200бjБж 20000оoБж 26000╗tБж 22000╚yБж 24000╒~Ю:Бе 300N З #м2,"CONTRIBUTION TO VARIANCE (EIGENVALUE), BY COMPONENT"-N%З #м2, H$:RN│0:SN│5;N*А I│1 е NHN,PI│VP(I)nN/З #м2, дRN) "PC";I;дSN) R(PI,PI);ДN4RN│RNл20:SN│SNл20ЪN9Е RN┤│100 з 20035▒N>RN│0:SN│5:З #м2,""╣NCЛ I▄NHЗ #м2,"":З #м2,H$:З #м2, Л(10)тNMРUЁЗ #м2, "EIGENVECTORS (COLUMNS OF TRANSFORM MATRIX)"'UїЗ #м2,H$5U·А J│1 е NVU RN│0:З #м2, "EIGENVECTOR ";JcV
PI│VP(J)qVА I│1 е NКV	З #м2, дRN) P(I,PI);йVRN│RNл16:Е RN┤│112 з 22040╗VRN│0:З #м2,""├VЛ I╘VЗ #м2,"":Л JўVЗ #м2,"":З #м2,H$:З #м2, Л(10)¤V"Р]└A│0A]┼З #м2, "COEFFICIENTS OF PRINCIPAL COMPONENTS":З #м2, H$p]╩Щ "D",#1,"COMPON/PCL",5:╨ #1, 5  з Z$:RN│1~]╧А I│1 е NХ]╘SN│0:TN│5:PI│VP(I)п]┘Е R(PI,PI)▓│1 з D│Dл1╒]▐╘ Z$│ ж(R(PI,PI)):┼ #1,RN:RN│RNл1]рЗ #м2,"PRINCIPAL COMPONENT NUMBER ";I;" EIGENVALUE";R(PI,PI)$]уА J│1 е NI]ш╘ Z$│ ж(F(J,PI)):┼ #1,RN:RN│RNл1l]эЗ #м2,дSN) V$(J);дTN) F(J,PI);В]ЄSN│SNл20:TN│TNл20Ш]ўЕ SN┤│100 з 24065п]№SN│0:TN│5:З #м2,""╖^
Л J╚^З #м2,"":Л Iы^З #м2,"":З #м2,H$:З #м2, Л(10)^А I│1 е N:╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л IJ^╘ Z$│ ж(D):┼ #1,RN:RN│RNл1:╘ Z$│ ж(N):┼ #1,RNR^Ъ:Р^^ИМ VP(N)x^НА I│1 е N:VP(I)│I:Л IЖ^ТА I│1 е NЯ^ЧPI│VP(I):MP│R(PI,PI)н^ЬА J│I е N╤^бPJ│VP(J):Е R(PJ,PJ)┤│MP з 24235¤^жMP│R(PJ,PJ):Q│VP(I):VP(I)│VP(J):VP(J)│Q^лЛ J,I
^░РeРD│0:RN│0:SN│5-eХА I│1 е N:eЧPI│VP(I)OeЪD│DлR(PI,PI):Л I{eЯЗ #м2, "PCT CONTRIBUTION, BY COMPONENT"ЙeдЗ #м2, H$ЧeйА I│1 е NдeлPI│VP(I)╜eоA│R(PI,PI)оD:A│Aн100╧e│Е A┤.01 з A│0эe╕A│100нA:B│ Б(A):C│Aм Б(A)e╜Е C▓│.5 з A│Bл1 :Д A│Be┬A│Aо1002e╟З #м2, дRN)"PC";I;дSN) A;He╠RN│RNл12:SN│SNл12^e╤Е RN┤│120 з 26075ue╓RN│0:SN│5:З #м2,""}e█Л IбeрЗ #м2,"":З #м2,H$;:З #м2, Л(10)▐eхЗ #м2, "CONTRIBUTION TO VARIANCE, BY VARIABLE":З #м2, H$ьeъSN│5:RN│0·eяА I│1 е NeЇA│0e∙А J│1 е N*e■A│AлF(I,J)нF(I,J):Л JHfЗ #м2, дRN) V$(I);дSN) A;^fRN│RNл20:SN│SNл20tf
Е RN┤│100 з 26135ЛfRN│0:SN│5:З #м2,""УfЛ IйfЗ #м2,"":З #м2,H$▄f!З #м2,"TOTAL VARIANCE";D:З #м2,H$:З #м2, Л(10)тf&РЁt╠А I│1 е N■t╓А J│1 е N tрP(I, Ю&Х 200,32760&;
Ю:З "SYSTEM LIZPACK-CUSTOM FILE MODE"&YЗ "COPYRIGHT (C) 1983 BY"&u
З д8) "WILLIAM J. GRAY"&УЗ "SET PRINTER BAUD RATE"&╡З "1=75      2=120     3=150"&╪З "4=300     5=600     6=1200"&√З "7=2400    8=4800    9=9600"'A$│ Т'Е A$┤▓"" з 45'!(Бе 25'Y-P│0:И  Й(A$) Бж 801,802,803,804,805,806,807,808,809'xFЗ "DISK DRIVE FOR LIZPACK"'ЛKЗ "0  1  2  3"'ХPA$│ Т'зUЕ A$┤▓"" з 95'▒ZБе 80'╚_M│ Й(A$):Т 32767,M'єaS$│ И(M):P$│"LIZPACK/DIR"л":"л П(S$,1)'■bБе 200(	d╙ P$,R(2╚Ю:З "CODES FOR SELECTING PRINT SIZE"(l═Й "CODES FOR STANDARD PRINT OR     PICA (10 CPI)";P,Q(Р╥Е P│0 з Т 32761,32 :Д Т 32761,P(┤╫Е Q│0 з Т 32762,32 :Д Т 32762,Q(я▄Й "CODES FOR COMPRESSED PRINT OR   ELITE (12 CPI)";P,Q)сЕ P│0 з Т 32763,32 :Д Т 32763,P)7цЕ Q│0 з Т 32764,32 :Д Т 32764,Q)uыЙ "CODES FOR CONDENSED PRINT OR    MICRON (16.7 CPI)";P,Q)ЩЁЕ P│0 з Т 32765,32 :Д Т 32765,P)╜їЕ Q│0 з Т 32766,32 :Д Т 32766,Q)▐·Ю(3):З @232, "BEGIN LIZPACK")щ Бе 100)■!P│2:Q│235:Бе 810*"P│1:Q│202:Бе 810*(#P│1:Q│115:Бе 810*9$Q│180:Бе 810*I%Q│87:Бе 810*Y&Q│41:Бе 810*i'Q│18:Бе 810*x(Q│6:Бе 810*З)Q│1:Бе 810*Э*Т 149,P:Т 150,Q:РQ│0 з Т 32766,32 :Д Т 32766,Q)▐·Ю(3):З @232, "BEGIN LIZPACK")щ Бе 100)■!P│2:Q│235:Бе 810                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
■Бе 5000SdХ 200,32760:З #м2, Л( Ж(32761)); Л( Ж(32762)):M│ Ж(32767)zfQ$│ И(M):Q$│ П(Q$,1):S$│"LIZMULTI"дiЮ:З "SYSTEM LIZPACK-CUSTOM FILE MODE"╗nЗ д10) "DIRECTORY"юsЗ "1. MINI-EDITOR: REMOVE DELETION       FLAGSxЗ "2. LIZCORR/MAT"zЗ "3. LIZCOMP/PCL"4}З "4. LIZFACTR/ANL"LЗ "5. LIZQUART/MAX"cАЗ "6. LIZVARI/MAX"{БЗ "7. LIZORTHO/MAX"ТВЗ "8. LIZOBLI/MIN"кДЗ "9. LIZSCORE/FAC"╝ЕЗ "0. EDITOR"╘ЗЗ "E. EXIT LIZPACK"ЁЙЗ "C. CONTINUE LISTING"·МA$│ Т
ОЕ A$│"C" з 200 СЕ A$│"1" з 1755ТЕ A$│"7" Бе 182 HЦЕ A$│"2" з 180\ЧЕ A$│"5" Бе 191pШЕ A$│"6" Бе 193ГЫЕ A$│"3" з 185ЦЭЕ A$│"4" з 192йЮЕ A$│"8" з 186╝ЯЕ A$│"9" з 187╤еЕ A$│"E" з 59800фжЕ A$│"0" з 181ўзЕ A$│"5" з 194кБе 140пБе 4000+┤P$│"LIZCORR/MAT":Бе 2000a╡P$│"EDITOR/BIG":S$│"FILES ADMINISTRATION":Бе 2000Г╢└ 4:P$│"LIZORTHO/MAX":Бе 2000а╣P$│"LIZCOMP/PCL":Бе 2000╜║P$│"LIZOBLI/MIN":Бе 2000█╗P$│"LIZSCORE/FAC":Бе 2000Ў╛Ю(3):З "END LIZPACK":К┐└ 4:P$│"LIZQUART/MAX":Бе 20006└P$│"LIZFACTR/ANL":Бе 2000W┴└ 4:P$│"LIZVARI/MAX":Бе 2000Б╚Ю:З "SYSTEM LIZPACK-CUSTOM FILE MODE"Ш╥З д10) "DIRECTORY"╕▄З "1. SHOWPACK-THE PROGRAM"╠цЗ "2. DATAPACK"шыЗ "C. CONTINUE LISTING"Є·A$│ Т Е A$│"1" з 280
Е A$│"2" з 290+
	Е A$│"C" з 1056
Бе 250V
P$│"SHOWPACK":S$│"":Бе 2000К
"P$│"DATAPACK":S$│"FILES ADMINISTRATION":Бе 2000п╨M│ Ж(32767):Q$│ И(M):Q$│ П(Q$,1)╤┌Ю(3):З "LOADING PROGRAM  ";P$ш▀З "SUBSYSTEM  ";S$∙фP$│P$л":"лQ$щ╙ P$,R"аЮ:╗ Й "NAME OF FILE? ";D$4еЩ "D",#1,D$,5QкЩ "D",#2,"SCRATCH/PAD",5cп╨ #1, 5  з Z$u┤╨ #2, 5  з W$~╣RN│1У╛─ #1,RN:D│ в(Z$)й├Е D│979797 з 4055╜╚╘ W$│Z$:┼ #2,RN█═RN│RNл1:Е RN▓ е(1) з 4055ч╥Бе 4030э╫ЪЎ▄╥ D$с╓ "SCRATCH/PAD" е D$ыБе 105иИТ &HE01,&HBD:Т &HE02,&HB3:Т &HE03,&HED:Т &HE04,&H1F:Т &HE05,&H02:Т &HE06,&H7E:Т &HE07,&H96:Е  Ж(38565)│147 з Т &HE08,&HA5 :Д Т &HE08,&HA7┼Н╣  Г0│&HE01:X│ Г0(&HE09)╨ТБе 100эЬ╣  Г0│&HE01:X│ Г0(&HE09)°жБе 100щШЮ(3):З @480,""!щвЗ @491, "LIZPACK".щмБж 60090Eщ╢З @480,"":Бж 60090yщ└З @481,"A STATISTICAL PACKAGE FOR THE":Бж 60090Цщ╩З @ 487,"MICROPROCESSOR"гщ╘Бж 60090║щ▐З @480,"":Бж 60090╤щшЗ @480,"":Бж 60090ъщЄЗ @494,"BY":Бж 60090щ№З @488,"WILLIAM J. GRAY"                                                                                                                                                                                                                                                                          ─ ╚
─├─┬╟┼#$╞&'(╚*+,-├/01╞34┬678╟           OR  BIG2лSHOWPACKBAS5ЩSHOWPACKBINКDATAPACKBAS
                                                                LIZPACK SET бLIZPACK DIR!
LIZCORR MAT" LIZCOMP PCLPLIZFACTRANL%LIZQUARTMAX╔LIZVARI MAX)╥LIZORTHOMAX╢LIZOBLI MIN.tLIZSCOREFAC$EDITOR  BIG2лSHOWPACKBAS5ЩSHOWPACKBINКDATAPACKBAS
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 №Х 200,32760"dЮ(0)LnА Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,YwxА Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,YбВА X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X╦МА X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,XщЦА I│0 е 8 й 2:А Y│20 е 29!аЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)YкЬ(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)Х┤Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)Я╛Л Y,I┐╚З:З:З "           LIZMULTI"╙╥А T│1 е 500:Л T▐▄Бе 241фЁЮЎёЗ @13, "MENU"·З "1. CREATE DATA FILES"*
З "2. MINI-EDITOR"H
З "3. CORRELATION MATRIX"l
З "4. PRINT CORR. COEFFICIENTS"Р
З "5. CORRELATION MATRIX-SMC'S"н
З "D. LIZPACK DIRECTORY"┼
З "E. END THIS RUN"╧
"A$│ Тт
,Е A$│"1" з 370ї
-Е A$│"D" з 500
6Е A$│"2" з 480
@Е A$│"3" з 10050
BЕ A$│"4" з 1940D
EЕ A$│"5" з 1030W
JЕ A$│"E" з 350y
OЕ A$│"Z" з Х 200,32760:Бе 290Е
TБ е 290г
^Ю(3):З @ 10,"END LIZPACK"й
hК╩
rЮ(3):╗ Й "NAME OF FILE?"; A$р
|Е A$│"NONE" з 240 
ЖЩ "D",#1,A$,5:╨ #1,5  з Z$
РN│0:Ю(4)
ЪN│Nл1X
дЗ "ENTER RECORD; WHEN FINISHED     ENTER 999999; RECORD  "; N`
оЙ Qu
╕Е Q│999999 з 470Д
┬╘ Z$│ ж(Q)Ц
╠┼ #1,N:Бе 410г
╓Ъ:Бе 240░
рБж 59000╗
ъБе 240╦
ЇM│ Ж(32767)╪
■H$│ И(M)шH$│ П(H$,1)H$│"LIZPACK/DIR"л":"лH$╙ H$,R*&В 'BEGIN MAIN PROGRAM'OэХ 200:Ю(3):Й "NAME OF STUDY";BA$oЄЙ "NAME OF INVESTIGATOR";B$ЖўЙ "DATE OF RUN";C$д№Й "NUMBER OF VARIABLES";K▒■Бж 60000╛ Бж 63000╦
Бе 20000сM│K:М X(M):М B(M)Ю(3):З @232,"LIZMULTI RUN"

Бж 29999!Е FG│999 з 1080.Бж 30410^Щ "D",#1,"CORRMAT/RIX",5:╨ #1, 5  з Z$:RN│1lА I│1 е MzА J│1 е MЬ$─ #1,RN:R(I,J)│ в(Z$):RN│RNл1д)Л J└.R(I,I)│1м(1оC(I,I)):Л I╥3RN│1:Бе 20295ї8Ю:З "CORR. MATRIX IS SINGULAR"	=А T│1 е 500:Л TBЮ:Бе 2405ФЮ(3):З @232,"LIZMULTI RUN"=ЦM│K]ЩЗ #м2, "NAME OF STUDY ";BA$ГЮЗ #м2, "NAME OF INVESTIGATOR ";B$агЗ #м2, "DATE OF RUN ",C$▒оH$│ б(80,45)шпЗ #м2, "RUN FROM LIZPACK DATA FILE: ";D$:З #м2, H$▓З #м2, "PEARSON CORRELATION COEFFICIENTS"#╖З #м2,H$i╦З #м2, "VARIABLES";д20);"COEFFICIENT, R";д40);"DF";д60);"T (R=0)"v═З #м2,H$Ж╨А I│1 е Mм1Ц╒А J│Iл1 е K╦фQ│1м(R(I,J)нR(I,J)):Q│(Nм2)оQ:Q│ Ы(Q):Q│R(I,J)нQїцЗ #м2,I;J;д20);R(I,J);д40);Nм2;д60);Q¤чЛ JшЗ #м2,H$ щЛ IєБе 240+N М R(K,K)9N*А I│0 е KGN4А J│0 е KZN>R(I,J)│0:Л J,INR╗ Й "NAME OF VARIABLE FILE "; D$ЮNfЩ "D",#1,D$,5:╨ #1,5  з Z$╝NpЮ(3):З @232,"LIZCORR RUN"╙NzА I│1 е  е(1) й TZрNБж 63050√NДЕ CP(0)│999999 з 20180
NСЕ Q│0 з 20123NУO(K)│O(KмQ)1NХА L│1 е 2нQ й 2SNЧJ│(Lл1)о2:PI│CT(L):PJ│CT(Lл1)rNЩO(KмQм1лJ)│O(PI)нO(PJ):Л LАNЫА J│1 е K│NвR(J,0)│R(0,J):R(0,J)│((Nм1)нR(0,J)лO(J))оN:Л J┼NзЕ N│1 з 20180╙NмА J│1 е KсN▒А L│J е KGN╢R(J,L)│(Nм2)нR(J,L):D│(O(J)мR(J,0))н(O(L)мR(L,0)):D│Dн(Nм1)оN:R(J,L)│R(J,L)лD:R(J,L)│R(J,L)о(Nм1)QN╗Л L,JYN╘Л IbN▐Ъ #1ЖNяА I│1 е K:R(I,0)│ Ы(R(I,I)):Л IФNЄА I│1 е KвNўА J│I е K╚N№R(I,J)│R(I,J)о(R(I,0)нR(J,0)):Л J┘N■R(I,I)│1:Л IчOА I│2 е KOА J│1 е Iм1:R(I,J)│R(J,I):Л J,I:OBЩ "D",#1,"CORRMAT/RIX",5:╨ #1,5  з Z$:RN│1HOGА I│1 е KVOLА J│1 е KzOQ╘ Z$│ ж(R(I,J)):┼ #1,RN:RN│RNл1ДOVЛ J,IКO[Ъ║O`Щ "D",#1,"MEANVAR/DAT",5:╨ #1, 5  з Z$:RN│1╚OeА I│1 е KьOj╘ Z$│ ж(R(I,0)):┼ #1,RN:RN│RNл1ЇOoЛ IOtА I│1 е K*Oy╘ Z$│ ж(R(0,I)):┼ #1,RN:RN│RNл1:Л I9O~Ъ:Ю:Бе 240Ku/М P(M):М D(M)du0А I│1 е M:P(I)│I:Л Iru5Е M│1 з РВu:А I│1 е Mм1РuDА L│I е MкuNPL│P(L):W│ В(R(PL,I))║uXА J│Iл1 е M╠ubQ│ В(R(PL,J))▄ulЕ Q▓W з W│QфuvЛ JЎuАЕ W│0 з 30260uКD(L)│ В(R(PL,I)оW):Л L uФT│I:Q│D(I).uЮА L│I е MAuиЕ D(L)▓Q з T│LWu▓Е D(L)▓Q з Q│D(L)_u╝Л LЙu╞W│P(I):P(I)│P(T):P(T)│W:Е Q│0 з 30260Хu┌PI│P(I)еuфА L│Iл1 е M╧uюPL│P(L):RT│R(PL,I)оR(PI,I):R(PL,I)│RT▀u°А J│Iл1 е MvR(PL,J)│R(PL,J)м(RTнR(PI,J))
vЛ J,LvЛ I*v Е R(PL,M)│0 з 302600v*Р=v4PL│999:РOv>Е M▓1 з 30290dvHB(1)│X(1)оR(1,1)jvMРxvRА L│2 е MДv\PL│P(L)ФvfА J│1 е Lм1аvpPJ│P(J)╞vzX(PL)│X(PL)м(R(PL,J)нX(PJ)):Л J,L▌vДB(M)│X(PL)оR(PL,M)ЄvОА I│Mм1 е 1 й м1	vШPI│P(I):B(I)│X(PI)vвА J│Iл1 е M:vмB(I)│B(I)м(R(PI,J)нB(J)):Л JTv╢B(I)│B(I)оR(PI,I):Л IZv└Рgv╩М C(M,M)vv╘А II│1 е MПv▐А I│1 е M:X(I)│0:Л IдvшX(II)│1:Бж 30270╞vЄА J│1 е M:C(II,J)│B(J):Л J,II╠v№Р▐цxЮ:Й "FILE";D$ЎцВЙ "READ MULTIPLE";MцМЩ"D",#1,D$,5цС╨ #1, 5  з Z$"цЦRN│1.цаSN│RN:Ю<цкА I│1 е MQц┤─ #1,RN:D│ в(Z$)\ц╛З RN;D{ц╚RN│RNл1:Е RN▓ е(1) з 59140Гц╥Л IНц▄A$│ ТвццЕ A$│"C" з 59040╖цЁЕ A$│"E" з 59190─ц·Бе 59100╬чA$│ ТучЕ A$│"C" з 59180°чЕ A$│"E" з 59190 ч"Бе 59140 ч,Ъ #1:Р 'ч6Ю:З д11) "OPTIONS" Aч@З "1. CHANGE RECORDS" [чJЗ "2. DELETE RECORDS" uчTЗ "3. INSERT RECORDS" Тч^З "4. RETURN TO LISTING" вчhЗ "5. EXIT" мчrA$│ Т ┴ч|Е A$│"1" з 59320 ╓чЖЕ A$│"2" з 59360 ычРЕ A$│"3" з 59410!	чЪЕ A$│"4" з RN│SN:Бе 59040!чдЕ A$│"5" з 59180!+чоБе 59250!Tч╕Ю:Й "ENTER RECORD #,NEW RECORD";RN,D!kч┬╘ Z$│ ж(D):┼ #1,RN!Рч╠╗ Й "MORE CHANGES? YES OR NO";A$!пч╓Е A$│"NO" з 59190 :Д 59320!╤чрЮ: Й "DELETE WHICH RECORD";RN!шчхЕ RN│ е(1) з 59385!¤чъА I│RNл1 е  е(1)"чЇ─ #1,I:┼ #1,Iм1:Л I"5ч∙╘ Z$│ ж(979797):┼ #1,  е(1)"]ч■╗ Й "MORE DELETIONS? YES OR NO"; A$"}шЕ A$│"YES" з 59360 :Д 59190"дшЮ:З "ENTER RECORD NUMBER AT WHICH""╟шЙ "INSERTION IS TO BE MADE";RN"уш&А I│ е(1)л1 е RNл1 й м1"√ш0─ #1,Iм1:┼ #1,I:Л I#ш:Й "RECORD";D##шD╘ Z$│ ж(D):┼ #1,RN#KшN╗ Й "MORE INSERTIONS? YES OR NO";A$#kшXЕ A$│"YES" з 59410 :Д 59190#Ръ`Ю(3):Й "NUMBER OF CROSS TERMS";Q#ЮъeЕ Q│0 з Р#╣ъjМ CT(2нQ):K│KлQ:М O(K)#╫ъoА I│1 е 2нQ й 2:J│(Iл1)о2#эъtЗ "CROSS TERM"; J$ъyЙ "VARIABLE NUMBERS";CT(I),CT(Iл1)$9ъ~З "VARIABLE NUMBER";KлJм1мQ;"IS"$eъГЗ "VAR.";CT(I);"TIMES VAR.";CT(Iл1):Л I$pъИЮ(3):Р$кЎЮ(3): Й "IS THIS RUN FROM A CUSTOM       FILE";VN$(0)$╕ЎМ CP(KмQ)$╓ЎА I│1 е KмQ:CP(I)│Iм1:Л I$ЇЎЕ VN$(0)│"YES" з TZ│KмQ:Р%.ЎЙ "TOTAL NUMBER OF COLUMNS IN THE  AGGREGATE FILE";TZ%>Ў"А I│1 е KмQ%sЎ'З "ENTER FILE COL. NUMBER FOR      VARIABLE  ";I%СЎ,Й CP(I):CP(I)│CP(I)м1:Л I%ЧЎ1Р%иЎJА II│1 е KмQ%╟ЎO─ #1,IлCP(II):O(II)│ в(Z$)%ъЎTCP(0)│O(II):Е O(II)│999999 з Р%єЎ^Л II%¤ЎcN│Nл1&ЎhРEN│Nл1&ЎhРER OF COLUMNS IN THE  AGGREGATE FILE";TZ%MЎ"А I│1 е KмQ%ВЎ'З "ENTER FILE COL. NUMBER FOR      VARIABLE  ";I%аЎ,Й CP(I):CP(I)│CP(I)м1:Л I%жЎ1Р%╖ЎJА II│1 е KмQ%╓ЎO─ #1,IлCP(II):O(II)│ в(Z$)%∙ЎTCP(0)│O(II):Е O(II)│999999 з Р&Ў^Л II&Ўc                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "2Х 600,32760"┤Ю(0)L╛А Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Yw╚А Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Yб╥А X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X╦▄А X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,XщцА I│0 е 8 й 2:А Y│20 е 29!ЁЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)Y·Ь(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)Х
Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)Я
Л Y,I╛
З:З:З "          LIZMULTI"╥
"А T│1 е 500:Л Tу
,З @14,"MENU"
6З "1. COMPUTE PRINCIPAL FACTORS"%
TЗ "D. LIZPACK DIRECTORY"=
YЗ "E. EXIT LIZPACK"G
^A$│ Тi
cЕ A$│"Z" з Х 600,32760:Бе 350}
hЕ A$│"1" Бе 600С
|Е A$│"D" Бе 425е
ЖЕ A$│"E" Бе 410░
РБе 350╔
ЪЮ(3):З "END LIZPACK"╧
дКЇ
йM│ Ж(32767):H$│ И(M):H$│ П(H$,1)

оH$│"LIZPACK/DIR:"лH$
│╙ H$,RHXЩ "D",#1,"CORRMAT/RIX",5:╨ #1, 5  з Z$:RN│1i]Ю:Й "NUMBER OF VARIABLES"; NbМ R(N,N):М P(N,N)ЯdЮ(3):З @232, "LIZMULTI RUN"нgА I│1 е N╗lА J│1 е N▌q─ #1,RN:R(I,J)│ в(Z$):RN│RNл1чvЛ J,Iї{Ъ:Бе 1000/шER│.0005:М V$(N):М NR(N,2):М NP(N,2):M│0:IT│0:М VP(N)KэЮ:Й "NAME OF STUDY"; A$kяЙ "NAME OF INVESTIGATOR";B$ВЄЙ "DATE OF RUN";C$вЇЮ(3):З @232, "LIZMULTI RUN"╤ўЩ "D",#1,"COMPON/PCL",5:╨ #1, 5  з Z$:RN│1▀№А I│1 е N■
─ #1,RN:D│ в(Z$):RN│RNл1лNЕ D▓1 з M│Mл1Л IdЮ:З "DO YOU WISH TO ENTER THE NO. ":╗ Й "OF FACTORS TO BE USED? Y/N";A$x
Е A$│"N" з 1040СЙ "NO. OF FACTORS";M▒Ю(3):З @232, "LIZMULTI RUN"╤М F(N,M):RN│1:М G(N,N),Q(N)▀А J│1 е MыRN│RNл1∙А I│1 е N─ #1,RN:F(I,J)│ в(Z$):RN│RNл1%$Л I,J4&RN│NнNлNл1B)А I│1 е N_.─ #1,RN:V$(I)│Z$:RN│RNл1g3Л Im8Ъy=IT│ITл1ЪBЮ(3):З @232, "ITERATION ";ITиGА I│1 е N╢LNR(I,0)│0─QА J│1 е MцVNR(I,0)│NR(I,0)лF(I,J)нF(I,J)ю[Л J`R(I,I)│NR(I,0):Л IeБж 29900jБж 31200,kБж 242004lD│0BoА I│1 е NPtNP(I,0)│0^yА J│1 е Mk{PJ│VP(J)П~NP(I,0)│NP(I,0)лG(I,PJ)нG(I,PJ)ЧГЛ J─ИQ(I)│NP(I,0):NP(I,0)│ В(NP(I,0)мNR(I,0))╪НЕ Q(I)▓1 з 1400ЇТЕ NP(I,0)▓D з D│NP(I,0)№ЧЛ I
ЬА I│1 е NЮNR(I,0)│Q(I)GбА J│1 е M:PJ│VP(J):F(I,J)│G(I,PJ):Л J,IYжЕ D┤ER з 1400ЙлЩ "D",#1,"CORRMAT/RIX",5:╨ #1, 5  з Z$:RN│1Ч░А I│1 е Nе╡А J│1 е N╦║─ #1,RN:R(I,J)│ в(Z$):RN│RNл1:Л Jт┐R(I,I)│NR(I,0):Л Iш┴Ъ─IT│ITл1:З @232, "ITERATION ";IT╔Е IT▓25 з 1400+╙Бе 1125KxЮ(3):З @232, "LIZMULTI RUN"iВЗ #м2,"NAME OF STUDY ";A$ОМЗ #м2,"NAME OF INVESTIGATOR ";B$кЦЗ #м2,"DATE OF RUN ";C$╝аH$│ б(132,45)ткЗ #м2, Л( Ж(32765)); Л( Ж(32766))┤З #м2, "VARIABLES":З #м2, H$╛RN│0╚А I│1 е N1╥З #м2, дRN) V$(I);N▄RN│RNл7:Е RN┤│119 з 1520`цRN│0:З #м2,""hЁЛ IЛ·З #м2,"":З #м2,H$:З #м2, Л(10)Ш6Бж 20000е@Бж 26000▓JБж 22000┐TБж 24000╠^Ю:Бе 300	N З #м2,"CONTRIBUTION TO VARIANCE (EIGENVALUE), BY FACTOR"!N%З #м2, H$:RN│0:SN│5/N*А I│1 е M<N,PI│VP(I)bN/З #м2, дRN) "PF";I;дSN) R(PI,PI);xN4RN│RNл20:SN│SNл20ОN9Е RN┤│100 з 20035еN>RN│0:SN│5:З #м2,""нNCЛ I╨NHЗ #м2,"":З #м2,H$:З #м2, Л(10)╓NMРUЁЗ #м2, "EIGENVECTORS (COLUMNS OF TRANSFORM MATRIX)"UїЗ #м2,H$)U·А J│1 е NJU RN│0:З #м2, "EIGENVECTOR ";JXVА I│1 е NpV	З #м2, дRN) P(I,J);ПVRN│RNл16:Е RN┤│112 з 22040бVRN│0:З #м2,""йVЛ I║VЗ #м2,"":Л J▌VЗ #м2,"":З #м2,H$:З #м2, Л(10)уV"Ры]└A│0<]┼З #м2, "COEFFICIENTS OF PRINCIPAL FACTORS (FACTOR PATTERN MATRIX)":З #м2, H$k]╩Щ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1y]╧А I│1 е MР]╘SN│0:TN│5:PI│VP(I)╢]▐╘ Z$│ ж(R(PI,PI)):┼ #1,RN:RN│RNл1Ї]рЗ #м2,"PRINCIPAL FACTOR NUMBER ";I;" EIGENVALUE";R(PI,PI)]уА J│1 е N&]ш╘ Z$│ ж(F(J,I)):┼ #1,RN:RN│RNл1H]эЗ #м2,дSN) V$(J);дTN) F(J,I);^]ЄSN│SNл20:RN│RNл20t]ўЕ SN┤│100 з 24065Л]№SN│0:TN│5:З #м2,""У^
Л Jд^З #м2,"":Л I╟^З #м2,"":З #м2,H$:З #м2, Л(10)Ї^А I│1 е N:╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I^╘ Z$│ ж(M):┼ #1,RN^Ъ:Р ^ИБе 24205:^НА I│1 е N:VP(I)│I:Л IH^ТА I│1 е Na^ЧPI│VP(I):MP│R(PI,PI)o^ЬА J│I е NУ^бPJ│VP(J):Е R(PJ,PJ)┤│MP з 24235┐^жMP│R(PJ,PJ):Q│VP(I):VP(I)│VP(J):VP(J)│Q╔^лЛ J,I╧^░РсeРD│0:RN│0:SN│5яeХА I│1 е M№eЧPI│VP(I)eЪD│DлR(PI,PI):Л I:eЯЗ #м2, "PCT CONTRIBUTION, BY FACTOR"HeдЗ #м2, H$VeйА I│1 е MceлPI│VP(I)|eоA│R(PI,PI)оD:A│Aн100Оe│Е A┤.01 з A│0мe╕A│100нA:B│ Б(A):C│Aм Б(A)╟e╜Е C▓│.5 з A│Bл1 :Д A│B╙e┬A│Aо100ёe╟З #м2, дRN)"PF";I;дSN) A;e╠RN│RNл12:SN│SNл12e╤Е RN┤│120 з 260754e╓RN│0:SN│5:З #м2,""<e█Л I`eрЗ #м2,"":З #м2,H$;:З #м2, Л(10)ЭeхЗ #м2, "CONTRIBUTION TO VARIANCE, BY VARIABLE":З #м2, H$лeъSN│5:RN│0╣eяА I│1 е N┴eЇA│0╧e∙А J│1 е Mщe■A│AлF(I,J)нF(I,J):Л J fЗ #м2, дRN) V$(I);дSN) A; fRN│RNл20:SN│SNл20 3f
Е RN┤│100 з 26135 JfRN│0:SN│5:З #м2,"" RfЛ I hfЗ #м2,"":З #м2,H$ Ыf!З #м2,"TOTAL VARIANCE";D:З #м2,H$:З #м2, Л(10) бf&Р пt╠А I│1 е N ╜t╓А J│1 е N ╬tрP(I,J)│0:Л J █tхP(I,I)│1 ьtъP(I,I)│1:Л I ¤yD│ В(R(1,2))!yPI│1:PJ│2!yА I│1 е Nм1!+y"А J│Iл1 е N!Vy'Е  В(R(I,J))▓D з D│ В(R(I,J)) :Д 31025!dy,PI│I:PJ│J!ny1Л J,I!}y6Е D┤ER з Р!Кy;Бж 31100!▓y=ZA│R(PI,PJ):ZB│R(PI,PI):ZC│R(PJ,PJ)!└y@А I│1 е N!ЄyENR(I,1)│CTнR(I,PI)мSTнR(I,PJ):R(PI,I)│R(I,PI)"yGNP(I,1)│P(I,PI)нCTмP(I,PJ)нST"FyJNR(I,2)│STнR(I,PI)лCTнR(I,PJ):R(PJ,I)│R(I,PJ)"hyLNP(I,2)│P(I,PI)нSTлP(I,PJ)нCT"pyOЛ I"~yPА I│1 е N"┬yQR(I,PI)│NR(I,1):R(I,PJ)│NR(I,2):P(I,PI)│NP(I,1):P(I,PJ)│NP(I,2)"ъyRR(PI,I)│NR(I,1):R(PJ,I)│NR(I,2):Л I#yTR(PI,PI)│ZBнCTнCTлZCнSTнSTм2нZAнSTнCT#>yYR(PJ,PJ)│ZBнSTнSTлZCнCTнCTл2нZAнSTнCT#Xy^R(PI,PJ)│0:R(PJ,PI)│0#eycБе 31000#Фy|Е  В(R(PI,PI)мR(PJ,PJ))┤│.00000001 з 31125#┴yБD│2нR(PI,PJ)о(R(PJ,PJ)мR(PI,PI)):E│ А(D)#юyЖA│2н В(R(PI,PJ)):B│ В(R(PI,PI)мR(PJ,PJ))$yЛD│ Ы((AнA)л(BнB)):CT│1л(BоD):CT│.5нCT$~yРЕ  В(CT)┤│.00000001 з CT│0 :Д CT│ Ы(CT):ST│1м(CTнCT):Е  В(ST)┤│.00000001 з ST│0 :Д  ST│Eн Ы(ST):Р$ЦyХCT│.5н Ы(2):ST│CT:Р$дyрА I│1 е N$╗yхЕ R(I,I)┤0 з 31230$╔yъА J│1 е N$цyяG(J,I)│P(J,I)н Ы(R(I,I))$юyЇЛ J$ЎyЎЛ I$№y∙Р%y■FG│999:Бе 31222;" DF";K$;" SS";L$;" MSS";M$;" F RATIO"-ї+З #м2,H$."-З #м2 #&Х 200,31699&(Т 150,41&6<З #м2, Л(27); Л(52)&?dЮ(0)&inА Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&ФxА Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&╛ВА X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&шМА X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X'ЦА I│0 е 8 й 2:А Y│20 е 29'>аЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'vкЬ(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'▓┤Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'╝╛Л Y,I'█╚З:З:З "           LIZPOLY"'я╥А T│1 е 500:Л T(ЁЮ:З @13, "MENU":З:З($·З "1. CREATE DATA FILES"(?
З "2. EDIT DATA FILES"(`
З "3. POLYNOMIAL REGRESSION"(w
З "4. SCREEN DUMP"(П
З "E. END THIS RUN"(Щ
"A$│ Т(м
,Е A$│"1" з 370(┐
6Е A$│"2" з 480(╙
@Е A$│"3" з 1005(ш
EЕ A$│"4" з 60000(√
JЕ A$│"E" з 350)
TБ е 290)'
^Ю(8): З @ 10, "END LIZPOLY")-
hК)N
rЮ(3):╗ Й "NAME OF FILE?"; A$)d
|Е A$│"NONE" з 240)w
ЖЩ "D",#1,A$,12)Д
РN│0:Ю(4))О
ЪN│Nл1)╨
дЗ "ENTER RECORD; WHEN FINISHED TYPE 0909; RECORD NUMBER IS";N)╪
оЙ Q)ы
╕Е Q│0909 з 470)Ў
┬┘ #1,Q*
╠┼ #1,N:Бе 410*
╓Ъ #1: Бе 370*:
рЮ(3):╗ Й "NAME OF FILE?"; A$*P
ъЕ A$│"NONE" з 240*c
ЇЩ "D",#1,A$,12*м
■Й "ENTER RECORD NUMBER, NEW RECORD; WHEN FINISHED, TYPE 0909,0"; Q,R*┐Е Q│0909 з 550*╩┘ #1,R*▌┼ #1,Q: Бе 510*э&Ъ #1:Бе 480+эЮ(3):╗ Й "NAME OF STUDY";BA$+0Є╗ Й "NAME OF INVESTIGATOR";B$+Iў╗ Й "DATE OF RUN";C$+h№Й "DEGREE OF POLYNOMIAL";K+Ы■M│K:K│Kл1:М X(M):М B(M):М C(M,M):М P(M):М D(M)+и
Бе 20000+╢А I│1 е M+╞А J│1 е Iм1+▐R(I,J)│R(J,I):Л J,I+ыБж 29999+°$Бж 30410,&А I│1 е M:X(I)│R(I,K):Л I,#)Бж 30270,J.SS│PR(K,K)нPR(K,K):YI│R(0,K):SE│SS,X3А I│1 е M,p8YI│YIм(B(I)нR(0,I)),Н:SE│SEм(PR(I,K)нB(I)):Л I,╣=SR│SSмSE:ME│SEо(NмMм1):MR│SRоM:FR│MRоME,═>B(0)│YI:Бж 9290,тBЕ M┤Kм1 Б е 1110-HЗ #м2,"NAME OF STUDY: ";BA$-)LЗ #м2, "NAME OF INVESTIGATOR: ";B$-GQЗ #м2, "DATE OF RUN: ";C$-UVH$│ Л(10)-f[З #м2, H$,H$-д`З #м2, "ANOVA TABLE FOR POLYNOMIAL REGRESSION, DEGREE ";M-└eH$│ Л(28)л Л(80)л Л(45)-╒jI$│ Л(27)л Л(16)-эoJ$│I$л Л(0)л Л(120).tK$│I$л Л(0)л Л(210).yL$│I$л Л(1)л Л(44).4~M$│I$л Л(1)л Л(134).AГЗ #м2,H$.zИЗ #м2,"SOURCE";J$;"DF";K$;"SS";L$;"MSS";M$;"F RATIO".ЗНЗ #м2,H$.╡ТЗ #м2,"REGRESSION";J$;M;K$;SR;L$;MR;M$;FR.▄РЗ #м2,"ERROR";J$;NмMм1;K$;SE;L$;ME.щХЗ #м2,H$/ЪЗ #м2,"TOTAL";J$;Nм1;K$;SS/ЯЗ #м2,H$/-дЗ #м2, Л(10); Л(10)/xЗ #м2,I$; Л(0); Л(144); Л(15);"PARTIAL REGRESSION COEFFICIENTS"; Л(14)/Р
З #м2, Л(10), Л(10)/иJ$│I$л Л(0)л Л(156)/╛K$│I$л Л(1)л Л(8)/╒L$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)оZ0Ь?З #м2,I;M$;B(I);J$;Z;K$;NмMм1;L$;Q0дDЛ I0▒HЗ #м2,H$0┐IA$│ Л(10)0$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)оZ0Ь?З #м2,I;M$;B(I);J$;Z;K$;NмMм1;L$;Q0дDЛ I0▒HЗ #м2,H$0┐                                                                                                                                                                                                                                                                 &╧&2Х 600,32760&┤Ю(0)&D╛А Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&o╚А Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&Щ╥А X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&├▄А X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X&сцА I│0 е 8 й 2:А Y│20 е 29'ЁЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'Q·Ь(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'Н
Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'Ч
Л Y,I'╢
З:З:З "          LIZMULTI"'╩
"А T│1 е 500:Л T'█
,З @14,"MENU"' 
6З "1. FACTOR MATRIX-USER INPUT"(
@З "2. ROTATION OF AXES"(@
JЗ "3. ROTATION-PRINCIPAL COMPS."(W
QЗ "G. DRAW GRAPHS"(t
TЗ "D. LIZPACK DIRECTORY"(М
YЗ "E. EXIT LIZPACK"(Ц
^A$│ Т(к
hЕ A$│"1" Бе 500(╛
rЕ A$│"2" Бе 600(╥
|Е A$│"D" Бе 425(ц
~Е A$│"G" з 8000(√
БЕ A$│"3" Бе 700 )
ЖЕ A$│"E" Бе 410)1
ЛЕ A$│"Z" з Х 600,32760:Бе 350)<
РБе 350)U
ЪЮ(3):З "END LIZPACK")[
дК)А
йM│ Ж(32767):H$│ И(M):H$│ П(H$,1))Щ
оH$│"LIZPACK/DIR:"лH$)д
│╙ H$,R)╙
ЇЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1)Ї
∙Ю:Й "NUMBER OF VARIABLES"; N*
■Й "NUMBER OF FACTORS"; M*&М F(N,M):М V$(N)*4А J│1 е M*@
RN│RNл1*NА I│1 е N*rЗ "FACTOR ";J;" COEFFICIENT ";I*мЙ "DATA";F(I,J):╘ Z$│ ж(F(I,J)):┼ #1,RN:RN│RNл1:Л I,J*╟!Ю:З "NAMING VARIABLES"*╒&А I│1 е N*√+З "VARIABLE ";I:╗ Й "NAME ";V$(I)+0╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I+55╘ Z$│ ж(M):┼ #1,RN+C:Ъ:Бе 1000+rXЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1+У]Ю:Й "NUMBER OF VARIABLES"; N+╝b─ #1, е(1):M│ в(Z$):М F(N,M):М V$(N)+╩gА J│1 е M+╓lRN│RNл1+фqА I│1 е N,v─ #1,RN:F(I,J)│ в(Z$):RN│RNл1:Л I,J,{А I│1 е N,;А─ #1,RN:V$(I)│Z$:RN│RNл1:Л I,IЕЪ:Бе 1000,i╝Ю(3):З @232, "LIZMULTI RUN",Ш└Щ "D",#1,"COMPON/PCL",5:╨ #1, 5  з Z$:RN│1,▒┬─ #1,  е(1):N│ в(Z$),┐─А I│1 е N,▐╚─ #1,RN:D│ в(Z$):RN│RNл1лN,Ё╠Е D▓1 з M│Mл1,°╨Л I-D╤Ю:З "DO YOU WISH TO SPECIFY THE": Й "NO. OF FACTORS TO BE USED? Y/N";A$-W╥Е A$│"N" з 724-p╙Й "NO. OF FACTORS";M-К╘М F(N,M):RN│1:М V$(N)-к╓Ю(3):З @232, "LIZMULTI RUN"-╕╪А J│1 е M-─▄RN│RNл1-╥рА I│1 е N-Їф─ #1,RN:F(I,J)│ в(Z$):RN│RNл1-■шЛ I,J.
ьRN│NнNлNл1.ЁА I│1 е N.8Ї─ #1,RN:V$(I)│Z$:RN│RNл1.@°Л I.F№Ъ.}шER│.0005:М NR(N,2):М NP(N,3):IT│1:М VP(N):М P(M,M).ЩэЮ:Й "NAME OF STUDY"; A$.╣яЙ "NAME OF INVESTIGATOR";B$.╨ЄЙ "DATE OF RUN";C$.ЁЇЮ(3):З @232, "LIZMULTI RUN".¤ўБж 32000/
∙Бж 29900/№А P│1 е Mм1/+
А Q│Pл1  е M/GЗ @232, "ROTATION "; IT/\З @264, "Q= ";QQ/iБж 32100/vБж 31000/АQ1│QQ/НБж 32000/зЕ  В(Q1мQQ)┤ER з 1400/│!IT│ITл1/╜$Л Q,P/╔)Бе 1020/щxЮ(3):З @232, "LIZMULTI RUN"0ВЗ #м2,"NAME OF STUDY ";A$0,МЗ #м2,"NAME OF INVESTIGATOR ";B$0HЦЗ #м2,"DATE OF RUN ";C$0ZаH$│ б(132,45)0АкЗ #м2, Л( Ж(32765)); Л( Ж(32766))0б┤З #м2, "VARIABLES":З #м2, H$0к╛RN│00╕╚А I│1 е N0╧╥З #м2, дRN) V$(I);0ь▄RN│RNл7:Е RN┤│119 з 15200■цRN│0:З #м2,""1ЁЛ I1)·З #м2,"":З #м2,H$:З #м2, Л(10)16TБж 240001CYБж 200001P^Ю:Бе 3001a@А P1│1 е Mм11sEА Q1│P1л1 е M1ПFЮ:З "HORIZ. FACTOR ";P11лHЗ "VERTICAL FACTOR ";Q11█JLX│F(1,P1):UX│F(1,P1):LY│F(1,Q1):UY│F(1,Q1)1щOА I│2 е N2TЕ F(I,P1)┤LX з LX│F(I,P1)2%VЕ F(I,P1)▓UX з UX│F(I,P1)2CXЕ F(I,Q1)┤LY з LY│F(I,Q1)2aZЕ F(I,Q1)▓UY з UY│F(I,Q1)2i[Л I2u\Бж 89902Г^А I│1 е N2еcGX│F(I,P1):GY│F(I,Q1):Бж 92602нhЛ I2╖mA$│ Т2╦rЕ A$┤▓"" з 80602╫wБе 80452у|Л Q1,P12ЁБЮ:Бе 3003	#Е LX▓0 з U│0 :Д U│LX3"#(Е UX┤0 з V│0 :Д V│UX3=#2XH│245о(VмU):XK│5мXHнU3V#<Е LY▓0 з S│0 :Д S│LY3o#FЕ UY┤0 з T│0 :Д T│UY3М#PXL│182о(SмT):XM│5м(XLнT)3Ю#Z╚ 4,1:╝:┐ 1,13╡#d╗(XK,0)м(XK,192),╜3╪#n╗(XK,0)м(XKм2.82843,2.82843),╜3№#x╗ (XK,0)м(XKл2.82843,2.82843),╜4#В╗(0,XM)м(255,XM),╜4:#М╗(256,XM)м(253.17157,XMл2.82843),╜4a#Ц╗(256,XM)м(253.17157,XMм2.82843),╜4}#аSX│(VмU)о28:SY│(TмS)о184М#кА Q│1 е 184м#┤GY│XLнQнSYлXM:Е GY┤5 з 91604└#╣Е GY▓187 з 91604█#╛╗(XKм3,GY)м(XKл3,GY),╜4■#╚GY│мXLнQнSYлXM:Е GY▓187 з 91805#═Е GY┤5  з 91805,#╥╗(XKм3,GY)м(XKл3,GY),╜54#▄Л Q5C#цА Q│1 е 285e#ЁGX│XHнQнSXлXK:Е GX▓251 з 92205w#їЕ GX┤5 з 92205Т#·╗(GX,XMм3)м(GX,XMл3),╜5│$GX│мXHнQнSXлXK:Е GX┤5 з 92405╟$	Е GX▓251 з 92405т$╗(GX,XMм3)м(GX,XMл3),╜5ъ$Л Q5Ё$"Р6$,╚ 4,1:┐ 1,16$6╜(XHнGXлXK,XLнGYлXM)6$@Р6-N А J│1 е M6;N*NR(J,0)│06IN4А I│1 е N6kN>NR(J,0)│NR(J,0)лF(I,J)нF(I,J)6uNHЛ I,J6дNRЗ #м2,"CONTRIBUTION TO VARIANCE BY FACTOR"6╝N\З #м2, H$:RN│0:SN│56╩NfА I│1 е M6яNpЗ #м2, дRN) "PF";I;дSN) NR(I,0);7NzRN│RNл20:SN│SNл207NДЕ RN┤│100 з 2012072NОRN│0:SN│5:З #м2,""7:NШЛ I7]NвЗ #м2,"":З #м2,H$:З #м2, Л(10)7eNмD│07ГN╢А I│1 е M:D│DлNR(I,0):Л I7мN└З #м2, "PCT CONTRIBUTION, BY FACTOR"7─N╩З #м2, H$:RN│0:SN│57╥N╘А I│1 е M7ъN▐A│NR(I,0)оD:A│Aн1007№NшЕ A┤.01 з A│08NЄA│100нA:B│ Б(A):C│Aм Б(A)85N№Е C▓│.5 з A│Bл1 :Д A│B8AOA│Aо1008_OЗ #м2, дRN)"PF";I;дSN) A;8uORN│RNл12:SN│SNл128ЛO$Е RN┤│120 з 202808вO.RN│0:SN│5:З #м2,""8кO8Л I8╬OBЗ #м2,"":З #м2,H$;:З #м2, Л(10)9OLЗ #м2, "CONTRIBUTION TO VARIANCE, BY VARIABLE":З #м2, H$9OVSN│5:RN│09'O`А I│1 е N9/OjA│09=OtА J│1 е M9WO~A│AлF(I,J)нF(I,J):Л J9uOИЗ #м2, дRN) V$(I);дSN) A;9ЛOТRN│RNл20:SN│SNл209бOЬЕ RN┤│100 з 204009╕OжRN│0:SN│5:З #м2,""9└O░Л I9╓O║З #м2,"":З #м2,H$:	O─З #м2,"TOTAL VARIANCE";D:З #м2,H$:З #м2, Л(10):O╬Р:]└A│0:h]┼З #м2, "COEFFICIENTS OF PRINCIPAL FACTORS (FACTOR PATTERN MATRIX)":З #м2, H$:Ч]╩Щ "D",#1,"COMPON/ROT",5:╨ #1, 5  з Z$:RN│1:е]╧А I│1 е M:│]╘SN│0:TN│5:┌]рЗ #м2,"PRINCIPAL FACTOR NUMBER ";I:ш]уА J│1 е N;]ш╘ Z$│ ж(F(J,I)):┼ #1,RN:RN│RNл1;.]эЗ #м2,дSN) V$(J);дTN) F(J,I);;D]ЄSN│SNл20:TN│TNл20;Z]ўЕ SN┤│100 з 24065;q]№SN│0:TN│5:З #м2,"";y^
Л J;К^З #м2,"":Л I;н^З #м2,"":З #м2,H$:З #м2, Л(10);┌^А I│1 е N:╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I;ё^╘ Z$│ ж(M):┼ #1,RN;ў^Ъ< ^З #м2, "COLUMNS OF TRANSFORM MATRIX"<-^З #м2,H$<;^$А J│1 е M<W^.RN│0:З #м2, "COLUMN ";J<e^8А I│1 е M<}^BЗ #м2, дRN) P(I,J);<Ь^LRN│RNл16:Е RN┤│112 з 24160<о^VRN│0:З #м2,""<╢^`Л I<╟^jЗ #м2,"":Л J<ъ^tЗ #м2,"":З #м2,H$:З #м2, Л(10)<Ё^~Р<■t╠А I│1 е M=t╤А J│1 е M=t╓P(I,J)│0=!t█Л J=.tрP(I,I)│1=6tхЛ I=<tъР=JyА I│1 е N=jyNR(I,1)│CTнF(I,P)лSTнF(I,Q)=Лy"NR(I,2)│мSTнF(I,P)лCTнF(I,Q)=Уy'Л I=бy,А I│1 е N=╟y1F(I,P)│NR(I,1):F(I,Q)│NR(I,2):Л I=╒y6А I│1 е M=їy;NP(I,1)│CTнP(I,P)лSTнP(I,Q)>y@NP(I,2)│мSTнP(I,P)лCTнP(I,Q)>yEЛ I>,yJА I│1 е M>NyOP(I,P)│NP(I,1):P(I,Q)│NP(I,2)>VyTЛ I>\yYР>j}QQ│0:QW│0>x}А J│1 е M>Б}QV│0>П}А I│1 е N>к}A│F(I,J):A│AнA:QV│QVлA>╝}QQ│QQлAнA:Л I>╨}QW│QWлQVнQV:Л J>х}QQ│NнQQ:QQ│QQмQW>ы} Р?}dA│0:B│0:C│0:D│0:Бж 32500?}fА I│1 е N?,}hЕ NP(I,3)│0 з Л I?^}lNR(I,1)│F(I,P)оNP(I,3):NR(I,2)│F(I,Q)оNP(I,3)?К}pNP(I,1)│NR(I,1)нNR(I,1)мNR(I,2)нNR(I,2)?и}tNP(I,2)│2нNR(I,1)нNR(I,2)?─}xA│AлNP(I,1):B│BлNP(I,2)?ь}|C│CлNP(I,1)нNP(I,1)мNP(I,2)нNP(I,2)@}АD│DлNP(I,1)нNP(I,2):Л I@ }ДD│2нD:V│Dм(2нAнB)оN@4}ИD│Cм(AнAмBнB)оN@B}ЫA│ Ф(VоD)@T}аЕ V▓0 з 32200@f}еЕ V┤0 з 32220@x}кЕ V│0 з 32230@К}╚Е D▓0 з 32210@Э}╩A│3.14159266лA@╖}╠CT│ Х(Aо4):ST│ Е(Aо4)@╜}╬Р@╫}╥CT│ Х(Aо4):ST│ Е(Aо4)@▌}╘Р@я}▄Е D▓0 з 32226A}▐A│м(3.14159266мA)A}рCT│ Х(Aо4):ST│ Е(Aо4)A%}сРA?}тCT│ Х(Aо4):ST│ Е(Aо4)AE}фРAU}цCT│1:ST│0:РAc~ЇА I│1 е NAq~∙NP(I,3)│0A~■А J│1 е MAбNP(I,3)│NP(I,3)лF(I,J)нF(I,J)AйЛ JA┼
NP(I,3)│ Ы(NP(I,3)):Л IA╦Р;" DF";K$;" SS";L$;" MSS";M$;" F RATIO"-ї+З #м2,H$."-З #м2 #&Х 200,31699&(Т 150,41&6<З #м2, Л(27); Л(52)&?dЮ(0)&inА Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Y&ФxА Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Y&╛ВА X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X&шМА X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,X'ЦА I│0 е 8 й 2:А Y│20 е 29'>аЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)'vкЬ(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)'▓┤Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)'╝╛Л Y,I'█╚З:З:З "           LIZPOLY"'я╥А T│1 е 500:Л T(ЁЮ:З @13, "MENU":З:З($·З "1. CREATE DATA FILES"(?
З "2. EDIT DATA FILES"(`
З "3. POLYNOMIAL REGRESSION"(w
З "4. SCREEN DUMP"(П
З "E. END THIS RUN"(Щ
"A$│ Т(м
,Е A$│"1" з 370(┐
6Е A$│"2" з 480(╙
@Е A$│"3" з 1005(ш
EЕ A$│"4" з 60000(√
JЕ A$│"E" з 350)
TБ е 290)'
^Ю(8): З @ 10, "END LIZPOLY")-
hК)N
rЮ(3):╗ Й "NAME OF FILE?"; A$)d
|Е A$│"NONE" з 240)w
ЖЩ "D",#1,A$,12)Д
РN│0:Ю(4))О
ЪN│Nл1)╨
дЗ "ENTER RECORD; WHEN FINISHED TYPE 0909; RECORD NUMBER IS";N)╪
оЙ Q)ы
╕Е Q│0909 з 470)Ў
┬┘ #1,Q*
╠┼ #1,N:Бе 410*
╓Ъ #1: Бе 370*:
рЮ(3):╗ Й "NAME OF FILE?"; A$*P
ъЕ A$│"NONE" з 240*c
ЇЩ "D",#1,A$,12*м
■Й "ENTER RECORD NUMBER, NEW RECORD; WHEN FINISHED, TYPE 0909,0"; Q,R*┐Е Q│0909 з 550*╩┘ #1,R*▌┼ #1,Q: Бе 510*э&Ъ #1:Бе 480+эЮ(3):╗ Й "NAME OF STUDY";BA$+0Є╗ Й "NAME OF INVESTIGATOR";B$+Iў╗ Й "DATE OF RUN";C$+h№Й "DEGREE OF POLYNOMIAL";K+Ы■M│K:K│Kл1:М X(M):М B(M):М C(M,M):М P(M):М D(M)+и
Бе 20000+╢А I│1 е M+╞А J│1 е Iм1+▐R(I,J)│R(J,I):Л J,I+ыБж 29999+°$Бж 30410,&А I│1 е M:X(I)│R(I,K):Л I,#)Бж 30270,J.SS│PR(K,K)нPR(K,K):YI│R(0,K):SE│SS,X3А I│1 е M,p8YI│YIм(B(I)нR(0,I)),Н:SE│SEм(PR(I,K)нB(I)):Л I,╣=SR│SSмSE:ME│SEо(NмMм1):MR│SRоM:FR│MRоME,═>B(0)│YI:Бж 9290,тBЕ M┤Kм1 Б е 1110-HЗ #м2,"NAME OF STUDY: ";BA$-)LЗ #м2, "NAME OF INVESTIGATOR: ";B$-GQЗ #м2, "DATE OF RUN: ";C$-UVH$│ Л(10)-f[З #м2, H$,H$-д`З #м2, "ANOVA TABLE FOR POLYNOMIAL REGRESSION, DEGREE ";M-└eH$│ Л(28)л Л(80)л Л(45)-╒jI$│ Л(27)л Л(16)-эoJ$│I$л Л(0)л Л(120).tK$│I$л Л(0)л Л(210).yL$│I$л Л(1)л Л(44).4~M$│I$л Л(1)л Л(134).AГЗ #м2,H$.zИЗ #м2,"SOURCE";J$;"DF";K$;"SS";L$;"MSS";M$;"F RATIO".ЗНЗ #м2,H$.╡ТЗ #м2,"REGRESSION";J$;M;K$;SR;L$;MR;M$;FR.▄РЗ #м2,"ERROR";J$;NмMм1;K$;SE;L$;ME.щХЗ #м2,H$/ЪЗ #м2,"TOTAL";J$;Nм1;K$;SS/ЯЗ #м2,H$/-дЗ #м2, Л(10); Л(10)/xЗ #м2,I$; Л(0); Л(144); Л(15);"PARTIAL REGRESSION COEFFICIENTS"; Л(14)/Р
З #м2, Л(10), Л(10)/иJ$│I$л Л(0)л Л(156)/╛K$│I$л Л(1)л Л(8)/╒L$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З #м2,"TERM";M$;"COEFFICIENT, B";J$;"STD ERROR";K$;"DF";L$;"T (FOR B=0)"0F+З #м2,H$0T0А I│1 е M0u5Z│C(I,I)нME:Z│ Ы(Z):Q│B(I)оZ0Ь?З #м2,I;M$;B(I);J$;Z;K$;NмMм1;L$;Q0дDЛ I0▒HЗ #м2,H$0┐IA$│ Л(10)0$│I$л Л(1)л Л(84)/ь!M$│I$л Л(0)л Л(48)09&З                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  q2Х 600,32760"┤Ю(0)L╛А Y│18 е 31:А X│0 е 1: Ь(X,Y,5):Л X,Yw╚А Y│18 е 31:А X│62 е 63:Ь(X,Y,5):Л X,Yб╥А X│2 е 61:А Y│18 е 19:Ь(X,Y,5):Л Y,X╦▄А X│2 е 61:А Y│30 е 31:Ь(X,Y,5):Л Y,XщцА I│0 е 8 й 2:А Y│20 е 29!ЁЬ(2л6нI,Y,3):Ь(3л6нI,Y,3):Ь(6л6нI,Y,7):Ь(7л6нI,Y,7)Y·Ь(4л6нI,Y,2):Ь(5л6нI,Y,2):Ь(8л6нI,Y,8):Ь(9л6нI,Y,8)Х
Ь(10л6нI,Y,6):Ь(11л6нI,Y,6):Ь(12л6нI,Y,4):Ь(13л6нI,Y,4)Я
Л Y,I╛
З:З:З "          LIZMULTI"╥
"А T│1 е 500:Л Tу
,З @14,"MENU"
6З "1. FACTOR MATRIX-USER INPUT"#
@З "2. ROTATION OF AXES"H
JЗ "3. ROTATION-PRINCIPAL COMPS."e
TЗ "D. LIZPACK DIRECTORY"}
YЗ "E. EXIT LIZPACK"З
^A$│ Тй
cЕ A$│"Z" з Х 600,32760:Бе 350╜
hЕ A$│"1" Бе 500╤
rЕ A$│"2" Бе 600х
|Е A$│"D" Бе 425·
БЕ A$│"3" Бе 700 
ЖЕ A$│"E" Бе 410
РБе 3502
ЪЮ(3):З "END LIZPACK"8
дК]
йM│ Ж(32767):H$│ И(M):H$│ П(H$,1)v
оH$│"LIZPACK/DIR:"лH$Б
│╙ H$,R░
ЇЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1╤
∙Ю:Й "NUMBER OF VARIABLES"; Nю
■Й "NUMBER OF FACTORS"; MМ F(N,M):М V$(N)А J│1 е M
RN│RNл1+А I│1 е NOЗ "FACTOR ";J;" COEFFICIENT ";IЙЙ "DATA";F(I,J):╘ Z$│ ж(F(I,J)):┼ #1,RN:RN│RNл1:Л I,Jд!Ю:З "NAMING VARIABLES"▓&А I│1 е N╪+З "VARIABLE ";I:╗ Й "NAME ";V$(I)√0╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I5╘ Z$│ ж(M):┼ #1,RN :Ъ:Бе 1000OXЩ "D",#1,"COMPON/PCA",5:╨ #1, 5  з Z$:RN│1p]Ю:Й "NUMBER OF VARIABLES"; NЩb─ #1, е(1):M│ в(Z$):М F(N,M):М V$(N)зgА J│1 е M│lRN│RNл1┴qА I│1 е Nщv─ #1,RN:F(I,J)│ в(Z$):RN│RNл1:Л I,Jў{А I│1 е NА─ #1,RN:V$(I)│Z$:RN│RNл1:Л I&ЕЪ:Бе 1000F╝Ю(3):З @232, "LIZMULTI RUN"u└Щ "D",#1,"COMPON/PCL",5:╨ #1, 5  з Z$:RN│1О┬─ #1,  е(1):N│ в(Z$)Ь─А I│1 е N╗╚─ #1,RN:D│ в(Z$):RN│RNл1лN═╠Е D▓1 з M│Mл1╒╨Л I&╤Ю(3):З "DO YOU WISH TO SPECIFY THE":╗ Й "NO. OF FACTORS TO BE USED? Y/N ";A$9╥Е A$│"N" з 724R╙Й "NO. OF FACTORS";Ml╘М F(N,M):RN│1:М V$(N)М╓Ю(3):З @232, "LIZMULTI RUN"Ъ╪А J│1 е Mж▄RN│RNл1┤рА I│1 е N╓ф─ #1,RN:F(I,J)│ в(Z$):RN│RNл1ршЛ I,JяьRN│NнNлNл1¤ЁА I│1 е NЇ─ #1,RN:V$(I)│Z$:RN│RNл1"°Л I(№ЪaшМ R(M,M):М NP(N,4): М P(M,M):М C(N,N):ER│.00001:IT│1БэЮ(3):Й "NAME OF STUDY "; A$вяЙ "NAME OF INVESTIGATOR ";B$║ЄЙ "DATE OF RUN ";C$чєЙ "DO YOU WISH TO ENTER GAMMA       ";D$ЇЕ D$│"YES" з 4000 :Д PH│0$їЮ(3):З @232,"LIZMULTI RUN"1ЎБж 29900>ўБж 30900[°QZ│QQ:Е  В(QZ)▓50 з QZ│1i∙А P│1 е Mw№А Q│1 е MИ■Е Q│P з 1060дЗ @232, "ROTATION "; IT╣З @264, "Q= ";QQ╞Бж 31200╨Q1│QQ▌Бж 38000ъБж 32000ўБж 31000Е  В(Q1мQQ)о В(QZ)┤ER з 1400$!IT│ITл1.$Л Q,P:)Бе 1017ZxЮ(3):З @232, "LIZMULTI RUN"yВЗ #м2,"NAME OF STUDY: ";A$ЯМЗ #м2,"NAME OF INVESTIGATOR: ";B$╝ЦЗ #м2,"DATE OF RUN: ";C$╬аH$│ б(132,45)ЇкЗ #м2, Л( Ж(32765)); Л( Ж(32766))┤З #м2, "VARIABLES":З #м2, H$╛RN│0,╚А I│1 е NC╥З #м2, дRN) V$(I);`▄RN│RNл7:Е RN┤│119 з 1520rцRN│0:З #м2,""zЁЛ IЭ·З #м2,"":З #м2,H$:З #м2, Л(10)к Бж 23900╖	Бж 32100─Бж 32200╤@Бж 20000▐YБж 34000ыдЮ:Бе 300аЮ:Й "ENTER GAMMA";PHеБе 1013ИRN│0:SN│5,НА P│1 е MPТЗ #м2, дRN) "PF";P;дSN) C(P,P);fЧRN│RNл20:SN│SNл20{ЬЕ RN┤│100 з 5030ТбRN│0:SN│5:З #м2,""ЪжЛ P░лЗ #м2,"":Бе 20065└N А P│1 е Mм1╨N%А Q│Pл1 е M▌N*C(P,Q)│0ыN.А I│1 е NN0C(P,Q)│C(P,Q)л2нR(P,Q)нF(I,P)нF(I,Q):Л I,Q,P*N4А P│1 е M7N9C(P,P)│0EN=А I│1 е NkNAC(P,P)│C(P,P)лF(I,P)нF(I,P):Л I,PнNRЗ #м2, "JOINT AND DIRECT CONTRIBUTION TO VARIANCE BY FACTORS"╗N\З #м2, H$╟N^Бе 5000╫NaА P│1 е Mм1хNfRN│0:SN│5їNpА Q│Pл1 е MNzЗ #м2, дRN)P;Q;дSN)C(P,Q);*NДRN│RNл20:SN│SNл20@NОЕ RN┤│100 з 20120WNУRN│0:SN│5:З #м2,""_NШЛ QqNЭЗ #м2, "":Л PЦNвЗ #м2, "":З #м2,H$:З #м2,  Л(10)ЮNзD│0оNмА P│1 е Mм1╛N▒А Q│Pл1 е M╙N╢D│DлC(P,Q):Л Q,PЁN╗А P│1 е M:D│DлC(P,P):Л P-OLЗ #м2, "CONTRIBUTION TO VARIANCE, BY VARIABLE":З #м2, H$;OVSN│5:RN│0IO`А I│1 е NQOjA│0_OtА J│1 е MuO~A│AлF(I,J)нF(I,J)ЕOАА P│1 е Mм1ХOВА Q│Pл1 е M║OДA│AлC(P,Q)нF(J,Q)нF(J,P)н2:Л Q,P┬OЖЛ JрOИЗ #м2, дRN) V$(I);дSN) A;ЎOТRN│RNл20:SN│SNл20OЬЕ RN┤│100 з 20400#OжRN│0:SN│5:З #м2,""+O░Л IAO║З #м2,"":З #м2,H$tO─З #м2,"TOTAL VARIANCE";D:З #м2,H$:З #м2, Л(10)zO╬РИ]\А I│1 е N▓]aА J│1 е M:F(I,J)│F(I,J)нNP(I,0):Л J,I║]└A│0]┼З #м2, "COEFFICIENTS OF PRINCIPAL FACTORS (FACTOR PATTERN MATRIX)":З #м2, H$:]╩Щ "D",#1,"FACTOR/PAT",5:╨ #1, 5  з Z$:RN│1H]╧А I│1 е MV]╘SN│0:TN│5}]рЗ #м2,"PRINCIPAL FACTOR NUMBER ";IЛ]уА J│1 е Nп]ш╘ Z$│ ж(F(J,I)):┼ #1,RN:RN│RNл1╤]эЗ #м2,дSN) V$(J);дTN) F(J,I);ч]ЄSN│SNл20:RN│RNл20¤]ўЕ SN┤│100 з 24065 ]№SN│0:TN│5:З #м2,"" ^
Л J -^З #м2,"":Л I P^З #м2,"":З #м2,H$:З #м2, Л(10) }^А I│1 е N:╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I Ф^╘ Z$│ ж(M):┼ #1,RN Ъ^Ъ ├^З #м2, "COLUMNS OF TRANSFORM MATRIX" ╨^З #м2,H$ ▐^$А J│1 е M ·^.RN│0:З #м2, "COLUMN ";J!^8А I│1 е M! ^BЗ #м2, дRN) P(I,J);!?^LRN│RNл16:Е RN┤│112 з 24160!Q^VRN│0:З #м2,""!Y^`Л I!j^jЗ #м2,"":Л J!Н^tЗ #м2,"":З #м2,H$:З #м2, Л(10)!У^~Р!бt╠А I│1 е M!пt╤А J│1 е M!┼t╓P(I,J)│0:R(I,J)│0!═t█Л J!уtрP(I,I)│1:R(I,I)│1!ыtхЛ I!ёtъР! x┤А I│1 е N"
x╣NP(I,0)│0"x╛А J│1 е M"Ax├NP(I,0)│NP(I,0)лF(I,J)нF(I,J):Л J"]x╚NP(I,0)│ Ы(NP(I,0)):Л I"kx═А I│1 е N"Хx╥А J│1 е M:F(I,J)│F(I,J)оNP(I,0):Л J,I"ЮyQQ│0"оyА J│1 е Mм1"╛y"А K│Jл1 е M"╠y'QW│0:QV│0"┌y,А I│1 е N#y1QT│F(I,J)нF(I,J):QS│F(I,K)нF(I,K):QQ│QQлQTнQS#&y6QW│QWлQT:QV│QVлQS:Л I#=y;QQ│QQм(PHоN)нQWнQV#Gy@Л K,J#MyEР#[yрА I│1 е N#бyхNP(I,1)│F(I,P)нF(I,P):NP(I,2)│F(I,Q)нF(I,Q):NP(I,3)│F(I,P)нF(I,Q)#пyъNP(I,4)│0#╜yяА J│1 е M#╒yЇЕ J│P ▒ J│Q з 31230#ўy∙NP(I,4)│NP(I,4)лF(I,J)нF(I,J)$
y■Л J,I$7zP1│0:P2│0:P3│0:P4│0:P5│0:P6│0:P7│0:P8│0:P9│0:P0│0$EzА I│1 е N$Лz
P1│P1лNP(I,1)нNP(I,1):P2│P2лNP(I,1)нNP(I,2):P3│P3лNP(I,1)нNP(I,3)$╤zP4│P4лNP(I,1)нNP(I,4):P5│P5лNP(I,2)нNP(I,4):P6│P6лNP(I,3)нNP(I,4)%zP7│P7лF(I,P)нF(I,P):P8│P8лF(I,P)нF(I,Q):P9│P9лF(I,Q)нF(I,Q)%zА J│1 е M%7z!Е J│P ▒ J│Q з 31272%Oz&P0│P0лF(I,J)нF(I,J)%Wz(Л J%_z+Л I%~z0E│P7нP7:E│м(PHоN)нE:E│EлP1%▓z5B│2нR(P,Q)нP7нP0л2нR(P,Q)нP7нP9м2нP7нP8м2нP8нP0%┬z:B│м(PHоN)нB%ьz?B│Bл2нR(P,Q)нP4м2нP3м2нP6л2нR(P,Q)нP2&zDA│P7нP0лP7нP9лP9нP0&zIA│м(PHоN)нA&%zNA│AлP4лP5лP2&NzSC│P7нP7м4нR(P,Q)нP7нP8л2нP7нP0лP7нP9&^zXC│м(PHоN)нC&}z]C│CлP1м4нR(P,Q)нP3лP2л2нP4&ЪzbD│2нR(P,Q)нP7нP7м2нP7нP8&кzgD│м(PHоN)нD&├zlD│Dл2нR(P,Q)нP1м2нP3&╔zqР&ш}Y│1л2нR(P,Q)нXлXнX:Y│ Ы(Y)&°}Y│1оY:X│YнX'}
А I│1 е N'>}F(I,P)│(1оY)нF(I,P):F(I,Q)│м(XоY)нF(I,P)лF(I,Q):Л I'L}А J│1 е M'_}Е J│P з 32032 'К}R(P,J)│YнR(P,J)лXнR(Q,J):R(J,P)│R(P,J)'Т} Л J'╜}#А I│1 е M:P(P,I)│YнP(P,I)лXнP(Q,I):Л I'├}(Р'╤}dА I│1 е N'▀}iА J│1 е M'ь}nC(I,J)│0(}sА L│1 е M:C(I,J)│C(I,J)лF(I,L)нR(L,J):Л L($}uЛ J,I(*}xР(e}╚З #м2, "FACTOR STRUCTURE MATRIX, BY COLUMNS":З #м2, H$(Ф}╥Щ "D",#1,"STRUCT/MAT",5:╨ #1, 5  з Z$:RN│1(в}▄А I│1 е M(╣}цSN│0:TN│5:PI│VP(I)(р}ЁЗ #м2,"PRINCIPAL FACTOR NUMBER ";I(ю}·А J│1 е N)~╘ Z$│ ж(C(J,I)):┼ #1,RN:RN│RNл1)4~З #м2,дSN) V$(J);дTN) C(J,I);)J~SN│SNл20:TN│TNл20)`~"Е SN┤│100 з 32310)w~,SN│0:TN│5:З #м2,"")~6Л J)Р~@З #м2,"":Л I)│~JЗ #м2,"":З #м2,H$:З #м2, Л(10))р~TА I│1 е N:╘ Z$│V$(I):┼ #1,RN:RN│RNл1:Л I)ў~^╘ Z$│ ж(M):┼ #1,RN)¤~cЪ*~hР*3Д╨З #м2, "CORRELATION AMONG FACTORS":З #м2,H$*CД╒А P│1 е Mм1*QД▀RN│0:SN│5*aДщА Q│Pл1 е M*ВДєЗ #м2, дRN) P;Q;дSN) R(P,Q);*ШД¤RN│RNл20:SN│SNл20*оЕЕ RN┤│100 з 34075*┼ЕRN│0:SN│5:З #м2,""*═ЕЛ Q*▀Е%З #м2, "":Л P+Е/З #м2, "":З #м2,H$:З #м2,  Л(10)+
Е4Р+CФpBB│(3нD)о(4нE):CC│(2нC)о(4нE):DD│Bо(4нE):VR│.0000001+wФuPP│CCм(BBнBB)о3:QQ│DDм(BBнCCо3)л(2нBBнBBнBBо27)+ЭФzЕ  В(PP)┤│VR ░  В(QQ)┤│VR з 38080+╢ФЕ  В(PP)┤│VR з 38085+╧ФДЕ  В(QQ)┤│VR з 38090+∙ФЙЕ  В(4нPPнPPнPPл27нQQнQQ)┤│VR з 39000,ФОЕ  В(PP)▓1 з X│ В(PP) :Д X│1,4ФУЕ  В(QQ)▓X з X│ В(QQ),>ФШX│Xл1,hФЭNX│XнXнXлPPнXлQQ:DX│3нXнXлPP:NX│NXоDX,sФвX│XмNX,ТФзЕ  В(NX)┤.00000005 з 38065,ЯФмБе 38045,└Ф▒B1│X:CC│PPлXнX:DD│B1нB1м4нCC,┘Ф╢Е DD┤м.00001 з 39035,ыФ╕Е DD┤0 з DD│0-Ф╗DD│мB1м Ы(DD):DD│DDо2:Бе 39012-Ф└X│мBBо3:Р-HФ┼X│м А(QQ)н( В(QQ))п.33333333:X│XмBBо3:Р-\Ф╩Е мPP┤0 з 38080-ОФ╧DD│м(BBо3)м Ы(мPP):X│м(BBо3)л Ы(мPP):Бе 39015-мШXDD│м3нQQо(2нPP):X│3нQQоPP-┐Ш]Е DD▓X з 39010-╠Ш_Бе 39012-рШbAD│X:X│DD:DD│AD-°ШdDD│DDмBBо3:X│XмBBо3.'ШgAD│AлBнDDлCнDDнDDлDнDDнDDнDDлEнDDнDDнDDнDD.LШlBD│AлBнXлCнXнXлDнXнXнXлEнXнXнXнX._ШqЕ AD┤BD з X│DD.eШvР.rШ{X│XмBBо3.xШАР3)л Ы(мPP):Бе 39015-мШXDD│м3нQQо(2нPP):X│3нQQоPP-┐Ш]Е DD▓X з 39010-╠Ш_Бе 39012-рШbAD│X:X│DD:DD│AD-°ШdDD│DDмBBо3:X│XмBBо3.'ШgAD│AлBнDDл                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 и&UХ 400,32760&6WM$│ б(32,175):N$│ Л(175)л"READY"&\XN$│ Л(175)лN$лN$лN$лN$лN$л Л(175)&ГZЮ:╗ Й "EDITOR-ENTER FILE NAME ";D$&Ь\Й "DRIVE NUMBER ";DR&╝_Щ "D",#1,D$,5:╨ #1, 5  з Z$&цdЮ:З "SYSTEM LIZPACK-CUSTOM FILE MODE"&·iЗ д12) "EDITOR"'nЗ д9) "CONTROL KEYS"',sЗ "I. INPUT RECORDS"'TuЗ "S. INPUT RECORDS-AUTO SAMPLE CT"'lxЗ "L. LIST RECORDS"'В}З "P. PRINT FILE"'ЬВЗ "D. DELETE RECORDS"'╜ЗЗ "R. REMOVE DELETION FLAGS"'╬МЗ "H. HELP!"'ыСЗ "X. LIZPACK DIRECTORY"(ЦЗ "J. INSERT RECORDS"($ШЗ "A. AGGREGATE FILE MODE"(>ЫЗ "C. CHANGE RECORDS"(OеЗ "B. BEGIN"(Y╚A$│ Т(m╩Е A$│"A" з 2000(И═Е A$│"B" з FG│1:Бе 300(У╥Бе 200(─
,Ю(3):З "FREE RECORD SPACE"; Б( г(DR)н2304о5)(√
1З "FILE ";D$;" CONTAINS ":З д10)  е(1); " RECORDS")
6З M$:З@128, N$:З@160, M$)-
8И FG Бе 315,2315)7
;A$│ Т)J
@Е A$│"I" з 400)]
EЕ A$│"L" з 450)q
JЕ A$│"P" з 1200)Д
OЕ A$│"D" з 800)Ш
TЕ A$│"R" з 1000)м
YЕ A$│"E" з 1150)└
^Е A$│"X" з 1100)╙
cЕ A$│"J" з 900)ц
hЕ A$│"C" з 700)∙
mЕ A$│"H" з 100*

rЕ A$│"S" з 1400*
ЛБе 315*)
РЮ:RN│ е(1)л1*9
ХЗ RN;"   ";*A
ЪЙ D*W
ЯЕ D│989898 Бе 300*f
д╘ Z$│ ж(D)*r
й┼ #1,RN*Е
оRN│RNл1:Бе 405*й
┬Ю:Й "FIRST RCD, LAST RCD";RN,LR*├
╟Е LR▓ е(1) з LR│ е(1)*╫
╠Е RN▓LR з RN│LR*я
╤Й "READ MULTIPLE";M*·
╓Бж 500+
█Бе 300+
ЇЮ:SN│RN:LC│0+$
∙А I│1 е M+9
■─ #1,RN:D│ в(Z$)+DЗ RN;D+^RN│RNл1:Е RN▓LR з 530+x
LC│LCл1:Е LC▓14 з 530+А
Л I+КA$│ Т+оЕ A$│"L" з Е RN▓LR з 300 :Д 500+┬Е A$│"X" Бе 300+╓!Е A$│"C" Бе 600+ъ&Е A$│"D" Бе 610+■+Е A$│"J" Бе 620,	0Бе 530,XБж 710,%]RN│SN:Бе 500,0bБж 810,AgRN│SN:Бе 500,LlБж 910,]qRN│SN:Бе 500,h╝Бж 710,s┴Бе 300,Ч╞Ю:Й "FIRST RCD, LAST RCD";RN,RR,▒╦Е RR▓ е(1) з RR│ е(1),┼╨Е RN▓RR з RN│RR,╨╒Бж 750,╓┌Р,▄юЮ,ЁЁЗ RN;"   ";:Й D-є╘ Z$│ ж(D):┼ #1, RN-#°RN│RNл1:Е RN┤│RR з 752-)¤Р-4 Бж 810-?%Бе 300-f*Ю:Й "FIRST RCD, LAST RECORD";RN,RR-А/Е RR▓ е(1) з RR│ е(1)-Ф4Е RN▓RR з RN│RR-Ю6TR│RN-│9Е RR│ е(1) з 845-╚>А I│RRл1 е  е(1)-▄C─ #1, I:┼ #1,RN-ьHRN│RNл1:Л I.
MА I│ е(1) е  е(1)мRRлTR й м1.(R╘ Z$│ ж(979797):┼ #1,I.0WЛ I.6\Р.AДБж 910.LЙБе 300.sОЮ:Й "FIRST RCD, # OF INSERTS";RN,K.ИУЕ RN▓ е(1) з 910.ШШЕ K│0 з 300.░ЭА I│ е(1) е RN й м1.─в─ #1,I:┼ #1,IлK.╠зЛ I.┌мRR│RNлKм1.х▒Бж 750.ы╢Р.ўшБж 1010/эБе 300/ЄЕ  е(1)│0 з Р/-Ї─ #1,  е(1):D│ в(Z$)/AўЕ D┤▓979797 з Р/}№Ю(3):З "WILL BE BACK SHORTLY"::Щ "D",#2,"SCRATCH/PAD",5/Ф
╨ #2, 5  з W$:RN│1/й─ #1,RN:D│ в(Z$)/┐Е D│979797 з 1045/╓╘ W$│ ж(D):┼ #2,RN/ъRN│RNл1:Бе 1030/ёЪ /·╥ D$0╓ "SCRATCH/PAD" е D$0%$Щ "D",#1,D$,507)╨ #1, 5  з Z$0=.Р0KLЮ:Бж 10100QNЪ0vQM│ Ж(32767):H$│ И(M):H$│ П(H$,1)0ТVH$│"LIZPACK/DIR"л":"лH$0Э[╙ H$,R0о~Ю(3):Бж 10100┤АЪ0╧ГЮ(3):З "END LIZPACK":К0Ў░З #м2,  Л( Ж(32765)); Л( Ж(32766))1$╡З #м2,"LISTING OF LIZPACK DATA FILE  ";D$16║H$│ б(132,45)1C╝З #м2,H$1V┐RN│1:SN│0:TN│61d─А I│0 е 51М╔З #м2,д20нI) "RECORD #,RECORD";:Л I1в╬З #м2,"":З #м2,H$1┐╙─ #1,RN:D│ в(Z$):RN│RNл11█╪З #м2,дSN) RNм1;дTN) D;1ё▌SN│SNл20:TN│TNл202тЕ SN┤│100 з 12602чSN│0:TN│6:З #м2,""24ьЕ RN┤│ е(1) з 12352JёЗ #м2,"":З #м2,H$2UЎБе 3002fxЮ:RN│ е(1)л12t}SN│RN:L│02АВRN│RNл12ОЗЗ RN;:Й D2гМЕ D│989898 з 3002╣СЕ D│999999 з 14402╓Ц╘ Z$│ ж(D):┼ #1,RN:L│Lл12ъЫRN│RNл1:Бе 14153
а╘ Z$│ ж(L):┼ #1,SN3еЗ SN;L3кБе 140531@Ю:Й "CASE NUMBER";CN3:JK│NM3POА I│1 е  е(1) й K3dT─ #1,I:D│ в(Z$)3wYЕ D│CN Бе 16503^Л I3ФcЗ "NO SUCH CASE"3иhА T│0 е 500:Л T3╢mFE│9999:Р3╞rFE│0:RN│I:Р3▀|M│NM:LR│IлKм1:Бе 4704╨Ю: Й "# COLUMNS  PER CASE ";NM40╥Ю:FG│2:З "SYSTEM LIZPACK-AGGREGATE FILES"4D╒З д12) "EDITOR"4]┌З д9) "CONTROL KEYS"4rфЗ "L. LIST CASE"4ЙюЗ "D. DELETE CASE"4кєЗ "R. REMOVE DELETION FLAGS"4╗°З "H. HELP!"4╙¤З "E. EXIT LIZPACK"4щЗ "P. PRINT FILE"5З "C. CUSTOM FILE MODE"5З "B. BEGIN"5/З "N. EDIT NEW FILE"59ШA$│ Т5LЭЕ A$│"C" з 1005_вЕ A$│"B" з 3005kзБе 22005u	A$│ Т5Й	Е A$│"L" з 24005Э	Е A$│"D" з 24105▒	Е A$│"R" з 24255┼	Е A$│"H" з 20025┘	$Е A$│"E" з 11505э	)Е A$│"P" з 26006
	.Е A$│"N" з 28006
	8Бе 23156	`Бж 16006.	bЕ FE│9999 Бе 3006:	eБе 16606F	jБж 16006[	lЕ FE│9999 Бе 3006q	oRR│RNлNMм1:Бж 8156|	tБе 3006И	yБж 10006У	~Бе 3006╛
(M│NM:З #м2, Л( Ж(32765)); Л( Ж(32766))6ы
-З #м2,"LISTING OF LIZPACK DATA FILE ";D$6ў
/Бж 80007	
2H$│ б(132,45)7
7З #м2,H$7$
<А I│0 е 570
>RN│20нI7V
AЗ #м2,дRN) "RECORD #,RECORD";:Л I7l
CЗ #м2,"":З #м2,H$7
FRN│1:SN│0:TN│67Н
KА I│1 е M7к
P─ #1,RN:D│ в(Z$):RN│RNл17╞
UЗ #м2,дSN) RNм1;дTN) D;7▄
ZSN│SNл20:TN│TNл207ё
_Е SN┤│100 з 26658
dSN│0:TN│6:З #м2,""8
iЛ I8'
nЗ #м2,"":SN│0:TN│684
pЗ #м2,H$8J
sЕ RN┤ е(1) з 26358U
xБе 3008j
ЫЗ #м2,"":Бе 27108v
ЁБж 10108|
їЪ8Ж
·Бе 908и@З #м2,"NUMBER OF COLUMNS:";NM8╙EЗ #м2,"TOTAL NUMBER OF RECORDS:"; е(1)9JЮ:Й "DO YOU WISH TO ENTER LABELS FOR COLUMNS";A$9OЕ A$┤▓"YES" з 80609.TА I│1 е NM9IYЗ "LABEL FOR COLUMN";I9R^Й A$9zcЗ #м2,"COLUMN";I;д20) "LABEL:  ";A$9ВhЛ I9б|Ю(3):З @232,"LISTING FILE"9зБР╙EЗ #м2,"TOTAL NUMBER OF RECORDS:"; е(1)9JЮ:Й "DO YOU WISH TO ENTER LABELS FOR CO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !Ц>
└8:Х 200,30712:┌И>?А I│1 е 7:Т 30712лI, Ж(32760лI):Л I>jA$│"SHOWPACK/BIN:"л П( И( Ж(30719)),1)>ЩЮ5:Й"COLD START (Y-N)";E$:Е E$│"Y" з ╙M A$>╨╚ 4,1:┐ 1,1:╣  Г0│&H7E80:╣  Г1│&H7F60:╣  Г2│&H7FA0?(М E5(7,7),E6(7,7),P(100),VA(20),S$(99),A(3,3)?D2Z2│м1:X│0:Y│0:C│8:R│1:P│4:BC│5:FC│8:SS│1:┴ FC,BC:Т &H7FFA,255?к<─(0,0)м(7,7),E5,G:╚ 3,1:┴ 3,1:╗(0,0)м(7,7),╜,BF:╚ 4,1:─(0,0)м(7,7),E6,G:┼(0,0)м(7,7),E5,╜:┴ FC,BC@F─(X,Y)м(Xл7,Yл7),E5,G:┼(X,Y)м(Xл7,Yл7),E6,╜:A$│ Т:Е A$│"" з ┼(X,Y)м(Xл7,Yл7),E5,╜:Бе 70 :Д ┼(X,Y)м(Xл7,Yл7),E5,╜@┐PЕ A$│ Л(12) з 150 :Д Е A$│ Л(94) з Y│Yм8 :Д Е A$│ Л(10) з Y│Yл8 :Д Е A$│ Л(13) з X│0:Y│Yл8 :Д Е A$│ Л(8) з X│XмC :Д Е A$│ Л(9) з X│XлC :Д Бж 130:X│XлC:II│1@№ZЕ II│0 з Т 341,255:Т 342,255:Т 343,255:Т 344,255 :Д II│0A>dЕ X▓240лC з X│0:Y│Yл8 :Д Е X┤0 з Y│Yм8:Е C│6 з X│246 :Д X│248A_nЕ Y▓191 з Y│0 :Д Е Y┤0 з Y│0AixБе 70A╪ВQ│ Б(Xо8)лYн32:Т &H7FFE, Б(Qо256):Т &H7FFF,Qм256н Б(Qо256):Т &H7FF9,Cм1:Е C│6 з Т &H7FFC,(Xм24н Б(Xо24))о6AьМE│ Г0( К(A$)):РBЦ┼(X,Y)м(Xл7,Yл7),E6,╛:N5│ Ж(282):Т 282,255B3аA$│ Т:Е A$│"" з 160BGеЕ A$│"A" з 9000Baк┼(X,Y)м(Xл7,Yл7),E5,╜C┤Е A$│ Л(8) з 780 :Д Е A$│ Л(9) з 790 :Д Е A$│"0" ▒  Й(A$)▓0 з 800 :Д Е A$│"B" з C│8:X│8н Б(Xо8)л8 :Д Е A$│"S" з C│6:X│6н Б(Xо6) :Д Е A$│"D" з 230 :Д Е A$│"G" з 440 :Д Е A$│"C" з 550CЙ╛Е A$│"M" з 610 :Д Е A$│"E" з 600 :Д Е A$│"P" з 1000 :Д Е A$│"W" з 700 :Д Е A$│"H" з Е SS│1 з SS│0 :Д SS│1C─╚Е A$│"R" з Е  Ж(&H7FFA)│0 з Т &H7FFA,255 :Д Т &H7FFA,0D%╥Е A$│ Л(10) з Y│Yл1:Т 282,N5:Бе 100 :Д Е A$│ Л(94) з Y│Yм1:Т 282,N5:Бе 100 :Д Е A$│"F" з 580D?▄Т 282,N5:┐ 1,SS:Бе 70EцЮ:З"*********DISK OPTIONS***********":З"  (1)  LOAD HI-RES SCREEN         (2)  SAVE HI-RES SCREEN         (3)  LOAD & PLOT TABLES         (4)  SET UP SLIDE SHOW          (5)  LOAD SLIDE SHOW"E╟чЗ"  (6)  INSTALL TEMPORARY SS       (7)  OVERLAY  A  SCREEN         (8)  CREATE/SAVE DATA TABLE     (9)  ESCAPE  THIS  MENU":З:╗ Й"   SELECT OPTION: ";E$:E│ Й(E$):Е E▓9 ▒ E┤1 ▒ E┤▓ Б(E) з 230F#шЕ E│8 з 4000 :Д Е E│4 з 950 :Д Е E│5 з 960 :Д Е E│6 з 900 :Д Е E│7 з 980 :Д Е E│9 з 220F╖ЁЗ:╗ Й"FILENAME? ";F$:Е F$│"" з 240 :Д Е E│1 з ╙M F$:┐ 1,1:Т 282,N5:Бе 70 :Д Е E│2 з ╪M F$, Ж(188)н256, Ж(188)н256л&H1800,0:┐ 1,1:Т 282,N5:Бе 70G'ёЙ"DRAW AXES (Y/N)";A$:Е A$┤▓"Y" з 250 :Д Й"USER OR COMPUTER DEFINED AXES   (U/C)";A$:Е A$┤▓"U" з 242 :Д 342G┐ЄЗ"WAIT PLEASE":╚ 3,1:┴ 6,8:╗(0,96)м(255,96),╜:╗(132,0)м(132,192),╜:А E│12 е 180 й 12:╗(130,E)м(134,E),╜:Л E:А E│12 е 252 й 16::╗(E,94)м(E,98),╜:Л EH·╚4,1:┴ FC,BC:Й"(D)IRECT ACCESS OR              (S)EQUENTIAL ACCESS";G$:Е G$│"D" з 350HF
Щ"I",1,F$:XT│м20000:XU│20000:YT│XT:YU│XUHv
Е  М(1)┤▓м1 з Й#1,X,Y :Д Ъ:Щ"I",1,F$:Бе 329HИ
Е X▓XT з XT│XHЪ
"Е X┤XU з XU│XHм
,Е Y▓YT з YT│YH╛
6Е Y┤YU з YU│YH╔
@Бе 270Hц
IЙ#1,X1,Y1:R│1:Бж 431:R│2I
JЕ  М(1)┤▓м1 з Й#1,X1,Y1:Бж 431:Бе 330 :Д ЪI 
TБе 430Ij
VЙ"XMIN,XMAX,YMIN,YMAX";XT,XU,YT,YU:Й"X-AXIS STEPS,Y-AXIS STEPS";DX,DYJ
X╚3,1:┴6,8:╗(48,160)м(255,160),╜:╗(50,0)м(50,162),╜:N│ Б((XUмXT)оDX):DX│205нDXо(XUмXT):А E│0 е N:X1│ Б(50лEнDX):╗(X1,158)м(X1,162),╜:Л E:N│ Б((YUмYT)оDY):DY│160нDYо(YUмYT)J╖
ZА E│0 е N:Y1│ Б(EнDY):╗(48,Y1)м(52,Y1),╜:Л E:╚4,1:┴ FC,BC:R│10:Щ"D",1,F$,R:╨#1,5  з X$,5  з Y$:А R│1 е  е(1):─#1,R:X1│ в(X$):Y1│ в(Y$):Бж433:Л R:Ъ:Бе 430K!
^Й"RECORD SIZE (10 STD.)";R:Щ"D",1,F$,R:Е R│10 з ╨#1,5  з X$,5  з Y$ :Д ╨#1,5  з X$,5  з Y$,Rм10  з Z$K_
h─#1,1:XT│ в(X$):XU│XT:YT│ в(Y$):YU│YT:А R│2 е  е(1):─#1,RK{
rЕ  в(X$)▓XT з XT│ в(X$)KЧ
|Е  в(X$)┤XU з XU│ в(X$)K│
ЖЕ  в(Y$)▓YT з YT│ в(Y$)K╧
РЕ  в(Y$)┤YU з YU│ в(Y$)K╫
ЪЛ RL
дА R│1 е  е(1):─#1,R:X1│ в(X$):Y1│ в(Y$):Бж 431:Л R:ЪL*
оТ 282,N5:┐ 1,SS:Бе 70LЁ
пЕ R│1 з ╗ ( Б((X1мXU)о(XTмXU)н248л4),192м Б((Y1мYU)о(YTмYU)н184л4))м( Б((X1мXU)о(XTмXU)н248л4),192м Б((Y1мYU)о(YTмYU)н184л4)),╜ :Д ╗ м( Б((X1мXU)о(XTмXU)н248л4),192м Б((Y1мYU)о(YTмYU)н184л4)),╜LЎ
░РM╖
▒Е R│1 з ╗( Б((X1мXT)н205о(XUмXT)л50),160м Б((Y1мYT)н160о(YUмYT)))м( Б((X1мXT)н205о(XUмXT)л50),160м Б((Y1мYT)н160о(YUмYT))),╜ :Д ╗м( Б((X1мXT)н205о(XUмXT)л50),160м Б((Y1мYT)н160о(YUмYT))),╜M╜
▓РNЩ
╕Ю:З"********GRAPHICS OPTIONS********":З"    (1) PIE CHART                   (2) BAR GRAPH                   (3) PLOT DATA FROM DISK         (4) DRAW WITH JOYSTICK (RT)     (5) DRAW LINE OR AXIS           (6) ESCAPE"O#
╣З:╗ Й"    SELECT OPTION: ";O$:O│ Й(O$):Е O│1 з 450 :Д Е O│2 з 490 :Д Е O│3 з 442 :Д Е O│4 з 3010 :Д Е O│5 з 3070 :Д Е O│6 з220 :Д 440O1
║E│3:Бе240O╛
┬Й"RADIUS OF CIRCLE";R:Й"COORDINATES OF CENTER OR 0,0 FORCURRENT CURSOR POSITION";X3,Y3:Й"NUMBER OF SECTIONS";N:Е X3лY3│0 з X3│Xл4:Y3│Yл4P
╠А E│1 е N:З" #"E"SECTION PERCENTAGE";:ЙP(E):Л E:PO│0:┬(X3,Y3),R,FCPa
╓А E│1 е N:PO│POлP(E)о100:╗(X3,Y3)м(Rн Х(6.28318531нPO)лX3,Rн Е(6.28318531нPO)лY3),╜:Л EP{
р┐ 1,SS:Т 282,N5:Бе 70Q
ъЙ"V-AXIS MINIMUM VALUE";H1:Й"V-AXIS MAXIMUM VALUE";H9:Й"V-AXIS INCREMENT";HI:Й"# OF BARS ON GRAPH (2-12)";VL:HL│ Б((H9мH1)оHI)л1QL
ыЕ VL┤5 з H9│34.5:H8│46.5 :Д Е VL┤9 з H9│36.5:H8│44.5 :Д H9│38.5:H8│42.5QЯ
ЇА E│1 е VL:З"#"E"VALUE (" Р( И(H1),2)"-" Р( И(H1л(HLм1)нHI),2)")";:Й VA(E):Л ER
■╚ 3,1:╝5:╗(40,16)м(240,164),╜,B:YE│200о(VLл1):А E│1 е VL:╗( Б(40л Б(YEнEл.5)),164)м( Б(40л Б(YEнEл.5)),16),╜:Л EReYF│148оHL:А E│1 е HL:╗(40, Б(16л Б(YFнEл.5)))м(240, Б(16л Б(YFнEл.5))),╜:Л ER╚┴ 7,5:А E│1 е VL:F│(VA(E)мH1)оHI:╗( Б(H9лYEнE),164)м( Б(H8лYEнE), Б(164м Б(YFнFл.5))),╜,BF:Л ERЁ┴ FC,BC:╚ 4,1:┐ 1,SS:Т 282,N5:Бе 70S}&Ю:O│FC:Й"PMODE (3-4)";Z0:╚ Z0,1:Й"FOREGROUND COLOR";C$:Бж 560:FC│O:O│BC:Й"BACKGROUND COLOR";C$:Бж 560:BC│O:┴ FC,BC:┐ 1,SS:Т 282,N5:Бе 70T=0C$│ О(C$,3):Е C$│"BLA" з O│0 :Д Е C$│"GRE" з O│1 :Д Е C$│"YEL" з O│2 :Д Е C$│"BLU" з O│3 :Д Е C$│"RED" з O│4 :Д Е C$│"WHI" з O│5 :Д Е C$│"CYA" з O│6 :Д Е C$│"MAG" з O│7 :Д Е C$│"ORA" зO│8TC:РTWDE│ Г1(0):Бе 220T░XК:ГIF YOU WANT TO ADD A RUN"PROGRAM" OR WHATEVER HERE THE  <CLEAR><E> WILL ACCESS ITUЦbЮ5:З"MENU LIST:   <CLEAR>+             <B>  LARGE LETTERS (32/LINE)    <C>  CHANGE COLORS USED         <D>  DISK SCREEN OPTIONS        <F>  FLIP SCREEN                <G>  GRAPHICS OPTIONS           <H>  CHANGE HUE OF SCREEN"VygЗ"  <P>  PRINT SCREEN               <R>  REVERSE LETTERS            <S>  SMALL LETTERS (42/LINE)    <W>  WIPE SCREEN CLEAR          <01- LOAD AND DISPLAY SLIDE      99> FROM DISK (TWO KEYS,            SS MUST BE INSTALLED)VДlБе 150Vэ╝Ю4:Й"ARE YOU SURE YOU WANT TO CLEAR  THIS SCREEN (Y-N)";Y$:Е Y$│"Y" з ╝(BC):X│0:Y│0:Бе 200 :Д Бе 200WA$│ И(Z1м2):Бе 804WA$│ И(Z1):Бе 804WJ B$│ Т:Е  Й(B$)│0 ░ B$┤▓"0" з 800 :Д A$│A$лB$W▐$Е Z2│м1 ▒  Й(A$)▓Z3 ▒  Й(A$)┤1 з 220 :Д Z2│ Й(A$):Е Z2│Z1 з ╟ 5 е 1:╟ 6 е 2:╟ 7 е 3:╟ 8 е 4:┐ 1,SS:Z1│Z2л1 :Д ╙M S$(Z2):┐ 1,SS:Z1│Z2л1:Т 282,N5X%Е Z2▓│Z3 з 70 :Д ╙M S$(Z2л1),&H1800:Бе 70XДЮ6:Й"NUMBER OF SCREENS (1-99)";Z3:А Z1│1 е Z3:З"#"Z1;:Й"FILENAME";S$(Z1):Л Z1:Z2│0:Z1│1:╙M S$(1),&H1800:Бе 220YF╢Ю6:З" * SLIDE SHOW *":Й"NUMBER OF SCREENS (1-99)";Z3:А Z1│1 е Z3:З"#"Z1;:Й"FILENAME";S$(Z1):Л Z1:Й"SLIDE SHOW FILENAME (NO EXT)       ";F$:Щ"O",1,F$л"/S-S":┘#1,Z3:А E│1 е Z3:┘#1,S$(E):Л E:Ъ:Бе22Y╢└Й"FILENAME (NO EXT)";F$:Щ"I",1,F$л"/S-S":Й#1,Z3:А E│1 е Z3:Й#1,S$(E):Л E:Ъ:Z2│0:Z1│1:╙M S$(1),&H1800:Бе 220Z=╘╗Й"FILENAME? ";F$:Е F$│""з 230 :Д ╙MF$,&H1800:E│ Г1(0):Т&HBA, Ж(&HBA)л24:E│ Г1(0):Т&HBA, Ж(&HBA)м24:E│ Г2(0):E│ Г1(0):Z1│м1:Бе 220Z╙шЮ5:З" RUNNING A PRINT DRIVER FOR AN   EPSON. REPLACE LINES 1000-1060  WITH DRIVER FOR  YOUR PRINTER.":SC│ Ж(186)н256л Ж(187):З#м2, Л(27);"A" Л(8)ZчЄА X1│SC е SCл31[№З#м2,д10)""; Л(27)"K" Л(193) Л(0);[&А Y1│6144 е 0 й м32[BP│ Ж(X1лY1):P│ В(Pм255)[WЗ#м2, Л(P);:Л Y1[eЗ#м2:Л X1[$З#м2, Л(27)"@":Бе 220[Ы╨:Г SHOWPACK 2.0 (11-83)[╤╕Ю5:Й"CLEAR SCREEN? ARE YOU SURE";T$:Е T$│"Y" з ╝0[ы┬┐ 1,SS:H1│0:V1│0:TQ│0\├╗(0,0)м(2,2),╛,BF:─(0,0)м(2,2),A,G\М╠T$│ Т:Е T$│"" з 3030 :Д Е T$│"^" з TQ│0 :Д Е T$│" " з TQ│1 :Д Е T$│ Л(10) з TQ│1 :Д Е T$│"Q" з 220 :Д Е T$│"W" з 3000\╝╓H2│ Б(4н Н(0)):V2│ Б(4н Н(1)):Е TQ│0 з 3050\ыр╗(H1,V1)м(H2,V2),╛:H1│H2:V1│V2:TQ│1:Бе3020]9ъ┼(H1,V1)м(H1л2,V1л2),A,╛:┼(H2,V2)м(H2л2,V2л2),A,╜:H1│H2:V1│V2:TQ│0:Бе3020]?ЇК]ф■З"** ORIGIN IN UPPER LEFT CORNER**":Й"STARTING POINT COORDINATES: X,Y";XT,YT:Й"END POINT: X,Y";X1,Y1:╚4,1:X2│ Ж(&HE08):Е X2│0 з 3080 :Д ╗(XT,YT)м(X1,Y1),╛:Бе220^
╗(XT,YT)м(X1,Y1),╜:Бе220^даЮ5:З"    * DIRECT ACCESS FILE *             RECORD SIZE = 10                ":Й"DATA TABLE FILENAME";F$:Е F$│""з 230 :Д Щ"D",1,F$,10:╨#1,5  з A1$,5  з A2$:R│1_еЙ"X,Y OR END,0 ";A3$,A4$:Е A3$┤▓"END" з ╘ A1$│ ж( Й(A3$)):╘ A2$│ ж( Й(A4$)):┼#1,R:R│Rл1:Бе 4005_кЪ:Бе 220_=#(А I│1 е 7:Т 32760лI, Ж(30712лI):Л I_X#-A$│ П( И( Ж(30719)),1)_q#2A$│"LIZPACK.DIR:"лA$_Х#7Ю(3):З "AUF WIEDERSEHEN":╙ A$,R5  з A2$:R│1_еЙ"X,Y OR END,0 ";A3$,A4$:Е A3$┤▓"END" з ╘ A1$│ ж( Й(A3$)):╘ A2$│ ж( Й(A4$)):┼#1,R:R│Rл