14 lines
333 B
Text
14 lines
333 B
Text
"#stream.isbpl" include
|
|
"#file.isbpl" include
|
|
"#time.isbpl" include
|
|
|
|
func main {
|
|
def args =args
|
|
def dly args 2 aget stol =dly
|
|
def id args 0 aget args 1 aget stol _int STREAM_CREATE_SOCKET stream =id
|
|
while { 1 } {
|
|
"/dev/stdin" _file 0 1 read 0 aget _char id STREAM_WRITE stream
|
|
dly delay
|
|
}
|
|
0
|
|
}
|