5800 IF I>=1 THEN 5775