clear all set talk off set path to olw,spf,rfs mChoice = 'A' do while .t. @ 10,10 say "Choice:" @ 10,18 get mChoice pict "@m A,B,C,D" read if inlist(readkey(),12,268) exit endif do case case mChoice = "A" if file('olw\choicea.fxp') do olw\choicea else do choicea endif case mChoice = "B" do iif(file('olw\choiceb.fxp'),'olw\choiceb','choiceb') case mChoice = "C" do choicec case mChoice = "D" do choiced endca enddo close all clear allIs this the right approach. Can someone guide me on this.