Pimentel,
You could try something like this ...Assuming you have PBP 2.60
Code:DEFINE OSC 8 BuffLength CON 32 Buff VAR BYTE[BuffLength] Idx VAR BYTE SerPin VAR PORTC.6 HIGH SerPin PAUSE 100 Main: ARRAYWRITE Buff,["Hello World!",13,10,0] GOSUB SendBuff PAUSE 1000 GOTO Main ;---------------------------------------------------- SendBuff: FOR Idx = 0 TO BuffLength -1 IF Buff(Idx) = 0 THEN EXIT SEROUT2 SerPin,188,[Buff(Idx)] PAUSEUS 220 NEXT Idx RETURN
Bookmarks