;  6 aug 85 esj created
;--------------------------< dodot >------------------------------------
   E'F
   E'O DODOT.
;-----------------------------------------------------------------------
; purpose
; to print dots and to add a cr/lf after 79 char if in local mode
;
; input
;  none
;
; output
;  none
;
; insert files
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
;
; local static storage
;  none
;
; global
   G'L DODOTCT    ; count the number of dots sent
   G'L HOSTON     ; see kercom
;
;----------------------< start of code >--------------------------------

   W'R (HOSTON.EQ.NO)                 ;if we are running in local
      E'E TYPOUT.(1,$..$)
      DODOTCT = DODOTCT + 1
      W'R DODOTCT .E. 78
         DODOTCT = 0
         E'E TYPE.(0,0)
      E'L
   E'L
   F'N
   E'N