IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$
StoreCSD
Dir <Obey$Dir>
HideCommandWindow
Set Alias$cha. ChannelVoice<32>
Set Alias$mou. ADFDoNothing<32>
Set Alias$shut ADFDoNothing
Set Alias$poi. Pointer<32>
Set Alias$sch. SChoose<32>
Set Alias$Alphabet ADFDoNothing<32>
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 2.0
SpriteFree 96

Set vik$dir <Obey$Dir>
ADFWriteProtect Off

WimpSlot -min 640k -max 640k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
Lib <vik$dir>.Support

| Fix speed
KEY 0 9SYS&42TOY%|M567REPEAT:SYS&42TOW%:UNTILW%>Y%+2|M574SYS&42TOY%:ENDPROC|M26f!&3448=&E51F8168:f!&3454=&E4983004:f!&3484=&E31800FC:f!&3488=&3A00013:f!&348C=&F000006|M
KEY 1 639WAIT:NEXT:FORG3=12TO1STEP-1:OSCLI"sch.unfade"+STR$G3:PLOT&ED,O1%,P1%:WAIT|MSAVE"Viking"|M*unset key$*|MCHAIN"Support.RDKeys"|F|M

ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
FX 138,0,129
| Keys        Joystick
| Z                      - Left
| X                      - Right
| Left ALT    B5 (LB)    - Jump left
| Right ALT   B6 (RB)    - Jump right
| Return      Up         - Jump
| Right Shift B1         - Throw dagger
| Backspace   B7 (Back)  - Suicide
| Space       B8 (Start) - Start game
ADFJoystickKeys J1 L=78 R=79 U=71 B5=94 B6=95 B1=88 B7=30 B8=95
BASIC -load Viking
ADFJoystickKeys
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet Alias$cha.
UnSet Alias$mou.
UnSet Alias$shut
UnSet Alias$poi.
UnSet Alias$sch.
UnSet Alias$Alphabet
RestoreCSD