Screen Open 0,320,256,32,Lowres : Flash Off : Curs Off : Cls 0
Unpack 6 To 0
Rem Get Sprite Palette 
Double Buffer : Autoback 0
Rem Hot Spot 1,$11 
X#=110 : Y#=143
Rem 'Exec "run play16 ram:ghost.iffc filter off hifi"' 
ALLOW1=1
ALLOW2=1
ALLOW3=1
ALLOW4=1
Do 
D=Joy(1)
X=X#
Y=Y#
If Y#>155 Then Y#=154.9
If Y#<15 Then Y#=14.9
If X#<52 Then X#=51.9
If X#>276 Then X#=275.9
If D=1 and ALLOW1=1 Then Y#=Y#-0.54
If D=2 and ALLOW2=1 Then Y#=Y#+0.54
If D=4 and ALLOW3=1 Then X#=X#-0.54
If D=8 and ALLOW4=1 Then X#=X#+0.54
Bob 1,X#,Y#,1 : Wait Vbl 

Loop