Re: More Procedure
- Posted by Ferlin <ferlin at SANDW.NET> Jan 15, 1999
- 481 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