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: (defvar ohne_dich nil)
  (defvar text nil)
  
  (defun make-ohne-dich (name src tv)
    (= *tv* tv)
    (alet (downcase (symbol-name tv))
      (let tapname (+ "compiled/" src "_" ! ".tap")
        (make-ohne-dich-prg src !)
        (make-vice-commands (+ "compiled/" src "_" ! ".vice.txt"))
        (with-output-file o tapname
          (write-tap o
  
negative.code:   (format t "Generating frame images of video ~A with mplayer…~%" *video?*)
    (| (file-exists? *video?*)
       (error "Couldn't find *VIDEO?* ~A." *video?*))
    (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" "."))
  
  