( Rob3Taska)

   ( OSCLI" ChannelVoice 1 StringLib-Pluck"
   OSCLI" Volume 127")

: beep 100 0 DO 7 EMIT I .  2 Tdelay0  PAUSE LOOP ;
TASK: tasksound beep TASK;

200 VARIABLE radius
500 VARIABLE y
20 VARIABLE dx

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

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


TEX: tskall 100 100 tasksound 100 100 taskcircle 100 100 tasksquare TEX;

: Main NOWIMPS KEY DROP tskall  CR ;


Main

