home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.dodot < prev    next >
Text File  |  2020-01-01  |  783b  |  37 lines
  1. ;  6 aug 85 esj created
  2. ;--------------------------< dodot >------------------------------------
  3.    E'F
  4.    E'O DODOT.
  5. ;-----------------------------------------------------------------------
  6. ; purpose
  7. ; to print dots and to add a cr/lf after 79 char if in local mode
  8. ;
  9. ; input
  10. ;  none
  11. ;
  12. ; output
  13. ;  none
  14. ;
  15. ; insert files
  16. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  17. ;
  18. ; local static storage
  19. ;  none
  20. ;
  21. ; global
  22.    G'L DODOTCT    ; count the number of dots sent
  23.    G'L HOSTON     ; see kercom
  24. ;
  25. ;----------------------< start of code >--------------------------------
  26.  
  27.    W'R (HOSTON.EQ.NO)                 ;if we are running in local
  28.       E'E TYPOUT.(1,$..$)
  29.       DODOTCT = DODOTCT + 1
  30.       W'R DODOTCT .E. 78
  31.          DODOTCT = 0
  32.          E'E TYPE.(0,0)
  33.       E'L
  34.    E'L
  35.    F'N
  36.    E'N
  37.