3080 IF FP-FPA=0 THEN 3100