How do I create a DCG rule inverse to another in Prolog?

Question

I am writing a Commodore BASIC interpreter in Prolog, and I am writing some DCGs to parse it. I have verified the DCGs below to work except for the variable one