-- tested by Surducan Vasile
-- date: 10 may 2001
-- compiler: Jal 04.35
include 16f84_4    -- procesor fuse description 
include jpic       -- general processor resources definition
include max232p    -- pin configuration for RS232 and LCD
include jseriala   -- Axel's serial routine, 19200,8,n,1 
include hd447804   -- nibble mode definition for hd44780 library 

hd44780_clear      -- LCD initialisation; don't work without it !
hd44780_line1      -- set cursor on line1 position0
hd44780 = "R"      -- send an ascii R
hd44780 = "e"      -- send an ascii e
hd44780 = "c"      -- send an ascii c
hd44780 = ":"      -- send an ascii :

forever loop                 -- do an infinite loop
 asynch_receive              -- launch asynchronous receive routine
 hd44780_position1 ( 4 )     -- move the cursor at position4 line1
 hd44780 = lastreceived      -- send to LCD received data
asynch_send ( lastreceived ) -- send back to the terminal, received data
end loop                     -- go again

    Source: geocities.com/vsurducan/electro/PIC

               ( geocities.com/vsurducan/electro)                   ( geocities.com/vsurducan)