<![CDATA[
<BODY TEXT="#000000" BGCOLOR="#C0C0C0" LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000">
<CENTER><FONT SIZE=+3>Some Turbo-Pascal Units</FONT></CENTER>
<CENTER>
<HR WIDTH="100%"></CENTER>
<A HREF="#1">VhsTools.tpu</A>
<BR><A HREF="#2">VhsEvnt.tpu</A>
<BR><A HREF="#3">VhsRead.tpu</A>
<BR><A HREF="#4">VhsWind.tpu</A>
<BR><A HREF="#5">VhsMaus.tpu</A>
<BR><A HREF="#6">VhsVideo.tpu</A>
<BR><A HREF="#7">Vhsdsort.tpu</A>
<BR><A HREF="#8">Startup.tpu</A>
<P>All these Units are packed into 1 <A HREF="units.zip">zip File</A>
<P>
<HR WIDTH="100%">
<CENTER>Discription</CENTER>
<CENTER>
<HR WIDTH="100%"></CENTER>
<A NAME="1"></A>VhsTools.tpu :
<BR>FUNCTION UpCase (c:Char):Char;
<BR>FUNCTION ToUpper (s:String):String;
<BR>FUNCTION IStr (Zahl:LongInt; Stellen:Byte):String80;
<BR>PROCEDURE WriteAt (xp,yp:Byte;CONST s:String);
<BR>PROCEDURE Rahmen1 (xp,yp,xw,yw:Byte);
<BR>PROCEDURE Rahmen2 (xp,yp,xw,yw:Byte);
<BR>PROCEDURE Rahmen (xp,yp,xw,yw:Byte; Typ,RahCol,TextCol:Byte;
Header:String80);
<BR>FUNCTION FehlerText :String;
<BR>PROCEDURE ShowFehler (s:String);
<BR>PROCEDURE CursorOn;
<BR>PROCEDURE CursorBlk;
<BR>PROCEDURE CursorOff;
<BR>FUNCTION GetVideoMode : Byte;
<BR>PROCEDURE VBlinkenOn;
<BR>PROCEDURE VBlinkenOff;
<BR>PROCEDURE PrnINIT (PPort:Word);
<BR>FUNCTION PrnOK (PPort:Word) : Boolean;
<BR>FUNCTION GetTicks : LongInt;
<BR>FUNCTION GetKBFlags : Byte;
<BR>FUNCTION GetScanCode : Word;
<BR>
<HR WIDTH="100%">
<BR><A NAME="2"></A>VhsEvnt.tpu
<BR>PROCEDURE GetEvent; { var e changes}
<P>TYPE EventRecord = RECORD
<BR> Art,
{ Eventart
}
<BR> Taste,KBFlags,
{ gedrckte Taste, Status
}
<BR> Button,Spalte,Zeile,
{ MausStatus und Position
}
<BR> Option :Word;
{ Options-ID bei Menauswahl }
<BR> Ticks :LongInt;
{ Ticks zum Zeitpunkt des Ereig. }
<BR> DClick :Boolean;
{ Doppelklick-Flag fr linke Taste }
<BR> END;
<P>VAR e : EventRecord;
<P>{------ globale Tastaturcode-Konstanten -------------------------------------}
<BR>CONST
<BR> { Fkt.tasten
mit Shift: mit Ctrl:
mit Alt: }
<BR> ce_F1 =$100+ 59; ces_F1 =$100+ 84; cec_F1
=$100+ 94; cea_F1 =$100+104;
<BR> ce_F2 =$100+ 60; ces_F2 =$100+ 85; cec_F2
=$100+ 95; cea_F2 =$100+105;
<BR> ce_F3 =$100+ 61; ces_F3 =$100+ 86; cec_F3
=$100+ 96; cea_F3 =$100+106;
<BR> ce_F4 =$100+ 62; ces_F4 =$100+ 87; cec_F4
=$100+ 97; cea_F4 =$100+107;
<BR> ce_F5 =$100+ 63; ces_F5 =$100+ 88; cec_F5
=$100+ 98; cea_F5 =$100+108;
<BR> ce_F6 =$100+ 64; ces_F6 =$100+ 89; cec_F6
=$100+ 99; cea_F6 =$100+109;
<BR> ce_F7 =$100+ 65; ces_F7 =$100+ 90; cec_F7
=$100+100; cea_F7 =$100+110;
<BR> ce_F8 =$100+ 66; ces_F8 =$100+ 91; cec_F8
=$100+101; cea_F8 =$100+111;
<BR> ce_F9 =$100+ 67; ces_F9 =$100+ 92; cec_F9
=$100+102; cea_F9 =$100+112;
<BR> ce_F10=$100+ 68; ces_F10=$100+ 93; cec_F10=$100+103;
cea_F10=$100+113;
<P> { Steuerungs- und Editiertasten }
<BR> ce_Tab=
9; ces_Tab=$100+ 15;
<BR> ce_ESC=
27;
<BR> ce_Ret=
13;
cec_Ret= 10;
<BR> ce_Del=Byte(^G);
<BR> ce_Ins=Byte(^V);
<BR> ce_BSp=Byte(^H);
<BR> ce_CDn=Byte(^X);
<BR> ce_CUp=Byte(^E);
<BR> ce_CLe=Byte(^S);
cec_CLe=Byte(^A);
<BR> ce_CRi=Byte(^D);
cec_CRi=Byte(^F);
<BR> ce_PDn=Byte(^C);
cec_PDn=$100+118;
<BR> ce_PUp=Byte(^R);
cec_PUp=$100+132;
<BR> ce_Hom=$100+ 71;
cec_Hom=$100+119;
<BR> ce_End=$100+ 79;
cec_End=$100+117;
<P> { Buchstaben mit Alt }
<BR> cea_A =$100+ 30; cea_B =$100+ 48; cea_C
=$100+ 46; cea_D =$100+ 32;
<BR> cea_E =$100+ 18; cea_F =$100+ 33; cea_G
=$100+ 34; cea_H =$100+ 35;
<BR> cea_I =$100+ 23; cea_J =$100+ 36; cea_K
=$100+ 37; cea_L =$100+ 38;
<BR> cea_M =$100+ 50; cea_N =$100+ 49; cea_O
=$100+ 24; cea_P =$100+ 25;
<BR> cea_Q =$100+ 16; cea_R =$100+ 19; cea_S
=$100+ 31; cea_T =$100+ 20;
<BR> cea_U =$100+ 22; cea_V =$100+ 47; cea_W
=$100+ 17; cea_X =$100+ 45;
<BR> cea_Y =$100+ 21; cea_Z =$100+ 44;
<BR>PROCEDURE HotKScan;
<BR>PROCEDURE InitBox (KHandle:Word;
xp,yp,xw,yw:Byte);
<BR>PROCEDURE InitKey (KHandle,KTCode:Word);
<BR>PROCEDURE InitKeyBox (KHandle,KTCode:Word; xp,yp,xw,yw:Byte);
<BR>PROCEDURE HotKDelete (n:Integer);
<BR>PROCEDURE HotKDelHandle (KHandle:Word);
<BR>
<HR WIDTH="100%">
<BR><A NAME="3"></A>VhsRead.tpu
<BR>PROCEDURE Beep;
<BR>PROCEDURE ReadStr (VAR SPara; L:Integer);
<BR>PROCEDURE ReadCStr (VAR SPara; L:Integer; Farbe:Byte);
<BR>PROCEDURE ReadXYCStr (VAR SPara; L:Integer; x,y,Farbe:Byte);
<BR>
<HR WIDTH="100%">
<BR><A NAME="4"></A>VhsWind.tpu
<BR>PROCEDURE Wind_Open (xp,yp,xw,yw:Byte);
<BR>PROCEDURE Wind_Frame (xp,yp,xw,yw,Mode,ColRah,ColTxt:Byte; Header:String80);
<BR>PROCEDURE Wind_Close;
<BR>PROCEDURE Wind_Select(wNr:Byte);
<BR>PROCEDURE Wind_Sel2Last(wNr:Byte);
<BR>
<HR WIDTH="100%">
<BR><A NAME="5"></A>VhsMaus.tpu
<BR>PROCEDURE InitMausTool;
<BR>PROCEDURE MausCurOn;
<BR>PROCEDURE MausCurOff;
<BR>PROCEDURE MausGetPos (VAR xp,yp,BStatus:Word);
<BR>PROCEDURE MausSetPos (xp,yp:Word);
<BR>PROCEDURE MausSetSpeed (sx,sy:Word);
<BR>PROCEDURE MausXRange (xp,xw:Word);
<BR>PROCEDURE MausYRange (yp,yw:Word);
<BR>PROCEDURE MausGCursor (xOff,yOff:Word; CursorDaten:Pointer);
<BR>PROCEDURE MausTCursor (Wahl,BildMaske,CursMaske:Word);
<BR>PROCEDURE MausLoch (xp,yp,xw,yw:Word);
<BR>PROCEDURE MausOld (OldStatus:Byte);
<BR>PROCEDURE MausWindow (xp,yp,xw,yw:Word);
<BR>
<HR WIDTH="100%">
<BR><A NAME="6"></A>VhsVideo.tpu
<BR>PROCEDURE VSetc(x,y:Byte; c:Char);
<BR>PROCEDURE VSetFrame(xp,yp,xw,yw:Byte; Header:String80);
<BR>PROCEDURE VSetwa(xp,yp,xw,yw,ColTxt:Byte);
<BR>PROCEDURE VSet1stc(xp,yp,xw,ColTxt,Col1st:Byte);
<BR>
<HR WIDTH="100%">
<BR><A NAME="7"></A>Vhsdsort.tpu
<BR>FUNCTION DINCompare(Str1,Str2:String; Position:Byte; IMode:Boolean):Integer;
<P>IMPLEMENTATION
<P>{----------------------------------------------------------------------------}
<BR> FUNCTION DINCompare (Str1,Str2:String; Position:Byte; IMode:Boolean):Integer;
<BR> ASSEMBLER;
<BR>{ - vergleicht die Strings (ab der angegeb. Position) nach DIN-Regeln.
}
<BR>{
}
<BR>{ Umlaute werden eingeordnet
(ä wird z.B wie a behandelt).
}
<BR>{ Unterscheiden sich die
Strings nur durch Umlaute, dann wird der }
<BR>{ String mit dem Umlaut als
"größer" betrachtet.
}
<BR>{ Das "ß" wird als
"ss" behandelt.
}
<BR>{ Achtung! Die virtuelle
Lnge darf dabei nicht über 255 ansteigen! }
<BR>{
}
<BR>{ Falls "IMode" = True wird zwischen
Klein- und Großschreibung nicht }
<BR>{ unterschieden.
}
<BR>{ Das Funktionsergebnis ist bei
Gleichheit 0, -1 wenn Str1 < Str2 }
<BR>{ und 1 wenn Str1 > Str2.
<BR>{----------------------------------------------------------------------------}
<BR>
<HR WIDTH="100%">
<BR><A NAME="8"></A>Startup.tpu
<BR>procedure BlackScreen;
<BR>procedure Intro(n1,n2,game : string);
<BR>procedure FadeIn(g : integer); {not too fast}
<BR>procedure FadeOut(g : integer); {not too fast}
<BR>procedure SetMCGA;
<BR>procedure ShutDown;
<BR>procedure StorePal;
<BR>procedure Cls (Col : Byte; where : word);
<BR>
<HR WIDTH="100%">
<BR>Back to my <A HREF="indexg.html">Homepage</A>.
</BODY>
</HTML>
]]>