OpenEuphoria

Re: More Procedure

• Posted by Ferlin <ferlin at SANDW.NET> Jan 15, 1999
• 666 views

Jiri Babor wrote:
>
> --  file  : more2.ex
> --  author: jiri babor
> --  email : jbabor at paradise.net.nz
> --  date  : 99-01-15
>
> ----------------------------------------------------------
> --  simpler 'more' routine, assuming 25 line text mode  --
> ----------------------------------------------------------
>
> include graphics.e
>
> procedure more(sequence text)
>     sequence pos
>     for i=1 to length(text) do
>         pos=get_position()
>         if pos[1]>=25 then
>             position(25,1)
>             puts(1,"--more--")
>             while get_key()=-1 do end while
>             clear_screen()
>             position(1,1)
>         end if
>         puts(1,{text[i]})
>     end for
> end procedure

THANKS! More2 was just what I needed, works like a charm.

--
+ + +  Rev. Ferlin Scarborough  -  Centreville, Alabama  -  USA

email:ferlin at sandw.net
email:ferlin at email.com