home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VDL020D.ZIP / VATM.DOC < prev    next >
Encoding:
Text File  |  1993-04-14  |  3.5 KB  |  190 lines
  1. {
  2.  ════════════════════════════════════════════════════════════════════════════
  3.  
  4.  Visionix "Text File Assign" to Memory Unit (VATM)
  5.  Copyright 1991,92,93 Visionix
  6.  ALL RIGHTS RESERVED
  7.  
  8.  ────────────────────────────────────────────────────────────────────────────
  9.  
  10.  Revision history in reverse chronological order:
  11.  
  12.  Initials  Date      Comment
  13.  ────────  ────────  ────────────────────────────────────────────────────────
  14.  
  15.  lpg       03/15/93  Added Source Documentation
  16.  
  17.  mep       02/11/93  Cleaned up code for beta release
  18.  
  19.  jrt       02/08/93  Sync with beta 0.12 release
  20.  
  21.  jrt       12/07/92  Sync with beta 0.11 release
  22.  
  23.  jrt       11/21/92  Sync with beta 0.08
  24.  
  25.  jrt       09/01/92  First logged revision.
  26.  
  27.  ════════════════════════════════════════════════════════════════════════════
  28. }
  29.  
  30. Unit VATM;
  31.  
  32.  
  33. Uses
  34.  
  35.   VTypes,
  36.   DOS;
  37.  
  38. {────────────────────────────────────────────────────────────────────────────}
  39.  
  40. Procedure VAssignToMenu(      Var F              : Text;
  41.                                   Menu           : Pointer      );
  42.  
  43. Function  VATMGetCurLine(     Var F              : Text         ) : INTEGER;
  44.  
  45.  
  46. {────────────────────────────────────────────────────────────────────────────}
  47.  
  48.  
  49. ──────────────────────────────────────────────────────────────────────────────
  50.  
  51.  
  52. [FUNCTION]
  53.  
  54. Function VATMNullRoutine(     Var F              : TEXTREC      ):INTEGER;
  55.  
  56. [PARAMETERS]
  57.  
  58. F           VAR TextFile Record Handle
  59.  
  60. [RETURNS]
  61.  
  62. [DESCRIPTION]
  63.  
  64. [SEE-ALSO]
  65.  
  66. [EXAMPLE]
  67.  
  68.  
  69. ──────────────────────────────────────────────────────────────────────────────
  70.  
  71.  
  72. [FUNCTION]
  73.  
  74. Function VATMInOutRoutine( var F : TEXTREC ) : INTEGER; Far;
  75.  
  76. [PARAMETERS]
  77.  
  78. F           VAR TextFile Handle Record
  79.  
  80. [RETURNS]
  81.  
  82. [DESCRIPTION]
  83.  
  84. [SEE-ALSO]
  85.  
  86. [EXAMPLE]
  87.  
  88.  
  89. ──────────────────────────────────────────────────────────────────────────────
  90.  
  91.  
  92. [FUNCTION]
  93.  
  94. Function VATMCloseRoutine(    Var F              : TEXTREC      ):INTEGER;
  95.  
  96. [PARAMETERS]
  97.  
  98. F           VAR TextFile Record Handle
  99.  
  100. [RETURNS]
  101.  
  102. [DESCRIPTION]
  103.  
  104. [SEE-ALSO]
  105.  
  106. [EXAMPLE]
  107.  
  108.  
  109. ──────────────────────────────────────────────────────────────────────────────
  110.  
  111.  
  112. [FUNCTION]
  113.  
  114. Procedure VAssignToMenu(      Var F              : Text;
  115.                                   Menu           : POINTER      );
  116.  
  117. [PARAMETERS]
  118.  
  119. F           VAR Text File Handle to Assign to Menu
  120. Menu        Pointer to Menu Data
  121.  
  122. [RETURNS]
  123.  
  124. (None)
  125.  
  126. [DESCRIPTION]
  127.  
  128. Assigns the Text File Device Driver (TFDD) Handle "F" to a menu.
  129. Subseqent Write operations to F will fill in the assigned menu.
  130.  
  131.   F                   Turbo Pascal TFDD Handle.
  132.   Menu                Pointer to a menu (array of ST80s)
  133.  
  134. [SEE-ALSO]
  135.  
  136. [EXAMPLE]
  137.  
  138.  
  139. ──────────────────────────────────────────────────────────────────────────────
  140.  
  141.  
  142. [FUNCTION]
  143.  
  144. Function  VATMGetCurLine(     Var F              : Text         ) : INTEGER;
  145.  
  146. [PARAMETERS]
  147.  
  148. F           VAR Text File Handle (previously assigned to a menu)
  149.  
  150. [RETURNS]
  151.  
  152. Current Line number in Assigned Menu
  153.  
  154. [DESCRIPTION]
  155.  
  156. The Current Number of Lines in the Menu Assigned to the Text File.
  157.  
  158. VATMGetCurLine returns the current number of lines in the menu
  159. assigned to "F".
  160.  
  161.  F                   Turbo Pascal TFDD Handle that has
  162.                      previously been assigned to a menu.
  163.  
  164. [SEE-ALSO]
  165.  
  166. [EXAMPLE]
  167.  
  168.  
  169. ──────────────────────────────────────────────────────────────────────────────
  170.  
  171.  
  172. [FUNCTION]
  173.  
  174. Procedure InitATMInfoList;
  175.  
  176. [PARAMETERS]
  177.  
  178. (None)
  179.  
  180. [RETURNS]
  181.  
  182. (None)
  183.  
  184. [DESCRIPTION]
  185.  
  186. [SEE-ALSO]
  187.  
  188. [EXAMPLE]
  189.  
  190.