anchor.diff:  (defun load-instructions (&key (file nil))
     (if file
         (load-instructions-from-file file)
  -      *test-instructions*))
  +      #()))
   
   (defun print-video-ram (&key (width 80) (height 25) (stream t))
     (dotimes (line height)
  
positive.code: ;;;; Copyright (C) 2017 Alexander Jones
  ;;;;
  ;;;; Permission is hereby granted, free of charge, to any person obtaining a
  
negative.code:   (when (and display (not disasm))
      (print-video-ram :stream stream)))
  
  (main :file "codegolf" :display t)
  
  