REM THANKS TO MR.GLEAON FOR PBASIC 4.1
REM BLACKJACK PRG. VON CHRISTIAN PETER
REM 0561/59145
REM VERSION 1.01  24.12.91
CLS
DIM A$(32):DIM A(32):DIM U(6):DIM C(6)
FOR I=1 TO 32
 READ B$,B
 IF B$="XXX" THEN GOTO 10
 A(I)=B
 A$(I)=B$
NEXT I
G=50
REM TITELBILD
LOCATE 2,6,0
 ?"V 1.01   BLACKJACK   by Ch.Peter"
BOX 1,14,3,24,1
LOCATE 4,1,1
 ?
 ?"Das Programm spielt Blackjack.Die Spiel"
 ?"karten sind wie folgt bezeichnet: z.B."
 ?"Karo Dame -KAD-, Kreuz Ass -KRA-"
 INPUT"Dein Initialen";N$
CLS
17 K=1:L=1:Y=2
RANDOMIZE
18LOCATE 6,25
 ?"Ihr Guthaben:"G
19LOCATE 5,25
 INPUT "Ihr Einsatz:";E
IF E<1 THEN GOTO 250
20 REM COUNTER
LOCATE 1,33
 ?N$;CHR$(179);"Comp"
LOCATE 2,33
 ?CHR$(196);CHR$(196);CHR$(197);CHR$(196);CHR$(196);CHR$(196)
LOCATE 3,35
 ?CHR$(179)
LOCATE 1,2,1
 ? "Noch 'ne Karte ";N$;
 INPUT J$
IF J$="N" OR J$="n" THEN GOTO 100
25 Z=0
R=INT(RND*33)
IF R<1 THEN GOTO 25
FOR I=K TO 1 STEP-1
 IF U(I)=A(R) THEN Z=1
NEXT I
IF Z=1 THEN GOTO 25
U(K)=A(R)
S=A(R)+S
LOCATE 2,Y
 ? CHR$(218);CHR$(196);CHR$(196);CHR$(196)
LOCATE 3,Y:Y=Y+5
 ? CHR$(179);A$(R)
LOCATE 3,33:?S;
IF S=21 THEN GOTO 500
IF S>21 THEN GOTO 600
K=K+1
GOTO 20
100 REM
Y=2
LOCATE 5,2
 ? "COMPUTER"
115 Z=0
R=INT(RND*33)
IF R<1 THEN 115
FOR I=K TO 1 STEP-1
 IF U(I)=A(R) THEN Z=1
 IF C(I)=A(R) THEN Z=1
NEXT I
IF Z=1 THEN GOTO 115
C(L)=A(R)
T=A(R)+T
LOCATE 6,Y
 ?CHR$(218);CHR$(196);CHR$(196);CHR$(196)
LOCATE 7,Y:Y=Y+5
 ?CHR$(179);A$(R)
LOCATE 3,36:?T;
IF T>21 THEN GOTO 600
IF T=21 THEN GOTO 500
IF T>S THEN GOTO 500
L=L+1
GOTO 115
120 REM
IF P=1 THEN G=G+E
IF P=0 THEN G=G-E
LOCATE 8,30
 INPUT "Nochmal";M$
IF M$="N" or M$="n" THEN END
L=1:K=1:T=0:S=0:Y=2
CLS
GOTO 18
250 REM MESSAGE
 MES$="Kostenlos wird hier nicht gezockt!!"
 ERRWIN 4,2,MES$
GOTO 19
500 REM
LOCATE 7,23
IF S=21 THEN G$=N$
IF T=21 THEN G$="Comp"
IF T>21 THEN G$=N$
IF S<T THEN G$="Comp"
IF G$=N$ THEN P=1
IF G$="Comp" THEN P=0
?G$;" hat Gewonnen"
GOTO 120
600 REM
IF T>21 THEN G$="Comp"
IF S>21 THEN G$=N$
IF G$="Comp" THEN P=1
IF G$=N$ THEN P=0
LOCATE 7,27
?G$;" Kaputt"
GOTO 120
1000 DATA "H7",7,"H8",8,"H9",9,"H10",10,"HB",2,"HD",4,"HK",6,"HA",11
1010 DATA "P7",7,"P8",8,"P9",9,"P10",10,"PB",2,"PD",4,"PK",6,"PA",11
1020 DATA "KR7",7,"KR8",8,"KR9",9,"KR10",10,"KRB",2,"KRD",4,"KRK",6,"KRA",11
1030 DATA "KA7",7,"KA8",8,"KA9",9,"KA10",10,"KAB",2,"KAD",4,"KAK",6,"KAA",11
1040 DATA XXX