0  REM  *************     MING     *************
1  REM  ** JEUX & STRATEGIE No23 - 1983       **
2  REM  **                                    **
3  REM  ** SAISIE PAR D. RIOUAL  - OCT.2025   **
4  REM  ****************************************
5  REM 
10  HOME 
11  PRINT  TAB( 15);" **** MING ****": PRINT : PRINT 
15  INPUT "VOTRE PRENOM ? :";N$
20 J = 60:M = 60
30  PRINT "---------------------------------------"
31  PRINT "*** COUP ";T + 1;" ***"
35  PRINT : PRINT "SITUATION :"
36  PRINT " - RESTE JOUEUR :";J
37  PRINT " - RESTE MICRO  :";M
40  PRINT " - TOTAL DES GAINS DU JOUEUR :";GJ:
41  PRINT " - TOTAL DES GAINS DU MICRO  :";GM
45  PRINT "---------------------------------------"
50  REM  ---CHOIX MACHINE---
60  IF ST = 1 THEN ST = 0:CM = 2: GOTO 90
70 Z =  INT ( RND (1) * 8)
80 CM =  INT ( RND (1) * Z) + 2
90  IF M < 2 THEN  PRINT "LE MATCH EST FINI !": GOTO 270
100  IF CM > M AND CM > 2 THEN CM = 2
110  IF M <  = 4 THEN CM = 2
120  PRINT "MICRO A MISE !": PRINT "A TOI DE JOUER ";N$
130 M = M - CM
140  REM  ---CHOIX JOUEUR---
150  INPUT "? ";CJ: PRINT : PRINT 
160  IF CJ =  > 8 THEN ST = 1
170  IF CJ > J OR CJ < 2 THEN 150
180  IF J < 2 THEN SF = 1
190 J = J - CJ: IF J = 0 OR J = 1 THEN SF = 1
200  REM  ---TEST GAIN---
210  IF CM = CJ THEN  PRINT "EGALITE ! NOUS PERDONS": GOTO 250
220  IF CJ > CM THEN GJ = GJ + CM:A$ = N$: GOTO 240
230  IF CM > CJ THEN GM = GM + CJ:A$ = "MICRO": PRINT CJ
240  PRINT "TU AS MISE ";CJ;", J'AI MISE ";CM;" : ";A$;" GAGNE"
250  IF SF = 1 THEN 270
260 T = T + 1: GOTO 30
270  PRINT : PRINT "FIN DU JEU :": PRINT "------------"
275  PRINT "TOTAL ";N$;" :";GJ + J
280  PRINT "TOTAL MICRO :";GM + M