1 REM *******************
2 REM **    ROULETTE   **
3 REM ** FUER DEN C-64 **
4 REM *******************
5 REM
6 REM ********************
7 REM **   AUTOR UND    **
8 REM ** SPIELANLEITUNG **
9 REM ********************
10 PRINT"[147]":POKE53281,0:POKE53280,0
11 PRINT"[158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
12 PRINT"[180]R O U L E T T E[170]"
13 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
14 PRINT"        "
15 PRINT"HEINZ PRANGENBERG"
16 PRINT"                "
17 PRINT"                 "
18 PRINT"KENNEN SIE DIE SPIELREGELN (J/N) ?"
19 GETA$:IFA$=""THEN19
20 IFA$="J"THEN140
21 IFA$<>"N"THEN19
22 PRINT"[147]              SPIELREGELN"
23 PRINT"ZU BEGINN DES SPIELES FRAGT DER COMPUTER"
24 PRINT"SIE NACH IHREM SPIELKAPITAL."
25 PRINT"NUN KOMMEN SIE ZU DEN VERSCHIEDENEN     "
26 PRINT"MOEGLICHKEITEN IHREN EINSATZ ZU MACHEN. "
27 PRINT"DAZU MUESSEN SIE WAHLWEISE DIE ENT -    "
28 PRINT"SPRECHENDEN ZIFFERN 1 - 8 DRUECKEN.     "
29 PRINT"WOLLEN SIE DAS EINSETZEN BEENDEN UND DAS"
30 PRINT"SPIEL STARTEN DRUECKEN SIE BITTE F1.    "
31 PRINT"NUN ENTSCHEIDET IHR GLUECK OB SIE "
32 PRINT"GEWINNEN ODER VERLIEREN."
33 PRINT"              [158] TASTE DRUECKEN "
34 GETA$:IFA$=""THEN34
35 PRINT"[147]             GEWINN VERTEILUNG"
36 PRINT"GEWINN BEI ZAHL = EINSATZ * 36"
37 PRINT"GEWINN BEI FARBE = EINSATZ * 1"
38 PRINT"GEWINN BEI GERADE ODER UNGERADE ZAHL"
39 PRINT"             EINSATZ * 1"
40 PRINT"GEWINN BEI 1 - 12 / 13 -24 / 25 - 36"
41 PRINT"             EINSATZ * 3"
42 PRINT"WENN SIE SPIELEN WOLLEN [158] TASTE DRUECKEN "
43 GETA$:IFA$=""THEN43
140 POKE53280,1:POKE53281,1
145 CK=500000:P=81
150 PRINT"[147]":INPUT"[144]WIEVIEL SPIELKAPITAL BESITZEN SIE ";SK
151 IFSK<=0THENPRINT"[147]OHNE GELD GEHT MAN NICHT INS KASINO !!! "
152 IFSK<=0THENPRINT"BITTE NEUE ANGABE !":FORI=1TO4500:NEXT:GOTO150
200 POKE53280,1:POKE53281,1
201 REM ***************************
202 REM ** AUSWAHL DES EINSATZES **
203 REM ***************************
205 N=0.1:EZ=0:S=0:R=0:G=0:U=0:Z1=0:Z2=0:Z3=0:GE=0:GW=0:FR=0:UZ=0:VL=0
208 PRINT"[147]"
209 PRINT"[144]   IHR SPIELKAPITAL BETRAEGT";SK"DM":PRINT:PRINT:PRINT
210 PRINT"  1 = ZAHL  (0 - 36)  [194]  2 = SCHWARZ"
211 PRINT"                      [194]"
213 PRINT"  3 = ROT             [194]  4 = GERADE"
214 PRINT"                      [194]"
216 PRINT"  5 = UNGERADE        [194]  6 = 1  - 12"
218 PRINT"                      [194]"
220 PRINT"  7 = 13 - 24         [194]  8 = 25 - 36":PRINT:PRINT
222 PRINT"             F1 = SPIEL LAUEFT":PRINT:PRINT
223 PRINT"            BITTE IHREN EINSATZ":PRINT:PRINT
225 GETA$:IFA$=""THEN225
226 IFA$="1"THENINPUT"AUF WELCHE ZAHL WOLLEN SIE SETZEN ";N:PRINT
227 IFN<0ORN>36THENPRINT"[147]DIESE ZAHL GIBT ES BEIM ROULETTE NICHT !"
228 IFN<0ORN>36THENPRINT"BITTE NEUE ANGABE !":FORI=1TO4500:NEXT:GOTO200
230 IFA$="1"THENINPUT"WIEVIEL WOLLEN SIE AUF DIESE ZAHL SETZEN";EZ:GOTO208
231 IFA$="2"THENINPUT"WIEVIEL WOLLEN SIE AUF SCHWARZ SETZEN   ";S:GOTO208
232 IFA$="3"THENINPUT"WIEVIEL WOLLEN SIE AUF ROT SETZEN ";R:GOTO208
233 IFA$="4"THENINPUT"WIEVIEL WOLLEN SIE AUF GERADE SETZEN    ";G:GOTO208
234 IFA$="5"THENINPUT"WIEVIEL WOLLEN SIE AUF UNGERADE SETZEN  ";U:GOTO208
235 IFA$="6"THENINPUT"WIEVIEL WOLLEN SIE AUF 1 - 12 SETZEN    ";Z1:GOTO208
236 IFA$="7"THENINPUT"WIEVIEL WOLLEN SIE AUF 13 - 24 SETZEN   ";Z2:GOTO208
237 IFA$="8"THENINPUT"WIEVIEL WOLLEN SIE AUF 25 - 36 SETZEN   ";Z3:GOTO208
238 IFA$=CHR$(133)THEN300
239 GOTO208
300 GE=EZ+S+R+G+Z1+Z2+Z3
301 IFGE>SKTHENPRINT"[147]IHR EINSATZ UEBERSTEIGT IHR KAPITAL !!! "
302 IFGE>SKTHENPRINT"BITTE SETZEN SIE NEU.":FORI=1TO4000:NEXT:GOTO200
994 REM *******************
995 REM *** BILD AUFBAU ***
997 REM *******************
1000 PRINT"[147]"
1010 POKE53281,5:POKE53280,5
1020 PRINT"    [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
1030 PRINT"    [180]21[194][144]2[194]25[194][144]17[194]34[194][144]6[194]27[194][144]13[194]36[194][144]11[194]30[170] "
1035 PRINT"    [180]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194]  [194]  [170]"
1040 PRINT"[175][175][175][175][180]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194]  [194]  [170][175][175][175]"
1045 PRINT"[180]      [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194]  [194]      [180]";
1050 PRINT"[180][144]4    [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]   [144]8 [180]";
1060 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
1070 PRINT"[180]19   [180]                          [170]   23[180]";
1075 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
1080 PRINT"[180][144]15   [180]                          [170]   [144]10[180]";
1090 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
1100 PRINT"[180]32   [180]                          [170]   5 [180]";
1110 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
1115 PRINT"[180][144]26   [180]                          [170]   [144]24[180]";
1120 PRINT"[207][183][183][183][183][183][180]                          [170][183][183][183][183][183][180]";
1130 PRINT"[180]3    [180]                          [170]   16[180]";
1140 PRINT"[207][183][183][183][183][183][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][183][183][183][183][183][180]";
1145 PRINT"[180][144]35   [194]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194] [194]   [144]33[180]";
1160 PRINT"[183][183][183][208]  [194]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194] [194]  [207][183][183]"
1165 PRINT"   [170]  [194]  [194] [194]  [194]  [194]  [194] [194]  [194]  [194]  [194] [194]  [180]"
1180 PRINT"   [170]12[194][144]28[194]7[194][144]29[194]18[194][144]22[194]9[194][144]31[194]14[194][144]20[194]1[194][153]0 [180]"
1190 PRINT"    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1191 PRINT"NICHTS GEHT MEHR !"
1195 FORI=1TO3500:NEXT
1196 PRINT"                   "
1200 REM *****************************
1210 REM ** ANZEIGE DER ZUFALLSZAHL **
1220 REM **  UND FESTSTELLUNG DES   **
1230 REM **   WERTES DIESER ZAHL    **
1240 REM *****************************
1300 Z=INT(37*RND(1))
1310 IFZ=0THENPOKE1778,P:GOTO1685
1320 IFZ=1THENPOKE1776,P:GOTO1675
1330 IFZ=2THENPOKE1152,P:GOTO1680
1340 IFZ=3THENPOKE1628,P:GOTO1675
1350 IFZ=4THENPOKE1228,P:GOTO1680
1360 IFZ=5THENPOKE1499,P:GOTO1675
1370 IFZ=6THENPOKE1163,P:GOTO1680
1380 IFZ=7THENPOKE1754,P:GOTO1675
1390 IFZ=8THENPOKE1259,P:GOTO1680
1400 IFZ=9THENPOKE1765,P:GOTO1675
1410 IFZ=10THENPOKE1419,P:GOTO1680
1420 IFZ=11THENPOKE1175,P:GOTO1695
1430 IFZ=12THENPOKE1749,P:GOTO1680
1440 IFZ=13THENPOKE1169,P:GOTO1675
1450 IFZ=14THENPOKE1771,P:GOTO1680
1460 IFZ=15THENPOKE1388,P:GOTO1675
1470 IFZ=16THENPOKE1659,P:GOTO1680
1480 IFZ=17THENPOKE1158,P:GOTO1675
1490 IFZ=18THENPOKE1760,P:GOTO1690
1500 IFZ=19THENPOKE1308,P:GOTO1675
1510 IFZ=20THENPOKE1774,P:GOTO1680
1520 IFZ=21THENPOKE1149,P:GOTO1675
1530 IFZ=22THENPOKE1763,P:GOTO1680
1540 IFZ=23THENPOKE1339,P:GOTO1675
1550 IFZ=24THENPOKE1579,P:GOTO1680
1560 IFZ=25THENPOKE1155,P:GOTO1675
1570 IFZ=26THENPOKE1548,P:GOTO1680
1580 IFZ=27THENPOKE1166,P:GOTO1675
1590 IFZ=28THENPOKE1752,P:GOTO1680
1600 IFZ=29THENPOKE1757,P:GOTO1695
1610 IFZ=30THENPOKE1178,P:GOTO1680
1620 IFZ=31THENPOKE1768,P:GOTO1675
1630 IFZ=32THENPOKE1468,P:GOTO1680
1640 IFZ=33THENPOKE1739,P:GOTO1675
1650 IFZ=34THENPOKE1161,P:GOTO1680
1660 IFZ=35THENPOKE1708,P:GOTO1675
1670 IFZ=36THENPOKE1172,P:GOTO1680
1675 GOSUB5000:GOSUB5010:GOSUB5020:GOTO1700
1680 GOSUB5000:GOSUB5030:GOSUB5040:GOTO1700
1685 GOSUB5000:GOSUB5050:GOSUB5020:GOTO1700
1690 GOSUB5000:GOSUB5010:GOSUB5040:GOTO1700
1691 REM *************************
1692 REM ** GEWINN ODER VERLUST **
1693 REM *************************
1695 GOSUB5000:GOSUB5030:GOSUB5020:GOTO1700
1700 IFZ=NTHENEZ=EZ*36
1705 IFZ<>NTHENVL=VL+EZ:EZ=0
1710 IFFR=1THENR=R
1715 IFFR<>1THENVL=VL+R:R=0
1720 IFFR=2THENS=S
1725 IFFR<>2THENVL=VL+S:S=0
1730 IFZ<=12ANDZ1>0THENZ1=Z1*3
1735 IFZ>12ANDZ1>0THENVL=VL+Z1:Z1=0
1740 IFZ>=13ANDZ<=24ANDZ2>0THENZ2=Z2*3
1745 IFZ<13ORZ>24ANDZ2>0THENVL=VL+Z2:Z2=0
1750 IFZ>=25ANDZ3>0THENZ3=Z3*3
1755 IFZ<25ANDZ3>0THENVL=VL+Z3:Z3=0
1760 IFUZ=1THENG=G
1765 IFUZ<>1THENVL=VL+G:G=0
1770 IFUZ=2THENU=U
1775 IFUZ<>2THENVL=VL+U:U=0
1780 GW=EZ+R+S+Z1+Z2+Z3+G+U
1790 IFGW<0THENGW=0
1800 IFVL<0THENVL=0
1810 PRINT"SIE HABEN";VL"DM VERLOREN"
1820 PRINT"SIE HABEN";GW"DM GEWONNEN"
1830 CK=CK-GW+VL
1900 SK=SK+GW-VL
1901 REM **************************
1902 REM **  WEITERES SPIEL UND  **
1903 REM ** KAPITALUEBERPRUEFUNG **
1904 REM **************************
1910 PRINT"NOCH EIN SPIEL (J/N) ?"
1920 GETA$:IFA$=""THEN1920
1930 IFA$="J"THEN2000
1940 IFA$="N"THEN2100
1950 IFA$<>"N"ORA$<>"J"THEN1920
2000 IFSK<=0THENPRINT"[147]SIE KOENNEN NACH HAUSE GEHEN, DENN SIE  "
2010 IFSK<=0THENPRINT"HABEN KEIN SPIELKAPITAL MEHR !!":GOTO2100
2030 IFCK<=0THENPRINT"[147]ICH MUSS DAS KASINO LEIDER SCHLIESSEN,  "
2040 IFCK<=0THENPRINT"DENN SIE HABEN DIE BANK GESPRENGT !!":GOTO2100
2050 GOTO200
2100 END
4000 REM ***********************
4010 REM ** UNTERPROGRAMM ZUR **
4020 REM **   AUSWERTUNG DER  **
4030 REM **    ZUFALLSZAHL    **
4040 REM ***********************
5000 PRINT"DIE ZAHL IST";Z
5005 RETURN
5010 FR=1:PRINT"SIE IST ROT"
5015 RETURN
5020 UZ=2:PRINT"SIE IST UNGERADE"
5025 RETURN
5030 FR=2:PRINT"SIE IST SCHWARZ"
5035 RETURN
5040 UZ=1:PRINT"SIE IST GERADE"
5045 RETURN
5050 PRINT"SIE IST GRUEN"
5055 RETURN