STORE AT(':',&TIN) TO LL
STORE VAL(SUBSTR(&TIN,1,LL-1)) TO EE
IF &TIN1 = 'P'
 IF EE < 12
  STORE EE+12 TO EE
 ENDIF
ENDIF
STORE EE * 60 TO YY
STORE YY + VAL(SUBSTR(&TIN,LL+1,2)) TO YY
STORE YY TO START
STORE AT(':',&LOUT) TO LL
STORE VAL(SUBSTR(&LOUT,1,LL-1)) TO EE
IF &LOUT1 = 'P'
 IF EE < 12
  STORE EE+12 TO EE
 ENDIF
ENDIF
STORE EE * 60 TO YY
STORE YY + VAL(SUBSTR(&LOUT,LL+1,2)) TO YY
STORE YY TO RR
STORE AT(':',&LIN) TO LL
STORE VAL(SUBSTR(&LIN,1,LL-1)) TO EE
IF &LIN1 = 'P'
 IF EE < 12
  STORE EE+12 TO EE
 ENDIF
ENDIF
STORE EE * 60 TO YY
STORE YY + VAL(SUBSTR(&LIN,LL+1,2)) TO YY
STORE YY TO SS
STORE AT(':',&TOUT) TO LL
STORE VAL(SUBSTR(&TOUT,1,LL-1)) TO EE
IF &TOUT1 = 'P'
 IF EE < 12
  STORE EE+12 TO EE
 ENDIF
ENDIF
STORE EE * 60 TO YY
STORE YY + VAL(SUBSTR(&TOUT,LL+1,2)) TO YY
STORE YY TO END
STORE SS-RR TO LUNCH
STORE END-START-LUNCH TO DAY
STORE DAY/60 TO THOURS