66 lines
1.8 KiB
Plaintext
66 lines
1.8 KiB
Plaintext
|
{<7B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ
|
|||
|
|
<20> <20>
|
|||
|
|
<20> X - P a c k e t <20>
|
|||
|
|
<20> <20>
|
|||
|
|
<20> <20>
|
|||
|
|
<20> UNIT: X P O V R 6 . P A S <20>
|
|||
|
|
<20> <20>
|
|||
|
|
<20> Programmcode, der aus dem Overlayteil nachgeladen wird <20>
|
|||
|
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>}
|
|||
|
|
|
|||
|
|
|
|||
|
|
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.
|