| PCATS 16bpp runner for MPEG
| Chris Marshall
| 16 April 1993

Run <Obey$Dir>.StoreMode

| Set wimp mode to 120, change to 122 if desired
WimpMode 120

| If you're PCATS card has a turbo board, and flakes
| out at 36MHz, uncomment and alter the following line
| to wind the clock up a bit. You need a 40MHz crystal
| ideally
| Clock 4

| Set palette to red scale
PalSet 1

| Thunderbirds are go!
Run <MPEG$Dir>.mpeg_play %*0

| Go back to origial mode
| (Alias$ used because WimpMode doesn't expect to
| receive an expression as a parameter)
SetEval Alias$pcatstmode "WimpMode <Current$Mode>"
pcatstmode
Unset pcatstmode

| Reset palette to default. 
| Tough luck if your old one was different
PalSet 0

| Switch PCATS card out of 16bpp DAC mode. This should
| happen on a mode change but some cards are dodgy
NormalVideo

| Dispense with "Press SPACE etc etc"
Desktop
