1 CLEAR :CLS :CLOSE 3 REM ******* V 1.4 ******* 4 DIM D$(11,0):DIM D(11,0) 5 LET C=1 10 PRINT " Hallo du Zocker!" 20 PRINT " Dieses Spiel nennt sich 17&4!" 30 PRINT " Copyright by Holger Herrmann" 40 PRINT " < T A S T E >" 41 A$=INPUT $ (1) 42 GOTO *MENU 45 *ANFANG 50 LET KART=0:LET X=0: LET I=0 :LET IA=0: LET BA=0: LET B=0: LET A=0 60 IF C=1 THEN 70 LET X=0: LET I=0 :LET IA=0: LET BA=0: LET B=0: LET A=0: LET GELD=500: LET POTT=0: LET EIN=0: LET C=0 80 ENDIF 90 LET P=0 480 CLS 490 LET X=0 495 LET Y=10 500 IF A=0 THEN 503 IF P=0 THEN GOTO 3000 505 RANDOMIZE 510 LET I=RND (11) 520 IF I=1 OR I=5 OR I=6 THEN GOTO 500 530 LET K=RND (4) 540 IF K=1 THEN KA=10 550 IF K=2 THEN KA=60 560 IF K=3 THEN KA=110 570 IF K=4 THEN KA=160 580 IF I=2 THEN GOTO 4120+KA 590 IF I=3 THEN GOTO 4330+KA 600 IF I=4 THEN GOTO 4540+KA 610 IF I=7 THEN GOTO 4750+KA 620 IF I=8 THEN GOTO 4960+KA 630 IF I=9 THEN GOTO 5170+KA 640 IF I=10 THEN GOTO 5380+KA 650 IF I=11 THEN GOTO 5590+KA 800 ENDIF 805 LET IA=IA+I 810 LET X=X+12 820 LET A=0 830 LOCATE 0,3 : PRINT "Punkte: ";IA 832 KART=KART+1 835 LOCATE 12,3 : PRINT "Noch eine Karte (J/N) ?" 840 A$=INPUT $ (1) 850 IF A$="J" OR A$="j" THEN GOTO 500 860 IF A$="N" OR A$="n" THEN GOTO 1000 870 GOTO 840 1000 IF IA=22 AND KART=2 THEN GOTO 11000 1099 IF IA>21 THEN GOTO 1500 1100 LET B=RND (11) 1105 IF B=1 OR B=5 OR B=6 THEN GOTO 1100 1110 LET BA=BA+B 1120 IF BA>21 THEN GOTO 1600 1130 IF BAIA THEN GOTO 1600 1150 IF BA=IA THEN GOTO 1650 1500 PRINT "Sie haben verloren,da Sie ueber" 1510 PRINT "21 Punkte gesammelt haben!" 1520 GOTO 2000 1600 PRINT "Die Bank hat ";BA;" Punkte" 1610 IF BA>IA AND BA>21 THEN 1614 PRINT "Sie haben gewonnen,die Bank hat zu viel!" 1616 LET GELD=GELD+2*POTT 1618 GOTO 2000 1619 ENDIF 1620 IF BA>IA AND BA<22 THEN PRINT "SIE HABEN VERLOREN!!" 1630 GOTO 2000 1640 IF BA=IA THEN 1650 PRINT "Die Bank hat ";BA;" Punkte." 1660 PRINT "Der Einsatz bleibt im Pott." 1670 GOTO 2005 1680 ENDIF 2000 LET POTT=0 2005 PRINT " " 2010 A$=INPUT $ (1) 2020 GOTO 50 2990 CLS :PRINT "So viel haben Sie nicht!" 2995 CHECK=0 3000 PRINT "Sie haben ";GELD;" DM." 3005 IF GELD<=0 THEN GOTO 4000 3010 PRINT "Im Pott sind ";2*POTT;" DM." 3011 IF CHECK=1 THEN 3012 PRINT "Wollen sie nochmal spielen (J/N)?" 3014 A$=INPUT $ (1) 3015 IF A$="N" OR A$="n" THEN GOTO *ENDE 3016 IF A$<>"J" AND A$<>"j" THEN GOTO 3014 3017 ENDIF 3018 IF CHECK=0 THEN CHECK=1 3020 INPUT "Wieviel DM wollen Sie anlegen ?";EIN 3030 IF EIN>GELD THEN GOTO 2990 3033 IF EIN<=0 THEN GOTO 4100 3035 LET P=1 3040 LET POTT=POTT+EIN 3045 LET GELD=GELD-EIN 3046 CLS 3050 GOTO 503 4000 PRINT "SIE SIND PLEITE!" 4005 A$=INPUT $ (1) 4010 LET C=1 4015 GOTO *MENU 4100 CLS :PRINT "Sie muessen schon ein wenig Geld bieten,denn so ganz ohne geht es nicht!" 4103 CHECK=0 4105 PRINT " < TASTE >" 4106 XYZ$=INPUT $(1) 4107 CLS 4110 GOTO 3000 4120 *BUBE 4130 GCURSOR (X,Y) 4140 GPRINT "FF7F435B5B2501010101FF" 4150 GCURSOR (X,Y+8) 4160 GPRINT "FF80808080848E9F8E84FF" 4170 LET A=1 : GOTO 500 4180 GCURSOR (X,Y) 4190 GPRINT "FF7F435B5B2501010101FF" 4200 GCURSOR (X,Y+8) 4210 GPRINT "FF8080889C8AFF8A9C88FF" 4220 LET A=1 : GOTO 500 4230 GCURSOR (X,Y) 4240 GPRINT "FF7F435B5B2501010101FF" 4250 GCURSOR (X,Y+8) 4260 GPRINT "FF8080848E9FBE9F8E84FF" 4270 LET A=1 : GOTO 500 4280 GCURSOR (X,Y) 4290 GPRINT "FF7F435B5B2501010101FF" 4300 GCURSOR (X,Y+8) 4310 GPRINT "FF8080889CDEFFDE9C88FF" 4320 LET A=1 : GOTO 500 4330 *DAME 4340 GCURSOR (X,Y) 4350 GPRINT "FF7F4343433D01010101FF" 4360 GCURSOR (X,Y+8) 4370 GPRINT "FF80808080848E9F8E84FF" 4380 LET A=1 : GOTO 500 4390 GCURSOR (X,Y) 4400 GPRINT "FF7F4343433D01010101FF" 4410 GCURSOR (X,Y+8) 4420 GPRINT "FF8080889C8AFF8A9C88FF" 4430 LET A=1 : GOTO 500 4440 GCURSOR (X,Y) 4450 GPRINT "FF7F4343433D01010101FF" 4460 GCURSOR (X,Y+8) 4470 GPRINT "FF8080848E9FBE9F8E84FF" 4480 LET A=1 : GOTO 500 4490 GCURSOR (X,Y) 4500 GPRINT "FF7F4343433D01010101FF" 4510 GCURSOR (X,Y+8) 4520 GPRINT "FF8080889CDEFFDE9C88FF" 4530 LET A=1 : GOTO 500 4540 *KOENIG 4550 GCURSOR (X,Y) 4560 GPRINT "FF017F19254301010101FF" 4570 GCURSOR (X,Y+8) 4580 GPRINT "FF80808080848E9F8E84FF" 4590 LET A=1 : GOTO 500 4600 GCURSOR (X,Y) 4610 GPRINT "FF017F19254301010101FF" 4620 GCURSOR (X,Y+8) 4630 GPRINT "FF8080889C8AFF8A9C88FF" 4640 LET A=1 : GOTO 500 4650 GCURSOR (X,Y) 4660 GPRINT "FF017F19254301010101FF" 4670 GCURSOR (X,Y+8) 4680 GPRINT "FF8080848E9FBE9F8E84FF" 4690 LET A=1 : GOTO 500 4700 GCURSOR (X,Y) 4710 GPRINT "FF017F19254301010101FF" 4720 GCURSOR (X,Y+8) 4730 GPRINT "FF8080889CDEFFDE9C88FF" 4740 LET A=1 : GOTO 500 4750 *SIEBEN 4760 GCURSOR (X,Y) 4770 GPRINT "FF0103631B0701010101FF" 4780 GCURSOR (X,Y+8) 4790 GPRINT "FF80808080848E9F8E84FF" 4800 LET A=1 : GOTO 500 4810 GCURSOR (X,Y) 4820 GPRINT "FF0103631B0701010101FF" 4830 GCURSOR (X,Y+8) 4840 GPRINT "FF8080889C8AFF8A9C88FF" 4850 LET A=1: GOTO 500 4860 GCURSOR (X,Y) 4870 GPRINT "FF0103631B0701010101FF" 4880 GCURSOR (X,Y+8) 4890 GPRINT "FF8080848E9FBE9F8E84FF" 4900 LET A=1 : GOTO 500 4910 GCURSOR (X,Y) 4920 GPRINT "FF0103631B0701010101FF" 4930 GCURSOR (X,Y+8) 4940 GPRINT "FF8080889CDEFFDE9C88FF" 4950 LET A=1 : GOTO 500 4960 *ACHT 4970 GCURSOR (X,Y) 4980 GPRINT "FF6D9393936D01010101FF" 4990 GCURSOR (X,Y+8) 5000 GPRINT "FF80808080848E9F8E84FF" 5010 LET A=1 : GOTO 500 5020 GCURSOR (X,Y) 5030 GPRINT "FF6D9393936D01010101FF" 5040 GCURSOR (X,Y+8) 5050 GPRINT "FF8080889C8AFF8A9C88FF" 5060 LET A=1: GOTO 500 5070 GCURSOR (X,Y) 5080 GPRINT "FF6D9393936D01010101FF" 5090 GCURSOR (X,Y+8) 5100 GPRINT "FF8080848E9FBE9F8E84FF" 5110 LET A=1 : GOTO 500 5120 GCURSOR (X,Y) 5130 GPRINT "FF6D9393936D01010101FF" 5140 GCURSOR (X,Y+8) 5150 GPRINT "FF8080889CDEFFDE9C88FF" 5160 LET A=1 : GOTO 500 5170 *NEUN 5180 GCURSOR (X,Y) 5190 GPRINT "FF0D9393937D01010101FF" 5200 GCURSOR (X,Y+8) 5210 GPRINT "FF80808080848E9F8E84FF" 5220 LET A=1 : GOTO 500 5230 GCURSOR (X,Y) 5240 GPRINT "FF0D9393937D01010101FF" 5250 GCURSOR (X,Y+8) 5260 GPRINT "FF8080889C8AFF8A9C88FF" 5270 LET A=1 : GOTO 500 5280 GCURSOR (X,Y) 5290 GPRINT "FF0D9393937D01010101FF" 5300 GCURSOR (X,Y+8) 5310 GPRINT "FF8080848E9FBE9F8E84FF" 5320 LET A=1 : GOTO 500 5330 GCURSOR (X,Y) 5340 GPRINT "FF0D9393937D01010101FF" 5350 GCURSOR (X,Y+8) 5360 GPRINT "FF8080889CDEFFDE9C88FF" 5370 LET A=1 : GOTO 500 5380 *ZEHN 5390 GCURSOR (X,Y) 5400 GPRINT "FF0905037F013D43433DFF" 5410 GCURSOR (X,Y+8) 5420 GPRINT "FF80808080848E9F8E84FF" 5430 LET A=1 : GOTO 500 5440 GCURSOR (X,Y) 5450 GPRINT "FF0905037F013D43433DFF" 5460 GCURSOR (X,Y+8) 5470 GPRINT "FF8080889C8AFF8A9C88FF" 5480 LET A=1 : GOTO 500 5490 GCURSOR (X,Y) 5500 GPRINT "FF0905037F013D43433DFF" 5510 GCURSOR (X,Y+8) 5520 GPRINT "FF8080848E9FBE9F8E84FF" 5530 LET A=1 : GOTO 500 5540 GCURSOR (X,Y) 5550 GPRINT "FF0905037F013D43433DFF" 5560 GCURSOR (X,Y+8) 5570 GPRINT "FF8080889CDEFFDE9C88FF" 5580 LET A=1 : GOTO 500 5590 *AS 5600 GCURSOR (X,Y) 5610 GPRINT "FF711D131D7101010101FF" 5620 GCURSOR (X,Y+8) 5630 GPRINT "FF80808080848E9F8E84FF" 5640 LET A=1 : GOTO 500 5650 GCURSOR (X,Y) 5660 GPRINT "FF711D131D7101010101FF" 5670 GCURSOR (X,Y+8) 5680 GPRINT "FF8080889C8AFF8A9C88FF" 5690 LET A=1 : GOTO 500 5700 GCURSOR (X,Y) 5710 GPRINT "FF711D131D7101010101FF" 5720 GCURSOR (X,Y+8) 5730 GPRINT "FF8080848E9FBE9F8E84FF" 5740 LET A=1 : GOTO 500 5750 GCURSOR (X,Y) 5760 GPRINT "FF711D131D7101010101FF" 5770 GCURSOR (X,Y+8) 5780 GPRINT "FF8080889CDEFFDE9C88FF" 5790 LET A=1 : GOTO 500 8000 *MENU 8005 CLS 8006 C=1 8007 CHECK=0 8010 PRINT " (1) 17&4 spielen" 8020 PRINT " (2) Highscore ansehen" 8030 PRINT " (0) oder (E)nde" 8040 A$=INPUT $ (1) 8050 IF A$="1" THEN GOTO *ANFANG 8060 IF A$="2" THEN GOTO *ANZEIGE 8070 IF A$="0" OR A$="E" OR A$="e" THEN END 8080 GOTO 8040 10000 *ENDE 10005 PRINT "Vergleiche Highscore ..." 10010 ON ERROR GOTO *ERROR 10020 OPEN "E:17&4.TOP" FOR INPUT AS #1 10030 FOR I=0 TO 11 10040 INPUT #1,D$(I,0),D(I,0) 10050 NEXT I 10060 CLOSE #1 10070 *VERGLEICH 10080 FOR I= 0 TO 11 10090 IF GELD>D(I,0) THEN 10100 IF NAM=0 THEN 10110 CLS :PRINT "Platz (";I+1;")!":INPUT "Name: "; NAM$ 10120 NAM=1 10130 ENDIF 10140 POIH=GELD:NAMH$=NAM$ 10150 GELD=D(I,0):NAM$=D$(I,0) 10160 D(I,0)=POIH:D$(I,0)=NAMH$ 10170 DGF=1 10180 ENDIF 10190 NEXT I 10200 NAM=0 10210 *EINGABE 10220 IF DGF=1 THEN 10230 OPEN "E:17&4.TOP" FOR OUTPUT AS #1 10240 FOR I= 0 TO 11 10250 PRINT #1,D$(I,0);",";D(I,0) 10260 NEXT I 10270 CLOSE #1 10280 DGF=0 10290 ENDIF 10300 GOTO 10580 10310 *ERROR 10320 CLOSE 10330 CLS :PRINT "Platz 1!":INPUT "Name: ";NAM$ 10340 OPEN "E:17&4.TOP" FOR OUTPUT AS #1 10350 D$(0,0)=NAM$:D(0,0)=GELD 10360 PRINT #1,D$(0,0);",";D(0,0) 10380 I=-1 10385 I=I+1 10400 D$(I,0)="UNBESETZT": D(I,0)=0 10410 PRINT #1,D$(I,0);",";D(I,0) 10420 IF I<11 THEN GOTO 10385 10430 CLOSE #1 10440 GOTO 10580 10450 *ANZEIGE 10460 I=-1 10470 CLS 10475 ON ERROR GOTO *MENU 10490 OPEN "E:17&4.TOP" FOR INPUT AS #1 10500 I=I+1 10510 INPUT #1,D$(I,0),D(I,0) 10520 PRINT I+1;") ";D(I,0);D$(I,0) 10530 IF I=3 OR I=7 OR I=11 THEN 10540 DFG$=INPUT $ (1) 10550 ENDIF 10560 IF I>=11 THEN CLOSE #1:GOTO 10580 10570 GOTO 10500 10580 GOTO *MENU 11000 CLS :PRINT "Sie haben 2 Asse bekommen und sind" 11010 PRINT "daher unschlagbar. Sie bekommen den" 11020 PRINT "Einsatz vierfach zurueck!!" 11050 LET GELD=GELD+4*POTT 11060 GOTO 2000