home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.dodot
< prev
next >
Wrap
Text File
|
1987-02-19
|
783b
|
37 lines
; 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