LDA #$03
         LDX #$08
         LDY #$00
         JSR SETLFS
         LDA #NAME1-NAME
         LDX #<NAME
         LDY #>NAME
         JSR SETNAM
         JSR OPEN
READ     LDX #$03
         JSR CHKIN
         JSR CHRIN
         TAX
         JSR READST
         PHA
         TXA
         PHA
         JSR CLRCHN
        ;PUT ROUTINE TO REDIRECT
        ;OUTPUT HERE (LDX #$XX:JSR
        ;CHKOUT).
         PLA
         JSR CHROUT
         PLA
         BEQ READ
         LDA #$03
         JSR CLOSE
         JSR CLRCHN
         RTS

NAME     .TEXT "*=S"
NAME1