'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                           DESGLOSE CANTIDADES PESETAS         
DECLARE SUB div (valor!)
COMMON SHARED cantidad
CLS
INPUT "Cantidad: ", cantidad
PRINT

div 10000
div 5000
div 2000
div 1000
div 500
div 200
div 100
div 50
div 25
div 10
div 5
div 1

PRINT
PRINT "   Hecho en Ronda"

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                
SUB div (valor)

IF valor < 1000 THEN tipo = 0 ELSE tipo = 1
IF valor = 1 THEN moneda$ = "peseta" ELSE moneda$ = "pesetas"

IF cantidad >= valor THEN
  cuantos = INT(cantidad / valor)
  IF tipo = 1 THEN
    IF cuantos = 1 THEN
      PRINT " 1 billete de"; valor; moneda$
    ELSE
      PRINT cuantos; "billetes de"; valor; moneda$
    END IF
  ELSE
    IF cuantos = 1 THEN
      PRINT " 1 moneda de"; valor; moneda$
    ELSE
      PRINT cuantos; "monedas de"; valor; moneda$
    END IF
  END IF

  cantidad = cantidad MOD valor
END IF

END SUB