按键精灵 如何一个键轮回实现两个子程序

Rem aaa
key = WaitKey()
If key = 65 Then
KeyDown "F6", 1
Delay 350
KeyDown "F7", 1
Delay 350
KeyDown "F5", 1
Delay 350
KeyDown "F8", 1
Delay 350
KeyDown "F2", 1
End If
key1 = WaitKey()
If key1 = 65 Then
KeyDown "F1", 1
Delay 350
KeyDown "F3", 1
Delay 350
KeyDown "扮察悔厅正F4", 1
Delay 350
KeyDown "F8", 1
Delay 350
KeyDown "没银F5", 1
End If
Goto aaa

Key1=0
Rem 开始
key = WaitKey()
If key = 65 Then
if key1=0 Then

Call 子程序1()
key1=1
else
Call 子程序2()
key1=0
End if
End if
goto 开始

sub 子程序1()
KeyDown "F6", 1
Delay 350
KeyDown "F7", 1
Delay 350
KeyDown "隐嫌橘F5"者饥, 1
Delay 350
KeyDown "F8", 1
Delay 350
KeyDown "F2", 1
End Sub

sub 子灶团程序2()
KeyDown "F1", 1
Delay 350
KeyDown "F3", 1
Delay 350
KeyDown "F4", 1
Delay 350
KeyDown "F8", 1
Delay 350
KeyDown "F5", 1
End Sub