SB AZC:@22,"SZOCIOMATRIXOK KESZITESE""C 800WC S$(41,41): I1 40: J1 40:S$(I,J)".":J,IzC C%(30): C$(6): V%(40,6,3)C Q$(40)C W%(3,40):OS%(40): PK%(40):P%(43)CdMU5CO0:K6:M3:N(31000)'DIM31000: I1 40: IJ1 K: JI1 M:IMIM1:V%(I,IJ,JI)(IM): JI,IJ,IND:@22,"SZOCiOMATrIXOK VALASZTEKA"DA$"TARSVALASZTAS":B$" MUNKABAN":C$(1)" TANULMANYI":C$(3)" K I S Z ":C$(2)" TARSADALMI":C$(4)"BARATI KAPCSOLATOK "DC$(5)"PADTARSVALASZTAS"%E@26415,"========================================"DEC$(6)"VEZETOK VALASZTASA"lE @36415,": ";A$;C$(1);B$;" : ";E I1 3:E$(I)A$C$(I)B$:IEE$(4)C$(4):E$(5)C$(5):E$(6)C$(6)E @46415,": 2 ";A$;C$(2);B$;" : "; F @56415,": 3 ";A$;C$(3);B$;" : ";9F @66415,": 4 ";C$(4);" : ";nF @76415,": 5 ";C$(5);" : ";F @86415,": 6 ";C$(6);" :";F @96415,"========================================"G, SO: SO0SOK ʲ"ILYEN SORSZAM NINCS":40107G1 I1 40: J1 40:S$(I,J)".":J,ILG2PRINT"MEM=";MEMYG6 I1 NG@U%V%(I,SO,1):S$(I,U%)"1":S$(I,V%(I,SO,2))"2":S$(I,V%(I,SO,3))"3"GEI HY I1 N:P%(I)0:PK%(I)0:OS%(I)0: J1 3:W%(J,I)0:P%(NJ)0:J:I:PO%0:P1%0:P2%0:P3%02H^ I1 N: J1N:S$(I,J)"."4199WH`P%(I)P%(I)1: S$(J,I)"."4195uHaPK%(I)PK%(I)1:P3%P3%1HcS$(I,J)"1" W%(1,J)W%(1,J)1Hd S$(I,J)"2" W%(2,J)W%(2,J)1HeS$(I,J)"3" W%(3,J)W%(3,J)1HgJ:I[I J1 N:L13:OS%(J)OS%(J)W%(L,J):P%(NL)P%(NL)W%(L,J):PO%PO%1:L:P1%P1%OS%(J):P2%P2%P%(J):JxIPRINT "P2,P1 ";P2%,P1%IP I11000:P1:II: " A ";N;"*";N;" TIPUSU SZOCIOMATRIX TANULMANYOZASA"I::I 27);"============="J27);":L LE :",J27);":E ELORE :"GJ 27);":M MASIK :"bJ 27);":V VEGE :"}J 27);"============="J I11000:LE0:IJ|LE0:JO0:: 15);E$(SO):6000:5525J15);C$(SO): 6000JI$""KI$: I$"E" I$"L" I$"M" I$"V"5530&K I$"E" 5500JK I$"L" LELE1: 7000:5525]K I$"M" 4010mK I$"V" Kp 11);"VALASZTOTT TANULOK": 10);"*";LqQ$(1)"V":Q$(2)"A":Q$(3)"L":Q$(4)"A":Q$(5)"S":Q$(6)"Z":Q$(7)"T":Q$(8)"O":Q$(9)" ":Q$(10)"T":Q$(11)"A":Q$(12)"N"YLr " 1 2 3 4": 10);"*";Ls"123456789 0123456789 0123456789 0123456789 0"LtQ$(17)" "MuQ$(13)"U":Q$(14)"L":Q$(15)"O":Q$(16)"K": IJ1834:Q$(IJ)Q$(IJ17):IJ: IJ3540:Q$(IJ)" ":IJMz I1 12jM 3);Q$(I);" ";I;10);"*";: J1 9: S$(I,J);:J: " ";:J1019: S$(I,J);:JM" ";: J2029: S$(I,J);:J:" ";: J30 39 : S$(I,J);:JMJ40: " ";S$(I,J);: (P%(I));(PK%(I))MIM?NXI12LE: INA11:A220:K14::"OSZLOPOK OSSZESITESE". IU150:IU::8000 Nl3);Q$(I);" ";I; 10);"*";: J19: S$(I,J);:J:" ";: J1019: S$(I,J);:J:" ";: J2029Nv S$(I,J);:J:" ";: J3039: S$(I,J);:J:J40:" ";S$(I,J);: (P%(I));(PK%(I))HO{ MU5 MU0: 10);"*";"123456789 0123456789 0123456789 0123456789 0"TO~MUMU1_O 8030O@: JA1A2: A121ʲ @(4K1)643J,(J);:J:: 8005OC JA1A2: @(4K1)643(JA11),(J);:JPE@(5K1)64,"================================================================"wPJ L1 3: @(5K1L)64,(L);"V";: JA1A2:@(5K1L)643(1A1J),(W%(L,J));:J:LPO @(6K13)64,"----------------------------------------------------------------"QT@(10K1)64,"+";: JA1A2: @(10K1)64(JA11)3,(O%(J));:JQWI$""DQY A11A121:A240:K14:8000 ]QZI$: I$"L" 8026Q[:: "1-ES VALASZOK SZAMA:";P%(N1): "2-ES VALASZOK SZAMA:";P%(N2):"3-AS VALASZOK SZAMA:";P%(N3)R\ "OSSZES VALASZTAS:";P1%,"KOLCSONOS VALASZTAS:";P3%R^ R N