ds1302 ile yapılan saate ayar vermek

 .  
      .  
      .  
      POZ=113  
      LCDOUT $FE,1  
      LCDOUT $FE,$84, HEX2 SAAT,":",HEX2 DAKIKA  
       
      IF POZ=113 AND SOL=0 THEN GERI  
      IF POZ=113 AND YUKARI=0 THEN SAAT=SAAT+1  
      IF POZ=113 AND ASAGI=0 THEN SAAT=-1     
      GOSUB GETTIME     
           
      IF SAAT>23 THEN SAAT=0  
      IF SAAT<00 THEN SAAT=23       
      .  
      .  
      .  
  

 
  SAATAYAR: 
      WHILE SEC=0  
      WEND 
  	LCDOUT $FE,1 
      GOSUB EKRAN 
  	 
  	 
  DD: POZ=111     
      IF POZ=111 AND SEC=0 THEN S_AYAR  
  	IF POZ=111 AND SOL=0 THEN MENU2_1 
  	GOTO DD 
   
  EKRAN: 
      GOSUB GETTIME 
      LCDOUT $FE,$80,"SAAT AYAR" 
  	LCDOUT $FE,$C0,HEX2 (SAAT),":", HEX2 (DAKIKA) :RETURN 
   
  EKRAN0: 
      LCDOUT $FE,$C0,HEX2 (SAAT),":", HEX2 (DAKIKA) :RETURN 
   
  EKRAN1: 
      GOSUB SETTIME 
      LCDOUT $FE,$80,"TARiH AYAR" 
  E11:LCDOUT $FE,$C0,HEX2 (GUN),"/", HEX2 (AY),"/", HEX2 (YIL):RETURN 
   
  S_AYAR: 
      LCDOUT $FE,$C1 
  	LCDOUT $FE,$0E 'ÇİZGİLİ KURSOR AÇIK 
  PP:	POZ=112      
  	PAUSE 250 
  	GOSUB EKRAN0 
  	IF POZ=112 AND SAG=0    THEN D_AYAR 
  	IF POZ=112 AND YUKARI=0 THEN SAR 
  	IF POZ=112 AND ASAGI=0 THEN SAZ 
  	IF POZ=112 AND SOL=0 THEN MENU2_1 
  	GOTO S_AYAR 
  	 
  SAR:SAAT=SAAT+1 
      IF SAAT>23 THEN 
          SAAT=0 
          ENDIF 
      GOTO S_AYAR 
       
  SAZ:SAAT=SAAT-1 
      IF SAAT=0 THEN 
          SAAT=23 
          ENDIF 
      GOTO S_AYAR 
       
  D_AYAR: 
      LCDOUT $FE,$0C 
      LCDOUT $FE,$C4 
      LCDOUT $FE,$0E 'ÇİZGİLİ KURSOR AÇIK 
  	POZ=113	 
  	PAUSE 250 
      GOSUB EKRAN0 
      IF POZ=113 AND SOL=0    THEN S_AYAR 
      IF POZ=113 AND YUKARI=0 THEN DAR 
      IF POZ=113 AND ASAGI=0 THEN DAZ 
      GOTO D_AYAR 
  	 
  	  
  DAR:DAKIKA=DAKIKA+1 
      IF DAKIKA>59 THEN 
          DAKIKA=0 
          ENDIF     
  	GOTO D_AYAR 
   
  DAZ:DAKIKA=DAKIKA-1 
      IF DAKIKA<0 THEN 
          DAKIKA=59 
          ENDIF 
      GOTO D_AYAR