Subj : FPC Oneliners.
To   : mark lewis
From : Joseph Larsen
Date : Thu Jun 09 2016 01:56 am

ml> remember to keep it simple and straightforward...
ml> 

I think I know the problem.


--snip---

Procedure position;

Begin
  show;
  Repeat
  printf('onen.ans');
  ch1:=ReadKey;
      case ch1 of
      #0 : begin
        begin
             ch1:=ReadKey;
             case ch1 of
             #80 : bot_bar;
             #72 : top_bar;
             end;
           end;
      end;
  until ch1=#13
end;
--snip----

See the "#8 : begin" ? I don't think that's right. Any idea what I change it
to?

Thanks,


|09ignatius |07(|15cia|07)

--- DayDream BBS/UNIX (Linux) 2.15a
 * Origin: catch22bbs.com >>>  >> > (1:340/800)

.