REBOL [
    Title: "Convertisseur de Source"
    Date: 30-Sep-2002/22:16:20+2:00
    Version: 1.0.0
    File: %clt.r
    Author: "F. Jouen"
    Purpose: "converts sources"
    Email: fjouen@free.fr
    Category: [vid]
]

win: layout [
    across
    text 400 white{
            Convert all line terminators to those used by the
            local computer.  Works for PC, Mac, Unix, Amiga, and
            all others. Adapted from Carl Sassenrath's reline.r program } wrap 
    effect [gradient 254.0.0 0.0.100]
    return
    button 150 "File to be converted ?" [
        if error? try [
        file: request-file/keep/filter "*.r"
        if not none? file [
            resu/text: to-file file show resu
            write to-file file read to-file file
            Alert "Conversion completed"
            ]
        ] [Alert "Error"]
         ]
    resu: info 250
    return
    button 150 "Quit" [Quit]
]
view center-face  win