Code:
	X VAR BYTE
PORTB.0=0 ' set low on boot (change as required here)
TRISB.0=0 ' RB0 = output
Main:
    GOSUB Command1
    GOTO Main
Command1:
    FOR X = 0 TO 171 ' 172 bits total
    LOOKUP X,[0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,0,1,_
              0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0,1,1,1,1,1,1,_
              1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,0,1,0,_
              1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0,1,1,1,1,1,1,1,_
              1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,0,1,0,1,_
              0,1,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0],PORTB.0
     PAUSE 1   ' Note: If this is too long, use PAUSEUS  
    NEXT X
    RETURN
    
    END
 You can have up to 255 entries 'or bits' per table with a 14-bit core device.
Bookmarks