anchor.diff:  ;          (tap2wav i o)))
         (sb-ext:run-program "/usr/bin/zip" (list (+ tapname ".zip") tapname)))))
   
  -(make-ohne-dich "OHNE DICH (PAL)" "ohne_dich" :pal)
  -(make-ohne-dich "OHNE DICH (NTSC)" "ohne_dich" :ntsc)
  -(make-ohne-dich "MARIO (PAL)" "mario" :pal)
  -(make-ohne-dich "MARIO (NTSC)" "mario" :ntsc)
  +(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)
  
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: (defvar ohne_dich nil)
  (defvar text nil)
  
  (defun make-audio-player (name src tv)
    (= *tv* tv)
    (alet (downcase (symbol-name tv))
      (let tapname (+ "compiled/" src "_" ! ".tap")
        (make-audio-player-prg src !)
        (make-vice-commands (+ "compiled/" src "_" ! ".vice.txt"))
        (with-output-file o tapname
          (write-tap o
  