floating stack (MAXSTACK)
integer scanptr, sp, state
character char, line (MAXLINE)

common /junk/ stack, sp, scanptr, char, line, state