$large
$regfile = "89C2051.dat"
Dim A As String * 16
Config Lcd = 16 * 2

Cls
Lcd "RS232 PC<=>uP :)"
Lowerline
Lcd "witam"
Wait 3



Enable Serial

Enable Interrupts
On Serial Prog_przerwania:

Prog_przerwania:
Disable Interrupts
Cls
Lcd "CZEKAM NA TEKST"
Do
Print "wpisz ciag znakow"

Input " " , A

  Cls
  Lcd A
  Wait 1


Loop
Enable Interrupts
Return