( -*-forth-*- )
ints

: cleanup ;

<s> running.test .s

16 queue tasks ( create task queue )
tasks def-rr-yield yield
tasks def-rr-start task 


: task-1
    [s] task-1.started .s
    begin
	[ <s> task.1 ]L .s yield
    again ;


: task-2
    begin
	[ <s> task.2 ]L .s yield
    again ;


floats
: tick yield 1000 timer! ;
tick 

ints

(
' task-2 3 task
' task-1 3 task
' task-1 3 task
)

outlet out0
outlet out1

yield


: perform ;
: test 123 .d ;




( put object in float mode )
floats