You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
253 B
18 lines
253 B
4 years ago
|
(
|
||
|
|
; This demo shows that stdin is nearly non-blocking
|
||
|
|
|
||
|
|
(spawn _ ReadAndEcho)
|
||
|
|
|
||
|
|
(:a)
|
||
|
|
(mslp 2500)
|
||
|
|
(lds @cout "Tick\n")
|
||
|
|
(j :a)
|
||
|
|
|
||
|
|
(proc ReadAndEcho
|
||
|
|
(:a)
|
||
|
|
(ld @cout '?')
|
||
|
|
(ld @cout @cin)
|
||
|
|
(j :a)
|
||
|
|
)
|
||
|
|
)
|