Option explicit
Option escape 'enable escape sequences (important for VFD)
Dim String serialData


SetPin GP1, GP0, COM1  'assign those pins for first serial port
Open "COM1:9600" As #5 'open first serial port with 9600 baud

Do

'serialData = Input$(4, #5)  ' get up to 4 characters from the serial port

Print Input$(4, #5)         ' get up to 4 characters from the serial port


'Print serialData
'Pause 100

Loop

1=!
11=!
11=
!11
=!1

*ŠŠ
ê
*Š
Šê
 *
ŠŠ

OHAL
LOHA
LLOH
ALLO
HALL
OHAL
LOHA

void setup()
{
Serial.begin(9600);
}


void loop()
{
Serial.print("HELLO");
}

void setup()
{
Serial.begin(9600);
}

void loop()
{
Serial.print("HELLO");
delay(10);
}