INSTALL @lib$+"TIMERLIB"

      tID1% = FN_ontimer(100, PROCtask1, 1)
      tID2% = FN_ontimer(100, PROCtask2, 1)
      tID3% = FN_ontimer(100, PROCtask3, 1)

      ON ERROR PRINT REPORT$ : PROCcleanup : END
      ON CLOSE PROCcleanup : QUIT

      REPEAT
        WAIT 0
      UNTIL FALSE
      END

      DEF PROCtask1
      PRINT "Enjoy"
      ENDPROC

      DEF PROCtask2
      PRINT "Rosetta"
      ENDPROC

      DEF PROCtask3
      PRINT "Code"
      ENDPROC

      DEF PROCcleanup
      PROC_killtimer(tID1%)
      PROC_killtimer(tID2%)
      PROC_killtimer(tID3%)
      ENDPROC