anchor.diff:    (format t "Generating frame images of video ~A with mplayer…~%" *video?*)
     (| (file-exists? *video?*)
        (error "Couldn't find *VIDEO?* ~A." *video?*))
  -  (when nil
     (sb-ext:run-program "/usr/bin/mplayer"
                         `("-ao" "dummy"
                           "-vo" "pnm"
                           "-vf" "scale=64:48"
                           "-endpos" ,*video-end*
                           ,*video?*))
  -  )
     (format t "Generating tape frames…~%")
     (make-nipkow-dat-test "obj/nipkow.dat" "."))
   
  
positive.code: (defvar *irq?* t)
  (defvar *nipkow-disable-interrupts?* t)
  (defvar *nipkow-fx-border?* t)
  
  (defvar *bandwidth* 12)
  
  
negative.code: ;          (tap2wav i o)))
        (sb-ext:run-program "/usr/bin/zip" (list (+ tapname ".zip") tapname)))))
  
  (unless *mario-pal-only?*
    (make-audio-player "OHNE DICH (PAL)" "ohne_dich" :pal)
    (make-audio-player "OHNE DICH (NTSC)" "ohne_dich" :ntsc))
  (make-audio-player "MARIO (PAL)" "mario" :pal)
  (unless *mario-pal-only?*
    (make-audio-player "MARIO (NTSC)" "mario" :ntsc))
  
  (print-pwm-info)
  
  (defun tap-rate (tv avg-len)
  