'-------------------------------------------------------------
'                       SIMM100.BAS
'          sample file for the SimmStick SIMM100
'-------------------------------------------------------------

$regfile = "8535DEF.DAT"                                      'equiped with a 8535
$crystal = 4000000                                            'I used 4 MHz xtal
Config Portc = Output                                         'port c is used for output

Dim B As Byte                                                 'used for the for next loop
Portc = 1                                                     'switch led on

Do
   For B = 1 To 2
     Rotate Portc , Left                                      'rotate bits left
     Wait 1
   Next
   For B = 2 To 1 Step -1
     Rotate Portc , Right                                     'rotate bits right
     Wait 1
   Next
Loop

End