home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TPFAST30.ZIP / REF.TXT < prev    next >
Encoding:
Text File  |  1990-09-26  |  6.2 KB  |  158 lines
  1.                       Quick Reference Guide to TpFast
  2.  
  3.                    CopyRight (c) 1990     Steven Lutrov
  4.  
  5.  
  6.  
  7.  
  8. FastBit.Asm -------------------------------------------------------------------
  9.  
  10.    Function  Bytetohex(Work_: Byte): Stype;
  11.    Function  Rotatebyteleft(Work_,Bits_:Byte): Byte;
  12.    Function  Rotatebyteright(Work_,Bits_: Byte): Byte;
  13.    Function  Rotatewordleft(Work_: Word; Bits_: Byte): Word;
  14.    Function  Rotatewordright(Work_: Word; Bits_: Byte): Word;
  15.    Function  Wordtohex(Work_: Word): Stype;
  16.  
  17.  
  18.  
  19.  
  20. FastFile.Asm ------------------------------------------------------------------
  21.  
  22.    Function  CloseFile(Handle:Integer):Boolean;
  23.    Function  CreateFile(Fname:String; Attribute:Integer):Integer;
  24.    Function  EraseFile(Name:String):Integer;
  25.    Function  FMovePointer(Handle,Mode:Integer;Offset:Longint;Var Location: Longint):Boolean;
  26.    Function  Getverify: Boolean;
  27.    Function  Getvolume(Disk: Integer; Workarea: Pointer): Stype;
  28.    Function  OpenFile(Name:String; Access:Integer):Integer;
  29.    Function  ReadFile(Handle:Word; Amount:Word; Var Buff):Integer;
  30.    Procedure Readsector(Segment,Offset,Drive,Sector,Number: Word);
  31.    Procedure Setverify(Setting: Boolean);
  32.    Procedure Setvolume(Disk: Integer; Newlabel: Stype; Workarea: Pointer);
  33.    Procedure Writesector(Segment,Offset,Drive,Sector,Number: Word);
  34.    Function  WriteFile(Handle:Integer; Nwrite:Word; Var Buff):Integer;
  35.  
  36.  
  37.  
  38.  
  39.  
  40. FastGrp.Asm -------------------------------------------------------------------
  41.  
  42.    Procedure Clearpage(Pagenumber,Colour: Byte);
  43.    Procedure CopyClear(Box: Pointer; X_Pos,Y_Pos,X_Num,Y_Num,Colour: Byte);
  44.    Procedure Drawbox(Char_X ,Char_Y :Char;X_Pos,Y_Pos,X_Num,Y_Num,Colour:Byte);
  45.    Procedure FillScreen(Ch:Char;X_Pos,Y_pos,X_num,Y_Num,Colour: Byte);
  46.    Procedure RestoreScreen(Box: Pointer; X_Pos,Y_Pos,X_Num,Y_Num: Byte);
  47.    Procedure SaveScreen(Box: Pointer; X_Pos,Y_Pos,X_Num,Y_Num: Byte);
  48.    Procedure Screendown(Box: Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
  49.    Procedure Screenleft(Box:Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
  50.    Procedure Screenright(Box:Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
  51.    Procedure Screenup(Box: Pointer; Var X_Pos,Y_Pos: Byte; X_Num,Y_Num: Byte);
  52.    Procedure Scrollx(Where: Char; X_Pos,Y_Pos,X_Num,Y_Num,Cols,Colour: Byte);
  53.    Procedure Scrolly(Where: Char; X_Pos,Y_Pos,X_Num,Y_Num,Lines,Colour: Byte);
  54.    Procedure SwapPage(Box: Pointer; Pagenumber: Byte);
  55.  
  56.  
  57.  
  58.  
  59.  
  60. FastKbd.Asm -------------------------------------------------------------------
  61.  
  62.    Function  Altkeydown: Boolean;
  63.    Function  Capslockdown: Boolean;
  64.    Function  Capslockon: Boolean;
  65.    Procedure Clearbuffer;
  66.    Procedure Clearcapslock;
  67.    Procedure Clearins;
  68.    Procedure Clearnumlock;
  69.    Procedure Clearscrolllock;
  70.    Function  Ctrlkeydown: Boolean;
  71.    Function  FreshChar: Char;
  72.    Function  Getscan: Byte;
  73.    Function  Inskeydown: Boolean;
  74.    Function  Inskeyon: Boolean;
  75.    Procedure Keypause(Code: Char; Ascii: Boolean; Wait_A,Wait_B: Byte);
  76.    Function  LastKey: Char;
  77.    Function  Leftshiftdown: Boolean;
  78.    Function  Nextkey: Char;
  79.    Function  Numlockdown: Boolean;
  80.    Function  Numlockon: Boolean;
  81.    Function  Readchar: Char;
  82.    Function  Rightshiftdown: Boolean;
  83.    Function  Scrolllockdown: Boolean;
  84.    Function  Scrolllockon: Boolean;
  85.    Procedure Setcapslock;
  86.    Procedure Setins;
  87.    Procedure Setnumlock;
  88.    Procedure Setscrolllock;
  89.  
  90.  
  91.  
  92.  
  93.  
  94. FastScr.Asm -------------------------------------------------------------------
  95.  
  96.    Procedure Background(Code: Char);
  97.    Procedure BlinkOff;
  98.    Procedure Blinkon;
  99.    Procedure Colourx(X_Pos,Y_Pos,Y_Pos,Colour: Byte);
  100.    Procedure Cursordown(Y_Pos: Integer);
  101.    Procedure Cursorleft(Columns: Integer);
  102.    Procedure Cursoroff;
  103.    Procedure Cursoron;
  104.    Procedure Cursorright(Columns: Integer);
  105.    Procedure Cursorup(Y_Pos: Integer);
  106.    Procedure Dsp(Strx: Stype);
  107.    Procedure DspAt(Strx: Stype; X_Pos,Y_Pos,Colour: Byte);
  108. ** Procedure DspC(Strx : Stype ;Y_Pos,Colour:Byte);
  109.    Procedure DspColour(Strx: Stype; Colour: Byte);
  110.    Procedure DspEnd(Strx: Stype; X_Pos,Y_Pos,Length,Colour: Byte);
  111.    Procedure DspJust(Strx: Stype; X_Pos,Y_Pos,Colour: Byte);
  112.    Procedure DspLn(Strx: Stype);
  113.    Procedure DspLnColour(Strx: Stype; Colour: Byte);
  114.    Procedure DspPart(Strx: Stype; Start,Numch,X_Pos,Y_Pos,Colour: Byte);
  115.    Procedure DspVert(Strx: Stype; X_Pos,Y_Pos,Colour: Byte);
  116.    Procedure Foreground(Code: Char);
  117.    Procedure Formatleft(Strx: Stype; How_Many: Integer; Colour: Byte);
  118.    Procedure Formatright(Strx: Stype; How_Many: Integer; Colour: Byte);
  119.    Function  GetColour(X_Pos,Y_Pos: Byte): Byte;
  120.    Function  Getpage: Integer;
  121.    Procedure Intenseoff;
  122.    Procedure Intenseon;
  123.    Procedure Normal;
  124.    Procedure Reverse;
  125.    Procedure RowColour(X_Pos,Y_Pos,X_Num,Colour: Byte);
  126.    Procedure ScreenColour(X_Pos,Y_Pos,X_Num,Y_Pos,Colour: Byte);
  127.    Procedure SetColour(X_Pos,Y_Pos,Colour: Byte);
  128.    Procedure Setpage(Pagenumber: Integer);
  129.  
  130.  
  131.  
  132.  
  133.  
  134. FastStr.Asm -------------------------------------------------------------------
  135.  
  136.    Procedure ChangeChar(Var Strx: Stype; Search,Replace: Char);
  137.    Function  Compare(Strg1,Strg2: Stype): Boolean;
  138.    Procedure Deletechar(Var Strx: Stype; Ch: Char);
  139.    Procedure Deleteleft(Var Strx: Stype; Border: Char);
  140.    Procedure Deleteright(Var Strx: Stype; Border: Char);
  141.    Function  Leftend(Var Strx: Stype; Border: Char): Stype;
  142.    Procedure Lowercase(Var Strx: Stype);
  143.    Procedure Overwrite(Var Strx: Stype; Substrg: Stype; Position: Integer);
  144.    Procedure Padcentre(Var Strx: Stype; Ch: Char; Position,Length: Integer);
  145.    Procedure Padends(Var Strx: Stype; Ch: Char; Length: Integer);
  146.    Procedure Padleft(Var Strx: Stype; Ch: Char; Length: Integer);
  147.    Procedure Padright(Var Strx: Stype; Ch: Char; Length: Integer);
  148.    Procedure Replace(Var Strx: Stype; Substrg: Stype; Position,Chars: Integer);
  149.    Function  Rightend(Var Strx: Stype; Border: Char): Stype;
  150.    Function  Seekstring(Strx,Substrg: Stype; Startpt: Integer):Integer;
  151.    Function  StringEnd(Strx: Stype; Numberchars: Integer): Stype;
  152.    Function  StringOf(Substrg: Stype; Length: Integer): Stype;
  153.    Procedure Uppercase(Var Strx: Stype);
  154.    Function  Wordcount(Strx: Stype): Integer;
  155.  
  156.  
  157.  
  158.