REM
 SCREEN 1,320,255,5,1
 WINDOW 2,,,8,1
 DASPR:
 CLS
 CLEAR 
 PALETTE 1,0,0,0
 PALETTE 0,0,0,0
 
 PALETTE 3,1,1,1
 PALETTE 4,.3,.3,1
 PALETTE 5,.1,.3,1
 PALETTE 6,.63,.63,.63
 PALETTE 7,.33,.33,.33
 PALETTE 9,.8,.68,.93
 PALETTE 8,1,.1,.93
 PALETTE 10,.33,.87,0
 PALETTE 11,.83,1,0
 PALETTE 12,1,.09,.09
 DIM b$(17)
 FOR gs=1 TO 16
 READ b$(gs)
 NEXT
 COLOR 12
 IF MOUSE(0)<>0 THEN DASPR
 PRINT"Du hasst die Tochter des Paten"
 PRINT
 PRINT "Duro di Cuore d`Vendetta vergewaltigt"
 PRINT
 PRINT"und dabei vor Erregung einen Teil"
 PRINT                                               
 PRINT"deines Geldes verloren !"
 LOCATE 12,1:PRINT"Lediglich 1000 $ sind dir geblieben."
 PRINT
 PRINT"Zu wenig um die Camorra zu bestechen...."
 PRINT
 PRINT"        ....zu wenig zum untertauchen !"
 LOCATE 21,1:PRINT"Du suchst nach einer letzten Chance,"
 PRINT
 PRINT"und findest sie in.......           !"
 COLOR 11
 LOCATE 23,26:PRINT"BLACK-JACK"
 Mafia:
 IF MOUSE(0)<>0 THEN Camorra
 a$=INKEY$
 IF a$=CHR$(13) OR a$=" " THEN Camorra
 GOTO Mafia
 Camorra:
 
 FOR i=1 TO 85
 dc=dc+2
 LINE(145-dc,75-i)-(150+dc,105+i),0,bf
 FOR wt=1 TO 50:NEXT
 NEXT
 COLOR 11
 LOCATE 7,10:PRINT "Enter your pseudonym"
 LOCATE 9,16:PRINT">......"
 COLOR 8
 LOCATE 9,17:INPUT"",n$
 scrolling:
 SCROLL(65,44)-(340,57),1,0
 SCROLL(300,58)-(1,70),-1,0
 x=x+1
 IF x<250 THEN scrolling
 
 monete:
 einsatz1=1000
 einsatz2=2500
 RANDOMIZE TIMER
 zr=INT(RND*12)
 IF zr=0 THEN zr=1
 
 hauptk:
 CLS
 IF xc<>0 THEN 
 COLOR 10,0
 LOCATE 21,32:PRINT"Credit"
 COLOR 11,0
 LOCATE 23,31:PRINT xc;"$"
 END IF
 COLOR 8,0
 LOCATE 1,32:PRINT b$(zr);"`s"
 LOCATE 2,32:PRINT"Hand"
 LOCATE 17,32:PRINT"Hand"
 IF LEN(n$)>6 THEN n$=LEFT$(n$,LEN(n$)+6-LEN(n$))
 LOCATE 16,32:PRINT n$;"`s"
 LINE(1,200)-(319,238),4,bf
 LINE (1,199)-(320,239),7,b
 LINE(6,205)-(60,217),5,bf
 LINE(6,220)-(60,232),5,bf
 REM Tabelle  gehalt
 LINE(64,205)-(141,217),5,bf
 LINE(64,220)-(141,232),5,bf
 REM t.limit
 LINE (149,205)-(208,232),5,bf
 REM jackp.
 LINE (214,205)-(307,232),5,bf
 COLOR 0,5
 LOCATE 27,2:PRINT b$(zr)
 LOCATE 29,2:PRINT n$
 LOCATE 27,30:PRINT"JACKPOT"
 LOCATE 27,21:PRINT"LIMIT"
 COLOR 6,5
 LOCATE 29,29:PRINT jp;"$"
 LOCATE 29,9:PRINT einsatz1;"$"
 LOCATE 27,9:PRINT einsatz2;"$"
 LINE (19,80)-(260,103),8,bf
 LINE (18,79)-(261,104),9,b
 REM +++h.g.+++
 LINE(263,80)-(297,103),12,bf
 LINE(262,79)-(298,104),9,b
 COLOR 9,8
 LOCATE 12,4:PRINT" ONE MORE   SEE    NEXT GAME"
 COLOR 9,12
 LOCATE 12,34:PRINT"EXIT"
 LINE (25,85)-(100,97),9,b
 LINE (115,85)-(148,97),9,b
 LINE (167,85)-(254,97),9,b
 
 REM *** MAIN ***
 
 programma:
 
 ccd=0
 RANDOMIZE TIMER
 lim=INT(RND*501)
 IF einsatz1<=20 THEN lim=einsatz1
 IF einsatz2<=20 THEN lim=einsatz2
 IF lim>einsatz1 OR lim>einsatz2 OR lim=0 THEN programma
 c1=INT(RND*14):c2=INT(RND*12)
 IF c1>11 OR c1<1 OR c2>11 OR c2<1 THEN programma
 IF c2<=6 THEN GOSUB computercard
 om=0:seh=0
 COLOR 6,5
 LINE(149,220)-(208,232),5,bf
 LOCATE 29,20:PRINT lim;"$"
 COLOR 0,7
 REM firs card
 LINE (19,2)-(62,62),7,bf
 LINE (18,1)-(63,63),6,b
 REM II
 LINE (106,2)-(149,62),7,bf
 LINE (105,1)-(150,63),6,b
 LOCATE 4,15:PRINT c2
 REM second card
 LINE (19,120)-(62,180),7,bf
 LINE (18,119)-(63,181),6,b
 REM II
 LINE (106,120)-(149,180),7,bf
 LINE (105,119)-(150,181),6,b
 LOCATE 4,5:PRINT"?"
 LOCATE 19,15:PRINT c1
 LOCATE 19,5:PRINT"?"
 COLOR 9,2
 LOCATE 4,31:PRINT c2+ccd
 LOCATE 19,31:PRINT c1
 COLOR 2,5
 checkmouse:
 IF MOUSE(0)<>0 THEN
 x=MOUSE(1):y=MOUSE(2)
 IF x>24 AND x<101 AND y>84 AND y<98 THEN LINE(25,85)-(100,97),2,b:GOTO onemore
 IF x>114 AND x<149 AND y>84 AND y<98 THEN LINE(115,85)-(148,97),2,b:GOTO see
 IF x>264 AND x<299 AND y>79 AND y<104 THEN Urteil
 END IF 
 GOTO checkmouse
 
 onemore:
 IF MOUSE(0)<>0 THEN onemore
 LINE (25,85)-(100,97),9,b
 LINE(195,120)-(238,180),7,bf
 LINE(194,119)-(239,181),6,b
 zufs:
 RANDOMIZE TIMER
 om=INT(RND*12)
 IF om<1 THEN zufs
 COLOR 2,7
 LOCATE 19,26:PRINT om
 COLOR 9,2
 LOCATE 19,31:PRINT c1+om
 geh:
 IF MOUSE(0)<>0 THEN
 x=MOUSE(1):y=MOUSE(2)
 IF x>264 AND x<299 AND y>79 AND y<104 THEN Urteil
 IF x>114 AND x<149 AND y>84 AND y<98 THEN LINE(115,85)-(148,97),2,b:GOTO see
 END IF
 GOTO geh
 
 see:
 IF MOUSE(0)<>0 THEN see
 LINE (115,85)-(148,97),9,b
 COLOR 2,7
 seezufs:
 RANDOMIZE TIMER
 seh=INT(RND*12)
 cd=INT(RND*12)
 IF cd<1 OR seh<1 THEN seezufs
 LOCATE 4,4:PRINT cd
 LOCATE 19,4:PRINT seh
 COLOR 9,2
 er=seh+c1+om
 cr=c2+ccd+cd
 LOCATE 4,31:PRINT cr
 LOCATE 19,31:PRINT er
 IF cr=er OR cr>21 AND er>21 THEN Jacky
 IF cr>er AND cr<22 OR er>21 AND cr<22 THEN compy
 IF er>cr AND er<22 OR cr>21 AND er<22 THEN nicky
 warten:
 IF MOUSE(0)<>0 THEN
 x=MOUSE(1):y=MOUSE(2)
 IF x>264 AND x<299 AND y>79 AND y<104 THEN Urteil
 IF x>166 AND x<255 AND y>84 AND y<98 THEN LINE(167,85)-(254,97),2,b:GOTO nextgame
 END IF
 GOTO warten
 
 nextgame:
 nh=nh+1
 nextga:
 IF MOUSE(0)<>0 THEN nextga
 IF einsatz1=0 OR einsatz2=0 THEN bye
 LINE(167,85)-(254,97),9,b
 LINE(194,119)-(239,181),0,bf
 LINE(194,1)-(239,63),0,bf
 GOTO programma
 Jacky:
 jp=2*lim+jp
 einsatz1=einsatz1-lim
 einsatz2=einsatz2-lim
 LINE(64,205)-(141,217),5,bf
 LINE(64,220)-(141,232),5,bf
 LINE(220,220)-(307,232),5,bf
 COLOR 6,5
 LOCATE 27,9:PRINT einsatz2;"$"
 LOCATE 29,9:PRINT einsatz1;"$"
 LOCATE 29,29:PRINT jp;"$"
 GOTO warten
 
 computercard:
 RANDOMIZE TIMER
 ccd=INT(RND*12)
 IF ccd<1 THEN computercard
 LINE(195,2)-(238,62),7,bf
 LINE(194,1)-(239,63),6,b
 COLOR 2,7
 LOCATE 4,26:PRINT ccd
 RETURN
 
 compy:
 ch=ch+1
 COLOR 6,5
 IF cr=21 THEN compyi
 IF cr<er OR cr>er THEN compyii
 compyi:
 fu=fu+1
 einsatz2=einsatz2+lim+jp+21
 BEEP
 einsatz1=einsatz1-lim
 LINE(64,205)-(141,217),5,bf
 LINE(64,220)-(141,232),5,bf
 LINE(220,220)-(307,232),5,bf
 jp=0
 LOCATE 29,29:PRINT jp;"$"
 LOCATE 27,9:PRINT einsatz2;"$"
 LOCATE 29,9:PRINT einsatz1;"$"
 GOTO warten
 compyii:
 einsatz2=einsatz2+lim
 einsatz1=einsatz1-lim
 LINE(64,205)-(141,217),5,bf
 LINE(64,220)-(141,232),5,bf
 LOCATE 27,9:PRINT einsatz2;"$"
 LOCATE 29,9:PRINT einsatz1;"$"
 GOTO warten
 
 
 nicky:
 bh=bh+1
 COLOR 6,5
 IF er=21 THEN nickyi
 IF er<cr OR er>cr THEN nickyii
 nickyi:
 bh2=bh2+1
 einsatz1=einsatz1+lim+jp+21
 IF einsatz1>xc THEN
 einsatz1=einsatz1-xc:xc=0
 LINE(242,154)-(300,192),0,bf
 END IF
 BEEP
 einsatz2=einsatz2-lim
 LINE(64,205)-(141,217),5,bf
 LINE(64,220)-(141,232),5,bf
 LINE(220,220)-(307,232),5,bf
 jp=0
 LOCATE 29,29:PRINT jp;"$"
 LOCATE 27,9:PRINT einsatz2;"$"
 LOCATE 29,9:PRINT einsatz1;"$"
 GOTO warten
 nickyii:
 einsatz1=einsatz1+lim
 einsatz2=einsatz2-lim
 IF einsatz1>xc THEN
 einsatz1=einsatz1-xc:xc=0
 LINE(242,154)-(300,192),0,bf
 END IF
 LINE(64,205)-(141,217),5,bf
 LINE(64,220)-(141,232),5,bf
 LOCATE 27,9:PRINT einsatz2;"$"
 LOCATE 29,9:PRINT einsatz1;"$"
 GOTO warten
 
 
 
 
 
 
 
 FOR zr=1 TO 1000:NEXT
 LINE(6,205)-(60,217),5,bf
 FOR zr=1 TO 1000:NEXT
 LOCATE 27,2:PRINT"STEP"
 GOTO ren
 bye:
 LINE(0,0)-(320,200),0,bf
 COLOR 8,0
 LOCATE 3,1:PRINT n$;
 COLOR 10,0
 IF einsatz2=0 THEN loser
 n=129
 LOCATE 3,1+LEN(n$):PRINT" YOU ARE BROKE. PLEASE CHOOSE..."
 LOCATE 7,11:PRINT"[F1]-NEW CREDIT !"
 LOCATE 9,11:PRINT"[F2]-NEW GAME !"
 LOCATE 11,11:PRINT"[F3]-GOOD BYE ";
 COLOR 8,0:PRINT n$
 LOCATE 22,2:PRINT b$(zr);":"
 COLOR 11,0
 LOCATE 24,2:PRINT"Games:";nh;"  Win:";ch;"  Black-Jack:";fu
 entscheidung:
 a$=INKEY$
 IF a$=CHR$(129) THEN ncredit
 IF a$=CHR$(130) THEN DASPR
 IF a$=CHR$(131) THEN uhj=1:GOTO Urteil
 GOTO entscheidung
 loser:
 LOCATE 3,1+LEN(n$):PRINT" YOU ARE THE BEST. PLEASE CHOOSE!"
 COLOR 8,0
 LOCATE 22,2:PRINT n$;":"
 LOCATE 24,2
 COLOR 11,0
 PRINT"Games:";nh;
 PRINT"  Win:";bh;
 PRINT"  Black-Jack:";bh2
 COLOR 10,0
 LOCATE 9,11:PRINT"[F1]-NEW GAME !"
 LOCATE 11,11:PRINT"[F2]-GOOD BYE ";
 COLOR 8,0:PRINT n$
 ern:
 a$=INKEY$
 IF a$=CHR$(129) THEN DASPR
 IF a$=CHR$(130) THEN Urteilbye
 GOTO ern
 
 ncredit:
 einsatz1=500
 xc=xc+500
 GOTO hauptk
 
 Urteil:
 IF uhj<>0 THEN rollen
 COLOR 0,12
 LOCATE 12,34:PRINT"Exit"
 IF MOUSE(0)<>0 THEN Urteil
 COLOR 9,12
 LOCATE 12,34:PRINT"Exit"
 COLOR 1,0
 scr:
 SCROLL (1,0)-(311,107),0,1
 SCROLL (1,108)-(311,241),0,-1
 x=x+1
 IF x<418 THEN scr
 rollen:
 RANDOMIZE TIMER
 urteilen=INT(RND*5)                   
 IF urteilen<=0 THEN rollen
 COLOR 0,0:CLS
 COLOR 12
 IF urteilen=1 THEN Aur
 IF urteilen=2 THEN Bur
 IF urteilen=3 THEN Cur
 IF urteilen=4 THEN Dur
 Aur:
 PRINT"Der Pate d`Vendetta hat dir mit"
 PRINT
 PRINT"äußerst glücklichem Gesichtsausdruck"
 PRINT
 PRINT"die Nase abgeschnitten und mit viel"
 PRINT
 PRINT"geschick deinen P....mann dranngenäht !"
 GOTO Abwarten
 Bur:
 PRINT"Na, wie fühlt man sich so als"
 PRINT
 PRINT"Betonfeiler unter einem Altersheim. Da"
 PRINT
 PRINT"hat der Pate d`Vendetta sich aber was"
 PRINT
 PRINT"feines einfallen lassen, nicht war !"
 GOTO Abwarten
 Cur:
 PRINT"Da du nicht in der Lage warst deinen"
 PRINT
 PRINT"Kopf zu retten hat ihn jetzt der"
 PRINT
 PRINT"Pate d`Vendetta als Blumenständer !"
 GOTO Abwarten
 Dur:
 PRINT"Kein glücklicher Tag nicht war."
 PRINT
 PRINT"Aber dafür darfst du jetzt die"
 PRINT
 PRINT"Schiffe von unten betrachten."
 PRINT
 PRINT"Allerdings die vom Paten d`Vendetta"
 PRINT
 PRINT"verpassten Betonschuhe könnten evtl."
 PRINT
 PRINT"etwas zu klein sein !"
 GOTO Abwarten
 
 Urteilbye:
 heu:
 RANDOMIZE TIMER
 zr=INT(RND*17)
 IF zr<=11 THEN heu
 COLOR 0,0:CLS
 COLOR 10
 PRINT"Du hast dir deine";einsatz1;"$ redlich"
 PRINT
 PRINT"verdient und machst Urlaub von diesen"
 PRINT
 PRINT"alltäglichen Problemen im Schwarzwald."
 PRINT
 PRINT"Dort erfüllst du dir deinen Jugendtraum"
 PRINT:PRINT:PRINT
 COLOR 5
 
 PRINT TAB(9)"1. Preis ";b$(zr)
 PRINT:PRINT:PRINT
 COLOR 10
 PRINT"Nachträglich von unserer Redaktion....."
 PRINT:PRINT
 COLOR 12
 PRINT TAB(9)"Herzlichen Glückwunsch"
 Abwarten:
 PRINT:PRINT:PRINT:PRINT
 COLOR 4
 PRINT TAB(13)"[F1]-New Game"
 PRINT
 PRINT TAB(13)"[F2]-Cancel"
 Abwan:
 a$=INKEY$
 IF a$=CHR$(129) THEN DASPR
 IF a$=CHR$(130) THEN SYSTEM
GOTO Abwan
 
 
 
                                            
DATA STEP,GUSSY,FREDDY,GUSTAV,JUPP,RINGO,CONAN,WILLY,AGNUS,DENISE,PAULA                                           
DATA im Ohrenwackeln,in Blinde Kuh,im Kuh-Rodeo,im Eierlaufen,im Ringelpitz-Tanzen