UDOMINO.BG mU SdU:******************S:***** DOMIN[ *****S:******************"T:K`sztette: Kiss Gy|rgy, 1991.08.?T,:DOMINO.BG file n`vvelUT^ 999:(6)(1):aT: 500sT 3800::L01T D$(50),DD$(50),P(4,50),S(2,20)T& Q$(2,50),S$(15),!UU$(2,50),PO(2,50)TX I1 20 U P(1,I),P(2,I):k P(1,I),P(2,I),P(1,I)20,P(2,I)20,1U I'U I38 21 1bU  P(1,I),P(2,I):k P(1,I),P(2,I),P(1,I)20,P(2,I)20,1jUR IyU I1 12U@ S(1,I),S(2,I):k S(1,I),S(2,I),S(1,I)20,S(2,I)NU20,1UUYS(2,2)24:Q$"Domin["Ur 25,Y,2,3,1,"Benedictus Domino"@V I0 3000:: I1 150:C 0,Y,P(1,20),Y25,1: J0 10::NV I1 6tVB24(I1)312:J20111212IIVC B8,Y,J,Y25,JBVr B,Y3,5,3,1,(Q$,I,1)VIUVYS(2,2)24V I2 38 2W I12 I14 I16 I28 I26 I30 @W I19 W$(((I2)),1):X2:: W$(((I2)),2):X4W I18 I20 XXP(1,I1):YYP(2,I1)1:j XX,YY,XX,YY18,0:r XXX,YY5,1,1,1,W$:W I22 I24 UXXP(1,I1):YYP(2,I1):j XX,YY1,XX,YY19,0:r XXX,YY5,1,1,1,W$: 1757AXj P(1,I),P(2,I)1,P(1,I),P(2,I)19,0:r P(1,I)X,P(2,I)6,1,1,1,W$IX I]X I12 16 2XX1P(1,I)1:Y1P(2,I)20:X2P(1,I14)1:Y2P(2,I14)Xj X1,Y1,X118,Y1,0:?Uj X2,Y2,X218,Y2,0Xr X17,Y14,1,1,1,(((I2)),1)Yr X23,Y24,1,1,1,((((I14)2)),2)Y I:Y I1 45: D$(I)::WW88@YOY II1 2^Y4 I1 35|YfX(45): D$(X)"" 2150YDD$(I)D$(X):D$(X)""Y IYK45: I1 U 45Y. D$(I)"" DD$(K)D$(I):KK1Y` IZ I1 45:D$(I)DD$(46I): Z IIZ I1 45DZ( Q$(1,I)(DD$(I),1):Q$(2,I)(DD$(I),1)LZZ IiZ I2 4:D$(I)DD$(I):Z I5 19:D$(I)"":Z l P(1,1)1,P(2,1)1,P(1,2)19,P(2,2)1`U 9,0Z j P(1,1)20,P(2,1),P(1,1)20,P(2,1)20,1Z" KB19:KJ2:DD4:L01[, I0 7*[6 _ 0,Y,255,Y28,1: J0 50:0[@ >[J I1 6`[L r S(1,2I)5,Y,2,1,1,(64I)h[N I[T r P(1,1)5,P(2,1)6,2,1,2,Q$(1,1):r P(1,2)5,P(2,2)6,2,1,2,Q$(2[U,1)[ I1 6[ I 1 3100\ r S(1,I)5,S(2,I)6,2,1,1,Q$(2,(I3)2): 31504\ r S(1,I)5,S(2,I)6,2,1,1,Q$(1,(I3)2)<\N I[\ I2 4:S$(I1)DD$(I):\ :*** itt kezd{dik a j}t`k ***\ L01 UB$Q$(1,1):UJ$Q$(2,1)\ $11,U 19,(6)" ":$11,12,"L`p`s: "(2);: 16452,183: L$]H _ 0,19175,255,131,8:$0,0,(1);]z 4650&] 3250] 107,22,127,22,129,45,149,45,151,22,171,22,173,45,193,45,195,22,215,22,216,45,216,65,193,66,193,86,216,88,216,108,193,108,173,108,1U 71,86,151,861^ 105,45,85,45,83,22,63,22,61,45,41,45,39,22,19,22,18,45,18,65,41,66,41,86,18,88,18,108,41,108,61,108,63,86,83,86a^B 18,185,18,165,40,185,40,165,62,185,62,165^t 172,185,172,165,194,185,194,165,216,185,216,165$_ 00,01,02,03,04,05gU ,06,07,08,11,12,13,14,15,16,17,18,22,23,24,25,26,27,28,33,34,35,36,37,38,44,45,46,47,48,55,56,57,58,66,67,68,77,78,88*_K_ $0,9,(2)"J}t`kszab}ly"(1)}_<$2,0,"18 db domin[-kock}t kell elhelyezned."$`n"Ha az "(2)"A,B,C"(1)" jel helyen van meg*U felel{";:"akkor onnan. Ha ott nincs, k`rhetsz a ":(2)"D"(1)"-re, majd az "(2)"E"(1)"-re, ill. "(2)"F"(1)"-re"3`"domin[t"`"Ha gy sem tudod folytatni, k`rhetsz":"a '*'-gal J[kert, amelyikhez b}rmit il-":"leszthetsz.""a"a l`p`st a kiv}U lasztott domin[ megnevez`-":"s`vel, `s a hely`nek sz}m}val kell meg-":"adni. Pl: D5, vagy *12 "(4)" RETURN "(1)a6"Pontoz}s: 'A','B','C'-r{l felhaszn}lt do-":"min[ +200 pont, 'D','E','F'-re k`rt do":"min[: -200 pont, J[ker -500 pont.";:$0,0,"";7UahX$(2)"J[ j}t`kot kv}nok!"(18)a I0 3000:b I1 8:I 0,191,255,170,1: J0 100::+b I1 (X$)@b0$0,40,(X$,I,1)XbbC 0,191,255,170,11`b Irb "" 4550xbb*:*** l`p`s ellen{rz`se ***b\ (L$,1)"*" 4U900bB$(L$,1): B$"A" B$"F" 5400: 3250c (L$)3 5400: 3250c (L$)1 5500: 5350~ :~ "@:DOMINO.BG":~ :~ $:kgp UJ$(S$(E3),1) UJ$(S$(E3),1)(S$(E3),1) : UJ$S$(E3)gE12E31:l S(1,E1)1,S(2,E1)1,S(1,E11)19,S(2,E11)19,2: U"U0 500::l S(1,E1),S(2,E1),S(1,E11)20,S(2,E11)20,0Khk S(1,E1),S(2,E1),S(1,E1)20,S(2,E1)20,1:k S(1,E11),S(2,E11),S(1,E11)20,S(2,E11)20,1hE0(1E1)2:DDDD1:r S(1,E1)5,S(2,E1)6,2,1,1,Q$(1,DD):r S(1,E11)5,S(2,E11)6,2,1,1,Q$(2U#,DD)::U$(1,***h8 ST11 KJKJ1ij ST10 KBKB1:U$(1,KB)(S$(E0),1):U$(2,KB)(S$(E0),1): 6500JiU$(1,KJ)(S$(E0),1):U$(2,KJ)(S$(E0),1)jS2ST1:l P(1,S),P(2,S),P(1,S)20,P(2,S)20,0:k P(1,S),P(2,S),P(1,S)20,P(2,S)20,1:l P(1,SU$1),P(2,S1),P(1,S1)20,P(2,S1)20,0:k P(1,S1),P(2,S1),P(1,S1)20,P(2,S1)20,1Sjr P(1,S)5,P(2,S)6,2,1,2,(UJ$,1):r P(1,S1)5,P(2,S1)6,2,1,2,(UJ$,1)dj UJ$(UJ$,1)j2 L01 l P(1,1)1,P(2,1)1,P(1,2)19,P(2,2)19,2:L00jdj URU%B$(S$(E3),1) UB$(S$(E3),1)(S$(E3),1) : UB$S$(E3)kl P(1,1)1,P(2,1)1,P(1,2)19,P(2,2)19,2ik:TEXT P(1,1)+5,P(2,1)-6,2,1,2,Q$(1,1):TEXT P(1,2)+5,P(2,2)-6,2,1,2,Q$(2,1)k,:*** ha J[ker ut}n kell rakni ***Jl6S2ST1:l P(1,S),P(2,S)pU&,P(1,S)20,P(2,S)20,0:k P(1,S),P(2,S),P(1,S)20,P(2,S)20,1:l P(1,S1),P(2,S1),P(1,S1)20,P(2,S1)20,0:k P(1,S1),P(2,S1),P(1,S1)20,P(2,S1)20,1l@r P(1,S)5,P(2,S)6,2,1,2,"J":r P(1,S1)5,P(2,S1)6,2,1,2,"J"lJ ST11 UJ$"*" : UB$"AU'*"l^l':*** J[ker ut}n ***m'$5,4,(1)(16)"Melyik fel`vel csatlakozz`k ? ";m'Y$: Y$"" 10015\m$' (S$(E3),1)Y$ (S$(E3),1)Y$ 300,1000: 10015{m.' ST11 UJ$Y$ : UB$Y$m8'Y$;mB'mpr S(1,2I)5,Y,2,1,1,(64I)Ī((