$regfile = "m48def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize=32



Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Up

Config Pinc.5 = Input : Sw0 Alias Pinc.5 : Portc.5 = 1

Config Portb.1 = Output                                     'OC1A pin  (Portb.1 for Atmega8) prtd.5 for atmega 16

'''''''''''''''''''''''''''' MAIN ''''''''''''''''''''''''''''''''''''
 Defbyte B

 Do

    If Sw0 = 0 Then
     Gosub Fade_on
     Else
     Gosub Fade_off
    End If

 Loop
 End


'''''''''''''''''''''''''''' END MAIN ''''''''''''''''''''''''''

 Fade_on:

    For B = 255 To 1 Step -1
     Pwm1a = B
     Waitus 1500
    Next
    Stop


 Fade_off:

    For B = 1 To 255
     Pwm1a = B
     Waitus 1500
    Next
    Stop
 

$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 64
$swstack = 16
$framesize = 64


Led Alias Portb.1 : Config Led = Output
Sw0 Alias Pinc.5 : Config Sw0 = Input : Set Portc.5

Dim Helpb As Byte

For Helpb = 0 To 30                                         'hardware test
  Toggle Led                                                'LED should blink
  Waitms 50
Next
Helpb = 0

Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare_a_pwm = Clear_up

Do

 If Sw0 = 0 Then
  If Helpb < 255 Then
   Incr Helpb
   Pwm1a = Helpb
  End If
 Else
  If Helpb > 0 Then
   Decr Helpb
   Pwm1a = Helpb
  End If
 End If

 Waitms 10
Loop
End