Etepic

DEFINE OSC 20
DEFINE LCD_DREG PORTC
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 0
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 1
DEFINE LCD_LINES 2
SURE VAR WORD
CMCON=7
ADCON1=7
TRISD.2=1
TRISD.3=0 
PORTD.3=0 
lcdout $FE,1 
pause 500 
LCDOUT "  HOSGELDINIZ  "

MAIN:

IF PORTD.2=1 THEN
    IF SURE<400 THEN SURE=SURE+1 : lcdout $FE,1 : LCDOUT #SURE
    IF SURE=>400 THEN PORTD.3=1
ELSE
    SURE=0    
ENDIF

IF SURE<400 THEN PORTD.3=0    
GOTO MAIN  
end 

DEFINE OSC 4  
CMCON=7

DEFINE LCD_DREG	PORTB	     'LCD data bacakları hangi porta bağlı?
DEFINE LCD_DBIT	    4		'LCD data bacakları hangi bitten başlıyor?
DEFINE LCD_RSREG	PORTB	     'LCD RS Bacağı Hangi Porta bağlı ?
DEFINE LCD_RSBIT	    2		'LCD RS bacağı Hangi Bite bağlı ?
DEFINE LCD_EREG	PORTB	     'LCD Enable Bacağı Hangi Porta bağlı?
DEFINE LCD_EBIT	    3		'LCD Enable Bacağı Hangi bite bağlı ?
DEFINE LCD_BITS	    4		'LCD 4 bit mi yoksa 8 bit olarak bağlı?
DEFINE LCD_LINES	    2		'LCD Kaç sıra yazabiliyor


I VAR BYTE  
X VAR BYTE
ASC VAR BYTE
YER VAR BYTE
TAM VAR BYTE
ILK  VAR BYTE
SON  VAR BYTE
KES  VAR BYTE
POZ VAR BIT
  
lcdout $FE,1 
pause 500 


 BASLA:
      X=0:YER=19:TAM=19
BIR:
    
    FOR I=YER TO TAM
    X=TAM-YER
IKI:    
    GOSUB AL
    LCDOUT $FE,$80+(YER+X),ASC 
    X=X-1
    IF X<255 THEN IKI
    NEXT     
    YER=YER-1
    IF YER=255 THEN UC
     PAUSE 200
    GOTO BIR
UC:       
   ILK=0:SON=19:POZ=0
DORT:
   I=0     
   FOR X=ILK TO SON
     gosub al   
     IF ASC=255 THEN 
       ASC=32
       IF POZ=0 THEN KES=SON
       POZ=1
     ENDIF  
     lcdout $fe,$80+I,asc
     I=I+1
     IF I=20 THEN I=0
   next
CIK:   
   PAUSE 200
   ILK=ILK+1:SON=ILK+19
   IF POZ=1 AND ILK>KES THEN BASLA
   goto DORT
    
AL:
lookup X,["ETENIN YAZI KAYDIRMA DENEME SURUMU BIRAZ DAHA EKLEYELIM YETMEDI az daha ekledim bakalim ne olacak",255],ASC
 RETURN    
 end 

#include <lcd.h>
#include <lcd.c>
void main()
{
   int x;
   int y;
   lcd_init();
   x=0;
   y=1;
   lcd_putc("muammer");
   lcd_putc("\ngunes");
   delay_ms(1000);
   while(TRUE)
   {
   printf(lcd_putc,"\f");
   printf(lcd_putc,"x: %u",x);
   printf(lcd_putc,"\ny: %u",y);
   x++;
   y++;
   if (x>100)
   {
   x=0;
   y=1;
   }
   delay_ms(200); 
   }

}