/* xtime.p */

def var aps as char.
def var ape as char.
def var sttime as char format "xx:xx x".
def var entime as char format "xx:xx x".
def var op_sttime as int init 0201.
def var op_entime as int init 1330.

      ASSIGN aps    = IF op_sttime >= 1200 THEN "P" ELSE "A"
             ape    = IF op_entime >= 1200 THEN "P" ELSE "A"
             sttime = (IF op_sttime >= 1300 THEN STRING(op_sttime - 1200,"9999")
                      ELSE STRING(op_sttime,"9999")) + aps
             entime = (IF op_entime >= 1300 THEN STRING(op_entime - 1200,"9999")
                      ELSE STRING(op_entime,"9999")) + ape.

disp sttime entime.

      ASSIGN aps       = SUBSTRING(sttime,5,1)
             ape       = SUBSTRING(entime,5,1)
             op_sttime = INTEGER(SUBSTRING(sttime,1,4))
             op_sttime = op_sttime +
                         IF aps = "P" AND op_sttime < 1200 THEN 1200
                         ELSE IF aps = "A" AND op_sttime >= 1200 THEN -1200
                         ELSE 0
             op_entime = INTEGER(SUBSTRING(entime,1,4))
             op_entime = op_entime +
                         IF ape = "P" AND op_entime < 1200 THEN 1200
                         ELSE IF ape = "A" AND op_entime >= 1200 THEN -1200
                         ELSE 0.
                                  
disp op_sttime op_entime.

disp STRING(INTEGER(TRUNCATE(op_entime / 100,0)) * 3600 + (op_entime MOD 100) * 60,"HH:MM AM").