FORK 1 *case1 TIME 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 |