anchor.diff:    :manual-screen-updates?   t
     :frames-per-second        30)
   
  +(gen-game-info
  +  :binary                   "examples/arukanoido.bin"
  +  :name                     "arukanoido"
  +  :start                    #x2000
  +  :load-address             #x2000
  +  :memory-expansion         1
  +  :needs-paddles?           t
  +  :manual-screen-updates?   t
  +  :frames-per-second        50)
  +
   (with-output-file o "examples/Makefile.am"
     (format o "~A~%" (apply #'+ "bin_PROGRAMS = tests picovic " (pad *apps* " ")))
     (terpri o)
  
positive.code:   (format o "picovic_SOURCES = picovic.c~%")
    (format o "picovic_CPPFLAGS = -I$(top_srcdir)/src -I$(top_srcdir)/include~%")
    (format o "picovic_LDADD = ../src/libshadowvic.la~%")
    (adolist *apps*
      (terpri o)
      (format o "~A_SOURCES = ~A.c~%" ! !)
      (format o "~A_CPPFLAGS = -I$(top_srcdir)/src -I$(top_srcdir)/include~%" !)
  
negative.code: (fn c-binary (file)
    (apply #'+ (c-list (@ #'string (@ #'char-code (string-list (fetch-file file)))) :brackets :curly)))
  
  (fn c-truth (x)
    (? x "TRUE" "FALSE"))
  
  (var *apps* nil)
  
  (fn gen-game-info (&key binary name
                             start load-address
                             (memory-expansion-3k? nil)
                             (memory-expansion 0)
  