home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pascal
/
vdl020d.zip
/
VATM.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
4KB
|
190 lines
{
════════════════════════════════════════════════════════════════════════════
Visionix "Text File Assign" to Memory Unit (VATM)
Copyright 1991,92,93 Visionix
ALL RIGHTS RESERVED
────────────────────────────────────────────────────────────────────────────
Revision history in reverse chronological order:
Initials Date Comment
──────── ──────── ────────────────────────────────────────────────────────
lpg 03/15/93 Added Source Documentation
mep 02/11/93 Cleaned up code for beta release
jrt 02/08/93 Sync with beta 0.12 release
jrt 12/07/92 Sync with beta 0.11 release
jrt 11/21/92 Sync with beta 0.08
jrt 09/01/92 First logged revision.
════════════════════════════════════════════════════════════════════════════
}
Unit VATM;
Uses
VTypes,
DOS;
{────────────────────────────────────────────────────────────────────────────}
Procedure VAssignToMenu( Var F : Text;
Menu : Pointer );
Function VATMGetCurLine( Var F : Text ) : INTEGER;
{────────────────────────────────────────────────────────────────────────────}
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function VATMNullRoutine( Var F : TEXTREC ):INTEGER;
[PARAMETERS]
F VAR TextFile Record Handle
[RETURNS]
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function VATMInOutRoutine( var F : TEXTREC ) : INTEGER; Far;
[PARAMETERS]
F VAR TextFile Handle Record
[RETURNS]
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function VATMCloseRoutine( Var F : TEXTREC ):INTEGER;
[PARAMETERS]
F VAR TextFile Record Handle
[RETURNS]
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VAssignToMenu( Var F : Text;
Menu : POINTER );
[PARAMETERS]
F VAR Text File Handle to Assign to Menu
Menu Pointer to Menu Data
[RETURNS]
(None)
[DESCRIPTION]
Assigns the Text File Device Driver (TFDD) Handle "F" to a menu.
Subseqent Write operations to F will fill in the assigned menu.
F Turbo Pascal TFDD Handle.
Menu Pointer to a menu (array of ST80s)
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function VATMGetCurLine( Var F : Text ) : INTEGER;
[PARAMETERS]
F VAR Text File Handle (previously assigned to a menu)
[RETURNS]
Current Line number in Assigned Menu
[DESCRIPTION]
The Current Number of Lines in the Menu Assigned to the Text File.
VATMGetCurLine returns the current number of lines in the menu
assigned to "F".
F Turbo Pascal TFDD Handle that has
previously been assigned to a menu.
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure InitATMInfoList;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
[SEE-ALSO]
[EXAMPLE]