Chris i have taken out of this what i THINK i need Please add what else i need THANKS FOR ALL OF YOUR HELP ' File...... DS1302_Demo.bs2 ' Purpose... Demonstrate The DS1302 Clock & RAM Functions ' Author.... Chris Savage -- Parallax, Inc. ' E-mail.... csavage@parallax.com ' Started... ' Updated... 03-25-2005 ' ' {$STAMP BS2} ' {$PBASIC 2.5} ' -----[ I/O Definitions ]------------------------------------------------- DataIO PIN 0 ' DS1302.6 Clock PIN 1 ' DS1302.7 CS1302 PIN 2 ' DS1302.5 LCD PIN 15 ' Parallax Serial LCD Display ' -----[ Constants ]------------------------------------------------------- WrSecs CON $80 ' Write Seconds RdSecs CON $81 ' Read Seconds WrMins CON $82 ' Write Minutes RdMins CON $83 ' Read Minutes CWPr CON $8E ' Write Protect Register WPr1 CON $80 ' Set Write Protect WPr0 CON $00 ' Clear Write Protect WrBurst CON $BE ' Write Burst Of Data RdBurst CON $BF ' Read Burst Of Data WrRam CON $C0 ' Write RAM Data RdRam CON $C1 ' Read RAM Data Baud CON 32 ' 19K2 bps LcdBkSpc CON $08 ' move cursor left LcdRt CON $09 ' move cursor right LcdLF CON $0A ' move cursor down 1 line LcdCls CON $0C ' clear LCD (use PAUSE 5 after) LcdCR CON $0D ' move pos 0 of next line LcdBLon CON $11 ' backlight on LcdBLoff CON $12 ' backlight off LcdOff CON $15 ' LCD off LcdOn1 CON $16 ' LCD on; cursor off, blink off LcdOn2 CON $17 ' LCD on; cursor off, blink on LcdOn3 CON $18 ' LCD on; cursor on, blink off LcdOn4 CON $19 ' LCD on; cursor on, blink on LcdLine1 CON $80 ' move to line 1, column 0 LcdLine2 CON $94 ' move to line 2, column 0 LcdCC0 CON $F8 ' define custom char 0 LcdCC1 CON $F9 ' define custom char 1 LcdCC2 CON $FA ' define custom char 2 LcdCC3 CON $FB ' define custom char 3 LcdCC4 CON $FC ' define custom char 4 LcdCC5 CON $FD ' define custom char 5 LcdCC6 CON $FE ' define custom char 6 LcdCC7 CON $FF ' define custom char 7 ' -----[ Variables ]------------------------------------------------------- index VAR Byte ' Loop Counter reg VAR Byte ' Read/Write Address ioByte VAR Byte ' Data To/From DS1302 secs VAR Byte ' Seconds secs01 VAR secs. LOWNIB secs10 VAR secs. HIGHNIB mins VAR Byte ' Minutes mins01 VAR mins. LOWNIB mins10 VAR mins. HIGHNIB work VAR Byte ' Work Data ' -----[ Initialization ]-------------------------------------------------- Init: reg = CWPr ' Initialize DS1302 ioByte = WPr0 ' Clear Write Protect GOSUB RTC_Out ' Send Command HIGH LCD ' Setup Serial Output Pin SEROUT LCD, Baud, [LcdOn1, LcdBLon] ' Turn LCD Display & Backlight On ' -----[ Program Code ]---------------------------------------------------- Start: DO SEROUT LCD, Baud, [LcdCls] ' Clear The LCD Display PAUSE 5 SEROUT LCD, Baud, ["Parallax, Inc.", LcdCR] SEROUT LCD, Baud, ["DS1302 RTC Demo"] DEBUG CLS ' Clear The DEBUG Screen DEBUG CRSRXY, 0, 0, "Press 1 to Set Date/Time.", CR DEBUG CRSRXY, 6, 1, "2 to Display Date/Time.", CR DEBUG CRSRXY, 6, 2, "3 to Set/Read DS1302 RAM.", CR DEBUG CRSRXY, 6, 4, "RESET Stamp to return to menu.", CR DEBUGIN DEC1 work ' Get 1 Number IF work = 1 THEN GOSUB Set_Mode GOSUB Set_Time ELSEIF work = 2 THEN DEBUG CLS ' Clear The DEBUG Screen DO ' This is what i am looking for GOSUB Get_Time ' Get The Current Sec \Min GOSUB Show_Time ' Display It LOOP ELSEIF work = 3 THEN GOSUB RAM_Mode ENDIF LOOP What else do i need to do CODE wise to Display SEC and MIN and CONTROL OUTPUTS the way that i wrote the POST THANKS FOR YOUR HELP sam