( RobTasks)


200 VARIABLE radius
500 VARIABLE y
20 VARIABLE dx

( Moving circle as one task)
: movecircle
  3000 y @ DO 255 128 0 use_colour
            I y @ radius @ CIRCLE PAUSE dx @ +LOOP ;

TASK: task1 movecircle TASK;

: movesquare
   1500 y @ DO  0 128 255 use_colour
             500 I radius @ DUP RECTANGLE PAUSE dx @ +LOOP ;

TASK: task2 movesquare TASK;

TEX: tsk12 100 100 task1 100 100 task2 TEX;

: Main NOWIMPS GET tsk12 CR ;
