& ** D O M I N O **!] K.Berg * W.Sch}tze 5.92/9.95/4.96/12.96/6.97 * KC85/3 Spieltasten-Versionen 1 und 2 H|chste Farbe w{hlbar Zeichentabellen ab BA00H (DATA) Auf HCBASIC2 lauff{hig! 14250,0 : 14251,186I E1 :A11 :X160 :XS0 :PS0 :PR0 :M1171 :M2172 :QF0 :QS0 OA(66),UA(66),S1(25),S2(25),R1(25),R2(25),F(10)SS$"SPIELER" :RR$"RECHNER" 6010d 255,255,255,255,255,255,255,255i 255,255,255,239,255,255,255,255n 255,251,255,255,255,191,255,255Cs 255,251,255,239,255,191,255,255ix 255,187,255,255,255,187,255,255} 255,187,255,239,255,187,255,255 255,171,255,255,255,171,255,255 255,171,255,191,255,171,255,255 255,171,255,187,255,171,255,255' 255,171,255,171,255,171,255,255M 255,155,183,239,219,179,255,255l 0,11,7,4,2,6,13,10,5,3,9 0,0,0,0,0,0,0,0 0,0,0,16,0,0,0,0 0,4,0,0,0,64,0,0 0,4,0,16,0,64,0,0 0,68,0,0,0,68,0,0 0,68,0,16,0,68,0,0 0,84,0,0,0,84,0,0* 0,84,0,64,0,84,0,0C 0,84,0,68,0,84,0,0\ 0,84,0,84,0,84,0,0x 0,100,72,16,36,76,0,0 7,7,7,7,7,7,7,7,7,7,7 0,0,195,36,126,255,255,126  195,36,126,219,255,126,66,129  ------------------  S1 RG!  SI 570E  R1(S)NE R2(S)NE KHKH1i 0 R1(S)AN R2(S)AN KHKH1t : S : JDO :DODU :DUJ ZERZ :SRRN :RWDU : 0 % UR 810,830,850 * (ZE5,SRSR19); F(DO);(DOX) , (ZE5,SRSR20); F(DU);(DUX) :SRSR1A 4 SR5 RNSR : UR3 :RZRZ1 :RN19G 9n > (ZE5,28SRSR); F(DU);(DUX) @ (ZE5,29SRSR); F(DO);(DOX) :SRSR1 H SR4 RNSR : UR3 :RN12 M R (ZE5,SR9); F(DO);(DOX) T (ZE6,SR9); F(DU);(DUX)G \ RN19 UR1 :RZRZ2 :RN1 : UR2 :RZRZ1 :RN1M ]c JDO :DODU :DUJ ZELZ :SRLM :LWDU : 0  UL 910,930,950  (ZE5,19SRSR); F(DU);(DUX)  (ZE5,20SRSR); F(DO);(DOX) :SRSR1  SR5 LMSR : UL3 :LZLZ1 :LM2 F  (ZE5,SRSR10); F(DO);(DOX)w  (ZE5,SRSR11); F(DU);(DUX) :SRSR1  SR4 LMSR : UL3 :LM9   (ZE5,SR9); F(DO);(DOX)  (ZE6,SR9); F(DU);(DUX)  LM2 UL1 :LZLZ2 :LM1 : UL2 :LZLZ1 :LM1$ ?  :PA1((DV1)(1))O  QPA DVk  OA(Q)A 2050 : Q|  Q1 PA1  OA(Q)A 2050 : Q  DOOA(Q) :DUUA(Q) :OA(Q)A :UA(Q)A :DADA1  (3,18); 7,2;DA  ZS4 :SS2  J1 SR SSSS35 SS7 SS1 :ZSZS3 @ J :P 3200 : 0o (ZS,SS); F(DO);(DOX) (ZS,SS1); F(DU);(DUX) FS,4 : (ZS1,SS);(SR64)   3200 (ZS,SS30); FR;" " H 3200 : 4(M (ZS,SSKE);" " : (ZS1,SSKE);" " : 0;R KE30 3425qW DOS1(SR) :DUS2(SR) :S1(SR)A :S2(SR)A :SGSG1w\ a DOR1(SR) :DUR2(SR) :RGRG1b JSR RG1c R1(J)R1(J1) :R2(J)R2(J1)f J : 27,31,11,28 : 5,6 : : 0,4 : 4,28,31,39 : : FR; I1RG3 :I2(I1) :I33(I1I2)M I20 3530\ S1 I2t (3," "(9)) :| S I30 3550 S1 I30.05 " "(9); S 27,31,12,29 : 7 :IN$ IN$"" 3600$IN(IN$) :tIN$#~ IN$"" 3750?PZPZ1 : PZ0 3700 e (29,18); 12,6;(M1)" "(M2)JM1 :M1M2 :M2J :PZ5 : 3700IN(IN$) : -------------------------- 3460 : RR$" LEGT AN" :BS0 (1,1); 0,4;SS$" " : (1,32); 7,4;RR$$LK0 :V13 IV RGMAL1 :NER2(I) :ANRWs R1(I)LW KH0 : KH1 : 520 KHLK LKKH KH1 4390AL2 :NER1(I) R2(I)LW KH0 : KH1 : 520 KHLK LKKH KH1 4390AL3 :NER2(I) :ANLW: R1(I)RW KH0 : KH1 : 520N KHLK LKKHa KH1 4390tAL4 :NER1(I) R2(I)RW KH0 : KH1 : 520 KHLK LKKH KH1 4390 I : 4700&SRI :KE30 : 3400+ AL 900,899,800,7990 3500!: RG0 4500UX 3460 : 7;RR$" SIEGT!" :CS0 :CR2 : 7305y 3460 : SS$" IST DRAN" :BR0 VS1 : 5560 (1,1); 7,4;SS$ : (1,32); 0,4;RR$  VS1 5575 : 3700 IN$"A" IN$"Z" 4505 IN$"Z" 4900 : TAIN64: : 7,0;(9)" "IN$" ";U S1(TA)A : 4562 " WOHIN? "; : 20,3;" ";(136);"\";(137);" " 3600 (IN8 IN9) 4560 IN8 4610 : IN9 4570 VS1 5610 : 11); 10,2;"FEHLER!"; : : 12 : 4500+SRTA :KE0S S1(TA)RW 3400 : 800 : 4590| S2(TA)RW 4560 : 3400 : 799 SG0 4250 3460 : 7;SS$" SIEGT!" :CS2 :CR0 : 7305SRTA :KE0 S1(TA)LW 3400 : 900 : 4590 4  S2(TA)LW 4560 : 3400 : 899 : 4590g\ DA0 BRBZ RG25 4750 : BR0 4720f 3460 : RR$" ZIEHT"pBRBR1 : (27,25); 7,0;BRz 2000 :RGRG1 :LK0 :VRG : 0,4 I1 25 R1(I)A I : 4746R1(I)DO :R2(I)DU :SRI :I250 I : 3350 : 4270l 3460 : 0;RR$" SETZT AUS" : 12 ~ DA0 4500 I1 25 S1(I)A I : 7160 S1(I)RW S1(I)LW S2(I)RW S2(I)LW 4500 I : 7160#$ DA0 BSBZ SG25 4960 : BS0 4907>) (16)SS$" ZIEHT "_+BSBS1 : (27,25); 7,0;BSs. 2000 :SGSG18 I1 25= S1(I)A I : 4940BS1(I)DO :S2(I)DU :SRI :I25L I : 3300 : 5,6 : 4505` (29,2); 10,2;" KANN " : (30,2); 10,2;" NICHT"Bj 3460 : 0;SS$" SETZT AUS" : 12yo (29,2); 0,4;" Z= " : (30,2); 0,4;"ZIEHEN"t 4250 7;(139); : 0;"ABC";10);"abc"; 7;(139) (1,1); 7,4;SS$ : (1,32); 0,4;RR$  3700- IN$"Z" 4900 : (29,18); 7,0;" "IN$" "] IN$"A" IN$"Z" TAIN64 : 5600  IN$"a" IN$"z" TAIN96 : 5605 5610 S1(TA)A 5610 : 4610 S1(TA)A 5610 : 4570 (30,16); 10,2;"FEHLER!" : 8 : 4500/p ------------------Sz (131) : 0,4 : 0,31,0,39 :w 7,3 : 5,24,10,29 : :XSXS1 8,15,15,24 : (11,"*")(8," "); "** DOMINO **"(8," ")(11,"*") 17,24,11,29 : 10 :"(C) BY KLAUS BERG" : : , " Bearbeitung:" : : " W.SCH}TZE" T 0,4 : (1,1);SS$ : (1,32);RR$ n 5,5 : 0,4,10,16 : (1,11);"SPIEL" : (3,11);"BANK" 6 : 0,4,17,29 : (3,18); 2;4) : (3,23);"Steine" I1 2 (1,17I); 4I,I;(4,(255)(9)(9)) IN 25,31,10,29 : 6 : : " ___SPIELLEITUNG__"Y 3460 7;"TAST-VERS. (1/2)?" : 3600 (IN$"1" IN$"2") 3600 : 6115VS(IN$) : (25,29); 12;((VS),2); : "FARBIG (F)?" : 3600  IN$"F" 6142> QF0 100 :FR2 :FS0 :QF1 :QS0 : 6145I 6170| QS0 200 :FR0 :FS7 :QS1 :QF0 : 6145 6170 I14848 14935 : ZB : I,ZB : I I0 10 : ZB :F(I)ZB : I  260  I14936 14951 : ZB : I,ZB : I  : "BIS: ";'  I0 10> $ F(I),0;(IX);F ) IU . I4 10p 3 1,4I : " "(139); 8 3600 : IN9 I : 6170 = IN13 6195 : DWI :DV0 ? (26,29); F(DW),0;(DWX) B I1 DW1 :DVDVI : I :DADV!G (3,18); 7,2;DA6!L : "ZIEH-LIMIT (1-9)?" : 3600k!Q IN$"1" IN$"9" 3600 : 6225 : BZIN48!V (27,29); 0;IN$!d : 5,2;(9)" SPIEL BEGINNT! "!iZ0!n I0 DW : J0 I!sZZ1 :OA(Z)I :UA(Z)J : J,I! I0 25$"S1(I)A :S2(I)A :R1(I)A :R2(I)A/" I :=" I1 6j" 2000 :S1(I)DO :S2(I)DU :SRI : 3300x" I :SG6" I1 6" 2000 :R1(I)DO :R2(I)DU :SRI : 3350" I :RG6" (29,2); 0;" Z= " : (30,2); 0;"ZIEHEN"# (29,33); 7,0;((PS)" ",2,2) A# (30,33); 7,0;((PR)" ",2,2)o# (29,31); 0;"S-" : (30,31); 0;"R-" # (29,37); 0;"Sp"# (30,37); 14,0;((XS)" ",2,2);# 5,24,10,29 : 6,7 :#LM1 :RN1 :LZ1 :RZ1 :UL1 :UR1$ JDW 0 1$ I1 6<$ (S1(I)J S2(I)J) I : 6635]$KE0 : 3460 : SS$; : 6668k$ I1 6$ (R1(I)J R2(I)J) I : 6655$KE30 : 3460 : RR$; : 6668$ J : 3460 : :$ 12;" *NEUSTART WEGEN FEHLENDEM PASCH!"%  12 : 3460 :DADV : 6500C%  " BEGINNT MIT H|CHSTEM PASCH"b%SRI : 3400 :LWDO :RWDU% (6,19); F(DO);(DOX) : (6,20); F(DU);(DUX)% KE30 3500% 10%" KE0 4250 : 4500% 3460 : 7 : "SPIEL IST VORBEI" :*& "DIE ZIFFERNSUMME ENTSCHEIDET" : 15H&  3,31,0,9 : 4 : :GS0 W& I1 25s& S1(I)A I : 7220&  " "; : F(S1(I)),0;(S1(I)X);&! F(S2(I)),0;(S2(I)X) : 4;10);&*GSGSS1(I)S2(I) : I&4 0;" =";GS'> 3,31,30,39 : :GR0'C I1 RG;'E R1(I)A I : 7260e'H " "; : F(R1(I)),0;(R1(I)X);'I F(R2(I)),0;(R2(I)X) : 4;10);'RGRGRR1(I)R2(I) : I'\ 0;" =";GR 'f 3460 : 7'g (1,1); 0,4;SS$ : (1,32); 0,4;RR$ !(h GSGR 7290 : GSGR 7300L(p "UNENTSCHIEDEN!" :CS1 :CR1 : 7317t(z SS$" SIEGT!" :CS1 :CR0 : 7317( RR$" SIEGT!" :CS0 :CR1 : 7317( (27,26); 0;"Rest" : (28,26); 0;DA ( 4 : 29,31,0,9 : : 29,31,30,39 :) 0,4,10,29 : 6,3 :G) 5;" SPIELSTAND NACH ";: 14,0;((XS)" ",2,2)m) : " "SS$":" : " "RR$":")PSPSCS :PRPRCR :F110 :F210) PSPR F17 : 7329) PSPR F27) (2,21); 2,0;"+"((CS),2)"=" * (2,24); F1,0;((PS)" ",3)2* (3,21); 2,0;"+"((CR),2)"="\* (3,24); F2,0;((PR)" ",3) : 15* (30,11); 5,1;"NEUES SPIEL? (J/N)"* 3700 : IN$"J" 6010: IN$"N" 7360* (130) : 0,31,0,39 : 7,1 : : :30,11); 5,1;"NEUES SPIEL?