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.
Bookmarks