home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-12_1985_Verlag_Heinz_Weise_de.d64 / K (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  214 lines
  1. 1 printchr$(142)chr$(8):poke53269,0:if(peek(50307))=120thenpoke50257,0:poke55,0:poke56,128
  2. 5 gosub681:gosub1049
  3. 9 gosub751:
  4. 11 gosub583::ifaf=1thengoto19
  5. 15 ifaf=2thengoto33
  6. 19 ko=1:na$=n1$:sp=1:ifen=1then961
  7. 21 gosub529:en=0:gosub239:ifen=1then961
  8. 25 ko=3:gosub529:poke198,0:gosub165:
  9. 29 ifa(i)=2ora(i)=4ora(i)=6thenin=i:gosub271:gosub195:i=i-1:ifi=0theni=12
  10. 31 ifa(i)=2ora(i)=4ora(i)=6then29
  11. 33 ifco=1then71
  12. 51 ko=1:na$=n2$:sp=2:ifen=1then961
  13. 53 gosub529:en=0:gosub257:ifen=1then961
  14. 57 ko=3:gosub529:poke198,0:gosub165:
  15. 61 ifa(i)=2ora(i)=4ora(i)=6thenin=i:gosub271:gosub195:i=i-1:ifi=0theni=12
  16. 63 ifa(i)=2ora(i)=4ora(i)=6then61
  17. 65 goto19
  18. 71 sp=2:na$=n2$:ifen=1then961
  19. 73 en=0:gosub97:ifen=1then961
  20. 77 tn=2:gosub335:ko=3:gosub529:gosub165
  21. 81 ifa(i)=2ora(i)=4ora(i)=6thenin=i:gosub271:gosub195:i=i-1:ifi=0theni=12
  22. 83 ifa(i)=2ora(i)=4ora(i)=6then81
  23. 85 goto19
  24. 97 z=0:fori=1to6::a=a(i):ifa=0then113
  25. 103 :b=int((a+i)/12.01):a(i)=0::in=(a-(b*12))+i:ifa<12andb>0thenb=b-1
  26. 107 :c=a(in)+1+b::ifc=2orc=4orc=6thenz=z+1:b(0,z)=c:b(1,z)=i
  27. 111 :a(i)=a
  28. 113 next:ifz=0then137
  29. 119 fori=1toz::forii=itoz::ifb(0,i)<b(0,ii)then129
  30. 125 :b=b(0,i):b(0,i)=b(0,ii):b(0,ii)=b::b=b(1,i):b(1,i)=b(1,ii):b(1,ii)=b
  31. 129 :next:next:in=b(1,z):goto147
  32. 137 i=int(rnd(1)*6)+1:ifa(i)<>0then145
  33. 139 fori=1to6::ifa(i)<>0then145
  34. 143 next:en=1
  35. 145 in=i
  36. 147 return
  37. 165 z=0:i=in:an=a(i):a(i)=0:gosub195
  38. 169 z=z+1:ifz>anthen177
  39. 171 i=i+1:ifi=13theni=1
  40. 173 a(i)=a(i)+1:gosub195:goto169
  41. 177 return
  42. 195 a$="":b$=a$:d=0:a$=str$(a(i)):b=len(a$)-1:b$=left$("00",2-b)+right$(a$,b):forwa=1to4::ifi<7thend=1-d:printleft$(do$,8)left$(le$,i*6-3)a$(d);
  43. 205 :ifi>6thend=1-d:printleft$(do$,15)left$(le$,(13-i)*6-3)a$(d);
  44. 207 :print"[145][157][157][157]"b$::forw=1to30::next:next:tn=1:gosub335:return
  45. 239 forii=7to12::ifa(ii)<>0then245
  46. 243 next:en=1:goto249
  47. 245 nn=07:in=nn:gosub421
  48. 249 return
  49. 257 forii=1to6::ifa(ii)<>0then263
  50. 261 next:en=1:goto267:
  51. 263 nn=06:in=nn:gosub421
  52. 267 return
  53. 271 an=a(in):a(in)=0:tn=4:gosub335:ifsp=2thenbs=1024+8*40+01:fb=55296+8*40+01
  54. 275 ifsp=1thenbs=1024+8*40+38:fb=55296+8*40+38
  55. 277 fori=1toan::pokebs+i*40,81::pokefb+i*40,3:next:i=bs+40:bs=bs+an*40:fb=fb+an*40
  56. 287 pokei,32::bs=bs+40:fb=fb+40:i=i+40::ifbs<1784thenpokebs,81:pokefb,3
  57. 293 :forwa=1to90::next::ifbs<1784thenpokebs,81:pokefb,3
  58. 299 ifi<1784then287
  59. 301 ifsp=2thenf1=f1+an
  60. 303 ifsp=1thenf2=f2+an
  61. 305 a$=str$(f1):b=len(a$)-1:b$=left$("00",2-b)+right$(a$,b):printleft$(do$,22)left$(le$,16)""b$:a$=str$(f2):b=len(a$)-1:b$=left$("00",2-b)+right$(a$,b):printleft$(do$,22)left$(le$,34)b$:iff1>35orf2>35thenen=1
  62. 315 i=in:return
  63. 335 s=54272:forq1=0to2:tt=q1*7:pokes+5+tt,0:pokes+6+tt,240:pokes+2+tt,160:pokes+3+tt,15:next:pokes+24,15:ontngoto343,357,373,385,397
  64. 343 forq1=30to40step2:pokes+1,q1:pokes,200:pokes+4,17:forqq=1to10:next:pokes+4,16:forqq=1to10:next:next:return
  65. 357 rr=int(rnd(1)*20)+20:forq1=1to05:pokes+1,rr:pokes,200:pokes+4,33:forqq=1to20:next:pokes+4,32:forqq=1to20:next:next:return
  66. 373 rr=sp*20+20:pokes+1,rr:pokes,200
  67. 377 pokes+4,129:forqq=1to20:next:pokes+4,0:return
  68. 385 forq1=1toan:rr=int(rnd(1)*20)+20:forq2=1to5:pokes+1,rr:pokes,200:pokes+4,17:forqq=1to20:next:pokes+4,16:forqq=1to20:next:nextq2:next:return
  69. 397 pokes+1,60:pokes,200:pokes+4,33:forq1=1to10:next:pokes+4,32:return::
  70. 421 y=34:x=8:zz=0:ifin>6thenx=15
  71. 423 v=53248:p2=56320:pokev,y*8+24and255:pokev+16,1:pokev+1,x*8+60:pokev+21,1:dr=peek(p2+2):pokep2+2,224:js=peek(p2):pokep2+2,dr:pokep2,127
  72. 429 js=peek(p2)and28:pokep2,127:pokep2+2,dr:ifjs<>28then455
  73. 433 geta$:ifa$<>""then455
  74. 435 f=f+1:iff=255thenf=0
  75. 437 zz=zz+1:ifzz<200then453
  76. 439 zz=0:ko=4:gosub529:ifb$<>"i"then453
  77. 441 pokev+21,0:gosub1105:gosub583:fori=1to12:a$="":b$="":a$=str$(a(i)):b=len(a$)-1:b$=left$("00",2-b)+right$(a$,b)::ifi<7thenprintleft$(do$,11)left$(le$,i*6);"[145][157][157]"b$
  78. 449 :ifi>6thenprintleft$(do$,18)left$(le$,(13-i)*6);"[145][157][157]"b$
  79. 451 next:gosub665:gosub305:pokev+21,1:zz=0
  80. 453 pokev+39,f:fori=1to10:next:goto429
  81. 455 pokev+39,4:zz=0:ifa$=""orjs=24thengoto467
  82. 459 ifa$=""orjs=20thengoto483
  83. 461 ifa$=" "orjs=12thengoto499
  84. 463 ifa$="i"thengoto441
  85. 465 goto429
  86. 467 y=y-6:ify<2theny=y+6:goto429
  87. 469 in=in+1:ifnn=6thenin=in-2
  88. 471 yy=y*8+24:tn=3:gosub335:fori=yy+6*8toyystep-2::ifi>255thenpokev,iand255:pokev+16,1
  89. 477 :ifi<256thenpokev,i:pokev+16,0
  90. 479 next:poke198,0:goto429
  91. 483 y=y+6:ify>38theny=y-6:goto429
  92. 485 in=in-1:ifnn=6thenin=in+2
  93. 487 yy=y*8+24:tn=3:gosub335:fori=yy-6*8toyystep2::ifi>255thenpokev,iand255:pokev+16,1
  94. 493 :ifi<256thenpokev,i:pokev+16,0
  95. 495 next:poke198,0:goto429
  96. 499 ifa(in)=0then429
  97. 501 pokev+21,0:tn=2:gosub335:return::
  98. 529 onkogoto531,535,539,543
  99. 531 a$="        "+na$+"  du bist am zug         ":l=len(a$):goto545
  100. 535 a$="         das feld ist leer !!    ":l=len(a$):goto545
  101. 539 a$="         ok. genommene bohnen : "+str$(a(in))+"  ":l=len(a$)
  102. 541 goto545
  103. 543 a$="            >>>>  i = spielinfo  >>>>  i = spielinfo  >>>>  ":l=len(a$)
  104. 545 fori=1tol:printleft$(do$,24)left$(le$,3);::printmid$(a$,i,33):getb$:ifb$<>""then555
  105. 551 forii=1to30:getb$:ifb$<>""then555
  106. 553 nextii,i
  107. 555 a$="********** k a l a h a **********":printleft$(do$,24)left$(le$,3);:fori=1tolen(a$):printmid$(a$,i,1);:next:return::
  108. 583 poke53280,0:poke53281,0:print"[147][146]-------------------------";:print"--------------------------";
  109. 589 print"   [158]k a l a h a   -------";:print"-------------------------";:print"--------------------     ";:print"                         ";:print"                 [149][176][195][195][195][195][195][195][195]";:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]     ";
  110. 601 print"       [149][194]  [158]          [158]:dein";:print"e mulden [149][194]            [149][173][195][195]";:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";:print"         [213][195][195][201]  [213][195][195][201]  [213][195][195][201]";:print"  [213][195][195][201]  [213][195][195][201]  [213][195][195][201]     [158][213][195]";
  111. 611 print"[195][201][194] [158][213][195][195][201][194] [158][213][195][195][201][194] [158][213][195][195][201][194] [158][213][195][195]";:print"[201][194] [158][213][195][195][201][194]     [158][194]06[158][194][203][158] [194]06[158][194][203][158] ";:print"[194]06[158][194][203][158] [194]06[158][194][203][158] [194]06[158][194][203][158] [194]06[158][194][203]  ";:print"   [158][202][195][195][203]  [202][195][195][203]  [202][195][195][203]  [202][195][195][203]";:print"  [202][195][195][203]  [202][195][195][203]          [149][176][195][195]";
  112. 621 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";:print"            [149][194] [158]          [158] ";:print":deine mulden [149][194]          ";:print"  [149][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";:print"[195][195][195][195][189]         [213][195][195][201][160][160][213][195][195][201][160]";:print"[160][213][195][195][201][160][160][213][195][195][201][160][160][213][195][195][201][160][160][213][195][195][201]  ";
  113. 633 print"   [158][213][195][195][201][194][158][160][213][195][195][201][194][158][160][213][195][195][201][194][158][160][213][195][195][201]";:print"[194][158][160][213][195][195][201][194][158][160][213][195][195][201][194]     [158][194]06[158][194][203][158][160][194]";:print"06[158][194][203][158][160][194]06[158][194][203][158][160][194]06[158][194][203][158][160][194]06[158][194][203][158][160][194]0";:print"6[158][194][203]     [158][202][195][195][203][160][160][202][195][195][203][160][160][202][195][195][203] ";:print"[158][160][202][195][195][203][160][160][202][195][195][203][160][160][202][195][195][203][160]       ";
  114. 643 print" [158]                        ";:print"             [213][195][195][195][195][195][195][195][195][195][195][195]";:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195]";:print"[195][195][195][195][195][195][195][195][195][195][195][195][201][194]  [194]        ";:print"     :00 [194]             :0";
  115. 655 print"0 [194][194]  [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177]";:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][194]  [194] [159]**";:print"******* k a h l a h a ***";:print"****** [194][203]  [202][195][195][195][195][195][195][195][195][195][195][195][195][195]";:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  116. 665 printleft$(do$,6)left$(le$,09)"[158]"n2$
  117. 667 printleft$(do$,13)left$(le$,09)n1$:printleft$(do$,22)left$(le$,03)"[158]"n2$:printleft$(do$,22)left$(le$,21)n1$:return
  118. 681 poke53280,9:poke53281,9:print"[147]m o m e n t !":ifdg=0thendima(12),b(1,6),a$(3),f(27):dg=1:goto689
  119. 687 ifdg=1then723
  120. 689 a$(0)=" 000 000 000 000 000 000 012 000 000 014 000 000 007 000 000 007":a$(1)=" 000 000 003 176 000 003 254 000 001 255 064 033 255 224 056 255":a$(2)=" 240 056 255 240 028 255 240 031 255 240 015 255 224 007 255 224"
  121. 695 a$(3)=" 003 255 224 001 255 192 000 255 192 000 255 192 000 127 224 255":forii=0to3::fori=1to62step4::a=a+1::poke831+ii*16+a,val(mid$(a$(ii),i,4))::next:a=0:next:do$=""
  122. 711 le$="":a$(0)=" [213][195][195][201][157][157][157][157][157][158][213][195][195][201][194][157][157][157][157][157][158][194]  [194][203][157][157][157][157][157][158][202][195][195][203]":a$(1)="[158] [213][195][195][201][157][157][157][157][157][213][195][195][201][158][194][157][157][157][157][157][194]  [194][158][203][157][157][157][157][157][202][195][195][203]":poke2040,13:v=53248:s=54272
  123. 719 fori=0to28:pokes+i,0:next:f1=7040:fori=1to26:f(27-i)=f1*5.8+30:f1=f1/1.05946309:next
  124. 723 a$="":b$="":f1=0:f2=0:in=0:en=0:fori=1to12:a(i)=6:next:return::
  125. 751 poke53280,9:poke53281,9:print"[147]":print:print"----------------------------------------":
  126. 755 print"----------------------------------------":::print:print:print"[153]- 1 -  spielstart"::print"- 2 -  spiel-info"::print"- 0 -  spielende":print:print:print"----------------------------------------":
  127. 765 print"----------------------------------------"::a$="***** k a l a h a  **** k a l a h a ****":l=len(a$)
  128. 769 fori=1tol::printleft$(do$,4);::printmid$(a$,i,l-i)left$(a$,i)::printleft$(do$,17);::printmid$(a$,i,l-i)left$(a$,i)
  129. 779 :getwa$:ifwa$>"/"andwa$<"3"then785
  130. 781 forii=1to50:next:next:goto769
  131. 785 ifwa$="2"thengosub1105:goto751
  132. 787 ifwa$="0"thenprint"[147]auf wiedersehen!":ifpeek(50307)=120thensys50307
  133. 789 ifwa$="0"andpeek(50307)<>120thenend
  134. 791 print"[145][164][164][164][164][164][164]":co=0:print" 1 [146] oder  2 [146] spieler ?"
  135. 795 d=1-d:geta$:ifa$<>""then803
  136. 797 ifd=0thenprintleft$(do$,19)"      [157][157][157][157][157][157][157][157][157][157][157][157] 1  2 "
  137. 799 ifd=1thenprintleft$(do$,19)"[164][164][164][164][164][164][157][157][157][157][157][157][157][157][157][157][157][157] 1  2 "
  138. 801 fori=1to99:next:goto795
  139. 803 ifa$<"1"ora$>"2"then795
  140. 805 printleft$(do$,19)"      ":printleft$(do$,25)"    eingabe loeschen = inst/del-taste":printleft$(do$,20)"[158]spieler 1[158] dein name bitte !  .........[157][157][157][157][157][157][157][157][157]";:ifa$="1"thenco=1
  141. 813 b$="[146]..":ta=29:a$="":n1$="":d=0:tn=1:gosub335
  142. 815 d=2-d:geta$:ifa$<>""then819
  143. 817 printleft$(do$,20)left$(le$,ta)mid$(b$,d+1,2):fori=1to99:next:goto815
  144. 819 printleft$(do$,20)left$(le$,ta)mid$(b$,1,2)"[157]";:ifa$=chr$(13)then831
  145. 823 ifa$=chr$(20)then805
  146. 825 ifa$<" "ora$>"z"then815
  147. 827 tn=5:gosub335:printa$;:n1$=n1$+a$:ta=ta+1:ifta<39then815
  148. 831 ifco=1thenn2$="  c - 64":goto853
  149. 833 printleft$(do$,22)"[158]spieler 2[158] dein name bitte !  .........[157][157][157][157][157][157][157][157][157]";:b$="[146]..":ta=29:a$="":n2$="":d=0
  150. 837 d=2-d:geta$:ifa$<>""then841
  151. 839 printleft$(do$,22)left$(le$,ta)mid$(b$,d+1,2):fori=1to99:next:goto837
  152. 841 printleft$(do$,22)left$(le$,ta)mid$(b$,1,2)"[157]";:ifa$=chr$(13)then853
  153. 845 ifa$=chr$(20)then833
  154. 847 ifa$<" "ora$>"z"then837
  155. 849 tn=5:gosub335:printa$;:n2$=n2$+a$:ta=ta+1:ifta<39then837
  156. 853 print"[147]1. spieler :"n1$:print"2. spieler :"n2$:d=0:print"                [164][164][164]        [164][164][164]":print"wer faengt an ?  1 [146]  oder   2 [146]"
  157. 861 print"":d=1-d:ifd=0thenprinttab(18)"      ":printtab(18)" 1  2 "
  158. 865 ifd=1thenprinttab(18)"[164][164][164][164][164][164]":printtab(18)" 1  2 [146]"
  159. 867 geta$:ifa$<"1"ora$>"2"thenfori=1to99:next:goto861
  160. 869 ifa$="1"thenna$=n1$:af=1
  161. 871 ifa$="2"thenna$=n2$:af=2
  162. 873 print"":tn=4:an=3:gosub335:print"                                  ":print"                                  ":print"[145][145]":a$="  das spiel beginnt "+na$+".    ":b$="  viel vergnuegen !!  "
  163. 881 fori=1tolen(a$):printmid$(a$,i,1);:forii=1to20:next:next:print:print:fori=1tolen(b$):printmid$(b$,i,1);:forii=1to20:nextii,i:fori=1to500:nexti:print"":ifdd=1then927
  164. 891 fori=1to15:print"                                     ":next:dd=1:print"  [213]";:fori=1to27:print"[195]";:next:print"[201]":fori=1to11:print"  [194]"tab(30)"[194]":next:print"  [202]";:fori=1to27:print"[195]";:next:print"[203]":print"[145][145][145][145][145][145][145][145][145][145][145][145][145]":print"commodore 64     power *"
  165. 901 print"[166] [166][160][166][160][166][160][166] [166] [166] [166] [166] [166] [166]  [166][166]":print"[166][166][160][166][160][166][160][166][160][166][160][166][160][166][160][166][160][166][160][166][166]  [166][166]":print"[166] [166][160][166][160][166][160][166] [166] [166] [166] [166] [166][166][166]  [166][166]":print"[166] [166][166][160][166][160][166][160][166][160][166][160][166][160][166][166] [166] [166]  [166][166]":print"    [166][166][166][166][166][166][166][166][166][166][166][166][166]  ":print:print:a$=""
  166. 907 print:print"zum bewegen der hand benutzen sie ":ss=0
  167. 909 printleft$(do$,12)left$(le$,22)"[144]  [146]":fori=1to99:next:printleft$(do$,12)left$(le$,22)"[166][166][146]":fori=1to99:next:ss=ss+1:ifss<8then909
  168. 915 printleft$(do$,20)"  die cursorsteuertasten oder joystick.":print:print"  zum entleeren einer mulde  ":ss=0:poke56320,127
  169. 919 printleft$(do$,14)left$(le$,8)"[144]              [146]":fori=1to99:next:printleft$(do$,14)left$(le$,8)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][146]":fori=1to99:next
  170. 923 ss=ss+1:ifss<10then919
  171. 925 printleft$(do$,24)"  die space - taste oder feuer.":d=0:js=peek(56320)and16
  172. 927 d=1-d:geta$:ifa$<>""orjs=0then935
  173. 929 ifd=0thenprintleft$(do$,25)tab(28)">> taste <<":fori=1to90:next:goto927
  174. 931 js=peek(56320)and16:ifd=1thenprintleft$(do$,25)tab(28)">> taste <<":fori=1to90:next:goto927
  175. 935 return::
  176. 961 a$="* k a l a h a ":l=len(a$):in=1:print"[147]";:poke53280,14:poke53281,14:fori=1to38:printmid$(a$,in,1);:in=in+1:ifin>lthenin=1
  177. 969 next:print:fori=1to21:printtab(38)""mid$(a$,in,1):in=in+1:ifin>lthenin=1
  178. 975 next:in=in+1:ifin>lthenin=1
  179. 977 printtab(38);:fori=2to39:print""mid$(a$,in,1);"[157][157]";:in=in-1:ifin=0thenin=l
  180. 983 next:print:print"[145][145][145]":fori=1to21:print""mid$(a$,in,1)"[145][145]":in=in-1:ifin=0thenin=l
  181. 989 next:print"das spiel ist beendet,":print"gewonnen hat es ......":iff1>f2thena$=n2$
  182. 997 iff2>f1thena$=n1$
  183. 999 an=5:tn=4:gosub335:print"";:fori=1tolen(a$):printmid$(a$,i,1)" ";:tn=5:gosub335:next:print:print"herzlichen glueckwunsch !":print"ein neues spiel j / n ?"
  184. 1015 gosub1165:ifa$="j"then1023
  185. 1017 ifa$<>"n"then1015
  186. 1019 print"[147]auf wiedersehen.":ifpeek(50307)=120thensys50307
  187. 1021 end
  188. 1023 print"gleiche besetzung j / n ?"
  189. 1025 gosub1165:ifa$="j"thengosub681:goto11
  190. 1027 ifa$<>"n"then1025
  191. 1029 gosub681:goto9::
  192. 1049 print"[147][159]":l=15:fa=56280:ff=0:poke53280,11:poke53281,11:na$="[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][194]  k a l a h a  [194]":na$=na$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][194]               [194]":na$=na$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][194]  (c) 1985 by  [194]"
  193. 1057 na$=na$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][194]               [194]":na$=na$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][194]thomas  stahmer[194]":na$=na$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":x=3:y=08:dx=2:dy=-2:
  194. 1065 printleft$(do$,x)left$(le$,y)"[159]"na$:
  195. 1067 x=x+dx:ifx<2orx>17thendx=-dx:goto1067
  196. 1069 y=y+dy:ify<2ory>22thendy=-dy:goto1069
  197. 1071 z=z+1:ifz<20then1065
  198. 1073 printleft$(do$,11)left$(le$,12)""na$:printleft$(do$,25)left$(le$,28)""">> taste <<";:gosub1165::return::
  199. 1105 poke53280,14:print"[147]";chr$(14);:poke53281,14:print"------  [203][160][193][160][204][160][193][160][200][160][193]   [211]pielinfo  ------":print:print"[194]ei [203]alaha geht es darum, in seine [200]eim-";
  200. 1111 print"[205]ulden die meissten [194]ohnen abzulegen.":print"[196]ieses kann man immer dann tun, wenn ein";:print"[214]erteilungsvorgang eine [205]enge von":print"2, 4 oder 6 [194]ohnen in der [205]ulde ergibt,":print"in der die letzte [194]ohne abgelegt wird."
  201. 1121 print"[201]st auch die jeweils vorletzte [205]ulde":print"mit 2, 4 oder 6 [194]ohnen gefuellt, so":print"wird diese ebensfalls geleert und ihr":print"[201]nhalt in die [200]eim-[205]ulde gelegt.":print"[196]er [214]erteilungsvorgang sieht so aus:"
  202. 1131 print"[196]er [211]pieler, der am [218]ug ist, entscheidet";:print"sich fuer eine seiner 6 [205]ulden,nimmt":print"alle [194]ohnen heraus und verteilt sie ein-";:print"zeln auf die,im [213]hrzeigersinn folgenden,";
  203. 1139 print"wobei er auch vor den [205]ulden seines":print"[199]egners nicht [200]alt macht.":print"[197]s herrscht [218]ugzwang!. [211]ind die  [205]ulden":print"einer [211]eite leer, oder erreicht eine":print"[200]eim-[205]ulde mehr als 35 [194]ohnen, so ist"
  204. 1149 print"das [211]piel beendet.          >> [212][193][211][212][197][160]<<":l=10:fa=56280:gosub1165:printchr$(142):return
  205. 1165 forq1=0to2:tt=q1*7:pokes+5+tt,0:pokes+6+tt,250:pokes+2+tt,160:pokes+3+tt,15:next:pokes+24,l:data27,17,15,17,13,17,12,17,10,17,8,17,6,17,15,13,15,15,13,15,12,15,10,15
  206. 1171 data8,15,6,15,5,15,13,12,13,13,12,13,10,13,8,13,6,13,5,13,4,13,12,10,12,12:data10,12,9,12,7,12,5,12,3,12,1,12,10,08,10,0,27,12,8,10,12,15,13,13,17,15:data15,20,19,20,15,12,8,10,12,13,15,17,15,13,12,10,12,8,7,8,10,3
  207. 1177 data7,10,13,12,10,12,8,10,12,15,13,13,17,15,15,20,19,20,15,12,8,10,12:data5,15,13,12,10,8,3,8,7,8,12,15,20,15,12,8,12,15,18,15,12,8,12,15,17,13:data10,7,10,13,15,12,8,5,8,12,13,10,7,3,7,10,13,12,10,8,12,15,20,-1
  208. 1183 reada:ifa=-1thenrestore:goto1183
  209. 1185 fr=f(a)/4:tt=p*7:cr=s+tt+4:pokes+5+tt,0:pokes+6+tt,0:pokecr,8:pokecr,0:pokes+tt,fr-256*int(fr/256):pokes+1+tt,fr/256:pokes+5+tt,0:pokes+6+tt,250:pokecr,16+1:forq1=1to20:next:pokecr,16:p=p+1:ifp=3thenp=0
  210. 1195 forq1=1to20:next:js=peek(56320)and16:geta$:ifa$<>""orjs=0then1205
  211. 1199 fa=fa+1:iffa>56296thenfa=56284:ff=1-ff
  212. 1201 pokefa,ff:goto1183
  213. 1205 forq1=0to2:cr=s+q1*7+4:pokecr,0:next:return
  214.