home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
modula2
/
compiler
/
fst_mod
/
source
/
windtest.mod
< prev
next >
Wrap
Text File
|
1992-07-02
|
958b
|
30 lines
MODULE Test;
FROM Screen IMPORT GetPosition, GetChar;
FROM Windows IMPORT Window, MakeWindow, PutWindow, Clw, WWriteCard, WWriteLn,
RemoveWindow, ScrollUp, ScrollDown;
FROM Text IMPORT Cls, Color, SetCursor, WriteString, GetKey;
VAR w:Window;
c,x:CHAR;
h,v,f,b:CARDINAL;
BEGIN
Color(14,3);
Cls;
SetCursor(5,0);
WriteString('This is a test of screen saving');
MakeWindow(3,3,10,20,14,1,'Test window',w);
PutWindow(w);
GetPosition(v,h);
WWriteCard(v,3); WWriteCard(h,3); WWriteLn;
GetChar(c,f,b);
WWriteCard(f,3); WWriteCard(b,3); WWriteLn;
GetKey(c,x); (* wait for a key to be pressed *)
ScrollDown(3);
GetKey(c,x); (* wait for a key to be pressed *)
ScrollUp(3);
GetKey(c,x); (* wait for a key to be pressed *)
RemoveWindow(w);
GetKey(c,x); (* wait for a key to be pressed *)
END Test.