The following is the PIC basic routine for the 10 minute ID timer

'10 Min ID Timer. PIC=16F84. Line numbers in comments are labeled L5,L10,L20 Ect.
'SEE= Scott Edwards Electronics Serial Backpack LCD Display
'Position for Line 1 Char 1 on SEE LCD Display is 128
'Position for Line 2 Char 1 on SEE LCD Display is 192
Include "modedefs.bas" 'L5
'Constants and variables
I con 254 'Instruction Prefix
clrlcd. con 1 'Clear LCD of previous instructions
L1C1 con 128 'Print Position for Line 1 Character 1
L2C1 con 192 'L10 Print Position for Line 2 Character 1
TI var word. 'Time Interval variable word.Max of 65535
LOW 1 'Sets PortB1 (pin 7 16F84)low
Pause 1000 'Pause 1 second. Gives LCD time to wake up
SEROUT 0,N9600,[I,clrlcd] 'Initilize and clear lcd PortB0.
pause 300 'Pause .3 seconds to give LCD a chance to catch up
SEROUT 0,N9600,[I,L1C1,"10 Min ID Timer"] 'Print "10 Min ID Timer" at Line 1 Char 1 of LCD
SEROUT 0,N9600,[I,L2C1,"By: WD4BIS "] 'Print "By: WD4BIS" at Line 2 Char 1 of LCD
PAUSE 2000 'Pause 2 seconds To give LCD time to display Timer text
SEROUT 0,N9600,[I,clrlcd] 'Initilize and clear lcd PortB0 (Pin 6 16C84)
SEROUT 0,N9600,[I,L1C1,"Identify In"] 'L20 Print Statement at L1C1 "Identify in"
TI=600 'Enter time interval from 1 to 65535 seconds
AGAIN:SEROUT 0,N9600,[I,L2C1,#TI," Seconds "] 'Again subroutine, Initililize LCD, Display TI
Pause 1000 'Pause 1 Second
TI=TI-1 'Subtract 1 from Time Interval TI
IF TI=480 THEN LED1 'At TI minus 2 minute goto led1
IF TI=360 THEN LED2 'At TI minus 4 minutes goto led2
IF TI=240 THEN LED3 'At TI minus 6 minutes goto led3
IF TI=120 THEN LED4 'At TI minus 8 minutes goto led4
IF TI=0 THEN BOOM 'If T1=0 then goto Boom subroutine
SEROUT 0,N9600,[I,L2C1,#TI," Seconds "] 'L30 Print TI, then print " Seconds "
GOTO AGAIN 'If TI is anything but 0, goto Again subroutine
LED1: HIGH 4 'Sets PortB4 (pin10 16F84) High Lights Led 1
GOTO AGAIN 'Return to Again subroutine
LED2: HIGH 5 'Sets PortB5 (pin11 16F84) High Lights Led 2
  GOTO AGAIN 'Return to Again subroutine
LED3: HIGH 6 'Sets PortB6 (pin12 16F84) High Lights Led 3
  GOTO AGAIN 'Return to Again subroutine
LED4: HIGH 7 'Sets PortB7 (pin13 16F84) High Lights Led 4
  GOTO AGAIN 'Return to Again subroutine
BOOM: 'L40 BOOM Subroutine
  SEROUT 0,N9600,[I,clrlcd] 'Clear LCD
  SEROUT 0,N9600,[I,L1C1,"Time To Identify"] 'Print "Time To ID" L1
  SEROUT 0,N9600,[I,L2C1,"Press Reset"] 'Print "Press Reset"L2
  HIGH 8 'Sets PortB8 (pin 14 16F84)High
  HIGH 1 'Sets PortB1 (pin 7 16F84) High to activate Audible Alarm
PAUSE 2000 'Pause 2 seconds
  LOW 1 'Sets PortB1 (pin 7 16F84) low to deactivate Audible Alarm
P_ID 'Personal Identification
  SEROUT 0,N9600,[I,clrlcd] 'Clear LCD
  SEROUT 0,N9600,[I,L1C1,"Amateur Radio "] 'L50 Print "Amateur Radio " L1
  SEROUT 0,N9600,[I,L2C1,"Station WD4BIS"] 'Print "Station WD4BIS"L2
  PAUSE 2000 'Pause 2 seconds
  SEROUT 0,N9600,[I,clrlcd] 'Clear LCD
  SEROUT 0,N9600,[I,L1C1,"Time To Identify"] 'Print "Time To ID" Line 1
  SEROUT 0,N9600,[I,L2C1,"Press Reset"] 'Print "Press Reset" Line 2
  PAUSE 2000 'Pause 2 seconds
  goto P_ID 'GotoP_ID and loop
stop 'L57 End Program