
\ Examples with multitasking

\ --------------------------------------------------
\   Task switch counter
\ --------------------------------------------------

0. 2variable counter
: c ( -- ) counter 2@ d. ;

task: ct
: ct& ct activate
  begin counter 2@ 1. d+ counter 2! pause again ;

ct& multitask tasks
