'vaja1, astabilni multivibrator v BASIC-u

'$sim


Dim Lucka As Bit                'definiram spremenljivko kot bit, lahko je 1 ali 0

   Lucka = 0                    'lucki definiram stanje 0

   Do
   P1.1 = Lucka                 'portu 1 izhod 0 P1.1 postavim lucko

   Waitms 100                   'počaka 100 msek, frekvenca je 10Hz

   Lucka = Not Lucka            'lucki priredi negacijo lucka
   Loop                         'ponovitev oz skok v do stavek

   End                          'konec programa