{SETHLIB

This file is not meant to compile - but only to demonstrate and
document how to call the procedures in this TPU.

Commands are simular for SETHPI.

You cannot use this with DDPLUSPI.TPU - it's for the TEOS IGM setup
program only.  It's a non-modem version of SETHPI for local only output.
}
procedure key_local;

{A MORE prompt}

procedure seth(sayit: string);
procedure sethln(sayit: string);
{just like in a door, does ` codes}
procedure ddansiinit;
{Call this before using Sethln.}

function choose_one(key_chars:string;lx,ly,st:shortint):char;
{nifty way to use arrowkeys to choose an option}

procedure sread_seth(var ch: char; things: string);
{same as the one in DDPLUSPI - easy way to get a char from the user}

procedure display(filen: string;skip_en:boolean);
{display a file, ansi or sansi}

procedure ssfile(filen,databank: string;skip_en:boolean);
{reads ssfiles}

function edi_num(sx,sy,leng,colo,colo1: integer; start_num:longint): longint;
function edi(sx,sy,leng,colo,colo1: integer; starting: string): string;

{great string input routines, allows insert/ect}
procedure sgoto_xy(x,y: shortint);
Procedure CloseWindow;
function readmost : char;

Procedure OpenWindow(X, Y, Lines, Columns, FrameColor,
                     ForeGround, BackGround : Byte;
                     Title : String30; Shade : ShadeType);

{open window and close window - makes pop up windows.  Can be layered.}
{from SWAG!}
