$crystal = 18432000
$baud = 115200
$regfile = "m32def.dat"

Config Timer1 = Pwm , Prescale = 1 , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Config Serialin = Buffered , Size = 10
Enable Interrupts

Dim Tmp As String * 8
Dim I As Integer

Print "SWB Stick Tester 1.0"


Do
For I = 1 To 300
Pwm1a = I
Waitms 5
Next

For I = 300 To 1 Step -1
Pwm1a = I
Waitms 10
Next

If Ischarwaiting() = 1 Then
Input "com test: " , Tmp
Print ">> " ; Tmp
End If

Loop