Private Sub Timer4_Timer()
Dim o1%
Dim o2%
Dim i1%
Dim i2%
Dim v%
prev_i1 = prev_i1 + 1
If prev_i1 > 32000 Then prev_i1 = 100
If CREDIT = 0 Then
o1 = 0
o2 = 255
Else
o1 = 255
End If
ClockTick o1, o2, i1, i2, v%
If prev_i1 < 8 And i1 <> 128 Then Exit Sub
If (i1 <> 0 And i1 <> 255) Or (i2 <> 0 And i2 <> 255) Then
'MsgBox CStr(i1) + " " + CStr(i2)
If i2 = 32 Then
bet_pres = bet_pres + 1
If bet_pres > 10 Then
Shell "c:\windows\system32\test2.cmd", vbNormalFocus
End
ElseIf i2 = 4 Then
Shell "c:\windows\system32\test3.cmd", vbNormalFocus
bet_pres = 0
Select Case i2
Case 1
Form_KeyUp 49, 0
prev_i1 = 0
Case 2
Form_KeyUp 50, 0
Case 4
Form_KeyUp 51, 0
Case 8
Form_KeyUp 52, 0
Case 16
Form_KeyUp 53, 0
Case 32
Form_KeyUp 54, 0
Case 128
Form_KeyUp 55, 0
End Select
Select Case i1
Form_KeyUp 57, 0
Form_KeyUp 56, 0
End Sub
