anchor.diff:  (defvar *nipkow-disable-interrupts?* t)
   (defvar *nipkow-fx-border?* t)
   (defvar *mario-pal-only?* nil)
  +(defvar *make-test-pulses?* nil)
   
   (defvar *nipkow-pulse-rate* 4400)
   (defvar *bandwidth* 16)
  
positive.code:                         name
                          :start #x1001))
          (with-input-file i (+ "obj/" src ".downsampled." ! ".wav")
            (? *video?*
               (with-input-file video "obj/nipkow.dat"
                 (wav2pwm o i video))
               (wav2pwm o i))))
  ; XXX Too inaccurate to make working cassettes.
  ;      (with-input-file i tapname
  ;        (with-output-file o (+ "compiled/" src "." ! ".tap.wav")
  ;          (tap2wav i o 48000 (cpu-cycles *tv*))))
        (sb-ext:run-program "/usr/bin/zip" (list (+ tapname ".zip") tapname)))))
  
  (unless *mario-pal-only?*
  
negative.code: (= *model* :vic-20)
  
  (defvar *video?* nil) ;"video.mp4")
  (defvar *video-end* "20")
  