Config Pind.6 = Output

On Urxc Getchar


Dim S As String * 10
Dim Get_w As Long
Dim Get_dln As Byte
Dim Get_byte As Byte
Dim Wtime As Word
Dim Inchar As String * 1

Const Fastblink = 100
Const Slowblink = 500

Wtime = Slowblink

Enable Interrupts
Enable Urxc

Do
  Set Portd.6
  Waitms Wtime
  Reset Portd.6
  Waitms Wtime
Loop

Getchar:
  S = ""
  Get_w = 0
  Get_dln = 1

  '--принимаем первй символ
  Get_byte = Inkey()
  S = S + Chr(get_byte)                                     ' build string

  '--примаем остальные символы строки
  Do
    'для выхода из цикла в случае неприхода 0D,0A
    If Get_w > 50000 Then
      Exit Do
    End If

    Get_byte = Ischarwaiting()
    If Get_byte <> 0 Then
     Get_byte = Inkey()
     Select Case Get_byte
       Case 13 :                                            '<0D>
       Case 10 : Exit Do                                    '<0A>
       Case Else:
       Incr Get_dln
       S = S + Chr(get_byte)                                ' build string
      'защита от длинных посылок
      If Get_dln > 9 Then
        Exit Do
      End If
     End Select
    End If

  Loop

'на выходе из цикла имеем строку S


  Inchar = Inkey()
  Select Case S
    Case "1234" : Wtime = Fastblink
    Case "5678" : Wtime = Slowblink
  End Select




Return

End

Dim S As String * 4
*
do
if s ="cod1" then gosub cod1
if s ="cod2" then gosub cod2
loop
*
*
Getchar:
  Inchar = Inkey()
  if inchar ="с" then input s
   

Return

Getchar:
 input s
Return