print "DOS to Unix - by Mike Ramos, use at your own risk for SURE!"
        print "    written in QB2C, to be ran on Unix machine with tr"
        print ""
        a$=COMMAND$
        if n_arg% = 0 then
           print "Usage: du *.pl"
           print ""
           print "WARNING:"
           print "   I use find so directories will be renamed"
           print "  So use extensions...  You are warned."
           print ""
        else
            for i% = 1 to n_arg%
                a$=argv$(i%)
                print a$
                shell "mv -f "+a$+" "+a$+".unx"
                shell "cat "+a$+".unx | tr -d "+chr$(34)+"\015"+chr$(34)+" > "+a$
            next
C         remove ("du.tmp");
        end if
        end