$regfile = "m128def.dat"                                    ' specify the used micro
$crystal = 16000000                                         ' used crystal frequency
$baud = 19200                                               ' baud rate on UART#1
$baud1 = 19200                                              ' baud rate on UART#2
$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

'The M128 has an extended UART.
'when CONFIG COMx is not used, the default N,8,1 will be used
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Dim I As Integer
$baud1 = 19200                                              ' or whatever you want
Open "COM2:" For Binary As #2

Do
   Print #2 , "test " ; I
   I = I + 1
Loop

Close #2
End