Device 16F628A ;We gebruiken een 16F628A type
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE ;Alle ingangen digitaal
	
	lcd_rspin		porta.4
	lcd_enpin		porta.3
	
	DIM MESSAGE_ARRAY[16] AS BYTE 
	DIM DATUM 			  AS BYTE 
	DIM Y 				  AS BYTE 
	SYMBOL EOM		  = 1 		
	SYMBOL SPEED 	  = 190 	
	SYMBOL LCD_LENGTH = 15	
    DELAYMS 500	  			  
	CLS							  
	DATA "Hallo ik ben Jorim, wie ben jij?                ",1
	GOTO START
SCROLL_MESSAGE:
	PRINT AT 1,1,STR MESSAGE_ARRAY
	DELAYMS SPEED	 					  
	FOR Y=0 TO LCD_LENGTH-1		
	MESSAGE_ARRAY[Y] = MESSAGE_ARRAY[Y+1]
	NEXT			   					  
	RETURN								 
START:
    Y=0									 
	REPEAT								 
	MESSAGE_ARRAY[Y]=" "	
	INC Y			   					
	UNTIL Y=LCD_LENGTH		
LOOP:
	RESTORE								
	WHILE 1=1							
	READ DATUM 						
	IF DATUM=EOM THEN BLANK_TXT
	MESSAGE_ARRAY[15]=DATUM		
	GOSUB SCROLL_MESSAGE			
	WEND  								  
BLANK_TXT:
	IF MESSAGE_ARRAY[10]=" " THEN	
	IF MESSAGE_ARRAY[11]=" " THEN	
	GOTO LOOP			   	 			  
	ENDIF								  
	ENDIF								  
    MESSAGE_ARRAY[15]=" "
	GOSUB SCROLL_MESSAGE	
	GOTO BLANK_TXT				
	END