0 rem * 1 rem * 3 rem *_TEST_FOR_COMPLEX_CONDITIONAL_EXPRESSIONS_ 4 rem * 5 cls 10 input "Enter a string to convert to uppercase: " ,IN$ 20 for I =1 to len (IN$ ) 30 if (asc (mid$ (IN$ ,I ,1 ))>=asc ("a" )and asc (mid$ (IN$ ,I ,1 ))<=asc ("z" )then NEW$ =NEW$ +chr$ (asc (mid$ (IN$ ,I ,1 ))-32 ):goto 50 40 NEW$ =NEW$ +mid$ (IN$ ,I ,1 ) 50 next I 60 print "New string: '" ;NEW$ ;"'"