//  input one line at a time.  from som-52

    pos = TP
    while 1				// read until get a token
        if or (TP == 0)(inbuf[pos] == 0)	// end buffer
            fgets FI inbuf					// get a line
            line = line + 1
            pos = 0
            if cmode == 2 padEOF			// interactive
        while isSpace inbuf[pos]			// skip space
            pos = pos + 1
        c = inbuf[pos]
        d = inbuf[pos+1]					// lookahead
        if c == 0 							// buffer empty
            TP = 0
        else if and (c == 47) (d == 47) 	// "//"
            TP = 0
        else
            break
