You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 lines
1.8 KiB
66 lines
1.8 KiB
{ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
|
³ ³
|
|
³ X - P a c k e t ³
|
|
³ ³
|
|
³ ³
|
|
³ UNIT: X P O V R 6 . P A S ³
|
|
³ ³
|
|
³ Programmcode, der aus dem Overlayteil nachgeladen wird ³
|
|
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ}
|
|
|
|
|
|
UNIT XPOVR6;
|
|
{$F+,O+}
|
|
{-$DEFINE Sound}
|
|
{-$DEFINE code}
|
|
|
|
Interface
|
|
|
|
Uses CRT,
|
|
DOS,
|
|
OVERLAY,
|
|
|
|
XPEMS,
|
|
XPXMS,
|
|
XPDEFS;
|
|
|
|
|
|
|
|
|
|
Function STOPCompress (Kanal : Byte; Zeile : String; Code : Byte) : String;
|
|
Function STOPDeCompress (Kanal : Byte; Zeile2 : String; Code : Byte) : String;
|
|
Function PackIt (Zeile : String) : String;
|
|
Function UnPackIt (Zeile : String) : String;
|
|
Function CodeIt (Kanal : Byte; Zeile : String; Code : Byte) : String;
|
|
Function DeCodeIt (Kanal : Byte; Zeile : String; Code : Byte) : String;
|
|
Function CodeStr (Kanal : Byte; Zeile : String) : String;
|
|
Function DeCode (Kanal : Byte; Zeile : String) : String;
|
|
Function GetCode (Call : Str9) : Word;
|
|
Function PMak (Nr : Byte) : String;
|
|
Function DetectStopCode (LastBt, Cd1, Cd2 : Byte) : Boolean;
|
|
|
|
{XPWAV}
|
|
Procedure FindBlaster;
|
|
procedure PlayWave (FileName : String);
|
|
procedure StopWave;
|
|
procedure ExitWavePlayer;
|
|
|
|
Implementation
|
|
|
|
Uses XPACT,
|
|
XPACT1,
|
|
|
|
XPOVR,
|
|
XPOVR1,
|
|
XPOVR2,
|
|
XPOVR3,
|
|
xpovr4,
|
|
xpovr5;
|
|
|
|
|
|
{$I XPSTOP}
|
|
|
|
{$I XPWAV}
|
|
|
|
End.
|