IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$
StoreCSD
DIR <Obey$Dir>
HideCommandWindow
SpriteFree 32
RMAFree 200
ScreenSize 160

WimpSlot -min 640k -max 640k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
ECHO <22><12>
| Fix bugs in sound Modules
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE ALIENFIRE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE ALIENFIRE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 ALIENFIRE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE ALIENFIRE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 ALIENFIRE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 ALIENFIRE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE BATTLECRY
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE BATTLECRY
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 BATTLECRY
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE BATTLECRY
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 BATTLECRY
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 BATTLECRY
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE EXPLODE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE EXPLODE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 EXPLODE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE EXPLODE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 EXPLODE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 EXPLODE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE FANFARE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE FANFARE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 FANFARE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE FANFARE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 FANFARE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 FANFARE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE KEYPRESS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE KEYPRESS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 KEYPRESS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE KEYPRESS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 KEYPRESS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 KEYPRESS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE PHASER
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE PHASER
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 PHASER
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE PHASER
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 PHASER
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 PHASER
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE PHOTON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE PHOTON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 PHOTON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE PHOTON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 PHOTON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 PHOTON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE TELEPORT1
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE TELEPORT1
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 TELEPORT1
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE TELEPORT1
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 TELEPORT1
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 TELEPORT1
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1C0 E92D4000 E92D5FFE A
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 258 E8FD8000 E8BD9FFE A
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 26C E500E004 E501E004 A
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 298 E8FD4000 E8BD5FFE A
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 A
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 A

SET StarTrader$Resources <Obey$Dir>.Resources.StarTrader
SET StarTrader$Data <Obey$Dir>.StarTrader
RMLOAD <StarTrader$Resources>.Speech.ExplodeM
RMLOAD <StarTrader$Resources>.Speech.BattleCryM
RMLOAD <StarTrader$Resources>.Speech.AlienFireM
RMLOAD <StarTrader$Resources>.Speech.PhotonM
RMLOAD <StarTrader$Resources>.Speech.PhaserM
RMLOAD <StarTrader$Resources>.Speech.FanfareM
RMLOAD <StarTrader$Resources>.Speech.KeyPressM
RMLOAD <StarTrader$Resources>.Speech.Teleport1M
RMLOAD <StarTrader$Resources>.Speech.vroomM

| Fix Page Zero access bug and delays
KEY 0 8240|M39930DEFPROCw(Z%):Z%=TIME+(Z%/333):REPEATUNTILTIME>Z%:ENDPROC|M2850VDU4:PROCw(3000)|M19460PROCw(8000)|M22700PROCw(2500)|M26020PROCw(800)|M26350PROCw(350)|M26370PROCw(350)|M
KEY 1 28560PROCw(1000):COLOUR11|M29010PROCw(500)|M29090IF TE<0.01 THEN PRINT"ENERGY BANKS":PRINT"DEPLETED!":COLOUR11:PROCw(50000):CLS:ENDPROC|M30670IF NUMPT=0 THEN PRINT"NO PHOTON":PRINT"TORPEDOES":PROCw(8000):ENDPROC|M
KEY 2 30680IF PTD=1 THEN PRINT"LAUNCHER":PRINT"DESTOYED!":PROCw(8000):ENDPROC|M32730IF PSD=1 THEN PRINT"PHASERS":PRINT"INOPERATIVE!":PROCw(8000):ENDPROC|M32740IF PE=0 THEN PRINT"NO POWER TO":PRINT"PHASERS!":PROCw(8000):ENDPROC|M
KEY 3 32750IF EPS=0 THEN PRINT"NO POWER":PRINT"SETTING!":PROCw(8000):ENDPROC|M33200PROCw(2000)|M33230PROCw(2000)|M33260PROCw(2000)|M33290PROCw(2000)|M33320PROCw(2000)|M33340PROCw(2000)|M28740PROCw(1000)|M6395PROCw(333)|M6485PROCw(10000)|M
KEY 4 34140IF TE-0.01<0 THEN CLS:COLOUR11:PRINT"NO POWER TO":PRINT"SCANNERS!":PROCw(8000):ENDPROC|M34180PROCw(1000)|M34420PROCw(1000)|M35140 CLS:PRINT"YOU FLEE THE":PRINT"COMBAT ZONE":PROCw(3000)|M3575PROCw(20000)|M
KEY 5 35450IF XXXX<964 OR XXXX>1160 THEN PROCREFORMSCREEN:CLS:PRINT"ENEMY SHIP":PRINT"HAS FLED!":PROCw(8000):ETYPVES(T)=0:GOTO35480|M37040PROCw(10000)|M3370QUIT|M2515PROCw(5000)|M
KEY 6 35460IF YYYY<780 OR YYYY>972 THEN PROCREFORMSCREEN:CLS:PRINT"ENEMY SHIP":PRINT"HAS FLED!":PROCw(8000):ETYPVES(T)=0:GOTO35480|M36380IF FS<=0 THEN FS=0:CLS:PRINT"FRONT SHIELD":PRINT"COLLAPSED!":PROCw(10000)|M17445PROCw(30000)|M20555PROCw(30000)|M
KEY 7 36430IF SS<=0 THEN SS=0:CLS:PRINT"STARBOARD":PRINT"SHIELD":PRINT"COLLAPSED!":PROCw(10000)|M36480IF AS<=0 THEN AS=0:CLS:PRINT"AFT SHIELD":PRINT"COLLAPSED!":PROCw(10000)|M19145PROCw(30000)|M
KEY 8 36530IF PS<=0 THEN PS=0:CLS:PRINT"PORT SHIELD":PRINT"COLLAPSED!":PROCw(10000)|M36610CLS:COLOUR11:PRINT"PHASERS":PRINT"DAMAGED":PROCw(10000)|M36680  CLS:COLOUR11:PRINT"PHOTON":PRINT"LAUNCHERS":PRINT"DAMAGED":PROCw(10000)|M
KEY 9 36740CLS:COLOUR11:PRINT"HULL":PRINT"DAMAGED":PROCw(10000)|M36810CLS:COLOUR11:PRINT"HOLD":PRINT"DAMAGED":PRINT"CARGO LOST!":PROCw(10000)|M22435PROCw(30000)|M20015PROCw(30000)|M17905PROCw(30000)|M14585PROCw(500)|M*unset key$*|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
FX 138,0,129
FX 138,0,130
FX 138,0,131
FX 138,0,132
FX 138,0,133
FX 138,0,134
FX 138,0,135
FX 138,0,136
FX 138,0,137
BASIC -load Resources.StarTrader.StarTrader
FX 20
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
RestoreCSD