' AT90S2313 Sample Program
'
'    Language : BASCOM-AVR
$regfile = "2313def.dat"
$crystal = 10000000                                         '10MHz OSC

Config Portb = Output

Do
   Portb = 1
   Waitms 1000
   Portb = 2
   Waitms 1000
   Portb = 4
   Waitms 1000
   Portb = 8
   Waitms 1000
   Portb = 16
   Waitms 1000
   Portb = 32
   Waitms 1000
   Portb = 64
   Waitms 1000
   Portb = 128
   Waitms 1000
   Loop
End