Sharp PC-E500 17&4
17&4
Die Umsetzung des Spiels 17&4.
17&4.txt (9.598 Bytes)
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 BA<IA THEN GOTO 1100
1140 IF BA>IA 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 " <Taste>"
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
(c) by mani.becker@web.de - http://blog.manib.bplaced.net