I can't run the Genera version on my setup, but from reading the source it looks like you definitely used the graphics capabilities to the max!
I also don't have whatever Lisp you used for the ASCII version, so I wrote a port to Racket (uses same graphic resource as original):
(define (game-loop [score 0])
(printf "*bleach*~n")
(printf "Score: ~a~n" score)
(printf "Drink it?~n")
(if (eq? #\y (string-ref (read-line) 0))
(printf "You died. (Score: ~a)~n" score)
(game-loop (+ 1 score))))
(game-loop)
I'm not sure how to rate this, because I never ran your actual game, just a port that I wrote myself. But I replayed it several times, and had to stifle giggles all the way through... So. Um. Yeah. ; - )
I think this could be the new FizzBuzz...