5300 TG$(0)=TC$(KX) : GOTO 5380