| 1 CALL &BB48
10 REM ** Kniffel** Stand 18.08.85 ** 11 SYMBOL AFTER 244 20 CALL&BB48 50 MODE 1:GOSUB 6490 60 CLS:BORDER 0:INK 0,0:INK 1,0:INK 2,0:INK 3,0 70 WINDOW #2,1,40,1,9:PAPER #2,0:CLS #2 80 GOSUB 4160:GOSUB 4340 90 INK 1,18:INK 2,26:INK 3,13:GOSUB 5140 100 FOR i=1 TO 3000:NEXT i 110 WINDOW #3,2,39,24,24:PAPER #3,2:CLS #3 120 PEN #3,0:GOSUB 7000 130 PRINT #3," Soll das Spiel erkl";CHR$(249);"rt werden ?(J/N)"; 140 i1=1999:GOSUB 5280 150 PAPER #0,0:PAPER #3,0:BORDER 9 160 INK 2,0:INK 3,0:INK 0,0:INK 1,0 170 CLS 180 GOSUB 2840:CLS:GOSUB 4160 190 BORDER 0:INK 2,20:INK 3,0:INK 1,24:INK 0,1 200 DIM z(5),q(9,16),o$(9),q$(14) 210 PAPER #6,3:CLS #6 220 FOR i=17 TO 19 STEP 1:MOVE 0,i:DRAW 639,i,3:NEXT i 230 PEN #6,1 240 PRINT #6," Wieviele Mitspieler (max. 8) ? "; 250 a$=INKEY$:IF a$=""THEN 250 260 o=VAL(a$):IF o<1 OR o>8 THEN 250 270 CLS #6 280 FOR i=2 TO (o*2) STEP 2:LOCATE 2,7+i:PEN #0,1:PRINT i/2;".";:NEXT i 290 zl=1 300 FOR i=1 TO o 310 CLS #6 320 PEN #6,1:PRINT #6, " Name des"; 330 PEN #6,2 340 PRINT #6, i;".";:PEN #6,1:PRINT #6," Spielers : ";:PEN #6,2 350 GOSUB 3820:IF o$(i)="" THEN 310 360 oo$=o$(i):o1$=LEFT$(oo$,1):o2$=MID$(oo$,2):o1$=UPPER$(o1$):o$(i)=o1$+o2$ 370 PAPER #0,0:LOCATE 7,7+i+zl:PEN #0,2:PRINT o$(i);:zl=zl+1 380 NEXT i:CLS #6:FOR p=1 TO 1000:NEXT p 390 GOSUB 6760 400 s=1 410 p=1 420 INK 0,0:INK 1,0:INK 2,0:INK 3,0 430 PAPER 0:CLS:b=5:PEN 2 440 FOR i=1 TO 5:LOCATE b,9:b=b+7 450 PRINT i;:NEXT i:PEN 1:GOSUB 3010 460 PEN 1:GOSUB 3130 470 IF ge=1 THEN 490 480 IF ge=0 THEN 500 490 GOSUB 6470 500 s1=0:zh=1 510 INK 0,0:INK 1,0:INK 2,0:INK 3,0 520 FOR i=1 TO 13 530 q$(i)=(STR$(q(p,i))) 540 IF q(p,i)=0 THEN q$(i)=" " 550 IF q(p,i)=99 THEN q$(I)=" --" 560 IF q(p,i)<10 THEN q$(i)=" "+q$(i) 570 NEXT i 580 st$=" ":LOCATE 12,21:PRINT st$; 590 FOR i=1 TO 5 600 z(i)=INT(RND(1)*6+1) 610 z(i)=INT(RND(1)*6+1):NEXT i 620 GOSUB 3360:CLS #6 630 FOR i=1 TO 13: LOCATE 10+i,2:PRINT " ";:NEXT i:LOCATE 2,2:PAPER 3 640 PRINT "SPIELER:";:PAPER 0:PEN 2:LOCATE 11,2 650 PRINT o$(p);:PEN 1 660 SOUND 1,100,10:LOCATE 22,23:PEN 1 670 s1=s1+1 680 LOCATE 28,2::PEN 2 690 PRINT s1;:LOCATE 30,2:PRINT".";:PAPER 1:PEN 3:PRINT"VERSUCH";:PEN 2:PAPER 0:PEN 1 700 bb=28:IF s>9 THEN bb=bb-1 710 LOCATE bb,3:PEN 2 720 PRINT s;:LOCATE 30,3:PRINT".";:PAPER 1:PEN 3:PRINT"RUNDE ";:PAPER 0:PEN 2 730 LOCATE 22,23 740 PRINT "SONDERPUNKTE:";:FOR i=1 TO 3:LOCATE 34+i,23:PRINT" ";:NEXT i 750 PEN 2:IF q(p,16)=0 THEN 780 760 IF q(p,16)>9 THEN LOCATE 12,21 ELSE LOCATE 13,21 770 PRINT q(p,16);:PEN 1 780 IF q(p,14)=0 THEN 810 790 LOCATE 35,23 800 IF q(p,14)>0 THEN PRINT q(p,14); 810 LOCATE 2,23:PEN 2 820 PRINT "GESAMTPUNKTE:":FOR i=1 TO 4:LOCATE 15+i,23:PRINT" ":NEXT i:LOCATE 15,23 830 IF q(p,15)>0 THEN PRINT q(p,15); 840 IF q(p,15)=0 THEN PRINT " "; 850 PEN 1 860 IF zh=1 THEN GOSUB 3090 870 IF s1>2 THEN 1110 880 PAPER #6,3:CLS #6:PEN #6,2 890 PRINT #6," Mit welchen W";CHR$(246);"rfeln noch einmal?"; 900 PEN #6,0 910 BORDER 0:INK 0,9:INK 1,22:INK 2,26:INK 3,0 920 GOSUB 3660:PEN #6,1 930 IF a$="" THEN 1110 940 x= LEN (a$) 950 IF x>5 THEN 1010 960 FOR n=1 TO x 970 i$=MID$(a$,n,1) 980 IF VAL(i$)>5 OR VAL(i$)<1 THEN 1010 990 NEXT n 1000 GOTO 1020 1010 GOSUB 3610:GOTO 880 1020 s1=s1+1:LOCATE 28,2:PEN 2:PRINT s1;:LOCATE 30,2:PRINT"."; 1030 FOR k=1 TO x 1040 i$=MID$(a$,k,1):n=VAL(i$) 1050 z(n)=INT(RND(1)*6+1) 1060 z(n)=INT(RND(1)*6+1):w=z(n) 1070 PEN #n,2:CLS # n:GOSUB 3010 1080 ON w GOSUB 2900,2920,2950,2970,2990,3000 1090 NEXT k 1100 zh=0:GOTO 730 1110 GOSUB 5660 1120 CLS #6:PEN #6,1 1130 PRINT #6," Wo anrechnen :"; 1140 GOSUB 3420 1150 IF fe=1 THEN 1120 1160 IF c=12 AND q(p,c)=99 THEN 1190 1170 IF c=12 THEN 1200 1180 IF q(p,c)<>0 THEN 1190 ELSE 1200 1190 GOSUB 6100:GOTO 1120 1200 IF c>6 THEN 1340 1210 IF c=z(1) THEN q(p,c)=q(p,c)+z(1) 1220 IF c=z(2) THEN q(p,c)=q(p,c)+z(2) 1230 IF c=z(3) THEN q(p,c)=q(p,c)+z(3) 1240 IF c=z(4) THEN q(p,c)=q(p,c)+z(4) 1250 IF c=z(5) THEN q(p,c)=q(p,c)+z(5) 1260 IF q(p,c)>9 THEN y=12 ELSE y=13 1270 LOCATE y,13+c 1280 PRINT q(p,c); 1290 IF q(p,c)=0 THEN 1300 ELSE GOTO 2080 1300 LOCATE 12,13+c:PRINT " --"; 1310 IF q(p,c)=0 THEN q(p,c)=99 1320 FOR i=120 TO 40 STEP -1:SOUND 1,i,1:NEXT i 1330 GOTO 2080 1340 IF c<>13 THEN 1370 1350 q(p,c)=z(1)+z(2)+z(3)+z(4)+z(5) 1360 GOTO 1570 1370 v1=0:v2=0:v3=0:IF c>9 AND c<12 THEN 1640 1380 FOR i=1 TO 6 1390 r=0 1400 IF z(1)=i THEN r=r+1 1410 IF z(2)=i THEN r=r+1 1420 IF z(3)=i THEN r=r+1 1430 IF z(4)=i THEN r=r+1 1440 IF z(5)=i THEN r=r+1 1450 IF r>=3 AND c=7 THEN 1550 1460 IF r>=4 AND c=8 THEN 1550 1470 IF r=5 AND c=12 THEN 1940 1480 IF r=2 THEN v1=1 1490 IF r=3 THEN v2=1 1500 IF r=5 THEN v3=1 1510 NEXT i 1520 IF c=12 AND v3=0 AND q(p,c)=50 THEN 1190 1530 IF v1=1 AND v2=1 AND c=9 THEN q(p,c)=25 1540 GOTO 1560 1550 q(p,c)=z(1)+z(2)+z(3)+z(4)+z(5) 1560 IF q(p,c)=0 THEN 1600 1570 IF q(p,c)<10 THEN ht=37 ELSE ht=36 1580 LOCATE ht,14+(c-7):PRINT q(p,c); 1590 GOTO 2080 1600 q(p,c)=99 1610 LOCATE 36,14+(c-7):PRINT " --"; 1620 FOR i=120 TO 40 STEP -1:SOUND 1,i,1:NEXT i 1630 GOTO 2080 1640 IF c=10 THEN 1760 1650 r1=1:r=0 1660 FOR n=1 TO 5 1670 IF z(1)=n OR z(2)=n OR z(3)=n OR z(4)=n OR z(5)=n THEN r=r+1 1680 NEXT n 1690 IF r=5 THEN 1910 1700 r1=r1+1 1710 IF r1>2 THEN 1600 1720 r=0 1730 FOR n=2 TO 6 1740 IF z(1)=n OR z(2)=n OR z(3)=n OR z(4)=n OR z(5)=n THEN r=r+1 1750 NEXT n:GOTO 1690 1760 r1=0:r=1 1770 FOR n=1 TO 4 1780 IF z(1)=n OR z(2)=n OR z(3)=n OR z(4)=n OR z(5)=n THEN r=r+1 1790 NEXT n 1800 IF r=5 THEN 1910 1810 r=1:r1=0 1820 FOR n=2 TO 5 1830 IF z(1)=n OR z(2)=n OR z(3)=n OR z(4)=n OR z(5)=n THEN r=r+1 1840 NEXT n:IF r=5 THEN 1910 1850 r=1:r1=0 1860 FOR n=3 TO 6 1870 IF z(1)=n OR z(2)=n OR z(3)=n OR z(4)=n OR z(5)=n THEN r=r+1 1880 NEXT n:IF r=5 THEN 1910 1890 r=1:r1=r1+1 1900 GOTO 1560 1910 IF c=10 THEN q(p,c)=30 1920 IF c=11 THEN q(p,c)=40 1930 GOTO 1570 1940 IF q(p,c)=99 THEN 1190 1950 IF q(p,c)=50 THEN 1990 1960 IF q(p,c)=0 THEN q(p,c)=50 1970 GOSUB 4020 1980 GOTO 1570 1990 CLS #6:GOSUB 4020:PRINT #6," Noch ein Kiffel"; 2000 PRINT CHR$(7);:q(p,14)=q(p,14)+100 2010 FOR i=1 TO 3000:NEXT i:CLS #6 2020 PRINT #6," Wo streichen. "; 2030 PRINT CHR$(7);:GOSUB 3420 2040 IF q(p,c) <>0 THEN GOSUB 3620 ELSE 2060 2050 GOTO 2020 2060 IF c>6 THEN 1600 2070 GOTO 1290 2080 q(p,15)=0 2090 FOR i=1 TO 14 2100 IF q(p,i)=99 THEN 2120 2110 q(p,15)=q(p,15)+q(p,i) 2120 NEXT i 2130 so=0 2140 FOR i=1 TO 6 2150 IF q(p,i)=99 THEN 2170 2160 so=so+q(p,i) 2170 NEXT i 2180 q(p,16)=so 2190 IF so>=63 THEN 2200 ELSE 2220 2200 IF q(p,14)=35 OR q(p,14)=135 OR q(p,14)=235 OR q(p,14)=335 THEN 2220 2210 q(p,14)=q(p,14)+35:q(p,15)=q(p,15)+q(p,14):GOSUB 6170 2220 PEN 2:FOR i= 1 TO 4:LOCATE 34+i,23:PRINT" ";:NEXT i 2230 LOCATE 22,23:PRINT "SONDERPUNKTE:"; 2240 IF q(p,14)=0 THEN 2260 2250 LOCATE 35,23:PRINT q(p,14) 2260 LOCATE 2,23:PEN 2 2270 PRINT "GESAMTPUNKTE:":FOR i=1 TO 4:LOCATE 15+i,23:PRINT" ":NEXT i:LOCATE 15,23:PRINT q(p,15):PEN 1 2280 LOCATE 12,21:PRINT st$;:IF q(p,16)=0 THEN 2330 2290 PEN 2:IF q(p,16)>9 THEN 2310 2300 LOCATE 13,21:GOTO 2320 2310 LOCATE 12,21 2320 PRINT q(p,16);:PEN 1 2330 p=p+1 2340 FOR i=1 TO 3000:NEXT i 2350 IF p>o THEN 2380 2360 u=10:h=23 2370 GOTO 420 2380 s=s+1 2390 IF s=7 THEN GOSUB 6540 2400 IF s>13 THEN 2490 2410 GOTO 410 2420 MOVE i+2,352 2430 DRAW i+48,352,2 2440 MOVE i+51,350 2450 DRAW i+51,305,2 2460 MOVE i+48,303 2470 DRAW i+2,303,2 2480 NEXT i:RETURN 2490 FOR t=1 TO o 2500 FOR i=1 TO o 2510 IF q(i,15)>q(i+1,15) THEN 2550 2520 b=q(i,15):b$=o$(i) 2530 q(i,15)=q(i+1,15):o$(i)=o$(i+1) 2540 q(i+1,15)=b:o$(i+1)=b$ 2550 NEXT i,t 2560 MODE 1:BORDER 0:INK 3,23:INK 1,23:INK 2,3,24:INK 0,3:PAPER 0:CLS 2570 GOTO 2590 2580 MOVE 0,0:DRAW 0,399,3:DRAW 639,399,3:DRAW 639,0,3:DRAW 0,0:RETURN 2590 PEN 3:GOSUB 2580:GOSUB 4690 2600 xp=LEN (o$(1)):yp=INT(xp/2) 2610 PEN 1:LOCATE 19,14:PRINT "ist";:PEN 2:LOCATE 20-yp,20:PRINT UPPER$(o$(1)); 2620 GOSUB 6340 2630 CLS:INK 0,0:BORDER 15:INK 1,26:INK 2,21,0:INK 3,24:GOSUB 2580 2640 MOVE 0,360:DRAW 699,360,3:MOVE 0,46:DRAW 639,46,3 2650 PEN 3:LOCATE 13,2 2660 PRINT "GESAMTPUNKTZAHL"; 2670 Z=0:PEN 2 2680 FOR n=1 TO o 2690 LOCATE 4,6+n+Z 2700 PRINT n;:LOCATE 6,6+n+Z:PRINT". ";:PRINT UPPER$(o$(n)) 2710 IF (q(n,15)) <100 THEN LOCATE 32,6+n+Z ELSE LOCATE 31,6+n+Z 2720 PRINT (q(n,15)) 2730 Z=Z+1:PEN 1:NEXT n 2735 FOR i=1 TO 1500:NEXT i 2738 SOUND 1,480,20,13:GOSUB 7000 2740 LOCATE 2,24:PRINT"Eine Taste dr";CHR$(246);"cken."; 2750 CALL &BB18 2760 INK 3,0:INK 1,11:INK 2,20:BORDER 1:PAPER 3:CLS:INK 0,0 2770 CLS:GOSUB 4160:LOCATE 2,24:GOSUB 7000 2780 PRINT "Wollt Ihr noch eine Runde spielen (J/N)"; 2790 t$=INKEY$:IF t$="" THEN 2790 2800 t$=LOWER$ (t$) 2810 IF t$="j" THEN RUN 150 2820 IF t$="n" THEN 4810 ELSE 2790 2830 REM windowausdruck 2840 n=1:WINDOW #0,1,40,1,25 2850 FOR i=5 TO 33 STEP 7 2860 WINDOW #n,i,i+2,5,7 2870 PAPER #n,2:n=n+1:NEXT i 2880 WINDOW #6,1,40,25,25:RETURN 2890 REM 1 2900 PEN #n,3:PRINT #n,CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(253);CHR$(32)CHR$(32);CHR$(32);CHR$(32);:RETURN 2910 REM 2 2920 PEN #n,3:PRINT #n,CHR$(251);CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(255);:RETURN 2930 PRINT (q(n,15)) 2940 REM 3 2950 PEN #n,3:PRINT #n,CHR$(32);CHR$(32);CHR$(254);CHR$(32);CHR$(253);CHR$(32);CHR$(252);CHR$(32);CHR$(32);:RETURN 2960 REM 4 2970 PEN #n,3:PRINT #n,CHR$(251);CHR$(32);CHR$(254);CHR$(32);CHR$(32);CHR$(32);CHR$(252);CHR$(32);CHR$(255);:RETURN 2980 REM 5 2990 PEN #n,3:PRINT #n,CHR$(251);CHR$(32);CHR$(254);CHR$(32);CHR$(253);CHR$(32);CHR$(252);CHR$(32);CHR$(255);:RETURN 3000 PEN #n,3:PRINT #n,CHR$(253);CHR$(253);CHR$(253);CHR$(32);CHR$(32);CHR$(32);CHR$(250);CHR$(250);CHR$(250);:RETURN 3010 FOR i=62 TO 510 STEP 112 3020 MOVE i,288:DRAW i,334,2 3030 MOVE i+2,336:DRAW i+48,336,2 3040 MOVE i+51,334:DRAW i+51,288,2 3050 MOVE i+48,286:DRAW i+2,286,2 3060 NEXT i:RETURN 3070 CLS #n:RETURN 3080 DATA 1.Einer,7.Dreierp.,2.Zweier,8.Viererp.,3.Dreier,9.Voll Haus,4.Vierer,10.Kl.Strase,5.Funfer,11.Gr.Strase,6.Sechser,12.Kniffel 3090 FOR n= 1 TO 5 3100 w= z(n):PEN #n,2 3110 ON w GOSUB 2900,2920,2950,2970,2990,3000 3120 NEXT n:RETURN 3130 LOCATE 14,12:PEN 3:PAPER 2 3140 PRINT " SPIEL-STAND "; 3150 MOVE 208,224:DRAW 414,224,2 3160 MOVE 0,24:DRAW 638,24,1:DRAW 638,25,1:DRAW 0,25,1:FOR i=17 TO 22 STEP 1:MOVE 0,i:DRAW 639,i,3:NEXT i 3170 MOVE 0,25:DRAW 0,399,1:DRAW 638,399,1:DRAW 638,25,1:MOVE 0,248:DRAW 638,248,1 3180 PAPER 0 3190 MOVE 16,384:DRAW 142,384,3:MOVE 480,384:DRAW 590,384,1 3200 MOVE 0,57:DRAW 638,57,1:MOVE 180,90:DRAW 238,90,2:MOVE 180,87:DRAW 238,87,2 3210 PEN 2:LOCATE 2,21:PRINT"SUMME 1-6:":PEN 1 3220 RESTORE:i1=7:y=23:PEN 1 3230 FOR i=1 TO 6:LOCATE 2,13+i 3240 IF i1=10 THEN y=22 3250 READ t$:PRINT t$;:LOCATE 11,13+i 3260 PRINT ":";:LOCATE 12,13+i:LOCATE y,13+i 3270 READ t$:PRINT t$;:LOCATE 35,13+i 3280 PRINT ":";:LOCATE 36,13+i:i1=i1+1 3290 NEXT i 3300 LOCATE 5,18:PRINT CHR$(246) 3310 LOCATE 32,18:PRINT CHR$(245); 3320 LOCATE 32,17:PRINT CHR$(245); 3330 LOCATE 22,20 3340 PRINT "13.Chance :"; 3350 RETURN 3360 PEN 1:i1=7 3370 FOR i=1 TO 6 3380 LOCATE 12,13+i:PRINT q$(i); 3390 LOCATE 36,13+i:PRINT q$(i1); 3400 LOCATE 36,20:PRINT q$(13); 3410 i1=i1+1:NEXT i:RETURN 3420 a1$="" 3430 FOR i=1 TO 2 3440 c$=INKEY$:IF c$="" THEN 3440 3450 IF ASC(c$)=127 THEN 3540 3460 IF ASC(c$)=13 THEN 3510 3470 IF ASC(c$)<48 OR ASC(c$)>57 THEN 3440 3480 a1$=a1$+c$ 3490 LOCATE 16+i,25:PAPER 3 3500 PRINT c$;:NEXT i 3510 c=VAL(a1$) 3520 IF c<1 OR c>13 THEN GOSUB 6100 ELSE fe=0 3530 PAPER 0:SOUND 1,60,20:RETURN 3540 x=LEN(a1$) 3550 IF a1$="" THEN 3440 3560 x$=LEFT$(a1$,x-1) 3570 a1$=x$ 3580 LOCATE 17,25:PRINT CHR$(18) 3590 LOCATE 16+i,25:PRINT a1$; 3600 IF i>1 THEN i=i-1:PRINT a1$;:GOTO 3440 3610 CLS #6:PEN #6,2 3620 PRINT #6,"Falsche Eingabe."; 3630 PRINT CHR$(7); 3640 FOR ts=1 TO 3000:NEXT ts 3650 CLS #6:fe=1:RETURN 3660 a1$="":o1$=INKEY$:o1$=INKEY$ 3670 FOR i=1 TO 5 3680 c$=INKEY$:IF c$="" THEN 3680 3690 IF ASC(c$)=127 THEN 3750 3700 IF ASC(c$)=13 THEN 3740 3710 IF ASC(c$)<49 OR ASC(c$)>57 THEN 3680 3720 a1$=a1$+c$ 3730 PAPER 3:LOCATE 34+i,25:PRINT c$;:NEXT i 3740 a$=a1$:PAPER 0: RETURN 3750 x=LEN(a1$) 3760 IF a1$="" THEN 3680 3770 x$=LEFT$(a1$,x-1) 3780 a1$=x$ 3790 PAPER 3:LOCATE 34,25:PRINT CHR$(18) 3800 LOCATE 35,25 3810 PRINT a1$:IF i>1 THEN i=i-1:PAPER 0:GOTO 3680 3820 a1$="":k1$=INKEY$ 3830 FOR x1=1 TO 14 3840 c$=INKEY$:IF c$="" THEN 3840 3850 SOUND 1,15,5 3860 IF ASC(c$)=127 THEN 3940 3870 IF ASC(c$)=13 THEN 3930 3880 IF ASC(c$)<48 OR ASC(c$)>122 THEN 3840 3890 IF x1=13 THEN 6680 3900 a1$=a1$+c$ 3910 PAPER #0,3:PEN #0,2:LOCATE 25+x1,25:PRINT c$; 3920 NEXT x1 3930 o$(i)=a1$:RETURN 3940 x=LEN (a1$) 3950 IF a1$="" THEN 3840 3960 x$=LEFT$(a1$,x-1) 3970 a1$=x$ 3980 PAPER #6,3: LOCATE 25,25:PRINT CHR$(18); 3990 LOCATE 26,25:PRINT a1$; 4000 x1=x1-1:GOTO 3840 4010 DATA 119,60,30,60,119,239,119,60,30 4020 BORDER 6,0 4030 kn=kn+1 4040 FOR i=1 TO 4 4050 RESTORE 4010 4060 FOR th= 1 TO 8:READ ts 4070 SOUND 1,ts,10 4080 NEXT th,i 4090 FOR kl= 100 TO 800 STEP 15 4100 SOUND 1,kl,2,15 4110 NEXT kl 4120 FOR kl=1 TO 7 STEP 0.5 4130 SOUND 1,400,5,kl,,,1 4140 NEXT kl:BORDER 16:IF kn=3 THEN 6270 4150 RETURN 4160 REM 4170 MOVE 0,290:DRAW 0,399,2:DRAW 639,399,2:DRAW 639,290,2:DRAW 0,290,2 4180 REM K=50,60 4190 MOVE 90,300:DRAW 100,310,1:DRAW 100,329,1:MOVE 80,380:DRAW 90,390,1:DRAW 100,390,1:DRAW 90,380,1:MOVE 100,390:DRAW 100,350,1:MOVE 130,380:DRAW 140,390,1:DRAW 150,390,1:DRAW 140,380,1:MOVE 110,350:DRAW 150,310,1:DRAW 140,300,1 4200 MOVE 80,300:DRAW 80,380,2:DRAW 90,380,2:DRAW 90,340,2:DRAW 130,380,2:DRAW 140,380,2:DRAW 100,340,2:DRAW 140,300,2:DRAW 130,300,2:DRAW 90,340,2:DRAW 90,300,2:DRAW 80,300,2 4210 MOVE 170,300:DRAW 180,310,1:DRAW 180,360,1:MOVE 160,380:DRAW 170,390,1:DRAW 180,390,1:DRAW 170,380,1:MOVE 180,390:DRAW 240,331,1:MOVE 240,380:DRAW 250,390,1:DRAW 260,390,1:DRAW 260,310,1:DRAW 250,300,1:MOVE 250,380:DRAW 260,390,1 4220 MOVE 160,300:DRAW 160,380,2:DRAW 170,380,2:DRAW 240,310,2:DRAW 240,380,2:DRAW 250,380,2:DRAW 250,300,2:DRAW 240,300,2:DRAW 170,370,2:DRAW 170,300,2:DRAW 160,300,2 4230 MOVE 270,380:DRAW 280,390,1:DRAW 290,390,1:DRAW 280,380:MOVE 290,390:DRAW 290,310,1:DRAW 280,300,1:DRAW 270,300,2:DRAW 270,380,2:DRAW 280,380,2:DRAW 280,300,2 4240 MOVE 300,380:DRAW 310,390,1:DRAW 360,390,1:DRAW 350,380,1:MOVE 360,390:DRAW 360,380,1:DRAW 350,370,1:MOVE 320,370:DRAW 320,360,1:DRAW 310,350,1:MOVE 320,360:DRAW 360,360,1:DRAW 350,350,1:MOVE 360,360:DRAW 360,350,1:DRAW 350,340,1:MOVE 320,340 4250 DRAW 320,310,1:DRAW 310,300,1:DRAW 300,300,2:DRAW 300,380,2:DRAW 350,380,2:DRAW 350,370,2:DRAW 310,370,2:DRAW 310,350,2:DRAW 350,350,2:DRAW 350,340,2:DRAW 310,340,2:DRAW 310,300,2 4260 MOVE 370,380:DRAW 380,390,1:DRAW 430,390,1:DRAW 430,380,1:DRAW 420,370,1:MOVE 430,390:DRAW 420,380,1:MOVE 380,350:DRAW 390,360,1:DRAW 390,370,1:MOVE 390,360:DRAW 430,360,1:DRAW 430,350,1:DRAW 420,340,1:MOVE 430,360:DRAW 420,350,1:MOVE 390,340 4270 DRAW 390,310,1:DRAW 380,300,1:DRAW 370,300,2:DRAW 370,380,2:DRAW 420,380,2:DRAW 420,370,2:DRAW 380,370,2:DRAW 380,350,2:DRAW 420,350,2:DRAW 420,340,2:DRAW 380,340,2:DRAW 380,300,2 4280 MOVE 440,380:DRAW 450,390,1:DRAW 500,390,1:DRAW 490,380:MOVE 500,390:DRAW 500,380,1:DRAW 490,370,1:MOVE 460,370:DRAW 460,360,1:DRAW 450,350,1:MOVE 460,360:DRAW 500,360,1:DRAW 490,350,1:MOVE 500,360:DRAW 500,350,1:DRAW 490,340,1:MOVE 460,340 4290 DRAW 460,320,1:DRAW 450,310,1:MOVE 460,320:DRAW 500,320,1:DRAW 490,310,1:MOVE 500,320:DRAW 500,310,1:DRAW 490,300,1:DRAW 440,300,2:DRAW 440,380,2:DRAW 490,380,2:DRAW 490,370,2:DRAW 450,370,2:DRAW 450,350,2:DRAW 490,350,2:DRAW 490,340,2 4300 DRAW 450,340,2:DRAW 450,310,2:DRAW 490,310,2:DRAW 490,300,2 4310 MOVE 510,380:DRAW 520,390,1:DRAW 530,390,1:DRAW 520,380,1:MOVE 530,390:DRAW 530,320,1:DRAW 520,310,1:MOVE 530,320:DRAW 570,320,1:DRAW 560,310,1:MOVE 570,320:DRAW 570,310,1:DRAW 560,300,1:DRAW 510,300,2:DRAW 510,380,2:DRAW 520,380,2:DRAW 520,310,2 4320 DRAW 560,310,2:DRAW 560,300,2 4330 RETURN 4340 WINDOW #0,1,40,10,25:PAPER #0,1:CLS #0 4350 PEN 0:LOCATE 8,6:PRINT CHR$(145) 4360 LOCATE 6,7:PRINT CHR$(150);CHR$(156);CHR$(148);CHR$(150);CHR$(156) 4370 LOCATE 6,8:PRINT CHR$(151);CHR$(153);CHR$(149);CHR$(149);CHR$(149) 4380 LOCATE 6,9:PRINT CHR$(147);CHR$(152);CHR$(145);CHR$(145);CHR$(145) 4390 PEN 2:LOCATE 18,5:PRINT CHR$(214);CHR$(143);CHR$(143) 4400 MOVE 288,192:DRAW 319,192,3:DRAW 303,176,3:DRAW 272,177,3:DRAW 288,192,3:MOVE 319,192:DRAW 319,177,3 4410 MOVE 295,184:DRAW 297,184,0:MOVE 296,184:DRAW 296,184,0 4420 LOCATE 18,6:PRINT CHR$(143);CHR$(143);CHR$(143);CHR$(143) 4430 MOVE 272,177:DRAW 272,161,3:DRAW 320,161,3:DRAW 336,177,3:DRAW 304,177,3 4440 LOCATE 16,7:PRINT CHR$(214);CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(214);CHR$(143);CHR$(143) 4450 DRAW 272,145,3:DRAW 240,145,3:DRAW 256,160,3:DRAW 323,160,3:DRAW 323,144,3:DRAW 370,144,3:DRAW 384,159,3:DRAW 350,159,3:DRAW 335,143,3:MOVE 336,143:DRAW 336,177,3 4460 MOVE 307,173:DRAW 309,173,0:MOVE 323,173:DRAW 325,173,0:MOVE 311,169:DRAW 313,169,0:MOVE 299,165:DRAW 301,165,0:MOVE 315,165:DRAW 317,165 4470 MOVE 281,169:DRAW 283,169,0:MOVE 283,168:DRAW 281,168,0:MOVE 281,167:DRAW 283,167,0 4480 LOCATE 16,8:PRINT CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(143) 4490 PLOT 259,156,0: PLOT 260,156,0: PLOT 264,153,0: PLOT 265,153,0: PLOT 269,149,0: PLOT 270,149,0: PLOT 280,138,0: PLOT 280,137,0: PLOT 332,165,0: PLOT 332,166,0: PLOT 330,154,0: PLOT 330,153,0: PLOT 354,154,0: PLOT 356,154,0: PLOT 371,154,0 4500 PLOT 373,154,0: PLOT 366,149,0: PLOT 365,149,0: PLOT 350,149,0: PLOT 349,149,0: PLOT 380,149,0: PLOT 375,142,0: PLOT 378,136,0: PLOT 380,130,0 4510 LOCATE 16,9:PRINT CHR$(143);CHR$(143);CHR$(212);CHR$(32);CHR$(143);CHR$(143);CHR$(143);CHR$(143);CHR$(212) 4520 PLOT 375,125,0: PLOT 326,140,0: PLOT 325,140,0: PLOT 342,140,0: PLOT 341,140,0: PLOT 321,137,0: PLOT 322,137,0: PLOT 338,137,0: PLOT 337,137,0: PLOT 317,133,0: PLOT 318,133,0: PLOT 333,133,0: PLOT 334,133,0 4530 PLOT 348,131,0: PLOT 345,115,0: PLOT 363,135,0: PLOT 363,136,0: PLOT 363,137,0: PLOT 364,137,0: PLOT 364,136,0: PLOT 364,135,0: PLOT 357,135,0: PLOT 357,137,0: PLOT 357,122,0: PLOT 357,120,0: PLOT 363,122,0: PLOT 364,122,0: PLOT 363,120,0 4540 PLOT 364,120: PLOT 320,112,0: PLOT 322,112,0: PLOT 320,114,0: PLOT 322,114,0: PLOT 344,113,0: PLOT 349,129,0: PLOT 380,128,0: PLOT 375,123,0: PLOT 375,141,0: PLOT 380,146,0: PLOT 378,135,0 4550 PLOT 304,144,0: PLOT 304,146,0: PLOT 306,144,0: PLOT 306,146,0: PLOT 247,137,0: PLOT 249,137,0: PLOT 247,139,0: PLOT 249,139,0: PLOT 247,119,0: PLOT 249,119,0: PLOT 247,121,0 4560 PLOT 249,121,0: PLOT 266,119,0: PLOT 264,119,0: PLOT 266,121,0: PLOT 264,121,0: PLOT 264,137,0: PLOT 266,137,0: PLOT 264,139,0: PLOT 266,139,0 4570 PLOT 250,149,0: PLOT 252,149,0: PLOT 262,153,0: PLOT 276,157,0: PLOT 278,157,0 4580 LOCATE 20,10:PRINT CHR$(143);CHR$(143);CHR$(212) 4590 MOVE 384,159:DRAW 384,127,3:DRAW 370,113,3:DRAW 370,144,3:MOVE 370,113:DRAW 354,113,3:DRAW 354,145,3:DRAW 338,129,3:DRAW 338,96,3:DRAW 354,113,3:MOVE 338,96:DRAW 304,96,3:DRAW 304,129,3:DRAW 320,145,3:MOVE 338,129:DRAW 289,129,3:DRAW 289,160,3 4600 MOVE 289,129:DRAW 273,113,3:DRAW 241,113,3:DRAW 241,145,3:MOVE 273,113:DRAW 273,145,3 4610 PEN 0 4620 LOCATE 29,5:PRINT CHR$(150);CHR$(154);CHR$(156) 4630 LOCATE 29,6:PRINT CHR$(149):LOCATE 34,6:PRINT CHR$(145):LOCATE 37,6:PRINT CHR$(149) 4640 LOCATE 29,7:PRINT CHR$(147);CHR$(154);CHR$(156);CHR$(150);CHR$(156);CHR$(148);CHR$(150);CHR$(156);CHR$(149) 4650 LOCATE 31,8:PRINT CHR$(149);CHR$(149);CHR$(149);CHR$(149);CHR$(151);CHR$(153);CHR$(149) 4660 LOCATE 29,9:PRINT CHR$(147);CHR$(154);CHR$(153);CHR$(151);CHR$(153);CHR$(145);CHR$(147);CHR$(152);CHR$(145) 4670 LOCATE 32,10:PRINT CHR$(145) 4680 RETURN 4690 LOCATE 5,2:PRINTCHR$(209):LOCATE 9,2:PRINTCHR$(204) 4700 LOCATE 5,3:PRINT CHR$(209);CHR$(32);CHR$(32);CHR$(204):LOCATE 22,3:PRINT CHR$(150);CHR$(154);CHR$(154);CHR$(156) 4710 LOCATE 5,4:PRINT CHR$(209);CHR$(32);CHR$(204):LOCATE 14,4:PRINT CHR$(150);CHR$(150):LOCATE 19,4:PRINT CHR$(148):LOCATE 22,4:PRINT CHR$(149) 4720 LOCATE 5,5:PRINTCHR$(209);CHR$(204):LOCATE 13,5:PRINTCHR$(148);CHR$(149);CHR$(149):LOCATE 19,5:PRINTCHR$(149):LOCATE 22,5:PRINTCHR$(149):LOCATE 26,5:PRINTCHR$(148) 4730 LOCATE 5,6:PRINT CHR$(209);CHR$(205):LOCATE 10,6:PRINT CHR$(150);CHR$(154);CHR$(156);CHR$(148);CHR$(151);CHR$(151);CHR$(150);CHR$(154);CHR$(156);CHR$(149);CHR$(146);CHR$(152);CHR$(147);CHR$(154);CHR$(154);CHR$(156);CHR$(148);CHR$(150);CHR$(154) 4740 LOCATE 29,6:PRINT CHR$(156);CHR$(150);CHR$(154);CHR$(156);CHR$(150);CHR$(154);CHR$(156);CHR$(150);CHR$(156) 4750 LOCATE 5,7:PRINT CHR$(209);CHR$(32);CHR$(205);CHR$(32);CHR$(32);CHR$(149);CHR$(32);CHR$(149);CHR$(149);CHR$(149);CHR$(149);CHR$(151);CHR$(154);CHR$(153);CHR$(149) 4760 LOCATE 25,7:PRINTCHR$(149);CHR$(149);CHR$(151);CHR$(154);CHR$(153);CHR$(149);CHR$(32);CHR$(149);CHR$(151);CHR$(154);CHR$(153);CHR$(149) 4770 LOCATE 5,8:PRINT CHR$(209):LOCATE 8,8:PRINT CHR$(205);CHR$(32);CHR$(145);CHR$(32);CHR$(145);CHR$(145);CHR$(149);CHR$(149);CHR$(147);CHR$(154);CHR$(153);CHR$(145) 4780 LOCATE 25,8:PRINT CHR$(149);CHR$(145);CHR$(147);CHR$(154);CHR$(153);CHR$(147);CHR$(154);CHR$(157);CHR$(147);CHR$(154);CHR$(153);CHR$(145) 4790 LOCATE 5,9:PRINTCHR$(209):LOCATE 9,9:PRINTCHR$(205):LOCATE 14,9:PRINT CHR$(145);CHR$(145):LOCATE 22,9:PRINT CHR$(147);CHR$(154);CHR$(154);CHR$(153):LOCATE 30,9:PRINT CHR$(147);CHR$(154);CHR$(153) 4800 RETURN 4810 CLS:BORDER 0 4820 GOSUB 4170 4830 REM 4840 DATA 06,255,205,77,188,201 4850 RESTORE 4840 4860 FOR adr=43880 TO 43885 4870 READ wert 4880 POKE adr,wert 4890 NEXT 4900 DATA 06,0,205,77,188,201 4910 RESTORE 4900 4920 FOR adr=43886 TO 43891 4930 READ wert 4940 POKE adr,wert 4950 NEXT 4960 FOR f=1 TO 5 4970 FOR i= 1 TO 17 4980 CALL 43886 4990 NEXT 5000 FOR i=1 TO 17 5010 CALL 43880 5020 NEXT i 5030 NEXT f 5040 FOR i=1 TO 17 5050 CALL 43886 5060 NEXT i 5070 FOR i=1 TO 10 5080 CALL 43880 5090 NEXT i 5100 LOCATE 13,25 5110 PRINT "*** ENDE ***" 5120 FOR i=1 TO 5:PRINT:NEXT i 5130 i$=INKEY$:CALL &BB18:CALL &0 5140 REM 5150 SYMBOL 251,0,0,0,30,63,63,63,30 5160 SYMBOL 252,30,63,63,63,30,0,0,0 5170 SYMBOL 253,0,0,60,126,126,126,60,0 5180 SYMBOL 254,0,0,0,120,252,252,252,120 5190 SYMBOL 255,120,252,252,252,120,0,0,0 5200 SYMBOL 250,0,60,126,126,126,60,0,0 5210 SYMBOL 249,108,0,120,12,124,204,122,0 5220 SYMBOL 248,195,24,60,102,126,102,102 5230 SYMBOL 247,102,0,60,102,102,102,60,0 5240 SYMBOL 246,102,0,102,102,102,102,62,0 5250 SYMBOL 245,60,102,124,102,102,124,96,240 5260 RETURN 5270 i1=0 5280 i1=i1+1:IF i1=2000 THEN SOUND 1,30,14:SOUND 1,0,20:SOUND 1,30,15:GOTO 5270 5290 re$=INKEY$:IF re$=""THEN 5280 5300 re$=LOWER$(re$) 5310 IF re$="n" THEN RETURN 5320 IF re$="j" THEN 5330 ELSE 5290 5330 MODE 1:BORDER 0:INK 0,0:INK 1,11:INK 2,1:INK 3,26:PAPER 2:CLS 5340 PAPER 3:PEN 0:LOCATE 11,2:PRINT" SPIEL-ERKLAERUNG " 5350 MOVE 160,385:DRAW 447,385,3 5360 PEN 3:PAPER 2:LOCATE 1,4:PRINT"*KNIFFEL*";:PEN 1:PRINT" ist ein W"CHR$(246);"rfelspiel f";CHR$(246);CHR$(114);CHR$(32);CHR$(109);CHR$(97);CHR$(120);CHR$(46);CHR$(56);"Personen." 5370 PRINT"Nach dem Grundwurf stehen jedem Spieler 2 Wiederholw";CHR$(246);"rfe zu,um das W";CHR$(246);"rfelbild zu" 5380 LOCATE 1,8:PRINT"verbessern . Anzahl und Reihenfolge der W";CHR$(246);"rfel ist frei w";CHR$(249);"hlbar,mit Taste DEL" 5390 LOCATE 1,10:PRINT"korregierbar und mit ENTER zu best";CHR$(249);"tigen";:PRINT"( soll nichts ver";CHR$(249);"ndert werden,ENTER be-";:PRINT"t";CHR$(249);"tigen )." 5400 LOCATE 1,13 5410 PRINT"Anschlie";CHR$(245);CHR$(101);CHR$(110);CHR$(100);CHR$(32);CHR$(119);CHR$(105);CHR$(114);CHR$(100);CHR$(32);CHR$(100);CHR$(101);CHR$(114);CHR$(32);CHR$(87);CHR$(117);CHR$(114);CHR$(102);CHR$(32);CHR$(105);CHR$(110);CHR$(32);CHR$(100) 5420 LOCATE 32,13 5430 PRINT CHR$(101);CHR$(110);CHR$(32);CHR$(83);CHR$(112);CHR$(97);CHR$(108);CHR$(32);CHR$(45);"ten 1-13 festgelegt (mit ENTER best";CHR$(249);CHR$(116);CHR$(105);CHR$(32);CHR$(45)"gen).In den Sp.1-6 werden nur die gefor-derten W";CHR$(246);"rfelaugen" 5440 LOCATE 20,16 5450 PRINT"angerechnet. Zus";CHR$(249);CHR$(116);CHR$(122);CHR$(32)CHR$(45);"lich werden 35 Sonderpunkte erteilt,wennin den Sp.1-6 eine Summe von mindestens 63 Punkten erreicht ist . In Sp.7 und 8" 5460 LOCATE 1,20 5470 PRINT"werden die gesamten Wurfaugen angerech -net,wenn 3 bzw.4 gleiche W";CHR$(246);CHR$(114);CHR$(102);CHR$(101);CHR$(108);CHR$(32);CHR$(40);CHR$(80);CHR$(97);CHR$(115);CHR$(99);CHR$(104);CHR$(41);"vorhanden sind. Bei einem 3er und einem " 5480 LOCATE 1,23 5490 PRINT "2er Pasch werden 25 Punkte in der Sp.9 erteilt.Eine Kl.Stra";CHR$(245);CHR$(101);CHR$(32);CHR$(40);CHR$(51);CHR$(48);CHR$(32);CHR$(80);CHR$(117);CHR$(110);CHR$(107);CHR$(116);CHR$(101);CHR$(41);CHR$(32);CHR$(105);CHR$(115);CHR$(116) 5500 LOCATE 19,25:PEN 3:PRINT "BITTE TASTE DRUECKEN" 5510 CALL &BB18 5520 CLS:PEN 1 5530 LOCATE 1,1:PRINT"erreicht,wenn 4 W";CHR$(246);CHR$(114);CHR$(102);CHR$(101);CHR$(108);CHR$(32);"eine Zahlenfolge" 5540 LOCATE 1,2:PRINT "ergeben( die W";CHR$(246);"rfelfolge ist gleichg";CHR$(246);CHR$(108);CHR$(45)"tig).Bei der Gr.Stra";CHR$(245);CHR$(101);" (40 Pkt.) m";CHR$(246);CHR$(115);CHR$(115);"en" 5550 LOCATE 1,4:PRINT"s";CHR$(249);"mtliche W";CHR$(246);CHR$(114);CHR$(102);CHR$(101);CHR$(108);CHR$(32);CHR$(101);CHR$(105);CHR$(110);CHR$(101);CHR$(32);CHR$(90);CHR$(97);CHR$(104);CHR$(108);CHR$(101);CHR$(110);CHR$(102);CHR$(111);CHR$(108);CHR$(103) 5560 LOCATE 33,4:PRINT"e erge-":PRINT"ben.* KNIFFEL *(alle W";CHR$(246);:PRINT"rfel zeigen glei-";:PRINT"che Augenzahl) wird mit 50 Spielpunkten bewertet und in Sp.12 festgelegt.Sollte";:PRINT"ein Mitspieler in einer Spielrunde den " 5570 PRINT"zweiten KNIFFEL-Wurf erreichen,so werden100 Sonderpunkte erzielt (der 2 Kniffel-wurf mu";CHR$(245);" daf";CHR$(246);:PRINT"r in einer freien Spalte";:PRINT"festgelegt werden)."; 5580 PRINT"In Spalte 13 haben Sie die Chance,einen v";CHR$(247);:PRINT"llig verspielten Wurf abzulegen. Alle ";:PRINT"erzielten Wurfaugen werden gewertet." 5590 LOCATE 7,19:PRINT"Viel Spa";CHR$(245);:PRINT" und Gl";CHR$(246);:PRINT"ck w";CHR$(246);"nscht":LOCATE 6,21:PRINT"der * CPC 464 * beim KNIFFELN " 5600 PEN 3:LOCATE 2,24:PRINT"Spielanleitung noch einmal mit Taste E":LOCATE 2,25:PRINT"Spielstart mit Taste S" 5610 w$=INKEY$:IF w$="" THEN 5610 5620 w$=LOWER$(w$) 5630 IF w$="e" THEN 5330 5640 IF w$="s" THEN RETURN ELSE GOTO 5610 5650 REM sonderauswertung 5660 FOR i=1 TO 6 5670 r9=0 5680 IF z(1)=i THEN r9=r9+1 5690 IF z(2)=i THEN r9=r9+1 5700 IF z(3)=i THEN r9=r9+1 5710 IF z(4)=i THEN r9=r9+1 5720 IF z(5)=i THEN r9=r9+1 5730 IF r9=4 OR r9=5 THEN 5750 5740 NEXT i:RETURN 5750 CLS #6 5760 IF r9=5 THEN 5850 5770 IF q(p,12)=99 THEN RETURN 5780 PEN #6,2:TR=INT(RND(1)*2+1) 5790 IF TR=2 THEN 5800 ELSE RETURN 5800 SOUND 1,32,5:SOUND 1,63,5:SOUND 1,127,5 5810 GOTO 5950 5820 FOR i=1 TO 3000:NEXT i:PEN #6,3 5830 SOUND 1,32,5:SOUND 1,63,5:SOUND 1,127,5 5840 RETURN 5850 IF q(p,12)=99 THEN 5860 ELSE RETURN 5860 CLS #6:PEN #6,2 5870 RESTORE 6260:GOSUB 6210 5880 PRINT #6," HA...HA...HA...!"; 5890 FOR i=1 TO 1000:NEXT i:CLS #6:SOUND 1,60:SOUND 1,119 5900 PRINT #6," Wohl Pech gehabt ...."; 5910 FOR i=1 TO 1000:NEXT i:CLS #6 5920 SOUND 1,60:SOUND 1,119,20 5930 PRINT #6," Der Kniffel ist schon gestrichen"; 5940 FOR i=1 TO 2000:NEXT i:CLS #6:PEN #6,3:RETURN 5950 te=INT(RND(1)*12+1):RESTORE 5970 5960 FOR i=1 TO te:READ ws$:NEXT i 5970 DATA Beinahe ein Kniffel...Pech gehabt 5980 DATA Knapp daneben ist auch vorbei! 5990 DATA Das reicht auch nicht! 6000 DATA Einer fehlt noch! 6010 DATA Mit dem Kniffel wirds wohl nichts ? 6020 DATA Zum Kniffel fehlt aber noch einer! 6030 DATA Wo bleibt der Kniffel ? 6040 DATA Ich dachte es sollte ein Kniffel werden! 6050 DATA Zum Kniffel fehlt immer noch einer ! 6060 DATA Denkste.....Kein Kniffel! 6070 DATA So wirds auch kein Kniffel! 6080 DATA So eine Pleite .. Wieder nicht geklappt! 6090 PRINT #6,ws$;:GOTO 5820 6100 CLS #6:IF c<=13 THEN 6120 6110 PRINT #6," Die";c;"ist nicht erlaubt";:GOTO 6140 6120 IF c=0 THEN 6110 6130 PRINT #6," Die "c". Spalte ist schon belegt."; 6140 PRINT CHR$(7); 6150 FOR i=1 TO 3000:NEXT i 6160 fe=1:CLS #6:RETURN 6170 CLS #6:BORDER 26,1:GOSUB 6240:RESTORE 6260:GOSUB 6210 6180 PEN #6,2:PRINT #6," Es gibt Sonderpunkte"; 6190 FOR i=1 TO 2000:NEXT i 6200 RESTORE 6260:GOSUB 6210:BORDER 16:CLS #6:PEN #6,1:RETURN 6210 FOR i=1 TO 10 6220 READ x1,x2 6230 SOUND 1,x1,x2:NEXT i:RETURN 6240 FOR i=15 TO 1 STEP -1 6250 SOUND 1,0,10,i,,,1:NEXT i:RETURN 6260 DATA 30,30,30,30,0,20,42,10,0,20,42,10,0,20,50,10,0,20,50,10 6270 CLS #6:PEN #6,2:kn=0:SOUND 1,63,5 6280 PRINT #6," Ihr seid Heute aber in Form"; 6290 FOR i=1 TO 2000:NEXT i:CLS #6 6300 SOUND 1,67,5 6310 PRINT #6," Schon wieder ein Kniffel"; 6320 FOR i=1 TO 2000:NEXT i:CLS #6:PEN #6,1 6330 SOUND 1,63:SOUND 1,127:SOUND 1,253:RETURN 6340 RESTORE 6430:x=6:GOSUB 6390 6350 RESTORE 6440:x=6:GOSUB 6390 6360 RESTORE 6450:x=8:GOSUB 6390 6370 Z=0 6380 RESTORE 6460:x=6 6390 Z=Z+1:FOR i=1 TO x:READ A,B 6400 SOUND 1,A,B,15,0,0,0:NEXT i 6410 FOR pa=1 TO 2800:NEXT pa 6420 RETURN 6430 DATA 426,30,426,30,379,50,426,50,319,50,338,70, 6440 DATA 426,30,426,30,379,50,426,50,284,50,319,70 6450 DATA 426,30,426,30,213,50,253,50,319,25,319,25,338,50,379,70 6460 DATA 239,30,239,30,253,60,319,60,284,60,319,80, 6470 FOR i=1 TO 4 6480 ENV 1,100,3,1:SOUND 1,100,40,1,1,1,15:NEXT i:RETURN 6490 SOUND 1,478,70,13,15,15,0 6500 SOUND 1,379,70,13,15,15,0 6510 SOUND 1,319,70,13,15,15,0 6520 SOUND 1,239,120,13,15,15,0 6530 FOR i=1 TO 3000:NEXT i:RETURN 6540 CLS:BORDER 0:INK 0,2:INK 1,15:INK 2,3:INK 3,0:PAPER 1:CLS:PAPER #6,3:CLS #6 6550 GOSUB 2580 6560 MOVE 0,351:DRAW 639,351,3:MOVE 0,17:DRAW 639,17,3 6570 PEN 3:LOCATE 14,2:PRINT"ZWISCHENBILANZ":GOSUB 6490 6580 z=0:PEN 3 6590 FOR n=1 TO o 6600 LOCATE 9,6+z:PRINT o$(n); 6610 IF q(n,15)>99 THEN LOCATE 29,6+z ELSE LOCATE 30,6+z 6620 PEN 2:PRINT q(n,15):PEN 3 6630 z=z+2:NEXT n:GOSUB 7000 6640 FOR i= 1 TO 2000:NEXT i 6650 PAPER #6,3:CLS #6:PEN #6,1:PRINT #6," Bitte eine Taste dr";CHR$(246);"cken !" 6660 CALL &BB18 6670 BORDER 0:INK 0,0:INK 1,0:INK 2,0:INK 3,0:CLS :RETURN 6680 FOR p=1 TO 5:i$=INKEY$:NEXT p 6690 SOUND 1,300,25,13:SOUND 1,400,25,13 6700 CLS #6:PEN #6,2:PRINT #6," Ich bin nicht so schlau wie Sie ! ":GOSUB 6710:GOTO 6720 6710 FOR p=1 TO 2000:NEXT p:SOUND 1,400,25,13:SOUND 1,200,25,13:RETURN 6720 CLS #6:PRINT #6," Ich kann mir nur 12 Buchstaben merken!":GOSUB 6710 6730 CLS #6:PRINT #6," Bitte noch einmal,aber k";CHR$(246);"rzer !";:GOSUB 6710 6740 CLS #6:PEN #6,1:PRINT #6," Name des";:PEN #6,2:PRINT #6,i;".";:PEN #6,1:PRINT#6,"Spielers :"; 6750 GOTO 3820 6760 INK 0,6:INK 1,3:INK 2,24:INK 3,0:CLS #0 6763 MOVE 0,17:DRAW 639,17,3:CLS #6:PEN #6,2:PAPER #6,3 6765 PRINT #6," Mit W";CHR$(246);"rfelger";CHR$(249);"usche ? (J/N)";:GOSUB 7000 6768 SOUND 1,478,50,13:GOSUB 4190 6770 FOR i=1 TO 1500:ge$=INKEY$:ge$=LOWER$(ge$) 6780 IF ge$="" THEN 6810 6790 IF ge$="j"THEN 6830 6800 IF ge$="n"THEN 6840 ELSE 6810 6810 NEXT i 6820 GOTO 6760 6830 ge=1:RETURN 6840 ge=0:RETURN 7000 feg$=INKEY$:IF feg$="" THEN RETURN ELSE 7000 |