        rem LOOK
        rem Allows user to enter a direction to look
        rem and returns the object and its distance.

        100 locate 20,64
            input "Direction?",dir : rem ask for direction
            range=scan(dir) : rem scan in direction indicated
            locate 21,64: print "Object is:";
            if range<0 then print "'DROID"
            if range>0 then print "WALL  "
            locate 22,64: print "Dist: ";int(abs(range));"   "
            goto 100
