Sub CLOCK
 HR=Val(Left$(Time$,2))
 INC HR, -24*(HR>23) 'IF HR>23 THEN HR=HR-24
 IF HR<12 THEN
   Text MM.HRes/2,29*16,"DATE: "+Date$+", TIME: "+Time$+" AM",C
 ELSE
    Text MM.HRes/2,29*16,"DATE: "+Date$+", TIME: "+Str$(HR-12)+Right$(Time$,6)+" PM",C
 ENDIF
END Sub

SUB DO_TIME
 LastTime = Left$(Time$,5)
 LOCAL hour = VAL(LEFT$(lastTime$,2))
 LOCAL minute = VAL(RIGHT$(lastTime$,2))
 LOCAL MER = hour
 LOCAL AmPm$
 LOCAL HH$,MM$
' Check if AM or PM
 IF MER >= 12 THEN
   MER = MER - 12
   AMPM$ = "PM"
 ELSE
   AMPM$ = "AM"
 ENDIF
' Handle 12 AM, avoid 0 O'clock.
 IF MER = 0 THEN MER = 12
' Reassemble the TIME variables back into a string value
' with leading zero blanking or padding
 HH$ = STR$(MER)
 IF MER < 10 THEN HH$ = " " + HH$
 HH$ = HH$ + ":"
 MM$ = STR$(Minute)
 IF minute < 10 THEN MM$ = "0" + MM$
 HHMM$ = HH$ + MM$
' Update the time

   TEXT (MM.HRES/2 -50), MM.VRES/4, HHMM$, "CM", 6, 2 ' TIME
   TEXT MM.HRES -50, MM.VRES/4 +10, AMPM$, "R" ' AM/PM

END SUB

Dim DN$(2) length 2 = ("am", "pm", "")

For I=0 To 23                ' or "To 24 Step 3" to fit on a single screen
  X=((I+11) Mod 12)+1
  Print I "oo", X DN$(I>11)
Next I

X=((I+11) Mod 12)+1
Print X DN$(I>11)