A=CSW(0)IF A==1 THEN : GOSUB *A :ELSE : GOSUB *B
10 FORK 1 *task120 END30 *task140 DO50 A=CSW(-1)60 PRINT A70 LOOP#run#on -1#off -1#0on -1#1off -1#0