DataMuseum.dk

top - metrics - download

    Length: 1792 (0x700)
    Types: TextFile
    Names: »TFTERM.PAS«

└─⟦11e151dc0⟧ Bits:30009789/_.ft.Ibm2.50006589.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »TFTERM.PAS« 
└─⟦514567ecc⟧ Bits:30009789/_.ft.Ibm2.50006603.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »TFTERM.PAS« 
└─⟦59c2ecd8d⟧ Bits:30009789/_.ft.Ibm2.50006600.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »TFTERM.PAS« 

TextFile

(**************************************************************)
(*                                                            *)
(*                 TERMINAL MODULE starts                     *)


const (* public constants *)
  cursor_left = #8;   (* input character for cursor left *)
  cursor_right = #12; (* ditto for cursor right *)

const (* private constants *)
  c_left = #8;   (* cursor left *)
  c_down = #10;  (* cursor down *)
  c_up   = #11;  (* cursor up *)
  escape = #27;  (* escape *)

procedure move_cursor_left;
begin
  write(c_left);
end;

procedure start_special_printing;
begin
  write(c_down, c_down, c_up, c_up, escape, 'L', #18);
end;

procedure stop_special_printing;
begin
  write(escape, 'L', #10);
end;

procedure print_attr(what : f_string_elt);

  procedure little_down;
  begin
    write(escape, 'L', #14, c_down, escape, 'L', #10, c_up,
          escape, 'L', #18);
  end;

  procedure little_up;
  begin
    write(escape, 'L', #14, c_up, escape, 'L', #10, c_down,
          escape, 'L', #18);
  end;

begin
  with what do begin
    if underscore in attr then write(escape, 'U');
    if subscript in attr then begin
      little_down; write(ch); little_up;
    end else
    if superscript in attr then begin
      little_up; write(ch); little_down;
    end else
      write(ch);
    if underscore in attr then write(escape, 'u');
  end
end;

procedure print_normal(ch : char);
begin
  write(ch);
end;


(*                 TERMINAL MODULE ends                       *)
(*                                                            *)
(**************************************************************)




«eof»