Subroutine question

Is there a better way to do this? Because there will be a number of strings wanting to be displayed.

program dBase call execute_command_line('Cosmetics.exe')

call locate(1) print*,'Have a nice day today' read* end program dBase

subroutine locate(z) integer, intent(in)::z if (z==1)call execute_command_line('LocateXY.exe 5 4') end subroutine locate

subroutine locate(x,y)
integer, intent(in):: x, y
character*8 XYparams

write(XYparams,'(2i4)') X,Y

call execute_command_line('LocateXY.exe '//XYparams)

end subroutine locate

Dan, my jaw dropped off when I tried your code. Are you an earthly creature? How do you do it? An exceptionally effective response to my query! - For which many thanks! Patrick

Zach, Seems you were so impressed by my Antarctica whereabouts, many ask me. Also they often ask after that if this is true that the Earth is flat.

No, i am not in Antarctica...

currently. 😃

No I wasn't impressed by your Antarctica. I was impressed by the code you responded with. Patrick.

Life is full of surprises. My code, computer, OS and other software, as well as people around and even entire society surprise me 50 times per day. Mostly with crazy behavior.

As Prince Charles, now King, put it, not knowing his mike was still active: 'Bloody people!'.