ARM Club 3/TheARMClub_PDCD3.iso/hensa/programming/armbob/armbob_1/ARMBOB/!ArmBob/progs/h/chain

Text File | 1995-04-05 | 287 b | 17 lines

/* Chain another task - command given in s.          */
/* Not for use in wimp programs.    GCW  02/03/94    */

chain(s)
{
 local r, m;
 (r = newvector(8))[0] = s;
 in (m = newstring(4)) put { 0;}
 wimp_init(310,"Chain",m);
 swi("Wimp_StartTask",r);
 wimp_closedown();
 quit("");
}