home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / RTX100.ZIP / RTX.BI < prev    next >
Encoding:
Text File  |  1992-09-02  |  4.3 KB  |  154 lines
  1. ' *****************************************************************************
  2. ' ****                                                                     ****
  3. ' **                        Rtx Professional Toolbox                         **
  4. ' **      Copyright (c) 1992 by Cyberphilia, Inc.  All Rights Reserved.      **
  5. ' ****                                                                     ****
  6. ' *****************************************************************************
  7.  
  8. Const _
  9.   RTXMAXHEADERS% =   5%, _
  10.   RTXMAXFOOTERS% =   5%, _
  11.   RTXMAXCOLUMNS% =  10%, _
  12.   RTXMAXBREAKS%  =   5%, _
  13.   RTXMAXCOLSIZE% =  80%, _
  14.   RTXMAXWIDTH%   = 255%, _
  15.   RTXMAXLENGTH%  = 255%
  16.   '
  17. Const _
  18.   TRUE        =  -1%, _
  19.   FALSE       =   0%
  20.   '
  21. Const _
  22.   RTXALREADYOPEN% =  1%, _
  23.   RTXBADBOTTOM%   =  2%, _
  24.   RTXBADBREAK%    =  3%, _
  25.   RTXBADCOLUMN%   =  4%, _
  26.   RTXBADCONTENTS% =  5%, _
  27.   RTXBADCOPIES%   =  6%, _
  28.   RTXBADFILENAME% =  7%, _
  29.   RTXBADFOOTER%   =  8%, _
  30.   RTXBADHEADER%   =  9%, _
  31.   RTXBADLEFT%     = 10%
  32.   '
  33. Const _
  34.   RTXBADLENGTH%   = 11%, _
  35.   RTXBADMASK%     = 12%, _
  36.   RTXBADPRINTER%  = 13%, _
  37.   RTXBADROW%      = 14%, _
  38.   RTXBADSKIP%     = 15%, _
  39.   RTXBADSOURCE%   = 16%, _
  40.   RTXBADSTYLE%    = 17%, _
  41.   RTXBADTOP%      = 18%, _
  42.   RTXBADTOTAL%    = 19%, _
  43.   RTXBADWIDTH%    = 20%
  44.   '
  45. Const _
  46.   RTXFILEEXISTS%  = 21%, _
  47.   RTXIOERROR%     = 22%, _
  48.   RTXNOTONLINE%   = 23%, _
  49.   RTXNOTOPEN%     = 24%, _
  50.   RTXOUTOFPAPER%  = 25%, _
  51.   RTXSUCCESS%     = 26%, _
  52.   RTXTIMEOUT%     = 27%, _
  53.   RTXUNKNOWN%     = 28%
  54.   '
  55. Const _
  56.   RTXSTRING%   = 1%, _
  57.   RTXINTEGER%  = 2%, _
  58.   RTXLONG%     = 3%, _
  59.   RTXSINGLE%   = 4%, _
  60.   RTXDOUBLE%   = 5%, _
  61.   RTXCURRENCY% = 6%
  62.   '
  63. Const _
  64.   RTXLEFT%  = 0%, _
  65.   RTXRIGHT% = 1%, _
  66.   RTXCENTER = 2%
  67.   '
  68. Type RtxStruc
  69.   FileName   As String*64
  70.   FileHandle As Integer
  71.   Printer    As Integer
  72.   OpLine     As Integer
  73.   FormWidth  As Integer
  74.   FormLength As Integer
  75.   FormLM     As Integer
  76.   FormTM     As Integer
  77.   FormBM     As Integer
  78.   FormLPP    As Integer
  79.   FormPage   As Integer
  80.   FormLine   As Integer
  81.   Suppress   As Integer
  82.   Headers    As Integer
  83.   Footers    As Integer
  84.   Columns    As Integer
  85.   Breaks     As Integer
  86.   LineImage  As String*RTXMAXWIDTH%
  87.   Success    As Integer
  88.   Result     As Integer
  89. End Type
  90. '
  91. Type RtxPrinterStruc
  92.   NotBusy     As Integer
  93.   Acknowledge As Integer
  94.   OutOfPaper  As Integer
  95.   Selected    As Integer
  96.   IOError     As Integer
  97.   TimedOut    As Integer
  98. End Type
  99. '
  100. Type RtxHeaderFooterStruc
  101.   Style As Integer
  102.   Text  As String*RTXMAXWIDTH%
  103. End Type
  104. '
  105. Type RtxColumnStruc
  106.   Label                   As String*RTXMAXCOLSIZE%
  107.   Source                  As Integer
  108.   Mask                    As String*RTXMAXCOLSIZE%
  109.   Start                   As Integer
  110.   Size                    As Integer
  111.   Style                   As Integer
  112.   Total                   As Integer
  113.   First                   As Integer
  114.   Set                     As Integer
  115.   Acc(0 To RTXMAXBREAKS%) As String*8
  116.   OldData                 As String*RTXMAXCOLSIZE%
  117.   NewData                 As String*RTXMAXCOLSIZE%
  118. End Type
  119. '
  120. Type RtxBreakStruc
  121.   Column  As Integer
  122.   Count   As Integer
  123.   Skip    As Integer
  124.   Text    As String*RTXMAXCOLSIZE%
  125. End Type
  126. '
  127. Declare Sub RtxClose (Copies%, Retain%)
  128. Declare Sub RtxData (Column%, Contents$)
  129. Declare Function RtxGetBreak ()
  130. Declare Function RtxGetPage ()
  131. Declare Function RtxGetRemaining ()
  132. Declare Sub RtxInit ()
  133. Declare Sub RtxNewPage ()
  134. Declare Sub RtxOpen (FileName$, Overwrite%)
  135. Declare Sub RtxOutput ()
  136. Declare Function RtxResult ()
  137. Declare Sub RtxSetBreak (Number%, Column%, Skip%, Text$)
  138. Declare Sub RtxSetBreak0 (Text$)
  139. Declare Sub RtxSetColumn (Column%, Label$, Source%, Mask$, Style%, Total%, First%)
  140. Declare Sub RtxSetError (Row%)
  141. Declare Sub RtxSetFooting (Num%, Text$, Style%)
  142. Declare Sub RtxSetForm (Columns%, Lines%, LeftMargin%, TopMargin%, BottomMargin%)
  143. Declare Sub RtxSetHeading (Num%, Text$, Style%)
  144. Declare Sub RtxSetPrinter (Number%)
  145. Declare Sub RtxSkip (Lines%)
  146. Declare Sub RtxSuppress (Switch%)
  147. '
  148. Common Shared /Rtx/ GloReport   As RtxStruc
  149. Common Shared /Rtx/ GloPrinter  As RtxPrinterStruc
  150. Common Shared /Rtx/ GloHeader() As RtxHeaderFooterStruc
  151. Common Shared /Rtx/ GloFooter() As RtxHeaderFooterStruc
  152. Common Shared /Rtx/ GloColumn() As RtxColumnStruc
  153. Common Shared /Rtx/ GloBreak()  As RtxBreakStruc
  154.