Re: Free Format and Screen Processing

try something like this (not free, but convertable)



eval  screen = 1

dow     screen < 5 and screen > 0
select
where screen = 1
exsr  procScreen1
where screen = 2
exsr  procScreen2
where screen = 3
exsr  procScreen3
where screen = 4
exsr  procScreen4
endsl

if    *inkl
eval  screen = screen + 1
else
eval  screen = screen - 1
end

enddo

... now i'm out, eval screen to see if I'm at the beginning or the end.

hth,

rick

----original message---------
I am trying to use Free Format as much as I can, but I've run across one
type of program that is quite a pain:  Interactive screen processing.  I
can't currently think of a slick way to bounce forward and backward among
the screens without the use of Goto's and Tag's.  Since FF doesn't allow
the Goto and Tag, I have to use the ugly /End-Free and /Free to jump in and
out.

Has anyone developed a slick way of moving forward and backward amongst
screen displays without using Goto's?

Bill