Computer Chess Club Archives


Search

Terms

Messages

Subject: Re: qBASIC Chess program - from 1984 by Dieter Steinwender

Author: Vincent Lejeune

Date: 14:56:15 02/26/03

Go up one level in this thread


On February 26, 2003 at 12:41:07, William H Rogers wrote:

>On February 25, 2003 at 17:57:34, Vincent Lejeune wrote:
>
>>Please let me know what still to translate, my original language is french, it
>>should take me no more than 5 minutes to translate the text ...
>>
>A short page of the French words used in the program with the appropriate
>English translations would do very nicely.
>Thanks
>Bill

ok here they are :

20 PRINT "  ** PROGRAMME D'ECHECS CSS **"
Chess program

2000 REM: coup du joueur
Player's move

2020 PRINT "   VOTRE COUP"; : INPUT E$
Your move ?

2180 PRINT "COUPS MULTIPLES: ";
Multiple move

2190 IF MZ = 0 THEN MZ = 1: PRINT "DEBUT": GOTO 2000
Begining

2280 PRINT "  DESOLE: PAS POSSIBLE"
Sorry, nit possible

2340 PRINT "  PROFONDEUR D'ANALYSE="; T0;
Analyse depth

3100 PRINT "  COUP ILLEGAL"
Illegal move

3170 PRINT "  VOTRE COUP: ";
Your move:

3500 REM: coup de l'ordinateur
Computer's move

3570 PRINT "  MON COUP: ";
My move :

3610 PRINT "  ECHEC ET MAT!"
Check mate !

3630 PRINT "  DAMNED, VOUS AVEZ GAGNE!"
You won !

3660 PRINT "  PAT: PARTIE NULLE!"
Stalemate : Draw!

3670 PRINT "  VALEUR="; W; "  POSITIONS ANALYSEES="; C1
Analyzed position=

4000 REM: affichage de la position
Displaying position

4190 PRINT "   BILAN MATERIEL= "; M(T)
Material value

4200 PRINT "   CASE E.P.     =  "; : GOSUB 6700
en passant square =

4210 PRINT "   STATUT ROQUE  = "; S(T, 1); S(T, 2); S(T, 3); S(T, 4)
Castle status

4220 PRINT "   AU TOUR DE    = ";
Side to move:

4230 IF F = 1 THEN PRINT " BLANC": GOTO 4250
White

4240 PRINT " NOIR"
Black

4250 RETURN
5000 REM: entree de la position
Input move

5030 PRINT "   VIDER L'ECHIQUIER(O/N) "
to Empty the board

5190 PRINT "  AU TOUR DE (B/N) ";
side to move (white/black)

5240 PRINT "  MODIF DU STATUT E.P./ROQUE  (O/N) ";
change e.p./castle status

5300 PRINT "  STATUT ROQUE ";
castle status

5500 REM: installation des pieces d'un cote
Seting up the pieces on one side

5590 PRINT " ENTREE ERRONEE": GOTO 5520
bad input

6000 REM: affichage du coup
move display

6500 REM: affichage des coups legaux
Displaying legal moves

6540 PRINT "  LE ROI PEUT ETRE PRIS"
King could be taken

6560 PRINT G - G1(T); " COUPS PSEUDO-LEGAUX"
pseudo-legal moves

6700 REM: affichage d'une case e.p.
Displaying a e.p. square

7000 REM: generation des coups
moves generation

7900 REM: noter les coups de pion
"note" pawn moves

8500 REM: placer le coup genere dans la pile des coups
put move in the moves stack

8800 REM: initialisation de l'arbre des coups
tree moves initialisation

9000 REM: execution du coup
make the move

9600 REM: reprise de coup
take back moves

10000 REM: recherche alpha-beta
alpha-beta search

10330 PRINT "  NOUVEAU MEILLEUR COUP "; "- VALEUR="; W(2)
New best move   value=

12000 REM: fonction d'evaluation
eval function

12020 REM: W = 0: RETURN: REM: *** fonction d'evaluation nulle, pour
problemes***
zero eval function (???), for problems




This page took 0 seconds to execute

Last modified: Thu, 15 Apr 21 08:11:13 -0700

Current Computer Chess Club Forums at Talkchess. This site by Sean Mintz.