( Conversion from UNIX ASCII files to DOS ASCII files - I)                                                                      : OpenFile                                                        args over over >r >r rot open error?                            if                                                                stdout use                                                      ." Cannot open "                                                r> r> type cr abort                                           else                                                              dup use r> r> drop drop                                       then                                                          ;                                                                                                                                                                                                                                                                                                                               ( Conversion from UNIX ASCII files to DOS ASCII files - II)                                                                     : OpenFiles                                                       argn 3 < abort" Usage: udc infile outfile"                      input  1 OpenFile                                               output 2 Openfile                                             ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ( Conversion from UNIX ASCII files to DOS ASCII files - III)                                                                    : ProcessFile                                                     begin                                                             refill                                                        while                                                             0 parse                                                         type 13 emit 10 emit                                          repeat                                                        ;                                                                                                                               : Convert OpenFiles ProcessFile ;                                                                                               Convert