Форум РадиоКот

Код: Выделить всё

var = RND( limit ) 

Код: Выделить всё

$regfile = "m48def.dat"                                     ' specify the used micro

$crystal = 4000000                                         ' used crystal frequency

$baud = 19200                                               ' use baud rate

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space

 

Dim I As Word                                               ' dim variable

Do

 I = Rnd(40)                                               'get random number (0-39)

Print I                                                   'print the value

Wait 1                                                   'wait 1 second

Loop                                                       'for ever

End

Код: Выделить всё

if w = 5 and w1 = 20 then
то ... выполняем что то
end if

Код: Выделить всё

if w >= 5 and w1 =< 20 then
то ... выполняем что то
end if

Код: Выделить всё

If W => 23 Or W =< 7 Then : Goto Displey2 : Else : Goto Displey1 : End If