ORG 12
LINP,   SKI         / check input flag
        BUN LINP
        INP
        OUT         /output character
        STA CHR
CHR,	HLT