80517.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'------------------------------------------------------------
'                     80517.bas
'   demo for 80517 and 80537 dual comport
'------------------------------------------------------------
$regfile = "80517.dat"
$crystal = 12000000
$baud = 9600                              ' baud rate for first COM port

Config Baud1 = 4800                       ' baud for second COM port
Open "com1:" For Binary As #1
Open "com2:" For Binary As #2
Print #1 , "test1"
Print #2 , "test2"
Close #1
Close #2