/ftp/pub/users/ronald/proyectos/gophermoles-surtidos/RCS/loteria-img.scm,v  -->  standard output
revision 1.4
(use-modules (ice-9 binary-ports))

(set! *random-state* (random-state-from-platform))

(define *directorio-imgns* "/ftp/pub/users/ronald/imgns-lote")
(define *min-tarjetas* 1)
(define *max-tarjetas* 53)
(define *formato-tarjetas* (string-append *directorio-imgns* "lote-~A-fs8.png"))

(define (numero-de-tarjeta)
  (let ((num (random (+ *max-tarjetas* 1))))
    (if (not (>= num *min-tarjetas*))
      (numero-de-tarjeta)
      num)))

(define (nombre-de-archivo tarjeta)
  (simple-format #f *formato-tarjetas* tarjeta))

(define (siguiente-tarjeta)
  (let* ((elegida (numero-de-tarjeta))
         (nombre  (nombre-de-archivo elegida))
         (puerto  (open-input-file nombre #:binary #t))
         (bv      (get-bytevector-all puerto)))
    (close-port puerto)
    (put-bytevector (current-output-port) bv)))