/* Copyright (c) 1979 Regents of the University of California */
* The following array gives the number of tens of milliseconds per
* character for each speed as returned by gtty. Thus since 300
* baud returns a 7, there are 33.3 milliseconds per char at 300 baud.
0, 2000, 1333, 909, 743, 666, 500, 333, 166, 83, 55, 41, 20, 10
* Put the character string cp out, with padding.
* The number of affected lines is affcnt, and the routine
* used to output one character is outc.
* Convert the number representing the delay.
i
= i
* 10 + *cp
++ - '0';
* Only one digit to the right of the decimal point.
* If the delay is followed by a `*', then
* multiply by the affected lines count.
* The guts of the string.
* If no delay needed, or output speed is
* not comprehensible, then don't try to delay.
if (ospeed
<= 0 || ospeed
>= (sizeof tmspc10
/ sizeof tmspc10
[0]))
* Round up by a half a character frame,
* Too bad there are no user program accessible programmed delays.
* Transmitting pad characters slows many
* terminals down and also loads the system.
mspc10
= tmspc10
[ospeed
];
for (i
/= mspc10
; i
> 0; i
--)