The line wrap was a web funky.
I would have caught that.
I also changed the "GO TO LOOP:" to "GO TO LOOP;"

: -> ;

Not I'd ever construct a loop like this since PL/I has far better looping coubstructs, just that this is the original sample code the expert gave me as a starting point so I need to get this to compile before I go any further.