supermario/base/SuperMarioProj.1994-02-09/Internal/Pascal/TerminalsPriv.p

56 lines
958 B
OpenEdge ABL
Raw Permalink Normal View History

2019-06-29 15:17:50 +00:00
{
File: TerminalsPriv.p
Contains: xxx put contents here xxx
Written by: xxx put writers here xxx
Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
Change History (most recent first):
<1> 3/14/90 BBH first checked in
To Do:
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT TerminalsPriv;
INTERFACE
{$ENDC}
{$IFC UNDEFINED TerminalsPriv}
{$SETC TerminalsPriv := 1}
{$I+}
{$SETC TerminalsPrivIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED Terminals}
{$I Terminals.p}
{$ENDC}
{$SETC UsingIncludes := TerminalsPrivIncludes}
TYPE
LineDataBlock = RECORD
dataPtr : Ptr;
dataSize : LONGINT;
attrPtr : Ptr;
attrSize : LONGINT;
reserved : LONGINT;
END;
PROCEDURE TMPeekLine(hTerm: TermHandle; lineNo: INTEGER;
VAR theLineData: LineDataBlock);
{$ENDC} { TerminalsPriv }
{$IFC NOT UsingIncludes}
END.
{$ENDC}