| FORK   1 *case1TIME   500
 FORK   2 *case2
 END
 *case1
 ON_ERROR  *err1
 DO
 S_MBK   1 9000
 PRINT   10
 PRINT   20
 LOOP
 *err1
 PRINT   "case1=" TASKn  err_&&H00FFFFFF ERR$(err_)  err_>>24
 TIME   1000
 RESUME   _NEXT
 END
 *case2
 ON_ERROR  *err2
 DO
 OUT   1 -10000
 PRINT   1
 PRINT   2
 LOOP
 *err2
 PRINT   "case2=" TASKn  err_&&H00FFFFFF ERR$(err_)  err_>>24
 TIME   1000
 RESUME
 END
 |