KeyPress "Space", 1   
    Delay 800   
    KeyPress "Space", 1   
    Delay 800   
Else  
Goto B4   
End If  
Rem B6   
IfColor 846,98,"7BF7EF",0 Then  
    KeyPress "Space", 1   
    Delay 80   
    KeyDown "Up", 1   
    Delay 80   
    KeyUp "Right", 1   
    Delay 80   
    KeyDown "Left", 1   
    Rem B5   
    IfColor 805,102,"E7E7EF",0 Then  
    KeyUp "Up", 1   
        Delay 70   
        KeyPress "Space", 1   
        Delay 600   
Else  
    Goto B5   
End If  
Else  
Goto B6   
End If  
Rem B7   
IfColor 795,107,"7BF7DE",0 Then  
KeyPress "Space", 1   
Else  
Goto B7   
End If  
Rem B8   
IfColor 805,109,"73F7F7",0 Then  
KeyPress "Space", 1   
    Delay 80   
    KeyUp "Left", 1   
    Delay 80   
    KeyDown "Up", 1   
            Delay 100   
Else  
Goto B8   
End If  
Rem B9   
IfColor 805,102,"EFEBEF",0 Then  
    Delay 200   
    KeyUp "Up", 1   
    Delay 100   
    KeyPress "Up", 1   
Else  
Goto B9   
End If  
        Call DT()   
End If  
Else  
    KeyPress "M", 1   
    Delay 1000   
//146   
    IfColor 471,467,"29F3EF",0 Then  
        KeyPress "M", 1   
        Delay 100   
    //一号洞   
KeyDown "Left", 1   
Rem A1   
IfColor 817,142,"73F7DE",0 Then  
KeyUp "Left", 1   
Else  
    Goto A1   
End If  
Delay 100   
For 5   
KeyPress "Space", 1   
Delay 720   
Next  
KeyDown "Left", 1   
Delay 80   
KeyPress "Space", 1   
Delay 80   
KeyUp "Left", 1   
Delay 720   
For 8   
KeyDown "Right", 1   
Delay 80   
KeyPress "Space", 1   
Delay 80   
KeyUp "Right", 1   
Delay 700   
Next  
KeyDown "Right", 1   
Rem A2   
IfColor 831,100,"73F7FF",0 Then  
KeyPress "Space", 1   
    Delay 300   
    KeyUp "Right", 1   
    Delay 400   
Else  
Goto A2   
End If