@HR?l6X'D:\6=67980o ="N" \"="J"85004!: ANWEISUNGEN ^ 8026Z  SOUND BF=010 8:8110:N=07:ba,bb ba*2,bb+f:n:f .1}L,0,.05|L,0,.05|L,0,.05|L,5,.05|L,0,.05|L,5,.25~,9 ,.25~,5  ! ANWEISUNGEN !4&1:1:1:7: !91,0; !>:i$= " Willkommen zu KNIFFEL, einem bekannten Wrfelspiel fr zwei bis acht Mitspieler., Das Ziel des Spieles ist es, vorgegebene Wrfelkombinatio- nen durch geschicktes Taktie- ren zu erreichen.. " !Hzi$=i$+ " Jeder Spieler darf drei mal wrfeln. Beim 2. und 3. Wurf drfen jedoch Wrfel mit schon passenden Augenzahlen beiseite gelegt werden.2 Die Eingabe der erneut zu wer- fenden Wrfel erfolgt durch Drcken der entsprechenden Zifferntaste. Gewrfelt wird durch Drcken der Taste ENTER. " !R.f=1̱i$:.005y# =,5:i$(f);:f !U8100: SOUND !WH#0;5;0;1;" DRUECKE IRGENDEINE TASTE ! " !\=""8540\! !a:1,0; !fZj$= " Nach den drei Wrfen wird die Spalte, in der der Wurf zu werten ist, durch Eintippen der Kennzahl (1-13) und ENTER eingegeben.5 Kann der Wurf nicht in der eingegebenen Spalte gewertet werden, so wird diese Spalte gestrichen (0 Punkte). " !pzj$=j$+ "! KOMBINATIONEN: 1er-6er: Alle 1er (2er...) werden addiert 3er/4er- 3(4)gleiche Augenzah- Pasch : len- Alles addiert FullHouse: 3 gleiche+2 gleiche Kl./Gr. 4(5) aufeinander fol- Strasse: gende Augenzahlen Kniffel: 5 gleiche Augenzahlen Chance: Alle Werte addiert " !z.f=1̱j$:.005y# =,5:j$(f);:f !}8100: SOUND !H#0;5;0;1;" START MIT IRGENDEINER TASTE ! " !=""8580! !:7;1;8,4;" EIN ERNEUTER >KNIFFEL< ";9 ,4;" ZAEHLT 100 PUNKTE ; ";10 ,4;" EINE ANDERE SPALTE ";11 ,4;" BLEIBT DANN JEDOCH AM ";12 ,4;" ENDE LEER ! " !&F=-3045-:.07}\(,f:f ! 0: ! #' U.D.G #(.9000(#:f="a""o"+7:gr:f,gr:f #- Wuerfel 1 bis 6 #2C0,0,0,24,24,0,0,0 #7E3,3,0,0,0,0,192,192 # < Punkte:";5;7;"";29;1;"" %+b" ";1;"";4;7;"";29;5;1;" " %0X4;7;"";7;0;" 1 Einer ";5;7;"" %51;1;"";4;7;"";7;0;" 2 Zweier ";5;7;"";1;29;"" %:1;1;"";4;7;"";7;0;" 3 Dreier ";5;7;"";1;29;"" %?X4;7;"";7;0;" 4 Vierer ";5;7;"" %D1;1;"";4;7;"";7;0;" 5 Fnfer ";5;7;"";1;29;"" %I1;1;"";4;7;"";7;0;" 6 Sechser ";5;7;"";1;29;"" %N.4;7;"" %S1;1;"";4;7;"";7;0;" 7 Dreierpasch ";5;7;"";1;29;"" %X1;1;"";4;7;"";7;0;" 8 Viererpasch ";5;7;"";1;29;"" %]X4;7;"";7;0;" 9 Full House (25) ";5;7;"" %b1;1;"";4;7;"";7;0;"10 Kl.Strasse (30) ";5;7;"";1;29;"" %g1;1;"";4;7;"";7;0;"11 Gr.Strasse (40) ";5;7;"";1;29;"" %lX4;7;"";7;0;"12 Kniffel (50) ";5;7;"" %q1;1;"";4;7;"";7;0;"13 Chance ";5;7;"";1;29;"" %v]1;1;"";4;7;"";1;29;"" %{%6;4;"" %R1;1;"";4;6;"";29;1;"" %T1;1;"";4;6;"";29;1;"" %:f=216:7;5;f,23;"":f %521,5;5;0;"1 2 3 4 5" %x0:5:F=38&41):8,F:1;15,0:232,F:1;15,0:F %8:8 %bF=143141-1:12 ,F:7,-13 :236,F:7,-13 :F %9612%:F=18:IPLOT:1;IPLOT,115s:1;0,-7:F:12 ,13 ,18,19,236,237,242,243 % 1 %'35#,156:185,0 %'35#,100d:185,0 %)187,155:0,-120x %187,100d %-f=5021-1:.05|L,f:f % '0:4:0: 'R9 ,6;"SINCLAIR ZX-SPECTRUM";11 ,6;"SOFTWARE  A.ZERFASS" 'r31,72H:0,40(:96`,0,-/4:96`,0,-/4:0,-40( ' <-96`,0,-/4:-96`,0,-/4 ' 8100: SOUND ' ?#1;6;0;" >NEW mit irgendeiner Taste < " ' f=11000 '!=""f:8100:9997 ' '0: NEW :.5,1:100d:0 d=MGGWq0 !G P P  PM3 33MI@>v>>BB<DHpHDB@~BfZBBBBbRJFB K N I F F E L * * _ * * * *  A. ZERFASS * * SCHLEHENWEG 10 * * 8802 LEHRBERG. * * 30.7.1983 * * * *   >23658j\,8: CAPS LOCK V8000@: LOGO, U.D.G. -EVTL.INTRO-  0 81400x: HAUPT- SCHLEIFE  SUB ZUSAMMENWERTUNG $f=15:p1=p1+w(f):f: ' CLS INFOPLATZ (Df=1821:4;0;f,20;" ":f: 1 SUB WUERFELN 2)q=15:pr=2+3*q 3-x1ƫ(19,pr)491546 4w(q)=(*6)+1 5219,pr;6;0;(143+w(q)) 6q 7 W Einer bis Sechser XF=15 Yw(f)=spp1=p1+sp ZF [ / Dreierpasch & Viererpasch  If=16:co=0:t=15:w(t)=fco=co+1 "t:cosp-48204 %f * 4 20 >  Full House If=16:co=0:t=15:w(t)=fco=co+1 t:co=3950 p10 f  Nd(2):d1=1:o=15:w(o)fd(d1)=w(o):d1=d1+1 o 7d(1)=d(2)d(1)0p1=25   Kleine Strasse He(4):f=14:t=15:w(t)=fe(f)=1 t:f -f=14:e(f)11020 f  1090B He(5):f=25:t=15:w(t)=fe(f)=1 t:f -f=25:e(f)11040 f  1090B He(6):f=36:t=15:w(t)=fe(f)=1 t:f #f=36:e(f)1 f Bp1=30: K Grosse Strasse LHe(5):f=15:t=15:w(t)=fe(f)=1 Vt:f `-f=15:e(f)11140t bf e 1190 tHe(6):f=26:t=15:w(t)=fe(f)=1 ~t:f #f=26:e(f)1 f p1=40(:  Kniffel w(1)=w(2)w(2)=w(3)w(3)=w(4)w(4)=w(5)p1=502:8100: GOSUB SOUND p(dap+sp)=0 Op(dap+sp)=p(dap+sp)+100d:15,24;7;0;p(dap+sp) 40(:0;4;18,20;"Erneuter";19,20;"KNIFFEL!";20,20;"Bonus100";21,20;"Punkte !":8100: GOSUB CLS INFO / GOSUB SOUND 40(: CLS INFO  1670  Chance  20: w START SPIELRUNDE x&0:7:4:1: z&2,7;"* K N I F F E L *" }=10 ,1;6;" Wie viele Mitspieler (2-8) ? " .8L,0 !a$=:a$<"2"a$>"8"1415 z1=a$ (l(z1):n$(z1,10 ):p(z1*13 ) .3,6 f=1z1 810 ,1;" Name des Spielers ";f;" ? " Zf=112 ,1;" (Nach der Eingabe Taste druecken !)" 5;0;m$ (l(f)=m$:l(f)>10 l(f)=10  n$(f)=m$ #.2~L,f:.1}L,2*f:f 9500%: SCREEN  SPIELSCHLEIFE 0:0 y=113 : 13 * 9z=1z1: z1 SPIELER JE RD. f=113  W(5) dap=(z-1)*13 Kf=15:19,(2+3*f);6;1;" ":f "F=316:f=9 f 7;f,24;" ":f q1,7;7;" ";1,(12 -(l(z)/2));n$(z);1,17;"< Punkte:" f=113 p(dap+f)=01535 Wp(dap+f)=-17;1;2+F+(F>6),24;"--":1535 Q2+f+(f>6),24+(p(dap+f)=1);7;0;p(dap+f) f 3x=13:502: WUERFELN 40(: CLS INFO X=31605E "4;0;18,21;"Welche";19,21;"Wrfel";20,20;"nochmals";21,20;"werfen ?" '.5,-20 ,a$= -a$=13 1605E .a$<"1"a$>"5"1580, 6919,(2+(a$*3));1;6;" " @.3,0:1580, Ex J40(: CLS INFO Tl0;4;18,20;"Wertung";19,20;"in Spal-";20,20;"te ... ?" ^Asp:sp<1sp>13 spɺsp.73333,0:1630^ `sp=12 p(dap+sp)>0W(1)=W(2)W(2)=W(3)W(3)=W(4)W(4)=W(5)1640h cMp(dap+sp)0f=0-10 -1:.01z# =,f:f:1610J e P1=0 hsp*100d r6p1=01700: SPALTE STREICHEN |p(dap+sp)=p1 pri=2+sp+(sp>6) Fp(dap+sp)=-1pri,24;7;0;"--":1668 7pri,26-p(dap+sp);0;7;p(dap+sp) 40(: CLS INFO Dnsp=z+1:nsp=z1+1nsp=1:Y=13 1680 L19,20;0;4;"Spieler";20,22;nsp;" !" ,f=15021:.05|L,f:f z:y 2000: SPIELENDE  SPALTE STREICHEN p(dap+sp)=-1 40(: CLS INFO 4;0;18,21;"Spalte";19,22-(sp);sp;19,23;"wird";20,20;"gestri-";21,21;"chen !" .f=0-502-1:.05|L,f:f  70F  1665 1 SPIELENDE - AUSWERTUNG 40(: CLS INFO K4;1;19,21;"SPIEL-";20,22;"ENDE !" .f=10 -20-1:.2~L,f:f &0:1:7:3: M8,156:103g,0:149,156:98b,0 M8,140:123{,0:149,140:98b,0 (92\,167:0,-152 )188,156:0,-140 ]111o,160:41),0:0,-9 :-41),0:0,9 )132,151:0,-135 N140,151:0,-11 :13 ,0:0,-124|  06;0;1,1;"ERGEBNIS:" &1,20;0;"PUNKTE:" 2,14;1;"Bonus";0;1;3,3;"Name:";3,12 ;"Oben";3,18;"Unten";3,24;"Gesamt:" 0:5:.8L,0:10 ,12 ;" BONUS ";11 ,12 ;" +35 ";12 ,12 ;" bei mehr ";13 ,12 ;" als 62 ";14,12 ;" Punkten ";15,12 ;" oben ! "  90Z *V0:7:.6,3:f=10 15:f,12 ;" ":f /M7;3;132,151:7;3;0,-135 1M7;3;153,140:7;3;0,-124| 4f=1z1 5dap=(f-1)*13 9to=0:tu=0 <print=3+2*f >print,1;n$(f) C8t=16:p(dap+f)=-1p(dap+t)=0 Hto=to+p(dap+t):t M9t=713 :p(dap+t)=-1p(dap+t)=0 Rtu=tu+p(dap+t):t W tg=to+tu \print,13 ;to aEto63?.8L,7:print,17;"35":tg=tg+35# fprint,20;tu kprint,29-tg;tg pf u#f=040(:.2~L,f:f zZ5;1;0;20+(Z1=8),2;">Noch einmal (J/N drcken) ?" ="J"3000 ="N"9900&  2180  NEUES SPIEL 2:5:0: Y10 ,2;"Noch einmal die gleichen Mit-";12 ,2;" spieler (J/N) ?" 1,5:502 W="J"p(z1*13 ):f=-3030:.08}# =,f:f:1470: ALTE NAMEN I="N"f=-2020:.2~L,f:f:1400x: NAMENSEINGABE 3010 @6:0:0: BM10 ,7;"* K N I F F E L *";12 ,7;" ANSGAR ZERFASS" D8100: SOUND F 40( H128,0 J)1,0,175,2771 * LV1;10 ,7;"* K N I F F E L *";12 ,7;" ANSGAR ZERFASS" N9000(#: U.D.G. P8100: SOUND R 1 Tp9 ,8;"MOECHTEST DU DIE";10 ,8;"ANWEISUNGEN SEHEN";11 ,8;"(J/N DRUECKEN) ?" V128,0 X)1,0,175,2771 * Z