home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / PASLIBR.ZIP / CHA_1.DOC < prev    next >
Encoding:
Text File  |  1991-03-15  |  13.2 KB  |  398 lines
  1. ..pgno01
  2. ..foot60AA-##
  3. ..head02L──────────────────────────────────────────────────────────────────────
  4. ..head04L──────────────────────────────────────────────────────────────────────
  5. ..head03LSUMMARY OF FUNCTIONS
  6.  
  7.                     VIDEO RELATED FUNCTIONS
  8.  
  9. Global Types
  10.    TSet = Set Of 0..255;
  11.  
  12. Global Variables
  13.    VioMode    : Word;
  14.    VioPage    : Word;
  15.    VioCols    : Word;
  16.    VioCursor  : Word;
  17.    VioBaseSeg : Word;
  18.  
  19. Procedures and Functions
  20.    Procedure BorderColor(Color : Integer);
  21.    Procedure ClrWin(X1,Y1,X2,Y2,Attr : Integer);
  22.    Procedure ColorMsg(X,Y,Attr : Integer; St : String);
  23.    Procedure EditSt(    Row,
  24.                         StCol,
  25.                         SpCol,
  26.                         Len,
  27.                         CaseInd,
  28.                         FillCh,
  29.                         AutoSkipInd,
  30.                         ErrTone,
  31.                         ErrDur        : Integer;
  32.                     Var VCSet,TCSet   : TSet;
  33.                     Var ChOfs,TE      : Integer;
  34.                     Var St            : String);
  35.  
  36.    Procedure FillColAttr(X,Y,NRows,Attr : Integer);
  37.    Procedure FillColCell(X,Y,NRows : Integer; Cell : Word);
  38.    Procedure FillColChar(X,Y,NRows : Integer; Ch : Char);
  39.    Procedure FillFrameAttr(X1,Y1,X2,Y2,Attr : Integer);
  40.    Procedure FillFrameCell(X1,Y1,X2,Y2 : Integer; Cell : Word);
  41.    Procedure FillFrameChar(X1,Y1,X2,Y2 : Integer; Ch   : Char);
  42.    Procedure FillRowAttr(X,Y,NBytes,Attr : Integer);
  43.    Procedure FillRowCell(X,Y,NWords : Integer; Cell : Word);
  44.    Procedure FillRowChar(X,Y,NBytes : Integer; Ch : Char);
  45.    Procedure FrameWin(UL,UR,LL,LR,Hor,Ver : Char; Color : Integer);
  46.    Function  GetCursorSize : Word;
  47.    Procedure GetFrameAttr(X1,Y1,X2,Y2 : Integer; Var Buffer );
  48.    Procedure GetFrameCell(X1,Y1,X2,Y2 : Integer; Var Buffer );
  49.    Procedure GetFrameChar(X1,Y1,X2,Y2 : Integer; Var Buffer );
  50.    Procedure GetScrn(X,Y,NWords : Integer;       Var Buffer );
  51.    Function  GetVideoCols  : Integer;
  52.    Procedure GetVideoInfo(Var Attr,BaseSeg,Cols,Pg,Mode : Word);
  53.    Function  GetVideoMode  : Integer;
  54.    Function  GetVideoPage  : Integer;
  55.    Procedure GotoxyAbs(X,Y : Integer);
  56.    Procedure InitVideo(Mode : Integer);
  57.    Procedure PutFrameAttr(X1,Y1,X2,Y2 : Integer; Var Buffer );
  58.    Procedure PutFrameCell(X1,Y1,X2,Y2 : Integer; Var Buffer );
  59.    Procedure PutFrameChar(X1,Y1,X2,Y2 : Integer; Var Buffer );
  60.    Procedure PutScrn(X,Y,NWords : Integer;       Var Buffer );
  61. ..page
  62.    Function  RvsAttr : Integer;
  63.    Procedure ScrollDown(X1,Y1,X2,Y2,Attr,NRows : Integer);
  64.    Procedure ScrollLeft(X1,Y1,X2,Y2,Attr,NCols : Integer);
  65.    Procedure ScrollRight(X1,Y1,X2,Y2,Attr,NCols : Integer);
  66.    Procedure ScrollUp(X1,Y1,X2,Y2,Attr,NRows : Integer);
  67.    Procedure SetCursorSize(StScan,SpScan : Integer);
  68.    Procedure SetVideoPage(PageNo : Integer);
  69.    Procedure VioInit;
  70.    Function  WhereXAbs : Integer;
  71.    Function  WhereYAbs : Integer;
  72.    Procedure WriteSt(St : String);
  73.    Procedure WriteStLn(St : String);
  74.  
  75.  
  76.                   KEYBOARD PROCEDURES AND FUNCTIONS
  77.  
  78. Global Types
  79.    Str2 = String[2];
  80.  
  81. Procedures and Functions
  82.    Procedure BiosKbdClr;
  83.    Function  BiosKbdGetElmt : Integer;
  84.    Function  BiosKbdHit     : Boolean;
  85.    Procedure BiosKbdRead(Var St : Str2);
  86.    Function  BiosKbdStat    : Integer;
  87.    Procedure DosKbdClr;
  88.    Function  DosKbdGetElmt  : Integer;
  89.    Function  DosKbdHit      : Boolean;
  90.    Procedure DosKbdRead(Var St : Str2);
  91.  
  92.  
  93.                    PRINTER PROCEDURES AND FUNCTIONS
  94.  
  95. Procedures and Functions
  96.    Procedure BiosPrtChar(Ch : Char; PrtNo : Integer);
  97.    Function  BiosPrtInit(PrtNo : Integer) : Integer;
  98.    Function  BiosPrtStat(PrtNo : Integer) : Integer;
  99.    Procedure DosPrtChar(Ch : Char);
  100.  
  101.  
  102.                 DISK AND FILE PROCEDURES AND FUNCTIONS
  103.  
  104. Global Variables
  105.    DosErrNo   : Integer;
  106.    CErrCode   : Integer;
  107.    CErrType   : Integer;
  108.    CErrDrive  : Integer;
  109.    CErrDevice : String[8];
  110.  
  111. Procedures and Functions
  112.    Procedure CloseFile(Handle : Integer);
  113.    Procedure CreateFile(    Path   : String;
  114.                             Attr   : Integer;
  115.                         Var Handle : Integer);
  116. ..page
  117.    Function  FSeek(Handle,
  118.                    Orgin  : Integer;
  119.                    Offset : LongInt) : LongInt;
  120.  
  121.    Function  GetDrive : Integer;
  122.    Procedure GetDTA(Var Segment,Offset : Word);
  123.    Function  GetNDrvs : Integer;
  124.    Function  GetFileSize(Handle : Integer) : LongInt;
  125.    Procedure OpenFile(    Path   : String;
  126.                           Attr   : Integer;
  127.                       Var Handle : Integer);
  128.    Procedure ReadFile(    Handle,NBytes : Integer;
  129.                       Var Buffer                 ;
  130.                       Var RBytes        : Integer);
  131.    Procedure ResetDisk;
  132.    Procedure ResetErrCodes;
  133.    Procedure RestInt24;
  134.    Procedure SetDTA(Segment,Offset : Integer);
  135.    Procedure SetInt24;
  136.    Procedure WriteFile(    Handle,NBytes : Integer;
  137.                        Var Buffer                 ;
  138.                        Var WBytes        : Integer);
  139.  
  140.  
  141.                        MOUSE PROCEDURES AND FUNCTIONS
  142.  
  143. Global Variables
  144.    NEvents : Word;
  145.  
  146. Procedures and Functions
  147.    Function  MButtonPress(    Button       : Integer;
  148.                           Var ButPress,X,Y : Integer) : Integer;
  149.    Function  MButtonRel(    Button     : Integer;
  150.                         Var ButRel,X,Y : Integer) : Integer;
  151.    Procedure MGetPos(Var ButStat,X,Y : Integer);
  152.    Procedure MGetSpeed(Var HorCnt,VerCnt : Integer);
  153.    Procedure MGraphCursor(XHotSpot, YHotSpot,
  154.                           CMaskSeg, CMaskOfs : Integer);
  155.    Procedure MHideCursor;
  156.    Procedure MInitEventHandler(EMask : Word);
  157.    Function  MResetMouse(NBut : Integer) : Integer;
  158.    Procedure MRetQue(Event,ButStat,x,y : Integer) : Integer;
  159.    Procedure MSetPos(X,Y : Integer);
  160.    Procedure MSetSpeed(HorCnt,VerCnt : Integer);
  161.    Procedure MSetXRange(Min,Max : Integer);
  162.    Procedure MSetYRange(Min,Max : Integer);
  163.    Procedure MShowCursor;
  164.    Procedure MTextCursor(CType,SMask,CMask : Integer);
  165.  
  166.  
  167.  
  168.             DOS1 PROCEDURES AND FUNCTIONS
  169.  
  170. Procedures and Functions
  171.    Procedure Beep( Freq, Dur : Word );
  172.    Function DosExec( CmdLine : String ) : Integer;
  173. ..page
  174.            DOS INTERRUPT PROCEDURES AND FUNCTIONS
  175.  
  176. Procedures and Functions
  177.    Procedure dDiskReset;
  178.    Function  dSelectDisk( Drive : Integer ) : Integer;
  179.    Function  dGetCurrentDisk : Integer;
  180.    Procedure dSetDta( Segment, Offset : Word );
  181.  
  182.    Function  dGetDriveData(    Drive       : Integer;
  183.                 Var Sectors    : Word;
  184.                 Var MediaSeg   : Word;
  185.                 Var MediaOfs   : Word;
  186.                 Var SectorSize : Word;
  187.                 Var Clusters   : Word ) : Boolean;
  188.  
  189.    Procedure dSetInt( Int, Segment, Offset : Word );
  190.    Procedure dCreateNewPsp( Segment : Word );
  191.  
  192.    Procedure dGetDate( Var Month   : Integer;
  193.                Var Day       : Integer;
  194.                Var Year    : Integer;
  195.                Var DayOfWk : Integer );
  196.  
  197.    Function dSetDate( Month   : Integer;
  198.               Day     : Integer;
  199.               Year    : Integer ) : Boolean;
  200.  
  201.    Procedure dGetTime( Var Hour       : Integer;
  202.                Var Minute     : Integer;
  203.                Var Seconds    : Integer;
  204.                Var Hundredths : Integer );
  205.  
  206.    Procedure dSetTime( Hour      : Integer;
  207.                Minute      : Integer;
  208.                Seconds      : Integer;
  209.                Hundredths : Integer );
  210.  
  211.    Procedure dSetVerifyFlag( VerifyOpt : Integer );
  212.    Procedure dGetDta( Var Segment, Offset : Word );
  213.  
  214.    Procedure dGetVersion( Var Major  : Integer;
  215.               Var Minor  : Integer );
  216.  
  217.    Function  dGetBreakStatus : Boolean;
  218.    Procedure dSetBreakFlag( Flag : Boolean );
  219.  
  220.    Procedure dGetBusyFlag( Var Segment, Offset : Word );
  221.  
  222.    Procedure dGetIntVec(     dInt : Word;
  223.              Var dSeg : Word;
  224.              Var dOfs : Word );
  225. ..page
  226.    Function dGetDrvAllocInfo(     Drive           : Word;
  227.                  Var Sectors       : Word;
  228.                  Var AvailClusters : Word;
  229.                  Var BytesInSector : Word;
  230.                  Var TotalClusters : Word ) : Boolean;
  231.  
  232.    Function dMkDir( Path : String ) : Integer;
  233.    Function dRmDir( Path : String ) : Integer;
  234.    Function dChDir( Path : String ) : Integer;
  235.  
  236.    Function dCreateFile(     FileSpec : String;
  237.                  Attr     : Integer;
  238.              Var Handle   : Integer ) : Integer;
  239.  
  240.    Function dOpenFile(       FileSpec : String;
  241.                Mode     : Integer;
  242.                Var Handle   : Integer ) : Integer;
  243.  
  244.    Function dCloseFile( Handle : Integer ) : Integer;
  245.  
  246.    Function dReadFile(       Handle    : Integer;
  247.                NBytes    : Word;
  248.                Var Buffer      ;
  249.                Var BytesRead : Word ) : Integer;
  250.  
  251.    Function dWriteFile(     Handle     : Integer;
  252.                 NBytes     : Word;
  253.             Var Buffer       ;
  254.             Var BytesWritten : Word ) : Integer;
  255.  
  256.    Function dDelFile( FileSpec : String ) : Integer;
  257.  
  258.  
  259.                VIDEO PROCEDURES AND FUNCTIONS
  260.  
  261. Global Types
  262.    ByteArry17 = Array[1..17] Of Byte;
  263.  
  264.  
  265. Procedures and Functions
  266.    Procedure bvSetMode( Mode, Clear : Integer );
  267.    Procedure bvSetCurType( StScan, SpScan : Integer );
  268.    Procedure bvSetCurPos( pg, row, col : Integer );
  269.  
  270.    Procedure bvGetCurPos(     pg  : Integer;
  271.               Var row : Integer;
  272.               Var col : Integer );
  273.  
  274.    Procedure bvGetCurType(     pg     : Integer;
  275.                Var stscan : Integer;
  276.                Var spscan : Integer );
  277. ..page
  278.    Procedure bvSetPage( pg : Integer );
  279.  
  280.    Procedure bvScrollUp( top,     left,
  281.              bottom, right,
  282.              lines,  attr : Integer );
  283.  
  284.    Procedure bvScrollDn( top,     left,
  285.              bottom, right,
  286.              lines,  attr : Integer );
  287.  
  288.    Procedure bvReadCell( Var ch   : Integer;
  289.              Var attr : Integer;
  290.                  pg   : Integer );
  291.  
  292.    Procedure bvWrtNCell( ch, attr, count, pg : Integer );
  293.  
  294.    Procedure bvWrtNChar( ch, count, pg : Integer );
  295.    Procedure bvSetState0B( color : Integer );
  296.    Procedure bvWrtPix( row, col, pixval, pg : Integer );
  297.    Function  bvReadPix( row, col, pg : Integer ) : Integer;
  298.    Procedure bvWrtTTYChar( ch, pg, color : Integer );
  299.    Procedure bvGetMode( Var mode, cols, pg : Integer );
  300.    Procedure bvSetPalReg( color, reg : Integer );
  301.    Procedure bvSetBorder( color : Integer );
  302.  
  303.    Procedure bvSetPalBorder( list : ByteArry17 );
  304.  
  305.    Procedure bvSetBlink( state : Integer );
  306.    Function  bvGetPalReg( reg : Integer) : Integer;
  307.    Function  bvGetBorder : Integer;
  308.  
  309.    Procedure bvGetPalBorder( buf : ByteArry17 );
  310.  
  311.    Procedure bvSetColorReg( colorreg : Word;
  312.                 green    : Integer;
  313.                 blue     : Integer;
  314.                 red      : Integer );
  315.  
  316.    Procedure bvSetColorRegBlk(       startreg : Word;
  317.                    regcount : Integer;
  318.                    Var colortbl         );
  319.  
  320.    Procedure bvSetColorPgMode( pgstate : Integer );
  321.    Procedure bvSetColorRegPg( pg : Integer );
  322.  
  323.    Procedure bvGetColorReg(    colorreg : Integer;
  324.                 Var green     : Integer;
  325.                 Var blue     : Integer;
  326.                 Var red     : Integer );
  327.  
  328.    Procedure bvGetColorRegBlk(       startreg : Word;
  329.                    regcount : Integer;
  330.                    Var colortbl          );
  331. ..page
  332.    Procedure bvGetColorPgMode( Var colorpg : Integer;
  333.                    Var pgmode  : Integer );
  334.  
  335.    Procedure bvSetGrayScale( startreg : Word;
  336.                  regcount : Integer );
  337.  
  338.    Procedure bvLoadUsrFont00(      pts,
  339.                   block    : Integer;
  340.                   chcount,
  341.                   startch  : Word;
  342.                   Var fonttbl         );
  343.  
  344.    Procedure bvLoadUsrFont10(      pts,
  345.                   block    : Integer;
  346.                   chcount,
  347.                   startch  : Word;
  348.                   Var fonttbl         );
  349.  
  350.    Procedure bvLoad8x14Font01( block : Integer );
  351.    Procedure bvLoad8x14Font11( block : Integer );
  352.    Procedure bvLoad8x8Font02( block : Integer );
  353.    Procedure bvLoad8x8Font12( block : Integer );
  354.  
  355.    Procedure bvSetBlkSpec( block : Integer );
  356.  
  357.    Procedure bvLoad8x16Font04( block : Integer );
  358.    Procedure bvLoad8x16Font14( block : Integer );
  359.  
  360.    Procedure bvSet1FhFontPtr( Var fonttbl    );
  361.  
  362.  
  363.    Procedure bvSet43hUsrFont(      rows      : Integer;
  364.                   points  : Word;
  365.                   scnrows : Integer;
  366.                   Var fonttbl        );
  367.  
  368.    Procedure bvSet43h8x14Font( rows, scnrows : Integer    );
  369.    Procedure bvSet43h8x8Font( rows, scnrows : Integer );
  370.    Procedure bvSet43h8x16Font( rows, scnrows : Integer );
  371.  
  372.    Procedure bvGetFontInfo(    fontcode : Integer;
  373.                 Var points     : Word;
  374.                 Var scnrows  : Integer;
  375.                 Var fonttbl         );
  376.  
  377.    Procedure bvGetConfigInfo( Var dsptype : Integer;
  378.                   Var egamem  : Integer;
  379.                   Var fbits   : Integer;
  380.                   Var swset   : Integer );
  381. ..page
  382.    Procedure bvSetAltPrtSc;
  383.    Function  bvSetScanLines( scancode : Integer ) : Integer;
  384.    Function  bvDefPalLoad( setting : Integer ) : Integer;
  385.    Function  bvVioAccess( setting : Integer ) : Integer;
  386.    Function  bvGrayScaleSum( setting : Integer ) : Integer;
  387.    Function  bvCurEmulation( setting : Integer ) : Integer;
  388.    Procedure bvSwDsp( setting : Integer; Var buffer    );
  389.    Function  bvScnRefresh( setting : Integer ) : Integer;
  390.  
  391.    Procedure bvWrtTTYStr(     mode : Integer;
  392.                   row  : Integer;
  393.                   col  : Integer;
  394.                   len  : Integer;
  395.                   pg   : Integer;
  396.                   attr : Integer;
  397.               Var st        );
  398.