i'm trying to get Qbasic and the 16F876 pic to Talk
VIA RS232 and the Max232 chip
if i start the pic first -nothing happens
if i start QB first then pic i get "Device I/O error" message
.5 sec after pic is started
qbasic may work at 19200 baud which i would like
and i think i would need faster that
4mhz crystal for the pic also

---------------------------------
PBP code here-
---------
DEFINE LOADER_USED 1 'for melabs bootloader
DEFINE OSC 4 'for 20mhz pic
DEFINE HSER_RCSTA 90h 'set port to input
DEFINE HSER_TXSTA 20h 'set port to output
DEFINE HSER_BAUD 9600 'set baud rate
B0 VAR BYTE
B1 VAR BYTE
B1 = 44
B0 = 0
Hseer: HSerout [B1]
HSerin [B0]
IF B0 > 0 Then loop 'go to loop and blink led if value found
GoTo hseer
loop: High 0 'Turn on LED connected to RB0
Pause 50 'Delay for .5 seconds
Low 0 'Turn off LED connected to RB0
Pause 50 'Delay for .5 seconds
GoTo loop 'Go back to loop and blink LED forever
End
-------------------------end PBP code
Qbasic-code below
-----------------
10 CLS
' Open communications (2400 baud, no parity, 8-bit data,
' 1 stop bit,
OPEN "COM1:9600,N,8,1,CD0,CS0,DS0,OP0" FOR RANDOM AS #1
20 INPUT #1, B$
PRINT B$
30 GOTO 20
END

-----------------
Qbasic Loop test works fine
---- looptest.bas
10 CLS
' Open communications (9600 baud, no parity,
' 8-bit data,1 stop bit,
OPEN "COM1:9600,N,8,1,CD0,CS0,DS0,OP0" FOR RANDOM AS #1
20 A$ = "Hello"
Print #1, A$
INPUT #1, B$
PRINT B$
30 GOTO 30 'holds screen
END