anchor.diff:  (defvar *irq?* t)
   (defvar *nipkow-disable-interrupts?* t)
   (defvar *nipkow-fx-border?* t)
  +(defvar *mario-pal-only?* nil)
   
   (defvar *bandwidth* 12)
   
  
positive.code:   (make-conversion name :pal)
    (make-conversion name :ntsc))
  
  (make-audio "ohne_dich" (| *video?* "media/ohne_dich.mp3") "4" "-56")
  (make-audio "mario" "media/mario.flv" "4" "-56")
  
  (defun make (to files cmds)
    (apply #'assemble-files to files)
    (make-vice-commands cmds "break .stop"))
  
  (defun make-ohne-dich-prg (name tv)
    (make (+ "obj/" name "_" tv ".prg")
          `("bender/vic-20/basic-loader.asm"
            "bender/vic-20/vic.asm"
  
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)
  