Free pascal oneliners.

procedure oneliners;

var  Twriters  : array[1..10] of string;
var  Toneliner : array[1..10] of string;
var  S         : string;
var  Foneline  : string;
var  Ch1       : char;
var  Ch2       : char;
var  Ch3       : char;
var  Count     : byte;
var  Count2    : byte;


//### begin show procedure ######################################

Procedure show;

var Count : byte;

Begin
//  clrscr;
  printf('oneh.ans');
  For Count := 1 To 10 Do Begin;
    write('^[[1;37m+ ^[[0;37m');
    write(Twriters[Count]);
    write('^[[1;30m: ^[[0;37m');
    WriteLn(Toneliner[Count]);
  End;
End; // show

//### end show procedure ########################################
//### begin init procedure ######################################

Procedure init;

Var f1 : textfile;
var Count : byte;

Begin
//  GetThisUser;
  fOneLine := ('/home/imp/imp/data/oneliner.lst');
  If Not fileExists(fOneLine) Then Begin
    Assign(f1, fOneLine);
    ReWrite(f1);
    For Count := 1 To 10 Do Begin
      WriteLn(f1,'Ia! Cthulhu!');
      WriteLn(f1,'IGNATIUS');
    End;
    Close(f1);
  End;

  Assign(f1, fOneLine);
    Reset(f1);
    If IoResult = 0 Then Begin
      For Count := 1 To 10 Do Begin
        ReadLn(f1, Toneliner[Count]);
       ReadLn(f1, Twriters[Count]);
      End;
    Close(f1);
  End;
End; // Init

//### begin bot_bar procedure ###################################

Procedure bot_bar;
Begin
  printf('onen.ans');
  Ch2 := ReadKey;
  If Ch2 = #13 then Begin
    exit;
  End;
  show;
End; // bot_bar
//### end bot_bar procedure #####################################
//### begin top_bar procedure ###################################

Procedure top_bar;

Var f1 : textfile;
var Count : byte;
var ch3 : char;


Begin
  printf('oney.ans');
  Ch3 := ReadKey;
  If Ch3 = #13 then Begin
    printf('oneline.asc');
    Write('^[[3;3H');
    inputl(s,70);
    If s = '' then Begin
      WriteLn('^[[1;30maborted^[[0;37m');
      show;
      Exit;
    End;
    For Count := 1 To 9 Do Begin
      Count2 := Count + 1;
      Toneliner[Count] := Toneliner[Count2];
      Twriters[Count] := Twriters[Count2];
    End;

    tWriters[10]:=thisuser.name;
    tOneliner[10] := s;

    Assign(f1, fOneLine);
    ReWrite(f1);
    For Count := 1 To 10 do Begin
      WriteLn(f1,tOneliner[Count]);
      WriteLn(f1,tWriters[Count]);
    End;
    Close(f1);
  End;
  show;
End; // top_bar

//### end top_bar procedure #####################################
//### begin position procedure ##################################

Procedure position;

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

//### end position procedure ####################################

Begin
  init;
  Position;
End;