BLJACK.BAS
        ==========

Taken from Ullmis Page (http://www.datacomm.ch/ullmann/sharp.html, broken link,
ullmi AT altavista DOT net). It's a Blackjack ("21") game. Here is the
original description from Ullmis Page (in german):

Anwendung

Am Anfang des Spieles werden 2 Karten gezogen. Befindet sich darunter ein 
oder mehrere Asse, kann gewaehlt werden, ob der As einen Wert von 1 oder 
11 Punkte hat.
Ziel ist es, einen Kartenwert zu erreichen, der moeglichst nah oder gleich 
21 ist. Ist der Wert hoeher als 21, hat man die Partie verloren.
Bei der Frage "Ziehst Du eine Karte ? " wird mit "J" bzw. "JA" wird eine 
Karte gezogen.
Wollen beide Spieler keine Karte mehr ziehen, kann man mit "STOP" bzw. 
"STOPP" das Spiel unterbrechen. Der Spieler mit dem groesseren Kartenwert 
gewinnt dann. Um das Spiel zu unterbrechen, ist es nötig, dass beide Spieler 
mindestens 2 mal bestaetigt haben, keine weitere Karte ziehen zu wollen.
Gibt man etwas anderes ein, wird dies als "NEIN" auf die Frage betrachtet.

Schummeltricks

Bei der Frage "Ziehst Du eine Karte ? " "BRK" drücken und mit Hilfe der 
untenstehenden Variablenliste ein par Daten veraendern, z.B. W=21 eingeben,
und dann das Programm mit "CONT" fortsetzen; dadurch wird der Kartenwert 
auf 21 gesetzt, und man gewinnt.
Andere Daten lassen sich auf aehnliche Weise manipulieren. Hat man einen As,
kann bei der Frage "As = 1 oder 11 ? " auch eine andere Zahl als 1 oder 11
eingegeben werden, der Rechner prueft die Eingabe nicht.

Variablenliste

P$(1) bis P$(10) Karten des Spielers
S$(1) bis S$(10) Karten des Rechners
W                Kartenwert des Spielers
G                Kartenwert des Rechners
PA               Anzahl der bereits gespielten Spiele
PL               Spielstand Spieler
CO               Spielstand Rechner
NA               Anzahl der Bestätigungen des Spielers, keine Karte ziehen zu wollen
NC               Anzahl der Bestätigungen des Rechners, keine Karte ziehen zu wollen

Graphics        : *
Sound           : *
Libraries needed: none