home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / armforth / !ARMforth / Examples / Tasks < prev   
Encoding:
Text File  |  1992-04-28  |  382 b   |  14 lines
  1. ( This illustrates the multi tasking capability
  2.    of ARMForth )
  3.  
  4. TASK: T1 ." T1 FIRST " PAUSE ." T1 SECOND " TASK;
  5. TASK: T2 ." T2 FIRST " PAUSE ." T2 SECOND " TASK;
  6. TEX: AT 100 100 T1 100 100 T2 TEX;
  7.  
  8. TASK: OT1 ." OT1 FIRST " AT PAUSE ." OT1 SECOND " TASK;
  9. TASK: OT2 ." OT2 FIRST " PAUSE ." OT2 SECOND " TASK;
  10.  
  11. TEX: AT2 100 100 OT1 100 100 OT2 TEX;
  12.  
  13. : TT AT2 CR ." FINISHED " CR ;
  14.