Well, good luck trying to get these lines:
DEVICE 18F458
XTAL = 4
@CONFIG_REQ
DECLARE RSOUT_MODE INVERTED , TRUE
.............
DECLARE SERIAL_BAUD 9600
DIM I AS BYTE
.................
DIM E_DATA AS BYTE
DELAYMS 50
SHOUT LCD_SDA , LCD_CLK , MSBFIRST, [ $21,$A7,$20 ]
VALIN = COUNTER PORTE.2 ,100
STR LCDSTR = "Freq:",0:GOSUB LCD_HOME:GOSUB LCD_SENDSTRING
STR LCDSTR = STR$(DEC VALIN):GOSUB LCD_SENDSTRING
STR LCDSTR = "KHz:",0
RSOUT DEC VALIN,$D,$A
RSOUT "MEMORY FULL"
DELAYMS 20
SHOUT LCD_SDA , LCD_CLK , MSBFIRST, [ LCD_DATA ]
SHOUT LCD_SDA , LCD_CLK , MSBFIRST, [ LCD_DATA ]
LCD_DATA=CREAD FONT1+J+I
SHOUT LCD_SDA , LCD_CLK , MSBFIRST, [ FONTCACHE[0],FONTCACHE[1],FONTCACHE[2],FONTCACHE[3],FONTCACHE[4],FONTCACHE[5] ]
RSOUT "BAR", DEC I2,":", DEC LCD_DATA, "PLOT:",DEC
RSOUT "0"
EWRITE CUR_ADR,[E_DATA]
CData $00,$00,$00,$00,$00,$00 'Graphic character 0
...............
CData $00,$08,$04,$08,$04,$00 '126 ~ - 7E
using the compiler that's listed at the top of this webpage, roughly 3rd line down, at the left of the screen.



... this is Melabs PICBASIC forum and not Crownhill PROTON (PDS or else) forum.


Bookmarks