1 PRINTCHR$(142)CHR$(8):POKE53269,0:IF(PEEK(50307))=120THENPOKE50257,0:POKE55,0:POKE56,128
5 GOSUB681:GOSUB1049
9 GOSUB751:
11 GOSUB583::IFAF=1THENGOTO19
15 IFAF=2THENGOTO33
19 KO=1:NA$=N1$:SP=1:IFEN=1THEN961
21 GOSUB529:EN=0:GOSUB239:IFEN=1THEN961
25 KO=3:GOSUB529:POKE198,0:GOSUB165:
29 IFA(I)=2ORA(I)=4ORA(I)=6THENIN=I:GOSUB271:GOSUB195:I=I-1:IFI=0THENI=12
31 IFA(I)=2ORA(I)=4ORA(I)=6THEN29
33 IFCO=1THEN71
51 KO=1:NA$=N2$:SP=2:IFEN=1THEN961
53 GOSUB529:EN=0:GOSUB257:IFEN=1THEN961
57 KO=3:GOSUB529:POKE198,0:GOSUB165:
61 IFA(I)=2ORA(I)=4ORA(I)=6THENIN=I:GOSUB271:GOSUB195:I=I-1:IFI=0THENI=12
63 IFA(I)=2ORA(I)=4ORA(I)=6THEN61
65 GOTO19
71 SP=2:NA$=N2$:IFEN=1THEN961
73 EN=0:GOSUB97:IFEN=1THEN961
77 TN=2:GOSUB335:KO=3:GOSUB529:GOSUB165
81 IFA(I)=2ORA(I)=4ORA(I)=6THENIN=I:GOSUB271:GOSUB195:I=I-1:IFI=0THENI=12
83 IFA(I)=2ORA(I)=4ORA(I)=6THEN81
85 GOTO19
97 Z=0:FORI=1TO6::A=A(I):IFA=0THEN113
103 :B=INT((A+I)/12.01):A(I)=0::IN=(A-(B*12))+I:IFA<12ANDB>0THENB=B-1
107 :C=A(IN)+1+B::IFC=2ORC=4ORC=6THENZ=Z+1:B(0,Z)=C:B(1,Z)=I
111 :A(I)=A
113 NEXT:IFZ=0THEN137
119 FORI=1TOZ::FORII=ITOZ::IFB(0,I)<B(0,II)THEN129
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
129 :NEXT:NEXT:IN=B(1,Z):GOTO147
137 I=INT(RND(1)*6)+1:IFA(I)<>0THEN145
139 FORI=1TO6::IFA(I)<>0THEN145
143 NEXT:EN=1
145 IN=I
147 RETURN
165 Z=0:I=IN:AN=A(I):A(I)=0:GOSUB195
169 Z=Z+1:IFZ>ANTHEN177
171 I=I+1:IFI=13THENI=1
173 A(I)=A(I)+1:GOSUB195:GOTO169
177 RETURN
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);
205 :IFI>6THEND=1-D:PRINTLEFT$(DO$,15)LEFT$(LE$,(13-I)*6-3)A$(D);
207 :PRINT"[145][157][157][157]"B$::FORW=1TO30::NEXT:NEXT:TN=1:GOSUB335:RETURN
239 FORII=7TO12::IFA(II)<>0THEN245
243 NEXT:EN=1:GOTO249
245 NN=07:IN=NN:GOSUB421
249 RETURN
257 FORII=1TO6::IFA(II)<>0THEN263
261 NEXT:EN=1:GOTO267:
263 NN=06:IN=NN:GOSUB421
267 RETURN
271 AN=A(IN):A(IN)=0:TN=4:GOSUB335:IFSP=2THENBS=1024+8*40+01:FB=55296+8*40+01
275 IFSP=1THENBS=1024+8*40+38:FB=55296+8*40+38
277 FORI=1TOAN::POKEBS+I*40,81::POKEFB+I*40,3:NEXT:I=BS+40:BS=BS+AN*40:FB=FB+AN*40
287 POKEI,32::BS=BS+40:FB=FB+40:I=I+40::IFBS<1784THENPOKEBS,81:POKEFB,3
293 :FORWA=1TO90::NEXT::IFBS<1784THENPOKEBS,81:POKEFB,3
299 IFI<1784THEN287
301 IFSP=2THENF1=F1+AN
303 IFSP=1THENF2=F2+AN
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
315 I=IN:RETURN
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
343 FORQ1=30TO40STEP2:POKES+1,Q1:POKES,200:POKES+4,17:FORQQ=1TO10:NEXT:POKES+4,16:FORQQ=1TO10:NEXT:NEXT:RETURN
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
373 RR=SP*20+20:POKES+1,RR:POKES,200
377 POKES+4,129:FORQQ=1TO20:NEXT:POKES+4,0:RETURN
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
397 POKES+1,60:POKES,200:POKES+4,33:FORQ1=1TO10:NEXT:POKES+4,32:RETURN::
421 Y=34:X=8:ZZ=0:IFIN>6THENX=15
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
429 JS=PEEK(P2)AND28:POKEP2,127:POKEP2+2,DR:IFJS<>28THEN455
433 GETA$:IFA$<>""THEN455
435 F=F+1:IFF=255THENF=0
437 ZZ=ZZ+1:IFZZ<200THEN453
439 ZZ=0:KO=4:GOSUB529:IFB$<>"I"THEN453
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$
449 :IFI>6THENPRINTLEFT$(DO$,18)LEFT$(LE$,(13-I)*6);"[145][157][157]"B$
451 NEXT:GOSUB665:GOSUB305:POKEV+21,1:ZZ=0
453 POKEV+39,F:FORI=1TO10:NEXT:GOTO429
455 POKEV+39,4:ZZ=0:IFA$=""ORJS=24THENGOTO467
459 IFA$=""ORJS=20THENGOTO483
461 IFA$=" "ORJS=12THENGOTO499
463 IFA$="I"THENGOTO441
465 GOTO429
467 Y=Y-6:IFY<2THENY=Y+6:GOTO429
469 IN=IN+1:IFNN=6THENIN=IN-2
471 YY=Y*8+24:TN=3:GOSUB335:FORI=YY+6*8TOYYSTEP-2::IFI>255THENPOKEV,IAND255:POKEV+16,1
477 :IFI<256THENPOKEV,I:POKEV+16,0
479 NEXT:POKE198,0:GOTO429
483 Y=Y+6:IFY>38THENY=Y-6:GOTO429
485 IN=IN-1:IFNN=6THENIN=IN+2
487 YY=Y*8+24:TN=3:GOSUB335:FORI=YY-6*8TOYYSTEP2::IFI>255THENPOKEV,IAND255:POKEV+16,1
493 :IFI<256THENPOKEV,I:POKEV+16,0
495 NEXT:POKE198,0:GOTO429
499 IFA(IN)=0THEN429
501 POKEV+21,0:TN=2:GOSUB335:RETURN::
529 ONKOGOTO531,535,539,543
531 A$="        "+NA$+"  DU BIST AM ZUG         ":L=LEN(A$):GOTO545
535 A$="         DAS FELD IST LEER !!    ":L=LEN(A$):GOTO545
539 A$="         OK. GENOMMENE BOHNEN : "+STR$(A(IN))+"  ":L=LEN(A$)
541 GOTO545
543 A$="            >>>>  I = SPIELINFO  >>>>  I = SPIELINFO  >>>>  ":L=LEN(A$)
545 FORI=1TOL:PRINTLEFT$(DO$,24)LEFT$(LE$,3);::PRINTMID$(A$,I,33):GETB$:IFB$<>""THEN555
551 FORII=1TO30:GETB$:IFB$<>""THEN555
553 NEXTII,I
555 A$="********** K A L A H A **********":PRINTLEFT$(DO$,24)LEFT$(LE$,3);:FORI=1TOLEN(A$):PRINTMID$(A$,I,1);:NEXT:RETURN::
583 POKE53280,0:POKE53281,0:PRINT"[147][146]-------------------------";:PRINT"--------------------------";
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]     ";
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]";
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]";
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]  ";
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]       ";
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";
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]"
665 PRINTLEFT$(DO$,6)LEFT$(LE$,09)"[158]"N2$
667 PRINTLEFT$(DO$,13)LEFT$(LE$,09)N1$:PRINTLEFT$(DO$,22)LEFT$(LE$,03)"[158]"N2$:PRINTLEFT$(DO$,22)LEFT$(LE$,21)N1$:RETURN
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
687 IFDG=1THEN723
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"
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$=""
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
719 FORI=0TO28:POKES+I,0:NEXT:F1=7040:FORI=1TO26:F(27-I)=F1*5.8+30:F1=F1/1.05946309:NEXT
723 A$="":B$="":F1=0:F2=0:IN=0:EN=0:FORI=1TO12:A(I)=6:NEXT:RETURN::
751 POKE53280,9:POKE53281,9:PRINT"[147]":PRINT:PRINT"----------------------------------------":
755 PRINT"----------------------------------------":::PRINT:PRINT:PRINT"[153]- 1 -  SPIELSTART"::PRINT"- 2 -  SPIEL-INFO"::PRINT"- 0 -  SPIELENDE":PRINT:PRINT:PRINT"----------------------------------------":
765 PRINT"----------------------------------------"::A$="***** K A L A H A  **** K A L A H A ****":L=LEN(A$)
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)
779 :GETWA$:IFWA$>"/"ANDWA$<"3"THEN785
781 FORII=1TO50:NEXT:NEXT:GOTO769
785 IFWA$="2"THENGOSUB1105:GOTO751
787 IFWA$="0"THENPRINT"[147]AUF WIEDERSEHEN!":IFPEEK(50307)=120THENSYS50307
789 IFWA$="0"ANDPEEK(50307)<>120THENEND
791 PRINT"[145][164][164][164][164][164][164]":CO=0:PRINT" 1 [146] ODER  2 [146] SPIELER ?"
795 D=1-D:GETA$:IFA$<>""THEN803
797 IFD=0THENPRINTLEFT$(DO$,19)"      [157][157][157][157][157][157][157][157][157][157][157][157] 1  2 "
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 "
801 FORI=1TO99:NEXT:GOTO795
803 IFA$<"1"ORA$>"2"THEN795
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
813 B$="[146]..":TA=29:A$="":N1$="":D=0:TN=1:GOSUB335
815 D=2-D:GETA$:IFA$<>""THEN819
817 PRINTLEFT$(DO$,20)LEFT$(LE$,TA)MID$(B$,D+1,2):FORI=1TO99:NEXT:GOTO815
819 PRINTLEFT$(DO$,20)LEFT$(LE$,TA)MID$(B$,1,2)"[157]";:IFA$=CHR$(13)THEN831
823 IFA$=CHR$(20)THEN805
825 IFA$<" "ORA$>"Z"THEN815
827 TN=5:GOSUB335:PRINTA$;:N1$=N1$+A$:TA=TA+1:IFTA<39THEN815
831 IFCO=1THENN2$="  C - 64":GOTO853
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
837 D=2-D:GETA$:IFA$<>""THEN841
839 PRINTLEFT$(DO$,22)LEFT$(LE$,TA)MID$(B$,D+1,2):FORI=1TO99:NEXT:GOTO837
841 PRINTLEFT$(DO$,22)LEFT$(LE$,TA)MID$(B$,1,2)"[157]";:IFA$=CHR$(13)THEN853
845 IFA$=CHR$(20)THEN833
847 IFA$<" "ORA$>"Z"THEN837
849 TN=5:GOSUB335:PRINTA$;:N2$=N2$+A$:TA=TA+1:IFTA<39THEN837
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]"
861 PRINT"":D=1-D:IFD=0THENPRINTTAB(18)"      ":PRINTTAB(18)" 1  2 "
865 IFD=1THENPRINTTAB(18)"[164][164][164][164][164][164]":PRINTTAB(18)" 1  2 [146]"
867 GETA$:IFA$<"1"ORA$>"2"THENFORI=1TO99:NEXT:GOTO861
869 IFA$="1"THENNA$=N1$:AF=1
871 IFA$="2"THENNA$=N2$:AF=2
873 PRINT"":TN=4:AN=3:GOSUB335:PRINT"                                  ":PRINT"                                  ":PRINT"[145][145]":A$="  DAS SPIEL BEGINNT "+NA$+".    ":B$="  VIEL VERGNUEGEN !!  "
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
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 *"
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$=""
907 PRINT:PRINT"ZUM BEWEGEN DER HAND BENUTZEN SIE ":SS=0
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
915 PRINTLEFT$(DO$,20)"  DIE CURSORSTEUERTASTEN ODER JOYSTICK.":PRINT:PRINT"  ZUM ENTLEEREN EINER MULDE  ":SS=0:POKE56320,127
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
923 SS=SS+1:IFSS<10THEN919
925 PRINTLEFT$(DO$,24)"  DIE SPACE - TASTE ODER FEUER.":D=0:JS=PEEK(56320)AND16
927 D=1-D:GETA$:IFA$<>""ORJS=0THEN935
929 IFD=0THENPRINTLEFT$(DO$,25)TAB(28)">> TASTE <<":FORI=1TO90:NEXT:GOTO927
931 JS=PEEK(56320)AND16:IFD=1THENPRINTLEFT$(DO$,25)TAB(28)">> TASTE <<":FORI=1TO90:NEXT:GOTO927
935 RETURN::
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
969 NEXT:PRINT:FORI=1TO21:PRINTTAB(38)""MID$(A$,IN,1):IN=IN+1:IFIN>LTHENIN=1
975 NEXT:IN=IN+1:IFIN>LTHENIN=1
977 PRINTTAB(38);:FORI=2TO39:PRINT""MID$(A$,IN,1);"[157][157]";:IN=IN-1:IFIN=0THENIN=L
983 NEXT:PRINT:PRINT"[145][145][145]":FORI=1TO21:PRINT""MID$(A$,IN,1)"[145][145]":IN=IN-1:IFIN=0THENIN=L
989 NEXT:PRINT"DAS SPIEL IST BEENDET,":PRINT"GEWONNEN HAT ES ......":IFF1>F2THENA$=N2$
997 IFF2>F1THENA$=N1$
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 ?"
1015 GOSUB1165:IFA$="J"THEN1023
1017 IFA$<>"N"THEN1015
1019 PRINT"[147]AUF WIEDERSEHEN.":IFPEEK(50307)=120THENSYS50307
1021 END
1023 PRINT"GLEICHE BESETZUNG J / N ?"
1025 GOSUB1165:IFA$="J"THENGOSUB681:GOTO11
1027 IFA$<>"N"THEN1025
1029 GOSUB681:GOTO9::
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]"
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:
1065 PRINTLEFT$(DO$,X)LEFT$(LE$,Y)"[159]"NA$:
1067 X=X+DX:IFX<2ORX>17THENDX=-DX:GOTO1067
1069 Y=Y+DY:IFY<2ORY>22THENDY=-DY:GOTO1069
1071 Z=Z+1:IFZ<20THEN1065
1073 PRINTLEFT$(DO$,11)LEFT$(LE$,12)""NA$:PRINTLEFT$(DO$,25)LEFT$(LE$,28)""">> TASTE <<";:GOSUB1165::RETURN::
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-";
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."
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:"
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,";
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"
1149 PRINT"DAS [211]PIEL BEENDET.          >> [212][193][211][212][197][160]<<":L=10:FA=56280:GOSUB1165:PRINTCHR$(142):RETURN
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
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
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
1183 READA:IFA=-1THENRESTORE:GOTO1183
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
1195 FORQ1=1TO20:NEXT:JS=PEEK(56320)AND16:GETA$:IFA$<>""ORJS=0THEN1205
1199 FA=FA+1:IFFA>56296THENFA=56284:FF=1-FF
1201 POKEFA,FF:GOTO1183
1205 FORQ1=0TO2:CR=S+Q1*7+4:POKECR,0:NEXT:RETURN