'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                 JUEGO DE LAS SIETE Y MEDIA MODO TEXTO
RANDOMIZE TIMER
DO
   COLOR 15, 1
   CLS
   suma = 0
   DO
      carta = INT(RND * 10) + 1
      SELECT CASE carta
         CASE 8: suma = suma + .5: PRINT " J";
         CASE 9: suma = suma + .5: PRINT " Q";
         CASE 10: suma = suma + .5: PRINT " K";
         CASE ELSE: suma = suma + carta: PRINT carta;
      END SELECT
      PRINT , "Suma ="; suma
      IF suma = 7.5 THEN PRINT "Justo": SOUND 3000, 2
      IF suma > 7.5 THEN PRINT "Te has pasado": SOUND 300, 2
      IF suma < 7.5 THEN PRINT "¨Quieres otra? S/N: ": resp$ = INPUT$(1)
   LOOP UNTIL UCASE$(resp$) = "N" OR suma > 7
   COLOR 10
   PRINT , , "Resultado usuario ="; suma
   COLOR 14
   PRINT
   osuma = 0
   resp$ = "N"
   DO
      carta = INT(RND * 10) + 1
      SELECT CASE carta
         CASE 8: osuma = osuma + .5: PRINT " J";
         CASE 9: osuma = osuma + .5: PRINT " Q";
         CASE 10: osuma = osuma + .5: PRINT " K";
         CASE ELSE: osuma = osuma + carta: PRINT carta;
      END SELECT
      PRINT , "Suma ="; osuma
      IF osuma = 7.5 THEN PRINT "Justo": SOUND 3000, 2
      IF osuma > 7.5 THEN PRINT "Se ha pasado": SOUND 300, 2
      IF (INT(RND * 7.5) + 1) > osuma THEN resp$ = "S"
   LOOP WHILE UCASE$(resp$) = "S" AND osuma < 7.5
   COLOR 10
   PRINT , , "Resultado ordenador ="; osuma
   COLOR 11
   PRINT
   IF suma = osuma AND suma < 7.5 THEN PRINT "Empate: Ninguno ha llegado"
   IF suma = osuma AND suma = 7.5 THEN PRINT "Empate: Los dos con siete y media"
   IF suma = 7.5 AND osuma <> 7.5 THEN PRINT "Gana el usuario. Siete y media"
   IF osuma = 7.5 AND suma <> 7.5 THEN PRINT "Gana el ordenador. Siete y media"
   IF suma < 7.5 AND osuma < 7.5 AND suma > osuma THEN PRINT "Gana el usuario. Est  m s cerca de 7 y media"
   IF suma < 7.5 AND osuma < 7.5 AND suma < osuma THEN PRINT "Gana el ordenador. Est  m s cerca de 7 y media"
   IF suma < 7.5 AND osuma > 7.5 THEN PRINT "Gana el usuario. El ordenador se ha pasado"
   IF osuma < 7.5 AND suma > 7.5 THEN PRINT "Gana el ordenador. El usuario se ha pasado"
   IF suma > 7.5 AND osuma > 7.5 THEN PRINT "Empate. Se han pasado los dos"
   COLOR 13
   PRINT "¨Jugar otra vez? S/N: "
   resp$ = INPUT$(1)
LOOP UNTIL UCASE$(resp$) = "N"