std     START 
        
zacetek  CLEAR X
loop    LDCH txt, X
        WD #170
        TIX #txtlen
        JLT loop

halt    J halt


.txt

txt     BYTE C'SIC/EXE'
        BYTE 0
txtend  EQU *
txtlen  EQU txtend-txt
        END zacetek