proc main
   string sFile                              ;File to send via raw ASCII
   string sLine                              ;Line read from text file
   integer iCount                            ;Pointer into sLine
   integer iLen                              ;Length of sLine
   string sChar                              ;Character to transmit
   integer iCharPace                         ;Character pacing interval from Setup dialog
   integer iLinePace                         ;Line pacing interval from Setup dialog
   integer iPaceChar                         ;Pace character from Setup dialog
   string sPaceChar                          ;Integer value of pace character converted to string
   integer iUsePaceChar                      ;Use pace character checkbox from Setup dialog
   integer iDisplay                          ;Display text checkbox from Setup dialog

   fetch rawascii charpace iCharPace
   fetch rawascii linepace iLinePace
   fetch rawascii pacechar iPaceChar
   fetch rawascii usepacechar iUsePaceChar
   fetch rawascii upld display iDisplay
   strfmt sPaceChar "%c" iPaceChar

   if sdlgfopen "Choose file to upload" "c:\" SINGLE sFile
      if fopen 0 sFile READ                  ;Open file for reading
      while not feof 0                       ;While data remains in file
         fgets 0 sLine                       ;Read line of data
         strlen sLine iLen                   ;Get length of line
         for iCount = 0 upto iLen            ;Loop through line of data
            if iLen == 0                     ;If string read is null
               exitwhile
            endif
            substr sChar sLine iCount 1      ;Get character
            transmit sChar RAW               ;Send character
            mspause iCharPace                ;Pause between characters
         endfor
         mspause iLinePace * 100             ;Pause between lines
         if iDisplay == 1
            termwrites sLine                 ;Write sent line to screen
         endif
         if iUsePaceChar == 1                ;If configured to use pace character
            waitfor sPaceChar FOREVER        ;Wait until pace character is received
         endif
      endwhile
      endif
      fclose 0                               ;Close file
   else
      errormsg "No file selected!"
   endif
endproc