Category : Modula II Source Code
Archive   : VWINDOW2.ZIP
Filename : VWINDOWS.DEF

 
Output of file : VWINDOWS.DEF contained in archive : VWINDOW2.ZIP
DEFINITION MODULE VWindows;
(*---------------------------------------------------------------------------
Copyright *c* 1986 by Donald Dumitru.
All rights reserved.
Permission is hereby given by the author for inclusion of this module
in other applications without any royalty requirement. Further, this
source code may be distributed free of royalty, so long as this notice
is not removed.
---------------------------------------------------------------------------*)
(*---- VirtualWindows ------------------------------------------------------
| |
| See VWindows.DOC for a description of this module. |
| |
| Version 1.0 Donald Dumitru 21 Mar 86 |
| Version 1.1 Woody Aichner 13 May 88 FST Version |
--------------------------------------------------------------------------*)

EXPORT QUALIFIED Blank, Normal, Reverse, Bright, Underline, Blink, MinX, MaxX,
MinY, MaxY, Color, WinHandle, XPos, YPos, Write, WriteString,
WriteLn, ClrEol, ClrScr, GotoXY, WhereX, WhereY, SetColor,
GetColor, OpenWindow, CloseWindow, GetX1, GetX2, GetY1,
GetY2, IsFore, ToFront, TopWin, Back, Move;

CONST
Blank = 0;
Normal = 16;
Reverse = 112;
Bright = 8;
Underline = 1;
Blink = 128;
MinX = 0;
MaxX = 79;
MinY = 0;
MaxY = 24;

TYPE
WinHandle;
Color = [0..255];
XPos = [MinX..MaxX];
YPos = [MinY..MaxY];

PROCEDURE Write(win : WinHandle; c : CHAR);

PROCEDURE WriteString(win : WinHandle; s : ARRAY OF CHAR);

PROCEDURE WriteLn(win : WinHandle);

PROCEDURE ClrEol(win : WinHandle);

PROCEDURE ClrScr(win : WinHandle);

PROCEDURE GotoXY(win : WinHandle; x : XPos; y : YPos);

PROCEDURE WhereX(win : WinHandle) : XPos;

PROCEDURE WhereY(win : WinHandle) : YPos;

PROCEDURE SetColor(win : WinHandle; attr : Color);

PROCEDURE GetColor(win : WinHandle) : Color;

PROCEDURE OpenWindow(X1, X2 : XPos; Y1, Y2 : YPos; attr : Color; border : BOOLEAN) : WinHandle;

PROCEDURE CloseWindow(VAR win : WinHandle);

PROCEDURE GetX1(win : WinHandle) : XPos;

PROCEDURE GetX2(win : WinHandle) : XPos;

PROCEDURE GetY1(win : WinHandle) : YPos;

PROCEDURE GetY2(win : WinHandle) : YPos;

PROCEDURE IsFore(win : WinHandle) : BOOLEAN;

PROCEDURE ToFront(win : WinHandle);

PROCEDURE TopWin() : WinHandle;

PROCEDURE Back() : WinHandle;

PROCEDURE Move(win : WinHandle; XOff, YOff : INTEGER);

END VWindows.


  3 Responses to “Category : Modula II Source Code
Archive   : VWINDOW2.ZIP
Filename : VWINDOWS.DEF

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/