PRO mkexpbat,srcname,targname

OPENR,in,srcname,/GET_LUN
OPENW,out,targname,/GET_LUN
ins=''
REPEAT BEGIN
    READF,in,ins
    IF STRTRIM(ins,2) NE '' THEN BEGIN
        inb=BYTE(ins)
        outb=inb
        outb(0)=inb(0)-13B
        outs=STRING(outb)
        PRINTF,out,'C:\DATACOMP\LZ78EXP '+ins+' '+outs
        ENDIF ELSE PRINTF,out,''
    ENDREP UNTIL EOF(in)
CLOSE,in & FREE_LUN,in
CLOSE,out & FREE_LUN,out
RETURN
END