NET REACTION    Включва програма на отговаряне

синтаксис: NET REACTION (command , message_code)

описание: Тази команда е свързана с необходимостта
          приемника да се задейства при 
          някакво съобщение.
          Тя установява реакцията на получателя,
          ако по мрeжата бъде получено съобщение
          зададено от message_code.
          Тогава автоматично се включва командата 
          command (acode,aline,asender).
          Всъщност командата (ако е зададена,)
          се задейства задължително при още едно
          съобщение - private_message (код 18).

пример:   ......
          code_unlock 33
          NET REACTION ('UNLOCK.PRG',code_unlock)
          ...........,

          където UNLOCK.PRG има вид:

         : UNLOCK.PRG
         : тази програма реагира на 
         : 1.опит за отключване достъпа,
         : 2. на съобщението 'send_it_to_me'
         : "unlock"
         : "private_message"

         acode fparam(1)
         aline fparam(2)
         asender fparam(3)

         my_friend 'boby'
         ако asender<>my_friend то стоп(1) 
         passw 'thisisme'

         : щом тази програма е стартирана, 
         : то със сигурност числото code е или 18 (частно съобщение),
         : или 33 - отключваща команда, тъй както е установено по-горе
         : с командата net reaction ('unlock.prg',code_unlock)

         преход code*100

         3300 : отключва достъпа
         не_е_отключен nickaddress(asender,1)=''            
         ако нe_е_отключен то net unlock @asender @passw
         стоп(1)

         1800 : лично съобщение
         question wordn(aline,1)
         subject wordn(aline,2)
         ако question='send_it_to_me' то SENDHIM.PRG(subject)
         стоп(1)

===================край=====================