Full text: Ownership as interpersonal dominance

210 
00660 N=N+1 
00670 FOR B = N TO 24 
00680 IF (VERBS(1,A)-VERBS(1,B))<0 THEN GOTO 700 
00680 GOTO 750 
00700 FOR C = 1:TO 2 
00710 XX=VERBS{(C,A) 
00720 VERBS(C,A) = VERBS(C,B) 
00730 VERBS(C,B) = XX 
00740 NEXT C 
00780. NEXT B 
00760 NEXT A 
00770 
00800 ! CALCULATE RANKS 
00830 
00840 FOR A = 1 TO 23 
00850 C=0 
00860 B=A+1 
00870 N=0 
00880 
00880 LOOP 
20900 IF (VERBS(1,A)-VERBS(1,B))>0 THEN QUIT 
20910 N=N+1 
20820 8=B+1 
20930 IF B=25 THEN QUIT 
09840 ENDLOOP 
20860 
20970 C=0 
00980 FOR X = A TO (A+N) 
00880 C=C+VERBS(3,X) 
01000 NEXT X 
01010 
01020 FOR X = A TO (A+N) 
01030 VERBS(3,X) = C/(N+1) 
01040 NEXT X 
01050 A=A4+N 
01070 NEXT A 
01090 
01100 PRINTING ONE CASES DATA ON ONE VARIABLE 
01110 
01120 P=0 
01140 Loop 
01150 P=P+1 
01160 Q=0 
21170 LOOP 
21180 Q=Q+1 
21180 IF VERBS(2,Q)=P THEN GOTO 1210 
21200 GOTO 1220 
31210 PRINT #10, USING FF$, (25 - VERBS(3,Q)); 
21220 IF Q = 24 THEN QUIT 
01230 ENDLOOP 
31240 IF P = 24 THEN QUIT 
01250 ENDLOOP 
01260 PRINT #10, USING FF$, * / 
01280 
01280 NEXT Z 
01300 NEXT SS 
01320 co 
01330 CLOSE #4 
01340 CLOSE #10 
01350 END
	        
Waiting...

Note to user

Dear user,

In response to current developments in the web technology used by the Goobi viewer, the software no longer supports your browser.

Please use one of the following browsers to display this page correctly.

Thank you.