setpin 11,uart1tx:setpin 12,uart1rx:open "com1:115200" as #1
setpin 1,uart0tx:setpin 2,uart0rx: open "com0:115200" as #2
print #1, "Hello world"
print input$(100,2)
print #2, "Bye world"
print input$(100,1)
close 1
close 2

> list
Dim string cr=Chr$(13), lf=Chr$(10)
a$="A wonderful bird is the pelican,"+cr+lf+"His bill will hold more than his b
elly can,"+cr+lf
b$="He can take in his beak"+cr+lf+"Enough food for a week"+cr+lf+"But I'm damn
ed if I see how the helican!"
SetPin 1,uart0tx:SetPin 2,uart0rx: Open "com0:115200" As #1
Print #1,a$;b$
Pause 100
Print Input$(255,#1)
Close #1
> RUN
A wonderful bird is the pelican,
His bill will hold more than his belly can,
He can take in his beak
Enough food for a week
But I'm damned if I see how the helican!

> SetPin 1,uart0tx:SetPin 2,uart0rx: Open "com0:115200" As #1
> print #1,"ABC"
> ?loc(#1)
Error : Internal fault (sorry)
>

'GFXterm - magnitude FFT

'init gfxterm parameters
Const GFX=Chr$(16)
Const ENQ=Chr$(5)
Const ACK=Chr$(6)
Print GFX "?"
Input Gw, Gh
Print GFX "clear" 0, 0, Gw, Gh
GoSub drw

'defines
n=1023   'samples for fft (multiple of 2 - 1)
cy = 20  'cycles of sinewave in n samples

Dim a!(n),fm!(n)
GoSub sinfill
GoSub sinshow

Math fft magnitude a!(),fm!()

GoSub fftshow

End

'show fft on graphics terminal
fftshow:
 Print GFX "ink" 255, 255, 0, 2
 'scan magnitude array
 mi!=0:ma!=0
 For i=0 To n
   mi!=Min(mi!,fm!(i))
   ma!=Max(ma!,fm!(i))
 Next i
'  Print mi!, Ma!
 ygain=-Gh/(3*(ma!-mi!))
 yoffset=Gh-1
 xgain=Gw/(n+1)
 xoffset=0
 For i=0 To n-1
   x1=i*xgain+xoffset
   x2=(i+1)*xgain+xoffset
   y1=fm!(i)*ygain+yoffset
   y2=fm!(i+1)*ygain+yoffset
   Print GFX "line" x1,y1,x2,y2
 Next i
Return

'fill input array a()
sinfill:
For i=0 To n
 a!(i)=Sin(i*2*Pi*cy/n)
'  Print a!(i),
Next i
Return

'show the graph of the input signal
sinshow:
 Print GFX "ink" 255, 255, 0, 2
 ygain=-Gh/5
 yoffset=Gh/4
 xgain=Gw/(n+1)
 xoffset=0
 For i=0 To n-1
   x1=i*xgain+xoffset
   x2=(i+1)*xgain+xoffset
   y1=a!(i)*ygain+yoffset
   y2=a!(i+1)*ygain+yoffset
   Print GFX "line" x1,y1,x2,y2
 Next i
Return

'draw frames
drw:
 Print GFX "ink" 255, 255, 255, 2
 Print GFX "line" 0,Gh,0,Gh/2+1
 Print GFX "line" 0,Gh,Gw,Gh
 Print GFX "line" 0,Gh/2+1,Gw,Gh/2+1
 Print GFX "line" Gw,Gh,Gw,Gh/2+1
 Print GFX "line" 0,0,0,Gh/2-1
 Print GFX "line" 0,0,Gw,0
 Print GFX "line" 0,Gh/2-1,Gw,Gh/2-1
 Print GFX "line" Gw,0,Gw,Gh/2-1
Return

'UART test
'link 16-12 and 17-11

SetPin 16, uart0tx
SetPin 17, uart0rx
Open "com0:115200" As #1

SetPin 11, uart1tx
SetPin 12, uart1rx
Open "com1:115200" As #2

Print #1,"Hello World!"
Print Input$(100,2)

Print #2,"Bye World!"
Print Input$(100,1)

Close 1
Close 2

 ' address,seconds,minutes,hours,dayofweek,day,month,year,control -- enter numbers in BCD as hex
 Dim integer hx(8)=(&h0,&h0,&h36,&h21,&h4,&h10,&h06,&h21,&h10) ' hx(0) is address to write to
 SetPin 14,i2c1sda
 SetPin 15,i2c1scl
 I2C1 open 100, 1000
 I2C1 WRITE &h68,0,9,hx()
 I2C1 close
 End

dim integer d(9)
SetPin 14,i2c1sda:  SetPin 15,i2c1scl: I2C1 open 100, 1000
i2c1 WRITE &b1101000,1,1,0 ' set the read address to 0
i2c1 read &h68,0,7,d()
dt$=str$(bcd_bin(d(4)))+"-"+str$(bcd_bin(d(5)))+"-20"+str$(bcd_bin(d(6)))
tm$=str$(bcd_bin(d(2)))+":"+str$(bcd_bin(d(1)))+":"+str$(bcd_bin(d(0)))
date$=dt$:time$=tm$
?date$,time$
end

Function bcd_bin (Val as integer) as integer ' from FruitOfTheShed
 local integer tmp
 ' convert the BCD values to binary
 tmp = val AND &b00001111
 bcd_bin = (val AND &b11110000) * 10 / 16 + tmp
END Function