BASIC, 30 4836 BDF WITH NEW SHIFTER