home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _armbob / !ArmBob_progs_h_chain < prev    next >
Encoding:
Text File  |  1994-06-06  |  286 b   |  16 lines
  1. /* Chain another task - command given in s.          */
  2. /* Not for use in wimp programs.    GCW  02/03/94    */
  3. chain(s)
  4. {
  5.  local r, m;
  6.  (r = newvector(8))[0] = s;
  7.  in (m = newstring(4)) put { 0;}
  8.  wimp_init(310,"Chain",m);
  9.  swi("Wimp_StartTask",r);
  10.  wimp_closedown();
  11.  quit("");
  12. }
  13.  
  14.  
  15.  
  16.