pin(clock)=0
Pin(latch)=1
do
 pin(data)=1 'set the single data bit that will clock across all the columns
 for column=1 to 60
   pin(latch)=1 'clear the latch signal
   pin(clock)=1
   pin(clock)=0 'clock the data across 1 column
   pin(data)=0 'only set the data to light one column at a time
   port latch)=0 'latch the selected column
   port(rowpin)=rowarray(column) 'set the row data for that column
   pause 0.2 ' repeat on something less than 100Hz
 next column
 for i=1 to 4 'clock out the 4 unused columns
   pin(clock)=1
   pin(clock)=0 'clock the data across 1 bit
 next i
loop ' loop forever

 '4094  driver, running on picomite GEEK unit
 option default integer
 
 'SPI channel
 setpin gp4,gp3,gp2,spi    'gp2=clock, gp3=tx , gp3 is not used
 'CD4094 shifts on rising clock edge, input data must change on falling edge.
 SPI OPEN 200000,0,5       '200kHz data output falling edge, 8 bits
 
 'latch enable signal
 setpin gp5,dout
 pin(gp5)=0                '0=hold data

 'the row driver pins on the pico
 'setpin gpx,dout
 'setpin gpx+1,dout
 'setpin gpx+2,dout
 'setpin gpx+3,dout
 'setpin gpx+4,dout
 'setpin gpx+5,dout
 'setpin gpx+6,dout

 'truth table to drive the row pins (low=on)
 dim row(6)=(&b1111110,&b1111101,&b1111011,&b1110111,&b1101111,&b1011111,&b0111111)

 'this is the array holding all the pixel data for the LED's
 dim txt_out(11,6)
 filltextarray
 
 'this is the array that us used by SPI to send out data
 dim row_out(11)

 'this is the interrupt that multiplexes the display
 settick 2,nextrow


 
'here comes the main code, text entry, scrolling, serial input etc...
 do
   'do all the stuff
   pause 100 'just to simulate stuff...
 loop
 




'This is the display multiplexer  
sub nextrow
 static i=0                            'static = local i inherits last value
 inc i,1:if i=7 then i=0               'next row
 math slice txt_out(), ,i ,row_out()   'copy into single dimensional array
 spi write 12,row_out()                'send it out
 pulse gp5,0.01                        'latch enable pulse
 'port(x,7)=row(i)                      'drive rows starting GPx, 7bit wide
end sub

 'just to get the pixels in the DATA statements into an array
sub filltextarray
 for i=0 to 6
   for j=0 to 11
     read txt_out(j,i)
   next
 next
end sub
 
 
 'some default text, each bit is a LED in 5x7

 'row 1
 data 31,31,31,31,31,31,31,31,31,31,31,31
 'row 2
 data 17,17,17,17,17,17,17,17,17,17,17,17
 'row 3
 data 17,17,17,17,17,17,17,17,17,17,17,17
 'row 4
 data 14,17,17,14,17,14,14,17,17,17,14,14
 'row 5
 data 17,17,17,17,17,17,17,17,17,17,17,17
 'row 6
 data 17,17,17,17,17,17,17,17,17,17,17,17
 'row 7
 data 31,31,31,31,31,31,31,31,31,31,31,31