{********************************************************************}
{   Turbo Pascal V.7.0 by Borland International Copyright (c) 1992   }
{                                                                    }
{       * * * Speiser`s Windows-Tool-Unit for everybody * * *        }
{                                                                    }
{            by Dipl.-Ing. Thomas Speiser Copyright 1997             }
{********************************************************************}

Program Test_Unit_Windows;

Uses Crt, Windows;

Var I: integer;
    S: String;

BEGIN

BeginWin(blue,white,normal); {Desktop wird vorbereitet mit Mode (normal, big, middle, small)}

Textbackground(red);
for I:=1 to 160 do begin
write(' '); end;

Textbackground(blue);

IAtUp(2,22,21,60,'presend by D. C. P. (Deutsche Computer Programme)'); {bewegliche Infos bloŠ nach oben}

gotoxy(1,24);
Textbackground(red);
for I:=1 to 159 do begin
write(' '); end;

Textbackground(blue);

IAtDown(2,1,24,60,'It is the new generation in programming!!!'); {bewegliche Infos bloŠ nach unten}

Textbackground(blue);

Desktop(#1); {Desktop Muster bestimmen}

IAtRight(1,2,23,30,'For Turbo Pascal Beginner` s and Profi Programmer` s'); {bewegliche Infos}

WinRec(3,3,76,23,'Hello everybody on the screen'); {Fenster mit Rechteck, Schatten und öberschrift}

TextInWin(3,3,lightred,'This is the Windows-Tool-Unit-Test!!!'); {Texte verfassen}

Textcolor(black);

StarShow(3,4); {Display mit 3D Stern}

TextInWin(3,5,yellow,'It` s OK, if you can see two windows with the text in a normal font!!!'); {Texte verfassen}

Textcolor(black);

PointShow(3,6,10,100,'Ģ'); {Display mit Punkt}

TextInWin(3,7,lightgreen,'But if you don` t see that you have an error!!!'); {Texte verfassen}

Textcolor(lightmagenta);

IAtRight(5,9,40,30,'I hope you can us it!!!'); {bewegliche Infos}

Textcolor(lightcyan);

IAtRight(5,10,40,30,'It is a great Tool!!!'); {bewegliche Infos}

IAtLeft(46,10,10,30,'It is a great Tool!!!'); {bewegliche Infos bloŠ zurĀck}

Initsyserror;
WinLine(15,10,47,''); S:=out; {Eingabe Fenster}
Donesyserror;

Win(10,13,63,15,cyan); {Fenster mit Schatten}

TextInWin(2,2,white,'by Dipl.-Ing. Thomas Speiser Software-Programmer Copyright 1997'); {Texte verfassen}

Win(5,22,70,24,magenta); {Fenster mit Schatten}

TextInWin(2,2,white,'It` s a tool for everbody who write his own Software with Pascal'); {Texte verfassen}

Wait;
end.