100 INPUT N 110 LET I=N 120 LET C=0 130 IF I=1 THEN GOTO 210 140 IF INT(I/2)*2=I THEN 150 LET I=I/2 160 GOTO 190 170 END IF 180 LET I=3*I+1 190 LET C=C+1 200 GOTO 130 210 PRINT "F(";N;")=";C 220 END