All pastes #973671 Raw Edit

Anonymous

public text v1 · immutable
·published 2008-04-06 07:00 UTC
rendered paste body
Private Sub Command1_Click()
If Timer1 = Enabled Then
Timer1 = disabled
Else
Timer1 = Enabled
End If
End Sub

Private Sub Timer1_Timer()
slot = ReadByte(&H6E30E4)
WriteByte &H6EF0D3 + 49377 * (slot - 1), 2
End Sub