Quick Reference Guide to TpFast

                   CopyRight (c) 1990     Steven Lutrov




FastBit.Asm -------------------------------------------------------------------

   Function  Bytetohex(Work_: Byte): Stype;
   Function  Rotatebyteleft(Work_,Bits_:Byte): Byte;
   Function  Rotatebyteright(Work_,Bits_: Byte): Byte;
   Function  Rotatewordleft(Work_: Word; Bits_: Byte): Word;
   Function  Rotatewordright(Work_: Word; Bits_: Byte): Word;
   Function  Wordtohex(Work_: Word): Stype;




FastFile.Asm ------------------------------------------------------------------

   Function  CloseFile(Handle:Integer):Boolean;
   Function  CreateFile(Fname:String; Attribute:Integer):Integer;
   Function  EraseFile(Name:String):Integer;
   Function  FMovePointer(Handle,Mode:Integer;Offset:Longint;Var Location: Longint):Boolean;
   Function  Getverify: Boolean;
   Function  Getvolume(Disk: Integer; Workarea: Pointer): Stype;
   Function  OpenFile(Name:String; Access:Integer):Integer;
   Function  ReadFile(Handle:Word; Amount:Word; Var Buff):Integer;
   Procedure Readsector(Segment,Offset,Drive,Sector,Number: Word);
   Procedure Setverify(Setting: Boolean);
   Procedure Setvolume(Disk: Integer; Newlabel: Stype; Workarea: Pointer);
   Procedure Writesector(Segment,Offset,Drive,Sector,Number: Word);
   Function  WriteFile(Handle:Integer; Nwrite:Word; Var Buff):Integer;





FastGrp.Asm -------------------------------------------------------------------

   Procedure Clearpage(Pagenumber,Colour: Byte);
   Procedure CopyClear(Box: Pointer; X_Pos,Y_Pos,X_Num,Y_Num,Colour: Byte);
   Procedure Drawbox(Char_X ,Char_Y :Char;X_Pos,Y_Pos,X_Num,Y_Num,Colour:Byte);
   Procedure FillScreen(Ch:Char;X_Pos,Y_pos,X_num,Y_Num,Colour: Byte);
   Procedure RestoreScreen(Box: Pointer; X_Pos,Y_Pos,X_Num,Y_Num: Byte);
   Procedure SaveScreen(Box: Pointer; X_Pos,Y_Pos,X_Num,Y_Num: Byte);
   Procedure Screendown(Box: Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
   Procedure Screenleft(Box:Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
   Procedure Screenright(Box:Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
   Procedure Screenup(Box: Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
   Procedure Scrollx(Where: Char; X_Pos,Y_Pos,X_Num,Y_Num,Cols,Colour: Byte);
   Procedure Scrolly(Where: Char; X_Pos,Y_Pos,X_Num,Y_Num,Lines,Colour: Byte);
   Procedure SwapPage(Box: Pointer; Pagenumber: Byte);





FastKbd.Asm -------------------------------------------------------------------

   Function  Altkeydown: Boolean;
   Function  Capslockdown: Boolean;
   Function  Capslockon: Boolean;
   Procedure Clearbuffer;
   Procedure Clearcapslock;
   Procedure Clearins;
   Procedure Clearnumlock;
   Procedure Clearscrolllock;
   Function  Ctrlkeydown: Boolean;
   Function  FreshChar: Char;
   Function  Getscan: Byte;
   Function  Inskeydown: Boolean;
   Function  Inskeyon: Boolean;
   Procedure Keypause(Code: Char; Ascii: Boolean; Wait_A,Wait_B: Byte);
   Function  LastKey: Char;
   Function  Leftshiftdown: Boolean;
   Function  Nextkey: Char;
   Function  Numlockdown: Boolean;
   Function  Numlockon: Boolean;
   Function  Readchar: Char;
   Function  Rightshiftdown: Boolean;
   Function  Scrolllockdown: Boolean;
   Function  Scrolllockon: Boolean;
   Procedure Setcapslock;
   Procedure Setins;
   Procedure Setnumlock;
   Procedure Setscrolllock;





FastScr.Asm -------------------------------------------------------------------

   Procedure Background(Code: Char);
   Procedure BlinkOff;
   Procedure Blinkon;
   Procedure Colourx(X_Pos,Y_Pos,Y_Pos,Colour: Byte);
   Procedure Cursordown(Y_Pos: Integer);
   Procedure Cursorleft(Columns: Integer);
   Procedure Cursoroff;
   Procedure Cursoron;
   Procedure Cursorright(Columns: Integer);
   Procedure Cursorup(Y_Pos: Integer);
   Procedure Dsp(Strx: Stype);
   Procedure DspAt(Strx: Stype; X_Pos,Y_Pos,Colour: Byte);
** Procedure DspC(Strx : Stype ;Y_Pos,Colour:Byte);
   Procedure DspColour(Strx: Stype; Colour: Byte);
   Procedure DspEnd(Strx: Stype; X_Pos,Y_Pos,Length,Colour: Byte);
   Procedure DspJust(Strx: Stype; X_Pos,Y_Pos,Colour: Byte);
   Procedure DspLn(Strx: Stype);
   Procedure DspLnColour(Strx: Stype; Colour: Byte);
   Procedure DspPart(Strx: Stype; Start,Numch,X_Pos,Y_Pos,Colour: Byte);
   Procedure DspVert(Strx: Stype; X_Pos,Y_Pos,Colour: Byte);
   Procedure Foreground(Code: Char);
   Procedure Formatleft(Strx: Stype; How_Many: Integer; Colour: Byte);
   Procedure Formatright(Strx: Stype; How_Many: Integer; Colour: Byte);
   Function  GetColour(X_Pos,Y_Pos: Byte): Byte;
   Function  Getpage: Integer;
   Procedure Intenseoff;
   Procedure Intenseon;
   Procedure Normal;
   Procedure Reverse;
   Procedure RowColour(X_Pos,Y_Pos,X_Num,Colour: Byte);
   Procedure ScreenColour(X_Pos,Y_Pos,X_Num,Y_Pos,Colour: Byte);
   Procedure SetColour(X_Pos,Y_Pos,Colour: Byte);
   Procedure Setpage(Pagenumber: Integer);





FastStr.Asm -------------------------------------------------------------------

   Procedure ChangeChar(Var Strx: Stype; Search,Replace: Char);
   Function  Compare(Strg1,Strg2: Stype): Boolean;
   Procedure Deletechar(Var Strx: Stype; Ch: Char);
   Procedure Deleteleft(Var Strx: Stype; Border: Char);
   Procedure Deleteright(Var Strx: Stype; Border: Char);
   Function  Leftend(Var Strx: Stype; Border: Char): Stype;
   Procedure Lowercase(Var Strx: Stype);
   Procedure Overwrite(Var Strx: Stype; Substrg: Stype; Position: Integer);
   Procedure Padcentre(Var Strx: Stype; Ch: Char; Position,Length: Integer);
   Procedure Padends(Var Strx: Stype; Ch: Char; Length: Integer);
   Procedure Padleft(Var Strx: Stype; Ch: Char; Length: Integer);
   Procedure Padright(Var Strx: Stype; Ch: Char; Length: Integer);
   Procedure Replace(Var Strx: Stype; Substrg: Stype; Position,Chars: Integer);
   Function  Rightend(Var Strx: Stype; Border: Char): Stype;
   Function  Seekstring(Strx,Substrg: Stype; Startpt: Integer):Integer;
   Function  StringEnd(Strx: Stype; Numberchars: Integer): Stype;
   Function  StringOf(Substrg: Stype; Length: Integer): Stype;
   Procedure Uppercase(Var Strx: Stype);
   Function  Wordcount(Strx: Stype): Integer;