{UNIM.B0 U??w?xϐ?ow]w_" U?^xӎ=Ǎw]wC@!??wMuu~xc}@B?_xt= ]}A?o}u}v~w]"?v08߆8s1x???4U:W:***********************YW:****** NIM J]T@K ******xW:***********************W:NIM.BAS0 file n`vvelW:k`sztette: KISS GY. 1988.10.W 1000:: I,JW A(100),C(100),B(100,10),D(2),H(20) XD[U2(112): I0 20:H(I)100(DI):SX H$" K`rem helyesen megadni! ":IP(41(H$))2oX KJ$(2)(4)"?"(20)X T$(6)(40,32):TR$(1)(6)" "X (1)::$6,0,(2)"K`red a szab}lyokat ? (I/N)"(1)X 148Y Y$"I" 139U : 170Y$15,0,(2)"'S'"(1)" indtja a j}t`kot.";FYY$: Y$"" 16UYW2:PK$""Y:$2,3,"K`rem a csoportok sz}m}t !":" (maximum: 6, minimum: 3)":$2,30,"";: 148:N(Y$)Y N6 N3 I1 3:(3)(7)(19);:: 18YY$QZ$5,2U,"@n }llitsam el{ v`letlenszeren a csoport elemeinek sz}m}t ? (I/N)": 148cZ Y$"N" 30qZ I1 NZA(I)(6)3ZSSSSA(I): C(I)A(I)Z IZ I1 N1: JI1 NZ A(I)A(J) 23Z J,I: 38`[:$2,3,"Add meg a Ucsoport elemeinek sz}m}t!":" (maximum: 12, minimum: 3)": (4)" EBBBEN AZ ESETBEN @N KEZDEK! "(1)m[PK$"PK"{[ I1 N[! 155["$I5,0,(6)"#####. csoport ";I;: A(I)[# A(I)3 A(I)15 $I5,16,(6)" ": 154: 34[$C(I)A(I)pU\% I3\&: $14,0,(2)"Csoport: Elv`tel: ";: 137=\' 157K\( I1 N\)$2I,0,"##. ";I;: J1 A(I):(138);: J: 138\* I\+ PK$"PK" 48\,$15,0,"Akarsz kezdeni ? (I/N) ";\- 148\. Y$"I" $15,0,(6)(40,32);: 111]cU / Y$"N" 172: 45"]0$15,0,T$;A]1:*** PRIMO KEZD *** "PK"R]2 FL1 111e]3G0:E0:PK$""o]4 137]5 YY$"*" $13,0,T$;:$13,0,(4)" @N L@P@SEM: "(1);]6C0: I1 N]7 A(I)0 58]8CC1: C3 62]9D(C)1^: I: UC1 SS1 156 :PR$!^; C2 69>^< A(D(1))1 156 :PR$^=$0,0,(1);:EFEF1:GR$"GRATUL]LOK!":GR1(GR$):$GR1,38,(4)" "(2)(GR$,GR,1)(18)" ";::$13,0,(1)T$;: 180: 161: 162^>C0: I1 N^? A(I)1 71^@ A(I)0 66_+UACC1 _B I#_C C2(C2)0 61,_D 71I_E A(D(1))1 156 :PR$f_F A(D(2))1 156 :PR$t_G I1 N_HEA(I)_I J0 10_JFE2:B(I,J)2(F(F)):E(F)_K J,I_L J10 0 1_MC0:H0_N I1 N_O B(I,J)0 4U82`PCC1: A(I)H 82%`QHA(I):GI-`R ID`S C2(C2) 87L`T Je`UE(N): A(E)0 85`VF(A(E)):A(E)A(E)F`WA(G)0`X J0 10`YB(G,J)0:C0`Z I1 N`[ B(I,J)0 93`\CC1`] Ia^A(G)A(G)2((C2(C2)nU )2J) a_ Ja`C0: I1 N.aa A(I)1 104Aab A(0)0 100KacCC1Sad Ikae C2(C2) 105yafAG1A(G)agA(G)1A(G)ah 105: 124ai I1 Naj A(I)C(I) GI:EC(I)A(I): 124ak Ial A(G)C(G) A(G)0 54 : U 124bm FL0 111bnMboFL1:$13,0,T$;:$13,24,(4)" Te k|vetkezel! "(1);Wbp 137mbq 148:X(Y$):EXbr SS6 116bs Y$"*" YY$"*":HPHP1:FL0: 49bt Y$"X" 156bu X1 XN A(X)0 (7);: 111cv$14,18,(6)(2)"#U ";X;:GX: A(X)1 E1: 121*cw 148:E(Y$)Kcx E1 EA(G) 172: 119fcy$14,38,"#";E;:(1);vczA(G)A(G)Ec{ 105: 124c|:******** L@P@S MEGT@TELE ********c}$14,18,(20)(2)(6)((G),1);d~$14,38," ";:$14,38,((E),((E)U )1);(1);#d EEA(G)E1 A(G) 1Ad$2G,EE4,(6)" ";: 172Jd EEjd$2G,25,(6)" ##";A(G);dSS0: U1 N:C(U)A(U):SSSSA(U): Ud SS1 FL1 161 : SS1 FL0 156d YY$"*" FL1:YY$""d FL0 FL1 : UU FL0e FL0 48 : 111*e R00 1000:pe$14,18,(6)" ";:$14,38," ";:$14,18,KJ$;:$14,38,KJ$(1);:e$2I,25,(6)" ":$2I,25," ## elem";A(I):e: $0,5,(2)"J}t`kszab}lyok:"(1)e)f"Egy fiatal di}k haj[n uta^Uzott, ahol a":"matr[zok meghvt}k p[kerezni."f"A di}k az utols[ fill`r`t is elvesztette.":"M}snap { hvta meg a matr[zokat egy":"`rdekes j}t`kra:"f"V`letlenszeren kirakott n`h}ny kupac":"gyuf}t, `s kihirdette a j}t`kszab}lyt:"zg"Felv}ltvUa vesz~nk el a kupacokb[l.":"B}rmennyit elvehetsz, ak}r az eg`sz cso":"m[t. Egy h_z}s sor}n csak "(5)"egy"(1)" csoportb[l"g"lehet elvenni.":"'x'- j}t`k felad}sa, '*'- PRIMO segt."g(5)"Az veszt, aki az utols[ gyuf}t veszi el!"(21)gU hY$h 16452,183%h Y$"" 1482h 70,150Dh U0 150:Jhdh$15,IP,(4)H$(1);:h$15,0,(6)(41,32);:hPRPR1:PR$"@N GY{ZTEM!": I1(PR$):$I1,15,(4)" "(2)(PR$,I,1)(18)" "TR$: I:$13,0,(1)T$;: 177: 161: 1622U!i$0,0,(6)(2)"PRIMO:## -## Ellenf`l";PR,EF;:(1);Wi R00255:(R0,191):(R0,180):~i R0180 191:(0,R0):(255,R0):ii$0,12,(6)(2)"## -##";PR,EF: R050 200:(R0,180)::i$14,0,(6)(2)"J}tszunk m`g ? I/N "(1);i 1U"48j Y$"I" 18#j Y$"N" 163j:$3,2,(2)"K|sz|n|m a j}t`kot!":$6,10,"Az eredm`ny:":$8,0,"PRIMO:## -## Ellenf`l";PR,EF;:(1)j HP0 PREF C$"Pedig "(HP)"-szer segtettem!": 171k HP0 EFPR C$"Igaz, hogy "(HP)" U#esetben segtettem!": 171Ek EFPR C$"Nem brtunk egym}ssal!": 171k EFPR C$"GRATUL]LOK A GY{ZELEMHEZ!" : C$"Ez logikai j}t`k! Gondolkozni kell!"kTB(41(C$))2:$11,TB,C$:$0,0,"":k IJ1 20 k 3IJ,IJ2k IJ:4l:HU$" "(4)" Kiss Gergely j}t`ka (l989.05.) "(1)" (27)"ZlI"NIM.BAS0",S,180,191,B,1,180:kl 178:HH100l 0,150,3,75,7,75,5,150,12,150,7,300l W1 6: D,F: H(D),2F::lHH150: H(7),HH;H(5),HH;H(3),HH;H(7),HH;H(5),2HH;H(7),2HH:U%A#"@!]=U&'AX