ADFS Imager
It's a bit of a mess, because I needed to build in error trapping, which meant I had to effectively remove all the very nice structured programming loops, functions and procedures, and put a load of GOTOs all over the place. I use R% as a return line when a subroutine has finished, but it means I can never safely renumber the program!