( RobTasks1)


200 VARIABLE radius
500 VARIABLE y
20 VARIABLE dx

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

TASK: task1 
  255 128 0 use_colour
  movecircle
TASK;

: movesquare
   1200 y @ DO 500 I radius @ DUP RECTANGLE PAUSE dx @ +LOOP
;

TASK: task2 0 128 255 use_colour movesquare TASK;

TEX: tsk12 100 100 task1 100 100 task2 TEX;

: Main tsk12 CR ;

