TITLE DO
SEARCH STENEX
; CRAMS FILE INTO INPUT BUFFER
START:  HRLZI 1,100003
        MOVE 2 , [XWD 100,101]
        GTJFN
         JRST ERR
        MOVE 2 , [070000200000]
        OPENF
         JRST ERR
        MOVE 5 , 1 ; SAVE JFN IN 5
LP:     MOVE 1 ,/5
        BIN             ; READ A CHAR
        JUMPE 2 , DONE  ; STOP ON NULL
        MOVEI/1 , 100   ; INPUT TTY JFN
        STI             ; STUFF CHAR INTO BUFFER
        JRST LP         ; AND GO BACK
DONE:   HALTF
        JRST START
ERR:    HRROI [ASCIZ/ Cannot access file
/]
        PSOUT
        RESET
        JRST DONE
        END START
@