# 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
```

### 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.